|
@@ -14,18 +14,6 @@ main(Params) ->
|
|
fun ({Name,Par},Errors) when length(Errors) > 0 -> [{error,Errors}];
|
|
fun ({Name,Par},Errors) when length(Errors) > 0 -> [{error,Errors}];
|
|
({Name,Par},Errors) -> lists:flatten([errors((profile()):Name(Par))|Errors]) end, [], FP)))).
|
|
({Name,Par},Errors) -> lists:flatten([errors((profile()):Name(Par))|Errors]) end, [], FP)))).
|
|
|
|
|
|
-help(Reason,D) -> help(io_lib:format("~s ~p", [Reason, D])).
|
|
|
|
-help(Msg) -> help().
|
|
|
|
-help() -> info("MAD Container Tool version ~s~n",[?VERSION]),
|
|
|
|
- info("BNF: ~n"),
|
|
|
|
- info(" invoke := mad params~n"),
|
|
|
|
- info(" params := [] | run params ~n"),
|
|
|
|
- info(" run := command [ options ]~n"),
|
|
|
|
- info(" command := app [ sample ] | deps | clean | compile | up |~n"),
|
|
|
|
- info(" release [ beam | ling | runc | depot | script ] |~n"),
|
|
|
|
- info(" deploy | start | stop | attach | sh ~n"),
|
|
|
|
- return(false).
|
|
|
|
-
|
|
|
|
deps(Params) -> mad_deps:deps(Params).
|
|
deps(Params) -> mad_deps:deps(Params).
|
|
compile(Params) -> mad_compile:compile(Params).
|
|
compile(Params) -> mad_compile:compile(Params).
|
|
app(Params) -> mad_static:app(Params).
|
|
app(Params) -> mad_static:app(Params).
|
|
@@ -43,9 +31,9 @@ unknown(Other) -> info("Unknown: ~p~n",[Other]), help().
|
|
|
|
|
|
errors(false) -> [];
|
|
errors(false) -> [];
|
|
errors(true) -> {error,unknown};
|
|
errors(true) -> {error,unknown};
|
|
-errors({ok,L}) -> info("OK: ~p~n",[L]), [];
|
|
|
|
-errors({error,L}) -> info("ERR: ~p~n",[L]), {error,L};
|
|
|
|
-errors(X) -> info("ERR: ~p~n",[X]), {error,X}.
|
|
|
|
|
|
+errors({ok,L}) -> info("OK: ~tp~n",[L]), [];
|
|
|
|
+errors({error,L}) -> info("ERR: ~tp~n",[L]), {error,L};
|
|
|
|
+errors(X) -> info("ERR: ~tp~n",[X]), {error,X}.
|
|
|
|
|
|
return(true) -> 1;
|
|
return(true) -> 1;
|
|
return(false) -> 0;
|
|
return(false) -> 0;
|
|
@@ -53,3 +41,15 @@ return(X) -> X.
|
|
|
|
|
|
info(Format) -> io:format(lists:concat([Format,"\r"])).
|
|
info(Format) -> io:format(lists:concat([Format,"\r"])).
|
|
info(Format,Args) -> io:format(lists:concat([Format,"\r"]),Args).
|
|
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 Container Tool version ~s~n",[?VERSION]),
|
|
|
|
+ info("BNF: ~n"),
|
|
|
|
+ info(" invoke = mad params~n"),
|
|
|
|
+ info(" params = [] | run params ~n"),
|
|
|
|
+ info(" run = command [ options ]~n"),
|
|
|
|
+ info(" command = app | deps | clean | compile | up~n"),
|
|
|
|
+ info(" | release [ beam | ling | script | runc | depot ]~n"),
|
|
|
|
+ info(" | deploy | start | stop | attach | sh ~n"),
|
|
|
|
+ return(false).
|