diff options
| author | Michael Bridgen <mikeb@lshift.net> | 2009-11-17 15:52:13 +0000 |
|---|---|---|
| committer | Michael Bridgen <mikeb@lshift.net> | 2009-11-17 15:52:13 +0000 |
| commit | be0f4ad53d7a365686eef57e9f7edb157d9c98f4 (patch) | |
| tree | f4af67f025c5ae17bcefca88c28d8ede837236e1 /generate_app | |
| parent | 1950114f16206399ea00bf6434298767ed3a9f2f (diff) | |
| parent | 4159a9a3afdc3fad8f5331c00321733ce398b7af (diff) | |
| download | rabbitmq-server-git-be0f4ad53d7a365686eef57e9f7edb157d9c98f4.tar.gz | |
Merge from default, to get recent work as well as support for field-array.
Diffstat (limited to 'generate_app')
| -rw-r--r-- | generate_app | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generate_app b/generate_app index 623012927e..576b485e1e 100644 --- a/generate_app +++ b/generate_app @@ -1,10 +1,12 @@ #!/usr/bin/env escript %% -*- erlang -*- -main([BeamDir]) -> +main([BeamDir, TargetFile]) -> 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}]). + file:write_file( + TargetFile, + io_lib:format("~p.~n", [{application, Application, NewProperties}])). |