Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

17 lines (15 sloc) 0.622 kb
#!/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}])).
Jump to Line
Something went wrong with that request. Please try again.