Displaying 6 results from an estimated 6 matches for "varref".
Did you mean:
var_ref
2015 Jan 27
1
[PATCH] customize: handle Arg.Set parameters in commands file
...generator/customize.ml b/generator/customize.ml
index 4844681..1c9092b 100644
--- a/generator/customize.ml
+++ b/generator/customize.ml
@@ -696,6 +696,7 @@ pr " ] in
(match spec with
| Arg.Unit fn -> fn ()
| Arg.String fn -> fn arg
+ | Arg.Set varref -> varref := true
| _ -> error \"INTERNAL error: spec not handled for %%s\" cmd
)
with Not_found ->
--
1.9.3
2016 Jun 27
0
Re: [PATCH] RFC: OCaml tools: add and use a Getopt module
...;--\" ^ cmd
> + fun ((keys, _, _), _, _) ->
> + List.mem (\"--\" ^ cmd) keys
> ) argspec in
> (match spec with
> - | Arg.Unit fn -> fn ()
> - | Arg.String fn -> fn arg
> - | Arg.Set varref -> varref := true
> + | Getopt.Unit fn -> fn ()
> + | Getopt.String (_, fn) -> fn arg
> + | Getopt.Set varref -> varref := true
> | _ -> error \"INTERNAL error: spec not handled for %%s\" cmd
> )
>...
2016 Jun 24
2
[PATCH] RFC: OCaml tools: add and use a Getopt module
...) ->
- key = \"--\" ^ cmd
+ fun ((keys, _, _), _, _) ->
+ List.mem (\"--\" ^ cmd) keys
) argspec in
(match spec with
- | Arg.Unit fn -> fn ()
- | Arg.String fn -> fn arg
- | Arg.Set varref -> varref := true
+ | Getopt.Unit fn -> fn ()
+ | Getopt.String (_, fn) -> fn arg
+ | Getopt.Set varref -> varref := true
| _ -> error \"INTERNAL error: spec not handled for %%s\" cmd
)
with Not_found ->
diff --gi...
2016 Jul 11
2
[PATCH v2] OCaml tools: add and use a Getopt module
...) ->
- key = \"--\" ^ cmd
+ fun ((keys, _, _), _, _) ->
+ List.mem (\"--\" ^ cmd) keys
) argspec in
(match spec with
- | Arg.Unit fn -> fn ()
- | Arg.String fn -> fn arg
- | Arg.Set varref -> varref := true
+ | Getopt.Unit fn -> fn ()
+ | Getopt.String (_, fn) -> fn arg
+ | Getopt.Set varref -> varref := true
| _ -> error \"INTERNAL error: spec not handled for %%s\" cmd
)
with Not_found ->
diff --gi...
2016 Jul 13
3
[PATCH v3 1/2] OCaml tools: add and use a Getopt module
...) ->
- key = \"--\" ^ cmd
+ fun ((keys, _, _), _, _) ->
+ List.mem (\"--\" ^ cmd) keys
) argspec in
(match spec with
- | Arg.Unit fn -> fn ()
- | Arg.String fn -> fn arg
- | Arg.Set varref -> varref := true
+ | Getopt.Unit fn -> fn ()
+ | Getopt.String (_, fn) -> fn arg
+ | Getopt.Set varref -> varref := true
| _ -> error \"INTERNAL error: spec not handled for %%s\" cmd
)
with Not_found ->
diff --gi...
2019 Oct 15
4
Splitting the large libguestfs repo
I got a little way into this. The two attached patches are
preliminary work.
My proposed split is:
libguestfs.git
common -> git submodule libguestfs-common.git
generator/
lib/
all language bindings
C based tools (eg. virt-df, virt-edit, guestfish)
guestfs-tools.git
common -> git submodule libguestfs-common.git