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

packages: Add 'file-pattern' field to 'search-path-specification'. 

* guix/packages.scm (<search-path-specification>)[file-pattern]: New
  field.
  (search-path-specification->sexp): Honor it.
This commit is contained in:
Ludovic Courtès 2014-12-27 23:15:11 +01:00
parent 7ec02d374d
commit 7b21fe5385
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
guix/packages.scm
View File

@ -171,18 +171,21 @@ representation."
(define-record-type* <search-path-specification> (define-record-type* <search-path-specification>
search-path-specification make-search-path-specification search-path-specification make-search-path-specification
search-path-specification? search-path-specification?
(variable search-path-specification-variable) (variable search-path-specification-variable) ;string
(files search-path-specification-files) (files search-path-specification-files) ;list of strings
(separator search-path-specification-separator (default ":")) (separator search-path-specification-separator ;string
(file-type search-path-specification-file-type (default 'directory))) (default ":"))
(file-type search-path-specification-file-type ;symbol
(default 'directory))
(file-pattern search-path-specification-file-pattern ;#f | string
(default #f)))
(define (search-path-specification->sexp spec) (define (search-path-specification->sexp spec)
"Return an sexp representing SPEC, a <search-path-specification>. The sexp "Return an sexp representing SPEC, a <search-path-specification>. The sexp
corresponds to the arguments expected by `set-path-environment-variable'." corresponds to the arguments expected by `set-path-environment-variable'."
(match spec (match spec
(($ <search-path-specification> variable files separator type) (($ <search-path-specification> variable files separator type pattern)
;; TODO: Add support for PATTERN. `(,variable ,files ,separator ,type ,pattern))))
`(,variable ,files ,separator ,type #f))))
(define %supported-systems (define %supported-systems
;; This is the list of system types that are supported. By default, we ;; This is the list of system types that are supported. By default, we