guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

09/15: gnu: system: Move <file-system-mapping> into (gnu system file-sys


From: David Thompson
Subject: 09/15: gnu: system: Move <file-system-mapping> into (gnu system file-systems).
Date: Fri, 03 Jul 2015 19:34:59 +0000

davexunit pushed a commit to branch wip-container
in repository guix.

commit eabba0441dfb4e7e0a07f383db518e890a056359
Author: David Thompson <address@hidden>
Date:   Sat Jun 27 10:45:34 2015 -0400

    gnu: system: Move <file-system-mapping> into (gnu system file-systems).
    
    * 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).
---
 gnu/system/file-systems.scm |   32 +++++++++++++++++++++++++++++++-
 gnu/system/vm.scm           |   22 ----------------------
 guix/scripts/system.scm     |    1 +
 3 files changed, 32 insertions(+), 23 deletions(-)

diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm
index 05c77fe..cbaca88 100644
--- a/gnu/system/file-systems.scm
+++ b/gnu/system/file-systems.scm
@@ -52,7 +52,16 @@
             mapped-device-kind
             mapped-device-kind?
             mapped-device-kind-open
-            mapped-device-kind-close))
+            mapped-device-kind-close
+
+            <file-system-mapping>
+            file-system-mapping
+            file-system-mapping?
+            file-system-mapping-source
+            file-system-mapping-target
+            file-system-mapping-writable?
+
+            %store-mapping))
 
 ;;; Commentary:
 ;;;
@@ -199,4 +208,25 @@ file system."
   (close     mapped-device-kind-close             ;source target -> gexp
              (default (const #~(const #f)))))
 
+
+;;;
+;;; Shared file systems, for VMs/containers.
+;;;
+
+;; 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)))
+
 ;;; file-systems.scm ends here
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index e194ed6..690022d 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -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 '_'.
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index aa9b3f8..6084ab8 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -30,6 +30,7 @@
   #:use-module (guix build utils)
   #:use-module (gnu build install)
   #:use-module (gnu system)
+  #:use-module (gnu system file-systems)
   #:use-module (gnu system vm)
   #:use-module (gnu system grub)
   #:use-module (gnu packages grub)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]