andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

checkpoint

This commit is contained in:
Jan Nieuwenhuizen 2018-07-15 21:44:15 +02:00
parent 1f5c82ecae
commit 24c35cc5d9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gash/peg.scm
View File

@ -142,7 +142,8 @@
filename <-- word filename <-- word
name <-- identifier name <-- identifier
identifier <- [_a-zA-Z][_a-zA-Z0-9]* identifier <- [_a-zA-Z][_a-zA-Z0-9]*
word <- substitution / assignment / number / variable / delim / literal oldword <- substitution / assignment / number / variable / delim / literal
word <-- assignment / delim / (substitution / number / variable / literal)+
number <-- [0-9]+ number <-- [0-9]+
lsubst < '$(' lsubst < '$('
rsubst < ')' rsubst < ')'
@ -258,4 +259,6 @@
(('if-clause expr then else) `(if-clause ,(transform expr) ,(transform then) ,(transform else))) (('if-clause expr then else) `(if-clause ,(transform expr) ,(transform then) ,(transform else)))
(('then-part o ...) `(begin ,@(map transform o))) (('then-part o ...) `(begin ,@(map transform o)))
(('else-part o ...) `(begin ,@(map transform o))) (('else-part o ...) `(begin ,@(map transform o)))
(('word o) (transform o))
(('word o ...) `(string-append ,@(map transform o)))
(_ ast))) (_ ast)))