Added rpm macros and more cleanups

1 files changed, 24 insertions, 0 deletions

diff --git a/erlang-find-provides.escript b/erlang-find-provides.escript
new file mode 100755
index 0000000..4433337
--- /dev/null
+++ b/erlang-find-provides.escript
@@ -0,0 +1,24 @@
+#!/usr/bin/escript
+%% -*- erlang -*-
+
+main(EbinFiles) ->
+	lists:foreach(
+		fun(BeamFile) ->
+			try
+				{ok, {Module, [{exports,Exports}]}} = beam_lib:chunks(BeamFile, [exports]),
+				case Module of
+					eunit_test -> io:format ("erlang(eunit_test:nonexisting_function/0)~n");
+					wx -> io:format ("erlang(demo:start/0)~n");
+					_ -> ok
+				end,
+				lists:foreach( fun({ModFun,Arity})->io:format("erlang(~p:~s/~p)~n", [Module, ModFun,Arity]) end, Exports)
+			catch
+				_:_ ->
+					ok
+			end
+		end,
+		EbinFiles);
+
+main(_) ->
+	halt(1).
+