Merge pull request #1667 from pguyot/w20/add-disterl-example-for-rp2

Add disterl example for rp2

These changes are made under both the "Apache 2.0" and the "GNU Lesser General
Public License 2.1 or later" license terms (dual license).

SPDX-License-Identifier: Apache-2.0 OR LGPL-2.1-or-later

Author: bettio

examples/erlang/rp2/CMakeLists.txt

@@ -30,3 +30,4 @@ pack_uf2(picow_wifi_sta picow_wifi_sta)
 pack_uf2(picow_wifi_ap picow_wifi_ap)
 pack_uf2(picow_udp_beacon picow_udp_beacon)
 pack_uf2(picow_tcp_server picow_tcp_server)
+pack_uf2(picow_wifi_epmd_disterl picow_wifi_epmd_disterl)

examples/erlang/rp2/picow_wifi_epmd_disterl.erl

@@ -0,0 +1,69 @@
+%
+% This file is part of AtomVM.
+%
+% Copyright 2025 Paul Guyot <pguyot@kallisys.net>
+%
+% Licensed under the Apache License, Version 2.0 (the "License");
+% you may not use this file except in compliance with the License.
+% You may obtain a copy of the License at
+%
+%    http://www.apache.org/licenses/LICENSE-2.0
+%
+% Unless required by applicable law or agreed to in writing, software
+% distributed under the License is distributed on an "AS IS" BASIS,
+% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+% See the License for the specific language governing permissions and
+% limitations under the License.
+%
+% SPDX-License-Identifier: Apache-2.0 OR LGPL-2.1-or-later
+%
+
+-module(picow_wifi_epmd_disterl).
+
+-export([start/0]).
+
+start() ->
+    Parent = self(),
+    Config = [
+        {sta, [
+            {ssid, <<"myssid">>},
+            {psk, <<"mypsk">>},
+            {got_ip, fun(Arg) -> got_ip(Parent, Arg) end}
+        ]},
+        {sntp, [
+            {host, "pool.ntp.org"}
+        ]}
+    ],
+    case network:start(Config) of
+        {ok, _Pid} ->
+            receive
+                {got_ip, IPv4} ->
+                    distribution_start(IPv4)
+            end;
+        Error ->
+            erlang:display(Error)
+    end.
+
+got_ip(Parent, {IPv4, _Netmask, _Gateway}) ->
+    Parent ! {got_ip, IPv4}.
+
+distribution_start(Address) ->
+    {ok, _EPMDPid} = epmd:start_link([]),
+    {ok, _KernelPid} = kernel:start(normal, []),
+    {X, Y, Z, T} = Address,
+    Node = list_to_atom(lists:flatten(io_lib:format("atomvm@~B.~B.~B.~B", [X, Y, Z, T]))),
+    {ok, _NetKernelPid} = net_kernel:start(Node, #{name_domain => longnames}),
+    io:format("Distribution was started\n"),
+    io:format("Node is ~p\n", [node()]),
+    net_kernel:set_cookie(<<"AtomVM">>),
+    io:format("Cookie is ~s\n", [net_kernel:get_cookie()]),
+    register(disterl, self()),
+    io:format(
+        "This AtomVM node is waiting for 'quit' message, and this process is registered as 'disterl'\n"
+    ),
+    io:format("On an OTP node with long names distribution, run:\n"),
+    io:format("erlang:set_cookie('~s', 'AtomVM').\n", [Node]),
+    io:format("{disterl, '~s'} ! quit.\n", [Node]),
+    receive
+        quit -> ok
+    end.