futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

build-system/gnu: Remove #:path-exclusions parameter.

Browse Source 
* guix/build/gnu-build-system.scm (set-paths): Remove `path-exclusions'
  parameter.  Replace `relevant-input-directories' by
  `input-directories'.
* guix/build-system/gnu.scm (gnu-build): Remove `path-exclusions'
  parameter; don't pass it in BUILDER.
* guix/build-system/cmake.scm (cmake-build): Likewise.
This commit is contained in:
Ludovic Courtès 2013-03-30 11:31:50 +01:00
parent 4928e50033
commit a96748bb46
3 changed files with 9 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
guix/build-system/cmake.scm
View File

@ -42,7 +42,6 @@
(patches ''()) (patch-flags ''("--batch" "-p1")) (patches ''()) (patch-flags ''("--batch" "-p1"))
(cmake (@ (gnu packages cmake) cmake)) (cmake (@ (gnu packages cmake) cmake))
(out-of-source? #f) (out-of-source? #f)
(path-exclusions ''())
(tests? #t) (tests? #t)
(test-target "test") (test-target "test")
(parallel-build? #t) (parallel-tests? #f) (parallel-build? #t) (parallel-tests? #f)
@ -77,7 +76,6 @@ provides a 'CMakeLists.txt' file as its build system."
#:configure-flags ,configure-flags #:configure-flags ,configure-flags
#:make-flags ,make-flags #:make-flags ,make-flags
#:out-of-source? ,out-of-source? #:out-of-source? ,out-of-source?
#:path-exclusions ,path-exclusions
#:tests? ,tests? #:tests? ,tests?
#:test-target ,test-target #:test-target ,test-target
#:parallel-build? ,parallel-build? #:parallel-build? ,parallel-build?

2
guix/build-system/gnu.scm
View File

@ -163,7 +163,6 @@ System: GCC, GNU Make, Bash, Coreutils, etc."
(make-flags ''()) (make-flags ''())
(patches ''()) (patch-flags ''("--batch" "-p1")) (patches ''()) (patch-flags ''("--batch" "-p1"))
(out-of-source? #f) (out-of-source? #f)
(path-exclusions ''())
(tests? #t) (tests? #t)
(test-target "check") (test-target "check")
(parallel-build? #t) (parallel-tests? #t) (parallel-build? #t) (parallel-tests? #t)
@ -205,7 +204,6 @@ which could lead to gratuitous input divergence."
#:configure-flags ,configure-flags #:configure-flags ,configure-flags
#:make-flags ,make-flags #:make-flags ,make-flags
#:out-of-source? ,out-of-source? #:out-of-source? ,out-of-source?
#:path-exclusions ,path-exclusions
#:tests? ,tests? #:tests? ,tests?
#:test-target ,test-target #:test-target ,test-target
#:parallel-build? ,parallel-build? #:parallel-build? ,parallel-build?

26
guix/build/gnu-build-system.scm
View File

@ -48,34 +48,26 @@
#f #f
dir)) dir))
(define* (set-paths #:key inputs (path-exclusions '()) (define* (set-paths #:key inputs
#:allow-other-keys) #:allow-other-keys)
(define (relevant-input-directories env-var) (define input-directories
;; Return the subset of INPUTS that should be considered when setting (match inputs
;; ENV-VAR. (((_ . dir) ...)
(match (assoc-ref path-exclusions env-var) dir)))
(#f
(map cdr inputs))
((excluded ...)
(filter-map (match-lambda
((name . dir)
(and (not (member name excluded))
dir)))
inputs))))
(set-path-environment-variable "PATH" '("bin") (set-path-environment-variable "PATH" '("bin")
(relevant-input-directories "PATH")) input-directories)
(set-path-environment-variable "CPATH" '("include") (set-path-environment-variable "CPATH" '("include")
(relevant-input-directories "CPATH")) input-directories)
(set-path-environment-variable "LIBRARY_PATH" '("lib" "lib64") (set-path-environment-variable "LIBRARY_PATH" '("lib" "lib64")
(relevant-input-directories "LIBRARY_PATH")) input-directories)
;; FIXME: Eventually move this to the `search-paths' field of the ;; FIXME: Eventually move this to the `search-paths' field of the
;; `pkg-config' package. ;; `pkg-config' package.
(set-path-environment-variable "PKG_CONFIG_PATH" (set-path-environment-variable "PKG_CONFIG_PATH"
'("lib/pkgconfig" "lib64/pkgconfig" '("lib/pkgconfig" "lib64/pkgconfig"
"share/pkgconfig") "share/pkgconfig")
(relevant-input-directories "PKG_CONFIG_PATH")) input-directories)
;; Dump the environment variables as a shell script, for handy debugging. ;; Dump the environment variables as a shell script, for handy debugging.
(system "export > environment-variables")) (system "export > environment-variables"))