blob: f621f592ea9b814750156d293b4dc8fe69e43c4c (
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
42
43
44
45
46
47
48
|
// $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"
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;
}
#endif /* TAO_INTERPRETER_UTILS_CPP */
|
