X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fguestfs_c.h;h=29da05323dce19103aa53e2ffb53a7cd57eed6ad;hp=3da41d05f814a286c6768c6efbd01305e42905c8;hb=61da709722ec244da1c3c7d4f1a8706f76687cb3;hpb=13339826ea01f8dbd581b5d2544e7692171cf386

diff --git a/ocaml/guestfs_c.h b/ocaml/guestfs_c.h
index 3da41d0..29da053 100644
--- a/ocaml/guestfs_c.h
+++ b/ocaml/guestfs_c.h
@@ -19,8 +19,14 @@
 #ifndef GUESTFS_OCAML_C_H
 #define GUESTFS_OCAML_C_H
 
+#include "guestfs-internal.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 void ocaml_guestfs_raise_closed (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 */