Echo server: Difference between revisions
Content added Content deleted
(omit m4) |
m (Fixed lang tags.) |
||
| Line 472: | Line 472: | ||
(setq *clients* (remove socket *clients* :key #'car))) |
(setq *clients* (remove socket *clients* :key #'car))) |
||
(echo-server 12321) |
(echo-server 12321)</lang> |
||
</lang> |
|||
=={{header|Forth}}== |
=={{header|Forth}}== |
||
{{works with|GNU Forth|0.7.0}} |
{{works with|GNU Forth|0.7.0}} |
||
<lang forth> |
<lang forth>include unix/socket.fs |
||
include unix/socket.fs |
|||
128 constant size |
128 constant size |
||
| Line 507: | Line 505: | ||
again ; |
again ; |
||
12321 echo-server |
12321 echo-server</lang> |
||
</lang> |
|||
''TODO: use tasker.fs and non-blocking semantics to handle mutliple connections'' |
''TODO: use tasker.fs and non-blocking semantics to handle mutliple connections'' |
||