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

Support io-here.

This commit is contained in:
Jan Nieuwenhuizen 2018-11-04 19:33:57 +01:00
parent 8d0d50240b
commit 8f87f7dffa
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gash/peg.scm
View File

@ -170,7 +170,7 @@
function-body <- compound-command io-redirect*
io-redirect <-- [0-9]* sp* (io-here / io-file)
io-file <-- ('<&' / '>&' / '>>' / '>' / '<>'/ '<' / '>|') sp* ([0-9]+ / filename)
io-file <-- ('<&' / '>&' / '>>' / '>' / '<>'/ '<' / '>|') sp* ([0-9]+ / file-name)
io-here <- ('<<' / '<<-') io-suffix here-document
io-op < '<<-' / '<<' / '<&' / '>&' / '>>' / '>' / '<>'/ '<' / '>|'
io-suffix <- sp* here-label sp* nl
@ -209,7 +209,7 @@
until-keyword < 'until'
until-clause <-- until-keyword ws* compound-list separator do-group
filename <-- word
file-name <-- word
name <-- identifier
identifier <- [_a-zA-Z][_a-zA-Z0-9]*
word <-- assignment / (delim / number / variable / variable-and-or / literal)+
@ -304,6 +304,9 @@
(('pipeline ('command command ('io-redirect ('io-file ">" file-name))))
(transform `(pipeline (command ,@(transform command)) (lambda _ (with-output-to-file ,(transform file-name) (lambda _ (display (read-string))))))))
(('pipeline ('command command ('io-redirect "<<" ('here-document here-document))))
(transform `(pipeline (lambda _ (display ,here-document)) (command ,(transform command)))))
(('pipeline o ...)
(let ((commands (map transform o)))
`(pipeline ,@(cons (trace commands) commands))))