55 lines
1.7 KiB
Fennel
55 lines
1.7 KiB
Fennel
(local svc (require :anoia.svc))
|
|
|
|
(fn json-escape [s]
|
|
;; All Unicode characters may be placed within the quotation marks,
|
|
;; except for the characters that MUST be escaped:
|
|
;; quotation mark, reverse solidus, and the control characters (U+0000
|
|
;; through U+001F). (RFC 8259)
|
|
(-> s
|
|
(string.gsub
|
|
"[\"\b\f\n\r\t]" {
|
|
"\b" "\\b"
|
|
"\"" "\\\""
|
|
"\f" "\\f"
|
|
"\n" "\\n"
|
|
"\r" "\\r"
|
|
"\t" "\\t"
|
|
})
|
|
(string.gsub
|
|
"([\x00-\x1b])"
|
|
(fn [x] (string.format "\\u%04X" (string.byte x))))))
|
|
|
|
|
|
(fn substitute [text opening closing]
|
|
(let [delim (.. opening "(.-)" closing)
|
|
myenv {
|
|
: string
|
|
: table
|
|
: ipairs
|
|
:output
|
|
(fn [service-path path default]
|
|
(let [s (assert (svc.open (.. service-path "/.outputs")))]
|
|
(or (s:output path) default)))
|
|
:lua_quote #(string.format "%q" $1)
|
|
:json_quote (fn [x] (.. "\"" (json-escape x) "\""))
|
|
}]
|
|
(string.gsub text delim
|
|
(fn [x]
|
|
(assert ((load (.. "return " x) x :t myenv))
|
|
(string.format "missing value for %q" x))))))
|
|
|
|
(fn run []
|
|
(let [[opening closing] arg
|
|
out (substitute (: (io.input) :read "*a") opening closing)]
|
|
(io.write out)))
|
|
|
|
(import-macros { : define-tests : expect : expect= } :anoia.assert)
|
|
(define-tests
|
|
(fn slurp [name]
|
|
(with-open [f (assert (io.open name))] (f:read "*a")))
|
|
(expect=
|
|
(pick-values 1 (substitute (slurp "example.ini") "{{" "}}"))
|
|
(slurp "example.ini.expected")))
|
|
|
|
{ : run }
|