search for: operationset

...quot; " ^ > > s_"Enable/disable specific operations"; > > I'd also add an alias "--operation" (it would just do the same thing). Added. > > +let add_list_to_opset l s = > > + List.fold_left ( > > + fun acc elem -> > > + OperationSet.add elem acc > > + ) s l > > + > > +let remove_list_from_opset l set = > > + OperationSet.fold ( > > + fun elem opset -> > > + if List.exists ( > > + fun li -> > > + li.name = elem.name > > + ) l then > &g...

...bel", Arg.Unit force_selinux_relabel, " " ^ s_"Force SELinux relabel"; diff --git a/sysprep/sysprep_operation.ml b/sysprep/sysprep_operation.ml index 1fb4f17..572a65f 100644 --- a/sysprep/sysprep_operation.ml +++ b/sysprep/sysprep_operation.ml @@ -68,10 +68,34 @@ type set = OperationSet.t let empty_set = OperationSet.empty +let opset_of_oplist li = + List.fold_left ( + fun acc elem -> + OperationSet.add elem acc + ) empty_set li + let add_to_set name set = let op = List.find (fun { name = n } -> name = n) !all_operations in OperationSet.add op set +le...

...--operations", Arg.String set_operations, " " ^ s_"Enable/disable specific operations"; I'd also add an alias "--operation" (it would just do the same thing). > +let add_list_to_opset l s = > + List.fold_left ( > + fun acc elem -> > + OperationSet.add elem acc > + ) s l > + > +let remove_list_from_opset l set = > + OperationSet.fold ( > + fun elem opset -> > + if List.exists ( > + fun li -> > + li.name = elem.name > + ) l then > + opset > + else > + O...

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

...p/sysprep_operation.ml b/sysprep/sysprep_operation.ml index 5bc1efa..af2004e 100644 --- a/sysprep/sysprep_operation.ml +++ b/sysprep/sysprep_operation.ml @@ -279,7 +279,7 @@ let perform_operations_on_filesystems ?operations g root | Some opset -> (* just the operation names listed *) OperationSet.elements opset in - (* Perform the operations in alphabetical, rathern than random order. *) + (* Perform the operations in alphabetical, rather than random order. *) let ops = List.sort compare_operations ops in List.iter ( @@ -300,7 +300,7 @@ let perform_operations_on_devices ?operati...

This patch is incomplete but it illustrates the idea. virt-sysprep is rewritten as a modular tool in OCaml. Only the 'utmp' and 'hostname' operations are implemented at the moment. Rich.

--- sysprep/sysprep_operation.mli | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/sysprep/sysprep_operation.mli b/sysprep/sysprep_operation.mli index 61dde72..eb89db4 100644 --- a/sysprep/sysprep_operation.mli +++ b/sysprep/sysprep_operation.mli @@ -16,14 +16,16 @@ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. *) -(** Structure used to describe sysprep

Version 1 of the patch, for discussion, but not to be applied. It does work, but needs a lot more testing. This removes all the psychopathic gettextify cruft, and replaces it with a 99 line Makefile.am. A large win, I think. The third patch implements gettext support in the OCaml tools. The fourth patch is just for illustration. It shows the consequent changes to libguestfs.pot and the po