TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: boost: Use modify-phases.

Browse source 
* gnu/packages/boost.scm (boost)[arguments]: Use modify-phases.
This commit is contained in:
Eric Bavier 2015-12-15 11:01:03 -06:00 committed by Ludovic Courtès
parent bb25130764
commit 3abe8136fd
1 changed files with 23 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
gnu/packages/boost.scm
View file

@ -67,34 +67,33 @@ (define-public boost
'())))) '()))))
`(#:tests? #f `(#:tests? #f
#:phases #:phases
(alist-replace (modify-phases %standard-phases
'configure (replace
(lambda* (#:key outputs #:allow-other-keys) 'configure
(let ((out (assoc-ref outputs "out"))) (lambda* (#:key outputs #:allow-other-keys)
(substitute* '("libs/config/configure" (let ((out (assoc-ref outputs "out")))
"libs/spirit/classic/phoenix/test/runtest.sh" (substitute* '("libs/config/configure"
"tools/build/doc/bjam.qbk" "libs/spirit/classic/phoenix/test/runtest.sh"
"tools/build/src/engine/execunix.c" "tools/build/doc/bjam.qbk"
"tools/build/src/engine/Jambase" "tools/build/src/engine/execunix.c"
"tools/build/src/engine/jambase.c") "tools/build/src/engine/Jambase"
(("/bin/sh") (which "sh"))) "tools/build/src/engine/jambase.c")
(("/bin/sh") (which "sh")))
(setenv "SHELL" (which "sh")) (setenv "SHELL" (which "sh"))
(setenv "CONFIG_SHELL" (which "sh")) (setenv "CONFIG_SHELL" (which "sh"))
(zero? (system* "./bootstrap.sh" (zero? (system* "./bootstrap.sh"
(string-append "--prefix=" out) (string-append "--prefix=" out)
"--with-toolset=gcc")))) "--with-toolset=gcc")))))
(alist-replace (replace
'build 'build
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(zero? (system* "./b2" ,@build-flags))) (zero? (system* "./b2" ,@build-flags))))
(replace
(alist-replace
'install 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(zero? (system* "./b2" "install" ,@build-flags))) (zero? (system* "./b2" "install" ,@build-flags))))))))
%standard-phases))))))
(home-page "http://boost.org") (home-page "http://boost.org")
(synopsis "Peer-reviewed portable C++ source libraries") (synopsis "Peer-reviewed portable C++ source libraries")