steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix <process-writer> and <process-stream>

db4
Slava Pestov 2008-07-24 21:47:09 -05:00
parent a5efaa49a0
commit 0fd34b4a4b
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/io/launcher/launcher.factor
View File

@ -183,7 +183,7 @@ M: object run-pipeline-element
[ |dispose drop ] [ |dispose drop ]
[ [
swap >process swap >process
[ swap in>> or ] change-stdout [ swap in>> or ] change-stdin
run-detached run-detached
] ]
[ in>> dispose ] [ in>> dispose ]
@ -200,8 +200,8 @@ M: object run-pipeline-element
[ [ |dispose drop ] bi@ ] [ [ |dispose drop ] bi@ ]
[ [
rot >process rot >process
[ swap out>> or ] change-stdout
[ swap in>> or ] change-stdin [ swap in>> or ] change-stdin
[ swap out>> or ] change-stdout
run-detached run-detached
] ]
[ [ out>> dispose ] [ in>> dispose ] bi* ] [ [ out>> dispose ] [ in>> dispose ] bi* ]

13
extra/io/unix/launcher/launcher-tests.factor
View File

@ -1,7 +1,8 @@
IN: io.unix.launcher.tests IN: io.unix.launcher.tests
USING: io.files tools.test io.launcher arrays io namespaces USING: io.files tools.test io.launcher arrays io namespaces
continuations math io.encodings.binary io.encodings.ascii continuations math io.encodings.binary io.encodings.ascii
accessors kernel sequences io.encodings.utf8 destructors ; accessors kernel sequences io.encodings.utf8 destructors
io.streams.duplex ;
[ ] [ [ ] [
[ "launcher-test-1" temp-file delete-file ] ignore-errors [ "launcher-test-1" temp-file delete-file ] ignore-errors
@ -111,4 +112,12 @@ accessors kernel sequences io.encodings.utf8 destructors ;
"append-test" temp-file utf8 file-contents "append-test" temp-file utf8 file-contents
] unit-test ] unit-test
[ ] [ "ls" utf8 <process-stream> contents drop ] unit-test [ t ] [ "ls" utf8 <process-stream> contents >boolean ] unit-test
[ "Hello world.\n" ] [
"cat" utf8 <process-stream> [
"Hello world.\n" write
output-stream get dispose
input-stream get contents
] with-stream
] unit-test