mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-22 07:03:38 +00:00
ee02191483
Give the caller certain control over what kind of interface to use for virtual disks, network and video cards upon conversion. For that, make convert functions accept additional rcaps parameter containing an object with optional capabilities similar to the ones produced on output, with None indicating that the decision is left to the convert function itself. To facilicate review, this patch unconditionally passes rcaps with no preferences; populating it with more sensible values is done in a followup patch. Signed-off-by: Roman Kagan <rkagan@virtuozzo.com> Signed-off-by: "Richard W.M. Jones" <rjones@redhat.com>
50 lines
1.7 KiB
OCaml
50 lines
1.7 KiB
OCaml
(* virt-v2v
|
|
* Copyright (C) 2009-2016 Red Hat Inc.
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License along
|
|
* with this program; if not, write to the Free Software Foundation, Inc.,
|
|
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
*)
|
|
|
|
let input_modules = ref []
|
|
and output_modules = ref []
|
|
|
|
let register_input_module name =
|
|
input_modules := name :: !input_modules
|
|
and register_output_module name =
|
|
output_modules := name :: !output_modules
|
|
|
|
let input_modules () = List.sort compare !input_modules
|
|
and output_modules () = List.sort compare !output_modules
|
|
|
|
type conversion_fn =
|
|
keep_serial_console:bool ->
|
|
Guestfs.guestfs -> Types.inspect -> Types.source ->
|
|
Types.requested_guestcaps -> Types.guestcaps
|
|
|
|
let convert_modules = ref []
|
|
|
|
let register_convert_module inspect_fn name conversion_fn =
|
|
convert_modules := (inspect_fn, (name, conversion_fn)) :: !convert_modules
|
|
|
|
let find_convert_module inspect =
|
|
let rec loop = function
|
|
| [] -> raise Not_found
|
|
| (inspect_fn, ret) :: _ when inspect_fn inspect -> ret
|
|
| _ :: rest -> loop rest
|
|
in
|
|
loop !convert_modules
|
|
|
|
let convert_modules () =
|
|
List.sort compare (List.map (fun (_, (name, _)) -> name) !convert_modules)
|