Displaying 2 results from an estimated 2 matches for "caml_open_descriptor_out".
2019 Mar 22
0
[PATCH 3/4] common/mltools: allow fd for machine readable output
...nspection and decryption code. */
int echo_keys = 0;
@@ -103,3 +107,16 @@ guestfs_int_mllib_set_keys_from_stdin (value unitv)
keys_from_stdin = 1;
return Val_unit;
}
+
+value
+guestfs_int_mllib_open_out_channel_from_fd (value fdv)
+{
+ CAMLparam1 (fdv);
+ struct channel *chan;
+
+ chan = caml_open_descriptor_out (Int_val (fdv));
+ if (!chan)
+ caml_raise_out_of_memory ();
+
+ CAMLreturn (caml_alloc_channel (chan));
+}
diff --git a/common/mltools/tools_utils.ml b/common/mltools/tools_utils.ml
index ade4cb37f..3c54cd4a0 100644
--- a/common/mltools/tools_utils.ml
+++ b/common/mltools/tools_utils.ml
@@ -3...
2019 Mar 22
8
[PATCH 0/4] OCaml tools: output messages as JSON machine
Enhance the output in machine parseable mode, by outputting all the
messages of OCaml tools as JSON to the machine parseable stream.
Related, although not strictly needed for this (and thus can be split
if requested), is the addition of the fd format for the machine
readable stream.
Pino Toscano (4):
common/mltools: move the code for machine readable up
common/mltools: make sure machine