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

releasing 0.76

cvs 0.76
Slava Pestov 2005-07-23 22:27:29 +00:00
parent 6937977801
commit ec00514d3f
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
examples/factorbot.factor
View File

@ -33,7 +33,7 @@ GENERIC: handle-irc
PREDICATE: string privmsg "PRIVMSG" swap subseq? ; PREDICATE: string privmsg "PRIVMSG" swap subseq? ;
M: string handle-irc ( line -- ) M: string handle-irc ( line -- )
drop ( print flush ) ; drop ;
: parse-privmsg ( line -- text ) : parse-privmsg ( line -- text )
":" ?head drop ":" ?head drop
@ -72,7 +72,7 @@ M: privmsg handle-irc ( line -- )
: irc-loop ( -- ) : irc-loop ( -- )
irc-stream get stream-readln irc-stream get stream-readln
[ handle-irc irc-loop ] when* ; [ dup print flush handle-irc irc-loop ] when* ;
: factorbot : factorbot
"irc.freenode.net" connect "irc.freenode.net" connect
@ -90,10 +90,8 @@ IN: factorbot-commands
] [ ] [
nip [ nip [
dup word-string " -- " rot word-url append3 respond dup word-string " -- " rot word-url append3 respond
] each-with ] each
] ifte ; ] ifte ;
: quit ( text -- ) : quit ( text -- )
drop speaker "slava" = [ disconnect ] when ; drop speaker get "slava" = [ disconnect ] when ;
factorbot