Displaying 2 results from an estimated 2 matches for "90f4c44".
2016 Jul 13
0
[PATCH v3 2/2] mllib: Getopt: support hidden options
...--debug-gc be considered really internal,
thus marked as such and removed from the documentations?
mllib/getopt.ml | 13 ++++++++++---
mllib/getopt.mli | 4 ++++
sysprep/main.ml | 4 ++--
3 files changed, 16 insertions(+), 5 deletions(-)
diff --git a/mllib/getopt.ml b/mllib/getopt.ml
index 90f4c44..550baa4 100644
--- a/mllib/getopt.ml
+++ b/mllib/getopt.ml
@@ -43,6 +43,8 @@ type t = {
usage_msg : usage_msg;
}
+let hidden_option_description = ""
+
external getopt_parse : string array -> (c_keys * spec * doc) array -> ?anon_fun:anon_fun -> usage_msg -> unit = "...
2016 Jul 13
3
[PATCH v3 1/2] OCaml tools: add and use a Getopt module
...how_error (EXIT_FAILURE);
+ }
+ v = Field (anon_funv, 0);
+ while (optind < (int) argc) {
+ v2 = caml_copy_string (argv[optind++]);
+ do_call1 (v, v2);
+ }
+ }
+
+ CAMLreturn (Val_unit);
+}
diff --git a/mllib/getopt.ml b/mllib/getopt.ml
new file mode 100644
index 0000000..90f4c44
--- /dev/null
+++ b/mllib/getopt.ml
@@ -0,0 +1,203 @@
+(* Command line handling for OCaml tools in libguestfs.
+ * Copyright (C) 2016 Red Hat Inc.
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+...