Displaying 2 results from an estimated 2 matches for "75f21dc".
2015 Jul 13
2
[PATCH 1/2] utils: import parse_size from libguestfs
---
src/utils.ml | 21 +++++++++++++++++++++
src/utils.mli | 3 +++
2 files changed, 24 insertions(+)
diff --git a/src/utils.ml b/src/utils.ml
index 3e81c21..7ae24bd 100644
--- a/src/utils.ml
+++ b/src/utils.ml
@@ -204,3 +204,24 @@ let compare_architecture a1 a2 =
exit 1
in
compare (index_of_architecture a1) (index_of_architecture a2)
+
+(* Parse a size field, eg. "10G".
2015 Jul 13
0
[PATCH 2/2] Add --size for ext2 filesystem
...[O_WRONLY;O_CREAT;O_TRUNC;O_NOCTTY] 0o644 in
- LargeFile.ftruncate fd appliance_size;
+ let size =
+ match size with
+ | None -> default_appliance_size
+ | Some s -> s in
+ LargeFile.ftruncate fd size;
close fd;
let cmd =
diff --git a/src/prepare.ml b/src/prepare.ml
index 75f21dc..7e522e9 100644
--- a/src/prepare.ml
+++ b/src/prepare.ml
@@ -22,7 +22,7 @@ open Package_handler
open Utils
let prepare debug (copy_kernel, dtb_wildcard, format, host_cpu,
- packager_config, tmpdir, use_installed)
+ packager_config, tmpdir, use_installed, size)
inpu...