X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fguestfs_c.h;h=b4a766177ea37d83c01a52153f5670f81e319293;hp=52b5aeaa2877ef9a27ab603fa55bbc03c57b3cac;hb=ad8a256f54a6cb99f89bb444c8597a152a793dce;hpb=4144e2106cc70ad8f1e081b57da09f9c1e276812;ds=sidebyside

diff --git a/ocaml/guestfs_c.h b/ocaml/guestfs_c.h
index 52b5aea..b4a7661 100644
--- a/ocaml/guestfs_c.h
+++ b/ocaml/guestfs_c.h
@@ -19,6 +19,10 @@
 #ifndef GUESTFS_OCAML_C_H
 #define GUESTFS_OCAML_C_H
 
-
+#define Guestfs_val(v) (*((guestfs_h **)Data_custom_val(v)))
+extern void ocaml_guestfs_raise_error (guestfs_h *g, const char *func)
+  Noreturn;
+extern char **ocaml_guestfs_strings_val (guestfs_h *g, value sv);
+extern void ocaml_guestfs_free_strings (char **r);
 
 #endif /* GUESTFS_OCAML_C_H */