The R13B03 release.OTP_R13B03

4 files changed, 362 insertions, 0 deletions

diff --git a/lib/orber/include/Makefile b/lib/orber/include/Makefile
new file mode 100644
index 0000000000..219b7085e6
--- /dev/null
+++ b/lib/orber/include/Makefile
@@ -0,0 +1,66 @@
+#
+# %CopyrightBegin%
+# 
+# Copyright Ericsson AB 1998-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%
+#
+#
+include $(ERL_TOP)/make/target.mk
+
+include $(ERL_TOP)/make/$(TARGET)/otp.mk
+
+# ----------------------------------------------------
+# Application version
+# ----------------------------------------------------
+include ../vsn.mk
+VSN=$(ORBER_VSN)
+
+# ----------------------------------------------------
+# Release directory specification
+# ----------------------------------------------------
+RELSYSDIR = $(RELEASE_PATH)/lib/orber-$(VSN)
+
+# ----------------------------------------------------
+# Target Specs
+# ----------------------------------------------------
+
+EXTERNAL_HRL_FILES= ../include/corba.hrl \
+	../include/ifr_types.hrl \
+	../include/orber_pi.hrl
+
+# ----------------------------------------------------
+# FLAGS
+# ----------------------------------------------------
+
+# ----------------------------------------------------
+# Targets
+# ----------------------------------------------------
+debug opt clean docs:
+
+
+# ----------------------------------------------------
+# Release Target
+# ---------------------------------------------------- 
+include $(ERL_TOP)/make/otp_release_targets.mk
+
+
+release_spec: opt
+	$(INSTALL_DIR) $(RELSYSDIR)/include
+	$(INSTALL_DATA) $(EXTERNAL_HRL_FILES) $(RELSYSDIR)/include
+
+
+release_docs_spec:
+
+
diff --git a/lib/orber/include/corba.hrl b/lib/orber/include/corba.hrl
new file mode 100644
index 0000000000..b9869855bf
--- /dev/null
+++ b/lib/orber/include/corba.hrl
@@ -0,0 +1,148 @@
+%%--------------------------------------------------------------------
+%%
+%% %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%
+%%
+%%
+%%------------------------------------------------------------
+%% File: corba.hrl
+%% 
+%% Description:
+%%    Standard header file for the Orber Erlang CORBA environment
+%% 
+%%-----------------------------------------------------------------
+-ifndef(corba_hrl).
+-define(corba_hrl, true).
+
+%%
+%% Implementation repository record (not used and can therefor be changed)
+%%
+-record(orb_ImplDef, {node, module, typename, start=start, args=[[]], pid}).
+
+%%
+%% Any record
+%%
+-record(any, {typecode, value}).
+
+%%
+%% Any record
+%%
+-record(fixed, {digits, scale, value}).
+
+%%
+%% Service context record
+%%
+-record('IOP_ServiceContext', {context_id, context_data}).
+
+%%
+%% Exception recod for the resolve initial reference functions
+%%
+-record('InvalidName', {'OE_ID'="IDL:omg.org/CORBA/ORB/InvalidName:1.0"}).
+
+%% Orber OMG assigned TAG's
+%% Service Context IDs 0x45524904 - 0x45524907  ("ERI\x04" - "ERI\x07")
+%% Component IDs   0x45524904 - 0x45524907  ("ERI\x04" - "ERI\x07")
+%% ORB type IDs    0x45524904 - 0x45524907  ("ERI\x04" - "ERI\x07")
+-define(ORBER_ORB_TYPE_1, 16#45524904).
+%-define(ORBER_ORB_TYPE_2, 16#45524905).
+%-define(ORBER_ORB_TYPE_3, 16#45524906).
+%-define(ORBER_ORB_TYPE_4, 16#45524907).
+
+%-define(ORBER_COMPONENT_1, 16#45524904).
+%-define(ORBER_COMPONENT_2, 16#45524905).
+%-define(ORBER_COMPONENT_3, 16#45524906).
+%-define(ORBER_COMPONENT_4, 16#45524907).
+
+-define(ORBER_GENERIC_CTX_ID, 16#45524904).
+%-define(ORBER_SERVICE_CTX_2, 16#45524905).
+%-define(ORBER_SERVICE_CTX_3, 16#45524906).
+%-define(ORBER_SERVICE_CTX_4, 16#45524907).
+
+%%
+%% System exceptions
+%%
+
+%% VMCID
+%% VMCID base assigned to OMG
+-define(CORBA_OMGVMCID, 16#4f4d0000).
+
+%% Orber's VMCID base - "ER\x00\x00" - "ER\x0f\xff".
+%% Range 16#45520000 -> 16#45520fff
+-define(ORBER_VMCID,    16#45520000).
+
+%% Some other Vendors VMCID bases.
+-define(IONA_VMCID_1,   16#4f4f0000).
+-define(IONA_VMCID_2,   16#49540000).
+-define(SUN_VMCID,      16#53550000).
+-define(BORLAND_VMCID,  16#56420000).
+-define(TAO_VMCID,      16#54410000).
+-define(PRISMTECH_VMCID,16#50540000).
+
+-define(ex_body, {'OE_ID'="", minor=?ORBER_VMCID, completion_status}).
+
+-record('UNKNOWN', ?ex_body).
+-record('BAD_PARAM', ?ex_body).
+-record('NO_MEMORY', ?ex_body).
+-record('IMP_LIMIT', ?ex_body).
+-record('COMM_FAILURE', ?ex_body).
+-record('INV_OBJREF', ?ex_body).
+-record('NO_PERMISSION', ?ex_body).
+-record('INTERNAL', ?ex_body).
+-record('MARSHAL', ?ex_body).
+-record('INITIALIZE', ?ex_body).
+-record('NO_IMPLEMENT', ?ex_body).
+-record('BAD_TYPECODE', ?ex_body).
+-record('BAD_OPERATION', ?ex_body).
+-record('NO_RESOURCES', ?ex_body).
+-record('NO_RESPONSE', ?ex_body).
+-record('PERSIST_STORE', ?ex_body).
+-record('BAD_INV_ORDER', ?ex_body).
+-record('TRANSIENT', ?ex_body).
+-record('FREE_MEM', ?ex_body).
+-record('INV_IDENT', ?ex_body).
+-record('INV_FLAG', ?ex_body).
+-record('INTF_REPOS', ?ex_body).
+-record('BAD_CONTEXT', ?ex_body).
+-record('OBJ_ADAPTER', ?ex_body).
+-record('DATA_CONVERSION', ?ex_body).
+-record('OBJECT_NOT_EXIST', ?ex_body).
+-record('TRANSACTION_REQUIRED', ?ex_body).
+-record('TRANSACTION_ROLLEDBACK', ?ex_body).
+-record('INVALID_TRANSACTION', ?ex_body).
+-record('INV_POLICY', ?ex_body).
+-record('CODESET_INCOMPATIBLE', ?ex_body).
+-record('REBIND', ?ex_body).
+-record('TIMEOUT', ?ex_body).
+-record('TRANSACTION_UNAVAILABLE', ?ex_body).
+-record('TRANSACTION_MODE', ?ex_body).
+-record('BAD_QOS', ?ex_body).
+
+%% Defines for the enum exception_type (is also used for reply_status)
+-define(NO_EXCEPTION, 'no_exception').
+-define(USER_EXCEPTION, 'user_exception').
+-define(SYSTEM_EXCEPTION, 'system_exception').
+
+%% Defines for the enum completion_status.
+-define(COMPLETED_YES, 'COMPLETED_YES').
+-define(COMPLETED_NO, 'COMPLETED_NO').
+-define(COMPLETED_MAYBE, 'COMPLETED_MAYBE').
+
+
+-undef(ex_body).
+
+
+-endif.
diff --git a/lib/orber/include/ifr_types.hrl b/lib/orber/include/ifr_types.hrl
new file mode 100644
index 0000000000..d982850e98
--- /dev/null
+++ b/lib/orber/include/ifr_types.hrl
@@ -0,0 +1,72 @@
+%%--------------------------------------------------------------------
+%%
+%% %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%
+%%
+%%
+%%----------------------------------------------------------------------
+%% File    : ifr_types.hrl
+%% Purpose : Record definitions for structs used in the interface repository
+%%----------------------------------------------------------------------
+
+
+%%%----------------------------------------------------------------------
+%%% *********************************************************************
+%%% *									*
+%%% *                        PLEASE NOTE				*
+%%% *									*
+%%% * If a record is removed or added in this file, select/2 in		*
+%%% * orber_ifr.erl _MUST_ be updated accordingly.			*
+%%% *									*
+%%% *********************************************************************
+%%%----------------------------------------------------------------------
+
+-record(contained_description, {kind, value}).
+
+-record(structmember, {name, type, type_def}).
+
+-record(unionmember, {name, label, type, type_def}).
+
+-record(container_description, {contained_object, kind, value}).
+
+-record(moduledescription, {name, id, defined_in, version}).
+
+-record(constantdescription, {name, id, defined_in, version, type, value}).
+
+-record(typedescription, {name, id, defined_in, version, type}).
+
+-define(make_typedescription(Obj,Object_type),
+	#typedescription{name = Obj#Object_type.name,
+			 id = Obj#Object_type.id,
+			 defined_in = Obj#Object_type.defined_in,
+			 version = Obj#Object_type.version,
+			 type = Obj#Object_type.type}.
+
+-record(exceptiondescription, {name, id, defined_in, version, type}).
+
+-record(attributedescription, {name, id, defined_in, version, type, mode}).
+
+-record(parameterdescription, {name, type, type_def, mode}).
+
+-record(operationdescription, {name, id, defined_in, version, result, mode,
+			       contexts, parameters, exceptions}).
+
+-record(fullinterfacedescription, {name, id, defined_in, version, operations,
+				   attributes, base_interfaces, type}).
+
+-record(interfacedescription, {name, id, defined_in, version,
+			       base_interfaces}).
diff --git a/lib/orber/include/orber_pi.hrl b/lib/orber/include/orber_pi.hrl
new file mode 100644
index 0000000000..84231758fe
--- /dev/null
+++ b/lib/orber/include/orber_pi.hrl
@@ -0,0 +1,76 @@
+%%----------------------------------------------------------------------
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2000-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%
+%%
+%%
+%%----------------------------------------------------------------------
+%% File    : orber_pi.hrl
+%% Purpose : 
+%%----------------------------------------------------------------------
+
+%%=============== CONSTANTS ==================================
+%%-------- PortableInterceptor::Interceptor (local) ----------
+%% Reply Status
+-define('PortableInterceptor_SUCCESSFUL',                 0).
+-define('PortableInterceptor_SYSTEM_EXCEPTION',           1).
+-define('PortableInterceptor_USER_EXCEPTION',             2).
+-define('PortableInterceptor_LOCATION_FORWARD',           3).
+-define('PortableInterceptor_LOCATION_FORWARD_PERMANENT', 4).
+-define('PortableInterceptor_TRANSPORT_RETRY',            5).
+
+
+%%=============== EXCEPTIONS =================================
+%%-------- PortableInterceptor::Interceptor (local) ----------
+%% forward eq. CORBA::Object, premanent eq. boolean
+-record('PortableInterceptor_ForwardRequest', {'OE_ID'="local", forward, permanent}).
+-record('PortableInterceptor_InvalidSlot', {'OE_ID'="local"}).
+
+%%--------------- IOP_N::Codec (local) -----------------------
+-record('IOP_N_Codec_InvalidTypeForEncoding', {'OE_ID'="local"}).
+-record('IOP_N_Codec_FormatMismatch', {'OE_ID'="local"}).
+-record('IOP_N_Codec_TypeMismatch', {'OE_ID'="local"}).
+
+%%--------------- IOP_N (Module level) -----------------------
+-define('IOP_N_ENCODING_CDR_ENCAPS', 0).
+
+%%--------------- IOP_N::CodecFactory (Module level) ---------
+-record('IOP_N_CodecFactory_UnknownEncoding', {'OE_ID'="local"}).
+
+%%--------------- IOP_N::ORBInitInfo (Module level) ----------
+%% name eq. string()
+-record('PortableInterceptor_ORBInitInfo_DuplicateName', {'OE_ID'="local", name}).
+-record('PortableInterceptor_ORBInitInfo_InvalidName', {'OE_ID'="local"}).
+
+
+%%=============== DATA STRUCTURES ============================
+%%--------------- IOP_N (Module level) -----------------------
+-record('IOP_N_Encoding', 
+	{format,          %% Currently only 'IOP_N_ENCODING_CDR_ENCAPS' allowed.
+	 major_version,   %% 1 only
+	 minor_version}). %% 0,1 or 2
+
+
+%%--------------- Dynamic (Module level) ---------------------
+%% argument eq. #any{}, 
+%% mode eq. CORBA::ParameterMode - PARAM_IN, PARAM_OUT, PARAM_INOUT.
+-record('Dynamic_Parameter', 
+	{argument, 
+	 mode}).
+
+%%--------------- END OF MODULE ------------------------------
+