diff options
Diffstat (limited to 'lib/orber/include')
-rw-r--r-- | lib/orber/include/Makefile | 66 | ||||
-rw-r--r-- | lib/orber/include/corba.hrl | 148 | ||||
-rw-r--r-- | lib/orber/include/ifr_types.hrl | 72 | ||||
-rw-r--r-- | lib/orber/include/orber_pi.hrl | 76 |
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 ------------------------------ + |