blob: d192365207f1d25cbc368db804e5986b1fc0265e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
// $Id$
#ifndef TAO_INTERPRETER_UTILS_CPP
#define TAO_INTERPRETER_UTILS_CPP
#include "orbsvcs/orbsvcs/Trader/Interpreter_Utils_T.h"
#include "orbsvcs/orbsvcs/Trader/Constraint_Visitors.h"
#include "tao/DynamicAny/DynSequence_i.h"
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_TRY_ENV);
ACE_TRY_CHECK;
CORBA::ULong length =
dyn_seq.get_length (ACE_TRY_ENV);
ACE_TRY_CHECK;
for (CORBA::ULong i = 0; i < length && ! return_value; i++)
if (functor (dyn_seq, element))
return_value = 1;
}
ACE_CATCHANY
{
return 0;
}
ACE_ENDTRY;
return return_value;
}
#endif /* TAO_INTERPRETER_UTILS_CPP */
|