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: make-bootstrap: Remove input labels.

Browse source 
* gnu/packages/make-bootstrap.scm (%static-inputs): Remove labels.
(%static-binaries)[arguments]: Special-case 'name' for "bash-static".
(%linux-libre-headers-stripped)[inputs]: Remove label.
(%mes-minimal)[native-inputs]: Remove label.
(tarball-package)[native-inputs]: Remove labels.
[inputs]: Remove.
[arguments]: Rewrite as a gexp.
(%bootstrap-tarballs)[inputs]: Remove labels.
This commit is contained in:
Ludovic Courtès 2021-09-29 12:34:48 +02:00
parent b77782f702
commit 26d31db742
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 47 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

103
gnu/packages/make-bootstrap.scm
View file

@ -274,19 +274,9 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
(delete 'fix-egrep-and-fgrep))))))) (delete 'fix-egrep-and-fgrep)))))))
(finalize (compose static-package (finalize (compose static-package
package-with-relocatable-glibc))) package-with-relocatable-glibc)))
`(,@(map (match-lambda (append (map finalize
((name package) (list tar gzip bzip2 xz patch coreutils sed grep gawk))
(list name (finalize package)))) (list static-bash))))
`(("tar" ,tar)
("gzip" ,gzip)
("bzip2" ,bzip2)
("xz" ,xz)
("patch" ,patch)
("coreutils" ,coreutils)
("sed" ,sed)
("grep" ,grep)
("gawk" ,gawk)))
("bash" ,static-bash))))
(define %static-binaries (define %static-binaries
(package (package
@ -331,7 +321,10 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
;; same name as the input. ;; same name as the input.
(for-each (match-lambda (for-each (match-lambda
((name . dir) ((name . dir)
(let ((source (string-append dir "/bin/" name))) (let* ((name (if (string-prefix? "bash" name)
"bash"
name))
(source (string-append dir "/bin/" name)))
(format #t "copying ~s...~%" source) (format #t "copying ~s...~%" source)
(copy-file source (copy-file source
(string-append bin "/" name))))) (string-append bin "/" name)))))
@ -376,7 +369,7 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
(out (assoc-ref %outputs "out"))) (out (assoc-ref %outputs "out")))
(copy-linux-headers out in) (copy-linux-headers out in)
#t)))) #t))))
(inputs `(("linux-libre-headers" ,linux-libre-headers))))) (inputs (list linux-libre-headers))))
(define %binutils-static (define %binutils-static
;; Statically-linked Binutils. ;; Statically-linked Binutils.
@ -639,8 +632,7 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
(package (package
(inherit mes) (inherit mes)
(name "mes-minimal") (name "mes-minimal")
(native-inputs (native-inputs (list guile-3.0))
`(("guile" ,guile-3.0)))
(arguments (arguments
`(#:system "i686-linux" `(#:system "i686-linux"
#:strip-binaries? #f #:strip-binaries? #f
@ -814,37 +806,35 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
(define (tarball-package pkg) (define (tarball-package pkg)
"Return a package containing a tarball of PKG." "Return a package containing a tarball of PKG."
(package (inherit pkg) (package
(inherit pkg)
(name (string-append (package-name pkg) "-tarball")) (name (string-append (package-name pkg) "-tarball"))
(build-system trivial-build-system) (build-system trivial-build-system)
(native-inputs `(("tar" ,tar) (native-inputs (list tar xz))
("xz" ,xz)))
(inputs `(("input" ,pkg)))
(arguments (arguments
(let ((name (package-name pkg)) (list #:modules '((guix build utils))
(version (package-version pkg))) #:builder
`(#:modules ((guix build utils)) #~(begin
#:builder (use-modules (guix build utils))
(begin (let ((out #$output)
(use-modules (guix build utils)) (input #$pkg)
(let ((out (assoc-ref %outputs "out")) (tar #+(this-package-native-input "tar"))
(input (assoc-ref %build-inputs "input")) (xz #+(this-package-native-input "xz")))
(tar (assoc-ref %build-inputs "tar")) (mkdir out)
(xz (assoc-ref %build-inputs "xz"))) (set-path-environment-variable "PATH" '("bin") (list tar xz))
(mkdir out) (with-directory-excursion input
(set-path-environment-variable "PATH" '("bin") (list tar xz)) (invoke "tar" "cJvf"
(with-directory-excursion input (string-append out "/"
(invoke "tar" "cJvf" #$(package-name pkg) "-"
(string-append out "/" #$(package-version pkg)
,name "-" ,version "-"
"-" #$(or (%current-target-system)
,(or (%current-target-system) (%current-system))
(%current-system)) ".tar.xz")
".tar.xz") "."
"." ;; avoid non-determinism in the archive
;; avoid non-determinism in the archive "--sort=name" "--mtime=@0"
"--sort=name" "--mtime=@0" "--owner=root:0" "--group=root:0"))))))))
"--owner=root:0" "--group=root:0")))))))))
(define %bootstrap-binaries-tarball (define %bootstrap-binaries-tarball
;; A tarball with the statically-linked bootstrap binaries. ;; A tarball with the statically-linked bootstrap binaries.
@ -907,17 +897,18 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
(symlink file (basename file))) (symlink file (basename file)))
(find-files directory "\\.tar\\.")))) (find-files directory "\\.tar\\."))))
%build-inputs)))) %build-inputs))))
(inputs `(("guile-tarball" ,%guile-bootstrap-tarball) (inputs
,@(match (or (%current-target-system) (%current-system)) (append (list %guile-bootstrap-tarball)
((or "i686-linux" "x86_64-linux") (match (or (%current-target-system) (%current-system))
`(("bootstrap-mescc-tools" ,%mescc-tools-bootstrap-tarball) ((or "i686-linux" "x86_64-linux")
("bootstrap-mes" ,%mes-bootstrap-tarball) (list %mescc-tools-bootstrap-tarball
("bootstrap-linux-libre-headers" %mes-bootstrap-tarball
,%linux-libre-headers-bootstrap-tarball))) %linux-libre-headers-bootstrap-tarball))
(_ `(("gcc-tarball" ,%gcc-bootstrap-tarball) (_
("binutils-tarball" ,%binutils-bootstrap-tarball) (list %gcc-bootstrap-tarball
("glibc-tarball" ,(%glibc-bootstrap-tarball)) %binutils-bootstrap-tarball
("coreutils&co-tarball" ,%bootstrap-binaries-tarball)))))) (%glibc-bootstrap-tarball)
%bootstrap-binaries-tarball)))))
(synopsis "Tarballs containing all the bootstrap binaries") (synopsis "Tarballs containing all the bootstrap binaries")
(description synopsis) (description synopsis)
(home-page #f) (home-page #f)