[Libguestfs] [PATCH libnbd 2/5] generator: Rename print_extern to print_fndecl

[Richard W.M. Jones]

This function generates C function decls so name it accordingly.
---
 generator/C.ml | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/generator/C.ml b/generator/C.ml
index f4d24b650d..013f81edf4 100644
--- a/generator/C.ml
+++ b/generator/C.ml
@@ -213,7 +213,7 @@ let
   pr "%s nbd_%s " (type_of_ret ret) name;
   print_arg_list ~handle:true ?wrap ?maxcol ?closure_style args optargs
 
-let print_extern ?wrap ?closure_style name args optargs ret =
+let print_fndecl ?wrap ?closure_style name args optargs ret =
   pr "extern ";
   print_call ?wrap ?closure_style name args optargs ret;
   pr ";\n"
@@ -303,9 +303,9 @@ let
   ) oclosures;
   pr "\n"
 
-let print_extern_and_define ?wrap name args optargs ret =
+let print_fndecl_and_define ?wrap name args optargs ret =
   let name_upper = String.uppercase_ascii name in
-  print_extern ?wrap name args optargs ret;
+  print_fndecl ?wrap name args optargs ret;
   pr "#define LIBNBD_HAVE_NBD_%s 1\n" name_upper;
   pr "\n"
 
@@ -394,7 +394,7 @@ let
   print_closure_structs ();
   List.iter (
     fun (name, { args; optargs; ret }) ->
-      print_extern_and_define ~wrap:true name args optargs ret
+      print_fndecl_and_define ~wrap:true name args optargs ret
   ) handle_calls;
   List.iter (
     fun (ns, ctxts) -> print_ns ns ctxts
@@ -413,7 +413,7 @@ let
   pr "\n";
   List.iter (
     fun (name, { args; optargs; ret }) ->
-    print_extern ~wrap:true ~closure_style:Pointer ("unlocked_" ^ name)
+    print_fndecl ~wrap:true ~closure_style:Pointer ("unlocked_" ^ name)
       args optargs ret
   ) handle_calls;
   pr "\n";
-- 
2.37.0.rc2

_______________________________________________
Libguestfs mailing list
Libguestfs@redhat.com
https://listman.redhat.com/mailman/listinfo/libguestfs