mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-03 00:26:33 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: bootstrap: mes-minimal: Remove packages and tarball.

Browse source 
* gnu/packages/make-bootstrap.scm (%mes-minimal, %mes-minimal-stripped,
%mes-bootstrap-tarball): Remove.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2022-09-12 10:54:31 +02:00 committed by Janneke Nieuwenhuizen
parent 0501136d57
commit c2167ffb97
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 0 additions and 54 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -53,7 +53,6 @@ (define-module (gnu packages make-bootstrap)
%glibc-bootstrap-tarball %glibc-bootstrap-tarball
%gcc-bootstrap-tarball %gcc-bootstrap-tarball
%guile-bootstrap-tarball %guile-bootstrap-tarball
%mes-bootstrap-tarball
%bootstrap-tarballs %bootstrap-tarballs
%guile-static-stripped)) %guile-static-stripped))
@ -593,55 +592,6 @@ (define %gcc-stripped
"--version")) "--version"))
'("gcc" "g++" "cpp")))))))))) '("gcc" "g++" "cpp"))))))))))
;; Two packages: first build static, bare minimum content.
(define-public %mes-minimal
;; A minimal Mes without documentation.
(package
(inherit mes)
(name "mes-minimal")
(native-inputs (list guile-3.0))
(arguments
`(#:system "i686-linux"
#:strip-binaries? #f
#:configure-flags '("--mes")
#:phases
(modify-phases %standard-phases
(delete 'patch-shebangs)
(add-after 'install 'strip-install
(lambda _
(let* ((out (assoc-ref %outputs "out"))
(share (string-append out "/share")))
(delete-file-recursively (string-append out "/lib/guile"))
(delete-file-recursively (string-append share "/guile"))
(for-each delete-file
(find-files
(string-append share "/mes/lib")
"\\.(h|c)"))))))))))
;; next remove store references.
(define %mes-minimal-stripped
;; A minimal Mes with store references removed, for bootstrap.
(package
(inherit %mes-minimal)
(name (string-append (package-name %mes-minimal) "-stripped"))
(build-system trivial-build-system)
(arguments
(list #:modules '((guix build utils))
#:allowed-references '()
#:builder
#~(begin
(use-modules (guix build utils))
(let ((in #$%mes-minimal)
(out #$output))
(copy-recursively in out)
(for-each (lambda (dir)
(for-each remove-store-references
(find-files (string-append out "/" dir)
".*")))
'("bin" "share/mes"))))))))
(define* (make-guile-static guile patches) (define* (make-guile-static guile patches)
(package-with-relocatable-glibc (package-with-relocatable-glibc
(static-package (static-package
@ -833,10 +783,6 @@ (define %guile-bootstrap-tarball
;; A tarball with the statically-linked, relocatable Guile. ;; A tarball with the statically-linked, relocatable Guile.
(tarball-package %guile-static-stripped)) (tarball-package %guile-static-stripped))
(define %mes-bootstrap-tarball
;; A tarball with Mes binary seed.
(tarball-package %mes-minimal-stripped))
(define %bootstrap-tarballs (define %bootstrap-tarballs
;; A single derivation containing all the bootstrap tarballs, for ;; A single derivation containing all the bootstrap tarballs, for
;; convenience. ;; convenience.