Echo server: Difference between revisions
Content added Content deleted
(→{{header|Tcl}}: A few notes) |
(added factor example) |
||
Line 530: | Line 530: | ||
(echo-server 12321)</lang> |
(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}}== |
=={{header|Forth}}== |