nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vm: Display the disk and partition sizes. 

* gnu/build/vm.scm (load-in-linux-vm): Add 'format' call when
MAKE-DISK-IMAGE? is true.
(initialize-partition-table): Show the size of the partitions being
created.
This commit is contained in:
Ludovic Courtès 2017-06-29 23:26:35 +02:00
parent 6efb98ed3c
commit a2cf57e79e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/build/vm.scm
View File

@ -85,6 +85,9 @@ access it via /dev/hda.
REFERENCES-GRAPHS can specify a list of reference-graph files as produced by REFERENCES-GRAPHS can specify a list of reference-graph files as produced by
the #:references-graphs parameter of 'derivation'." the #:references-graphs parameter of 'derivation'."
(when make-disk-image? (when make-disk-image?
(format #t "creating ~a image of ~,2f MiB...~%"
disk-image-format (/ disk-image-size (expt 2 20)))
(force-output)
(unless (zero? (system* "qemu-img" "create" "-f" disk-image-format (unless (zero? (system* "qemu-img" "create" "-f" disk-image-format
output output
(number->string disk-image-size))) (number->string disk-image-size)))
@ -193,8 +196,15 @@ actual /dev name based on DEVICE."
(cons (partition-options head offset index) (cons (partition-options head offset index)
result)))))) result))))))
(format #t "creating partition table with ~a partitions...\n" (format #t "creating partition table with ~a partitions (~a)...\n"
(length partitions)) (length partitions)
(string-join (map (compose (cut string-append <> " MiB")
number->string
(lambda (size)
(round (/ size (expt 2. 20))))
partition-size)
partitions)
", "))
(unless (zero? (apply system* "parted" "--script" (unless (zero? (apply system* "parted" "--script"
device "mklabel" label-type device "mklabel" label-type
(options partitions offset))) (options partitions offset)))