From ca8d7cc95d0fa4da6b2801e14d24f62c139732ba Mon Sep 17 00:00:00 2001
From: Edwin Fine <emofine@usa.net>
Date: Mon, 6 Aug 2012 14:09:49 -0400
Subject: Ensure edocs are also built if only overview.edoc changes

---
 src/rebar_edoc.erl | 63 ++++++++++++++++++++++++++++--------------------------
 1 file changed, 33 insertions(+), 30 deletions(-)

(limited to 'src')

diff --git a/src/rebar_edoc.erl b/src/rebar_edoc.erl
index c88fe62..e7dd3e6 100644
--- a/src/rebar_edoc.erl
+++ b/src/rebar_edoc.erl
@@ -54,18 +54,7 @@ doc(Config, File) ->
     {ok, Config1, AppName, _AppData} =
         rebar_app_utils:load_app_file(Config, File),
 
-    %% Determine the age of the summary file
-    EDocInfoName = filename:join(proplists:get_value(dir, EDocOpts, "doc"),
-                                 "edoc-info"),
-    EDocInfoLastMod = filelib:last_modified(EDocInfoName),
-
-    %% For each source directory, look for a more recent file than
-    %% SumaryLastMod; in that case, we go ahead and do a full regen
-    NeedsRegen = newer_file_exists(proplists:get_value(source_path,
-                                                       EDocOpts, ["src"]),
-                                   EDocInfoLastMod),
-
-    case NeedsRegen of
+    case needs_regen(EDocOpts) of
         true ->
             ?INFO("Regenerating edocs for ~p\n", [AppName]),
             ok = edoc:application(AppName, ".", EDocOpts);
@@ -90,27 +79,41 @@ setup_code_path() ->
     true = code:add_patha(rebar_utils:ebin_dir()),
     CodePath.
 
-newer_file_exists(Paths, LastMod) ->
-    CheckFile = fun(Filename, _) ->
-                        FLast = filelib:last_modified(Filename),
-                        case FLast > LastMod of
-                            true ->
-                                ?DEBUG("~p is more recent than edoc-info: "
-                                       "~120p > ~120p\n",
-                                       [Filename, FLast, LastMod]),
-                                throw(newer_file_exists);
-                            false ->
-                                false
-                        end
-                end,
+-type path_spec() :: {'file', file:filename()} | file:filename().
+-spec newer_file_exists(Paths::[path_spec()], OldFile::string()) -> boolean().
+newer_file_exists(Paths, OldFile) ->
+    OldModTime = filelib:last_modified(OldFile),
+
+    ThrowIfNewer = fun(Fn, _Acc) ->
+                           FModTime = filelib:last_modified(Fn),
+                           (FModTime > OldModTime) andalso
+                               throw({newer_file_exists, {Fn, FModTime}})
+                   end,
+
     try
-        lists:foldl(fun(P, _) ->
+        lists:foldl(fun({file, F}, _) ->
+                            ThrowIfNewer(F, false);
+                       (P, _) ->
                             filelib:fold_files(P, ".*.erl", true,
-                                               CheckFile, false)
-                    end, undefined, Paths),
-        false
+                                               ThrowIfNewer, false)
+                    end, undefined, Paths)
     catch
-        throw:newer_file_exists ->
+        throw:{newer_file_exists, {Filename, FMod}} ->
+            ?DEBUG("~p is more recent than ~p: "
+                   "~120p > ~120p\n",
+                   [Filename, OldFile, FMod, OldModTime]),
             true
     end.
 
+%% Needs regen if any dependent file is changed since the last
+%% edoc run. Dependent files are the erlang source files,
+%% and the overview file, if it exists.
+-spec needs_regen(edoc:proplist()) -> boolean().
+needs_regen(EDocOpts) ->
+    DocDir = proplists:get_value(dir, EDocOpts, "doc"),
+    EDocInfoName = filename:join(DocDir, "edoc-info"),
+    OverviewFile = proplists:get_value(overview, EDocOpts, "overview.edoc"),
+    EDocOverviewName = filename:join(DocDir, OverviewFile),
+    SrcPaths = proplists:get_value(source_path, EDocOpts, ["src"]),
+
+    newer_file_exists([{file, EDocOverviewName} | SrcPaths], EDocInfoName).
-- 
cgit v1.1