Something went wrong. Try again.
Gleam + Relm4 foreign node POC over Erlang distribution
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233#!/usr/bin/env escript%%! -name smoke@127.0.0.1 -setcookie gleamtk-mode(compile).
main([]) -> true = register(controller, self()), io:format("registered controller pid=~p~n", [self()]), case net_adm:ping('ui@127.0.0.1') of pong -> io:format("ping=pong~n"), {gui, 'ui@127.0.0.1'} ! {hello, self()}, {gui, 'ui@127.0.0.1'} ! {set_title, <<"from smoke">>}, {gui, 'ui@127.0.0.1'} ! {set_label, <<"smoke label">>}, {gui, 'ui@127.0.0.1'} ! {set_count, 7}, {gui, 'ui@127.0.0.1'} ! ping, drain(8), halt(0); pang -> io:format("ping=pang~n"), halt(1) end.
drain(0) -> io:format("drain done~n");drain(N) -> receive M -> io:format("got ~p~n", [M]), drain(N - 1) after 2000 -> io:format("drain timeout (~B left)~n", [N]) end.