Anonymous user
Echo server: Difference between revisions
Added PicoLisp
m (moved Echo Server to Echo server) |
(Added PicoLisp) |
||
Line 596:
}</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(setq Port (port 12321))
(loop
(setq Sock (listen Port)) # Listen
(NIL (fork) (close Port)) # Accepted
(close Sock) ) # Parent: Close socket and continue
# Child:
(prinl (stamp) " -- (Pid " *Pid ") Client connected from " *Adr)
(in Sock
(until (eof) # Echo lines
(out Sock (prinl (line))) ) )
(prinl (stamp) " -- (Pid " *Pid ") Client disconnected")
(bye) # Terminate child</lang>
=={{header|Oz}}==
|