18 lines
538 B
Scheme
18 lines
538 B
Scheme
(import r7rs
|
|
srfi-1
|
|
utf8
|
|
srfi-69
|
|
srfi-78
|
|
shell
|
|
json-abnf
|
|
srfi-152
|
|
(chicken port))
|
|
|
|
(define output (capture ("./gherkinexe" "--no-ast" "--no-source" "cucumber/gherkin/c/testdata/good/rule.feature")))
|
|
(define outputs (string-split (string-trim-both output) "\n"))
|
|
(define json-string (string-concatenate (list "[" (string-join outputs ", ") "]")))
|
|
(define pickle #f)
|
|
(let* ((pickles (parser json-string))
|
|
(pickle (cdar (vector-ref pickles 0))))
|
|
(set! pickle pickle))
|