Permalink
Browse files

change I have forgotten

  • Loading branch information...
1 parent 2cb3519 commit 355d423ef7f1425943c73545e405faaf422335fb Dale Harvey committed Jun 11, 2011
Showing with 9 additions and 6 deletions.
  1. BIN erldocs
  2. +9 −6 src/erldocs_core.erl
View
BIN erldocs
Binary file not shown.
View
15 src/erldocs_core.erl
@@ -88,17 +88,20 @@ strip_cos(Index) ->
[X || X = [_, App |_] <- Index, nomatch == re:run(App, "^cos") ].
ensure_docsrc(AppDir, Conf) ->
- %% List any doc/src/*.xml files that exist in the source files
+
+ % List any doc/src/*.xml files that exist in the source files
XMLFiles = filelib:wildcard(filename:join([AppDir, "doc", "src", "*.xml"])),
- Bnames = [bname(File) || File <- XMLFiles],
+ Bnames = [bname(File, ".xml") || File <- XMLFiles],
- %% Generate any missing module XML
+ % Generate any missing module XML
SrcFiles = [File || File <- filelib:wildcard(filename:join([AppDir, "*.erl"])) ++
filelib:wildcard(filename:join([AppDir, "src", "*.erl"])),
- not lists:member(bname(File), Bnames)],
- %% Output XML files to destination folder
- %% This prevents polluting the source files
+ not lists:member(bname(File, ".erl"), Bnames)],
+
+ % Output XML files to destination folder
+ % This prevents polluting the source files
XMLDir = filename:join([dest(Conf), ".xml", bname(AppDir)]),
+
filelib:ensure_dir(XMLDir ++ "/"),
%% Return the complete list of XML files

0 comments on commit 355d423

Please sign in to comment.