(process-stream) ( desc encoding -- stream process )

Vocabulary

io.launcher.private

Inputs

desc	an object
encoding	an object

Outputs

stream	an object
process	an object

Definition

USING: accessors combinators destructors io.launcher io.pipes
io.ports io.streams.duplex kernel ;

IN: io.launcher.private

: (process-stream) ( desc encoding -- stream process )
    [
        [
            (pipe) |dispose (pipe) |dispose {
                [
                    rot >process t >>hidden
                    [ swap in>> or ] change-stdin
                    [ swap out>> or ] change-stdout run-detached
                ]
                [
                    [ out>> &dispose drop ]
                    [ in>> &dispose drop ] bi*
                ]
                [
                    [ in>> <input-port> ]
                    [ out>> <output-port> ] bi*
                ]
            } 2cleave
        ] dip <encoder-duplex> swap
    ] with-destructors ;