nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

build-system/gnu: Fix `#:path-exclusions' handling. 

* guix/build/gnu-build-system.scm (set-paths)[relevant-input-directories]:
  New procedure.  Use it.  This fixes #:path-exclusions handling.
This commit is contained in:
Ludovic Courtès 2012-09-06 22:58:43 +02:00
parent 9d9ef458e8
commit 2d14ef0f2c
1 changed files with 26 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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