handle-managed-client* ( -- )

Vocabulary

managed-server

Inputs

None

Outputs

None

Definition

IN: managed-server

HOOK: handle-managed-client* managed-server ( -- )

Methods

USING: accessors io kernel managed-server managed-server.chat
sequences splitting ;

M: chat-server handle-managed-client*
    readln dup f = [ t client quit?<< ] when
    [ "/" ?head [ handle-command ] [ handle-chat ] if ]
    unless-empty ;