handle-command ( string -- )

Vocabulary

managed-server.chat

Inputs

string

an object

Outputs

None

Definition

USING: assocs combinators kernel namespaces sequences splitting
unicode ;

IN: managed-server.chat

: handle-command ( string -- )
    dup " " split1 swap >lower commands get at*
    [ ( string -- ) call-effect drop ]
    [ 2drop "Unknown command: " prepend send-line ] if ;