Libguestfs - Jan 2015 - [PATCH] customize: handle Arg.Set parameters in commands file

When reading commands from a file, handle also Arg.Set parameters, so
they can be enabled as well.
---
 generator/customize.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/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

On Tue, Jan 27, 2015 at 06:37:39PM +0100, Pino Toscano
wrote:
> When reading commands from a file, handle also Arg.Set parameters, so
> they can be enabled as well.
> ---
>  generator/customize.ml | 1 +
>  1 file changed, 1 insertion(+)
> 
> diff --git a/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
ACK.

Rich.

-- 
Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones
Read my programming and virtualization blog: http://rwmj.wordpress.com
virt-builder quickly builds VMs from scratch
http://libguestfs.org/virt-builder.1.html