wip echo server

This commit is contained in:
Peter Harpending
2026-09-01 21:24:15 -07:00
parent 8f8e10bf28
commit 997c3d1da3
9 changed files with 816 additions and 0 deletions
+18
View File
@@ -0,0 +1,18 @@
-module(hello_client).
-export([main/0]).
main() ->
{ok, Socket} = gen_tcp:connect("localhost", 6969, [binary, {packet, 0}]),
loop(Socket).
loop(Socket) ->
ok = inet:setopts(Socket, [{active, once}]),
receive
{tcp, Socket, Bytes} ->
ok = io:format("< ~tp~n", [Bytes]),
loop(Socket);
{tcp_closed, Socket} ->
ok = io:format("connection terminated~n", []),
exit(normal)
end.