mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2025-02-05 18:29:28 +01:00
build-system/scons: Use 'with-build-variables'.
This brings back the '%build-inputs' and '%outputs' global variables, which some packages such as 'serf' expect. * guix/build-system/scons.scm (scons-build): Use 'with-build-variables'.
This commit is contained in:
parent
8886a96f74
commit
b702d1219c
1 changed files with 18 additions and 21 deletions
|
@ -97,27 +97,24 @@ provides a 'SConstruct' file as its build system."
|
|||
#~(begin
|
||||
(use-modules #$@(sexp->gexp modules))
|
||||
|
||||
(scons-build #:name #$name
|
||||
#:source #+source
|
||||
#:scons-flags #$(sexp->gexp scons-flags)
|
||||
#:system #$system
|
||||
#:build-targets #$build-targets
|
||||
#:test-target #$test-target
|
||||
#:tests? #$tests?
|
||||
#:install-targets #$install-targets
|
||||
#:phases #$(if (pair? phases)
|
||||
(sexp->gexp phases)
|
||||
phases)
|
||||
#:outputs (list #$@(map (lambda (name)
|
||||
#~(cons #$name
|
||||
(ungexp output name)))
|
||||
outputs))
|
||||
#:inputs (map (lambda (tuple)
|
||||
(apply cons tuple))
|
||||
'#$inputs)
|
||||
#:search-paths '#$(sexp->gexp
|
||||
(map search-path-specification->sexp
|
||||
search-paths))))))
|
||||
#$(with-build-variables inputs outputs
|
||||
#~(scons-build #:name #$name
|
||||
#:source #+source
|
||||
#:scons-flags #$(sexp->gexp scons-flags)
|
||||
#:system #$system
|
||||
#:build-targets #$build-targets
|
||||
#:test-target #$test-target
|
||||
#:tests? #$tests?
|
||||
#:install-targets #$install-targets
|
||||
#:phases #$(if (pair? phases)
|
||||
(sexp->gexp phases)
|
||||
phases)
|
||||
#:outputs %outputs
|
||||
#:inputs %build-inputs
|
||||
#:search-paths
|
||||
'#$(sexp->gexp
|
||||
(map search-path-specification->sexp
|
||||
search-paths)))))))
|
||||
|
||||
(gexp->derivation name builder
|
||||
#:system system
|
||||
|
|
Loading…
Add table
Reference in a new issue