guix_mirror_bot pushed a commit to branch master
in repository guix.
commit e945001f04cc2ffcdee64aec4036a7e96bc67402
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"
