anchor.diff:              _ ->                    "./priv/bin/specs_gen__R15_and_above.escript "
           end,
       [ begin
  -          log("Generating Type Specs - ~s~n", [File]),
  +          log("Generating Type Specs - ~p\n", [File]),
             Args = "-I" ++ AppDir ++ "/include -o" ++ SpecsDest ++ " " ++ File,
             os:cmd(SpecsGenEscript ++ Args)
         end || File <- ErlFiles],
  
positive.code:     lists:foldl(
        fun (File, Acc) ->
                Basename = bname(File, ".erl"),
                log("Generating XML - ~s~n", [Basename]),
                AbsInclude = filename:dirname(File) ++ "/../include",
                Options = [{includes,[AbsInclude|AppDirIncludes]} | Opts],
                case (catch edoc:file(File, Options)) of
                    ok ->
                        [filename:join([Dest,Basename]) ++ ".xml" | Acc];
                    Error ->
                        log("Error generating XML (~p): ~p~n", [File, Error]),
                        Acc
  
negative.code: gen_docsrc (AppDir, SrcFiles, Dest) ->
      AppDirInclude = AppDir ++ "/include", %% Those ones usually don't work!
      AppDirIncludes = [AppDirInclude | filelib:wildcard(AppDirInclude)],
      Opts = [ {sort_functions, false}
             , {layout, docgen_edoc_xml_cb}
             , {file_suffix, ".xml"}
             , {preprocess, true}
  