Line data Source code
1 : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : /*
3 : * This file is part of the LibreOffice project.
4 : *
5 : * This Source Code Form is subject to the terms of the Mozilla Public
6 : * License, v. 2.0. If a copy of the MPL was not distributed with this
7 : * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 : *
9 : * This file incorporates work covered by the following license notice:
10 : *
11 : * Licensed to the Apache Software Foundation (ASF) under one or more
12 : * contributor license agreements. See the NOTICE file distributed
13 : * with this work for additional information regarding copyright
14 : * ownership. The ASF licenses this file to you under the Apache
15 : * License, Version 2.0 (the "License"); you may not use this file
16 : * except in compliance with the License. You may obtain a copy of
17 : * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 : */
19 :
20 : #include "PropertyHelper.hxx"
21 : #include "ContainerHelper.hxx"
22 : #include "macros.hxx"
23 : #include <com/sun/star/beans/PropertyAttribute.hpp>
24 : #include <com/sun/star/container/XNameContainer.hpp>
25 :
26 : #include <vector>
27 : #include <algorithm>
28 : #include <iterator>
29 : #include <functional>
30 :
31 : using namespace ::com::sun::star;
32 : using namespace ::com::sun::star::beans;
33 : using ::com::sun::star::uno::Any;
34 : using ::com::sun::star::uno::Reference;
35 : using ::com::sun::star::uno::Sequence;
36 :
37 : namespace
38 : {
39 0 : struct lcl_EqualsElement : public ::std::unary_function< OUString, bool >
40 : {
41 0 : explicit lcl_EqualsElement( const Any & rValue, const Reference< container::XNameAccess > & xAccess )
42 0 : : m_aValue( rValue ), m_xAccess( xAccess )
43 : {
44 : OSL_ASSERT( m_xAccess.is());
45 0 : }
46 :
47 0 : bool operator() ( const OUString & rName )
48 : {
49 : try
50 : {
51 0 : return (m_xAccess->getByName( rName ) == m_aValue);
52 : }
53 0 : catch( const uno::Exception & ex )
54 : {
55 : ASSERT_EXCEPTION( ex );
56 : }
57 0 : return false;
58 : }
59 :
60 : private:
61 : Any m_aValue;
62 : Reference< container::XNameAccess > m_xAccess;
63 : };
64 :
65 0 : struct lcl_StringMatches : public ::std::unary_function< OUString ,bool >
66 : {
67 0 : lcl_StringMatches( const OUString & rCmpStr ) :
68 0 : m_aCmpStr( rCmpStr )
69 0 : {}
70 :
71 0 : bool operator() ( const OUString & rStr )
72 : {
73 0 : return rStr.match( m_aCmpStr );
74 : }
75 :
76 : private:
77 : OUString m_aCmpStr;
78 : };
79 :
80 : struct lcl_OUStringRestToInt32 : public ::std::unary_function< OUString, sal_Int32 >
81 : {
82 0 : lcl_OUStringRestToInt32( sal_Int32 nPrefixLength ) :
83 0 : m_nPrefixLength( nPrefixLength )
84 0 : {}
85 0 : sal_Int32 operator() ( const OUString & rStr )
86 : {
87 0 : if( m_nPrefixLength > rStr.getLength() )
88 0 : return 0;
89 0 : return rStr.copy( m_nPrefixLength ).toInt32();
90 : }
91 : private:
92 : sal_Int32 m_nPrefixLength;
93 : };
94 :
95 : /** adds a fill gradient, fill hatch, fill bitmap, fill transparency gradient,
96 : line dash or line marker to the corresponding name container with a unique
97 : name.
98 :
99 : @param rPrefix
100 : The prefix used for automated name generation.
101 :
102 : @param rPreferredName
103 : If this string is not empty it is used as name if it is unique in the
104 : table. Otherwise a new name is generated using pPrefix.
105 :
106 : @return the new name under which the property was stored in the table
107 : */
108 0 : OUString lcl_addNamedPropertyUniqueNameToTable(
109 : const Any & rValue,
110 : const Reference< container::XNameContainer > & xNameContainer,
111 : const OUString & rPrefix,
112 : const OUString & rPreferredName )
113 : {
114 0 : if( ! xNameContainer.is() ||
115 0 : ! rValue.hasValue() ||
116 0 : ( rValue.getValueType() != xNameContainer->getElementType()))
117 0 : return rPreferredName;
118 :
119 : try
120 : {
121 0 : Reference< container::XNameAccess > xNameAccess( xNameContainer, uno::UNO_QUERY_THROW );
122 0 : ::std::vector< OUString > aNames( ::chart::ContainerHelper::SequenceToVector( xNameAccess->getElementNames()));
123 : ::std::vector< OUString >::const_iterator aIt(
124 0 : ::std::find_if( aNames.begin(), aNames.end(), lcl_EqualsElement( rValue, xNameAccess )));
125 :
126 : // element not found in container
127 0 : if( aIt == aNames.end())
128 : {
129 0 : OUString aUniqueName;
130 :
131 : // check if preferred name is already used
132 0 : if( !rPreferredName.isEmpty())
133 : {
134 0 : aIt = ::std::find( aNames.begin(), aNames.end(), rPreferredName );
135 0 : if( aIt == aNames.end())
136 0 : aUniqueName = rPreferredName;
137 : }
138 :
139 0 : if( aUniqueName.isEmpty())
140 : {
141 : // create a unique id using the prefix plus a number
142 0 : ::std::vector< sal_Int32 > aNumbers;
143 : ::std::vector< OUString >::iterator aNonConstIt(
144 0 : ::std::partition( aNames.begin(), aNames.end(), lcl_StringMatches( rPrefix )));
145 : ::std::transform( aNames.begin(), aNonConstIt,
146 : back_inserter( aNumbers ),
147 0 : lcl_OUStringRestToInt32( rPrefix.getLength() ));
148 : ::std::vector< sal_Int32 >::const_iterator aMaxIt(
149 0 : ::std::max_element( aNumbers.begin(), aNumbers.end()));
150 :
151 0 : sal_Int32 nIndex = 1;
152 0 : if( aMaxIt != aNumbers.end())
153 0 : nIndex = (*aMaxIt) + 1;
154 :
155 0 : aUniqueName = rPrefix + OUString::number( nIndex );
156 : }
157 :
158 : OSL_ASSERT( !aUniqueName.isEmpty());
159 0 : xNameContainer->insertByName( aUniqueName, rValue );
160 0 : return aUniqueName;
161 : }
162 : else
163 : // element found => return name
164 0 : return *aIt;
165 : }
166 0 : catch( const uno::Exception & ex )
167 : {
168 : ASSERT_EXCEPTION( ex );
169 : }
170 :
171 0 : return rPreferredName;
172 : }
173 :
174 : } // anonymous namespace
175 :
176 : namespace chart
177 : {
178 : namespace PropertyHelper
179 : {
180 :
181 0 : OUString addLineDashUniqueNameToTable(
182 : const Any & rValue,
183 : const Reference< lang::XMultiServiceFactory > & xFact,
184 : const OUString & rPreferredName )
185 : {
186 0 : if( xFact.is())
187 : {
188 : Reference< container::XNameContainer > xNameCnt(
189 0 : xFact->createInstance( "com.sun.star.drawing.DashTable"),
190 0 : uno::UNO_QUERY );
191 0 : if( xNameCnt.is())
192 : return lcl_addNamedPropertyUniqueNameToTable(
193 0 : rValue, xNameCnt, "ChartDash ", rPreferredName );
194 : }
195 0 : return OUString();
196 : }
197 :
198 0 : OUString addGradientUniqueNameToTable(
199 : const Any & rValue,
200 : const Reference< lang::XMultiServiceFactory > & xFact,
201 : const OUString & rPreferredName )
202 : {
203 0 : if( xFact.is())
204 : {
205 : Reference< container::XNameContainer > xNameCnt(
206 0 : xFact->createInstance( "com.sun.star.drawing.GradientTable"),
207 0 : uno::UNO_QUERY );
208 0 : if( xNameCnt.is())
209 : return lcl_addNamedPropertyUniqueNameToTable(
210 0 : rValue, xNameCnt, "ChartGradient ", rPreferredName );
211 : }
212 0 : return OUString();
213 : }
214 :
215 0 : OUString addTransparencyGradientUniqueNameToTable(
216 : const Any & rValue,
217 : const Reference< lang::XMultiServiceFactory > & xFact,
218 : const OUString & rPreferredName )
219 : {
220 0 : if( xFact.is())
221 : {
222 : Reference< container::XNameContainer > xNameCnt(
223 0 : xFact->createInstance( "com.sun.star.drawing.TransparencyGradientTable"),
224 0 : uno::UNO_QUERY );
225 0 : if( xNameCnt.is())
226 : return lcl_addNamedPropertyUniqueNameToTable(
227 0 : rValue, xNameCnt, "ChartTransparencyGradient ", rPreferredName );
228 : }
229 0 : return OUString();
230 : }
231 :
232 0 : OUString addHatchUniqueNameToTable(
233 : const Any & rValue,
234 : const Reference< lang::XMultiServiceFactory > & xFact,
235 : const OUString & rPreferredName )
236 : {
237 0 : if( xFact.is())
238 : {
239 : Reference< container::XNameContainer > xNameCnt(
240 0 : xFact->createInstance( "com.sun.star.drawing.HatchTable"),
241 0 : uno::UNO_QUERY );
242 0 : if( xNameCnt.is())
243 : return lcl_addNamedPropertyUniqueNameToTable(
244 0 : rValue, xNameCnt, "ChartHatch ", rPreferredName );
245 : }
246 0 : return OUString();
247 : }
248 :
249 0 : OUString addBitmapUniqueNameToTable(
250 : const Any & rValue,
251 : const Reference< lang::XMultiServiceFactory > & xFact,
252 : const OUString & rPreferredName )
253 : {
254 0 : if( xFact.is())
255 : {
256 : Reference< container::XNameContainer > xNameCnt(
257 0 : xFact->createInstance( "com.sun.star.drawing.BitmapTable"),
258 0 : uno::UNO_QUERY );
259 0 : if( xNameCnt.is())
260 : return lcl_addNamedPropertyUniqueNameToTable(
261 0 : rValue, xNameCnt, "ChartBitmap ", rPreferredName );
262 : }
263 0 : return OUString();
264 : }
265 :
266 10414 : void setPropertyValueAny( tPropertyValueMap & rOutMap, tPropertyValueMapKey key, const uno::Any & rAny )
267 : {
268 10414 : tPropertyValueMap::iterator aIt( rOutMap.find( key ));
269 10414 : if( aIt == rOutMap.end())
270 10006 : rOutMap.insert( tPropertyValueMap::value_type( key, rAny ));
271 : else
272 408 : (*aIt).second = rAny;
273 10414 : }
274 :
275 : template<>
276 10006 : void setPropertyValue< ::com::sun::star::uno::Any >( tPropertyValueMap & rOutMap, tPropertyValueMapKey key, const ::com::sun::star::uno::Any & rAny )
277 : {
278 10006 : setPropertyValueAny( rOutMap, key, rAny );
279 10006 : }
280 :
281 10006 : void setPropertyValueDefaultAny( tPropertyValueMap & rOutMap, tPropertyValueMapKey key, const uno::Any & rAny )
282 : {
283 : OSL_ENSURE( rOutMap.end() == rOutMap.find( key ), "Default already exists for property" );
284 10006 : setPropertyValue( rOutMap, key, rAny );
285 10006 : }
286 :
287 : template<>
288 628 : void setPropertyValueDefault< ::com::sun::star::uno::Any >( tPropertyValueMap & rOutMap, tPropertyValueMapKey key, const ::com::sun::star::uno::Any & rAny )
289 : {
290 628 : setPropertyValueDefaultAny( rOutMap, key, rAny );
291 628 : }
292 :
293 208 : void setEmptyPropertyValueDefault( tPropertyValueMap & rOutMap, tPropertyValueMapKey key )
294 : {
295 208 : setPropertyValueDefault( rOutMap, key, uno::Any());
296 208 : }
297 :
298 : } // namespace PropertyHelper
299 :
300 : } // namespace chart
301 :
302 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
