me
/
guix
Archived
1
0
Fork 0
Code

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

* guix/build/utils.scm (substitute*): Support a list of files as the
  first argument.
master
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 @@ as (PROC MATCH OUTPUT-PORT)."
((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 @@ bound to the last one.
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))))
...)))))
;;;