! Copyright (C) 2009 Your name.
! See http://factorcode.org/license.txt for BSD license.

USING: kernel threads io io.sockets io.encodings.utf8 prettyprint ;
IN: mudclient

: myconnect ( string int -- ? ) <inet> utf8 <client> 
   over 
   [ 
      [ 
         [ print ] each-line 
      ] with-input-stream 
   ] curry "input-thread" spawn 
   over 
!   [ 
!      [ 
!         readln dup [ write flush ] [ ] if
!      ] with-output-stream 
!   ] curry "output-thread" spawn 
.
;


! [ [ print ] each-line ] with-client ;

! type "IN: mudclient" in listener first, then f2
! quote name ---- thread
! for spawn ^^^

"mud.arctic.org" 2700 myconnect



 IN: mudclient
( mudclient ) [ refresh-all ]
Loading resource:work/mudclient/mudclient.factor
Loading resource:basis/io/sockets/sockets.factor
Loading resource:basis/io/sockets/unix/unix.factor
Loading resource:basis/io/sockets/sockets-docs.factor
T{ inet4 { host "192.168.2.4" } { port 57491 } }
:errors - print 1 semantic errors.
:warnings - print 6 semantic warnings.

==== mudclient:

Assertion failed
Expect: { }
Got:    {
    T{ duplex-stream
        { in
            T{ decoder
                { stream T{ input-port { handle T{ fd { fd 14 }...