Displaying 1 result from an estimated 1 matches for "829cb50".
Did you mean:
28acb50
2016 Jul 11
2
[PATCH v2] 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..829cb50
--- /dev/null
+++ b/mllib/getopt.ml
@@ -0,0 +1,67 @@
+(* Common utilities 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
+ * the...