build-system/{perl,cmake}: Keep the standard search paths of gnu-build-system.

Reported by Andreas Enge <andreas@enge.fr>.

* guix/build-system/gnu.scm (standard-search-paths): New procedure.
  (gnu-build): Use it.
* guix/build-system/perl.scm (perl-build):
  Append (standard-search-paths) to the search paths of PERL.
* guix/build-system/cmake.scm (cmake-build):
  Append (standard-search-paths) to SEARCH-PATHS.
This commit is contained in:
Ludovic Courtès 2013-04-16 14:05:00 +02:00
parent 50efa79774
commit 35ac56b63e
3 changed files with 16 additions and 8 deletions

View file

@ -72,7 +72,8 @@ (define builder
#:outputs %outputs
#:inputs %build-inputs
#:search-paths ',(map search-path-specification->sexp
search-paths)
(append search-paths
(standard-search-paths)))
#:patches ,patches
#:patch-flags ,patch-flags
#:phases ,phases

View file

@ -27,6 +27,7 @@ (define-module (guix build-system gnu)
#:use-module (ice-9 match)
#:export (gnu-build
gnu-build-system
standard-search-paths
standard-inputs
package-with-explicit-inputs
package-with-extra-configure-variable
@ -143,6 +144,16 @@ (define (standard-packages)
(let ((distro (resolve-module '(gnu packages base))))
(module-ref distro '%final-inputs)))
(define (standard-search-paths)
"Return the list of <search-path-specification> for the standard (implicit)
inputs."
(append-map (match-lambda
((_ (? package? p) _ ...)
(package-native-search-paths p))
(_
'()))
(standard-packages)))
(define standard-inputs
(memoize
(lambda (system)
@ -204,12 +215,7 @@ (define implicit-inputs
(define implicit-search-paths
(if implicit-inputs?
(append-map (match-lambda
((_ (? package? p) _ ...)
(package-native-search-paths p))
(_
'()))
(standard-packages))
(standard-search-paths)
'()))
(define builder

View file

@ -55,7 +55,8 @@ (define* (perl-build store name source inputs
"Build SOURCE using PERL, and with INPUTS. This assumes that SOURCE
provides a `Makefile.PL' file as its build system."
(define perl-search-paths
(package-native-search-paths perl))
(append (package-native-search-paths perl)
(standard-search-paths)))
(define builder
`(begin