%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 1999-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%
%%
%% Purpose : Core Erlang syntax trees as records.
%% It would be nice to incorporate some generic functions as well but
%% this could make including this file difficult.
%% Note: the annotation list is *always* the first record field.
%% Thus it is possible to define the macros:
%% -define(get_ann(X), element(2, X)).
%% -define(set_ann(X, Y), setelement(2, X, Y)).
%% The record definitions appear alphabetically
-record(c_alias, {anno=[], var, % var :: Tree,
pat}). % pat :: Tree
-record(c_apply, {anno=[], op, % op :: Tree,
args}). % args :: [Tree]
-record(c_binary, {anno=[], segments}). % segments :: [#c_bitstr{}]
-record(c_bitstr, {anno=[], val, % val :: Tree,
size, % size :: Tree,
unit, % unit :: Tree,
type, % type :: Tree,
flags}). % flags :: Tree
-record(c_call, {anno=[], module, % module :: Tree,
name, % name :: Tree,
args}). % args :: [Tree]
-record(c_case, {anno=[], arg, % arg :: Tree,
clauses}). % clauses :: [Tree]
-record(c_catch, {anno=[], body}). % body :: Tree
-record(c_clause, {anno=[], pats, % pats :: [Tree],
guard, % guard :: Tree,
body}). % body :: Tree
-record(c_cons, {anno=[], hd, % hd :: Tree,
tl}). % tl :: Tree
-record(c_fun, {anno=[], vars, % vars :: [Tree],
body}). % body :: Tree
-record(c_let, {anno=[], vars, % vars :: [Tree],
arg, % arg :: Tree,
body}). % body :: Tree
-record(c_letrec, {anno=[], defs, % defs :: [#c_def{}],
body}). % body :: Tree
-record(c_literal, {anno=[], val}). % val :: literal()
-record(c_module, {anno=[], name, % name :: Tree,
exports, % exports :: [Tree],
attrs, % attrs :: [#c_def{}],
defs}). % defs :: [#c_def{}]
-record(c_primop, {anno=[], name, % name :: Tree,
args}). % args :: [Tree]
-record(c_receive, {anno=[], clauses, % clauses :: [Tree],
timeout, % timeout :: Tree,
action}). % action :: Tree
-record(c_seq, {anno=[], arg, % arg :: Tree,
body}). % body :: Tree
-record(c_try, {anno=[], arg, % arg :: Tree,
vars, % vars :: [Tree],
body, % body :: Tree
evars, % evars :: [Tree],
handler}). % handler :: Tree
-record(c_tuple, {anno=[], es}). % es :: [Tree]
-record(c_values, {anno=[], es}). % es :: [Tree]
-record(c_var, {anno=[], name :: cerl:var_name()}).
-record(c_map_pair, {anno=[],
op :: 'assoc' | 'exact',
key, val}).
-record(c_map, {anno=[],
var=#c_literal{val=[]} :: #c_var{} | #c_literal{},
es :: [#c_map_pair{}]}).