blob: 6e7c39acff65ea79c4ae5f4e4f7e91336ccb74de (
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
|
// $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;
try
{
dyn_seq.init (sequence);
CORBA::ULong length =
dyn_seq.get_length ( );
dyn_seq.rewind( );
for (CORBA::ULong i = 0 ; i < length && ! return_value; i++)
{
if (functor (dyn_seq, element))
return_value = 1;
dyn_seq.next( );
}
}
catch (const CORBA::Exception&)
{
return 0;
}
return return_value;
}
TAO_END_VERSIONED_NAMESPACE_DECL
#endif /* TAO_INTERPRETER_UTILS_CPP */
|