np/embddr-scheme-library
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add substitute function

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-11-30 18:02:43 +03:00
parent 877efd7f95
commit 01fc086e62
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
embddr/common.scm
View File

@ -19,6 +19,7 @@
has-duplicates? find-duplicates has-duplicates? find-duplicates
insert-between insert-between
string-replace-text string-replace-text
substitute
read-template read-template
make-mux-selectors)) make-mux-selectors))
@ -194,6 +195,15 @@
str)) str))
str)))))) str))))))
;;; Substitute template
(define (substitute text template-format subst-list)
(fold (lambda (s out)
(string-replace-text
out
(format template-format (first s))
(format "~a" (second s))))
text subst-list))
;;; Read template and substitute replacements ;;; Read template and substitute replacements
;;; Returns list of strings (lines) ;;; Returns list of strings (lines)
(define (read-template template-file template-format subst-list) (define (read-template template-file template-format subst-list)
@ -204,10 +214,6 @@
(if (eof-object? s) (if (eof-object? s)
(reverse l) (reverse l)
(loop (cons s l))))))))) (loop (cons s l)))))))))
(map (lambda (str) (fold (lambda (s out) (map (lambda (str)
(string-replace-text (substitute str template-format subst-list))
out
(format template-format (first s))
(format "~a" (second s))))
str subst-list))
ls))) ls)))