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: unzip: Use G-expressions.

Browse source 
* gnu/packages/compression.scm (unzip)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-08-07 02:00:00 +02:00
parent 5c131aff69
commit 36c5fa6c4d
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 23 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

42
gnu/packages/compression.scm
View file

@ -1818,25 +1818,29 @@ Compression ratios of 2:1 to 3:1 are common for text files.")
(build-system gnu-build-system) (build-system gnu-build-system)
;; no inputs; bzip2 is not supported, since not compiled with BZ_NO_STDIO ;; no inputs; bzip2 is not supported, since not compiled with BZ_NO_STDIO
(arguments (arguments
`(#:phases (modify-phases %standard-phases (list #:phases
(delete 'configure) #~(modify-phases %standard-phases
(add-after 'unpack 'fortify (delete 'configure)
(lambda _ (add-after 'unpack 'fortify
;; Mitigate CVE-2018-1000035, an exploitable buffer overflow. (lambda _
;; This environment variable is recommended in 'unix/Makefile' ;; Mitigate CVE-2018-1000035, an exploitable buffer overflow.
;; for passing flags to the C compiler. ;; This environment variable is recommended in 'unix/Makefile'
(setenv "LOCAL_UNZIP" "-D_FORTIFY_SOURCE=1") ;; for passing flags to the C compiler.
#t)) (setenv "LOCAL_UNZIP" "-D_FORTIFY_SOURCE=1")
(replace 'build #t))
(lambda* (#:key make-flags #:allow-other-keys) (replace 'build
(apply invoke "make" (lambda* (#:key make-flags #:allow-other-keys)
`("-j" ,(number->string (apply invoke "make"
(parallel-job-count)) `("-j" ,(number->string
,@make-flags (parallel-job-count))
"generic_gcc"))))) ,@make-flags
#:make-flags (list "-f" "unix/Makefile" "generic_gcc")))))
(string-append "prefix=" %output) #:make-flags
(string-append "MANDIR=" %output "/share/man/man1")))) ;; Fix cross-compilation without affecting native builds, as doing so
;; would trigger too many rebuilds: https://issues.guix.gnu.org/57127
#~(list "-f" "unix/Makefile"
(string-append "prefix=" %output)
(string-append "MANDIR=" %output "/share/man/man1"))))
(home-page "http://www.info-zip.org/UnZip.html") (home-page "http://www.info-zip.org/UnZip.html")
(synopsis "Decompression and file extraction utility") (synopsis "Decompression and file extraction utility")
(description (description