From 9aab4d7a16fba5dfcf4d60b58a05cc765eca3335 Mon Sep 17 00:00:00 2001
From: Eric <ericbmerritt@gmail.com>
Date: Sat, 8 Sep 2012 11:15:49 -0500
Subject: full argument parsing and management capability

---
 src/relcool.erl | 102 +++++++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 97 insertions(+), 5 deletions(-)

(limited to 'src/relcool.erl')

diff --git a/src/relcool.erl b/src/relcool.erl
index 7702207..f8a9bbd 100644
--- a/src/relcool.erl
+++ b/src/relcool.erl
@@ -1,12 +1,104 @@
-%% -*- mode: Erlang; fill-column: 80; comment-column: 75; -*-
+%%% -*- mode: Erlang; fill-column: 80; comment-column: 75; -*-
+%%% Copyright 2012 Erlware, LLC. All Rights Reserved.
+%%%
+%%% This file is provided to you 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.
 %%%---------------------------------------------------------------------------
 %%% @author Eric Merritt <ericbmerritt@gmail.com>
+%%% @copyright (C) 2012 Erlware, LLC.
 %%% @doc
-%%% @copyright (C) 2007-2012 Erlware, Inc.
-%%%---------------------------------------------------------------------------
 -module(relcool).
 
--export([main/1]).
+-export([main/1, opt_spec_list/0]).
+
+%%============================================================================
+%% types
+%%============================================================================
+
+%%============================================================================
+%% API
+%%============================================================================
+-spec main([string()]) -> ok.
+main(Args) ->
+    io:format("~p~n", [Args]),
+    OptSpecList = opt_spec_list(),
+    case rcl_cmd_args:args2state(getopt:parse(OptSpecList, Args)) of
+        {ok, {State, _Target}} ->
+            run_relcool_process(State);
+        Error={error, _} ->
+            report_error(Error)
+    end.
+
+-spec opt_spec_list() -> [getopt:option_spec()].
+opt_spec_list() ->
+    [
+     {relname,  $n, "relname",  string,  "Specify the name for the release that will be generated"},
+     {relvsn, $v, "relvsn", string, "Specify the version for the release"},
+     {goals, $g, "goal", string, "Specify a target constraint on the system. These are "
+      "usually the OTP"},
+     {output_dir, $o, "output-dir", string, "The output directory for the release. This is `./` by default."},
+     {lib_dir, $l, "lib-dir", string, "Additional dirs that should be searched for OTP Apps"},
+     {log_level, $V, "verbose", {integer, 2}, "Verbosity level, maybe between 0 and 2"}
+    ].
 
-main(_Args) ->
+%%============================================================================
+%% internal api
+%%============================================================================
+run_relcool_process(State) ->
+    rcl_log:info(rcl_state:log(State), "Starting relcool build process ..."),
+    rcl_log:debug(rcl_state:log(State),
+                  fun() ->
+                          rcl_state:format(State)
+                  end),
     ok.
+
+-spec usage() -> ok.
+usage() ->
+    getopt:usage(opt_spec_list(), "relcool", "[*release-specification-file*]").
+
+
+-spec report_error(term()) -> none().
+report_error(Error) ->
+    io:format("~s~n", [to_error(Error)]),
+    usage(),
+    erlang:halt(127).
+
+-spec to_error({error, Reason::term()}) -> string().
+to_error({error,{invalid_option_arg, Arg}}) ->
+    case Arg of
+        {goals, Goal} ->
+            io_lib:format("Invalid Goal argument -g ~p~n", [Goal]);
+        {relname, RelName} ->
+            io_lib:format("Invalid Release Name argument -n ~p~n", [RelName]);
+        {relvsn, RelVsn} ->
+            io_lib:format("Invalid Release Version argument -n ~p~n", [RelVsn]);
+        {output_dir, Outdir} ->
+            io_lib:format("Invalid Output Directory argument -n ~p~n", [Outdir]);
+        {lib_dir, LibDir} ->
+            io_lib:format("Invalid Library Directory argument -n ~p~n", [LibDir]);
+        {log_level, LogLevel} ->
+            io_lib:format("Invalid Library Directory argument -n ~p~n", [LogLevel])
+    end;
+to_error({error, {failed_to_parse, Spec}}) ->
+    io_lib:format("Unable to parse spec ~s", [Spec]);
+to_error({error, {unable_to_create_output_dir, OutputDir}}) ->
+    io_lib:format("Unable to create output directory (possible permissions issue): ~s",
+                  [OutputDir]);
+to_error({error, {not_directory, Dir}}) ->
+    io_lib:format("Library directory does not exist: ~s", [Dir]);
+to_error({error, {invalid_log_level, LogLevel}}) ->
+    io_lib:format("Invalid log level specified -V ~p, log level must be in the"
+                  " range 0..2", [LogLevel]);
+to_error({error, Error}) ->
+    io_lib:format("~p~n", [Error]).
-- 
cgit v1.2.3