gen_doc.sh

#!/usr/bin/env escript

main([Dir]) ->
	{ok, Files} = file:list_dir("./src"),
	ErlPred = fun(F) -> is_erl_file(F) end,
	ErlFiles = lists:filter(ErlPred, Files),
	Modules = ["src/" ++ F || F <- ErlFiles],
        edoc:files(Modules, [{dir, Dir}]).

is_erl_file(FileName) when length(FileName) >= 4 ->
	Length = length(FileName),
	lists:sublist(FileName, Length-3, 4) =:= ".erl";
is_erl_file(_FileName) ->
	false.