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

fix <process-stream> memory corruption error

chris.double 2006-09-08 02:26:43 +00:00
parent 6a69c77574
commit 147b13e32e
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
contrib/process.factor
View File

@ -1,12 +1,21 @@
IN: process IN: process
USING: compiler io io-internals kernel parser ; USING: compiler io io-internals kernel parser generic ;
FUNCTION: int system ( char* command ) ; FUNCTION: int system ( char* command ) ;
FUNCTION: void* popen ( char* command, char* type ) ; FUNCTION: void* popen ( char* command, char* type ) ;
FUNCTION: int pclose ( void* file ) ;
: <process-stream> ( command mode -- stream ) TUPLE: process-stream pipe ;
popen dup <c-stream> ;
C: process-stream ( command mode -- stream )
>r popen dup r>
[ set-process-stream-pipe ] keep
>r dup <duplex-c-stream> r>
[ set-delegate ] keep ;
M: process-stream stream-close
process-stream-pipe [ pclose drop ] when* ;
: !" parse-string system drop ; parsing : !" parse-string system drop ; parsing