1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 #include "vbaseriescollection.hxx"
24 #include <ooo/vba/excel/XSeries.hpp>
25 
26 #include "vbaglobals.hxx"
27 
28 using namespace ::com::sun::star;
29 using namespace ::ooo::vba;
30 
ScVbaSeriesCollection(const uno::Reference<XHelperInterface> & xParent,const uno::Reference<uno::XComponentContext> & xContext)31 ScVbaSeriesCollection::ScVbaSeriesCollection( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext ) : SeriesCollection_BASE( xParent, xContext, uno::Reference< container::XIndexAccess>() )
32 {
33 }
34 
35 // XEnumerationAccess
36 
37 uno::Reference< container::XEnumeration >
createEnumeration()38 ScVbaSeriesCollection::createEnumeration() throw (uno::RuntimeException)
39 {
40 	uno::Reference< container::XEnumeration > xEnum;
41 	return xEnum;
42 }
43 
44 // XElementAccess
45 
46 uno::Type
getElementType()47 ScVbaSeriesCollection::getElementType() throw (uno::RuntimeException)
48 {
49 	return excel::XSeries::static_type(0);
50 }
51 
52 uno::Any
createCollectionObject(const css::uno::Any & rSource)53 ScVbaSeriesCollection::createCollectionObject( const css::uno::Any& rSource )
54 {
55 	return rSource;
56 }
57 
58 rtl::OUString&
getServiceImplName()59 ScVbaSeriesCollection::getServiceImplName()
60 {
61 	static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaSeriesCollection") );
62 	return sImplName;
63 }
64 
65 css::uno::Sequence<rtl::OUString>
getServiceNames()66 ScVbaSeriesCollection::getServiceNames()
67 {
68 	static uno::Sequence< rtl::OUString > sNames;
69 	if ( sNames.getLength() == 0 )
70 	{
71 		sNames.realloc( 1 );
72 		sNames[0] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.SeriesCollection") );
73 	}
74 	return sNames;
75 }
76 
77