diff options
| author | Hubert Plociniczak <hubert@lshift.net> | 2009-01-13 19:50:49 +0000 |
|---|---|---|
| committer | Hubert Plociniczak <hubert@lshift.net> | 2009-01-13 19:50:49 +0000 |
| commit | 3751ddcacc288c481c88ed8fa4bb4271699d27cc (patch) | |
| tree | 83dfcf91f6c89993906458e40b6409777fb93cac /generate_app | |
| parent | ce83057d7f965f681cb3c1c79bd00517731f7f2f (diff) | |
| parent | 0d17829eba6e9f24c81322c0547acf1d734391e9 (diff) | |
| download | rabbitmq-server-git-3751ddcacc288c481c88ed8fa4bb4271699d27cc.tar.gz | |
Merge bug20035 into default
Diffstat (limited to 'generate_app')
| -rw-r--r-- | generate_app | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/generate_app b/generate_app new file mode 100644 index 0000000000..bb6f751613 --- /dev/null +++ b/generate_app @@ -0,0 +1,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}]). |