ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Change `substitute*' to accept a list of files to patch.

Browse source 
* guix/build/utils.scm (substitute*): Support a list of files as the
  first argument.
This commit is contained in:
Ludovic Courtès 2012-08-25 13:12:33 +02:00
parent 22b5d9c9a5
commit 8773648e35
1 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
guix/build/utils.scm
View file

@ -210,10 +210,9 @@ (define-syntax let-matches
((let-matches index match () body ...)
(begin body ...))))
(define-syntax-rule (substitute* file
((regexp match-var ...) body ...)
...)
"Substitute REGEXP in FILE by the string returned by BODY. BODY is
(define-syntax substitute*
(syntax-rules ()
"Substitute REGEXP in FILE by the string returned by BODY. BODY is
evaluated with each MATCH-VAR bound to the corresponding positional regexp
sub-expression. For example:
@ -230,12 +229,17 @@ (define-syntax-rule (substitute* file
When one of the MATCH-VAR is `_', no variable is bound to the corresponding
match substring."
(substitute file
(list (cons regexp
(lambda (m p)
(let-matches 0 m (match-var ...)
(display (begin body ...) p))))
...)))
((substitute* (file ...) clause ...)
(begin
(substitute* file clause ...)
...))
((substitute* file ((regexp match-var ...) body ...) ...)
(substitute file
(list (cons regexp
(lambda (m p)
(let-matches 0 m (match-var ...)
(display (begin body ...) p))))
...)))))
;;;