From: Jim Meyering <meyering@redhat.com>
Date: Mon, 17 Aug 2009 18:44:01 +0000 (+0200)
Subject: generator.ml: do not emit unused print_* functions
X-Git-Tag: 1.0.68~25
X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=commitdiff_plain;h=9c5f05ec14655195fc94dc7c72d132087abe634b

generator.ml: do not emit unused print_* functions

* src/generator.ml: Do not emit functions like print_xattr,
print_lvm_vg, print_inotify_event, that are not used.
---

diff --git a/src/generator.ml b/src/generator.ml
index 4824438..08c28fc 100755
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -6129,11 +6129,6 @@ and generate_fish_cmds () =
       ) cols;
       pr "}\n";
       pr "\n";
-      pr "static void print_%s (struct guestfs_%s *%s)\n" typ typ typ;
-      pr "{\n";
-      pr "  print_%s_indent (%s, \"\");\n" typ typ;
-      pr "}\n";
-      pr "\n";
   ) structs;
 
   (* Emit a print_TYPE_list function definition only if that function is used. *)
@@ -6145,6 +6140,18 @@ and generate_fish_cmds () =
     | typ, _ -> () (* empty *)
   ) rstructs_used;
 
+  (* Emit a print_TYPE function definition only if that function is used. *)
+  List.iter (
+    function
+    | typ, RStructOnly ->
+        pr "static void print_%s (struct guestfs_%s *%s)\n" typ typ typ;
+        pr "{\n";
+        pr "  print_%s_indent (%s, \"\");\n" typ typ;
+        pr "}\n";
+        pr "\n";
+    | typ, _ -> () (* empty *)
+  ) rstructs_used;
+
   (* run_<action> actions *)
   List.iter (
     fun (name, style, _, flags, _, _, _) ->