diff options
author | Rob Harrop <rob@rabbitmq.com> | 2011-05-31 08:36:42 +0100 |
---|---|---|
committer | Rob Harrop <rob@rabbitmq.com> | 2011-05-31 08:36:42 +0100 |
commit | 60445947a03a1e7ac48084a4808c20c82d59b8b2 (patch) | |
tree | 1ce8c255cb8638985905b917dff495c4fd500bec | |
parent | 4a23f3fbd6099501145f2502b4da2773f8492687 (diff) | |
parent | fcbcf2ac0d8fa1230720adc317ef89dc5afeebeb (diff) | |
download | rabbitmq-server-60445947a03a1e7ac48084a4808c20c82d59b8b2.tar.gz |
Merge with default
-rw-r--r-- | Makefile | 4 | ||||
-rw-r--r-- | generate_app | 18 |
2 files changed, 13 insertions, 9 deletions
@@ -93,8 +93,8 @@ $(DEPS_FILE): $(SOURCES) $(INCLUDES) rm -f $@ echo $(subst : ,:,$(foreach FILE,$^,$(FILE):)) | escript generate_deps $@ $(EBIN_DIR) -$(EBIN_DIR)/rabbit.app: $(EBIN_DIR)/rabbit_app.in $(BEAM_TARGETS) generate_app - escript generate_app $(EBIN_DIR) $@ < $< +$(EBIN_DIR)/rabbit.app: $(EBIN_DIR)/rabbit_app.in $(SOURCES) generate_app + escript generate_app $< $@ $(SOURCE_DIR) $(EBIN_DIR)/%.beam: $(SOURCE_DIR)/%.erl | $(DEPS_FILE) erlc $(ERLC_OPTS) -pa $(EBIN_DIR) $< diff --git a/generate_app b/generate_app index 576b485e..fb0eb1ea 100644 --- a/generate_app +++ b/generate_app @@ -1,12 +1,16 @@ #!/usr/bin/env escript %% -*- erlang -*- -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}), +main([InFile, OutFile | SrcDirs]) -> + Modules = [list_to_atom(filename:basename(F, ".erl")) || + SrcDir <- SrcDirs, + F <- filelib:wildcard("*.erl", SrcDir)], + {ok, [{application, Application, Properties}]} = file:consult(InFile), + NewProperties = + case proplists:get_value(modules, Properties) of + [] -> lists:keyreplace(modules, 1, Properties, {modules, Modules}); + _ -> Properties + end, file:write_file( - TargetFile, + OutFile, io_lib:format("~p.~n", [{application, Application, NewProperties}])). |