Maxim Sokhatsky 10 лет назад
Родитель
Сommit
bd06d0bbf2
4 измененных файлов с 8 добавлено и 1 удалено
  1. BIN
      mad
  2. 5 1
      src/mad.erl
  3. 2 0
      src/mad_run.erl
  4. 1 0
      src/mad_utils.erl

+ 5 - 1
src/mad.erl

@@ -73,6 +73,10 @@ attach(_Cwd,_ConfigFileName,_Config,Params) ->
 %    io:format("Attach Params: ~p~n",[Params]),
     mad_run:attach(Params).
 
+clean(_Cwd,_ConfigFileName,_Config,Params) ->
+    io:format("Clean Params: ~p~n",[Params]),
+    mad_run:clean(Params).
+
 stop(_Cwd,_ConfigFileName,_Config,Params) ->
     io:format("Stop Params: ~p~n",[Params]),
     mad_run:stop(Params).
@@ -90,5 +94,5 @@ help() ->
     io:format("    params := [] | run params ~n"),
     io:format("       run := command [ help | options ]~n"),
     io:format("       cmd := app | lib | deps | compile | release | bundle~n"),
-    io:format("              start | stop | attach | repl ~n"),
+    io:format("              clean | start | stop | attach | repl ~n"),
     halt().

+ 2 - 0
src/mad_run.erl

@@ -15,3 +15,5 @@ attach(_) ->
     io:format("to_erl .devbox/~n"). % use like $(mad attach)
 
 stop(_) -> ok. % TODO: stop box
+
+clean(_) -> [ file:delete(X) || X <- filelib:wildcard("{apps,deps}/*/ebin/**") ].

+ 1 - 0
src/mad_utils.erl

@@ -74,6 +74,7 @@ atomize("lib"++_) -> lib;
 atomize("sta"++_) -> start;
 atomize("att"++_) -> attach;
 atomize("sto"++_) -> stop;
+atomize("cle"++_) -> clean;
 atomize("rel"++_) -> release;
 atomize(Else) -> Else.