diff options
author | Matthew Sackman <matthew@lshift.net> | 2009-10-30 12:02:51 +0000 |
---|---|---|
committer | Matthew Sackman <matthew@lshift.net> | 2009-10-30 12:02:51 +0000 |
commit | a2c63d0aa5b8e7372ada2fa057c65568bfb6cf8b (patch) | |
tree | c1bf97f2209052055cafb32b987d8b732f26de27 /generate_app | |
parent | 80d77cb0fd6ca21a0624ae7263d0bf8b1f45c6aa (diff) | |
download | rabbitmq-server-a2c63d0aa5b8e7372ada2fa057c65568bfb6cf8b.tar.gz |
Added destination file, and lifted the code from rabbit_misc:write_term_file (though with ~p, not ~w)
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 62301292..5c15358a 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}])). |