Chat server: Difference between revisions
Content added Content deleted
(Adding R implementation) |
m (Ol: removed deprecated function call) |
||
Line 2,261: | Line 2,261: | ||
=={{header|Ol}}== |
=={{header|Ol}}== |
||
<lang scheme> |
<lang scheme> |
||
(import (otus vm)) |
|||
(define (timestamp) (syscall 201 "%c")) |
(define (timestamp) (syscall 201 "%c")) |
||
Line 2,326: | Line 2,325: | ||
;(print "\n# " (timestamp) ": new request from " (syscall 51 fd)) |
;(print "\n# " (timestamp) ": new request from " (syscall 51 fd)) |
||
(fork (on-accept (syscall 51 fd) fd)))) |
(fork (on-accept (syscall 51 fd) fd)))) |
||
( |
(sleep 0) |
||
(loop)))) |
(loop)))) |
||
Line 2,385: | Line 2,384: | ||
(127.0.0.1 . 55320): see you.. |
(127.0.0.1 . 55320): see you.. |
||
</pre> |
</pre> |
||
=={{header|Perl}}== |
=={{header|Perl}}== |