mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 13:28:12 -05:00
gnu: boost: Use modify-phases.
* gnu/packages/boost.scm (boost)[arguments]: Use modify-phases.
This commit is contained in:
parent
bb25130764
commit
3abe8136fd
1 changed files with 23 additions and 24 deletions
|
@ -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")
|
||||||
|
|
Loading…
Reference in a new issue