14 lines
579 B
Erlang
Executable File
14 lines
579 B
Erlang
Executable File
#!/usr/bin/env escript
|
|
%% -*- erlang -*-
|
|
|
|
main([Source, Target, Version]) ->
|
|
{ok, [{application, Name, Props0}]} = file:consult(Source),
|
|
Ebin = filename:dirname(Target),
|
|
Files = filelib:wildcard(filename:join(Ebin, "*.beam")),
|
|
Mods = [list_to_atom(filename:basename(F, ".beam")) || F <- Files],
|
|
Props1 = lists:keyreplace(modules, 1, Props0, {modules, Mods}),
|
|
Props = lists:keyreplace(vsn, 1, Props1, {vsn, Version}),
|
|
AppDef = io_lib:format("~tp.~n", [{application, Name, Props}]),
|
|
ok = file:write_file(Target, AppDef),
|
|
io:format("Generated ~ts.app~n", [Name]).
|