17 lines
622 B
Erlang
17 lines
622 B
Erlang
#!/usr/bin/env escript
|
|
%% -*- erlang -*-
|
|
|
|
main([InFile, OutFile | SrcDirs]) ->
|
|
Modules = [list_to_atom(filename:basename(F, ".erl")) ||
|
|
SrcDir <- SrcDirs,
|
|
F <- filelib:wildcard("*.erl", SrcDir)],
|
|
{ok, [{application, Application, Properties}]} = file:consult(InFile),
|
|
NewProperties =
|
|
case proplists:get_value(modules, Properties) of
|
|
[] -> lists:keyreplace(modules, 1, Properties, {modules, Modules});
|
|
_ -> Properties
|
|
end,
|
|
file:write_file(
|
|
OutFile,
|
|
io_lib:format("~p.~n", [{application, Application, NewProperties}])).
|