guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

gnu: cdrtools: Use G-expressions.

Browse source 
* gnu/packages/cdrom.scm (cdrtools)[arguments]:
Rewrite as G-expressions.  Don't return #t from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2022-03-13 01:00:01 +01:00
parent b97a8b8941
commit 0ac0f43a90
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 26 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
gnu/packages/cdrom.scm
View file

@ -319,33 +319,32 @@ format, commonly used for VCDs or disks with subchannel data.")
(build-system gnu-build-system)
;; XXX cdrtools bundles a modified, relicensed early version of cdparanoia.
(arguments
`(#:make-flags
(list "RM=rm" "LN=ln" "SYMLINK=ln -s"
"CONFIG_SHELL=sh"
(string-append "CCOM=" ,(cc-for-target))
"LINKMODE=dynamic"
(string-append "INS_BASE=" (assoc-ref %outputs "out"))
(string-append "INS_RBASE=" (assoc-ref %outputs "out")))
;; Parallel builds appear to be unsafe, see
;; https://hydra.gnu.org/build/3346840/log/raw
#:parallel-build? #f
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'set-linux-headers
(lambda _
(substitute* "autoconf/configure"
(("/usr/src/linux")
(assoc-ref %build-inputs "kernel-headers")))
#t))
(add-before 'build 'substitute-dirs
(lambda _
(substitute* (append (find-files "DEFAULTS" "^Defaults\\.")
(find-files "DEFAULTS_ENG" "^Defaults\\.")
(find-files "TEMPLATES" "^Defaults\\."))
(("/opt/schily") (assoc-ref %outputs "out")))
#t)))
#:tests? #f)) ; no tests
(list #:make-flags
#~(list "RM=rm" "LN=ln" "SYMLINK=ln -s"
"CONFIG_SHELL=sh"
(string-append "CCOM=" #$(cc-for-target))
"LINKMODE=dynamic"
(string-append "INS_BASE=" #$output)
(string-append "INS_RBASE=" #$output))
;; Parallel builds appear to be unsafe, see
;; https://hydra.gnu.org/build/3346840/log/raw
#:parallel-build? #f
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'set-linux-headers
(lambda _
(substitute* "autoconf/configure"
(("/usr/src/linux")
(assoc-ref %build-inputs "kernel-headers")))))
(add-before 'build 'avoid-bogus-RPATH-entry
(lambda _
(substitute* (append (find-files "DEFAULTS" "^Defaults\\.")
(find-files "DEFAULTS_ENG" "^Defaults\\.")
(find-files "TEMPLATES" "^Defaults\\."))
(("/opt/schily")
#$output)))))
#:tests? #f)) ; no tests
(synopsis "Command line utilities to manipulate and burn CD/DVD/BD images")
(description "cdrtools is a collection of command line utilities to create
CD's, DVD's or Blue Ray discs. The most important components are