Now prototype with commands defined by broker, not cli

Author: dumbbell

deps/rabbit/Makefile

@@ -156,7 +156,7 @@ CLI_SCRIPTS := scripts/rmq
 
 ebin/$(PROJECT).app:: $(CLI_SCRIPTS)
 
-$(CLI_SCRIPTS): ebin/rabbit_cli_escript.beam
+$(CLI_SCRIPTS): ebin/rabbit_cli.beam
 	$(gen_verbose) echo '#!/usr/bin/env escript' > "$@"
 	$(verbose) echo '%%! -start_epmd false' >> "$@"
 	$(verbose) cat $^ >> "$@"

deps/rabbit/src/rabbit_cli.erl

@@ -0,0 +1,57 @@
+-module(rabbit_cli).
+
+-include_lib("kernel/include/logger.hrl").
+
+-export([main/1]).
+
+main(Args) ->
+    Nodename = determine_rabbitmq_nodename(Args),
+    ?LOG_ALERT("Nodename = ~p", [Nodename]),
+    io:format("Nodename = ~p~n", [Nodename]),
+    erlang:halt().
+
+determine_rabbitmq_nodename(Args) ->
+    case get_rabbitmq_nodename_from_args(Args) of
+        {ok, Args1} ->
+            GuessedNodename = guess_rabbitmq_nodename(),
+            {ok, Args1, GuessedNodename};
+        {ok, Args1, Nodename} ->
+            {ok, Args1, Nodename}
+    end.
+
+get_rabbitmq_nodename_from_args(Args) ->
+    Definition = #{arguments =>
+                   [#{name => node,
+                      long => "-node",
+                      short => $n},
+                    #{name => rest,
+                      nargs => list,
+                      action => extend,
+                      required => false,
+                      default => []}]},
+    case argparse:parse(Args, Definition, #{}) of
+        {ok, #{node := Nodename, rest := Rest}, _, _} ->
+            {ok, {Nodename, Rest}};
+        {ok, #{rest := Rest}, _, _} ->
+            {ok, Rest}
+    end.
+
+guess_rabbitmq_nodename() ->
+    case net_adm:names() of
+        {ok, NamesAndPorts} ->
+            Names0 = [Name || {Name, _Port} <- NamesAndPorts],
+            Names1 = lists:sort(Names0),
+            Names2 = lists:filter(
+                       fun
+                           ("rabbit" ++ _) -> true;
+                           (_) ->             false
+                       end, Names1),
+            case Names2 of
+                [First | _] ->
+                    First;
+                [] ->
+                    "rabbit"
+            end;
+        {error, address} ->
+            "rabbit"
+    end.