Displaying 2 results from an estimated 2 matches for "with_alia".
Did you mean:
with_alias
2016 Jul 19
2
[PATCH v2 1/2] v2v: register also aliases of input/output modules
...put_modules
+and register ?alias name l =
+ push_front (name, false) l;
+ (match alias with
+ | None -> ()
+ | Some alias -> push_front (alias, true) l
+ )
-let input_modules () = List.sort compare !input_modules
-and output_modules () = List.sort compare !output_modules
+let list_out ~with_alias l =
+ let l =
+ if with_alias then l
+ else
+ List.filter (
+ fun (_, is_alias) ->
+ not is_alias
+ ) l in
+ let l = List.map fst l in
+ List.sort compare l
+
+let input_modules ?(with_alias = false) () = list_out ~with_alias !input_modules
+and output_modules...
2016 Jul 19
0
[PATCH v2 2/2] v2v: use Getopt.Symbol for few options
...L"debug-overlays" ], Getopt.Set debug_overlays, s_"Save overlay files";
- [ S 'i' ], Getopt.String (i_options, set_input_mode), s_"Set input mode (default: libvirt)";
+ [ S 'i' ], Getopt.Symbol (i_options, Modules_list.input_modules ~with_alias:true (), set_input_mode), s_"Set input mode (default: libvirt)";
[ M"ic" ], Getopt.String ("uri", set_string_option_once "-ic" input_conn),
s_"Libvirt URI";
[ M"if" ], Get...