diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-04-09 12:13:22 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-04-09 14:01:31 +0200 |
| commit | f200b03e06b6561a356231e6c035f6f220c28a88 (patch) | |
| tree | 79131f098c5c1ce2e4a7789e7cad3007dbcef705 /gnu | |
| parent | e1f88ff0ab1c5bb6c234d27ab0887a73a496073e (diff) | |
vm: 'expression->derivation-in-linux-vm' uses QEMU virtfs/9p.
* gnu/system/vm.scm (expression->derivation-in-linux-vm): Change #:qemu
to default to QEMU-HEADLESS. Use "-net nic,model=virtio". Remove
"-net user,smb=..." and add "-virtfs" options. Change default initrd
to include two 9p mounts.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/system/vm.scm | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index a23289a30b..6ed183634f 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -70,7 +70,7 @@ (inputs '()) (linux linux-libre) initrd - (qemu qemu/smb-shares) + (qemu qemu-headless) (env-vars '()) (modules '()) (guile-for-build @@ -157,8 +157,13 @@ made available under the /xchg CIFS share." (and (zero? (system* qemu "-enable-kvm" "-nographic" "-no-reboot" - "-net" "nic,model=e1000" - "-net" (string-append "user,smb=" (getcwd)) + "-net" "nic,model=virtio" + "-virtfs" + ,(string-append "local,id=store_dev,path=" (%store-prefix) + ",security_model=none,mount_tag=store") + "-virtfs" + ,(string-append "local,id=xchg_dev,path=xchg" + ",security_model=none,mount_tag=xchg") "-kernel" linux "-initrd" initrd "-append" (string-append "console=ttyS0 --load=" @@ -182,7 +187,9 @@ made available under the /xchg CIFS share." (coreutils -> (car (assoc-ref %final-inputs "coreutils"))) (initrd (if initrd ; use the default initrd? (return initrd) - (qemu-initrd #:guile-modules-in-chroot? #t))) + (qemu-initrd #:guile-modules-in-chroot? #t + #:mounts `((9p "store" ,(%store-prefix)) + (9p "xchg" "/xchg"))))) (inputs (lower-inputs `(("qemu" ,qemu) ("linux" ,linux) ("initrd" ,initrd) @@ -304,7 +311,7 @@ such as /etc files." (begin (display "creating ext3 partition...\n") (and (zero? (system* mkfs "-F" "/dev/sda1")) - (let ((store (string-append "/fs" ,%store-directory))) + (let ((store (string-append "/fs" ,(%store-prefix)))) (display "mounting partition...\n") (mkdir "/fs") (mount "/dev/sda1" "/fs" "ext3") |