Просмотр исходного кода

reduce compilation for apps and touch DTL after compilation

Namdak Tonpa 9 лет назад
Родитель
Сommit
ed606b1b6f
2 измененных файлов с 3 добавлено и 2 удалено
  1. 1 0
      src/compile/mad_dtl.erl
  2. 2 2
      src/mad_compile.erl

+ 1 - 0
src/compile/mad_dtl.erl

@@ -49,6 +49,7 @@ compile_erlydtl_files(Opts) ->
         case Compiled of false ->
              mad:info("DTL Compiling ~s~n", [F -- mad_utils:cwd()]),
              Res = erlydtl:compile(F, ModuleName, Opts3),
+             file:change_time(BeamFile, calendar:local_time()),
              case Res of {error,Error} -> mad:info("Error: ~p~n",[Error]);
                                     OK -> OK end;
              true -> ok end

+ 2 - 2
src/mad_compile.erl

@@ -41,7 +41,7 @@ dep(Cwd, _Conf, ConfigFile, Name) ->
                 FirstFiles1 = lists:map(fun (F) -> filename:join(SrcDir, F ++ ".erl") end, FirstFiles),
                 FirstFiles1 ++ lists:filter(fun (F) -> lists:member(F, FirstFiles) == false end, AllFiles)
             end,
-  
+
     case Files of
         [] -> false;
         Files ->
@@ -91,7 +91,7 @@ is_compiled(BeamFile, File) -> mad_utils:last_modified(BeamFile) >= mad_utils:la
 
 'compile-apps'(Cwd, ConfigFile, Conf) ->
     Dirs = mad_utils:sub_dirs(Cwd, ConfigFile, Conf),
-    %mad:info("Compile Apps: ~p~n",[Dirs]),
+    [put(D,0)||D<-Dirs],
     case Dirs of
            [] -> mad_compile:dep(Cwd,  Conf, ConfigFile, Cwd);
          Apps -> mad_compile:dep(Cwd,  Conf, ConfigFile, Cwd),