aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ic/src/ic.hrl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ic/src/ic.hrl')
-rw-r--r--lib/ic/src/ic.hrl158
1 files changed, 158 insertions, 0 deletions
diff --git a/lib/ic/src/ic.hrl b/lib/ic/src/ic.hrl
new file mode 100644
index 0000000000..974e6088f4
--- /dev/null
+++ b/lib/ic/src/ic.hrl
@@ -0,0 +1,158 @@
+%%
+%% %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).
+
+
+
+
+