1 files changed, 86 insertions, 0 deletions
diff --git a/TAO/tao/AnyTypeCode/String_TypeCode_Static.cpp b/TAO/tao/AnyTypeCode/String_TypeCode_Static.cpp
new file mode 100644
index 00000000000..0ce4bfdf600
--- /dev/null
+++ b/TAO/tao/AnyTypeCode/String_TypeCode_Static.cpp
@@ -0,0 +1,86 @@
+// $Id$
+
+#include "tao/AnyTypeCode/String_TypeCode_Static.h"
+#include "tao/CDR.h"
+#include "tao/SystemException.h"
+
+#ifndef __ACE_INLINE__
+# include "tao/AnyTypeCode/String_TypeCode_Static.inl"
+#endif  /* !__ACE_INLINE__ */
+
+
+ACE_RCSID (AnyTypeCode,
+           String_TypeCode_Static,
+           "$Id$")
+
+
+TAO_BEGIN_VERSIONED_NAMESPACE_DECL
+
+bool
+TAO::TypeCode::String<TAO::Null_RefCount_Policy>::tao_marshal (
+  TAO_OutputCDR & cdr,
+  CORBA::ULong) const
+{
+  // A tk_string TypeCode has a "simple" parameter list type (see
+  // Table 15-2 in Section 15.3.5.1 "TypeCode" in the CDR section of
+  // the CORBA specification), meaning that its parameter(s) must be
+  // marshaled immediately following the TCKind.  No CDR encapsulation
+  // is to be created.
+
+  return (cdr << this->length_);
+}
+
+void
+TAO::TypeCode::String<TAO::Null_RefCount_Policy>::tao_duplicate (void)
+{
+}
+
+void
+TAO::TypeCode::String<TAO::Null_RefCount_Policy>::tao_release (void)
+{
+}
+
+CORBA::Boolean
+TAO::TypeCode::String<TAO::Null_RefCount_Policy>::equal_i (
+  CORBA::TypeCode_ptr tc) const
+{
+  // The following call won't throw since CORBA::TypeCode::equal() has
+  // already established the kind of tc is the same as our kind.
+  CORBA::ULong const tc_length = tc->length ();
+
+  return (this->length_ == tc_length);
+}
+
+CORBA::Boolean
+TAO::TypeCode::String<TAO::Null_RefCount_Policy>::equivalent_i (
+  CORBA::TypeCode_ptr tc
+  ) const
+{
+  // Since TCKind comparisons must be performed before equal_i() is
+  // called, we can also call it to determine equivalence of
+  // tk_string-based TypeCodes.
+  return this->equal_i (tc);
+}
+
+CORBA::TypeCode_ptr
+TAO::TypeCode::String<TAO::Null_RefCount_Policy>::get_compact_typecode_i (
+  void) const
+{
+  // Already compact since tk_string and tk_wstring TypeCodes have no
+  // name or member names, meaning that we can simply call
+  // _duplicate() on this TypeCode.
+
+  CORBA::TypeCode_ptr mutable_tc =
+    const_cast<TAO::TypeCode::String<TAO::Null_RefCount_Policy> *> (this);
+
+  return CORBA::TypeCode::_duplicate (mutable_tc);
+}
+
+CORBA::ULong
+TAO::TypeCode::String<TAO::Null_RefCount_Policy>::length_i (
+  void) const
+{
+  return this->length_;
+}
+
+TAO_END_VERSIONED_NAMESPACE_DECL