2006-02-13 23:44:09 -05:00
|
|
|
IN: process
|
2006-02-04 01:58:33 -05:00
|
|
|
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
|
