DELETED user/crc/irc.retro
Index: user/crc/irc.retro
===================================================================
--- user/crc/irc.retro
+++ user/crc/irc.retro
@@ -1,73 +0,0 @@
-( Rx to IRC Bindings ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-( Copyright [c] 2010, Charles Childers                        )
-( License: ISC                                                )
-( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-( Commands:                                                   )
-(  /server servername                                         )
-(  /nick nickname                                             )
-(  /who identity                                              )
-(  /join channel                                              )
-(  say text<esc>                                              )
-(  in channel                                                 )
-( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-( n lines   Read n lines from server                          )
-( line      Read 1 line from server                           )
-( skim      Read from server, pausing after each line. If     )
-(           esc is hit, stop, otherwise continue.             )
-( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-
-: get accept ;
-
-
-with strings'
-with net'
-
-chain: irc'
-  ( Data ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-  create CRLF 10 , 13 , 0 ,
-  2 elements ircSocket channel
-
-  ( Code ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-  : write   ( $-  ) @ircSocket send drop ;
-  : write+  ( $-  ) write CRLF write ;
-  : read    (  -c ) @ircSocket recv ;
-  : pong    (  -  ) "PONG :kornbluth.freenode.net" write+ ;
-
-  {{
-    : r     (  -  ) repeat read dup 10 = over 13 = or if; emit again ;
-  ---reveal---
-    : line  (  -  ) r r pong reset cr ;
-    : lines ( n-  ) for line next ;
-    : skim  ( "-  ) repeat key 27 = if; line again ;
-  }}
-
-  : in      ( "-  ) getToken keepString !channel ;
-  {{
-    : to    (  -  ) s" PRIVMSG " write @channel write s"  :" write ;
-    : msg   ( "-  ) 27 get tib write+ ;
-  ---reveal---
-    : say   ( "-  ) to msg pong ;
-  }}
-
-  : /server ( "-  )
-    getToken 6667 socket dup !ircSocket connect drop ;
-  : /nick   ( "-  )  "NICK " write getToken write+ ;
-  : /join   ( "-  )  "JOIN " write getToken write+ ;
-  {{
-    : who   ( "-  )  "USER " getToken append ;
-    : ident (  -  )  s"  8 *  : Charles Childers" append write+ ;
-  ---reveal---
-    : /user ( "-  )  who ident ;
-  }}
-;chain
-
-hide get
-
-with irc'
-
-( Make Connection ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
-/server kornbluth.freenode.net
-/nick rx-irc
-/user crc_rxirc
-/join #retro
-in #retro