Artifact bd33842075671845d821c40407a2210d24900850

File user/crc/irc.retro part of check-in [eb5eb63545] - irc; fix header block by crc on 2010-06-17 13:07:04. [annotate]

( Rx to IRC Bindings ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
( Copyright [c] 2010, Charles Childers                        )
( License: ISC                                                )
( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )

&net open
vocab client
((
  variable sock
  : newClient ( $p-f ) net.socket dup !sock net.connect ;
  : <send> ( $-f ) @sock net.send ;
  : <read> ( -c )  @sock net.recv ;
))

create crlf 10 , 13 , 0 ,

: send  <send> drop ;
: sendn send crlf send ;

" irc.freenode.net" 6667 newClient constant irc
" NICK rx-irc" sendn
" USER crc 8 *  : Charles Childers" sendn
" JOIN #retro" sendn

: say s" PRIVMSG #retro :" send '. accept tib send crlf send ;

: r repeat <read> dup 10 = over 13 = or if; emit again ;
: get r r reset ;
: lines repeat key 27 = if; get cr again ;