~ruther/guix-local

8a9e21d1f719748213414343cd02ec113ebe90c1 — Ludovic Courtès 11 years ago 548f7a8
Rename (gnu build linux-initrd) to (gnu build linux-boot).

* gnu/build/linux-initrd.scm: Rename to...
* gnu/build/linux-boot.scm: ... this.
* gnu-system.am (GNU_SYSTEM_MODULES): Adjust accordingly.
* gnu/build/activation.scm, gnu/build/vm.scm, gnu/services/base.scm,
  gnu/services/dmd.scm, gnu/system.scm, gnu/system/linux-initrd.scm,
  gnu/system/vm.scm: Adjust accordingly.
M gnu-system.am => gnu-system.am +1 -1
@@ 281,7 281,7 @@ GNU_SYSTEM_MODULES =				\
						\
  gnu/build/activation.scm			\
  gnu/build/install.scm				\
  gnu/build/linux-initrd.scm			\
  gnu/build/linux-boot.scm			\
  gnu/build/vm.scm



M gnu/build/activation.scm => gnu/build/activation.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu build activation)
  #:use-module (gnu build linux-initrd)
  #:use-module (gnu build linux-boot)
  #:use-module (guix build utils)
  #:use-module (ice-9 ftw)
  #:use-module (ice-9 match)

R gnu/build/linux-initrd.scm => gnu/build/linux-boot.scm +1 -1
@@ 16,7 16,7 @@
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu build linux-initrd)
(define-module (gnu build linux-boot)
  #:use-module (rnrs io ports)
  #:use-module (rnrs bytevectors)
  #:use-module (system foreign)

M gnu/build/vm.scm => gnu/build/vm.scm +1 -1
@@ 18,7 18,7 @@

(define-module (gnu build vm)
  #:use-module (guix build utils)
  #:use-module (gnu build linux-initrd)
  #:use-module (gnu build linux-boot)
  #:use-module (gnu build install)
  #:use-module (ice-9 match)
  #:use-module (ice-9 regex)

M gnu/services/base.scm => gnu/services/base.scm +1 -1
@@ 29,7 29,7 @@
  #:use-module ((gnu packages base)
                #:select (canonical-package glibc))
  #:use-module (gnu packages package-management)
  #:use-module ((gnu build linux-initrd)
  #:use-module ((gnu build linux-boot)
                #:select (mount-flags->bit-mask))
  #:use-module (guix gexp)
  #:use-module (guix monads)

M gnu/services/dmd.scm => gnu/services/dmd.scm +2 -2
@@ 35,7 35,7 @@
  (define modules
    ;; Extra modules visible to dmd.conf.
    '((guix build syscalls)
      (gnu build linux-initrd)
      (gnu build linux-boot)
      (guix build utils)))

  (mlet %store-monad ((modules  (imported-modules modules))


@@ 50,7 50,7 @@
          (use-modules (ice-9 ftw)
                       (guix build syscalls)
                       (guix build utils)
                       ((gnu build linux-initrd)
                       ((gnu build linux-boot)
                        #:select (check-file-system canonicalize-device-spec)))

          (register-services

M gnu/system.scm => gnu/system.scm +1 -1
@@ 363,7 363,7 @@ stateful part of OS, including user accounts and groups, special directories,
etc."
  (define %modules
    '((gnu build activation)
      (gnu build linux-initrd)
      (gnu build linux-boot)
      (guix build utils)))

  (define (service-activations services)

M gnu/system/linux-initrd.scm => gnu/system/linux-initrd.scm +3 -3
@@ 75,7 75,7 @@ initrd."
  (mlet* %store-monad ((source   (imported-modules modules))
                       (compiled (compiled-modules modules)))
    (define builder
      ;; TODO: Move most of this code to (gnu build linux-initrd).
      ;; TODO: Move most of this code to (gnu build linux-boot).
      #~(begin
          (use-modules (guix build utils)
                       (ice-9 pretty-print)


@@ 277,7 277,7 @@ exception and backtrace!)."

  (expression->initrd
   #~(begin
       (use-modules (gnu build linux-initrd)
       (use-modules (gnu build linux-boot)
                    (guix build utils)
                    (srfi srfi-26))



@@ 293,7 293,7 @@ exception and backtrace!)."
                    #:volatile-root? '#$volatile-root?))
   #:name "base-initrd"
   #:modules '((guix build utils)
               (gnu build linux-initrd))
               (gnu build linux-boot))
   #:to-copy helper-packages
   #:linux linux-libre
   #:linux-modules linux-modules))

M gnu/system/vm.scm => gnu/system/vm.scm +1 -1
@@ 114,7 114,7 @@ input tuple.  The output file name is when building for SYSTEM."
                                             (modules
                                              '((gnu build vm)
                                                (gnu build install)
                                                (gnu build linux-initrd)
                                                (gnu build linux-boot)
                                                (guix build utils)))
                                             (guile-for-build
                                              (%guile-for-build))