Sequence type indirection support

TAO/tao/AnyTypeCode/TypeCode_CDR_Extraction.cpp

@@ -1392,6 +1392,7 @@ namespace
         // Only struct, union, event and valuetype TypeCodes may be
         // recursive. However non-recursive ALIAS may be indirected.
         || !(kind == CORBA::tk_struct
+             || kind == CORBA::tk_sequence
              || kind == CORBA::tk_union
              || kind == CORBA::tk_value
              || kind == CORBA::tk_event
@@ -1400,6 +1401,15 @@ namespace
         return false;
       }
 
+    if (CORBA::tk_sequence == kind || CORBA::tk_array == kind)  // @todo 1. check if recursion is properly handled 2. check need for other complex types
+      {
+        return TAO::TypeCodeFactory::tc_sequence_factory (static_cast<CORBA::TCKind> (kind),
+                              indir_stream,
+                              tc,
+                              indirect_infos,
+                              direct_infos);
+      }
+
       // Currently all recursive TypeCodes have complex parameter
       // lists, meaning they are encoded as CDR encapsulations.
       TAO_InputCDRByteOrderGuard boguard (indir_stream);

TAO/tests/Any/Indirected/client.cpp

@@ -1,3 +1,5 @@
+#include "seq_indirection_bin.h"
+
 #include "testC.h"
 #include "tao/IFR_Client/IFR_BaseC.h"
 #include "tao/TypeCodeFactory/TypeCodeFactory_Loader.h"
@@ -226,6 +228,21 @@ recursive_union_test ()
     ACE_DEBUG ((LM_INFO,
                 "> Anys destructed\n"));
 
+
+  ACE_DEBUG ((LM_INFO,
+              "* Indirected sequence type demarshaling\n"));
+  {
+  TAO_InputCDR strm((const char*)a_raw, a_raw_len, 0, 1, 2); // big endian, IIOP 1.2
+
+   Test::StructuredEvent notifications;
+   if ((strm >> notifications) == 0)
+   {
+      ACE_ERROR ((LM_ERROR,
+         "ERROR: Failed to demarshal indirected sequence\n"));
+      throw Test::Sequence_Indirection_Test_Failed();
+   }
+  }
+
   return rc;
 }