Displaying 5 results from an estimated 5 matches for "generate_all_head".
2016 Nov 08
4
[PATCH 1/3] generator: c: move internal functions
Move the generate_all_structs and generate_all_headers functions,
previously internal within the implementation of generate_guestfs_h, to
be usable by other functions in the same "C" module (but not public).
Only code motion.
---
generator/c.ml | 163 +++++++++++++++++++++++++++++----------------------------
1 file changed, 82 insertions...
2016 Nov 08
0
[PATCH 2/3] Split internal stuff out of guestfs.h
...tions_sorted =
+ List.filter is_internal (actions |> sort)
+
(* Generate a C function prototype. *)
let rec generate_prototype ?(extern = true) ?(static = false)
?(semicolon = true)
@@ -607,13 +616,6 @@ extern GUESTFS_DLL_PUBLIC void *guestfs_next_private (guestfs_h *g, const char *
generate_all_headers private_functions_sorted;
- pr "\
-/* Private structures. */
-
-";
-
- generate_all_structs internal_structs;
-
pr "\
#endif /* End of GUESTFS_PRIVATE. */
@@ -650,6 +652,34 @@ pr "\
#endif /* GUESTFS_H_ */
"
+(* Generate the guestfs-private.h file. *)
+and ge...
2013 Jan 30
1
[PATCH] Make internal-only functions and structures private
...*);\n" typ typ;
pr "\n"
- ) structs;
+ ) in
+
+ generate_all_structs external_structs;
pr "\
/* Actions. */
@@ -673,7 +675,7 @@ extern GUESTFS_DLL_PUBLIC void *guestfs_next_private (guestfs_h *g, const char *
pr "\n"
in
- List.iter (
+ let generate_all_headers = List.iter (
fun ({ name = name; style = ret, args, _ } as f) ->
(* If once_had_no_optargs is set, then we need to generate a
* <name>_opts variant, plus a backwards-compatible wrapper
@@ -685,18 +687,19 @@ extern GUESTFS_DLL_PUBLIC void *guestfs_next_private (guest...
2017 Oct 04
0
[PATCH 2/9] ocaml: Replace pattern matching { field = field } with { field }.
...cated_by } =
+ deprecated_by } =
pr "#define GUESTFS_HAVE_%s 1\n" (String.uppercase_ascii shortname);
if optargs <> [] then (
@@ -705,7 +705,7 @@ extern GUESTFS_DLL_PUBLIC void *guestfs_next_private (guestfs_h *g, const char *
in
let generate_all_headers = List.iter (
- fun ({ name = name; style = ret, args, _ } as f) ->
+ fun ({ name; style = ret, args, _ } as f) ->
(* If once_had_no_optargs is set, then we need to generate a
* <name>_opts variant, plus a backwards-compatible wrapper
* called just <na...
2017 Oct 04
11
[PATCH 0/9] build: Require OCaml >= 4.02.
Per my previous email:
https://www.redhat.com/archives/libguestfs/2017-September/msg00203.html
I'd like to talk about requiring a more modern version of the OCaml
compiler.
These commits show some of the code changes which would be possible
with OCaml >= 3.12 [which it turns out we already require by accident]
and also with OCaml >= 4.02. The latter is my favoured option.
Rich.