gnu: retroarch: Don't use %OUTPUT.

* gnu/packages/games.scm (retroarch)[arguments]: Accept an OUTPUTS key
in the configure phase.  Add a comment about the script.  Use LET*.
This commit is contained in:
Tobias Geerinckx-Rice 2017-03-29 20:13:30 +02:00
parent 3f12714742
commit 05e0ac46ef
No known key found for this signature in database
GPG Key ID: 91CCDB9B48541B99
1 changed files with 12 additions and 8 deletions

View File

@ -1096,17 +1096,21 @@ either by Infocom or created using the Inform compiler.")
(base32 "1xar0wagcz50clwwkvjg4zq9m1sjqw47vw3xx44pisdj94g21m5y")))) (base32 "1xar0wagcz50clwwkvjg4zq9m1sjqw47vw3xx44pisdj94g21m5y"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:tests? #f ; no tests '(#:tests? #f ; no tests
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda _ (lambda* (#:key outputs #:allow-other-keys)
(substitute* "qb/qb.libs.sh" (let* ((out (assoc-ref outputs "out"))
(("/bin/true") (which "true"))) (etc (string-append out "/etc")))
(zero? (system* (substitute* "qb/qb.libs.sh"
"./configure" (("/bin/true") (which "true")))
(string-append "--prefix=" %output) ;; The configure script does not yet accept the extra arguments
(string-append "--global-config-dir=" %output "/etc")))))))) ;; (like CONFIG_SHELL=) passed by the default configure phase.
(zero? (system*
"./configure"
(string-append "--prefix=" out)
(string-append "--global-config-dir=" etc)))))))))
(inputs (inputs
`(("alsa-lib" ,alsa-lib) `(("alsa-lib" ,alsa-lib)
("ffmpeg" ,ffmpeg) ("ffmpeg" ,ffmpeg)