redirect* ( actions obj flags fd -- )

Vocabulary

io.launcher.unix

Inputs

actions	an object
obj	an object
flags	an object
fd	an object

Outputs

None

Definition

USING: accessors combinators io.backend.unix io.launcher
io.ports kernel strings ;

IN: io.launcher.unix

: redirect* ( actions obj flags fd -- )
    {
        { [ pick not ] [ 4drop ] }
        { [ pick string? ] [ redirect-file* ] }
        { [ pick appender? ] [ redirect-file-append* ] }
        { [ pick +closed+ eq? ] [ redirect-closed* ] }
        {
            [ pick fd? ]
            [ [ drop fd>> 2dup reset-fd* ] dip redirect-fd* ]
        }
        [ [ underlying-handle ] 2dip redirect* ]
    } cond ;