/* libguestfs
- * Copyright (C) 2009 Red Hat Inc.
+ * Copyright (C) 2009-2011 Red Hat Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
#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);
+
+# ifdef __GNUC__
+# ifndef ATTRIBUTE_UNUSED
+# define ATTRIBUTE_UNUSED __attribute__((__unused__))
+# endif
+#else
+# ifndef ATTRIBUTE_UNUSED
+# define ATTRIBUTE_UNUSED
+# endif
+#endif
#endif /* GUESTFS_OCAML_C_H */