substitution WIP
This commit is contained in:
parent
0a75234e52
commit
57b93d2902
|
@ -179,6 +179,7 @@ the GNU Public License, see COPYING for the copyleft.
|
||||||
(('script term "&") (list (background (transform term))))
|
(('script term "&") (list (background (transform term))))
|
||||||
(('script term) `(,(transform term)))
|
(('script term) `(,(transform term)))
|
||||||
(('script terms ...) (transform terms))
|
(('script terms ...) (transform terms))
|
||||||
|
(('substitution "$(" (script) ")") (stderr "FOO: " (transform script)) (transform script))
|
||||||
((('term command)) `(,(transform command)))
|
((('term command)) `(,(transform command)))
|
||||||
((('term command) ...) (map transform command))
|
((('term command) ...) (map transform command))
|
||||||
((('term command) (('term commands) ...)) (map transform (cons command commands)))
|
((('term command) (('term commands) ...)) (map transform (cons command commands)))
|
||||||
|
|
|
@ -37,8 +37,7 @@
|
||||||
(define-peg-pattern here-document all (and (+ (and (not-followed-by here-delim) peg-any)) here-delim))
|
(define-peg-pattern here-document all (and (+ (and (not-followed-by here-delim) peg-any)) here-delim))
|
||||||
|
|
||||||
(define-peg-string-patterns
|
(define-peg-string-patterns
|
||||||
"script <-- ws* (term (separator term)* separator?)? eof
|
"script <-- ws* (term (separator term)* separator?)?
|
||||||
eof < !. / error
|
|
||||||
error <-- .*
|
error <-- .*
|
||||||
term <-- pipeline (sp* ('&&' / '||') ws* pipeline)*
|
term <-- pipeline (sp* ('&&' / '||') ws* pipeline)*
|
||||||
pipeline <-- '!'? sp* command (sp* pipe ws* command)*
|
pipeline <-- '!'? sp* command (sp* pipe ws* command)*
|
||||||
|
|
|
@ -1 +0,0 @@
|
||||||
echo "$(ls)"
|
|
|
@ -0,0 +1 @@
|
||||||
|
echo $(find test -type f)
|
Loading…
Reference in New Issue