add irc.factor to contrib
Slava Pestov
parent
e062a5f743
commit
2fccd38742
|
|
@ -0,0 +1,152 @@
|
|||
!:folding=indent:collapseFolds=1:
|
||||
|
||||
! $Id$
|
||||
!
|
||||
! Copyright (C) 2004 Slava Pestov.
|
||||
!
|
||||
! Redistribution and use in source and binary forms, with or without
|
||||
! modification, are permitted provided that the following conditions are met:
|
||||
!
|
||||
! 1. Redistributions of source code must retain the above copyright notice,
|
||||
! this list of conditions and the following disclaimer.
|
||||
!
|
||||
! 2. Redistributions in binary form must reproduce the above copyright notice,
|
||||
! this list of conditions and the following disclaimer in the documentation
|
||||
! and/or other materials provided with the distribution.
|
||||
!
|
||||
! THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
||||
! INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
|
||||
! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
|
||||
! DEVELOPERS AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||
! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
|
||||
! PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
|
||||
! OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
|
||||
! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
||||
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
|
||||
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
|
||||
IN: irc
|
||||
USE: arithmetic
|
||||
USE: combinators
|
||||
USE: errors
|
||||
USE: inspector
|
||||
USE: interpreter
|
||||
USE: kernel
|
||||
USE: lists
|
||||
USE: logic
|
||||
USE: math
|
||||
USE: namespaces
|
||||
USE: parser
|
||||
USE: prettyprint
|
||||
USE: regexp
|
||||
USE: stack
|
||||
USE: stdio
|
||||
USE: streams
|
||||
USE: strings
|
||||
USE: words
|
||||
USE: unparser
|
||||
|
||||
: irc-register ( -- )
|
||||
"USER " write
|
||||
"user" get write " " write
|
||||
"host" get write " " write
|
||||
"server" get write " " write
|
||||
"realname" get write " " print
|
||||
|
||||
"NICK " write
|
||||
"nick" get print ;
|
||||
|
||||
: irc-join ( channel -- )
|
||||
"JOIN " write print ;
|
||||
|
||||
: irc-message ( message recepients -- )
|
||||
"PRIVMSG " write write " :" write print ;
|
||||
|
||||
: irc-action ( message recepients -- )
|
||||
"ACTION " write write " :" write print ;
|
||||
|
||||
: keep-datastack ( quot -- )
|
||||
datastack [ call ] dip set-datastack drop ;
|
||||
|
||||
: <irc-stream> ( stream recepient -- stream )
|
||||
<stream> [
|
||||
"recepient" set
|
||||
"stdio" set
|
||||
100 <sbuf> "buf" set
|
||||
[
|
||||
dup "buf" get sbuf-append
|
||||
ends-with-newline? [
|
||||
"buf" get >str
|
||||
0 "buf" get set-sbuf-length
|
||||
"\n" split [ "recepient" get irc-message ] each
|
||||
] when
|
||||
] "fwrite" set
|
||||
] extend ;
|
||||
|
||||
: irc-eval ( line -- )
|
||||
[
|
||||
[
|
||||
eval
|
||||
] [
|
||||
default-error-handler
|
||||
] catch
|
||||
] keep-datastack drop ;
|
||||
|
||||
: with-irc-stream ( recepient quot -- )
|
||||
[
|
||||
[ "stdio" get swap <irc-stream> "stdio" set ] dip
|
||||
call
|
||||
] with-scope ;
|
||||
|
||||
: irc-action-quot ( action -- quot )
|
||||
[
|
||||
[ "eval" irc-eval ]
|
||||
[ "see" see terpri ]
|
||||
] assoc [ [ drop ] ] unless* ;
|
||||
|
||||
: irc-action-handler ( messag e -- )
|
||||
" " split1 swap irc-action-quot call ;
|
||||
|
||||
: irc-handle-privmsg ( [ recepient message ] -- )
|
||||
uncons car swap [ irc-action-handler ] with-irc-stream ;
|
||||
|
||||
: irc-handle-join ( [ joined channel ] -- )
|
||||
uncons car
|
||||
[
|
||||
dup "nick" get = [
|
||||
"Hi " swap cat2 print
|
||||
] unless
|
||||
] with-irc-stream ;
|
||||
|
||||
: irc-input ( line -- )
|
||||
#! Handle a line of IRC input.
|
||||
dup
|
||||
":.+?!.+? PRIVMSG (.+)?:(.+)" groups [
|
||||
irc-handle-privmsg
|
||||
] when*
|
||||
dup ":(.+)!.+ JOIN :(.+)" groups [
|
||||
irc-handle-join
|
||||
] when*
|
||||
|
||||
global [ print ] bind ;
|
||||
|
||||
: irc-loop ( -- )
|
||||
read [ irc-input irc-loop ] when* ;
|
||||
|
||||
: irc ( channels -- )
|
||||
irc-register
|
||||
dup [ irc-join ] each
|
||||
[ "Hello everybody" swap irc-message ] each
|
||||
irc-loop ;
|
||||
|
||||
: irc-test
|
||||
"factorbot" "user" set
|
||||
"emu" "host" set
|
||||
"irc.freenode.net" "server" set
|
||||
"Factor" "realname" set
|
||||
"factorbot" "nick" set
|
||||
<namespace> "facts" set
|
||||
"irc.freenode.net" 6667 <client>
|
||||
<namespace> [ "stdio" set [ "#factor" ] irc ] bind ;
|
||||
|
||||
!! "factor/irc.factor" run-file
|
||||
|
|
@ -56,6 +56,9 @@ public class FactorWordRenderer extends DefaultListCellRenderer
|
|||
String prop = "factor.completion.plain";
|
||||
String stackEffect = null;
|
||||
|
||||
if(!value instanceof FactorWord)
|
||||
return this;
|
||||
|
||||
FactorWord word = (FactorWord)value;
|
||||
if(word.def == null)
|
||||
{
|
||||
|
|
|
|||
Loading…
Reference in New Issue