Sockets: Difference between revisions
Content added Content deleted
({{omit from|PARI/GP}}) |
(Erlang version) |
||
Line 257: | Line 257: | ||
socket.close() ; |
socket.close() ; |
||
}</lang> |
}</lang> |
||
=={{header|Erlang}}== |
|||
<lang erlang>-module(socket). |
|||
-export([start/0]). |
|||
start() -> |
|||
{ok, Listen} = gen_tcp:listen(256, []), |
|||
{ok, Socket} = gen_tcp:accept(Listen), |
|||
gen_tcp:close(Listen), |
|||
loop(Socket). |
|||
loop(Socket) -> |
|||
receive |
|||
{tcp, Socket, _} -> |
|||
gen_tcp:send(Socket, "hello socket world"), |
|||
loop(Socket); |
|||
{tcp_closed, Socket} -> |
|||
ok |
|||
end. |
|||
</lang> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |