guix_mirror_bot pushed a commit to branch add-compress-debug-symbols-phase in repository guix.
commit f4114d358257b64a93081bbe6c803d5e872b5850 Author: Maxim Cournoyer <[email protected]> AuthorDate: Sun Oct 19 11:59:49 2025 +0900 gnu: Add zstd-final. * gnu/packages/commencement.scm (zstd-final): New variable. Change-Id: Ic6bef892f35a4bca809ff80dd279190b0f4902bd --- gnu/packages/commencement.scm | 28 +++++++++++++++++++++++++++- 1 file changed, 27 insertions(+), 1 deletion(-) diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index e8e7192120..7e7382a37a 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -9,7 +9,7 @@ ;;; Copyright © 2019-2022 Marius Bakke <[email protected]> ;;; Copyright © 2020, 2022 Timothy Sample <[email protected]> ;;; Copyright © 2020 Guy Fleury Iteriteka <[email protected]> -;;; Copyright © 2021 Maxim Cournoyer <[email protected]> +;;; Copyright © 2021, 2025 Maxim Cournoyer <[email protected]> ;;; Copyright © 2021 Chris Marusich <[email protected]> ;;; Copyright © 2021 Julien Lepiller <[email protected]> ;;; Copyright © 2021 Pierre Langlois <[email protected]> @@ -3271,6 +3271,32 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%" ,@(package-arguments zlib))) (inputs (%boot2-inputs)))) +(define zstd-final + ;; Zstd used by BINUTILS-FINAL. + (package + (inherit zstd) + (source (bootstrap-origin (package-source zstd))) + (arguments + (substitute-keyword-arguments + (ensure-keyword-arguments + (package-arguments zstd) + (list #:guile %bootstrap-guile + #:implicit-inputs? #f + #:allowed-references (list "out" "lib" glibc-final))) + ((#:phases phases '%standard-phases) + #~(modify-phases #$phases + ;; Avoid retaining references to bash & grep in the zstdless + ;; script. + (delete 'patch-command-file-names) + (add-after 'install 'unpatch-bash-shebangs + (lambda _ + (with-directory-excursion (string-append #$output "/bin") + (substitute* '("zstdgrep" "zstdless") + (("#!/gnu/store/.*/bin/sh") + "#!/bin/sh"))))) + (delete 'patch-shebangs))))) + (inputs (%boot2-inputs)))) + (define/system-dependent ld-wrapper-boot3 ;; A linker wrapper that uses the bootstrap Guile. (make-ld-wrapper "ld-wrapper-boot3"
