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
|
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2008-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%
-record(class,
{
name = undefined,
parent = undefined,
methods = [],
attributes = [],
event = false,
file = undefined,
options = undefined,
abstract = false,
id, % Unique integer identifer
doc
}).
-record(method,
{
name = undefined, % real name
alias = undefined, % erlang func name
type = void, % method type
min_arity = undefined, % Required args
max_arity = undefined, % Optional args
defined_in = undefined, %
params = [], % arguments to the function
method_type = member, % kind of method, e.g constructor
where = both, % Erl or c or both
id = undefined, % Id (integer)
doc, % Extra documentation
virtual, % Is virtual?
pre_hook, % Pre hook before call in c-code
post_hook % Post hook after call in c-code
}
).
-record(param,
{
name = undefined,
type = undefined,
def = none,
in = true,
where = both, % both in c and erl or only in either
prot = public, % only used by attributes
alt = undefined,% c-only alternative usually a length indicator
acc % access function if protected and needed
}).
-record(type,
{
name = undefined, % typename
base = undefined, % basename int, char, float ..
by_val = true, % or false = by_ref
single = true, % Single or array (list)
mod = [], % const ...
ref = undefined, % pointer or reference
xml = undefined % xml identity
}
).
-record(enum, {from, skip="", as_atom=false, vals}).
-record(const,{name,val,enum,is_const}).
-define(error(What),
erlang:error({{?MODULE,?LINE},{get(current_class),get(current_func)},What})).
-define(warning(Str,Args),
io:format("~p:~p Warning:"++Str, [?MODULE,?LINE] ++ Args)).
%-ifdef(TRACE_COMMENT).
%-define(WTC(X), w("// ~p:~p ~p~n",[?MODULE, ?LINE, X])).
%-else.
-define(WTC(X), void).
%-endif.
|
