summaryrefslogtreecommitdiff
path: root/generate_app
diff options
context:
space:
mode:
authorMatthias Radestock <matthias@lshift.net>2009-01-16 18:42:13 +0000
committerMatthias Radestock <matthias@lshift.net>2009-01-16 18:42:13 +0000
commitd5b5f13f410972545832c1acce2df85134ec4146 (patch)
tree2f490e5f7b4bb4a3e166b3eb5951ef7678e1055c /generate_app
parent00c7b0249193201cf4e7eb209895802595c32684 (diff)
parentd5197fa54d6831a67c3f96e0dab7f7225f0ad98a (diff)
downloadrabbitmq-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_app10
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}]).