get-program-name ( -- name )

Vocabulary

command-line.parser.private

Inputs

None

Outputs

name

an object

Definition

USING: combinators.short-circuit command-line
command-line.parser io.pathnames kernel namespaces sequences ;

IN: command-line.parser.private

: get-program-name ( -- name )
    {
        [ program-name get ]
        [ script get [ "factor " prepend ] [ f ] if* ]
        [
            "run" get [
                dup "tools.deploy.shaker" =
                [ drop f ] [ "factor -run=" prepend ] if
            ] [ f ] if*
        ]
        [ (command-line) first file-name ]
    } 0|| ;