?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Version 5.2.6.1, tag libreoffice-5.2.6.1
[LibreOffice.git] / xmloff / source / forms / elementimport.cxx
blobb39b7314898eb45ee0085cd1b4b7168d8b9e9518
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 "elementimport.hxx"
21 #include <xmloff/xmlimp.hxx>
22 #include <xmloff/nmspmap.hxx>
23 #include "strings.hxx"
24 #include "callbacks.hxx"
25 #include "attriblistmerge.hxx"
26 #include <xmloff/xmlnmspe.hxx>
27 #include "eventimport.hxx"
28 #include <xmloff/txtstyli.hxx>
29 #include "formenums.hxx"
30 #include <xmloff/xmltoken.hxx>
31 #include "gridcolumnproptranslator.hxx"
32 #include "property_description.hxx"
33 #include "property_meta_data.hxx"
34
35 #include <com/sun/star/text/XText.hpp>
36 #include <com/sun/star/util/XCloneable.hpp>
37 #include <com/sun/star/util/Duration.hpp>
38 #include <com/sun/star/form/FormComponentType.hpp>
39 #include <com/sun/star/awt/ImagePosition.hpp>
40 #include <com/sun/star/beans/XMultiPropertySet.hpp>
41 #include <com/sun/star/beans/XPropertyContainer.hpp>
42 #include <com/sun/star/beans/PropertyAttribute.hpp>
43
44 #include <sax/tools/converter.hxx>
45 #include <tools/urlobj.hxx>
46 #include <tools/diagnose_ex.h>
47 #include <rtl/strbuf.hxx>
48 #include <comphelper/extract.hxx>
49 #include <comphelper/types.hxx>
50
51 #include <algorithm>
52 #include <functional>
53
54 namespace xmloff
55 {
56
57 using namespace ::xmloff::token;
58 using namespace ::com::sun::star;
59 using namespace ::com::sun::star::uno;
60 using namespace ::com::sun::star::awt;
61 using namespace ::com::sun::star::container;
62 using namespace ::com::sun::star::beans;
63 using namespace ::com::sun::star::script;
64 using namespace ::com::sun::star::lang;
65 using namespace ::com::sun::star::form;
66 using namespace ::com::sun::star::xml;
67 using namespace ::com::sun::star::util;
68 using namespace ::com::sun::star::text;
69 using namespace ::comphelper;
70 using ::com::sun::star::xml::sax::XAttributeList;
71
72 #define PROPID_VALUE 1
73 #define PROPID_CURRENT_VALUE 2
74 #define PROPID_MIN_VALUE 3
75 #define PROPID_MAX_VALUE 4
76
77 struct PropertyValueLess
78 {
79 bool operator()(const PropertyValue& _rLeft, const PropertyValue& _rRight)
80 {
81 return _rLeft.Name < _rRight.Name;
82 }
83 };
84
85 template <class ELEMENT>
86 void pushBackSequenceElement(Sequence< ELEMENT >& _rContainer, const ELEMENT& _rElement)
87 {
88 sal_Int32 nLen = _rContainer.getLength();
89 _rContainer.realloc(nLen + 1);
90 _rContainer[nLen] = _rElement;
91 }
92
93 //= OElementNameMap
94 OElementNameMap::MapString2Element OElementNameMap::s_sElementTranslations;
95
96 const OControlElement::ElementType& operator ++(OControlElement::ElementType& _e)
97 {
98 OControlElement::ElementType e = _e;
99 sal_Int32 nAsInt = static_cast<sal_Int32>(e);
100 _e = static_cast<OControlElement::ElementType>( ++nAsInt );
101 return _e;
102 }
103
104 OControlElement::ElementType OElementNameMap::getElementType(const OUString& _rName)
105 {
106 if ( s_sElementTranslations.empty() )
107 { // initialize
108 for (ElementType eType=(ElementType)0; eType<UNKNOWN; ++eType)
109 s_sElementTranslations[OUString::createFromAscii(getElementName(eType))] = eType;
110 }
111 MapString2Element::const_iterator aPos = s_sElementTranslations.find(_rName);
112 if (s_sElementTranslations.end() != aPos)
113 return aPos->second;
114
115 return UNKNOWN;
116 }
117
118 //= OElementImport
119 OElementImport::OElementImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
120 const Reference< XNameContainer >& _rxParentContainer)
121 :OPropertyImport(_rImport, _nPrefix, _rName)
122 ,m_rFormImport(_rImport)
123 ,m_rEventManager(_rEventManager)
124 ,m_pStyleElement( nullptr )
125 ,m_xParentContainer(_rxParentContainer)
126 ,m_bImplicitGenericAttributeHandling( true )
127 {
128 OSL_ENSURE(m_xParentContainer.is(), "OElementImport::OElementImport: invalid parent container!");
129 }
130
131 OElementImport::~OElementImport()
132 {
133 }
134
135 OUString OElementImport::determineDefaultServiceName() const
136 {
137 return OUString();
138 }
139
140 void OElementImport::StartElement(const Reference< XAttributeList >& _rxAttrList)
141 {
142 ENTER_LOG_CONTEXT( "xmloff::OElementImport - importing one element" );
143
144 const SvXMLNamespaceMap& rMap = m_rContext.getGlobalContext().GetNamespaceMap();
145 const OUString sImplNameAttribute = rMap.GetQNameByKey( XML_NAMESPACE_FORM, GetXMLToken( XML_CONTROL_IMPLEMENTATION ) );
146 const OUString sControlImplementation = _rxAttrList->getValueByName( sImplNameAttribute );
147
148 // retrieve the service name
149 if ( !sControlImplementation.isEmpty() )
150 {
151 OUString sOOoImplementationName;
152 const sal_uInt16 nImplPrefix = GetImport().GetNamespaceMap().GetKeyByAttrName( sControlImplementation, &sOOoImplementationName );
153 m_sServiceName = ( nImplPrefix == XML_NAMESPACE_OOO ) ? sOOoImplementationName : sControlImplementation;
154 }
155
156 if ( m_sServiceName.isEmpty() )
157 m_sServiceName = determineDefaultServiceName();
158
159 // create the object *now*. This allows setting properties in the various handleAttribute methods.
160 // (Though currently not all code is migrated to this pattern, most attributes are still handled
161 // by remembering the value (via implPushBackPropertyValue), and setting the correct property value
162 // later (in OControlImport::StartElement).)
163 m_xElement = createElement();
164 if ( m_xElement.is() )
165 m_xInfo = m_xElement->getPropertySetInfo();
166
167 // call the base class
168 OPropertyImport::StartElement( _rxAttrList );
169 }
170
171 SvXMLImportContext* OElementImport::CreateChildContext(sal_uInt16 _nPrefix, const OUString& _rLocalName,
172 const Reference< XAttributeList >& _rxAttrList)
173 {
174 if( token::IsXMLToken(_rLocalName, token::XML_EVENT_LISTENERS) && (XML_NAMESPACE_OFFICE == _nPrefix))
175 return new OFormEventsImportContext(m_rFormImport.getGlobalContext(), _nPrefix, _rLocalName, *this);
176
177 return OPropertyImport::CreateChildContext(_nPrefix, _rLocalName, _rxAttrList);
178 }
179
180 void OElementImport::EndElement()
181 {
182 OSL_ENSURE(m_xElement.is(), "OElementImport::EndElement: invalid element created!");
183 if (!m_xElement.is())
184 return;
185
186 // apply the non-generic properties
187 implApplySpecificProperties();
188
189 // set the generic properties
190 implApplyGenericProperties();
191
192 // set the style properties
193 if ( m_pStyleElement && m_xElement.is() )
194 {
195 Reference< XPropertySet > xPropTranslation =
196 new OGridColumnPropertyTranslator( Reference< XMultiPropertySet >( m_xElement, UNO_QUERY ) );
197 const_cast< XMLTextStyleContext* >( m_pStyleElement )->FillPropertySet( xPropTranslation );
198
199 const OUString sNumberStyleName = m_pStyleElement->GetDataStyleName( );
200 if ( !sNumberStyleName.isEmpty() )
201 // the style also has a number (sub) style
202 m_rContext.applyControlNumberStyle( m_xElement, sNumberStyleName );
203 }
204
205 // insert the element into the parent container
206 if (m_sName.isEmpty())
207 {
208 OSL_FAIL("OElementImport::EndElement: did not find a name attribute!");
209 m_sName = implGetDefaultName();
210 }
211
212 if (m_xParentContainer.is())
213 m_xParentContainer->insertByName(m_sName, makeAny(m_xElement));
214
215 LEAVE_LOG_CONTEXT( );
216 }
217
218 void OElementImport::implApplySpecificProperties()
219 {
220 if ( m_aValues.empty() )
221 return;
222
223 // set all the properties we collected
224 #if OSL_DEBUG_LEVEL > 0
225 // check if the object has all the properties
226 // (We do this in the non-pro version only. Doing it all the time would be much to expensive)
227 if ( m_xInfo.is() )
228 {
229 PropertyValueArray::const_iterator aEnd = m_aValues.end();
230 for ( PropertyValueArray::iterator aCheck = m_aValues.begin();
231 aCheck != aEnd;
232 ++aCheck
233 )
234 {
235 OSL_ENSURE(m_xInfo->hasPropertyByName(aCheck->Name),
236 OStringBuffer("OElementImport::implApplySpecificProperties: read a property (").
237 append(OUStringToOString(aCheck->Name, RTL_TEXTENCODING_ASCII_US)).
238 append(") which does not exist on the element!").getStr());
239 }
240 }
241 #endif
242
243 // set the properties
244 const Reference< XMultiPropertySet > xMultiProps(m_xElement, UNO_QUERY);
245 bool bSuccess = false;
246 if (xMultiProps.is())
247 {
248 // translate our properties so that the XMultiPropertySet can handle them
249
250 // sort our property value array so that we can use it in a setPropertyValues
251 ::std::sort( m_aValues.begin(), m_aValues.end(), PropertyValueLess());
252
253 // the names
254 Sequence< OUString > aNames(m_aValues.size());
255 OUString* pNames = aNames.getArray();
256 // the values
257 Sequence< Any > aValues(m_aValues.size());
258 Any* pValues = aValues.getArray();
259 // copy
260
261 PropertyValueArray::iterator aEnd = m_aValues.end();
262 for ( PropertyValueArray::iterator aPropValues = m_aValues.begin();
263 aPropValues != aEnd;
264 ++aPropValues, ++pNames, ++pValues
265 )
266 {
267 *pNames = aPropValues->Name;
268 *pValues = aPropValues->Value;
269 }
270
271 try
272 {
273 xMultiProps->setPropertyValues(aNames, aValues);
274 bSuccess = true;
275 }
276 catch(const Exception&)
277 {
278 OSL_FAIL("OElementImport::implApplySpecificProperties: could not set the properties (using the XMultiPropertySet)!");
279 DBG_UNHANDLED_EXCEPTION();
280 }
281 }
282
283 if (!bSuccess)
284 { // no XMultiPropertySet or setting all properties at once failed
285 PropertyValueArray::iterator aEnd = m_aValues.end();
286 for ( PropertyValueArray::iterator aPropValues = m_aValues.begin();
287 aPropValues != aEnd;
288 ++aPropValues
289 )
290 {
291 // this try/catch here is expensive, but because this is just a fallback which should normally not be
292 // used it's acceptable this way ...
293 try
294 {
295 m_xElement->setPropertyValue(aPropValues->Name, aPropValues->Value);
296 }
297 catch(const Exception&)
298 {
299 OSL_FAIL(OStringBuffer("OElementImport::implApplySpecificProperties: could not set the property \"").
300 append(OUStringToOString(aPropValues->Name, RTL_TEXTENCODING_ASCII_US)).
301 append("\"!").getStr());
302 DBG_UNHANDLED_EXCEPTION();
303 }
304 }
305 }
306 }
307
308 void OElementImport::implApplyGenericProperties()
309 {
310 if ( m_aGenericValues.empty() )
311 return;
312
313 Reference< XPropertyContainer > xDynamicProperties( m_xElement, UNO_QUERY );
314
315 PropertyValueArray::iterator aEnd = m_aGenericValues.end();
316 for ( PropertyValueArray::iterator aPropValues =
317 m_aGenericValues.begin();
318 aPropValues != aEnd;
319 ++aPropValues
320 )
321 {
322 // check property type for numeric types before setting
323 // the property
324 try
325 {
326 // if such a property does not yet exist at the element, create it if necessary
327 const bool bExistentProperty = m_xInfo->hasPropertyByName( aPropValues->Name );
328 if ( !bExistentProperty )
329 {
330 if ( !xDynamicProperties.is() )
331 {
332 #if OSL_DEBUG_LEVEL > 0
333 OString aMessage( "OElementImport::implApplyGenericProperties: encountered an unknown property (" );
334 aMessage += OUStringToOString( aPropValues->Name, RTL_TEXTENCODING_ASCII_US );
335 aMessage += "), but component is no PropertyBag!";
336 OSL_FAIL( aMessage.getStr() );
337 #endif
338 continue;
339 }
340
341 xDynamicProperties->addProperty(
342 aPropValues->Name,
343 PropertyAttribute::BOUND | PropertyAttribute::REMOVABLE,
344 aPropValues->Value
345 );
346
347 // re-fetch the PropertySetInfo
348 m_xInfo = m_xElement->getPropertySetInfo();
349 }
350
351 // determine the type of the value (source for the following conversion)
352 TypeClass eValueTypeClass = aPropValues->Value.getValueTypeClass();
353 const bool bValueIsSequence = TypeClass_SEQUENCE == eValueTypeClass;
354 if ( bValueIsSequence )
355 {
356 uno::Type aSimpleType( getSequenceElementType( aPropValues->Value.getValueType() ) );
357 eValueTypeClass = aSimpleType.getTypeClass();
358 }
359
360 // determine the type of the property (target for the following conversion)
361 const Property aProperty( m_xInfo->getPropertyByName( aPropValues->Name ) );
362 TypeClass ePropTypeClass = aProperty.Type.getTypeClass();
363 const bool bPropIsSequence = TypeClass_SEQUENCE == ePropTypeClass;
364 if( bPropIsSequence )
365 {
366 uno::Type aSimpleType( ::comphelper::getSequenceElementType( aProperty.Type ) );
367 ePropTypeClass = aSimpleType.getTypeClass();
368 }
369
370 if ( bPropIsSequence != bValueIsSequence )
371 {
372 OSL_FAIL( "OElementImport::implImportGenericProperties: either both value and property should be a sequence, or none of them!" );
373 continue;
374 }
375
376 if ( bValueIsSequence )
377 {
378 OSL_ENSURE( eValueTypeClass == TypeClass_ANY,
379 "OElementImport::implApplyGenericProperties: only ANYs should have been imported as generic list property!" );
380 // (OPropertyImport should produce only Sequencer< Any >, since it cannot know the real type
381
382 OSL_ENSURE( ePropTypeClass == TypeClass_SHORT,
383 "OElementImport::implApplyGenericProperties: conversion to sequences other than 'sequence< short >' not implemented, yet!" );
384
385 Sequence< Any > aXMLValueList;
386 aPropValues->Value >>= aXMLValueList;
387 Sequence< sal_Int16 > aPropertyValueList( aXMLValueList.getLength() );
388
389 const Any* pXMLValue = aXMLValueList.getConstArray();
390 sal_Int16* pPropValue = aPropertyValueList.getArray();
391
392 for ( sal_Int32 i=0; i<aXMLValueList.getLength(); ++i, ++pXMLValue, ++pPropValue )
393 {
394 // only value sequences of numeric types implemented so far.
395 double nVal( 0 );
396 OSL_VERIFY( *pXMLValue >>= nVal );
397 *pPropValue = static_cast< sal_Int16 >( nVal );
398 }
399
400 aPropValues->Value <<= aPropertyValueList;
401 }
402 else if ( ePropTypeClass != eValueTypeClass )
403 {
404 switch ( eValueTypeClass )
405 {
406 case TypeClass_DOUBLE:
407 {
408 double nVal = 0;
409 aPropValues->Value >>= nVal;
410 switch( ePropTypeClass )
411 {
412 case TypeClass_BYTE:
413 aPropValues->Value <<= static_cast< sal_Int8 >( nVal );
414 break;
415 case TypeClass_SHORT:
416 aPropValues->Value <<= static_cast< sal_Int16 >( nVal );
417 break;
418 case TypeClass_UNSIGNED_SHORT:
419 aPropValues->Value <<= static_cast< sal_uInt16 >( nVal );
420 break;
421 case TypeClass_LONG:
422 case TypeClass_ENUM:
423 aPropValues->Value <<= static_cast< sal_Int32 >( nVal );
424 break;
425 case TypeClass_UNSIGNED_LONG:
426 aPropValues->Value <<= static_cast< sal_uInt32 >( nVal );
427 break;
428 case TypeClass_UNSIGNED_HYPER:
429 aPropValues->Value <<= static_cast< sal_uInt64 >( nVal );
430 break;
431 case TypeClass_HYPER:
432 aPropValues->Value <<= static_cast< sal_Int64 >( nVal );
433 break;
434 default:
435 OSL_FAIL( "OElementImport::implImportGenericProperties: unsupported value type!" );
436 break;
437 }
438 }
439 break;
440 default:
441 OSL_FAIL( "OElementImport::implImportGenericProperties: non-double values not supported!" );
442 break;
443 }
444 }
445
446 m_xElement->setPropertyValue( aPropValues->Name, aPropValues->Value );
447 }
448 catch(const Exception&)
449 {
450 OSL_FAIL(OStringBuffer("OElementImport::EndElement: could not set the property \"").
451 append(OUStringToOString(aPropValues->Name, RTL_TEXTENCODING_ASCII_US)).
452 append("\"!").getStr());
453 DBG_UNHANDLED_EXCEPTION();
454 }
455 }
456 }
457
458 OUString OElementImport::implGetDefaultName() const
459 {
460 // no optimization here. If this method gets called, the XML stream did not contain a name for the
461 // element, which is a heavy error. So in this case we don't care for performance
462 static const char sUnnamedName[] = "unnamed";
463 OSL_ENSURE(m_xParentContainer.is(), "OElementImport::implGetDefaultName: no parent container!");
464 if (!m_xParentContainer.is())
465 return OUString(sUnnamedName);
466 Sequence< OUString > aNames = m_xParentContainer->getElementNames();
467
468 OUString sReturn;
469 const OUString* pNames = nullptr;
470 const OUString* pNamesEnd = aNames.getConstArray() + aNames.getLength();
471 for (sal_Int32 i=0; i<32768; ++i) // the limit is nearly arbitrary ...
472 {
473 // assemble the new name (suggestion)
474 sReturn = sUnnamedName;
475 sReturn += OUString::number(i);
476 // check the existence (this is the bad performance part ....)
477 for (pNames = aNames.getConstArray(); pNames<pNamesEnd; ++pNames)
478 {
479 if (*pNames == sReturn)
480 {
481 break;
482 }
483 }
484 if (pNames<pNamesEnd)
485 // found the name
486 continue;
487 return sReturn;
488 }
489 OSL_FAIL("OElementImport::implGetDefaultName: did not find a free name!");
490 return OUString(sUnnamedName);
491 }
492
493 PropertyGroups::const_iterator OElementImport::impl_matchPropertyGroup( const PropertyGroups& i_propertyGroups ) const
494 {
495 ENSURE_OR_RETURN( m_xInfo.is(), "OElementImport::impl_matchPropertyGroup: no property set info!", i_propertyGroups.end() );
496
497 for ( PropertyGroups::const_iterator group = i_propertyGroups.begin();
498 group != i_propertyGroups.end();
499 ++group
500 )
501 {
502 bool missingProp = false;
503 for ( PropertyDescriptionList::const_iterator prop = group->begin();
504 prop != group->end();
505 ++prop
506 )
507 {
508 if ( !m_xInfo->hasPropertyByName( (*prop)->propertyName ) )
509 {
510 missingProp = true;
511 break;
512 }
513 }
514
515 if ( missingProp )
516 // try next group
517 continue;
518
519 return group;
520 }
521
522 return i_propertyGroups.end();
523 }
524
525 bool OElementImport::tryGenericAttribute( sal_uInt16 _nNamespaceKey, const OUString& _rLocalName, const OUString& _rValue )
526 {
527 // the generic approach (which I hope all props will be migrated to, on the medium term): property handlers
528 const AttributeDescription attribute( metadata::getAttributeDescription( _nNamespaceKey, _rLocalName ) );
529 if ( attribute.attributeToken != XML_TOKEN_INVALID )
530 {
531 PropertyGroups propertyGroups;
532 metadata::getPropertyGroupList( attribute, propertyGroups );
533 const PropertyGroups::const_iterator pos = impl_matchPropertyGroup( propertyGroups );
534 if ( pos == propertyGroups.end() )
535 return false;
536
537 do
538 {
539 const PropertyDescriptionList& rProperties( *pos );
540 const PropertyDescription* first = *rProperties.begin();
541 if ( !first )
542 {
543 SAL_WARN( "xmloff.forms", "OElementImport::handleAttribute: invalid property description!" );
544 break;
545 }
546
547 const PPropertyHandler handler = (*first->factory)( first->propertyId );
548 if ( !handler.get() )
549 {
550 SAL_WARN( "xmloff.forms", "OElementImport::handleAttribute: invalid property handler!" );
551 break;
552 }
553
554 PropertyValues aValues;
555 for ( PropertyDescriptionList::const_iterator propDesc = rProperties.begin();
556 propDesc != rProperties.end();
557 ++propDesc
558 )
559 {
560 aValues[ (*propDesc)->propertyId ] = Any();
561 }
562 if ( handler->getPropertyValues( _rValue, aValues ) )
563 {
564 for ( PropertyDescriptionList::const_iterator propDesc = rProperties.begin();
565 propDesc != rProperties.end();
566 ++propDesc
567 )
568 {
569 implPushBackPropertyValue( (*propDesc)->propertyName, aValues[ (*propDesc)->propertyId ] );
570 }
571 }
572 }
573 while ( false );
574
575 // handled
576 return true;
577 }
578 return false;
579 }
580
581 bool OElementImport::handleAttribute(sal_uInt16 _nNamespaceKey, const OUString& _rLocalName, const OUString& _rValue)
582 {
583 if ( token::IsXMLToken( _rLocalName, token::XML_CONTROL_IMPLEMENTATION ) )
584 // ignore this, it has already been handled in OElementImport::StartElement
585 return true;
586
587 if ( token::IsXMLToken( _rLocalName, token::XML_NAME ) )
588 {
589 if ( m_sName.isEmpty() )
590 // remember the name for later use in EndElement
591 m_sName = _rValue;
592 return true;
593 }
594
595 // maybe it's the style attribute?
596 if ( token::IsXMLToken( _rLocalName, token::XML_TEXT_STYLE_NAME ) )
597 {
598 const SvXMLStyleContext* pStyleContext = m_rContext.getStyleElement( _rValue );
599 OSL_ENSURE( pStyleContext, "OElementImport::handleAttribute: do not know the style!" );
600 // remember the element for later usage.
601 m_pStyleElement = dynamic_cast<const XMLTextStyleContext*>( pStyleContext );
602 return true;
603 }
604
605 if ( m_bImplicitGenericAttributeHandling )
606 if ( tryGenericAttribute( _nNamespaceKey, _rLocalName, _rValue ) )
607 return true;
608
609 // let the base class handle it
610 return OPropertyImport::handleAttribute(_nNamespaceKey, _rLocalName, _rValue);
611 }
612
613 Reference< XPropertySet > OElementImport::createElement()
614 {
615 Reference< XPropertySet > xReturn;
616 if (!m_sServiceName.isEmpty())
617 {
618 Reference< XComponentContext > xContext = m_rFormImport.getGlobalContext().GetComponentContext();
619 Reference< XInterface > xPure = xContext->getServiceManager()->createInstanceWithContext(m_sServiceName, xContext);
620 OSL_ENSURE(xPure.is(),
621 OStringBuffer("OElementImport::createElement: service factory gave me no object (service name: ").append(OUStringToOString(m_sServiceName, RTL_TEXTENCODING_ASCII_US)).append(")!").getStr());
622 xReturn.set(xPure, UNO_QUERY);
623 }
624 else
625 OSL_FAIL("OElementImport::createElement: no service name to create an element!");
626
627 return xReturn;
628 }
629
630 void OElementImport::registerEvents(const Sequence< ScriptEventDescriptor >& _rEvents)
631 {
632 OSL_ENSURE(m_xElement.is(), "OElementImport::registerEvents: no element to register events for!");
633 m_rEventManager.registerEvents(m_xElement, _rEvents);
634 }
635
636 void OElementImport::simulateDefaultedAttribute(const sal_Char* _pAttributeName, const OUString& _rPropertyName, const sal_Char* _pAttributeDefault)
637 {
638 OSL_ENSURE( m_xInfo.is(), "OPropertyImport::simulateDefaultedAttribute: the component should be more gossipy about it's properties!" );
639
640 if ( !m_xInfo.is() || m_xInfo->hasPropertyByName( _rPropertyName ) )
641 {
642 OUString sLocalAttrName = OUString::createFromAscii(_pAttributeName);
643 if ( !encounteredAttribute( sLocalAttrName ) )
644 OSL_VERIFY( handleAttribute( XML_NAMESPACE_FORM, sLocalAttrName, OUString::createFromAscii( _pAttributeDefault ) ) );
645 }
646 }
647
648 //= OControlImport
649 OControlImport::OControlImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
650 const Reference< XNameContainer >& _rxParentContainer)
651 :OElementImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer)
652 ,m_eElementType(OControlElement::UNKNOWN)
653 {
654 disableImplicitGenericAttributeHandling();
655 }
656
657 OControlImport::OControlImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
658 const Reference< XNameContainer >& _rxParentContainer, OControlElement::ElementType _eType)
659 :OElementImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer)
660 ,m_eElementType(_eType)
661 {
662 disableImplicitGenericAttributeHandling();
663 }
664
665 OUString OControlImport::determineDefaultServiceName() const
666 {
667 const sal_Char* pServiceName = nullptr;
668 switch ( m_eElementType )
669 {
670 case OControlElement::TEXT:
671 case OControlElement::TEXT_AREA:
672 case OControlElement::PASSWORD: pServiceName = "com.sun.star.form.component.TextField"; break;
673 case OControlElement::FILE: pServiceName = "com.sun.star.form.component.FileControl"; break;
674 case OControlElement::FORMATTED_TEXT: pServiceName = "com.sun.star.form.component.FormattedField"; break;
675 case OControlElement::FIXED_TEXT: pServiceName = "com.sun.star.form.component.FixedText"; break;
676 case OControlElement::COMBOBOX: pServiceName = "com.sun.star.form.component.ComboBox"; break;
677 case OControlElement::LISTBOX: pServiceName = "com.sun.star.form.component.ListBox"; break;
678 case OControlElement::BUTTON: pServiceName = "com.sun.star.form.component.CommandButton"; break;
679 case OControlElement::IMAGE: pServiceName = "com.sun.star.form.component.ImageButton"; break;
680 case OControlElement::CHECKBOX: pServiceName = "com.sun.star.form.component.CheckBox"; break;
681 case OControlElement::RADIO: pServiceName = "com.sun.star.form.component.RadioButton"; break;
682 case OControlElement::FRAME: pServiceName = "com.sun.star.form.component.GroupBox"; break;
683 case OControlElement::IMAGE_FRAME: pServiceName = "com.sun.star.form.component.DatabaseImageControl"; break;
684 case OControlElement::HIDDEN: pServiceName = "com.sun.star.form.component.HiddenControl"; break;
685 case OControlElement::GRID: pServiceName = "com.sun.star.form.component.GridControl"; break;
686 case OControlElement::VALUERANGE: pServiceName = "com.sun.star.form.component.ScrollBar"; break;
687 case OControlElement::TIME: pServiceName = "com.sun.star.form.component.TimeField"; break;
688 case OControlElement::DATE: pServiceName = "com.sun.star.form.component.DateField"; break;
689 default: break;
690 }
691 if ( pServiceName != nullptr )
692 return OUString::createFromAscii( pServiceName );
693 return OUString();
694 }
695
696 void OControlImport::addOuterAttributes(const Reference< XAttributeList >& _rxOuterAttribs)
697 {
698 OSL_ENSURE(!m_xOuterAttributes.is(), "OControlImport::addOuterAttributes: already have these attributes!");
699 m_xOuterAttributes = _rxOuterAttribs;
700 }
701
702 bool OControlImport::handleAttribute(sal_uInt16 _nNamespaceKey, const OUString& _rLocalName, const OUString& _rValue)
703 {
704 static const sal_Char* pLinkedCellAttributeName = OAttributeMetaData::getBindingAttributeName(BAFlags::LinkedCell);
705
706 if (IsXMLToken(_rLocalName, XML_ID))
707 { // it's the control id
708 if (XML_NAMESPACE_XML == _nNamespaceKey)
709 {
710 m_sControlId = _rValue;
711 }
712 else if (XML_NAMESPACE_FORM == _nNamespaceKey)
713 {
714 if (m_sControlId.isEmpty())
715 {
716 m_sControlId = _rValue;
717 }
718 }
719 return true;
720 }
721
722 if ( _rLocalName.equalsAscii( pLinkedCellAttributeName ) )
723 { // it's the address of a spreadsheet cell
724 m_sBoundCellAddress = _rValue;
725 return true;
726 }
727
728 if ( _nNamespaceKey == XML_NAMESPACE_XFORMS && IsXMLToken( _rLocalName, XML_BIND ) )
729 {
730 m_sBindingID = _rValue;
731 return true;
732 }
733
734 if ( _nNamespaceKey == XML_NAMESPACE_FORM && IsXMLToken( _rLocalName, XML_XFORMS_LIST_SOURCE ) )
735 {
736 m_sListBindingID = _rValue;
737 return true;
738 }
739
740 if ( ( ( _nNamespaceKey == XML_NAMESPACE_FORM )
741 && IsXMLToken( _rLocalName, XML_XFORMS_SUBMISSION )
742 )
743 || ( ( _nNamespaceKey == XML_NAMESPACE_XFORMS )
744 && IsXMLToken( _rLocalName, XML_SUBMISSION )
745 )
746 )
747 {
748 m_sSubmissionID = _rValue;
749 return true;
750 }
751
752 if ( OElementImport::tryGenericAttribute( _nNamespaceKey, _rLocalName, _rValue ) )
753 return true;
754
755 static const sal_Char* pValueAttributeName = OAttributeMetaData::getCommonControlAttributeName(CCAFlags::Value);
756 static const sal_Char* pCurrentValueAttributeName = OAttributeMetaData::getCommonControlAttributeName(CCAFlags::CurrentValue);
757 static const sal_Char* pMinValueAttributeName = OAttributeMetaData::getSpecialAttributeName(SCAFlags::MinValue);
758 static const sal_Char* pMaxValueAttributeName = OAttributeMetaData::getSpecialAttributeName(SCAFlags::MaxValue);
759 static const sal_Char* pRepeatDelayAttributeName = OAttributeMetaData::getSpecialAttributeName( SCAFlags::RepeatDelay );
760
761 sal_Int32 nHandle = -1;
762 if ( _rLocalName.equalsAscii( pValueAttributeName ) )
763 nHandle = PROPID_VALUE;
764 else if ( _rLocalName.equalsAscii( pCurrentValueAttributeName ) )
765 nHandle = PROPID_CURRENT_VALUE;
766 else if ( _rLocalName.equalsAscii( pMinValueAttributeName ) )
767 nHandle = PROPID_MIN_VALUE;
768 else if ( _rLocalName.equalsAscii( pMaxValueAttributeName ) )
769 nHandle = PROPID_MAX_VALUE;
770 if ( nHandle != -1 )
771 {
772 // for the moment, simply remember the name and the value
773 PropertyValue aProp;
774 aProp.Name = _rLocalName;
775 aProp.Handle = nHandle;
776 aProp.Value <<= _rValue;
777 m_aValueProperties.push_back(aProp);
778 return true;
779 }
780
781 if ( _rLocalName.equalsAscii( pRepeatDelayAttributeName ) )
782 {
783 util::Duration aDuration;
784 if (::sax::Converter::convertDuration(aDuration, _rValue))
785 {
786 PropertyValue aProp;
787 aProp.Name = PROPERTY_REPEAT_DELAY;
788 sal_Int32 const nMS =
789 ((aDuration.Hours * 60 + aDuration.Minutes) * 60
790 + aDuration.Seconds) * 1000 + aDuration.NanoSeconds/1000000;
791 aProp.Value <<= nMS;
792
793 implPushBackPropertyValue(aProp);
794 }
795 return true;
796 }
797
798 return OElementImport::handleAttribute( _nNamespaceKey, _rLocalName, _rValue );
799 }
800
801 void OControlImport::StartElement(const Reference< XAttributeList >& _rxAttrList)
802 {
803 css::uno::Reference< css::xml::sax::XAttributeList > xAttributes;
804 if( m_xOuterAttributes.is() )
805 {
806 // merge the attribute lists
807 OAttribListMerger* pMerger = new OAttribListMerger;
808 // our own one
809 pMerger->addList(_rxAttrList);
810 // and the ones of our enclosing element
811 pMerger->addList(m_xOuterAttributes);
812 xAttributes = pMerger;
813 }
814 else
815 {
816 xAttributes = _rxAttrList;
817 }
818
819 // let the base class handle all the attributes
820 OElementImport::StartElement(xAttributes);
821
822 if ( !m_aValueProperties.empty() && m_xElement.is())
823 {
824 // get the property set info
825 if (!m_xInfo.is())
826 {
827 OSL_FAIL("OControlImport::StartElement: no PropertySetInfo!");
828 return;
829 }
830
831 const sal_Char* pValueProperty = nullptr;
832 const sal_Char* pCurrentValueProperty = nullptr;
833 const sal_Char* pMinValueProperty = nullptr;
834 const sal_Char* pMaxValueProperty = nullptr;
835
836 bool bRetrievedValues = false;
837 bool bRetrievedValueLimits = false;
838
839 // get the class id of our element
840 sal_Int16 nClassId = FormComponentType::CONTROL;
841 m_xElement->getPropertyValue(PROPERTY_CLASSID) >>= nClassId;
842
843 // translate the value properties we collected in handleAttributes
844 PropertyValueArray::iterator aEnd = m_aValueProperties.end();
845 for ( PropertyValueArray::iterator aValueProps = m_aValueProperties.begin();
846 aValueProps != aEnd;
847 ++aValueProps
848 )
849 {
850 bool bSuccess = false;
851 switch (aValueProps->Handle)
852 {
853 case PROPID_VALUE:
854 case PROPID_CURRENT_VALUE:
855 {
856 // get the property names
857 if (!bRetrievedValues)
858 {
859 getValuePropertyNames(m_eElementType, nClassId, pCurrentValueProperty, pValueProperty);
860 if ( !pCurrentValueProperty && !pValueProperty )
861 {
862 SAL_WARN( "xmloff.forms", "OControlImport::StartElement: illegal value property names!" );
863 break;
864 }
865
866 bRetrievedValues = true;
867 }
868 if ( PROPID_VALUE == aValueProps->Handle && !pValueProperty )
869 {
870 SAL_WARN( "xmloff.forms", "OControlImport::StartElement: the control does not have a value property!");
871 break;
872 }
873
874 if ( PROPID_CURRENT_VALUE == aValueProps->Handle && !pCurrentValueProperty )
875 {
876 SAL_WARN( "xmloff.forms", "OControlImport::StartElement: the control does not have a current-value property!");
877 break;
878 }
879
880 // transfer the name
881 if (PROPID_VALUE == aValueProps->Handle)
882 aValueProps->Name = OUString::createFromAscii(pValueProperty);
883 else
884 aValueProps->Name = OUString::createFromAscii(pCurrentValueProperty);
885 bSuccess = true;
886 }
887 break;
888 case PROPID_MIN_VALUE:
889 case PROPID_MAX_VALUE:
890 {
891 // get the property names
892 if (!bRetrievedValueLimits)
893 {
894 getValueLimitPropertyNames(nClassId, pMinValueProperty, pMaxValueProperty);
895 if ( !pMinValueProperty || !pMaxValueProperty )
896 {
897 SAL_WARN( "xmloff.forms", "OControlImport::StartElement: illegal value limit property names!" );
898 break;
899 }
900
901 bRetrievedValueLimits = true;
902 }
903 OSL_ENSURE((PROPID_MIN_VALUE != aValueProps->Handle) || pMinValueProperty,
904 "OControlImport::StartElement: the control does not have a value property!");
905 OSL_ENSURE((PROPID_MAX_VALUE != aValueProps->Handle) || pMaxValueProperty,
906 "OControlImport::StartElement: the control does not have a current-value property!");
907
908 // transfer the name
909 if (PROPID_MIN_VALUE == aValueProps->Handle)
910 aValueProps->Name = OUString::createFromAscii(pMinValueProperty);
911 else
912 aValueProps->Name = OUString::createFromAscii(pMaxValueProperty);
913 bSuccess = true;
914 }
915 break;
916 }
917
918 if ( !bSuccess )
919 continue;
920
921 // translate the value
922 implTranslateValueProperty(m_xInfo, *aValueProps);
923 // add the property to the base class' array
924 implPushBackPropertyValue(*aValueProps);
925 }
926 }
927 }
928
929 void OControlImport::implTranslateValueProperty(const Reference< XPropertySetInfo >& _rxPropInfo,
930 PropertyValue& _rPropValue)
931 {
932 OSL_ENSURE(_rxPropInfo->hasPropertyByName(_rPropValue.Name),
933 "OControlImport::implTranslateValueProperty: invalid property name!");
934
935 // retrieve the type of the property
936 Property aProp = _rxPropInfo->getPropertyByName(_rPropValue.Name);
937 // the untranslated string value as read in handleAttribute
938 OUString sValue;
939 bool bSuccess = _rPropValue.Value >>= sValue;
940 OSL_ENSURE(bSuccess, "OControlImport::implTranslateValueProperty: supposed to be called with non-translated string values!");
941
942 if (TypeClass_ANY == aProp.Type.getTypeClass())
943 {
944 // we have exactly 2 properties where this type class is allowed:
945 OSL_ENSURE(
946 _rPropValue.Name != PROPERTY_EFFECTIVE_VALUE
947 && _rPropValue.Name != PROPERTY_EFFECTIVE_DEFAULT,
948 "OControlImport::implTranslateValueProperty: invalid property type/name combination!");
949
950 // Both properties are allowed to have a double or a string value,
951 // so first try to convert the string into a number
952 double nValue;
953 if (::sax::Converter::convertDouble(nValue, sValue))
954 _rPropValue.Value <<= nValue;
955 else
956 _rPropValue.Value <<= sValue;
957 }
958 else
959 _rPropValue.Value = PropertyConversion::convertString(aProp.Type, sValue);
960 }
961
962 void OControlImport::EndElement()
963 {
964 OSL_ENSURE(m_xElement.is(), "OControlImport::EndElement: invalid control!");
965 if ( !m_xElement.is() )
966 return;
967
968 // register our control with its id
969 if (!m_sControlId.isEmpty())
970 m_rFormImport.registerControlId(m_xElement, m_sControlId);
971 // it's allowed to have no control id. In this case we're importing a column
972
973 // one more pre-work to do:
974 // when we set default values, then by definition the respective value is set
975 // to this default value, too. This means if the sequence contains for example
976 // a DefaultText value, then the Text will be affected by this, too.
977 // In case the Text is not part of the property sequence (or occurs _before_
978 // the DefaultText, which can happen for other value/default-value property names),
979 // this means that the Text (the value property) is incorrectly imported.
980
981 bool bRestoreValuePropertyValue = false;
982 Any aValuePropertyValue;
983
984 sal_Int16 nClassId = FormComponentType::CONTROL;
985 try
986 {
987 // get the class id of our element
988 m_xElement->getPropertyValue(PROPERTY_CLASSID) >>= nClassId;
989 }
990 catch( const Exception& )
991 {
992 OSL_FAIL( "OControlImport::EndElement: caught an exception while retrieving the class id!" );
993 DBG_UNHANDLED_EXCEPTION();
994 }
995
996 const sal_Char* pValueProperty = nullptr;
997 const sal_Char* pDefaultValueProperty = nullptr;
998 getRuntimeValuePropertyNames(m_eElementType, nClassId, pValueProperty, pDefaultValueProperty);
999 if ( pDefaultValueProperty && pValueProperty )
1000 {
1001 bool bNonDefaultValuePropertyValue = false;
1002 // is the "value property" part of the sequence?
1003
1004 // look up this property in our sequence
1005 PropertyValueArray::iterator aEnd = m_aValues.end();
1006 for ( PropertyValueArray::iterator aCheck = m_aValues.begin();
1007 ( aCheck != aEnd );
1008 ++aCheck
1009 )
1010 {
1011 if ( aCheck->Name.equalsAscii( pDefaultValueProperty ) )
1012 bRestoreValuePropertyValue = true;
1013 else if ( aCheck->Name.equalsAscii( pValueProperty ) )
1014 {
1015 bNonDefaultValuePropertyValue = true;
1016 // we need to restore the value property we found here, nothing else
1017 aValuePropertyValue = aCheck->Value;
1018 }
1019 }
1020
1021 if ( bRestoreValuePropertyValue && !bNonDefaultValuePropertyValue )
1022 {
1023 // found it -> need to remember (and restore) the "value property value", which is not set explicitly
1024 try
1025 {
1026 aValuePropertyValue = m_xElement->getPropertyValue( OUString::createFromAscii( pValueProperty ) );
1027 }
1028 catch( const Exception& )
1029 {
1030 OSL_FAIL( "OControlImport::EndElement: caught an exception while retrieving the current value property!" );
1031 DBG_UNHANDLED_EXCEPTION();
1032 }
1033 }
1034 }
1035
1036 // let the base class set all the values
1037 OElementImport::EndElement();
1038
1039 // restore the "value property value", if necessary
1040 if ( bRestoreValuePropertyValue && pValueProperty )
1041 {
1042 try
1043 {
1044 m_xElement->setPropertyValue( OUString::createFromAscii( pValueProperty ), aValuePropertyValue );
1045 }
1046 catch( const Exception& )
1047 {
1048 OSL_FAIL( "OControlImport::EndElement: caught an exception while restoring the value property!" );
1049 DBG_UNHANDLED_EXCEPTION();
1050 }
1051 }
1052
1053 // the external cell binding, if applicable
1054 if ( m_xElement.is() && !m_sBoundCellAddress.isEmpty() )
1055 doRegisterCellValueBinding( m_sBoundCellAddress );
1056
1057 // XForms binding, if applicable
1058 if ( m_xElement.is() && !m_sBindingID.isEmpty() )
1059 doRegisterXFormsValueBinding( m_sBindingID );
1060
1061 // XForms list binding, if applicable
1062 if ( m_xElement.is() && !m_sListBindingID.isEmpty() )
1063 doRegisterXFormsListBinding( m_sListBindingID );
1064
1065 // XForms submission, if applicable
1066 if ( m_xElement.is() && !m_sSubmissionID.isEmpty() )
1067 doRegisterXFormsSubmission( m_sSubmissionID );
1068 }
1069
1070 void OControlImport::doRegisterCellValueBinding( const OUString& _rBoundCellAddress )
1071 {
1072 OSL_PRECOND( m_xElement.is(), "OControlImport::doRegisterCellValueBinding: invalid element!" );
1073 OSL_PRECOND( !_rBoundCellAddress.isEmpty(),
1074 "OControlImport::doRegisterCellValueBinding: invalid address!" );
1075
1076 m_rContext.registerCellValueBinding( m_xElement, _rBoundCellAddress );
1077 }
1078
1079 void OControlImport::doRegisterXFormsValueBinding( const OUString& _rBindingID )
1080 {
1081 OSL_PRECOND( m_xElement.is(), "need element" );
1082 OSL_PRECOND( !_rBindingID.isEmpty(), "binding ID is not valid" );
1083
1084 m_rContext.registerXFormsValueBinding( m_xElement, _rBindingID );
1085 }
1086
1087 void OControlImport::doRegisterXFormsListBinding( const OUString& _rBindingID )
1088 {
1089 OSL_PRECOND( m_xElement.is(), "need element" );
1090 OSL_PRECOND( !_rBindingID.isEmpty(), "binding ID is not valid" );
1091
1092 m_rContext.registerXFormsListBinding( m_xElement, _rBindingID );
1093 }
1094
1095 void OControlImport::doRegisterXFormsSubmission( const OUString& _rSubmissionID )
1096 {
1097 OSL_PRECOND( m_xElement.is(), "need element" );
1098 OSL_PRECOND( !_rSubmissionID.isEmpty(), "binding ID is not valid" );
1099
1100 m_rContext.registerXFormsSubmission( m_xElement, _rSubmissionID );
1101 }
1102
1103 Reference< XPropertySet > OControlImport::createElement()
1104 {
1105 const Reference<XPropertySet> xPropSet = OElementImport::createElement();
1106 if ( xPropSet.is() )
1107 {
1108 m_xInfo = xPropSet->getPropertySetInfo();
1109 if ( m_xInfo.is() && m_xInfo->hasPropertyByName(PROPERTY_ALIGN) )
1110 {
1111 Any aValue;
1112 xPropSet->setPropertyValue(PROPERTY_ALIGN,aValue);
1113 }
1114 }
1115 return xPropSet;
1116 }
1117
1118 //= OImagePositionImport
1119 OImagePositionImport::OImagePositionImport( OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager,
1120 sal_uInt16 _nPrefix, const OUString& _rName, const Reference< XNameContainer >& _rxParentContainer,
1121 OControlElement::ElementType _eType )
1122 :OControlImport( _rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType )
1123 ,m_nImagePosition( -1 )
1124 ,m_nImageAlign( 0 )
1125 ,m_bHaveImagePosition( false )
1126 {
1127 }
1128
1129 bool OImagePositionImport::handleAttribute( sal_uInt16 _nNamespaceKey, const OUString& _rLocalName,
1130 const OUString& _rValue )
1131 {
1132 if ( _rLocalName == GetXMLToken( XML_IMAGE_POSITION ) )
1133 {
1134 OSL_VERIFY( PropertyConversion::convertString(
1135 cppu::UnoType<decltype(m_nImagePosition)>::get(),
1136 _rValue, OEnumMapper::getEnumMap( OEnumMapper::epImagePosition )
1137 ) >>= m_nImagePosition );
1138 m_bHaveImagePosition = true;
1139 return true;
1140 }
1141
1142 if ( _rLocalName == GetXMLToken( XML_IMAGE_ALIGN ) )
1143 {
1144 OSL_VERIFY( PropertyConversion::convertString(
1145 cppu::UnoType<decltype(m_nImageAlign)>::get(),
1146 _rValue, OEnumMapper::getEnumMap( OEnumMapper::epImageAlign )
1147 ) >>= m_nImageAlign );
1148 return true;
1149 }
1150
1151 return OControlImport::handleAttribute( _nNamespaceKey, _rLocalName, _rValue );
1152 }
1153
1154 void OImagePositionImport::StartElement(const Reference< XAttributeList >& _rxAttrList)
1155 {
1156 OControlImport::StartElement( _rxAttrList );
1157
1158 if ( m_bHaveImagePosition )
1159 {
1160 sal_Int16 nUnoImagePosition = ImagePosition::Centered;
1161 if ( m_nImagePosition >= 0 )
1162 {
1163 OSL_ENSURE( ( m_nImagePosition <= 3 ) && ( m_nImageAlign >= 0 ) && ( m_nImageAlign < 3 ),
1164 "OImagePositionImport::StartElement: unknown image align and/or position!" );
1165 nUnoImagePosition = m_nImagePosition * 3 + m_nImageAlign;
1166 }
1167
1168 PropertyValue aImagePosition;
1169 aImagePosition.Name = PROPERTY_IMAGE_POSITION;
1170 aImagePosition.Value <<= nUnoImagePosition;
1171 implPushBackPropertyValue( aImagePosition );
1172 }
1173 }
1174
1175 //= OReferredControlImport
1176 OReferredControlImport::OReferredControlImport(
1177 OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
1178 const Reference< XNameContainer >& _rxParentContainer,
1179 OControlElement::ElementType )
1180 :OControlImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer)
1181 {
1182 }
1183
1184 void OReferredControlImport::StartElement(const Reference< XAttributeList >& _rxAttrList)
1185 {
1186 OControlImport::StartElement(_rxAttrList);
1187
1188 // the base class should have created the control, so we can register it
1189 if ( !m_sReferringControls.isEmpty() )
1190 m_rFormImport.registerControlReferences(m_xElement, m_sReferringControls);
1191 }
1192
1193 bool OReferredControlImport::handleAttribute(sal_uInt16 _nNamespaceKey, const OUString& _rLocalName,
1194 const OUString& _rValue)
1195 {
1196 static const char * s_sReferenceAttributeName = OAttributeMetaData::getCommonControlAttributeName(CCAFlags::For);
1197 if (_rLocalName.equalsAscii(s_sReferenceAttributeName))
1198 {
1199 m_sReferringControls = _rValue;
1200 return true;
1201 }
1202 return OControlImport::handleAttribute(_nNamespaceKey, _rLocalName, _rValue);
1203 }
1204
1205 //= OPasswordImport
1206 OPasswordImport::OPasswordImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
1207 const Reference< XNameContainer >& _rxParentContainer, OControlElement::ElementType _eType)
1208 :OControlImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType)
1209 {
1210 }
1211
1212 bool OPasswordImport::handleAttribute(sal_uInt16 _nNamespaceKey, const OUString& _rLocalName, const OUString& _rValue)
1213 {
1214 static const char * s_sEchoCharAttributeName = OAttributeMetaData::getSpecialAttributeName(SCAFlags::EchoChar);
1215 if (_rLocalName.equalsAscii(s_sEchoCharAttributeName))
1216 {
1217 // need a special handling for the EchoChar property
1218 PropertyValue aEchoChar;
1219 aEchoChar.Name = PROPERTY_ECHOCHAR;
1220 OSL_ENSURE(_rValue.getLength() == 1, "OPasswordImport::handleAttribute: invalid echo char attribute!");
1221 // we ourself should not have written values other than of length 1
1222 if (_rValue.getLength() >= 1)
1223 aEchoChar.Value <<= (sal_Int16)_rValue[0];
1224 else
1225 aEchoChar.Value <<= (sal_Int16)0;
1226 implPushBackPropertyValue(aEchoChar);
1227 return true;
1228 }
1229 return OControlImport::handleAttribute(_nNamespaceKey, _rLocalName, _rValue);
1230 }
1231
1232 //= ORadioImport
1233 ORadioImport::ORadioImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
1234 const Reference< XNameContainer >& _rxParentContainer, OControlElement::ElementType _eType)
1235 :OImagePositionImport( _rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType )
1236 {
1237 }
1238
1239 bool ORadioImport::handleAttribute(sal_uInt16 _nNamespaceKey, const OUString& _rLocalName, const OUString& _rValue)
1240 {
1241 // need special handling for the State & CurrentState properties:
1242 // they're stored as booleans, but expected to be int16 properties
1243 static const sal_Char* pCurrentSelectedAttributeName = OAttributeMetaData::getCommonControlAttributeName(CCAFlags::CurrentSelected);
1244 static const sal_Char* pSelectedAttributeName = OAttributeMetaData::getCommonControlAttributeName(CCAFlags::Selected);
1245 if ( _rLocalName.equalsAscii( pCurrentSelectedAttributeName )
1246 || _rLocalName.equalsAscii( pSelectedAttributeName )
1247 )
1248 {
1249 const OAttribute2Property::AttributeAssignment* pProperty = m_rContext.getAttributeMap().getAttributeTranslation(_rLocalName);
1250 OSL_ENSURE(pProperty, "ORadioImport::handleAttribute: invalid property map!");
1251 if (pProperty)
1252 {
1253 const Any aBooleanValue( PropertyConversion::convertString(pProperty->aPropertyType, _rValue, pProperty->pEnumMap) );
1254
1255 // create and store a new PropertyValue
1256 PropertyValue aNewValue;
1257 aNewValue.Name = pProperty->sPropertyName;
1258 aNewValue.Value <<= (sal_Int16)::cppu::any2bool(aBooleanValue);
1259
1260 implPushBackPropertyValue(aNewValue);
1261 }
1262 return true;
1263 }
1264 return OImagePositionImport::handleAttribute( _nNamespaceKey, _rLocalName, _rValue );
1265 }
1266
1267 //= OURLReferenceImport
1268 OURLReferenceImport::OURLReferenceImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
1269 const Reference< XNameContainer >& _rxParentContainer,
1270 OControlElement::ElementType _eType)
1271 :OImagePositionImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType)
1272 {
1273 }
1274
1275 bool OURLReferenceImport::handleAttribute(sal_uInt16 _nNamespaceKey, const OUString& _rLocalName, const OUString& _rValue)
1276 {
1277 static const sal_Char* s_pTargetLocationAttributeName = OAttributeMetaData::getCommonControlAttributeName( CCAFlags::TargetLocation );
1278 static const sal_Char* s_pImageDataAttributeName = OAttributeMetaData::getCommonControlAttributeName( CCAFlags::ImageData );
1279
1280 // need to make the URL absolute if
1281 // * it's the image-data attribute
1282 // * it's the target-location attribute, and we're dealing with an object which has the respective property
1283 bool bMakeAbsolute =
1284 _rLocalName.equalsAscii( s_pImageDataAttributeName )
1285 || ( _rLocalName.equalsAscii( s_pTargetLocationAttributeName )
1286 && ( ( OControlElement::BUTTON == m_eElementType )
1287 || ( OControlElement::IMAGE == m_eElementType )
1288 )
1289 );
1290
1291 if ( bMakeAbsolute && !_rValue.isEmpty() )
1292 {
1293 // make a global URL out of the local one
1294 OUString sAdjustedValue;
1295 // only resolve image related url
1296 // we don't want say form url targets to be resolved
1297 // using ResolveGraphicObjectURL
1298 if ( _rLocalName.equalsAscii( s_pImageDataAttributeName ) )
1299 sAdjustedValue = m_rContext.getGlobalContext().ResolveGraphicObjectURL( _rValue, false );
1300 else
1301 sAdjustedValue = m_rContext.getGlobalContext().GetAbsoluteReference( _rValue );
1302 return OImagePositionImport::handleAttribute( _nNamespaceKey, _rLocalName, sAdjustedValue );
1303 }
1304
1305 return OImagePositionImport::handleAttribute( _nNamespaceKey, _rLocalName, _rValue );
1306 }
1307
1308 //= OButtonImport
1309 OButtonImport::OButtonImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
1310 const Reference< XNameContainer >& _rxParentContainer,
1311 OControlElement::ElementType _eType)
1312 :OURLReferenceImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType)
1313 {
1314 enableTrackAttributes();
1315 }
1316
1317 void OButtonImport::StartElement(const Reference< XAttributeList >& _rxAttrList)
1318 {
1319 OURLReferenceImport::StartElement(_rxAttrList);
1320
1321 // handle the target-frame attribute
1322 simulateDefaultedAttribute(OAttributeMetaData::getCommonControlAttributeName(CCAFlags::TargetFrame), PROPERTY_TARGETFRAME, "_blank");
1323 }
1324
1325 //= OValueRangeImport
1326 OValueRangeImport::OValueRangeImport( OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
1327 const Reference< XNameContainer >& _rxParentContainer, OControlElement::ElementType _eType )
1328 :OControlImport( _rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType )
1329 ,m_nStepSizeValue( 1 )
1330 {
1331
1332 }
1333
1334 bool OValueRangeImport::handleAttribute( sal_uInt16 _nNamespaceKey, const OUString& _rLocalName, const OUString& _rValue )
1335 {
1336 if ( _rLocalName.equalsAscii( OAttributeMetaData::getSpecialAttributeName( SCAFlags::StepSize ) ) )
1337 {
1338 ::sax::Converter::convertNumber( m_nStepSizeValue, _rValue );
1339 return true;
1340 }
1341 return OControlImport::handleAttribute( _nNamespaceKey, _rLocalName, _rValue );
1342 }
1343
1344 void OValueRangeImport::StartElement( const Reference< XAttributeList >& _rxAttrList )
1345 {
1346 OControlImport::StartElement( _rxAttrList );
1347
1348 if ( m_xInfo.is() )
1349 {
1350 if ( m_xInfo->hasPropertyByName( PROPERTY_SPIN_INCREMENT ) )
1351 m_xElement->setPropertyValue( PROPERTY_SPIN_INCREMENT, makeAny( m_nStepSizeValue ) );
1352 else if ( m_xInfo->hasPropertyByName( PROPERTY_LINE_INCREMENT ) )
1353 m_xElement->setPropertyValue( PROPERTY_LINE_INCREMENT, makeAny( m_nStepSizeValue ) );
1354 }
1355 }
1356
1357 //= OTextLikeImport
1358 OTextLikeImport::OTextLikeImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
1359 const Reference< XNameContainer >& _rxParentContainer,
1360 OControlElement::ElementType _eType)
1361 :OControlImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType)
1362 ,m_bEncounteredTextPara( false )
1363 {
1364 enableTrackAttributes();
1365 }
1366
1367 SvXMLImportContext* OTextLikeImport::CreateChildContext( sal_uInt16 _nPrefix, const OUString& _rLocalName,
1368 const Reference< XAttributeList >& _rxAttrList )
1369 {
1370 if ( ( XML_NAMESPACE_TEXT == _nPrefix ) && _rLocalName.equalsIgnoreAsciiCase("p") )
1371 {
1372 OSL_ENSURE( m_eElementType == OControlElement::TEXT_AREA,
1373 "OTextLikeImport::CreateChildContext: text paragraphs in a non-text-area?" );
1374
1375 if ( m_eElementType == OControlElement::TEXT_AREA )
1376 {
1377 Reference< XText > xTextElement( m_xElement, UNO_QUERY );
1378 if ( xTextElement.is() )
1379 {
1380 rtl::Reference < XMLTextImportHelper > xTextImportHelper( m_rContext.getGlobalContext().GetTextImport() );
1381
1382 if ( !m_xCursor.is() )
1383 {
1384 m_xOldCursor = xTextImportHelper->GetCursor();
1385 m_xCursor = xTextElement->createTextCursor();
1386
1387 if ( m_xCursor.is() )
1388 xTextImportHelper->SetCursor( m_xCursor );
1389 }
1390 if ( m_xCursor.is() )
1391 {
1392 m_bEncounteredTextPara = true;
1393 return xTextImportHelper->CreateTextChildContext( m_rContext.getGlobalContext(), _nPrefix, _rLocalName, _rxAttrList );
1394 }
1395 }
1396 else
1397 {
1398 // in theory, we could accumulate all the text portions (without formatting),
1399 // and set it as Text property at the model ...
1400 }
1401 }
1402 }
1403
1404 return OControlImport::CreateChildContext( _nPrefix, _rLocalName, _rxAttrList );
1405 }
1406
1407 void OTextLikeImport::StartElement(const Reference< XAttributeList >& _rxAttrList)
1408 {
1409 OControlImport::StartElement(_rxAttrList);
1410
1411 // handle the convert-empty-to-null attribute, whose default is different from the property default
1412 // unfortunately, different classes are imported by this class ('cause they're represented by the
1413 // same XML element), though not all of them know this property.
1414 // So we have to do a check ...
1415 if (m_xElement.is() && m_xInfo.is() && m_xInfo->hasPropertyByName(PROPERTY_EMPTY_IS_NULL) )
1416 simulateDefaultedAttribute(OAttributeMetaData::getDatabaseAttributeName(DAFlags::ConvertEmpty), PROPERTY_EMPTY_IS_NULL, "false");
1417 }
1418
1419 struct EqualHandle : public ::std::unary_function< PropertyValue, bool >
1420 {
1421 const sal_Int32 m_nHandle;
1422 explicit EqualHandle( sal_Int32 _nHandle ) : m_nHandle( _nHandle ) { }
1423
1424 inline bool operator()( const PropertyValue& _rProp )
1425 {
1426 return _rProp.Handle == m_nHandle;
1427 }
1428 };
1429
1430 void OTextLikeImport::removeRedundantCurrentValue()
1431 {
1432 if ( m_bEncounteredTextPara )
1433 {
1434 // In case the text is written in the text:p elements, we need to ignore what we read as
1435 // current-value attribute, since it's redundant.
1436 // fortunately, OElementImport tagged the value property with the PROPID_CURRENT_VALUE
1437 // handle, so we do not need to determine the name of our value property here
1438 // (normally, it should be "Text", since no other controls than the edit field should
1439 // have the text:p elements)
1440 PropertyValueArray::iterator aValuePropertyPos = ::std::find_if(
1441 m_aValues.begin(),
1442 m_aValues.end(),
1443 EqualHandle( PROPID_CURRENT_VALUE )
1444 );
1445 if ( aValuePropertyPos != m_aValues.end() )
1446 {
1447 OSL_ENSURE( aValuePropertyPos->Name == PROPERTY_TEXT, "OTextLikeImport::EndElement: text:p was present, but our value property is *not* 'Text'!" );
1448 if ( aValuePropertyPos->Name == PROPERTY_TEXT )
1449 {
1450 ::std::copy(
1451 aValuePropertyPos + 1,
1452 m_aValues.end(),
1453 aValuePropertyPos
1454 );
1455 m_aValues.resize( m_aValues.size() - 1 );
1456 }
1457 }
1458
1459 // additionally, we need to set the "RichText" property of our element to sal_True
1460 // (the presence of the text:p is used as indicator for the value of the RichText property)
1461 bool bHasRichTextProperty = false;
1462 if ( m_xInfo.is() )
1463 bHasRichTextProperty = m_xInfo->hasPropertyByName( PROPERTY_RICH_TEXT );
1464 OSL_ENSURE( bHasRichTextProperty, "OTextLikeImport::EndElement: text:p, but no rich text control?" );
1465 if ( bHasRichTextProperty )
1466 m_xElement->setPropertyValue( PROPERTY_RICH_TEXT, makeAny( true ) );
1467 }
1468 // Note that we do *not* set the RichText property (in case our element has one) to sal_False here
1469 // since this is the default of this property, anyway.
1470 }
1471
1472 struct EqualName : public ::std::unary_function< PropertyValue, bool >
1473 {
1474 const OUString m_sName;
1475 explicit EqualName( const OUString& _rName ) : m_sName( _rName ) { }
1476
1477 inline bool operator()( const PropertyValue& _rProp )
1478 {
1479 return _rProp.Name == m_sName;
1480 }
1481 };
1482
1483 void OTextLikeImport::adjustDefaultControlProperty()
1484 {
1485 // In OpenOffice.org 2.0, we changed the implementation of the css.form.component.TextField (the model of a text field control),
1486 // so that it now uses another default control. So if we encounter a text field where the *old* default
1487 // control property is writing, we are not allowed to use it
1488 PropertyValueArray::iterator aDefaultControlPropertyPos = ::std::find_if(
1489 m_aValues.begin(),
1490 m_aValues.end(),
1491 EqualName( OUString( "DefaultControl" ) )
1492 );
1493 if ( aDefaultControlPropertyPos != m_aValues.end() )
1494 {
1495 OUString sDefaultControl;
1496 OSL_VERIFY( aDefaultControlPropertyPos->Value >>= sDefaultControl );
1497 if ( sDefaultControl == "stardiv.one.form.control.Edit" )
1498 {
1499 // complete remove this property value from the array. Today's "default value" of the "DefaultControl"
1500 // property is sufficient
1501 ::std::copy(
1502 aDefaultControlPropertyPos + 1,
1503 m_aValues.end(),
1504 aDefaultControlPropertyPos
1505 );
1506 m_aValues.resize( m_aValues.size() - 1 );
1507 }
1508 }
1509 }
1510
1511 void OTextLikeImport::EndElement()
1512 {
1513 removeRedundantCurrentValue();
1514 adjustDefaultControlProperty();
1515
1516 // let the base class do the stuff
1517 OControlImport::EndElement();
1518
1519 // some cleanups
1520 rtl::Reference < XMLTextImportHelper > xTextImportHelper( m_rContext.getGlobalContext().GetTextImport() );
1521 if ( m_xCursor.is() )
1522 {
1523 // delete the newline which has been imported erroneously
1524 // TODO (fs): stole this code somewhere - why don't we fix the text import??
1525 m_xCursor->gotoEnd( false );
1526 m_xCursor->goLeft( 1, true );
1527 m_xCursor->setString( OUString() );
1528
1529 // reset cursor
1530 xTextImportHelper->ResetCursor();
1531 }
1532
1533 if ( m_xOldCursor.is() )
1534 xTextImportHelper->SetCursor( m_xOldCursor );
1535
1536 }
1537
1538 //= OListAndComboImport
1539 OListAndComboImport::OListAndComboImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
1540 const Reference< XNameContainer >& _rxParentContainer,
1541 OControlElement::ElementType _eType)
1542 :OControlImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType)
1543 ,m_nEmptyListItems( 0 )
1544 ,m_nEmptyValueItems( 0 )
1545 ,m_bEncounteredLSAttrib( false )
1546 ,m_bLinkWithIndexes( false )
1547 {
1548 if (OControlElement::COMBOBOX == m_eElementType)
1549 enableTrackAttributes();
1550 }
1551
1552 SvXMLImportContext* OListAndComboImport::CreateChildContext(sal_uInt16 _nPrefix, const OUString& _rLocalName,
1553 const Reference< XAttributeList >& _rxAttrList)
1554 {
1555 // is it the "option" sub tag of a listbox ?
1556 static const char s_sOptionElementName[] = "option";
1557 if (s_sOptionElementName == _rLocalName)
1558 return new OListOptionImport(GetImport(), _nPrefix, _rLocalName, this);
1559
1560 // is it the "item" sub tag of a combobox ?
1561 static const char s_sItemElementName[] = "item";
1562 if (s_sItemElementName == _rLocalName)
1563 return new OComboItemImport(GetImport(), _nPrefix, _rLocalName, this);
1564
1565 // everything else
1566 return OControlImport::CreateChildContext(_nPrefix, _rLocalName, _rxAttrList);
1567 }
1568
1569 void OListAndComboImport::StartElement(const Reference< XAttributeList >& _rxAttrList)
1570 {
1571 m_bLinkWithIndexes = false;
1572
1573 OControlImport::StartElement(_rxAttrList);
1574
1575 if (OControlElement::COMBOBOX == m_eElementType)
1576 {
1577 // for the auto-completion
1578 // the attribute default does not equal the property default, so in case we did not read this attribute,
1579 // we have to simulate it
1580 simulateDefaultedAttribute( OAttributeMetaData::getSpecialAttributeName( SCAFlags::AutoCompletion ), PROPERTY_AUTOCOMPLETE, "false");
1581
1582 // same for the convert-empty-to-null attribute, which's default is different from the property default
1583 simulateDefaultedAttribute( OAttributeMetaData::getDatabaseAttributeName( DAFlags::ConvertEmpty ), PROPERTY_EMPTY_IS_NULL, "false");
1584 }
1585 }
1586
1587 void OListAndComboImport::EndElement()
1588 {
1589 // append the list source property the properties sequence of our importer
1590 // the string item list
1591 PropertyValue aItemList;
1592 aItemList.Name = PROPERTY_STRING_ITEM_LIST;
1593 aItemList.Value <<= m_aListSource;
1594 implPushBackPropertyValue(aItemList);
1595
1596 if (OControlElement::LISTBOX == m_eElementType)
1597 {
1598 OSL_ENSURE((m_aListSource.getLength() + m_nEmptyListItems) == (m_aValueList.getLength() + m_nEmptyValueItems),
1599 "OListAndComboImport::EndElement: inconsistence between labels and values!");
1600
1601 if ( !m_bEncounteredLSAttrib )
1602 {
1603 // the value sequence
1604 PropertyValue aValueList;
1605 aValueList.Name = PROPERTY_LISTSOURCE;
1606 aValueList.Value <<= m_aValueList;
1607 implPushBackPropertyValue(aValueList);
1608 }
1609
1610 // the select sequence
1611 PropertyValue aSelected;
1612 aSelected.Name = PROPERTY_SELECT_SEQ;
1613 aSelected.Value <<= m_aSelectedSeq;
1614 implPushBackPropertyValue(aSelected);
1615
1616 // the default select sequence
1617 PropertyValue aDefaultSelected;
1618 aDefaultSelected.Name = PROPERTY_DEFAULT_SELECT_SEQ;
1619 aDefaultSelected.Value <<= m_aDefaultSelectedSeq;
1620 implPushBackPropertyValue(aDefaultSelected);
1621 }
1622
1623 OControlImport::EndElement();
1624
1625 // the external list source, if applicable
1626 if ( m_xElement.is() && !m_sCellListSource.isEmpty() )
1627 m_rContext.registerCellRangeListSource( m_xElement, m_sCellListSource );
1628 }
1629
1630 void OListAndComboImport::doRegisterCellValueBinding( const OUString& _rBoundCellAddress )
1631 {
1632 OUString sBoundCellAddress( _rBoundCellAddress );
1633 if ( m_bLinkWithIndexes )
1634 {
1635 // This is a HACK. We register a string which is no valid address, but allows
1636 // (somewhere else) to determine that a non-standard binding should be created.
1637 // This hack is acceptable for OOo 1.1.1, since the file format for value
1638 // bindings of form controls is to be changed afterwards, anyway.
1639 sBoundCellAddress += ":index";
1640 }
1641
1642 OControlImport::doRegisterCellValueBinding( sBoundCellAddress );
1643 }
1644
1645 bool OListAndComboImport::handleAttribute(sal_uInt16 _nNamespaceKey, const OUString& _rLocalName, const OUString& _rValue)
1646 {
1647 static const sal_Char* pListSourceAttributeName = OAttributeMetaData::getDatabaseAttributeName(DAFlags::ListSource);
1648 if ( _rLocalName.equalsAscii(pListSourceAttributeName) )
1649 {
1650 PropertyValue aListSource;
1651 aListSource.Name = PROPERTY_LISTSOURCE;
1652
1653 // it's the ListSource attribute
1654 m_bEncounteredLSAttrib = true;
1655 if ( OControlElement::COMBOBOX == m_eElementType )
1656 {
1657 aListSource.Value <<= _rValue;
1658 }
1659 else
1660 {
1661 // a listbox which has a list-source attribute must have a list-source-type of something
1662 // not equal to ValueList.
1663 // In this case, the list-source value is simply the one and only element of the ListSource property.
1664 Sequence<OUString> aListSourcePropValue { _rValue };
1665 aListSource.Value <<= aListSourcePropValue;
1666 }
1667
1668 implPushBackPropertyValue( aListSource );
1669 return true;
1670 }
1671
1672 if ( _rLocalName.equalsAscii( OAttributeMetaData::getBindingAttributeName( BAFlags::ListCellRange ) ) )
1673 {
1674 m_sCellListSource = _rValue;
1675 return true;
1676 }
1677
1678 if ( _rLocalName.equalsAscii( OAttributeMetaData::getBindingAttributeName( BAFlags::ListLinkingType ) ) )
1679 {
1680 sal_Int16 nLinkageType = 0;
1681 PropertyConversion::convertString(
1682 ::cppu::UnoType<sal_Int16>::get(),
1683 _rValue,
1684 OEnumMapper::getEnumMap( OEnumMapper::epListLinkageType )
1685 ) >>= nLinkageType;
1686
1687 m_bLinkWithIndexes = ( nLinkageType != 0 );
1688 return true;
1689 }
1690
1691 return OControlImport::handleAttribute(_nNamespaceKey, _rLocalName, _rValue);
1692 }
1693
1694 void OListAndComboImport::implPushBackLabel(const OUString& _rLabel)
1695 {
1696 OSL_ENSURE(!m_nEmptyListItems, "OListAndComboImport::implPushBackValue: label list is already done!");
1697 if (!m_nEmptyListItems)
1698 pushBackSequenceElement(m_aListSource, _rLabel);
1699 }
1700
1701 void OListAndComboImport::implPushBackValue(const OUString& _rValue)
1702 {
1703 OSL_ENSURE(!m_nEmptyValueItems, "OListAndComboImport::implPushBackValue: value list is already done!");
1704 if (!m_nEmptyValueItems)
1705 {
1706 OSL_ENSURE( !m_bEncounteredLSAttrib, "OListAndComboImport::implPushBackValue: invalid structure! Did you save this document with a version prior SRC641 m?" );
1707 // We already had the list-source attribute, which means that the ListSourceType is
1708 // not ValueList, which means that the ListSource should contain only one string in
1709 // the first element of the sequence
1710 // All other values in the file are invalid
1711
1712 pushBackSequenceElement( m_aValueList, _rValue );
1713 }
1714 }
1715
1716 void OListAndComboImport::implEmptyLabelFound()
1717 {
1718 ++m_nEmptyListItems;
1719 }
1720
1721 void OListAndComboImport::implEmptyValueFound()
1722 {
1723 ++m_nEmptyValueItems;
1724 }
1725
1726 void OListAndComboImport::implSelectCurrentItem()
1727 {
1728 OSL_ENSURE((m_aListSource.getLength() + m_nEmptyListItems) == (m_aValueList.getLength() + m_nEmptyValueItems),
1729 "OListAndComboImport::implSelectCurrentItem: inconsistence between labels and values!");
1730
1731 sal_Int16 nItemNumber = (sal_Int16)(m_aListSource.getLength() - 1 + m_nEmptyListItems);
1732 pushBackSequenceElement(m_aSelectedSeq, nItemNumber);
1733 }
1734
1735 void OListAndComboImport::implDefaultSelectCurrentItem()
1736 {
1737 OSL_ENSURE((m_aListSource.getLength() + m_nEmptyListItems) == (m_aValueList.getLength() + m_nEmptyValueItems),
1738 "OListAndComboImport::implDefaultSelectCurrentItem: inconsistence between labels and values!");
1739
1740 sal_Int16 nItemNumber = (sal_Int16)(m_aListSource.getLength() - 1 + m_nEmptyListItems);
1741 pushBackSequenceElement(m_aDefaultSelectedSeq, nItemNumber);
1742 }
1743
1744 //= OListOptionImport
1745 OListOptionImport::OListOptionImport(SvXMLImport& _rImport, sal_uInt16 _nPrefix, const OUString& _rName,
1746 const OListAndComboImportRef& _rListBox)
1747 :SvXMLImportContext(_rImport, _nPrefix, _rName)
1748 ,m_xListBoxImport(_rListBox)
1749 {
1750 }
1751
1752 void OListOptionImport::StartElement(const Reference< XAttributeList >& _rxAttrList)
1753 {
1754 // the label and the value
1755 const SvXMLNamespaceMap& rMap = GetImport().GetNamespaceMap();
1756 const OUString sLabelAttribute = rMap.GetQNameByKey(
1757 GetPrefix(), "label");
1758 const OUString sValueAttribute = rMap.GetQNameByKey(
1759 GetPrefix(), "value");
1760
1761 // the label attribute
1762 OUString sValue = _rxAttrList->getValueByName(sLabelAttribute);
1763 bool bNonexistentAttribute = false;
1764 if (sValue.isEmpty())
1765 if (_rxAttrList->getTypeByName(sLabelAttribute).isEmpty())
1766 // this attribute does not really exist
1767 bNonexistentAttribute = true;
1768
1769 if (bNonexistentAttribute)
1770 m_xListBoxImport->implEmptyLabelFound();
1771 else
1772 m_xListBoxImport->implPushBackLabel( sValue );
1773
1774 // the value attribute
1775 sValue = _rxAttrList->getValueByName(sValueAttribute);
1776 bNonexistentAttribute = false;
1777 if (sValue.isEmpty())
1778 if (_rxAttrList->getTypeByName(sValueAttribute).isEmpty())
1779 // this attribute does not really exist
1780 bNonexistentAttribute = true;
1781
1782 if (bNonexistentAttribute)
1783 m_xListBoxImport->implEmptyValueFound();
1784 else
1785 m_xListBoxImport->implPushBackValue( sValue );
1786
1787 // the current-selected and selected
1788 const OUString sSelectedAttribute = rMap.GetQNameByKey(
1789 GetPrefix(), OUString::createFromAscii(OAttributeMetaData::getCommonControlAttributeName(CCAFlags::CurrentSelected)));
1790 const OUString sDefaultSelectedAttribute = rMap.GetQNameByKey(
1791 GetPrefix(), OUString::createFromAscii(OAttributeMetaData::getCommonControlAttributeName(CCAFlags::Selected)));
1792
1793 // propagate the selected flag
1794 bool bSelected(false);
1795 ::sax::Converter::convertBool(bSelected,
1796 _rxAttrList->getValueByName(sSelectedAttribute));
1797 if (bSelected)
1798 m_xListBoxImport->implSelectCurrentItem();
1799
1800 // same for the default selected
1801 bool bDefaultSelected(false);
1802 ::sax::Converter::convertBool(bDefaultSelected,
1803 _rxAttrList->getValueByName(sDefaultSelectedAttribute));
1804 if (bDefaultSelected)
1805 m_xListBoxImport->implDefaultSelectCurrentItem();
1806
1807 SvXMLImportContext::StartElement(_rxAttrList);
1808 }
1809
1810 //= OComboItemImport
1811 OComboItemImport::OComboItemImport(SvXMLImport& _rImport, sal_uInt16 _nPrefix, const OUString& _rName,
1812 const OListAndComboImportRef& _rListBox)
1813 :SvXMLImportContext(_rImport, _nPrefix, _rName)
1814 ,m_xListBoxImport(_rListBox)
1815 {
1816 }
1817
1818 void OComboItemImport::StartElement(const Reference< XAttributeList >& _rxAttrList)
1819 {
1820 const OUString sLabelAttributeName = GetImport().GetNamespaceMap().GetQNameByKey(
1821 GetPrefix(), OUString::createFromAscii(OAttributeMetaData::getCommonControlAttributeName(CCAFlags::Label)));
1822 m_xListBoxImport->implPushBackLabel(_rxAttrList->getValueByName(sLabelAttributeName));
1823
1824 SvXMLImportContext::StartElement(_rxAttrList);
1825 }
1826
1827 //= OColumnWrapperImport
1828 OColumnWrapperImport::OColumnWrapperImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
1829 const Reference< XNameContainer >& _rxParentContainer)
1830 :SvXMLImportContext(_rImport.getGlobalContext(), _nPrefix, _rName)
1831 ,m_xParentContainer(_rxParentContainer)
1832 ,m_rFormImport(_rImport)
1833 ,m_rEventManager(_rEventManager)
1834 {
1835 }
1836 SvXMLImportContext* OColumnWrapperImport::CreateChildContext(sal_uInt16 _nPrefix, const OUString& _rLocalName,
1837 const Reference< XAttributeList >&)
1838 {
1839 OControlImport* pReturn = implCreateChildContext(_nPrefix, _rLocalName, OElementNameMap::getElementType(_rLocalName));
1840 if (pReturn)
1841 {
1842 OSL_ENSURE(m_xOwnAttributes.is(), "OColumnWrapperImport::CreateChildContext: had no form:column element!");
1843 pReturn->addOuterAttributes(m_xOwnAttributes);
1844 }
1845 return pReturn;
1846 }
1847 void OColumnWrapperImport::StartElement(const Reference< XAttributeList >& _rxAttrList)
1848 {
1849 OSL_ENSURE(!m_xOwnAttributes.is(), "OColumnWrapperImport::StartElement: already have the cloned list!");
1850
1851 // clone the attributes
1852 Reference< XCloneable > xCloneList(_rxAttrList, UNO_QUERY);
1853 OSL_ENSURE(xCloneList.is(), "OColumnWrapperImport::StartElement: AttributeList not cloneable!");
1854 if ( xCloneList.is() )
1855 m_xOwnAttributes.set(xCloneList->createClone(), UNO_QUERY);
1856 OSL_ENSURE(m_xOwnAttributes.is(), "OColumnWrapperImport::StartElement: no cloned list!");
1857 }
1858
1859 OControlImport* OColumnWrapperImport::implCreateChildContext(
1860 sal_uInt16 _nPrefix, const OUString& _rLocalName,
1861 OControlElement::ElementType _eType)
1862 {
1863 OSL_ENSURE( (OControlElement::TEXT == _eType)
1864 || (OControlElement::TEXT_AREA == _eType)
1865 || (OControlElement::FORMATTED_TEXT == _eType)
1866 || (OControlElement::CHECKBOX == _eType)
1867 || (OControlElement::LISTBOX == _eType)
1868 || (OControlElement::COMBOBOX == _eType)
1869 || (OControlElement::TIME == _eType)
1870 || (OControlElement::DATE == _eType),
1871 "OColumnWrapperImport::implCreateChildContext: invalid or unrecognized sub element!");
1872
1873 switch (_eType)
1874 {
1875 case OControlElement::COMBOBOX:
1876 case OControlElement::LISTBOX:
1877 return new OColumnImport<OListAndComboImport>(m_rFormImport, m_rEventManager, _nPrefix, _rLocalName, m_xParentContainer, _eType );
1878
1879 case OControlElement::PASSWORD:
1880 return new OColumnImport<OPasswordImport>(m_rFormImport, m_rEventManager, _nPrefix, _rLocalName, m_xParentContainer, _eType );
1881
1882 case OControlElement::TEXT:
1883 case OControlElement::TEXT_AREA:
1884 case OControlElement::FORMATTED_TEXT:
1885 return new OColumnImport< OTextLikeImport >( m_rFormImport, m_rEventManager, _nPrefix, _rLocalName, m_xParentContainer, _eType );
1886
1887 default:
1888 return new OColumnImport<OControlImport>(m_rFormImport, m_rEventManager, _nPrefix, _rLocalName, m_xParentContainer, _eType );
1889 }
1890 }
1891
1892 //= OGridImport
1893 OGridImport::OGridImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
1894 const Reference< XNameContainer >& _rxParentContainer,
1895 OControlElement::ElementType _eType)
1896 :OGridImport_Base(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, "column")
1897 {
1898 setElementType(_eType);
1899 }
1900
1901 SvXMLImportContext* OGridImport::implCreateControlWrapper(sal_uInt16 _nPrefix, const OUString& _rLocalName)
1902 {
1903 return new OColumnWrapperImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer);
1904 }
1905
1906 //= OFormImport
1907 OFormImport::OFormImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const OUString& _rName,
1908 const Reference< XNameContainer >& _rxParentContainer)
1909 :OFormImport_Base(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, "control")
1910 {
1911 enableTrackAttributes();
1912 }
1913
1914 SvXMLImportContext* OFormImport::CreateChildContext(sal_uInt16 _nPrefix, const OUString& _rLocalName,
1915 const Reference< XAttributeList >& _rxAttrList)
1916 {
1917 if( token::IsXMLToken(_rLocalName, token::XML_FORM) )
1918 return new OFormImport( m_rFormImport, *this, _nPrefix, _rLocalName,
1919 m_xMeAsContainer);
1920 else if ( token::IsXMLToken(_rLocalName, token::XML_CONNECTION_RESOURCE) )
1921 return new OXMLDataSourceImport(GetImport(), _nPrefix, _rLocalName, _rxAttrList,m_xElement);
1922 else if( (token::IsXMLToken(_rLocalName, token::XML_EVENT_LISTENERS) &&
1923 (XML_NAMESPACE_OFFICE == _nPrefix)) ||
1924 token::IsXMLToken( _rLocalName, token::XML_PROPERTIES) )
1925 return OElementImport::CreateChildContext( _nPrefix, _rLocalName,
1926 _rxAttrList );
1927 else
1928 return implCreateChildContext( _nPrefix, _rLocalName,
1929 OElementNameMap::getElementType(_rLocalName) );
1930 }
1931
1932 void OFormImport::StartElement(const Reference< XAttributeList >& _rxAttrList)
1933 {
1934 m_rFormImport.enterEventContext();
1935 OFormImport_Base::StartElement(_rxAttrList);
1936
1937 // handle the target-frame attribute
1938 simulateDefaultedAttribute(OAttributeMetaData::getCommonControlAttributeName(CCAFlags::TargetFrame), PROPERTY_TARGETFRAME, "_blank");
1939 }
1940
1941 void OFormImport::EndElement()
1942 {
1943 OFormImport_Base::EndElement();
1944 m_rFormImport.leaveEventContext();
1945 }
1946
1947 SvXMLImportContext* OFormImport::implCreateControlWrapper(sal_uInt16 _nPrefix, const OUString& _rLocalName)
1948 {
1949 OSL_ENSURE( false, "illegal call to OFormImport::implCreateControlWrapper" );
1950 return new SvXMLImportContext(GetImport(), _nPrefix, _rLocalName );
1951 }
1952
1953 bool OFormImport::handleAttribute(sal_uInt16 _nNamespaceKey, const OUString& _rLocalName, const OUString& _rValue)
1954 {
1955 // handle the master/details field attributes (they're way too special to let the OPropertyImport handle them)
1956 static const char* s_sMasterFieldsAttributeName = OAttributeMetaData::getFormAttributeName(faMasterFields);
1957 static const char* s_sDetailFieldsAttributeName = OAttributeMetaData::getFormAttributeName(faDetailFiels);
1958
1959 if ( _rLocalName.equalsAscii(s_sMasterFieldsAttributeName) )
1960 {
1961 implTranslateStringListProperty(PROPERTY_MASTERFIELDS, _rValue);
1962 return true;
1963 }
1964
1965 if ( _rLocalName.equalsAscii(s_sDetailFieldsAttributeName) )
1966 {
1967 implTranslateStringListProperty(PROPERTY_DETAILFIELDS, _rValue);
1968 return true;
1969 }
1970
1971 return OFormImport_Base::handleAttribute(_nNamespaceKey, _rLocalName, _rValue);
1972 }
1973
1974 void OFormImport::implTranslateStringListProperty(const OUString& _rPropertyName, const OUString& _rValue)
1975 {
1976 PropertyValue aProp;
1977 aProp.Name = _rPropertyName;
1978
1979 Sequence< OUString > aList;
1980
1981 // split up the value string
1982 if (!_rValue.isEmpty())
1983 {
1984 // For the moment, we build a vector instead of a Sequence. It's easier to handle because of its
1985 // push_back method
1986 ::std::vector< OUString > aElements;
1987 // estimate the number of tokens
1988 sal_Int32 nEstimate = 0, nLength = _rValue.getLength();
1989 const sal_Unicode* pChars = _rValue.getStr();
1990 for (sal_Int32 i=0; i<nLength; ++i, ++pChars)
1991 if (*pChars == ',')
1992 ++nEstimate;
1993 aElements.reserve(nEstimate + 1);
1994 // that's the worst case. If the string contains the separator character _quoted_, we reserved to much ...
1995
1996 sal_Int32 nElementStart = 0;
1997 sal_Int32 nNextSep = 0;
1998 sal_Int32 nElementLength;
1999 OUString sElement;
2000 do
2001 {
2002 // extract the current element
2003 nNextSep = ::sax::Converter::indexOfComma(
2004 _rValue, nElementStart);
2005 if (-1 == nNextSep)
2006 nNextSep = nLength;
2007 sElement = _rValue.copy(nElementStart, nNextSep - nElementStart);
2008
2009 nElementLength = sElement.getLength();
2010 // when writing the sequence, we quoted the single elements with " characters
2011 OSL_ENSURE( sElement.startsWith("\"") && sElement.endsWith("\""),
2012 "OFormImport::implTranslateStringListProperty: invalid quoted element name.");
2013 sElement = sElement.copy(1, nElementLength - 2);
2014
2015 aElements.push_back(sElement);
2016
2017 // switch to the next element
2018 nElementStart = 1 + nNextSep;
2019 }
2020 while (nElementStart < nLength);
2021
2022 aList = Sequence< OUString >(aElements.data(), aElements.size());
2023 }
2024 else
2025 {
2026 OSL_FAIL("OFormImport::implTranslateStringListProperty: invalid value (empty)!");
2027 }
2028
2029 aProp.Value <<= aList;
2030
2031 // add the property to the base class' array
2032 implPushBackPropertyValue(aProp);
2033 }
2034 //= OXMLDataSourceImport
2035 OXMLDataSourceImport::OXMLDataSourceImport(
2036 SvXMLImport& _rImport
2037 ,sal_uInt16 nPrfx
2038 , const OUString& _sLocalName
2039 ,const Reference< css::xml::sax::XAttributeList > & _xAttrList
2040 ,const css::uno::Reference< css::beans::XPropertySet >& _xElement) :
2041 SvXMLImportContext( _rImport, nPrfx, _sLocalName )
2042 {
2043 OSL_ENSURE(_xAttrList.is(),"Attribute list is NULL!");
2044 const SvXMLNamespaceMap& rMap = _rImport.GetNamespaceMap();
2045
2046 sal_Int16 nLength = (_xElement.is() && _xAttrList.is()) ? _xAttrList->getLength() : 0;
2047 for(sal_Int16 i = 0; i < nLength; ++i)
2048 {
2049 OUString sLocalName;
2050 OUString sAttrName = _xAttrList->getNameByIndex( i );
2051 sal_uInt16 nPrefix = rMap.GetKeyByAttrName( sAttrName, &sLocalName );
2052
2053 if ( ( nPrefix == OAttributeMetaData::getCommonControlAttributeNamespace( CCAFlags::TargetLocation ) )
2054 && ( sLocalName.equalsAscii( OAttributeMetaData::getCommonControlAttributeName( CCAFlags::TargetLocation ) ) )
2055 )
2056 {
2057 OUString sValue = _xAttrList->getValueByIndex( i );
2058
2059 INetURLObject aURL(sValue);
2060 if ( aURL.GetProtocol() == INetProtocol::File )
2061 _xElement->setPropertyValue(PROPERTY_DATASOURCENAME,makeAny(sValue));
2062 else
2063 _xElement->setPropertyValue(PROPERTY_URL,makeAny(sValue)); // the url is the "sdbc:" string
2064 break;
2065 }
2066 }
2067 }
2068 OControlImport* OFormImport::implCreateChildContext(
2069 sal_uInt16 _nPrefix, const OUString& _rLocalName,
2070 OControlElement::ElementType _eType )
2071 {
2072 switch (_eType)
2073 {
2074 case OControlElement::TEXT:
2075 case OControlElement::TEXT_AREA:
2076 case OControlElement::FORMATTED_TEXT:
2077 return new OTextLikeImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType);
2078
2079 case OControlElement::BUTTON:
2080 case OControlElement::IMAGE:
2081 case OControlElement::IMAGE_FRAME:
2082 return new OButtonImport( m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType );
2083
2084 case OControlElement::COMBOBOX:
2085 case OControlElement::LISTBOX:
2086 return new OListAndComboImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType);
2087
2088 case OControlElement::RADIO:
2089 return new ORadioImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType);
2090
2091 case OControlElement::CHECKBOX:
2092 return new OImagePositionImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType);
2093
2094 case OControlElement::PASSWORD:
2095 return new OPasswordImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType);
2096
2097 case OControlElement::FRAME:
2098 case OControlElement::FIXED_TEXT:
2099 return new OReferredControlImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType);
2100
2101 case OControlElement::GRID:
2102 return new OGridImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType);
2103
2104 case OControlElement::VALUERANGE:
2105 return new OValueRangeImport( m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType );
2106
2107 default:
2108 return new OControlImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType);
2109 }
2110 }
2111
2112 OUString OFormImport::determineDefaultServiceName() const
2113 {
2114 return OUString("com.sun.star.form.component.Form");
2115 }
2116
2117 } // namespace xmloff
2118
2119 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
FREE OFFICE SUITE