13 lines
334 B
Factor
13 lines
334 B
Factor
|
USING: compiler io io-internals kernel parser ;
|
||
|
|
|
||
|
|
FUNCTION: int system ( char* command ) ; compiled
|
||
|
|
|
||
|
|
FUNCTION: void* popen ( char* command, char* type ) ; compiled
|
||
|
|
|
||
|
|
FUNCTION: int fileno ( void* file ) ; compiled
|
||
|
|
|
||
|
|
: <process-stream> ( command mode -- stream )
|
||
|
|
popen fileno dup <fd-stream> ;
|
||
|
|
|
||
|
|
: !" parse-string system drop ; parsing
|