search for: currentopset

On Thu, Jan 09, 2014 at 04:21:10PM +0100, Pino Toscano wrote: > + and set_operations op_string = > + let currentopset = > + match (!operations) with No need for parentheses around !operations. > + let n = ref op_name in > + let remove = string_prefix op_name "-" in > + if remove then > + n := String.sub op_name 1 (String.length op_name - 1); > +...

On Friday 10 January 2014 10:09:19 Richard W.M. Jones wrote: > On Thu, Jan 09, 2014 at 03:45:54PM +0000, Richard W.M. Jones wrote: > > On Thu, Jan 09, 2014 at 04:21:10PM +0100, Pino Toscano wrote: > > > + and set_operations op_string = > > > + let currentopset = > > > + match (!operations) with > > > > No need for parentheses around !operations. Fixed. > > > + let n = ref op_name in > > > + let remove = string_prefix op_name "-" in > > > + if remove then > > >...

...main.ml index 689a394..49750a9 100644 --- a/sysprep/main.ml +++ b/sysprep/main.ml @@ -87,6 +87,40 @@ let debug_gc, operations, g, selinux_relabel, quiet, mount_opts = exit 1 ) Sysprep_operation.empty_set ops in operations := Some opset + and set_operations op_string = + let currentopset = + match !operations with + | Some x -> x + | None -> Sysprep_operation.empty_set + in + let ops = string_nsplit "," op_string in + let opset = List.fold_left ( + fun opset op_name -> + let op = + if string_prefix op_name "-&quot...

On Thu, Jan 09, 2014 at 03:45:54PM +0000, Richard W.M. Jones wrote: > On Thu, Jan 09, 2014 at 04:21:10PM +0100, Pino Toscano wrote: > > + and set_operations op_string = > > + let currentopset = > > + match (!operations) with > > No need for parentheses around !operations. > > > + let n = ref op_name in > > + let remove = string_prefix op_name "-" in > > + if remove then > > + n := String.sub op_name 1...

On Tuesday 07 January 2014 12:12:43 Richard W.M. Jones wrote: > On Tue, Jan 07, 2014 at 11:16:08AM +0100, Pino Toscano wrote: > > On Friday 27 December 2013 10:58:15 you wrote: > > > virt-sysprep either runs with all default operations or a selected > > > list of operations with the --enable argument. A few times I've > > > found I'd like to use the

...`Remove n -> Sysprep_operation.remove_from_set in try f n opset with | Not_found -> - error (f_"--operations: '%s' is not a known operation") n + error (f_"--operations: ‘%s’ is not a known operation") n ) currentopset ops in operations := Some opset and list_operations () = diff --git a/sysprep/virt-sysprep.pod b/sysprep/virt-sysprep.pod index 89ba49426..2ec54c7a0 100644 --- a/sysprep/virt-sysprep.pod +++ b/sysprep/virt-sysprep.pod @@ -236,7 +236,7 @@ will do the same, plus mount F</var> with C...