diff options
Diffstat (limited to 'TAO/IIOP/lib/iiopobj.cpp')
| -rw-r--r-- | TAO/IIOP/lib/iiopobj.cpp | 205 |
1 files changed, 0 insertions, 205 deletions
diff --git a/TAO/IIOP/lib/iiopobj.cpp b/TAO/IIOP/lib/iiopobj.cpp deleted file mode 100644 index 571dc794563..00000000000 --- a/TAO/IIOP/lib/iiopobj.cpp +++ /dev/null @@ -1,205 +0,0 @@ -// @(#)iiopobj.cpp 1.9 95/11/04 -// Copyright 1995 by Sun Microsystems Inc. -// All Rights Reserved -// -// IIOP Bridge: CORBA::Object operations -// -// Some CORBA::Object and other operations are specific to this IIOP -// based implementation, and can neither be used by other kinds of -// objref nor have a default implementation. - -#include <assert.h> -#include <limits.h> -#include <orb.h> - -#include <initguid.h> -#include <string.h> - -#include <stub.h> - -#include "iiopobj.h" - -#if !defined(__ACE_INLINE__) -# include "iiopobj.i" -#endif - -IIOP::ProfileBody::ProfileBody (const IIOP::ProfileBody &src) - : iiop_version(src.iiop_version), - port(src.port) -{ - assert (src.iiop_version.major == MY_MAJOR); - assert (src.iiop_version.minor == MY_MINOR); - - host = ACE_OS::strdup (src.host); - - object_key.length = object_key.maximum = src.object_key.length; - - object_key.buffer = (CORBA_Octet *) ACE_OS::malloc (object_key.maximum); - - (void) ACE_OS::memcpy (object_key.buffer, src.object_key.buffer, - object_key.length); -} - -IIOP::ProfileBody::ProfileBody(const IIOP::Version &v, - const CORBA_String &h, - const CORBA_UShort &p, - const opaque &key) - : iiop_version(v), - port(p) -{ - host = ACE_OS::strdup(h); - - object_key.length = object_key.maximum = key.length; - - object_key.buffer = (CORBA_Octet *) ACE_OS::malloc (object_key.maximum); - - (void) ACE_OS::memcpy (object_key.buffer, key.buffer, - object_key.length); -} - -// Quick'n'dirty hash of objref data, for partitioning objrefs into sets -// -// NOTE that this must NOT go across the network! - -CORBA_ULong -IIOP_Object::hash (CORBA_ULong max, - CORBA_Environment &env) -{ - CORBA_ULong hashval; - - env.clear (); - - // Just grab a bunch of convenient bytes and hash them; could do - // more (hostname, full key, exponential hashing) but no real need - // to do so except if performance requires a more costly hash. - - hashval = profile.object_key.length * profile.port; - hashval += profile.iiop_version.minor; - - if (profile.object_key.length >= 4) - { - hashval += profile.object_key.buffer [1]; - hashval += profile.object_key.buffer [3]; - } - - return hashval % max; -} - -// Expensive comparison of objref data, to see if two objrefs -// certainly point at the same object. (It's quite OK for this to -// return FALSE, and yet have the two objrefs really point to the same -// object.) -// -// NOTE that this must NOT go across the network! - -CORBA_Boolean -IIOP_Object::is_equivalent (CORBA_Object_ptr other_obj, - CORBA_Environment &env) -{ - IIOP::ProfileBody *body, *body2; - IIOP_Object *other_iiop_obj; - - env.clear (); - - if (CORBA_is_nil (other_obj) == CORBA_B_TRUE - || other_obj->QueryInterface (IID_IIOP_Object, - (void **) &other_iiop_obj) != NOERROR) - return CORBA_B_FALSE; - CORBA_release (other_obj); - - // Compare all the bytes of the object address -- must be the same - - body = &profile; - body2 = &other_iiop_obj->profile; - - assert (body->object_key.length < UINT_MAX); - - return body->object_key.length == body2->object_key.length - && ACE_OS::memcmp (body->object_key.buffer, - body2->object_key.buffer, - (size_t) body->object_key.length) == 0 - && body->port == body2->port - && ACE_OS::strcmp ((char *)body->host, (char *)body2->host) == 0 - && body->iiop_version.minor == body2->iiop_version.minor - && body->iiop_version.major == body2->iiop_version.major; -} - -// For COM -- IUnknown operations - -// {A201E4C3-F258-11ce-9598-0000C07CA898} -DEFINE_GUID (IID_IIOP_Object, -0xa201e4c3, 0xf258, 0x11ce, 0x95, 0x98, 0x0, 0x0, 0xc0, 0x7c, 0xa8, 0x98); - -// Added by BRM: 2/21/97 -// IID_STUB_Object and IID_CORBA_Object were not being defined. -// Need a central place for all of these macros. - -// {A201E4C7-F258-11ce-9598-0000C07CA898} -DEFINE_GUID (IID_STUB_Object, -0xa201e4c7, 0xf258, 0x11ce, 0x95, 0x98, 0x0, 0x0, 0xc0, 0x7c, 0xa8, 0x98); - -// {A201E4C2-F258-11ce-9598-0000C07CA898} -DEFINE_GUID (IID_CORBA_Object, -0xa201e4c2, 0xf258, 0x11ce, 0x95, 0x98, 0x0, 0x0, 0xc0, 0x7c, 0xa8, 0x98); - -// End - Added by BRM: 2/21/97 IID_STUB_Object and IID_CORBA_Object -// were not being defined. Need a central place for all of these -// macros. - -ULONG __stdcall -IIOP_Object::AddRef (void) -{ - ACE_GUARD_RETURN(ACE_Thread_Mutex, guard, lock_, 0); - - return ++_refcount; -} - -ULONG __stdcall -IIOP_Object::Release (void) -{ - ACE_GUARD_RETURN(ACE_Thread_Mutex, guard, lock_, 0); - - if (--_refcount != 0) - return _refcount; - - guard.release(); - - delete this; - return 0; -} - -// Note that (as of this writing) this is the only place all the -// interfaces to an "objref" come together: -// -// IUnknown ... this one -// STUB_OBJECT ... inherited by this one -// IIOP_OBJECT ... this one -// -// CORBA_Object ... contained within this; it delegates back -// to this one as its "parent" - -HRESULT __stdcall -IIOP_Object::QueryInterface (REFIID riid, - void **ppv) -{ - *ppv = 0; - - if (IID_IIOP_Object == riid - || IID_STUB_Object == riid - || IID_IUnknown == riid) - *ppv = this; - else if (IID_CORBA_Object == riid) - *ppv = &base; - - if (*ppv == 0) - return ResultFromScode (E_NOINTERFACE); - - (void) AddRef (); - return NOERROR; -} - -//TAO extensions -CORBA_String IIOP_Object::_get_name(CORBA_Environment &env) -{ - return (CORBA_String)this->profile.object_key.buffer; -} |