From bdb36958fb50fa5d9fb8b79a32a41fa74a619563 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 27 Aug 2014 00:25:17 +0200 Subject: gnu: Split (gnu packages base), adding (gnu packages commencement). * gnu/packages/base.scm (gnu-make-boot0, diffutils-boot0, findutils-boot0, %boot0-inputs, nix-system->gnu-triplet, boot-triplet, binutils-boot0, gcc-boot0, perl-boot0, linux-libre-headers-boot0, texinfo-boot0, %boot1-inputs, glibc-final-with-bootstrap-bash, cross-gcc-wrapper, static-bash-for-glibc, glibc-final, gcc-boot0-wrapped, %boot2-inputs, binutils-final, libstdc++, gcc-final, ld-wrapper-boot3, %boot3-inputs, bash-final, %boot4-inputs, guile-final, gnu-make-final, ld-wrapper, coreutils-final, grep-final, %boot5-inputs, %final-inputs, canonical-package, gcc-toolchain, gcc-toolchain-4.8, gcc-toolchain-4.9): Move to... * gnu/packages/commencement.scm: ... here. New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. * build-aux/check-final-inputs-self-contained.scm: Adjust accordingly. * gnu/packages/cross-base.scm: Likewise. * gnu/packages/make-bootstrap.scm: Likewise. * guix/build-system/cmake.scm (cmake-build): Likewise. * guix/build-system/gnu.scm (standard-packages, gnu-build, gnu-cross-build): Likewise. * guix/build-system/perl.scm (perl-build): Likewise. * guix/build-system/python.scm (python-build): Likewise. * guix/build-system/trivial.scm (guile-for-build): Likewise. * guix/download.scm (url-fetch): Likewise. * guix/gexp.scm (default-guile): Likewise. * guix/git-download.scm (git-fetch): Likewise. * guix/monads.scm (run-with-store): Likewise. * guix/packages.scm (default-guile): Likewise. * guix/scripts/package.scm (guix-package): Likewise. * guix/scripts/refresh.scm: Likewise. * guix/svn-download.scm (svn-fetch): Likewise. * tests/builders.scm (%bootstrap-inputs, %bootstrap-search-paths): Likewise. * tests/packages.scm ("GNU Make, bootstrap"): Likewise. * tests/guix-package.sh: Likewise. * gnu/services/base.scm: Use 'canonical-package' instead of xxx-final. * gnu/services/xorg.scm: Likewise. * gnu/system/vm.scm: Likewise. * guix/scripts/pull.scm (guix-pull): Likewise. --- guix/build-system/cmake.scm | 4 ++-- guix/build-system/gnu.scm | 8 ++++---- guix/build-system/perl.scm | 4 ++-- guix/build-system/python.scm | 4 ++-- guix/build-system/trivial.scm | 4 ++-- guix/download.scm | 4 ++-- guix/gexp.scm | 2 +- guix/git-download.scm | 2 +- guix/monads.scm | 2 +- guix/packages.scm | 2 +- guix/scripts/package.scm | 12 +++++++----- guix/scripts/pull.scm | 5 +++-- guix/scripts/refresh.scm | 2 +- guix/svn-download.scm | 2 +- 14 files changed, 30 insertions(+), 27 deletions(-) (limited to 'guix') diff --git a/guix/build-system/cmake.scm b/guix/build-system/cmake.scm index 8c9a32c8ab..0fc7b62c1b 100644 --- a/guix/build-system/cmake.scm +++ b/guix/build-system/cmake.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès +;;; Copyright © 2013, 2014 Ludovic Courtès ;;; Copyright © 2013 Cyril Roelandt ;;; ;;; This file is part of GNU Guix. @@ -99,7 +99,7 @@ provides a 'CMakeLists.txt' file as its build system." ((and (? string?) (? derivation-path?)) guile) (#f ; the default - (let* ((distro (resolve-interface '(gnu packages base))) + (let* ((distro (resolve-interface '(gnu packages commencement))) (guile (module-ref distro 'guile-final))) (package-derivation store guile system))))) diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm index 2c41ce0eb4..7c9b6ca398 100644 --- a/guix/build-system/gnu.scm +++ b/guix/build-system/gnu.scm @@ -209,8 +209,8 @@ listed in REFS." "Return the list of (NAME PACKAGE OUTPUT) or (NAME PACKAGE) tuples of standard packages used as implicit inputs of the GNU build system." - ;; Resolve (gnu packages base) lazily to hide circular dependency. - (let ((distro (resolve-module '(gnu packages base)))) + ;; Resolve (gnu packages commencement) lazily to hide circular dependency. + (let ((distro (resolve-module '(gnu packages commencement)))) (module-ref distro '%final-inputs))) (define* (inputs-search-paths inputs @@ -347,7 +347,7 @@ are allowed to refer to." ;; ((and (? string?) (? derivation-path?)) ;; guile) (#f ; the default - (let* ((distro (resolve-interface '(gnu packages base))) + (let* ((distro (resolve-interface '(gnu packages commencement))) (guile (module-ref distro 'guile-final))) (package-derivation store guile system))))) @@ -533,7 +533,7 @@ platform." ;; ((and (? string?) (? derivation-path?)) ;; guile) (#f ; the default - (let* ((distro (resolve-interface '(gnu packages base))) + (let* ((distro (resolve-interface '(gnu packages commencement))) (guile (module-ref distro 'guile-final))) (package-derivation store guile system))))) diff --git a/guix/build-system/perl.scm b/guix/build-system/perl.scm index e8fe2d56c8..993cd7448e 100644 --- a/guix/build-system/perl.scm +++ b/guix/build-system/perl.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès +;;; Copyright © 2013, 2014 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -93,7 +93,7 @@ provides a `Makefile.PL' file as its build system." ((and (? string?) (? derivation-path?)) guile) (#f ; the default - (let* ((distro (resolve-interface '(gnu packages base))) + (let* ((distro (resolve-interface '(gnu packages commencement))) (guile (module-ref distro 'guile-final))) (package-derivation store guile system))))) diff --git a/guix/build-system/python.scm b/guix/build-system/python.scm index 7e26864653..dfb8b4a137 100644 --- a/guix/build-system/python.scm +++ b/guix/build-system/python.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès +;;; Copyright © 2013, 2014 Ludovic Courtès ;;; Copyright © 2013 Andreas Enge ;;; Copyright © 2013 Nikita Karetnikov ;;; @@ -141,7 +141,7 @@ provides a 'setup.py' file as its build system." ((and (? string?) (? derivation-path?)) guile) (#f ; the default - (let* ((distro (resolve-interface '(gnu packages base))) + (let* ((distro (resolve-interface '(gnu packages commencement))) (guile (module-ref distro 'guile-final))) (package-derivation store guile system))))) diff --git a/guix/build-system/trivial.scm b/guix/build-system/trivial.scm index 5576d596da..475e8563e5 100644 --- a/guix/build-system/trivial.scm +++ b/guix/build-system/trivial.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013 Ludovic Courtès +;;; Copyright © 2012, 2013, 2014 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -32,7 +32,7 @@ ((and (? string?) (? derivation-path?)) guile) (#f ; the default - (let* ((distro (resolve-interface '(gnu packages base))) + (let* ((distro (resolve-interface '(gnu packages commencement))) (guile (module-ref distro 'guile-final))) (package-derivation store guile system))))) diff --git a/guix/download.scm b/guix/download.scm index 92d08fc2bd..c0a7e8c23a 100644 --- a/guix/download.scm +++ b/guix/download.scm @@ -205,8 +205,8 @@ must be a list of symbol/URL-list pairs." (define guile-for-build (package-derivation store (or guile - (let ((distro - (resolve-interface '(gnu packages base)))) + (let ((distro (resolve-interface + '(gnu packages commencement)))) (module-ref distro 'guile-final))) system)) diff --git a/guix/gexp.scm b/guix/gexp.scm index 6d1f328aef..e31324e101 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -429,7 +429,7 @@ package/derivation references." (define (default-guile) ;; Lazily resolve 'guile-final'. This module must not refer to (gnu …) ;; modules directly, to avoid circular dependencies, hence this hack. - (module-ref (resolve-interface '(gnu packages base)) + (module-ref (resolve-interface '(gnu packages commencement)) 'guile-final)) (define* (gexp->script name exp diff --git a/guix/git-download.scm b/guix/git-download.scm index 5691e8a870..a8b7882c9f 100644 --- a/guix/git-download.scm +++ b/guix/git-download.scm @@ -65,7 +65,7 @@ type HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if ((? package?) (package-derivation store guile system)) (#f ; the default - (let* ((distro (resolve-interface '(gnu packages base))) + (let* ((distro (resolve-interface '(gnu packages commencement))) (guile (module-ref distro 'guile-final))) (package-derivation store guile system))))) diff --git a/guix/monads.scm b/guix/monads.scm index c714941a0c..2ab3fb94f0 100644 --- a/guix/monads.scm +++ b/guix/monads.scm @@ -444,7 +444,7 @@ connection." (define (default-guile) ;; Lazily resolve 'guile-final'. This module must not refer to (gnu …) ;; modules directly, to avoid circular dependencies, hence this hack. - (module-ref (resolve-interface '(gnu packages base)) + (module-ref (resolve-interface '(gnu packages commencement)) 'guile-final)) (parameterize ((%guile-for-build (or guile-for-build diff --git a/guix/packages.scm b/guix/packages.scm index 1939373f35..b4fc026dbb 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -291,7 +291,7 @@ corresponds to the arguments expected by `set-path-environment-variable'." (define (default-guile) "Return the default Guile package for SYSTEM." - (let ((distro (resolve-interface '(gnu packages base)))) + (let ((distro (resolve-interface '(gnu packages commencement)))) (module-ref distro 'guile-final))) (define* (patch-and-repack store source patches diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index fb285c5e67..6ecf37e1a6 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -39,7 +39,8 @@ #:use-module (srfi srfi-26) #:use-module (srfi srfi-37) #:use-module (gnu packages) - #:use-module ((gnu packages base) #:select (guile-final)) + #:use-module (gnu packages base) + #:use-module (gnu packages guile) #:use-module ((gnu packages bootstrap) #:select (%bootstrap-guile)) #:export (specification->package+output guix-package)) @@ -914,8 +915,9 @@ more information.~%")) (set-build-options-from-command-line (%store) opts) (parameterize ((%guile-for-build - (package-derivation (%store) - (if (assoc-ref opts 'bootstrap?) - %bootstrap-guile - guile-final)))) + (package-derivation + (%store) + (if (assoc-ref opts 'bootstrap?) + %bootstrap-guile + (canonical-package guile-2.0))))) (process-actions opts))))))) diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm index 00bea1707d..c2bf536e86 100644 --- a/guix/scripts/pull.scm +++ b/guix/scripts/pull.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès +;;; Copyright © 2013, 2014 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -24,6 +24,7 @@ #:use-module (guix derivations) #:use-module (guix download) #:use-module (gnu packages base) + #:use-module (gnu packages guile) #:use-module ((gnu packages bootstrap) #:select (%bootstrap-guile)) #:use-module (gnu packages compression) @@ -128,7 +129,7 @@ Download and deploy the latest version of Guix.\n")) (package-derivation store (if (assoc-ref opts 'bootstrap?) %bootstrap-guile - guile-final))) + (canonical-package guile-2.0)))) (current-build-output-port (if (assoc-ref opts 'verbose?) (current-error-port) diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm index a91ea69b1f..d31e6d4897 100644 --- a/guix/scripts/refresh.scm +++ b/guix/scripts/refresh.scm @@ -27,7 +27,7 @@ #:use-module (guix gnu-maintenance) #:use-module (guix gnupg) #:use-module (gnu packages) - #:use-module ((gnu packages base) #:select (%final-inputs)) + #:use-module ((gnu packages commencement) #:select (%final-inputs)) #:use-module (ice-9 match) #:use-module (ice-9 regex) #:use-module (ice-9 vlist) diff --git a/guix/svn-download.scm b/guix/svn-download.scm index cb4d9dcc11..31dd1a90e8 100644 --- a/guix/svn-download.scm +++ b/guix/svn-download.scm @@ -61,7 +61,7 @@ type HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if ((? package?) (package-derivation store guile system)) (#f ; the default - (let* ((distro (resolve-interface '(gnu packages base))) + (let* ((distro (resolve-interface '(gnu packages commencement))) (guile (module-ref distro 'guile-final))) (package-derivation store guile system))))) -- cgit v1.2.3