io-here.
This commit is contained in:
parent
b6340bd612
commit
303746a4bc
1
check.sh
1
check.sh
|
@ -75,6 +75,7 @@ tests="
|
||||||
41-dot
|
41-dot
|
||||||
|
|
||||||
50-iohere
|
50-iohere
|
||||||
|
50-iohere-builtin
|
||||||
50-redirect
|
50-redirect
|
||||||
50-redirect-space
|
50-redirect-space
|
||||||
50-redirect-in
|
50-redirect-in
|
||||||
|
|
|
@ -188,6 +188,8 @@
|
||||||
#'(with-output-to-file file-name (command word ...)))
|
#'(with-output-to-file file-name (command word ...)))
|
||||||
((_ word ... (io-redirect "2" (io-file ">" file-name)))
|
((_ word ... (io-redirect "2" (io-file ">" file-name)))
|
||||||
#'(with-error-to-file file-name (command word ...)))
|
#'(with-error-to-file file-name (command word ...)))
|
||||||
|
((_ word ... (io-redirect (io-here "<<" (io-here-document string))))
|
||||||
|
#'(pipeline (cut display string) (command word ...)))
|
||||||
((_ word ...)
|
((_ word ...)
|
||||||
#'(exec-command word ...)))))
|
#'(exec-command word ...)))))
|
||||||
|
|
||||||
|
|
|
@ -0,0 +1,3 @@
|
||||||
|
\cat <<EOF
|
||||||
|
foobar
|
||||||
|
EOF
|
Loading…
Reference in New Issue