diff options
author | Matthias Radestock <matthias@lshift.net> | 2009-01-16 18:42:13 +0000 |
---|---|---|
committer | Matthias Radestock <matthias@lshift.net> | 2009-01-16 18:42:13 +0000 |
commit | d5b5f13f410972545832c1acce2df85134ec4146 (patch) | |
tree | 2f490e5f7b4bb4a3e166b3eb5951ef7678e1055c /generate_app | |
parent | 00c7b0249193201cf4e7eb209895802595c32684 (diff) | |
parent | d5197fa54d6831a67c3f96e0dab7f7225f0ad98a (diff) | |
download | rabbitmq-server-bug20099.tar.gz |
merge default into bug20099bug20099
which involved a few conflict resolutions. The most complex of these
was dealing with the termination of the limiter; we now unlink from it
first so we don't get a spurious EXIT signal.
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 00000000..62301292 --- /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}]). |