blob: 1d75e83c9432ddb203b037f6b0e16d18732ac24f (
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}]).
|
