mad/src/mad.erl

-module(mad).
-copyright('Maxim Sokhatsky').
-include("mad.hrl").
-compile(export_all).
-export([main/1]).

main([])          -> halt(help());
main(Params)      ->

    % filter valid (atoms) from invalid (unparsed lists) commands
    { _Invalid, Valid } = lists:foldr(
        fun (X,{C,R}) when is_atom(X) -> {[],[{X,C}|R]};
                            (X,{C,R}) -> {[X|C],R} end,
             {[],[]}, lists:map(fun atomize/1, Params)),

    % return any error if exists on flattened fold of profile runs
    % of functions (commands) with arguments
    halt(return(
         lists:any(fun({error,X}) -> mad:info("~s~n",[X]), true; (_) -> false end,
         lists:flatten([
         lists:foldl(
         fun ({Fun,Arg},ErrAcc) ->
                  mad_hooks:run_hooks(pre, Fun),
                  Errors = errors((profile()):Fun(Arg)),
                  mad_hooks:run_hooks(post, Fun),
                  Errors ++ ErrAcc
         end, [], Valid)])))).

atomize("static") -> 'static';
atomize("deploy") -> 'deploy';
atomize("app"++_) -> 'app';
atomize("dep")    -> 'deps';
atomize("deps")   -> 'deps';
atomize("cle"++_) -> 'clean';
atomize("com"++_) -> 'compile';
atomize("eunit")  -> 'eunit';
atomize("up")     -> 'up';
atomize("get")    -> 'get';
atomize("rel"++_) -> 'release';
atomize("bun"++_) -> 'release';
atomize("sta"++_) -> 'start';
atomize("sto"++_) -> 'stop';
atomize("att"++_) -> 'attach';
atomize("sh")     -> 'sh';
atomize("rep"++_) -> 'sh';
atomize("pla"++_) -> 'resolve';
atomize("str"++_) -> 'strip';
atomize(Else)     -> Else.

profile()         -> application:get_env(mad,profile,mad_local).

errors([])            -> [];
errors(false)         -> [];
errors(true)          -> [{error,"Unknown."}];
errors({error,What})  -> info("ERROR~n"), [{error,What}];
errors({ok,_})        -> info("OK~n",[]), [].

return(true)      -> 1;
return(false)     -> 0.

host()            -> try {ok,H} = inet:gethostname(), H catch _:_ -> <<>> end.

info(Format)      -> io:format(lists:concat([Format,"\r"])).
info(Format,Args) -> io:format(lists:concat([Format,"\r"]),Args).

help(Reason,D)    -> help(io_lib:format("~s ~p", [Reason, D])).
help(_Msg)        -> help().
help()            -> info("MAD Manage Dependencies ~s~n",[?VERSION]),
                     info("~n"),
                     info("    invoke = mad | mad params~n"),
                     info("    params = []  | command [options] params ~n"),
                     info("   command = app <sample> | deps | clean | compile | strip~n"),
                     info("           | bundle [beam|script] | get repo | up [name] ~n"),
                     info("           | start | stop | attach | sh | static [watch|min] ~n"),
                     return(false).