amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: system: Move <file-system-mapping> into (gnu system file-systems).

Browse source 
* gnu/system/vm.scm (<file-system-mapping>, %store-mapping): Move from here...
* gnu/system/file-systems.scm: ...to here.
* guix/scripts/system.scm: Import (gnu system file-systems).
This commit is contained in:
David Thompson 2015-06-27 10:45:34 -04:00 • committed by David Thompson
parent df3ce5c123
commit 9110c2e942
3 changed files with 32 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

22
gnu/system/vm.scm
View file

@ -58,12 +58,6 @@
qemu-image
system-qemu-image
file-system-mapping
file-system-mapping?
file-system-mapping-source
file-system-mapping-target
file-system-mapping-writable?
system-qemu-image/shared-store
system-qemu-image/shared-store-script
system-disk-image))
@ -354,22 +348,6 @@ of the GNU system as described by OS."
;;; VMs that share file systems with the host.
;;;
;; Mapping of host file system SOURCE to mount point TARGET in the guest.
(define-record-type* <file-system-mapping> file-system-mapping
make-file-system-mapping
file-system-mapping?
(source file-system-mapping-source) ;string
(target file-system-mapping-target) ;string
(writable? file-system-mapping-writable? ;Boolean
(default #f)))
(define %store-mapping
;; Mapping of the host's store into the guest.
(file-system-mapping
(source (%store-prefix))
(target (%store-prefix))
(writable? #f)))
(define (file-system->mount-tag fs)
"Return a 9p mount tag for host file system FS."
;; QEMU mount tags cannot contain slashes and cannot start with '_'.