Anonymous user
Echo server: Difference between revisions
added factor example
(→{{header|Tcl}}: A few notes) |
(added factor example) |
||
Line 530:
(echo-server 12321)</lang>
=={{header|Factor}}==
Connections get logged to <code>/place-where-factor-is/logs/echo-server</code>.
<lang factor>USING: accessors io io.encodings.utf8 io.servers.connection
threads ;
IN: rosetta.echo
CONSTANT: echo-port 12321
: handle-client ( -- )
[ write "\r\n" write flush ] each-line ;
: <echo-server> ( -- threaded-server )
utf8 <threaded-server>
"echo-server" >>name
echo-port >>insecure
[ handle-client ] >>handler ;
: start-echo-server ( -- threaded-server )
<echo-server> [ start-server ] in-thread ;</lang>
=={{header|Forth}}==
| |||