Displaying 3 results from an estimated 3 matches for "disk_absolute".
2016 Aug 08
1
[PATCH] sparsify, v2v: use Common_utils.absolute_path
...sk.ml b/v2v/input_disk.ml
index d56c476..3926602 100644
--- a/v2v/input_disk.ml
+++ b/v2v/input_disk.ml
@@ -63,9 +63,7 @@ class input_disk input_format disk = object
error (f_"-i disk: invalid input filename (%s)") disk;
(* Get the absolute path to the disk file. *)
- let disk_absolute =
- if not (Filename.is_relative disk) then disk
- else Sys.getcwd () // disk in
+ let disk_absolute = absolute_path disk in
(* The rest of virt-v2v doesn't actually work unless we detect
* the format of the input, so:
diff --git a/v2v/input_ova.ml b/v2v/input_ova.ml
i...
2016 Sep 09
0
[PATCH 1/2] v2v: -i disk: Move code that creates name from disk to separate module.
...else
- loop xs
- | [] -> name
- in
- loop suffixes in
- if name = "" then
- error (f_"-i disk: invalid input filename (%s)") disk;
+ let name = name_from_disk disk in
(* Get the absolute path to the disk file. *)
let disk_absolute = absolute_path disk in
diff --git a/v2v/name_from_disk.ml b/v2v/name_from_disk.ml
new file mode 100644
index 0000000..73caf34
--- /dev/null
+++ b/v2v/name_from_disk.ml
@@ -0,0 +1,41 @@
+(* virt-v2v
+ * Copyright (C) 2009-2016 Red Hat Inc.
+ *
+ * This program is free software; you can redistribute...
2016 Sep 09
5
[PATCH 0/2] v2v: -i ova: Derive the name from the OVA filename.
Don't use "default", choose a better default name if <Name> is not
present in the OVF.
Rich.