factor/extra/tty-server/tty-server.factor

USING: listener io.servers.connection io.encodings.utf8
accessors kernel ;
IN: tty-server

: <tty-server> ( port -- )
    utf8 <threaded-server>
        "tty-server" >>name
        swap local-server >>insecure
        [ listener ] >>handler
    start-server ;

: tty-server ( -- ) 9999 <tty-server> ;

MAIN: tty-server
Fix build errors 2008-06-17 06:21:45 -04:00			`USING: listener io.servers.connection io.encodings.utf8`
			`accessors kernel ;`
Initial import 2007-09-20 18:09:08 -04:00			`IN: tty-server`

Updating code for new io.servers code 2008-06-17 01:08:50 -04:00			`: <tty-server> ( port -- )`
change threaded-server and managed-server to take an encoding 2009-05-30 20:15:53 -04:00			`utf8 <threaded-server>`
Updating code for new io.servers code 2008-06-17 01:08:50 -04:00			`"tty-server" >>name`
			`swap local-server >>insecure`
Fix build errors 2008-06-17 06:21:45 -04:00			`[ listener ] >>handler`
			`start-server ;`
Initial import 2007-09-20 18:09:08 -04:00
Fix build errors 2008-06-17 06:21:45 -04:00			`: tty-server ( -- ) 9999 <tty-server> ;`
Initial import 2007-09-20 18:09:08 -04:00
Updating code for new io.servers code 2008-06-17 01:08:50 -04:00			`MAIN: tty-server`