blob: bb6f751613b5c3a533c1574313e5ee171973c745 (
plain)
1
2
3
4
5
6
7
8
9
10
|
#!/usr/bin/env escript
%% -*- erlang -*-
main([BeamDir]) ->
Modules = [list_to_atom(filename:basename(F, ".beam")) ||
F <- filelib:wildcard("*.beam", BeamDir)],
{ok, {application, Application, Properties}} = io:read(""),
NewProperties = lists:keyreplace(modules, 1, Properties,
{modules, Modules}),
io:format("~p.", [{application, Application, NewProperties}]).
|