summaryrefslogtreecommitdiff
path: root/TAO/tao/iioporb.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/tao/iioporb.cpp')
-rw-r--r--TAO/tao/iioporb.cpp375
1 files changed, 0 insertions, 375 deletions
diff --git a/TAO/tao/iioporb.cpp b/TAO/tao/iioporb.cpp
deleted file mode 100644
index 585220bc577..00000000000
--- a/TAO/tao/iioporb.cpp
+++ /dev/null
@@ -1,375 +0,0 @@
-// @(#)iioporb.cpp 1.8 95/09/19
-// Copyright 1994-1995 by Sun Microsystems Inc.
-// All Rights Reserved
-//
-// IIOP: ORB pseudo-object
-//
-// This includes objref stringification/destringification for IIOP
-// object references.
-
-#include "tao/corba.h"
-
-static const char ior_prefix [] = "IOR:";
-static const char iiop_prefix [] = "iiop:";
-
-// Objref stringification
-
-CORBA::String
-IIOP_ORB::object_to_string (CORBA::Object_ptr obj,
- CORBA::Environment &env)
-{
- env.clear ();
-
- // Application writer controls what kind of objref strings they get,
- // maybe along with other things, by how they initialize the ORB.
-
- if (use_omg_ior_format_)
- {
- // By default, orbs use IOR strings; these are ugly (and error
- // prone) but specified by CORBA.
- //
- // XXX there should be a simple way to reuse this code in other
- // ORB implementations ...
-
- u_char *bytes;
- // @@ Is BUFSIZ the right size here?
- u_char buf [BUFSIZ];
- CDR cdr (buf, sizeof buf, TAO_ENCAP_BYTE_ORDER);
-
- bytes = buf;
- (void) ACE_OS::memset (bytes, 0, BUFSIZ); // support limited oref ACE_OS::strcmp
-
- // Marshal the objref into an encapsulation bytestream.
- (void) cdr.put_char (TAO_ENCAP_BYTE_ORDER);
- if (cdr.encode (CORBA::_tc_Object,
- &obj, 0,
- env) != CORBA::TypeCode::TRAVERSE_CONTINUE)
- return 0;
-
- // Now hexify the encapsulated CDR data into a string, and
- // return that string.
-
- CORBA::String cp;
- size_t len = cdr.length - cdr.remaining;
-
- CORBA::String string = CORBA::string_alloc (sizeof ior_prefix + 2 * len);
-
- ACE_OS::strcpy ((char *) string, ior_prefix);
-
- for (cp = (CORBA::String) ACE_OS::strchr ((char *) string, ':') + 1, bytes = cdr.buffer;
- len--;
- bytes++)
- {
- *cp++ = ACE::nibble2hex ((*bytes) >> 4);
- *cp++ = ACE::nibble2hex (*bytes);
- }
-
- *cp = 0;
- return string;
- }
- else
- {
- // The "internet" ORB uses readable URL style objrefs, as used
- // in the World Wide Web.
- //
- // NOTE: the version ID in the string is ugly but we can't
- // realistically eliminate it by any "assume 1.0" strategy...
- // Similarly with the port, because there's no single IIOP port
- // to which we could default.
-
- static const char digits [] = "0123456789";
-
- // This only works for IIOP objrefs. If we're handed an objref
- // that's not an IIOP objref, fail -- application must use an
- // ORB that's configured differently.
-
- IIOP_Object *obj2;
-
- if (obj->QueryInterface (IID_IIOP_Object,
- (void **) &obj2) != NOERROR)
- {
- env.exception (new CORBA_DATA_CONVERSION (CORBA::COMPLETED_NO));
- return 0;
- }
-
- if (!obj2) // null?
- return CORBA::string_copy ((CORBA::String) iiop_prefix);
-
- char buf [BUFSIZ + 2];
-
- ACE_OS::sprintf (buf, "%s%c.%c//%s:%d/", iiop_prefix,
- digits [obj2->profile.iiop_version.major],
- digits [obj2->profile.iiop_version.minor],
- obj2->profile.host, obj2->profile.port);
-
- char *cp = ACE_OS::strchr (buf, 0);
- u_int len;
- u_char *byte;
-
- for (len = (u_int) obj2->profile.object_key.length,
- byte = obj2->profile.object_key.buffer;
- cp < &buf [BUFSIZ] && len != 0;
- len--, byte++)
- {
- if (isascii (*byte) && isprint (*byte) && *byte != '\\')
- {
- *cp++ = (char) *byte;
- continue;
- }
-
- // NOTE: this could run two characters past &buf[BUFSIZ],
- // which is why buf is exactly two characters bigger than
- // that ... saves coding a test here.
- *cp++ = '\\';
- *cp++ = ACE::nibble2hex (*byte & 0x0f);
- *cp++ = ACE::nibble2hex ((*byte >> 4) & 0x0f);
- }
- if (cp >= &buf [BUFSIZ])
- {
- env.exception (new CORBA_IMP_LIMIT (CORBA::COMPLETED_NO));
- return 0;
- }
- *cp = 0;
- return CORBA::string_copy ((CORBA::String) &buf[0]);
- }
-}
-
-// Destringify OMG-specified "IOR" string.
-//
-// XXX there should be a simple way to reuse this code in other ORB
-// implementations ...
-
-static CORBA::Object_ptr
-ior_string_to_object (CORBA::String str,
- CORBA::Environment &env)
-{
- // Unhex the bytes, and make a CDR deencapsulation stream from the
- // resulting data.
-
- u_char *buffer;
- ACE_NEW_RETURN (buffer,
- u_char [1 + ACE_OS::strlen ((char *) str) / 2],
- CORBA_Object::_nil ());
-
- char *tmp = (char *) str;
- size_t len = 0;
-
- while (tmp [0] && tmp [1])
- {
- u_char byte;
-
- if (!(isxdigit (tmp [0]) && isxdigit (tmp [1])))
- break;
-
- byte = (u_char) (ACE::hex2byte (tmp [0]) << 4);
- byte |= ACE::hex2byte (tmp [1]);
-
- buffer [len++] = byte;
- tmp += 2;
- }
-
- if (tmp [0] && !isspace (tmp [0]))
- {
- delete [] buffer;
- env.exception (new CORBA::BAD_PARAM (CORBA::COMPLETED_NO));
- return 0;
- }
-
- // Create deencapsulation stream ... then unmarshal objref from that
- // stream.
-
- CDR stream;
- CORBA::Object_ptr objref;
-
- stream.setup_encapsulation (buffer, len);
- if (stream.decode (CORBA::_tc_Object,
- &objref, 0,
- env) != CORBA::TypeCode::TRAVERSE_CONTINUE)
- objref = 0;
-
- delete [] buffer;
- return objref;
-}
-
-// Destringify URL style IIOP objref.
-
-static CORBA::Object_ptr
-iiop_string_to_object (CORBA::String string,
- CORBA::Environment &env)
-{
- // NIL objref encodes as just "iiop:" ... which has already been
- // removed, so we see it as an empty string.
-
- if (!string || !*string)
- return 0;
-
- // type ID not encoded in this string ... makes narrowing rather
- // expensive, though it does ensure that type-safe narrowing code
- // gets thoroughly excercised/debugged! Without a typeID, the
- // _narrow will be required to make an expensive remote "is_a" call.
-
- IIOP_Object *data;
-
- // null type ID.
- ACE_NEW_RETURN (data, IIOP_Object ((char *) 0), 0);
-
- // Remove the "N.N//" prefix, and verify the version's one
- // that we accept
-
- if (isdigit (string [0]) && isdigit (string [2]) && string [1] == '.'
- && string [3] == '/' && string [4] == '/')
- {
- data->profile.iiop_version.major = (char) (string [0] - '0');
- data->profile.iiop_version.minor = (char) (string [2] - '0');
- string += 5;
- }
- else
- {
- env.exception (new CORBA_DATA_CONVERSION (CORBA::COMPLETED_NO));
- data->Release ();
- return 0;
- }
-
- if (data->profile.iiop_version.major != IIOP::MY_MAJOR
- || data->profile.iiop_version.minor > IIOP::MY_MINOR)
- {
- env.exception (new CORBA_DATA_CONVERSION (CORBA::COMPLETED_NO));
- data->Release ();
- return 0;
- }
-
- // Pull off the "hostname:port/" part of the objref
-
- char *cp = ACE_OS::strchr (string, ':');
- if (cp == 0)
- {
- env.exception (new CORBA_DATA_CONVERSION (CORBA::COMPLETED_NO));
- data->Release ();
- return 0;
- }
-
- data->profile.host = CORBA::string_alloc (1 + cp - string);
- for (cp = data->profile.host;
- *string != ':';
- *cp++ = *string++)
- continue;
-
- *cp = 0;
- string++;
-
- cp = ACE_OS::strchr ((char *) string, '/');
-
- if (cp == 0)
- {
- env.exception (new CORBA_DATA_CONVERSION (CORBA::COMPLETED_NO));
- CORBA::string_free (data->profile.host);
- data->Release ();
- return 0;
- }
-
- data->profile.port = (short) ACE_OS::atoi ((char *) string);
- data->profile.object_addr (0);
- string = ++cp;
-
- // Parse the key ... it's ASCII plus hex escapes for everything
- // nonprintable. This assumes that printable ASCII is the common
- // case ... but since stringification is uncommon, no big deal.
-
- data->profile.object_key.buffer =
- (u_char *) CORBA::string_copy (string);
-
- // Strip out whitespace and adjust length accordingly.
-
- for (cp = (char *) data->profile.object_key.buffer;
- *cp;
- cp++)
- {
- if (!isprint (*cp))
- {
- *cp = '\0';
- break;
- }
- }
-
- string = (char *) data->profile.object_key.buffer;
- data->profile.object_key.length = ACE_OS::strlen (string);
- data->profile.object_key.maximum = data->profile.object_key.length;
-
- // Strip out hex escapes and adjust the key's length appropriately.
-
- while ((cp = ACE_OS::strchr ((char *) data->profile.object_key.buffer, '\\')) != 0)
- {
- *cp = (CORBA::Char) (ACE::hex2byte ((char) cp [1]) << 4);
- *cp |= (CORBA::Char) ACE::hex2byte ((char) cp [2]);
- cp++;
-
- size_t len = ACE_OS::strlen (cp);
-
- ACE_OS::memcpy (cp, cp+2, len - 2);
- data->profile.object_key.length -= 2;
- }
-
- // Return the objref.
- CORBA::Object_ptr obj;
-
- (void) data->QueryInterface (IID_CORBA_Object,
- (void **) &obj);
- data->Release ();
- return obj;
-}
-
-// Destringify arbitrary objrefs.
-
-CORBA::Object_ptr
-IIOP_ORB::string_to_object (const CORBA::String str,
- CORBA::Environment &env)
-{
- env.clear ();
-
- CORBA::Object_ptr obj = 0;
-
- // Use the prefix code to choose which destringify algorithm to use.
- if (ACE_OS::strncmp ((char *)str,
- iiop_prefix, sizeof iiop_prefix - 1) == 0)
- obj = iiop_string_to_object (str + sizeof iiop_prefix - 1, env);
-
- else if (ACE_OS::strncmp ((char *)str,
- ior_prefix,
- sizeof ior_prefix - 1) == 0)
- obj = ior_string_to_object (str + sizeof ior_prefix - 1, env);
-
- // Return the object
- return obj;
-}
-
-// COM IUnknown support
-
-// {A201E4C4-F258-11ce-9598-0000C07CA898}
-DEFINE_GUID (IID_IIOP_ORB,
-0xa201e4c4, 0xf258, 0x11ce, 0x95, 0x98, 0x0, 0x0, 0xc0, 0x7c, 0xa8, 0x98);
-
-HRESULT __stdcall
-IIOP_ORB::QueryInterface (REFIID riid,
- void **ppv)
-{
- *ppv = 0;
-
- if (IID_CORBA_ORB == riid
- || IID_IIOP_ORB == riid
- || IID_IUnknown == riid)
- *ppv = this;
-
- // XXX gotta aggregate ...
-
- if (*ppv == 0)
- return ResultFromScode (E_NOINTERFACE);
-
- (void) AddRef ();
- return NOERROR;
-}
-
-#if defined (ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION)
-template class ACE_Singleton<IIOP_ORB, ACE_SYNCH_RECURSIVE_MUTEX>;
-#elif defined (ACE_HAS_TEMPLATE_INSTANTIATION_PRAGMA)
-#pragma instantiate ACE_Singleton<IIOP_ORB, ACE_SYNCH_RECURSIVE_MUTEX>
-#endif /* ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION */
View Lorry Controller Status