1 ! Copyright (C) 2009 Bruno Deferrari
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: accessors ascii combinators.short-circuit
4 irc.messages.base kernel math sequences splitting ;
8 IRC: pass "PASS" password ;
9 IRC: nick "NICK" : nickname ;
10 IRC: user "USER" user mode _ : realname ;
11 IRC: oper "OPER" name password ;
12 IRC: mode "MODE" name mode parameter ;
13 IRC: service "SERVICE" nickname _ distribution type _ : info ;
14 IRC: quit "QUIT" : comment ;
15 IRC: squit "SQUIT" server : comment ;
17 IRC: join "JOIN" : channel ;
18 IRC: part "PART" channel : comment ;
19 IRC: topic "TOPIC" channel : topic ;
20 IRC: names "NAMES" channel ;
21 IRC: list "LIST" channel ;
22 IRC: invite "INVITE" nickname channel ;
23 IRC: kick "KICK" channel user : comment ;
25 IRC: privmsg "PRIVMSG" target : text ;
26 IRC: notice "NOTICE" target : text ;
28 IRC: motd "MOTD" target ;
29 IRC: lusers "LUSERS" mask target ;
30 IRC: version "VERSION" target ;
31 IRC: stats "STATS" query target ;
32 IRC: links "LINKS" server mask ;
33 IRC: time "TIME" target ;
34 IRC: connect "CONNECT" server port remote-server ;
35 IRC: trace "TRACE" target ;
36 IRC: admin "ADMIN" target ;
37 IRC: info "INFO" target ;
39 IRC: servlist "SERVLIST" mask type ;
40 IRC: squery "SQUERY" service-name : text ;
42 IRC: who "WHO" mask operator ;
43 IRC: whois "WHOIS" target mask ;
44 IRC: whowas "WHOWAS" nickname count target ;
46 IRC: kill "KILL" nickname : comment ;
47 IRC: ping "PING" server1 server2 ;
48 IRC: pong "PONG" server1 server2 ;
49 IRC: error "ERROR" : message ;
51 IRC: rpl-welcome "001" nickname : comment ;
52 IRC: rpl-whois-user "311" nicnamek user host _ : real-name ;
53 IRC: rpl-channel-modes "324" channel mode params ;
54 IRC: rpl-notopic "331" channel : topic ;
55 IRC: rpl-topic "332" channel : topic ;
56 IRC: rpl-inviting "341" channel nickname ;
57 IRC: rpl-names "353" nickname _ channel : nicks ;
58 IRC: rpl-names-end "366" nickname channel : comment ;
60 IRC: rpl-nickname-in-use "433" _ name ;
61 IRC: rpl-nick-collision "436" nickname : comment ;
63 PREDICATE: channel-mode < mode name>> first "#&" member? ;
64 PREDICATE: participant-mode < channel-mode parameter>> ;
65 PREDICATE: ctcp < privmsg
66 trailing>> { [ length 1 > ] [ first 1 = ] [ last 1 = ] } 1&& ;
67 PREDICATE: action < ctcp trailing>> rest "ACTION" head? ;
69 M: rpl-names post-process-irc-message ( rpl-names -- )
70 [ [ ascii:blank? ] trim split-words ] change-nicks drop ;
72 M: ctcp post-process-irc-message ( ctcp -- )
73 [ rest but-last ] change-text drop ;
75 M: action post-process-irc-message ( action -- )
76 [ 7 tail ] change-text call-next-method ;