USING: kernel ;

IN: io.launcher

TUPLE: process < identity-tuple
command detached environment environment-mode stdin stdout
stderr priority group timeout handle status killed pipe ;

USING: io.launcher kernel ;

M: process >process
dup process-started? [ process-already-started ] when clone
;

USING: io.launcher io.timeouts ;

M: process cancel-operation kill-process ;

USING: accessors io.launcher io.timeouts ;

M: process set-timeout timeout<< ;

USING: accessors io.launcher io.timeouts ;

M: process timeout timeout>> ;