From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:56645) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dkRvK-0005jN-2f for guix-patches@gnu.org; Wed, 23 Aug 2017 05:26:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dkRvG-0007SC-3i for guix-patches@gnu.org; Wed, 23 Aug 2017 05:26:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:41645) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dkRvG-0007S1-0D for guix-patches@gnu.org; Wed, 23 Aug 2017 05:26:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dkRvF-0001W0-Q6 for guix-patches@gnu.org; Wed, 23 Aug 2017 05:26:01 -0400 Subject: [bug#28198] [PATCH 1/4] vm: Add disk-image-size to . References: <20170823101831.72c11e2f@cbaines.net> In-Reply-To: <20170823101831.72c11e2f@cbaines.net> Resent-Message-ID: From: Christopher Baines Date: Wed, 23 Aug 2017 10:25:13 +0100 Message-Id: <20170823092516.6846-1-mail@cbaines.net> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 28198@debbugs.gnu.org * gnu/system/vm.scm (): Add disk-image-size. (port-forwardings->qemu-options): Use disk-image-size from . --- gnu/system/vm.scm | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index 4494af003..45a14ef67 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -653,6 +653,8 @@ it is mostly useful when FULL-BOOT? is true." (default #f)) (memory-size virtual-machine-memory-size ;integer (MiB) (default 256)) + (disk-image-size virtual-machine-disk-image-size ;integer (bytes) + (default (* 70 (expt 2 20)))) (port-forwardings virtual-machine-port-forwardings ;list of integer pairs (default '()))) @@ -681,12 +683,15 @@ FORWARDINGS is a list of host-port/guest-port pairs." system target) ;; XXX: SYSTEM and TARGET are ignored. (match vm - (($ os qemu graphic? memory-size ()) + (($ os qemu graphic? disk-image-size memory-size ()) (system-qemu-image/shared-store-script os #:qemu qemu #:graphic? graphic? - #:memory-size memory-size)) - (($ os qemu graphic? memory-size forwardings) + #:memory-size memory-size + #:disk-image-size + disk-image-size)) + (($ os qemu graphic? memory-size disk-image-size + forwardings) (let ((options `("-net" ,(string-append "user," @@ -695,6 +700,8 @@ FORWARDINGS is a list of host-port/guest-port pairs." #:qemu qemu #:graphic? graphic? #:memory-size memory-size + #:disk-image-size + disk-image-size #:options options))))) ;;; vm.scm ends here -- 2.14.1