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