ast>pipeline-expr ( ast -- obj )

Vocabulary

shell.parser

Inputs

ast

an object

Outputs

obj

an object

Definition

USING: accessors kernel sequences ;

IN: shell.parser

: ast>pipeline-expr ( ast -- obj )
    pipeline-expr new over
    [ first ] [ fourth [ first ] map ] [ 4 swap nth ] tri suffix
    swap prefix >>commands over second >>stdin over 5 swap nth
    >>stdout 6 rot nth >>background ;