1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 1996-2009. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
%%
-module(error_handler).
%% A simple error handler.
-export([undefined_function/3, undefined_lambda/3, stub_function/3,
breakpoint/3]).
-spec undefined_function(Module :: atom(), Function :: atom(), Args :: [_]) ->
any().
undefined_function(Module, Func, Args) ->
case ensure_loaded(Module) of
{module, Module} ->
case erlang:function_exported(Module, Func, length(Args)) of
true ->
apply(Module, Func, Args);
false ->
case check_inheritance(Module, Args) of
{value, Base, Args1} ->
apply(Base, Func, Args1);
none ->
crash(Module, Func, Args)
end
end;
{module, _} ->
crash(Module, Func, Args);
_Other ->
crash(Module, Func, Args)
end.
-spec undefined_lambda(Module :: atom(), Function :: fun(), Args :: [_]) ->
any().
undefined_lambda(Module, Fun, Args) ->
case ensure_loaded(Module) of
{module, Module} ->
%% There is no need (and no way) to test if the fun is present.
%% apply/2 will not call us again if the fun is missing.
apply(Fun, Args);
{module, _} ->
crash(Fun, Args);
_Other ->
crash(Fun, Args)
end.
-spec breakpoint(Module :: atom(), Function :: atom(), Args :: [_]) ->
any().
breakpoint(Module, Func, Args) ->
(int()):eval(Module, Func, Args).
%% Used to make the call to the 'int' module a "weak" one, to avoid
%% building strong components in xref or dialyzer.
int() -> int.
%%
%% Crash providing a beautiful stack backtrace.
%%
crash(Fun, Args) ->
crash({Fun,Args}).
crash(M, F, A) ->
crash({M,F,A}).
-spec crash(tuple()) -> no_return().
crash(Tuple) ->
try erlang:error(undef)
catch
error:undef ->
erlang:raise(error, undef, [Tuple|tl(erlang:get_stacktrace())])
end.
%% If the code_server has not been started yet dynamic code loading
%% is handled by init.
ensure_loaded(Module) ->
Self = self(),
case whereis(code_server) of
%% Perhaps double fault should be detected in code:ensure_loaded/1
%% instead, since this error handler cannot know whether the
%% code server can resolve the problem or not.
%% An {error, Reason} return from there would crash the code server and
%% bring down the node.
Self ->
Error = "The code server called the unloaded module `" ++
atom_to_list(Module) ++ "'",
halt(Error);
Pid when is_pid(Pid) ->
code:ensure_loaded(Module);
_ ->
init:ensure_loaded(Module)
end.
-spec stub_function(atom(), atom(), [_]) -> no_return().
stub_function(Mod, Func, Args) ->
exit({undef,[{Mod,Func,Args}]}).
check_inheritance(Module, Args) ->
Attrs = erlang:get_module_info(Module, attributes),
case lists:keysearch(extends, 1, Attrs) of
{value,{extends,[Base]}} when is_atom(Base), Base =/= Module ->
%% This is just a heuristic for detecting abstract modules
%% with inheritance so they can be handled; it would be
%% much better to do it in the emulator runtime
case lists:keysearch(abstract, 1, Attrs) of
{value,{abstract,[true]}} ->
case lists:reverse(Args) of
[M|Rs] when tuple_size(M) > 1,
element(1,M) =:= Module,
tuple_size(element(2,M)) > 0,
is_atom(element(1,element(2,M))) ->
{value, Base, lists:reverse(Rs, [element(2,M)])};
_ ->
{value, Base, Args}
end;
_ ->
{value, Base, Args}
end;
_ ->
none
end.
|
