diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2012-07-19 15:45:27 +0100 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2012-07-19 16:11:47 +0100 |
commit | 2e4089f30007e79bc157c775cfd3b326d22f2992 (patch) | |
tree | 18fe8842961b4e22a0e857748d6d40476909fd17 /ocaml/guestfs-c.h | |
parent | 6054051a9d8a5eee4141ca4b12aa5b7d1f36f56d (diff) | |
download | libguestfs-2e4089f30007e79bc157c775cfd3b326d22f2992.tar.gz libguestfs-2e4089f30007e79bc157c775cfd3b326d22f2992.tar.xz libguestfs-2e4089f30007e79bc157c775cfd3b326d22f2992.zip |
build: Rename most C files that contain underscore with dash.
This is just code motion.
Some files cannot be renamed. Notably rpcgen input and output files
must not contain dash characters, else rpcgen breaks.
Diffstat (limited to 'ocaml/guestfs-c.h')
-rw-r--r-- | ocaml/guestfs-c.h | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/ocaml/guestfs-c.h b/ocaml/guestfs-c.h new file mode 100644 index 00000000..8d379210 --- /dev/null +++ b/ocaml/guestfs-c.h @@ -0,0 +1,40 @@ +/* libguestfs + * Copyright (C) 2009-2012 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 + * License as published by the Free Software Foundation; either + * version 2 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + */ + +#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 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 */ |