1 files changed, 103 insertions, 0 deletions
diff --git a/TAO/tao/corbacom.cpp b/TAO/tao/corbacom.cpp
new file mode 100644
index 00000000000..13ad500ec29
--- /dev/null
+++ b/TAO/tao/corbacom.cpp
@@ -0,0 +1,103 @@
+// $Id$
+
+// @(#)corbacom.cpp     1.1 95/08/31
+// Copyright 1994-1995 by Sun Microsystems Inc.
+// All Rights Reserved
+//
+// ORB:         support for primitive data types
+
+#include "tao/corba.h"
+
+// String utility support; this can need to be integrated with the
+// ORB's own memory allocation subsystem.
+
+CORBA::String
+CORBA::string_copy (const CORBA::Char *str)
+{
+  if (!str)
+    return 0;
+
+  CORBA::String retval = CORBA::string_alloc (ACE_OS::strlen (str));
+  // clear the contents of the allocated string
+  ACE_OS::memset(retval, '\0', ACE_OS::strlen (str));
+
+  return ACE_OS::strcpy (retval, str);
+}
+
+CORBA::String_var &
+CORBA::String_var::operator= (char *p)
+{
+  if (this->ptr_ != p)
+    {
+      if (this->ptr_ != 0)
+        CORBA::string_free (this->ptr_);
+      this->ptr_ = p;
+    }
+  return *this;
+}
+
+CORBA::String_var &
+CORBA::String_var::operator= (const char *p)
+{
+  if (this->ptr_ != 0)
+    CORBA::string_free (this->ptr_);
+
+  this->ptr_ = CORBA::string_dup (p);
+  return *this;
+}
+
+CORBA::String_var &
+CORBA::String_var::operator= (const CORBA::String_var& r)
+{
+  if (this != &r)
+    {
+      if (this->ptr_ != 0)
+        CORBA::string_free (this->ptr_);
+      this->ptr_ = CORBA::string_dup (r.ptr_);
+    }
+  return *this;
+}
+
+// Wide Character string utility support; this can need to be
+// integrated with the ORB's own memory allocation subsystem.
+
+CORBA::WString
+CORBA::wstring_alloc (CORBA::ULong len)
+{
+  return new CORBA::WChar [(size_t) (len + 1)];
+}
+
+static
+inline
+CORBA::WChar *
+wscpy (CORBA::WChar *dest,
+       const CORBA::WChar *src)
+{
+  CORBA::WChar  *retval = dest;
+
+  while ((*dest++ = *src++) != 0)
+    continue;
+  return retval;
+}
+
+CORBA::WString
+CORBA::wstring_copy (const CORBA::WChar *const str)
+{
+  if (*str)
+    return 0;
+
+  CORBA::WString retval = CORBA::wstring_alloc (ACE_WString::wstrlen (str));
+  return wscpy (retval, str);
+}
+
+void
+CORBA::wstring_free (CORBA::WChar *const str)
+{
+  delete [] str;
+}
+
+#if defined (ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION)
+template class TAO_Unbounded_Sequence<CORBA::Octet>;
+#elif defined (ACE_HAS_TEMPLATE_INSTANTIATION_PRAGMA)
+#pragma instantiate TAO_Unbounded_Sequence<CORBA::Octet>
+#endif /* ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION */