-module(epmdless_dist).

-export([add_node/2, add_node/3]).
-export([remove_node/1]).
-export([list_nodes/0]).
-export([set_nodes/1]).


-spec add_node(Node, Port) -> ok when
      Node :: atom(),
      Port :: inet:port_number().
add_node(Node, Port) ->
    epmdless_client:add_node(Node, Port).

-spec add_node(Node, Host, Port) -> ok when
      Node :: atom(),
      Host :: inet:hostname() | inet:ip_address(),
      Port :: inet:port_number().
add_node(Node, Host, Port) ->
    case inet:getaddr(Host, inet) of
        {ok, IP} ->
            epmdless_client:add_node(Node, Host, IP, Port);
        {error, Reason} ->
            {error, Reason}
    end.

-spec remove_node(Node) -> ok when
      Node :: atom().
remove_node(Node) ->
    epmdless_client:remove_node(Node).

-spec list_nodes() -> [{Node, {Host, Port}}] when
      Node :: {atom(), inet:ip_address()},
      Host :: inet:hostname() | inet:ip_address(),
      Port :: {inet:port_number()}.
list_nodes() ->
    epmdless_client:list_nodes().

-spec set_nodes(Nodes) -> ok when
      Nodes :: [{Node, Port}],
      Node  :: atom(),
      Port  :: inet:port_number().
set_nodes(Nodes) ->
    _ = [remove_node(Node) || {{Node, _}, _} <- list_nodes()],
    _ = [add_node(Node, Port) || {Node, Port} <- Nodes],
    ok.