16 lines
693 B
Factor
16 lines
693 B
Factor
! Copyright (C) 2008 Bruno Deferrari, Doug Coleman, Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors concurrency.mailboxes destructors
|
|
irc.client.base irc.client.chats irc.client.internals kernel
|
|
namespaces sequences ;
|
|
IN: irc.client
|
|
|
|
: connect-irc ( irc-client -- )
|
|
[ (connect-irc) (do-login) spawn-irc ] with-irc ;
|
|
|
|
: attach-chat ( irc-chat irc-client -- ) [ (attach-chat) ] with-irc ;
|
|
: detach-chat ( irc-chat -- ) dup client>> [ remove-chat ] with-irc ;
|
|
: speak ( message irc-chat -- ) dup client>> [ (speak) ] with-irc ;
|
|
: hear ( irc-chat -- message ) in-messages>> mailbox-get ;
|
|
: terminate-irc ( irc-client -- ) [ (terminate-irc) ] with-irc ;
|