blob: 623012927e6b6734d3032b1dacad519f516297e8 (
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}]).
|