[Libguestfs] [PATCH 2/4] ocaml: Don't include guestfs-internal.h directly.
Jim Meyering
jim at meyering.net
Wed Jan 18 15:29:47 UTC 2012
Richard W.M. Jones wrote:
> From: "Richard W.M. Jones" <rjones at redhat.com>
>
> However since the OCaml bindings use guestfs_safe_strdup we need to
> export that (in the private functions section) from guestfs.h.
And guestfs_safe_memdup, obviously.
I presume this was motivated by the scope-limiting change?
Nice fall-out.
> ---
> generator/generator_c.ml | 2 ++
> ocaml/guestfs_c.h | 2 --
> 2 files changed, 2 insertions(+), 2 deletions(-)
>
> diff --git a/generator/generator_c.ml b/generator/generator_c.ml
> index 4324ec0..daa5c5b 100644
> --- a/generator/generator_c.ml
> +++ b/generator/generator_c.ml
> @@ -625,6 +625,8 @@ extern void *guestfs_next_private (guestfs_h *g, const char **key_rtn);
> extern void *guestfs_safe_malloc (guestfs_h *g, size_t nbytes);
> extern void *guestfs_safe_calloc (guestfs_h *g, size_t n, size_t s);
> extern const char *guestfs_tmpdir (void);
> +extern char *guestfs_safe_strdup (guestfs_h *g, const char *str);
> +extern void *guestfs_safe_memdup (guestfs_h *g, void *ptr, size_t size);
> #ifdef GUESTFS_PRIVATE_FOR_EACH_DISK
> extern int guestfs___for_each_disk (guestfs_h *g, virDomainPtr dom, int (*)(guestfs_h *g, const char *filename, const char *format, int readonly, void *data), void *data);
> #endif
> diff --git a/ocaml/guestfs_c.h b/ocaml/guestfs_c.h
> index a374bf2..2bcd577 100644
> --- a/ocaml/guestfs_c.h
> +++ b/ocaml/guestfs_c.h
> @@ -19,8 +19,6 @@
> #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;
More information about the Libguestfs
mailing list