command-line-startup ( -- )

Vocabulary

command-line.startup

Inputs

None

Outputs

None

Definition

USING: combinators command-line eval io kernel namespaces parser
system vocabs.loader ;

IN: command-line.startup

: command-line-startup ( -- )
    (command-line) parse-command-line {
        { [ help? ] [ help. ] }
        { [ version? ] [ vm-info print ] }
        [
            load-vocab-roots run-user-init "e" get script get or 
            [
                t auto-use? [
                    "e" get [ eval-with-stack ] when* script get
                    [ run-script ] when*
                ] with-variable
            ] [ "run" get run ] if
        ]
    } cond output-stream get [ stream-flush ] when* quit ;