do-help ( args command-loop -- )

Vocabulary

command-loop.private

Inputs

args	an object
command-loop	an object

Outputs

None

Definition

USING: accessors command-loop grouping io kernel math sequences
sorting ;

IN: command-loop.private

: do-help ( args command-loop -- )
    over empty? [
        nl "Commands available:" print
        "===================" print nip commands>>
        [ name>> ] map sort
        [ 6 <groups> ] [ longest length 4 + ] bi
        [ 32 pad-tail write ] curry [ each nl ] curry each nl
    ] [
        dupd find-command
        [ nip help>> print ]
        [ "ERROR: Command '" "' not found" surround print ] if*
    ] if ;