X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=generator%2Fgenerator_c.ml;h=bfdea337cced4c070e47ff8ceaf3a12744a54cfe;hb=5c2f1a2d9433eeb5aebeec26f0412c703bbe7269;hp=5460a35f5d3b4eb2b3938d20a594e35678e5c0e7;hpb=18ee38e1eac132b91706771285d1764641179804;p=libguestfs.git

diff --git a/generator/generator_c.ml b/generator/generator_c.ml
index 5460a35..bfdea33 100644
--- a/generator/generator_c.ml
+++ b/generator/generator_c.ml
@@ -758,6 +758,13 @@ trace_send_line (guestfs_h *g)
 
 ";
 
+  (* Generate code for enter events. *)
+  let enter_event shortname =
+    pr "  guestfs___call_callbacks_message (g, GUESTFS_EVENT_ENTER,\n";
+    pr "                                    \"%s\", %d);\n"
+      shortname (String.length shortname)
+  in
+
   (* Generate code to check String-like parameters are not passed in
    * as NULL (returning an error if they are).
    *)
@@ -1027,6 +1034,7 @@ trace_send_line (guestfs_h *g)
            pr "  struct guestfs_%s_list *r;\n" typ
       );
       pr "\n";
+      enter_event shortname;
       check_null_strings shortname style;
       reject_unknown_optargs shortname style;
       trace_call shortname style;
@@ -1119,6 +1127,7 @@ trace_send_line (guestfs_h *g)
         pr "  const uint64_t progress_hint = 0;\n";
 
       pr "\n";
+      enter_event shortname;
       check_null_strings shortname style;
       reject_unknown_optargs shortname style;
       trace_call shortname style;