mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-22 07:03:38 +00:00
212762c593
Run the following command over the source: perl -pi.bak -e 's/(20[01][0-9])-2017/$1-2018/g' `git ls-files`
56 lines
2.7 KiB
OCaml
56 lines
2.7 KiB
OCaml
(* virt-v2v
|
|
* Copyright (C) 2009-2018 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.
|
|
*)
|
|
|
|
(** Detect which kernels are installed and offered by the bootloader. *)
|
|
|
|
type kernel_info = {
|
|
ki_app : Guestfs.application2; (** The RPM package data. *)
|
|
ki_name : string; (** eg. "kernel-PAE" *)
|
|
ki_version : string; (** version-release *)
|
|
ki_arch : string; (** Kernel architecture. *)
|
|
ki_vmlinuz : string; (** The path of the vmlinuz file. *)
|
|
ki_vmlinuz_stat : Guestfs.statns;(** stat(2) of vmlinuz *)
|
|
ki_initrd : string option; (** Path of initramfs, if found. *)
|
|
ki_modpath : string; (** The module path. *)
|
|
ki_modules : string list; (** The list of module names. *)
|
|
ki_supports_virtio_blk : bool; (** Kernel supports virtio-blk? *)
|
|
ki_supports_virtio_net : bool; (** Kernel supports virtio-net? *)
|
|
ki_supports_virtio_rng : bool; (** Kernel supports virtio-rng? *)
|
|
ki_supports_virtio_balloon : bool; (** Kernel supports memory balloon? *)
|
|
ki_supports_isa_pvpanic : bool; (** Kernel supports ISA pvpanic device? *)
|
|
ki_is_xen_pv_only_kernel : bool; (** Is a Xen paravirt-only kernel? *)
|
|
ki_is_debug : bool; (** Is debug kernel? *)
|
|
ki_config_file : string option; (** Path of config file, if found. *)
|
|
}
|
|
(** Kernel information. *)
|
|
|
|
val detect_kernels : Guestfs.guestfs -> Types.inspect ->
|
|
[> `Debian_family ] -> Linux_bootloaders.bootloader ->
|
|
kernel_info list
|
|
(** This function detects the kernels offered by the Linux
|
|
bootloader (eg. grub).
|
|
|
|
It will only return the intersection of kernels that are
|
|
installed and kernels that the bootloader knows about. The
|
|
first kernel in the returned list is the default boot option,
|
|
ie. what the guest would boot without interaction or overrides. *)
|
|
|
|
val print_kernel_info : out_channel -> string -> kernel_info -> unit
|
|
(** Print a kernel_info struct to the given output channel. The
|
|
second parameter is a prefix for indentation etc. *)
|