Fixed TCP and UDP examples to print IP addresses and port numbers in a more readable way.

Author: fadushin

erlang/tcp_client/src/tcp_client.erl

@@ -26,19 +26,20 @@ start() ->
     ok = maybe_start_network(atomvm:platform()),
     Host = maps:get(host, config:get()),
     Port = maps:get(port, config:get()),
+    io:format("Attempting to connect to host ~p on port ~p ...~n", [Host, Port]),
     case gen_tcp:connect(Host, Port, []) of
         {ok, Socket} ->
-            io:format("Connected to ~p from ~p~n", [peer_address(Socket), local_address(Socket)]),
+            io:format("Connected to ~s from ~s~n", [peer_address(Socket), local_address(Socket)]),
             loop(Socket);
         Error ->
             io:format("An error occurred connecting: ~p~n", [Error])
     end.
 
 loop(Socket) ->
-    SendPacket = <<"AtomVM rocks!">>,
+    SendPacket = <<"AtomVM">>,
     case gen_tcp:send(Socket, SendPacket) of
         ok ->
-            io:format("Sent ~p to ~p\n", [SendPacket, peer_address(Socket)]),
+            io:format("Sent ~p to ~s\n", [SendPacket, peer_address(Socket)]),
             receive
                 {tcp_closed, Socket} ->
                     io:format("Connection closed.~n"),
@@ -47,7 +48,7 @@ loop(Socket) ->
                     io:format("TCP error ~p.~n", [Error]),
                     ok;
                 {tcp, Socket, ReceivedPacket} ->
-                    io:format("Received ~p from ~p~n", [ReceivedPacket, peer_address(Socket)]),
+                    io:format("Received ~p from ~s~n", [ReceivedPacket, peer_address(Socket)]),
                     timer:sleep(1000),
                     loop(Socket);
                 Other ->
@@ -76,7 +77,7 @@ maybe_start_network(esp32) ->
     case network:wait_for_sta(Config, 30000) of
         {ok, {Address, Netmask, Gateway}} ->
             io:format(
-                "Acquired IP address: ~p Netmask: ~p Gateway: ~p~n",
+                "Acquired IP address: ~s Netmask: ~s Gateway: ~s~n",
                 [to_string(Address), to_string(Netmask), to_string(Gateway)]
             ),
             ok;

erlang/tcp_server/src/tcp_server.erl

@@ -27,7 +27,7 @@ start() ->
     Port = maps:get(port, config:get()),
     case gen_tcp:listen(Port, []) of
         {ok, ListenSocket} ->
-            io:format("Listening on ~p.~n", [local_address(ListenSocket)]),
+            io:format("Listening on ~s.~n", [local_address(ListenSocket)]),
             spawn(fun() -> accept(ListenSocket) end),
             timer:sleep(infinity);
         Error ->
@@ -38,7 +38,7 @@ accept(ListenSocket) ->
     io:format("Waiting to accept connection...~n"),
     case gen_tcp:accept(ListenSocket) of
         {ok, Socket} ->
-            io:format("Accepted connection.  local: ~p peer: ~p~n", [
+            io:format("Accepted connection.  local: ~s peer: ~s~n", [
                 local_address(Socket), peer_address(Socket)
             ]),
             spawn(fun() -> accept(ListenSocket) end),
@@ -57,7 +57,7 @@ echo(Socket) ->
             io:format("TCP error ~p.~n", [Error]),
             ok;
         {tcp, Socket, Packet} ->
-            io:format("Received packet ~p from ~p.  Echoing back...~n", [
+            io:format("Received packet ~p from ~s.  Echoing back...~n", [
                 Packet, peer_address(Socket)
             ]),
             gen_tcp:send(Socket, Packet),
@@ -85,7 +85,7 @@ maybe_start_network(esp32) ->
     case network:wait_for_sta(Config, 30000) of
         {ok, {Address, Netmask, Gateway}} ->
             io:format(
-                "Acquired IP address: ~p Netmask: ~p Gateway: ~p~n",
+                "Acquired IP address: ~s Netmask: ~s Gateway: ~s~n",
                 [to_string(Address), to_string(Netmask), to_string(Gateway)]
             ),
             ok;

erlang/udp_client/src/udp_client.erl

@@ -26,19 +26,19 @@ start() ->
     ok = maybe_start_network(atomvm:platform()),
     case gen_udp:open(0) of
         {ok, Socket} ->
-            io:format("Opened UDP socket on ~p.~n", [local_address(Socket)]),
+            io:format("Opened UDP socket on ~s.~n", [local_address(Socket)]),
             loop(Socket);
         Error ->
             io:format("An error occurred opening UDP socket: ~p~n", [Error])
     end.
 
 loop(Socket) ->
-    Packet = <<"AtomVM rocks!">>,
+    Packet = <<"AtomVM">>,
     Host = maps:get(host, config:get()),
     Port = maps:get(port, config:get()),
     case gen_udp:send(Socket, Host, Port, Packet) of
         ok ->
-            io:format("Sent ~p to ~p:~p~n", [Packet, Host, Port]);
+            io:format("Sent ~p to ~s~n", [Packet, to_string({Host, Port})]);
         Error ->
             io:format("An error occurred sending a packet: ~p~n", [Error])
     end,
@@ -59,7 +59,7 @@ maybe_start_network(esp32) ->
     case network:wait_for_sta(Config, 30000) of
         {ok, {Address, Netmask, Gateway}} ->
             io:format(
-                "Acquired IP address: ~p Netmask: ~p Gateway: ~p~n",
+                "Acquired IP address: ~s Netmask: ~s Gateway: ~s~n",
                 [to_string(Address), to_string(Netmask), to_string(Gateway)]
             ),
             ok;

erlang/udp_server/src/udp_server.erl

@@ -27,7 +27,7 @@ start() ->
     Port = maps:get(port, config:get()),
     case gen_udp:open(Port, [{active, true}]) of
         {ok, Socket} ->
-            io:format("Opened UDP socket on ~p.~n", [local_address(Socket)]),
+            io:format("Opened UDP socket on ~s.~n", [local_address(Socket)]),
             loop();
         Error ->
             io:format("An error occurred opening UDP socket: ~p~n", [Error])
@@ -37,7 +37,7 @@ loop() ->
     io:format("Waiting to receive data...~n"),
     receive
         {udp, _Socket, Address, Port, Packet} ->
-            io:format("Received UDP packet ~p from ~p~n", [Packet, to_string({Address, Port})])
+            io:format("Received UDP packet ~p from ~s~n", [Packet, to_string({Address, Port})])
     end,
     loop().
 
@@ -55,7 +55,7 @@ maybe_start_network(esp32) ->
     case network:wait_for_sta(Config, 30000) of
         {ok, {Address, Netmask, Gateway}} ->
             io:format(
-                "Acquired IP address: ~p Netmask: ~p Gateway: ~p~n",
+                "Acquired IP address: ~s Netmask: ~s Gateway: ~s~n",
                 [to_string(Address), to_string(Netmask), to_string(Gateway)]
             ),
             ok;