1 files changed, 52 insertions, 0 deletions
diff --git a/TAO/orbsvcs/orbsvcs/Trader/Interpreter_Utils_T.cpp b/TAO/orbsvcs/orbsvcs/Trader/Interpreter_Utils_T.cpp
new file mode 100644
index 00000000000..5474d4fb694
--- /dev/null
+++ b/TAO/orbsvcs/orbsvcs/Trader/Interpreter_Utils_T.cpp
@@ -0,0 +1,52 @@
+// $Id$
+
+#ifndef TAO_INTERPRETER_UTILS_CPP
+#define TAO_INTERPRETER_UTILS_CPP
+
+#include "orbsvcs/Trader/Interpreter_Utils_T.h"
+#include "orbsvcs/Trader/Constraint_Visitors.h"
+#include "tao/DynamicAny/DynSequence_i.h"
+
+TAO_BEGIN_VERSIONED_NAMESPACE_DECL
+
+template <class OPERAND_TYPE> CORBA::Boolean
+TAO_find (const CORBA::Any& sequence, const OPERAND_TYPE& element)
+{
+  CORBA::Boolean return_value = 0;
+  TAO_Element_Equal<OPERAND_TYPE> functor;
+  TAO_DynSequence_i dyn_seq;
+
+  ACE_DECLARE_NEW_CORBA_ENV;
+  ACE_TRY
+    {
+      dyn_seq.init (sequence ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      CORBA::ULong length =
+        dyn_seq.get_length ( ACE_ENV_SINGLE_ARG_PARAMETER );
+      ACE_TRY_CHECK;
+	  
+      dyn_seq.rewind( ACE_ENV_SINGLE_ARG_PARAMETER );
+      ACE_TRY_CHECK;
+
+      for (CORBA::ULong i = 0 ; i < length && ! return_value; i++)
+        {
+          if (functor (dyn_seq, element))
+            return_value = 1;
+		
+          dyn_seq.next( ACE_ENV_SINGLE_ARG_PARAMETER );
+          ACE_TRY_CHECK;
+        }
+    }
+  ACE_CATCHANY
+    {
+      return 0;
+    }
+  ACE_ENDTRY;
+
+  return return_value;
+}
+
+TAO_END_VERSIONED_NAMESPACE_DECL
+
+#endif /* TAO_INTERPRETER_UTILS_CPP */