search for: add_drive_uri

Displaying 7 results from an estimated 7 matches for "add_drive_uri".

Did you mean: add_drive_ro
2017 Feb 06
1
[PATCH v3] resize: support non-local output disks (RHBZ#1404182)
...xpand, expand_content, extra_partition, format, ignores, @@ -326,16 +333,25 @@ read the man page virt-resize(1). let btrfs_available = ref true in let xfs_available = ref true in + (* Add a drive to an handle using the elements of the URI, + * and few additional parameters. + *) + let add_drive_uri (g : Guestfs.guestfs) ?format ?readonly ?cachemode + uri = + let { URI.path = path; protocol = protocol; + server = server; username = username; + password = password } = uri in + g#add_drive ?format ?readonly ?cachemode + ~protocol ?server ?username ?secret:password...
2018 Aug 20
0
[PATCH 2/2] OCaml tools: simplify machine-readable handling
...orce, output_format, resizes, resizes_force, shrink, sparse, unknown_fs_mode in (* Default to true, since NTFS/btrfs/XFS/f2fs support are usually available. *) @@ -356,7 +353,7 @@ read the man page virt-resize(1). (* The output disk is being created, so use cache=unsafe here. *) add_drive_uri g ?format:output_format ~readonly:false ~cachemode:"unsafe" (snd outfile); - if not (quiet ()) then Progress.set_up_progress_bar ~machine_readable g; + if not (quiet ()) then Progress.set_up_progress_bar ~machine_readable:(machine_readable ()) g; g#launch (); (* S...
2018 Aug 20
2
[PATCH 1/2] mlstdutils/mltools: factorize the machine-readable option
Store the machine-readable flag globally, just like done for verbose/debug/etc, and enhance create_standard_options to provide --machine-readable automatically. --- common/mlstdutils/std_utils.ml | 4 ++++ common/mlstdutils/std_utils.mli | 7 +++++-- common/mltools/tools_utils.ml | 7 ++++++- common/mltools/tools_utils.mli | 5 ++++- 4 files changed, 19 insertions(+), 4 deletions(-) diff
2018 Aug 23
3
[PATCH v2 0/2] add output selection for --machine-readable
Hi, this adds the possibility to select the output for --machine-readable in OCaml tools. The possible choices are: * --machine-readable: to stdout, like before * --machine-readable=file:name-of-file: to the specified file * --machine-readable=stream:stdout: explicitly to stdout * --machine-readable=stream:stderr: explicitly to stderr This makes it possible to add additional output for
2018 Aug 23
0
[PATCH v2 2/2] OCaml tools: add output selection for --machine-readable
...quot; |] then - printf "f2fs\n"; + pr "f2fs\n"; exit 0 + | _, _ -> () ); (* Verify we got exactly 2 disks. *) @@ -353,7 +355,10 @@ read the man page virt-resize(1). (* The output disk is being created, so use cache=unsafe here. *) add_drive_uri g ?format:output_format ~readonly:false ~cachemode:"unsafe" (snd outfile); - if not (quiet ()) then Progress.set_up_progress_bar ~machine_readable:(machine_readable ()) g; + if not (quiet ()) then ( + let machine_readable = machine_readable () <> None in + Pro...
2017 Oct 04
0
[PATCH 2/9] ocaml: Replace pattern matching { field = field } with { field }.
...) dirs in if dirs <> [ ".", 'd'; diff --git a/resize/resize.ml b/resize/resize.ml index a19e57564..49fdfd538 100644 --- a/resize/resize.ml +++ b/resize/resize.ml @@ -339,9 +339,7 @@ read the man page virt-resize(1). * and few additional parameters. *) let add_drive_uri (g : Guestfs.guestfs) ?format ?readonly ?cachemode - { URI.path = path; protocol = protocol; - server = server; username = username; - password = password } = + { URI.path; protocol; server; username; password } =...
2017 Oct 04
11
[PATCH 0/9] build: Require OCaml >= 4.02.
Per my previous email: https://www.redhat.com/archives/libguestfs/2017-September/msg00203.html I'd like to talk about requiring a more modern version of the OCaml compiler. These commits show some of the code changes which would be possible with OCaml >= 3.12 [which it turns out we already require by accident] and also with OCaml >= 4.02. The latter is my favoured option. Rich.