seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-09-18 12:44:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

utils: computed-substitution-with-inputs: Support directory substitution.

Browse Source 
* modules/rosenthal/utils/file.scm (computed-substitution-with-inputs): Support
directory substitution.
Error when pattern not found.
This commit is contained in:
Hilton Chain 2025-09-12 14:33:50 +08:00
parent dff8c3d547
commit dfe569fdc0
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
modules/rosenthal/utils/file.scm
View File

@ -16,11 +16,20 @@
(computed-file (computed-file
name name
#~(begin #~(begin
(use-modules (guix build utils)) (use-modules (ice-9 match)
(guix build utils))
(copy-file #$file #$output) (copy-file #$file #$output)
(substitute* #$output (substitute* #$output
(("\\$\\$([^\\$]+)\\$\\$" _ path) (("\\$\\$([^\\$]+)\\$\\$" _ path)
(search-path '#$inputs path))))))) (let loop ((candidates '#$inputs))
(if (null? candidates)
(error "file '~a' not found" path)
(match candidates
((candidate . rest)
(let ((full-path (in-vicinity candidate path)))
(if (file-exists? full-path)
full-path
(loop rest)))))))))))))
(define (file-content file) (define (file-content file)
(call-with-input-file (canonicalize-path file) get-string-all)) (call-with-input-file (canonicalize-path file) get-string-all))