Changeset 92 for trunk/src/modules.erl

Timestamp:

01/28/10 16:21:51 (2 years ago)

Author:

dom

Message:

File and line is now provided for test failures

File:

• trunk/src/modules.erl (modified) (3 diffs)

trunk/src/modules.erl

@@ -9 +9 @@
 -export ([compile/1]).
 -export ([module_name/1]).
+-export ([locate/2]).
 
 to_binary (File_name) ->
@@ -23 +24 @@
 
 compile (Fun, Parameter) ->
-    Options = [binary, return, warn_unused_import],
+    Options = [binary, return, warn_unused_import, debug_info],
     Fun (Parameter, Options).
 
@@ -33 +34 @@
     String = filename: rootname (filename: basename (Filename)),
     list_to_atom (String).
+
+locate ({M, F, A}, Binary) ->
+    {ok, {M, Chunks}} = beam_lib: chunks (Binary, [abstract_code, compile_info]),
+    [{abstract_code, Code}, {compile_info, Info}] = Chunks,
+    {value, {source, Filename}} = lists: keysearch (source, 1, Info),
+    {raw_abstract_v1, Forms} = Code,
+    Line = locate_line (F, A, Forms),
+    {Filename, Line}.
+
+locate_line (Function, Arity, [{function, Line, Function, Arity,  _} | _]) ->
+    Line;
+locate_line (Function, Arity, [_ | Forms]) ->
+    locate_line (Function, Arity, Forms);
+locate_line (_, _, []) ->
+    unknown.