Add option to show available commands

Implement new option -c/--commands to print available
commands and its variables.

src/rebar_core.erl

@@ -85,32 +85,25 @@ parse_args(Args) ->
     %% Parse getopt options
     OptSpecList = option_spec_list(),
     case getopt:parse(OptSpecList, Args) of
-        {ok, {_Options, []}} ->
-            %% no command to run specified
-            help(),
-            halt(1);
         {ok, {Options, NonOptArgs}} ->
-            case proplists:get_bool(help, Options) of
+            %% Check options and maybe halt execution
-                true ->
+            {ok, continue} = print_help_maybe_halt(Options, NonOptArgs),
-                    %% display help
+
-                    help(),
+            %% Set global variables based on getopt options
-                    halt(0);
+            set_global_flag(Options, verbose),
-                false ->
+            set_global_flag(Options, force),
-                    %% Set global variables based on getopt options
+            DefJobs = rebar_config:get_jobs(),
-                    set_global_flag(Options, verbose),
+            case proplists:get_value(jobs, Options, DefJobs) of
-                    set_global_flag(Options, force),
+                DefJobs ->
-                    DefJobs = rebar_config:get_jobs(),
+                    ok;
-                    case proplists:get_value(jobs, Options, DefJobs) of
+                Jobs ->
-                        DefJobs ->
+                    rebar_config:set_global(jobs, Jobs)
-                            ok;
+            end,
-                        Jobs ->
+
-                            rebar_config:set_global(jobs, Jobs)
+            %% Filter all the flags (i.e. strings of form key=value) from the
-                    end,
+            %% command line arguments. What's left will be the commands to run.
+            filter_flags(NonOptArgs, []);
 
-                    %% Filter all the flags (i.e. strings of form key=value) from the
-                    %% command line arguments. What's left will be the commands to run.
-                    filter_flags(NonOptArgs, [])
-            end;
         {error, {Reason, Data}} ->
             ?ERROR("Error: ~s ~p~n~n", [Reason, Data]),
             help(),
@@ -129,6 +122,31 @@ set_global_flag(Options, Flag) ->
             end,
     rebar_config:set_global(Flag, Value).
 
+%%
+%% print help
+%%
+print_help_maybe_halt(Options, NonOptArgs) ->
+    case proplists:get_bool(help, Options) of
+        true ->
+            help(),
+            halt(0);
+        false ->
+            case proplists:get_bool(commands, Options) of
+                true ->
+                    commands(),
+                    halt(0);
+                false ->
+                    case NonOptArgs of
+                        [] ->
+                            io:format("No command to run specified!~n"),
+                            help(),
+                            halt(1);
+                        _ ->
+                            {ok, continue}
+                    end
+            end
+    end.
+
 %%
 %% print help/usage string
 %%
@@ -139,6 +157,32 @@ help() ->
                  [{"var=value", "rebar global variables (e.g. force=1)"},
                   {"command", "Command to run (e.g. compile)"}]).
 
+%%
+%% print known commands
+%%
+commands() ->
+    io:format(<<
+"analyze                              Analyze with Dialyzer~n"
+"build_plt                            Build Dialyzer PLT~n"
+"check_plt                            Check Dialyzer PLT~n"
+"~n"
+"clean                                Clean~n"
+"compile                              Compile sources~n"
+"~n"
+"create      template= [var=foo,...]  Create skel based on template and vars~n"
+"create-app                           Create simple app skel~n"
+"create-node                          Create simple node skel~n"
+"~n"
+"generate    [dump_spec=0/1]          Build release with reltool~n"
+"install     [target=]                Install build into target~n"
+"~n"
+"eunit       [suite=foo]              Run eunit [test/foo_tests.erl] tests~n"
+"~n"
+"int_test    [suite=] [case=]         Run ct suites in ./int_test~n"
+"perf_test   [suite=] [case=]         Run ct suites in ./perf_test~n"
+"test        [suite=] [case=]         Run ct suites in ./test~n"
+>>).
+
 %%
 %% options accepted via getopt
 %%
@@ -149,10 +193,11 @@ option_spec_list() ->
         [Jobs]),
     [
      %% {Name, ShortOpt, LongOpt, ArgSpec, HelpMsg}
-     {help,    $h, "help",    undefined, "Show the program options"},
+     {help,     $h, "help",     undefined, "Show the program options"},
-     {verbose, $v, "verbose", undefined, "Be verbose about what gets done"},
+     {commands, $c, "commands", undefined, "Show available commands"},
-     {force,   $f, "force",   undefined, "Force"},
+     {verbose,  $v, "verbose",  undefined, "Be verbose about what gets done"},
-     {jobs,    $j, "jobs",    integer, JobsHelp}
+     {force,    $f, "force",    undefined, "Force"},
+     {jobs,     $j, "jobs",     integer,   JobsHelp}
     ].
 
 %%