1 /*************************************************************************
2  *
3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4  *
5  * Copyright 2000, 2010 Oracle and/or its affiliates.
6  *
7  * OpenOffice.org - a multi-platform office productivity suite
8  *
9  * This file is part of OpenOffice.org.
10  *
11  * OpenOffice.org is free software: you can redistribute it and/or modify
12  * it under the terms of the GNU Lesser General Public License version 3
13  * only, as published by the Free Software Foundation.
14  *
15  * OpenOffice.org is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  * GNU Lesser General Public License version 3 for more details
19  * (a copy is included in the LICENSE file that accompanied this code).
20  *
21  * You should have received a copy of the GNU Lesser General Public License
22  * version 3 along with OpenOffice.org.  If not, see
23  * <http://www.openoffice.org/license.html>
24  * for a copy of the LGPLv3 License.
25  *
26  ************************************************************************/
27 
28 #include "precompiled_basic.hxx"
29 #include "comenumwrapper.hxx"
30 
31 using namespace ::com::sun::star;
32 
33 ::sal_Bool SAL_CALL ComEnumerationWrapper::hasMoreElements()
34     throw ( uno::RuntimeException )
35 {
36     sal_Bool bResult = sal_False;
37 
38     try
39     {
40         if ( m_xInvocation.is() )
41         {
42             sal_Int32 nLength = 0;
43             bResult =
44                 ( ( m_xInvocation->getValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "length" ) ) ) >>= nLength )
45                   && nLength > m_nCurInd );
46         }
47     }
48     catch( uno::Exception& )
49     {}
50 
51     return bResult;
52 }
53 
54 uno::Any SAL_CALL ComEnumerationWrapper::nextElement()
55     throw ( container::NoSuchElementException,
56             lang::WrappedTargetException,
57             uno::RuntimeException )
58 {
59     try
60     {
61         if ( m_xInvocation.is() )
62         {
63             uno::Sequence< sal_Int16 > aNamedParamIndex;
64             uno::Sequence< uno::Any > aNamedParam;
65             uno::Sequence< uno::Any > aArgs( 1 );
66 
67             aArgs[0] <<= m_nCurInd++;
68 
69             return m_xInvocation->invoke( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "item" ) ),
70                                           aArgs,
71                                           aNamedParamIndex,
72                                           aNamedParam );
73         }
74     }
75     catch( uno::Exception& )
76     {}
77 
78     throw container::NoSuchElementException();
79 }
80 
81 
82