steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

irc.client: Add participant mode symbols

db4
Bruno Deferrari 2008-07-12 00:46:05 -03:00
parent c5e55ce6ec
commit a1ac7a5c01
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/irc/client/client.factor
View File

@ -31,6 +31,15 @@ TUPLE: irc-channel-listener < irc-listener name password timeout participants ;
TUPLE: irc-nick-listener < irc-listener name ; TUPLE: irc-nick-listener < irc-listener name ;
SYMBOL: +server-listener+ SYMBOL: +server-listener+
! participant modes
SYMBOL: +operator+
SYMBOL: +voice+
SYMBOL: +normal+
: participant-mode ( n -- assoc )
H{ { 64 +operator+ } { 43 +voice+ } { 0 +normal+ } } at ;
! listener objects
: <irc-listener> ( -- irc-listener ) <mailbox> <mailbox> irc-listener boa ; : <irc-listener> ( -- irc-listener ) <mailbox> <mailbox> irc-listener boa ;
: <irc-server-listener> ( -- irc-server-listener ) : <irc-server-listener> ( -- irc-server-listener )
@ -182,7 +191,7 @@ M: quit handle-incoming-irc ( quit -- )
call-next-method ; call-next-method ;
: >nick/mode ( string -- nick mode ) : >nick/mode ( string -- nick mode )
dup first "+@" member? [ unclip ] [ f ] if ; dup first "+@" member? [ unclip ] [ 0 ] if participant-mode ;
: names-reply>participants ( names-reply -- participants ) : names-reply>participants ( names-reply -- participants )
trailing>> [ blank? ] trim " " split trailing>> [ blank? ] trim " " split