(parse-command-line) ( args -- )

Vocabulary

command-line

Inputs

args

an object

Outputs

None

Definition

USING: kernel namespaces sequences splitting ;

IN: command-line

: (parse-command-line) ( args -- )
    [
        unclip "-" ?head [
            [ 45 = ] trim-head [ param ] [ "run=" head? ] bi
            [ command-line set ] [ (parse-command-line) ] if
        ] [ script set command-line set ] if
    ] unless-empty ;