stomp-main ( -- )

Vocabulary

stomp.cli

Inputs

None

Outputs

None

Definition

USING: command-line.parser command-loop kernel sequences ;

IN: stomp.cli

: stomp-main ( -- )
    OPTIONS [
        "Welcome to STOMP!" "STOMP>" <command-loop> COMMANDS
        [ over add-command ] each
        start-stomp-client run-command-loop
    ] with-options ;