%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 1997-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%
%%
%%
%%------------------------------------------------------------
%% Configuration macros
-define(CORBAMOD, corba).
-define(ORBNAME, orber).
-define(CORBAHRL, "corba.hrl").
-define(CALL, "call").
-define(CAST, "cast").
-define(IFRREGID, "register").
-define(IFRTYPESHRL, "ifr_types.hrl").
-define(GENSERVMOD, gen_server).
%%------------------------------------------------------------
%% Flags. NOTE! Once assigned value may NOT be changed. Deprecate ok.
%% Default flags. Can be changed if we change the default behavior.
-define(IC_FLAG_TEMPLATE_1, 16#01).
-define(IC_FLAG_TEMPLATE_2, 16#02).
-define(IC_INIT_FLAGS, 16#00).
%% Flag operations
%% USAGE: Boolean = ?IC_FLAG_TEST(Flags, ?IC_ATTRIBUTE)
-define(IC_FLAG_TEST(_F1, _I1), ((_F1 band _I1) == _I1)).
%% USAGE: NewFlags = ?IC_SET_TRUE(Flags, ?IC_ATTRIBUTE)
-define(IC_SET_TRUE(_F2, _I2), (_I2 bor _F2)).
%% USAGE: NewFlags = ?IC_SET_FALSE(Flags, ?IC_ATTRIBUTE)
-define(IC_SET_FALSE(_F3, _I3), ((_I3 bxor 16#ff) band _F3)).
%% USAGE: NewFlags = ?IC_SET_FALSE_LIST(Flags, [?IC_SEC_ATTRIBUTE, ?IC_SOME])
-define(IC_SET_FALSE_LIST(_F4, _IList1),
lists:foldl(fun(_I4, _F5) ->
((_I4 bxor 16#ff) band _F5)
end,
_F4, _IList1)).
%% USAGE: NewFlags = ?IC_SET_TRUE_LIST(Flags, [?IC_ATTRIBUTE, ?IC_SOME])
-define(IC_SET_TRUE_LIST(_F6, _IList2),
lists:foldl(fun(_I6, _F7) ->
(_I6 bor _F7)
end,
_F6, _IList2)).
%% USAGE: Boolean = ?IC_FLAG_TEST_LIST(Flags, [?IC_CONTEXT, ?IC_THING])
-define(IC_FLAG_TEST_LIST(_F8, _IList3),
lists:all(fun(_I7) ->
((_F8 band _I7) == _I7)
end,
_IList3)).
%%------------------------------------------------------------
%% Usefull macros
-define(ifthen(P,ACTION), if P -> ACTION; true->true end).
%%------------------------------------------------------------
%% Option macros
-define(ifopt(G,OPT,ACTION),
case ic_options:get_opt(G,OPT) of true -> ACTION; _ -> ok end).
-define(ifopt2(G,OPT,ACT1,ACT2),
case ic_options:get_opt(G,OPT) of true -> ACT1; _ -> ACT2 end).
-define(ifnopt(G,OPT,ACTION),
case ic_options:get_opt(G,OPT) of false -> ACTION; _ -> ok end).
%% Internal record
-record(id_of, {id, type, tk}).
%%--------------------------------------------------------------------
%% The generator object definition
-record(genobj, {symtab, impl, options, warnings, auxtab,
tktab, pragmatab, c_typedeftab,
skelfile=[], skelfiled=[], skelscope=[],
stubfile=[], stubfiled=[], stubscope=[],
includefile=[], includefiled=[],
interfacefile=[],interfacefiled=[],
helperfile=[],helperfiled=[],
holderfile=[],holderfiled=[],
filestack=0, do_gen=true, sysfile=false}).
%%--------------------------------------------------------------------
%% The scooped id definition
-record(scoped_id, {type=local, line=-1, id=""}).
%%--------------------------------------------------------------------
%% Secret macros
%%
%% NOTE these macros are not general, they cannot be used
%% everywhere.
%%
-define(lookup(T,K), case ets:lookup(T, K) of [{_X, _Y}] -> _Y; _->[] end).
-define(insert(T,K,V), ets:insert(T, {K, V})).
%%---------------------------------------------------------------------
%%
%% Java specific macros
%%
%%
-define(ERLANGPACKAGE,"com.ericsson.otp.erlang.").
-define(ICPACKAGE,"com.ericsson.otp.ic.").
%%
%% Macros for reporting encode/decode errors in C back-ends.
%%
%%
-define(emit_c_enc_rpt(Fd, Fill, Fmt, Vals),
begin
CType = ic_cbe:mk_c_type2(G, N, T),
ic_codegen:emit_c_enc_rpt(Fd, Fill, "~s : " ++ Fmt, [CType| Vals])
end).
-define(emit_c_dec_rpt(Fd, Fill, Fmt, Vals),
begin
CType = ic_cbe:mk_c_type2(G, N, T),
ic_codegen:emit_c_dec_rpt(Fd, Fill, "~s : " ++ Fmt, [CType| Vals])
end).
