search for: transform_fn

Simple refactoring, no actual behaviour changes. --- get-kernel/get_kernel.ml | 188 ++++++++++++++++++++++++----------------------- 1 file changed, 95 insertions(+), 93 deletions(-) diff --git a/get-kernel/get_kernel.ml b/get-kernel/get_kernel.ml index 8ca7ca0..3b27740 100644 --- a/get-kernel/get_kernel.ml +++ b/get-kernel/get_kernel.ml @@ -23,104 +23,106 @@ module G = Guestfs open Printf

...if not specified. --- get-kernel/get_kernel.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/get-kernel/get_kernel.ml b/get-kernel/get_kernel.ml index 233d459..8786bf3 100644 --- a/get-kernel/get_kernel.ml +++ b/get-kernel/get_kernel.ml @@ -142,7 +142,8 @@ let rec do_fetch ~transform_fn ~outputdir g root = List.iter ( fun f -> let dest = outputdir // transform_fn f in - printf "download: %s -> %s\n%!" f dest; + if not (quiet ()) then + printf "download: %s -> %s\n%!" f dest; g#download f dest; ) files; -- 2....

...o the customization. *) Customize_run.run g root ops; diff --git a/get-kernel/get_kernel.ml b/get-kernel/get_kernel.ml index 6f26ca4..ed88d11 100644 --- a/get-kernel/get_kernel.ml +++ b/get-kernel/get_kernel.ml @@ -122,14 +122,7 @@ read the man page virt-get-kernel(1). let rec do_fetch ~transform_fn ~outputdir g root = (* Mount up the disks. *) - let mps = g#inspect_get_mountpoints root in - let cmp (a,_) (b,_) = compare (String.length a) (String.length b) in - let mps = List.sort cmp mps in - List.iter ( - fun (mp, dev) -> - try g#mount_ro dev mp - with Guestfs.Error ms...

...| 2 +- > 25 files changed, 25 insertions(+), 25 deletions(-) > > diff --git a/get-kernel/get_kernel.ml b/get-kernel/get_kernel.ml > index 812138f..6f26ca4 100644 > --- a/get-kernel/get_kernel.ml > +++ b/get-kernel/get_kernel.ml > @@ -149,7 +149,7 @@ let rec do_fetch ~transform_fn ~outputdir g root = > > g#umount_all () > > -and pick_kernel_files_linux g root = > +and pick_kernel_files_linux (g : Guestfs.guestfs) root = > (* Get all kernels and initramfses. *) > let glob w = Array.to_list (g#glob_expand w) in > let kernels = glob &quot...

...ysprep_operation_tmp_files.ml | 2 +- 25 files changed, 25 insertions(+), 25 deletions(-) diff --git a/get-kernel/get_kernel.ml b/get-kernel/get_kernel.ml index 812138f..6f26ca4 100644 --- a/get-kernel/get_kernel.ml +++ b/get-kernel/get_kernel.ml @@ -149,7 +149,7 @@ let rec do_fetch ~transform_fn ~outputdir g root = g#umount_all () -and pick_kernel_files_linux g root = +and pick_kernel_files_linux (g : Guestfs.guestfs) root = (* Get all kernels and initramfses. *) let glob w = Array.to_list (g#glob_expand w) in let kernels = glob "/boot/vmlinuz-*" in diff --git a/s...

...100644 --- a/get-kernel/get_kernel.ml +++ b/get-kernel/get_kernel.ml @@ -112,7 +112,7 @@ read the man page virt-get-kernel(1). let unversioned = !unversioned in let prefix = !prefix in - add, output, unversioned, prefix + add, output, unversioned, prefix, opthandle.ks let rec do_fetch ~transform_fn ~outputdir g root = (* Mount up the disks. *) @@ -166,7 +166,7 @@ and pick_kernel_files_linux (g : Guestfs.guestfs) root = (* Main program. *) let main () = - let add, output, unversioned, prefix = parse_cmdline () in + let add, output, unversioned, prefix, ks = parse_cmdline () in (*...

Hi, the following series adds a --key option in the majority of tools: this makes it possible to pass LUKS credentials programmatically, avoid the need to manually input them, or unsafely pass them via stdin. Thanks, Pino Toscano (2): mltools: create a cmdline_options struct Introduce a --key option in tools that accept keys builder/cmdline.ml | 2 +-

...k_link> If the entry is a symbolic link, this field will contain the path to the target file. diff --git a/get-kernel/get_kernel.ml b/get-kernel/get_kernel.ml index d57f7b228..e45838811 100644 --- a/get-kernel/get_kernel.ml +++ b/get-kernel/get_kernel.ml @@ -124,7 +124,7 @@ let rec do_fetch ~transform_fn ~outputdir g root = match typ with | "linux" -> pick_kernel_files_linux g root | typ -> - error (f_"operating system '%s' not supported") typ in + error (f_"operating system ‘%s’ not supported") typ in (* Download the files....