Displaying 5 results from an estimated 5 matches for "1aba662".
2016 May 19
2
[PATCH] v2v: handle subfolders in ova files
...STS_ENVIRONMENT = $(top_builddir)/run --test
TESTS = \
test-v2v-i-ova-formats.sh \
test-v2v-i-ova-gz.sh \
+ test-v2v-i-ova-subfolders.sh \
test-v2v-i-ova-two-disks.sh \
test-v2v-copy-to-local.sh \
test-v2v-bad-networks-and-bridges.sh
diff --git a/v2v/input_ova.ml b/v2v/input_ova.ml
index 1aba662..b0d9357 100644
--- a/v2v/input_ova.ml
+++ b/v2v/input_ova.ml
@@ -165,6 +165,7 @@ object
) mf;
(* Parse the ovf file. *)
+ let ovf_folder = Filename.dirname ovf in
let xml = read_whole_file ovf in
let doc = Xml.parse_memory xml in
@@ -265,7 +266,7 @@ object
|...
2016 May 19
0
Re: [PATCH] v2v: handle subfolders in ova files
...> TESTS = \
> test-v2v-i-ova-formats.sh \
> test-v2v-i-ova-gz.sh \
> + test-v2v-i-ova-subfolders.sh \
> test-v2v-i-ova-two-disks.sh \
> test-v2v-copy-to-local.sh \
> test-v2v-bad-networks-and-bridges.sh
> diff --git a/v2v/input_ova.ml b/v2v/input_ova.ml
> index 1aba662..b0d9357 100644
> --- a/v2v/input_ova.ml
> +++ b/v2v/input_ova.ml
> @@ -165,6 +165,7 @@ object
> ) mf;
>
> (* Parse the ovf file. *)
> + let ovf_folder = Filename.dirname ovf in
> let xml = read_whole_file ovf in
> let doc = Xml.parse_memory xml i...
2016 Apr 21
2
[PATCH 1/2] sparsify: Refactor handling of checks of copying mode / --in-place.
Just refactoring, no change.
---
sparsify/cmdline.ml | 49 +++++++++++++++++++++++--------------------------
1 file changed, 23 insertions(+), 26 deletions(-)
diff --git a/sparsify/cmdline.ml b/sparsify/cmdline.ml
index ce2b913..bd49e71 100644
--- a/sparsify/cmdline.ml
+++ b/sparsify/cmdline.ml
@@ -98,6 +98,7 @@ read the man page virt-sparsify(1).
let check_tmpdir = !check_tmpdir in
let
2016 May 22
0
[PATCH 2/2] ocaml tools: Use a common debug function.
...ne
let parse_libvirt_xml ?conn xml =
- if verbose () then
- printf "libvirt xml is:\n%s\n" xml;
+ debug "libvirt xml is:\n%s" xml;
let doc = Xml.parse_memory xml in
let xpathctx = Xml.xpath_new_context doc in
diff --git a/v2v/input_ova.ml b/v2v/input_ova.ml
index 1aba662..65a2028 100644
--- a/v2v/input_ova.ml
+++ b/v2v/input_ova.ml
@@ -61,7 +61,7 @@ object
let untar ?(format = "") file outdir =
let cmd = sprintf "tar -x%sf %s -C %s" format (quote file) (quote outdir) in
- if verbose () then printf "%s\n%!"...
2016 May 22
4
ocaml tools: Use a common debug function.
Add a Common_utils.debug function for printing messages
only when in verbose mode.
Rich.