1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-define(call(Module, Function, Arguments),
{call, ?LINE,
{remote, ?LINE, ?atom(Module), ?atom(Function)},
Arguments}).
-define(atom(Atom), {atom, ?LINE, Atom}).
-define(integer(Integer), {integer, ?LINE, Integer}).
-define(var(Name), {var, ?LINE, Name}).
-define(attribute(Attribute, Args), {attribute, ?LINE, Attribute, Args}).
-define(function(Name, Arity, Clauses),
{function, ?LINE, Name, Arity, Clauses}).
-define(clause(Arguments, Body), {clause, ?LINE, Arguments, [], Body}).
-define(tuple(Elements), {tuple, ?LINE, Elements}).
|
