github/rebar
1
0
Fork 0
mirror of https://github.com/correl/rebar.git synced 2024-12-18 03:00:17 +00:00
Code Issues Projects Releases Packages Wiki Activity

Simplify and cleanup rebar_xref

Browse source
This commit is contained in:
Tuncer Ayaz 2011-01-09 11:54:40 +01:00
parent e4036cbe56
commit 150c9d0b47
1 changed files with 9 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
src/rebar_xref.erl
View file

@ -121,7 +121,7 @@ filter_away_ignored(UnusedExports) ->
[{Mod, F, A} || {F, A} <- Ignore ++ lists:flatten(Callbacks)] [{Mod, F, A} || {F, A} <- Ignore ++ lists:flatten(Callbacks)]
end, end,
AttrIgnore = lists:flatten(lists:map(F, lists:usort([M || {M, _, _} <- UnusedExports]))), AttrIgnore = lists:flatten(lists:map(F, lists:usort([M || {M, _, _} <- UnusedExports]))),
[X || X <- UnusedExports, not(lists:member(X, AttrIgnore))]. [X || X <- UnusedExports, not lists:member(X, AttrIgnore)].
kf(Key, List) -> kf(Key, List) ->
@ -147,6 +147,7 @@ format_fa({_M, F, A}) ->
%% %%
%% Extract an element from a tuple, or undefined if N > tuple size %% Extract an element from a tuple, or undefined if N > tuple size
%%
safe_element(N, Tuple) -> safe_element(N, Tuple) ->
case catch(element(N, Tuple)) of case catch(element(N, Tuple)) of
{'EXIT', {badarg, _}} -> {'EXIT', {badarg, _}} ->
@ -155,23 +156,6 @@ safe_element(N, Tuple) ->
Value Value
end. end.
%%
%% Extract the line number for a given function def
%%
abstract_code_function_line(Code, Name, Args) ->
[{function, Line, Name, _, _}] = [E || E <- Code,
safe_element(1, E) == function,
safe_element(3, E) == Name,
safe_element(4, E) == Args],
Line.
%%
%% Extract the original source filename from the abstract code
%%
abstract_code_source_file(Code) ->
[{attribute, 1, file, {Name, _}} | _] = Code,
Name.
%% %%
%% Given a MFA, find the file and LOC where it's defined. Note that %% Given a MFA, find the file and LOC where it's defined. Note that
@ -182,7 +166,11 @@ find_mfa_source({M, F, A}) ->
{M, Bin, _} = code:get_object_code(M), {M, Bin, _} = code:get_object_code(M),
{ok, {M, [{abstract_code, AbstractCode}]}} = beam_lib:chunks(Bin, [abstract_code]), {ok, {M, [{abstract_code, AbstractCode}]}} = beam_lib:chunks(Bin, [abstract_code]),
{raw_abstract_v1, Code} = AbstractCode, {raw_abstract_v1, Code} = AbstractCode,
Source = abstract_code_source_file(Code), %% Extract the original source filename from the abstract code
Line = abstract_code_function_line(Code, F, A), [{attribute, 1, file, {Source, _}} | _] = Code,
%% Extract the line number for a given function def
[{function, Line, F, _, _}] = [E || E <- Code,
safe_element(1, E) == function,
safe_element(3, E) == F,
safe_element(4, E) == A],
{Source, Line}. {Source, Line}.