mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

v2v: Split up 'amend_source' function.

Browse Source 
Just code motion.
This commit is contained in:
Richard W.M. Jones
2016-09-09 15:13:24 +01:00
parent 98619f9c26
commit 1ec78f34d8
1 changed files with 12 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
v2v/v2v.ml
View File

@@ -57,7 +57,8 @@ let rec main () =
);
let source = open_source cmdline input in
let source = amend_source cmdline source in
let source = set_source_name cmdline source in
let source = set_source_networks_and_bridges cmdline source in
let conversion_mode =
if not cmdline.in_place then (
@@ -189,17 +190,17 @@ and open_source cmdline input =
source
and amend_source cmdline source =
(* Map source name. *)
let source =
match cmdline.output_name with
| None -> source
(* Note the s_orig_name field retains the original name in case we
* need it for some reason.
*)
| Some name -> { source with s_name = name } in
(* Map source name. *)
and set_source_name cmdline source =
match cmdline.output_name with
| None -> source
(* Note the s_orig_name field retains the original name in case we
* need it for some reason.
*)
| Some name -> { source with s_name = name }
(* Map networks and bridges. *)
(* Map networks and bridges. *)
and set_source_networks_and_bridges cmdline source =
let nics = List.map (
fun ({ s_vnet_type = t; s_vnet = vnet } as nic) ->
try