diff options
Diffstat (limited to 'xmloff/source/forms/elementimport.cxx')
-rw-r--r-- | xmloff/source/forms/elementimport.cxx | 2231 |
1 files changed, 2231 insertions, 0 deletions
diff --git a/xmloff/source/forms/elementimport.cxx b/xmloff/source/forms/elementimport.cxx new file mode 100644 index 000000000000..eb6dd0965e76 --- /dev/null +++ b/xmloff/source/forms/elementimport.cxx @@ -0,0 +1,2231 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +// MARKER(update_precomp.py): autogen include statement, do not remove +#include "precompiled_xmloff.hxx" + +#include "elementimport.hxx" +#include "xmloff/xmlimp.hxx" +#include "xmloff/nmspmap.hxx" +#include "xmloff/xmluconv.hxx" +#include "strings.hxx" +#include "callbacks.hxx" +#include "attriblistmerge.hxx" +#include "xmlnmspe.hxx" +#include "eventimport.hxx" +#include "xmloff/txtstyli.hxx" +#include "formenums.hxx" +#include "xmloff/xmltoken.hxx" +#include "gridcolumnproptranslator.hxx" +#include "property_description.hxx" +#include "property_meta_data.hxx" + +/** === begin UNO includes === **/ +#include <com/sun/star/text/XText.hpp> +#include <com/sun/star/util/XCloneable.hpp> +#include <com/sun/star/form/FormComponentType.hpp> +#include <com/sun/star/awt/ImagePosition.hpp> +#include <com/sun/star/beans/XMultiPropertySet.hpp> +#include <com/sun/star/beans/XPropertyContainer.hpp> +#include <com/sun/star/beans/PropertyAttribute.hpp> +/** === end UNO includes === **/ + +#include <tools/urlobj.hxx> +#include <tools/diagnose_ex.h> +#include <tools/time.hxx> +#include <rtl/logfile.hxx> +#include <comphelper/extract.hxx> +#include <comphelper/types.hxx> + +#include <algorithm> +#include <functional> + +//......................................................................... +namespace xmloff +{ +//......................................................................... + + using namespace ::xmloff::token; + using namespace ::com::sun::star; + using namespace ::com::sun::star::uno; + using namespace ::com::sun::star::awt; + using namespace ::com::sun::star::container; + using namespace ::com::sun::star::beans; + using namespace ::com::sun::star::script; + using namespace ::com::sun::star::lang; + using namespace ::com::sun::star::form; + using namespace ::com::sun::star::xml; + using namespace ::com::sun::star::util; + using namespace ::com::sun::star::text; + using namespace ::comphelper; + +#define PROPID_VALUE 1 +#define PROPID_CURRENT_VALUE 2 +#define PROPID_MIN_VALUE 3 +#define PROPID_MAX_VALUE 4 + + //===================================================================== + struct PropertyValueLess + { + sal_Bool operator()(const PropertyValue& _rLeft, const PropertyValue& _rRight) + { + return _rLeft.Name < _rRight.Name; + } + }; + + //===================================================================== + struct PropertyValueCompare : public ::std::binary_function< PropertyValue, ::rtl::OUString, bool> + { + bool operator() (const PropertyValue& lhs, const ::rtl::OUString& rhs) const + { + return lhs.Name == rhs; + } + bool operator() (const ::rtl::OUString& lhs, const PropertyValue& rhs) const + { + return lhs == rhs.Name; + } + }; + + //===================================================================== + template <class ELEMENT> + void pushBackSequenceElement(Sequence< ELEMENT >& _rContainer, const ELEMENT& _rElement) + { + sal_Int32 nLen = _rContainer.getLength(); + _rContainer.realloc(nLen + 1); + _rContainer[nLen] = _rElement; + } + + //===================================================================== + //= OElementNameMap + //===================================================================== + //--------------------------------------------------------------------- + OElementNameMap::MapString2Element OElementNameMap::s_sElementTranslations; + + //--------------------------------------------------------------------- + const OControlElement::ElementType& operator ++(OControlElement::ElementType& _e) + { + OControlElement::ElementType e = _e; + sal_Int32 nAsInt = static_cast<sal_Int32>(e); + _e = static_cast<OControlElement::ElementType>( ++nAsInt ); + return _e; + } + + //--------------------------------------------------------------------- + OControlElement::ElementType OElementNameMap::getElementType(const ::rtl::OUString& _rName) + { + if ( s_sElementTranslations.empty() ) + { // initialize + for (ElementType eType=(ElementType)0; eType<UNKNOWN; ++eType) + s_sElementTranslations[::rtl::OUString::createFromAscii(getElementName(eType))] = eType; + } + ConstMapString2ElementIterator aPos = s_sElementTranslations.find(_rName); + if (s_sElementTranslations.end() != aPos) + return aPos->second; + + return UNKNOWN; + } + + //===================================================================== + //= OElementImport + //===================================================================== + //--------------------------------------------------------------------- + OElementImport::OElementImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer) + :OPropertyImport(_rImport, _nPrefix, _rName) + ,m_rFormImport(_rImport) + ,m_rEventManager(_rEventManager) + ,m_pStyleElement( NULL ) + ,m_xParentContainer(_rxParentContainer) + ,m_bImplicitGenericAttributeHandling( true ) + { + OSL_ENSURE(m_xParentContainer.is(), "OElementImport::OElementImport: invalid parent container!"); + } + + //--------------------------------------------------------------------- + OElementImport::~OElementImport() + { + } + + //--------------------------------------------------------------------- + ::rtl::OUString OElementImport::determineDefaultServiceName() const + { + return ::rtl::OUString(); + } + + //--------------------------------------------------------------------- + void OElementImport::StartElement(const Reference< sax::XAttributeList >& _rxAttrList) + { + ENTER_LOG_CONTEXT( "xmloff::OElementImport - importing one element" ); + + const SvXMLNamespaceMap& rMap = m_rContext.getGlobalContext().GetNamespaceMap(); + const ::rtl::OUString sImplNameAttribute = rMap.GetQNameByKey( XML_NAMESPACE_FORM, GetXMLToken( XML_CONTROL_IMPLEMENTATION ) ); + const ::rtl::OUString sControlImplementation = _rxAttrList->getValueByName( sImplNameAttribute ); + + // retrieve the service name + if ( sControlImplementation.getLength() > 0 ) + { + ::rtl::OUString sOOoImplementationName; + const sal_uInt16 nImplPrefix = GetImport().GetNamespaceMap().GetKeyByAttrName( sControlImplementation, &sOOoImplementationName ); + m_sServiceName = ( nImplPrefix == XML_NAMESPACE_OOO ) ? sOOoImplementationName : sControlImplementation; + } + + if ( !m_sServiceName.getLength() ) + determineDefaultServiceName(); + + // create the object *now*. This allows setting properties in the various handleAttribute methods. + // (Though currently not all code is migrated to this pattern, most attributes are still handled + // by remembering the value (via implPushBackPropertyValue), and setting the correct property value + // later (in OControlImport::StartElement).) + m_xElement = createElement(); + if ( m_xElement.is() ) + m_xInfo = m_xElement->getPropertySetInfo(); + + // call the base class + OPropertyImport::StartElement( _rxAttrList ); + } + + //--------------------------------------------------------------------- + SvXMLImportContext* OElementImport::CreateChildContext(sal_uInt16 _nPrefix, const ::rtl::OUString& _rLocalName, + const Reference< sax::XAttributeList >& _rxAttrList) + { + if( token::IsXMLToken(_rLocalName, token::XML_EVENT_LISTENERS) && (XML_NAMESPACE_OFFICE == _nPrefix)) + return new OFormEventsImportContext(m_rFormImport.getGlobalContext(), _nPrefix, _rLocalName, *this); + + return OPropertyImport::CreateChildContext(_nPrefix, _rLocalName, _rxAttrList); + } + + //--------------------------------------------------------------------- + void OElementImport::EndElement() + { + OSL_ENSURE(m_xElement.is(), "OElementImport::EndElement: invalid element created!"); + if (!m_xElement.is()) + return; + + // apply the non-generic properties + implApplySpecificProperties(); + + // set the generic properties + implApplyGenericProperties(); + + // set the style properties + if ( m_pStyleElement && m_xElement.is() ) + { + Reference< XPropertySet > xPropTranslation = + new OGridColumnPropertyTranslator( Reference< XMultiPropertySet >( m_xElement, UNO_QUERY ) ); + const_cast< XMLTextStyleContext* >( m_pStyleElement )->FillPropertySet( xPropTranslation ); + + const ::rtl::OUString sNumberStyleName = const_cast< XMLTextStyleContext* >( m_pStyleElement )->GetDataStyleName( ); + if ( sNumberStyleName.getLength() ) + // the style also has a number (sub) style + m_rContext.applyControlNumberStyle( m_xElement, sNumberStyleName ); + } + + // insert the element into the parent container + if (!m_sName.getLength()) + { + OSL_ENSURE(sal_False, "OElementImport::EndElement: did not find a name attribute!"); + m_sName = implGetDefaultName(); + } + + m_xParentContainer->insertByName(m_sName, makeAny(m_xElement)); + LEAVE_LOG_CONTEXT( ); + } + + //--------------------------------------------------------------------- + void OElementImport::implApplySpecificProperties() + { + if ( m_aValues.empty() ) + return; + + // set all the properties we collected +#if OSL_DEBUG_LEVEL > 0 + // check if the object has all the properties + // (We do this in the non-pro version only. Doing it all the time would be much to expensive) + if ( m_xInfo.is() ) + { + PropertyValueArray::const_iterator aEnd = m_aValues.end(); + for ( PropertyValueArray::iterator aCheck = m_aValues.begin(); + aCheck != aEnd; + ++aCheck + ) + { + OSL_ENSURE(m_xInfo->hasPropertyByName(aCheck->Name), + ::rtl::OString("OElementImport::implApplySpecificProperties: read a property (") + += ::rtl::OString(aCheck->Name.getStr(), aCheck->Name.getLength(), RTL_TEXTENCODING_ASCII_US) + += ::rtl::OString(") which does not exist on the element!")); + } + } +#endif + + // set the properties + const Reference< XMultiPropertySet > xMultiProps(m_xElement, UNO_QUERY); + sal_Bool bSuccess = sal_False; + if (xMultiProps.is()) + { + // translate our properties so that the XMultiPropertySet can handle them + + // sort our property value array so that we can use it in a setPropertyValues + ::std::sort( m_aValues.begin(), m_aValues.end(), PropertyValueLess()); + + // the names + Sequence< ::rtl::OUString > aNames(m_aValues.size()); + ::rtl::OUString* pNames = aNames.getArray(); + // the values + Sequence< Any > aValues(m_aValues.size()); + Any* pValues = aValues.getArray(); + // copy + + PropertyValueArray::iterator aEnd = m_aValues.end(); + for ( PropertyValueArray::iterator aPropValues = m_aValues.begin(); + aPropValues != aEnd; + ++aPropValues, ++pNames, ++pValues + ) + { + *pNames = aPropValues->Name; + *pValues = aPropValues->Value; + } + + try + { + xMultiProps->setPropertyValues(aNames, aValues); + bSuccess = sal_True; + } + catch(Exception&) + { + OSL_ENSURE(sal_False, "OElementImport::implApplySpecificProperties: could not set the properties (using the XMultiPropertySet)!"); + } + } + + if (!bSuccess) + { // no XMultiPropertySet or setting all properties at once failed + PropertyValueArray::iterator aEnd = m_aValues.end(); + for ( PropertyValueArray::iterator aPropValues = m_aValues.begin(); + aPropValues != aEnd; + ++aPropValues + ) + { + // this try/catch here is expensive, but because this is just a fallback which should normally not be + // used it's acceptable this way ... + try + { + m_xElement->setPropertyValue(aPropValues->Name, aPropValues->Value); + } + catch(Exception&) + { + OSL_ENSURE(sal_False, + ::rtl::OString("OElementImport::implApplySpecificProperties: could not set the property \"") + += ::rtl::OString(aPropValues->Name.getStr(), aPropValues->Name.getLength(), RTL_TEXTENCODING_ASCII_US) + += ::rtl::OString("\"!")); + } + } + } + } + + //--------------------------------------------------------------------- + void OElementImport::implApplyGenericProperties() + { + if ( m_aGenericValues.empty() ) + return; + + Reference< XPropertyContainer > xDynamicProperties( m_xElement, UNO_QUERY ); + + PropertyValueArray::iterator aEnd = m_aGenericValues.end(); + for ( PropertyValueArray::iterator aPropValues = + m_aGenericValues.begin(); + aPropValues != aEnd; + ++aPropValues + ) + { + // check property type for numeric types before setting + // the property + try + { + // if such a property does not yet exist at the element, create it if necessary + const bool bExistentProperty = m_xInfo->hasPropertyByName( aPropValues->Name ); + if ( !bExistentProperty ) + { + if ( !xDynamicProperties.is() ) + { + #if OSL_DEBUG_LEVEL > 0 + ::rtl::OString aMessage( "OElementImport::implApplyGenericProperties: encountered an unknown property (" ); + aMessage += ::rtl::OUStringToOString( aPropValues->Name, RTL_TEXTENCODING_ASCII_US ); + aMessage += "), but component is no PropertyBag!"; + OSL_ENSURE( false, aMessage.getStr() ); + #endif + continue; + } + + xDynamicProperties->addProperty( + aPropValues->Name, + PropertyAttribute::BOUND | PropertyAttribute::REMOVEABLE, + aPropValues->Value + ); + + // re-fetch the PropertySetInfo + m_xInfo = m_xElement->getPropertySetInfo(); + } + + // determine the type of the value (source for the following conversion) + TypeClass eValueTypeClass = aPropValues->Value.getValueTypeClass(); + const sal_Bool bValueIsSequence = TypeClass_SEQUENCE == eValueTypeClass; + if ( bValueIsSequence ) + { + uno::Type aSimpleType( getSequenceElementType( aPropValues->Value.getValueType() ) ); + eValueTypeClass = aSimpleType.getTypeClass(); + } + + // determine the type of the property (target for the following conversion) + const Property aProperty( m_xInfo->getPropertyByName( aPropValues->Name ) ); + TypeClass ePropTypeClass = aProperty.Type.getTypeClass(); + const sal_Bool bPropIsSequence = TypeClass_SEQUENCE == ePropTypeClass; + if( bPropIsSequence ) + { + uno::Type aSimpleType( ::comphelper::getSequenceElementType( aProperty.Type ) ); + ePropTypeClass = aSimpleType.getTypeClass(); + } + + if ( bPropIsSequence != bValueIsSequence ) + { + OSL_ENSURE( false, "OElementImport::implApplyGenericProperties: either both value and property should be a sequence, or none of them!" ); + continue; + } + + if ( bValueIsSequence ) + { + OSL_ENSURE( eValueTypeClass == TypeClass_ANY, + "OElementImport::implApplyGenericProperties: only ANYs should have been imported as generic list property!" ); + // (OPropertyImport should produce only Sequencer< Any >, since it cannot know the real type + + OSL_ENSURE( ePropTypeClass == TypeClass_SHORT, + "OElementImport::implApplyGenericProperties: conversion to sequences other than 'sequence< short >' not implemented, yet!" ); + + Sequence< Any > aXMLValueList; + aPropValues->Value >>= aXMLValueList; + Sequence< sal_Int16 > aPropertyValueList( aXMLValueList.getLength() ); + + const Any* pXMLValue = aXMLValueList.getConstArray(); + sal_Int16* pPropValue = aPropertyValueList.getArray(); + + for ( sal_Int32 i=0; i<aXMLValueList.getLength(); ++i, ++pXMLValue, ++pPropValue ) + { + // only value sequences of numeric types implemented so far. + double nVal( 0 ); + OSL_VERIFY( *pXMLValue >>= nVal ); + *pPropValue = static_cast< sal_Int16 >( nVal ); + } + + aPropValues->Value <<= aPropertyValueList; + } + else if ( ePropTypeClass != eValueTypeClass ) + { + switch ( eValueTypeClass ) + { + case TypeClass_DOUBLE: + { + double nVal = 0; + aPropValues->Value >>= nVal; + switch( ePropTypeClass ) + { + case TypeClass_BYTE: + aPropValues->Value <<= static_cast< sal_Int8 >( nVal ); + break; + case TypeClass_SHORT: + aPropValues->Value <<= static_cast< sal_Int16 >( nVal ); + break; + case TypeClass_LONG: + case TypeClass_ENUM: + aPropValues->Value <<= static_cast< sal_Int32 >( nVal ); + break; + case TypeClass_HYPER: + aPropValues->Value <<= static_cast< sal_Int64 >( nVal ); + break; + default: + OSL_ENSURE( false, "OElementImport::implApplyGenericProperties: unsupported value type!" ); + break; + } + } + break; + default: + OSL_ENSURE( false, "OElementImport::implApplyGenericProperties: non-double values not supported!" ); + break; + } + } + + m_xElement->setPropertyValue( aPropValues->Name, aPropValues->Value ); + } + catch(Exception&) + { + OSL_ENSURE(sal_False, + ::rtl::OString("OElementImport::EndElement: could not set the property \"") + += ::rtl::OString(aPropValues->Name.getStr(), aPropValues->Name.getLength(), RTL_TEXTENCODING_ASCII_US) + += ::rtl::OString("\"!")); + } + } + } + + //--------------------------------------------------------------------- + ::rtl::OUString OElementImport::implGetDefaultName() const + { + // no optimization here. If this method gets called, the XML stream did not contain a name for the + // element, which is a heavy error. So in this case we don't care for performance + Sequence< ::rtl::OUString > aNames = m_xParentContainer->getElementNames(); + static const ::rtl::OUString sUnnamedName = ::rtl::OUString::createFromAscii("unnamed"); + + ::rtl::OUString sReturn; + const ::rtl::OUString* pNames = NULL; + const ::rtl::OUString* pNamesEnd = aNames.getConstArray() + aNames.getLength(); + for (sal_Int32 i=0; i<32768; ++i) // the limit is nearly arbitrary ... + { + // assemble the new name (suggestion) + sReturn = sUnnamedName; + sReturn += ::rtl::OUString::valueOf(i); + // check the existence (this is the bad performance part ....) + for (pNames = aNames.getConstArray(); pNames<pNamesEnd; ++pNames) + { + if (*pNames == sReturn) + { + break; + } + } + if (pNames<pNamesEnd) + // found the name + continue; + return sReturn; + } + OSL_ENSURE(sal_False, "OElementImport::implGetDefaultName: did not find a free name!"); + return sUnnamedName; + } + + //--------------------------------------------------------------------- + PropertyGroups::const_iterator OElementImport::impl_matchPropertyGroup( const PropertyGroups& i_propertyGroups ) const + { + ENSURE_OR_RETURN( m_xInfo.is(), "OElementImport::impl_matchPropertyGroup: no property set info!", i_propertyGroups.end() ); + + for ( PropertyGroups::const_iterator group = i_propertyGroups.begin(); + group != i_propertyGroups.end(); + ++group + ) + { + bool missingProp = false; + for ( PropertyDescriptionList::const_iterator prop = group->begin(); + prop != group->end(); + ++prop + ) + { + if ( !m_xInfo->hasPropertyByName( (*prop)->propertyName ) ) + { + missingProp = true; + break; + } + } + + if ( missingProp ) + // try next group + continue; + + return group; + } + + return i_propertyGroups.end(); + } + + //--------------------------------------------------------------------- + bool OElementImport::tryGenericAttribute( sal_uInt16 _nNamespaceKey, const ::rtl::OUString& _rLocalName, const ::rtl::OUString& _rValue ) + { + // the generic approach (which I hope all props will be migrated to, on the medium term): property handlers + const AttributeDescription attribute( metadata::getAttributeDescription( _nNamespaceKey, _rLocalName ) ); + if ( attribute.attributeToken != XML_TOKEN_INVALID ) + { + PropertyGroups propertyGroups; + metadata::getPropertyGroupList( attribute, propertyGroups ); + const PropertyGroups::const_iterator pos = impl_matchPropertyGroup( propertyGroups ); + if ( pos == propertyGroups.end() ) + return false; + + do + { + const PropertyDescriptionList& rProperties( *pos ); + const PropertyDescription* first = *rProperties.begin(); + ENSURE_OR_BREAK( first != NULL, "OElementImport::handleAttribute: invalid property description!" ); + const PPropertyHandler handler = (*first->factory)( first->propertyId ); + ENSURE_OR_BREAK( handler.get() != NULL, "OElementImport::handleAttribute: invalid property handler!" ); + + PropertyValues aValues; + for ( PropertyDescriptionList::const_iterator propDesc = rProperties.begin(); + propDesc != rProperties.end(); + ++propDesc + ) + { + aValues[ (*propDesc)->propertyId ] = Any(); + } + if ( handler->getPropertyValues( _rValue, aValues ) ) + { + for ( PropertyDescriptionList::const_iterator propDesc = rProperties.begin(); + propDesc != rProperties.end(); + ++propDesc + ) + { + implPushBackPropertyValue( (*propDesc)->propertyName, aValues[ (*propDesc)->propertyId ] ); + } + } + } + while ( false ); + + // handled + return true; + } + return false; + } + + //--------------------------------------------------------------------- + bool OElementImport::handleAttribute(sal_uInt16 _nNamespaceKey, const ::rtl::OUString& _rLocalName, const ::rtl::OUString& _rValue) + { + if ( token::IsXMLToken( _rLocalName, token::XML_CONTROL_IMPLEMENTATION ) ) + // ignore this, it has already been handled in OElementImport::StartElement + return true; + + if ( token::IsXMLToken( _rLocalName, token::XML_NAME ) ) + { + if ( !m_sName.getLength() ) + // remember the name for later use in EndElement + m_sName = _rValue; + return true; + } + + // maybe it's the style attribute? + if ( token::IsXMLToken( _rLocalName, token::XML_TEXT_STYLE_NAME ) ) + { + const SvXMLStyleContext* pStyleContext = m_rContext.getStyleElement( _rValue ); + OSL_ENSURE( pStyleContext, "OElementImport::handleAttribute: do not know the style!" ); + // remember the element for later usage. + m_pStyleElement = PTR_CAST( XMLTextStyleContext, pStyleContext ); + return true; + } + + if ( m_bImplicitGenericAttributeHandling ) + if ( tryGenericAttribute( _nNamespaceKey, _rLocalName, _rValue ) ) + return true; + + // let the base class handle it + return OPropertyImport::handleAttribute(_nNamespaceKey, _rLocalName, _rValue); + } + + //--------------------------------------------------------------------- + Reference< XPropertySet > OElementImport::createElement() + { + Reference< XPropertySet > xReturn; + if (m_sServiceName.getLength()) + { + Reference< XInterface > xPure = m_rFormImport.getGlobalContext().getServiceFactory()->createInstance(m_sServiceName); + OSL_ENSURE(xPure.is(), + ::rtl::OString("OElementImport::createElement: service factory gave me no object (service name: ") + += ::rtl::OString(m_sServiceName.getStr(), m_sServiceName.getLength(), RTL_TEXTENCODING_ASCII_US) + += ::rtl::OString(")!")); + xReturn = Reference< XPropertySet >(xPure, UNO_QUERY); + } + else + OSL_ENSURE(sal_False, "OElementImport::createElement: no service name to create an element!"); + + return xReturn; + } + + //--------------------------------------------------------------------- + void OElementImport::registerEvents(const Sequence< ScriptEventDescriptor >& _rEvents) + { + OSL_ENSURE(m_xElement.is(), "OElementImport::registerEvents: no element to register events for!"); + m_rEventManager.registerEvents(m_xElement, _rEvents); + } + + //--------------------------------------------------------------------- + void OElementImport::simulateDefaultedAttribute(const sal_Char* _pAttributeName, const ::rtl::OUString& _rPropertyName, const sal_Char* _pAttributeDefault) + { + OSL_ENSURE( m_xInfo.is(), "OPropertyImport::simulateDefaultedAttribute: the component should be more gossipy about it's properties!" ); + + if ( !m_xInfo.is() || m_xInfo->hasPropertyByName( _rPropertyName ) ) + { + ::rtl::OUString sLocalAttrName = ::rtl::OUString::createFromAscii(_pAttributeName); + if ( !encounteredAttribute( sLocalAttrName ) ) + OSL_VERIFY( handleAttribute( XML_NAMESPACE_FORM, sLocalAttrName, ::rtl::OUString::createFromAscii( _pAttributeDefault ) ) ); + } + } + + //===================================================================== + //= OControlImport + //===================================================================== + //--------------------------------------------------------------------- + OControlImport::OControlImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer) + :OElementImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer) + ,m_eElementType(OControlElement::UNKNOWN) + { + disableImplicitGenericAttributeHandling(); + } + + //--------------------------------------------------------------------- + OControlImport::OControlImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer, OControlElement::ElementType _eType) + :OElementImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer) + ,m_eElementType(_eType) + { + disableImplicitGenericAttributeHandling(); + } + + //--------------------------------------------------------------------- + ::rtl::OUString OControlImport::determineDefaultServiceName() const + { + const sal_Char* pServiceName = NULL; + switch ( m_eElementType ) + { + case OControlElement::TEXT: + case OControlElement::TEXT_AREA: + case OControlElement::PASSWORD: pServiceName = "com.sun.star.form.component.TextField"; break; + case OControlElement::FILE: pServiceName = "com.sun.star.form.component.FileControl"; break; + case OControlElement::FORMATTED_TEXT: pServiceName = "com.sun.star.form.component.FormattedField"; break; + case OControlElement::FIXED_TEXT: pServiceName = "com.sun.star.form.component.FixedText"; break; + case OControlElement::COMBOBOX: pServiceName = "com.sun.star.form.component.ComboBox"; break; + case OControlElement::LISTBOX: pServiceName = "com.sun.star.form.component.ListBox"; break; + case OControlElement::BUTTON: pServiceName = "com.sun.star.form.component.CommandButton"; break; + case OControlElement::IMAGE: pServiceName = "com.sun.star.form.component.ImageButton"; break; + case OControlElement::CHECKBOX: pServiceName = "com.sun.star.form.component.CheckBox"; break; + case OControlElement::RADIO: pServiceName = "com.sun.star.form.component.RadioButton"; break; + case OControlElement::FRAME: pServiceName = "com.sun.star.form.component.GroupBox"; break; + case OControlElement::IMAGE_FRAME: pServiceName = "com.sun.star.form.component.DatabaseImageControl"; break; + case OControlElement::HIDDEN: pServiceName = "com.sun.star.form.component.HiddenControl"; break; + case OControlElement::GRID: pServiceName = "com.sun.star.form.component.GridControl"; break; + case OControlElement::TIME: pServiceName = "com.sun.star.form.component.DateField"; break; + case OControlElement::DATE: pServiceName = "com.sun.star.form.component.TimeField"; break; + default: break; + } + if ( pServiceName != NULL ) + return ::rtl::OUString::createFromAscii( pServiceName ); + return ::rtl::OUString(); + } + + //--------------------------------------------------------------------- + void OControlImport::addOuterAttributes(const Reference< sax::XAttributeList >& _rxOuterAttribs) + { + OSL_ENSURE(!m_xOuterAttributes.is(), "OControlImport::addOuterAttributes: already have these attributes!"); + m_xOuterAttributes = _rxOuterAttribs; + } + + //--------------------------------------------------------------------- + bool OControlImport::handleAttribute(sal_uInt16 _nNamespaceKey, const ::rtl::OUString& _rLocalName, const ::rtl::OUString& _rValue) + { + static const sal_Char* pLinkedCellAttributeName = OAttributeMetaData::getBindingAttributeName(BA_LINKED_CELL); + + if (IsXMLToken(_rLocalName, XML_ID)) + { // it's the control id + if (XML_NAMESPACE_XML == _nNamespaceKey) + { + m_sControlId = _rValue; + } + else if (XML_NAMESPACE_FORM == _nNamespaceKey) + { + if (!m_sControlId.getLength()) + { + m_sControlId = _rValue; + } + } + return true; + } + + if ( _rLocalName.equalsAscii( pLinkedCellAttributeName ) ) + { // it's the address of a spreadsheet cell + m_sBoundCellAddress = _rValue; + return true; + } + + if ( _nNamespaceKey == XML_NAMESPACE_XFORMS && IsXMLToken( _rLocalName, XML_BIND ) ) + { + m_sBindingID = _rValue; + return true; + } + + if ( _nNamespaceKey == XML_NAMESPACE_FORM && IsXMLToken( _rLocalName, XML_XFORMS_LIST_SOURCE ) ) + { + m_sListBindingID = _rValue; + return true; + } + + if ( ( ( _nNamespaceKey == XML_NAMESPACE_FORM ) + && IsXMLToken( _rLocalName, XML_XFORMS_SUBMISSION ) + ) + || ( ( _nNamespaceKey == XML_NAMESPACE_XFORMS ) + && IsXMLToken( _rLocalName, XML_SUBMISSION ) + ) + ) + { + m_sSubmissionID = _rValue; + return true; + } + + if ( OElementImport::tryGenericAttribute( _nNamespaceKey, _rLocalName, _rValue ) ) + return true; + + static const sal_Char* pValueAttributeName = OAttributeMetaData::getCommonControlAttributeName(CCA_VALUE); + static const sal_Char* pCurrentValueAttributeName = OAttributeMetaData::getCommonControlAttributeName(CCA_CURRENT_VALUE); + static const sal_Char* pMinValueAttributeName = OAttributeMetaData::getSpecialAttributeName(SCA_MIN_VALUE); + static const sal_Char* pMaxValueAttributeName = OAttributeMetaData::getSpecialAttributeName(SCA_MAX_VALUE); + static const sal_Char* pRepeatDelayAttributeName = OAttributeMetaData::getSpecialAttributeName( SCA_REPEAT_DELAY ); + + sal_Int32 nHandle = -1; + if ( _rLocalName.equalsAscii( pValueAttributeName ) ) + nHandle = PROPID_VALUE; + else if ( _rLocalName.equalsAscii( pCurrentValueAttributeName ) ) + nHandle = PROPID_CURRENT_VALUE; + else if ( _rLocalName.equalsAscii( pMinValueAttributeName ) ) + nHandle = PROPID_MIN_VALUE; + else if ( _rLocalName.equalsAscii( pMaxValueAttributeName ) ) + nHandle = PROPID_MAX_VALUE; + if ( nHandle != -1 ) + { + // for the moment, simply remember the name and the value + PropertyValue aProp; + aProp.Name = _rLocalName; + aProp.Handle = nHandle; + aProp.Value <<= _rValue; + m_aValueProperties.push_back(aProp); + return true; + } + + if ( _rLocalName.equalsAscii( pRepeatDelayAttributeName ) ) + { + ::Time aTime; + sal_Int32 nFractions = 0; + if ( SvXMLUnitConverter::convertTimeDuration( _rValue, aTime, &nFractions ) ) + { + PropertyValue aProp; + aProp.Name = PROPERTY_REPEAT_DELAY; + aProp.Value <<= (sal_Int32)( ( ( aTime.GetMSFromTime() / 1000 ) * 1000 ) + nFractions ); + + implPushBackPropertyValue(aProp); + } + return true; + } + + return OElementImport::handleAttribute( _nNamespaceKey, _rLocalName, _rValue ); + } + + //--------------------------------------------------------------------- + void OControlImport::StartElement(const Reference< sax::XAttributeList >& _rxAttrList) + { + ::com::sun::star::uno::Reference< ::com::sun::star::xml::sax::XAttributeList > xAttributes; + if( m_xOuterAttributes.is() ) + { + // merge the attribute lists + OAttribListMerger* pMerger = new OAttribListMerger; + // our own one + pMerger->addList(_rxAttrList); + // and the ones of our enclosing element + pMerger->addList(m_xOuterAttributes); + xAttributes = pMerger; + } + else + { + xAttributes = _rxAttrList; + } + + // let the base class handle all the attributes + OElementImport::StartElement(xAttributes); + + if ( !m_aValueProperties.empty() && m_xElement.is()) + { + // get the property set info + if (!m_xInfo.is()) + { + OSL_ENSURE(sal_False, "OControlImport::StartElement: no PropertySetInfo!"); + return; + } + + const sal_Char* pValueProperty = NULL; + const sal_Char* pCurrentValueProperty = NULL; + const sal_Char* pMinValueProperty = NULL; + const sal_Char* pMaxValueProperty = NULL; + + sal_Bool bRetrievedValues = sal_False; + sal_Bool bRetrievedValueLimits = sal_False; + + // get the class id of our element + sal_Int16 nClassId = FormComponentType::CONTROL; + m_xElement->getPropertyValue(PROPERTY_CLASSID) >>= nClassId; + + // translate the value properties we collected in handleAttributes + PropertyValueArray::iterator aEnd = m_aValueProperties.end(); + for ( PropertyValueArray::iterator aValueProps = m_aValueProperties.begin(); + aValueProps != aEnd; + ++aValueProps + ) + { + bool bSuccess = false; + switch (aValueProps->Handle) + { + case PROPID_VALUE: + case PROPID_CURRENT_VALUE: + { + // get the property names + if (!bRetrievedValues) + { + getValuePropertyNames(m_eElementType, nClassId, pCurrentValueProperty, pValueProperty); + ENSURE_OR_BREAK( pCurrentValueProperty && pValueProperty, "OControlImport::StartElement: illegal value property names!" ); + bRetrievedValues = sal_True; + } + OSL_ENSURE((PROPID_VALUE != aValueProps->Handle) || pValueProperty, + "OControlImport::StartElement: the control does not have a value property!"); + OSL_ENSURE((PROPID_CURRENT_VALUE != aValueProps->Handle) || pCurrentValueProperty, + "OControlImport::StartElement: the control does not have a current-value property!"); + + // transfer the name + if (PROPID_VALUE == aValueProps->Handle) + aValueProps->Name = ::rtl::OUString::createFromAscii(pValueProperty); + else + aValueProps->Name = ::rtl::OUString::createFromAscii(pCurrentValueProperty); + bSuccess = true; + } + break; + case PROPID_MIN_VALUE: + case PROPID_MAX_VALUE: + { + // get the property names + if (!bRetrievedValueLimits) + { + getValueLimitPropertyNames(nClassId, pMinValueProperty, pMaxValueProperty); + ENSURE_OR_BREAK( pMinValueProperty && pMaxValueProperty, "OControlImport::StartElement: illegal value limit property names!" ); + bRetrievedValueLimits = sal_True; + } + OSL_ENSURE((PROPID_MIN_VALUE != aValueProps->Handle) || pMinValueProperty, + "OControlImport::StartElement: the control does not have a value property!"); + OSL_ENSURE((PROPID_MAX_VALUE != aValueProps->Handle) || pMaxValueProperty, + "OControlImport::StartElement: the control does not have a current-value property!"); + + // transfer the name + if (PROPID_MIN_VALUE == aValueProps->Handle) + aValueProps->Name = ::rtl::OUString::createFromAscii(pMinValueProperty); + else + aValueProps->Name = ::rtl::OUString::createFromAscii(pMaxValueProperty); + bSuccess = true; + } + break; + } + + if ( !bSuccess ) + continue; + + // translate the value + implTranslateValueProperty(m_xInfo, *aValueProps); + // add the property to the base class' array + implPushBackPropertyValue(*aValueProps); + } + } + } + + //--------------------------------------------------------------------- + void OControlImport::implTranslateValueProperty(const Reference< XPropertySetInfo >& _rxPropInfo, + PropertyValue& _rPropValue) + { + OSL_ENSURE(_rxPropInfo->hasPropertyByName(_rPropValue.Name), + "OControlImport::implTranslateValueProperty: invalid property name!"); + + // retrieve the type of the property + Property aProp = _rxPropInfo->getPropertyByName(_rPropValue.Name); + // the untranslated string value as read in handleAttribute + ::rtl::OUString sValue; + #if OSL_DEBUG_LEVEL > 0 + sal_Bool bSuccess = + #endif + _rPropValue.Value >>= sValue; + OSL_ENSURE(bSuccess, "OControlImport::implTranslateValueProperty: supposed to be called with non-translated string values!"); + + if (TypeClass_ANY == aProp.Type.getTypeClass()) + { + // we have exactly 2 properties where this type class is allowed: + OSL_ENSURE( + (0 == _rPropValue.Name.compareToAscii(PROPERTY_EFFECTIVE_VALUE)) + || (0 == _rPropValue.Name.compareToAscii(PROPERTY_EFFECTIVE_DEFAULT)), + "OControlImport::implTranslateValueProperty: invalid property type/name combination!"); + + // Both properties are allowed to have a double or a string value, + // so first try to convert the string into a number + double nValue; + if (GetImport().GetMM100UnitConverter().convertDouble(nValue, sValue)) + _rPropValue.Value <<= nValue; + else + _rPropValue.Value <<= sValue; + } + else + _rPropValue.Value = PropertyConversion::convertString(GetImport(), aProp.Type, sValue); + } + + //--------------------------------------------------------------------- + void OControlImport::EndElement() + { + OSL_ENSURE(m_xElement.is(), "OControlImport::EndElement: invalid control!"); + if ( !m_xElement.is() ) + return; + + // register our control with it's id + if (m_sControlId.getLength()) + m_rFormImport.registerControlId(m_xElement, m_sControlId); + // it's allowed to have no control id. In this case we're importing a column + + // one more pre-work to do: + // when we set default values, then by definition the respective value is set + // to this default value, too. This means if the sequence contains for example + // a DefaultText value, then the Text will be affected by this, too. + // In case the Text is not part of the property sequence (or occurs _before_ + // the DefaultText, which can happen for other value/default-value property names), + // this means that the Text (the value property) is incorrectly imported. + // #102475# - 04.09.2002 - fs@openoffice.org + + sal_Bool bRestoreValuePropertyValue = sal_False; + Any aValuePropertyValue; + + sal_Int16 nClassId = FormComponentType::CONTROL; + try + { + // get the class id of our element + m_xElement->getPropertyValue(PROPERTY_CLASSID) >>= nClassId; + } + catch( const Exception& ) + { + OSL_ENSURE( sal_False, "OControlImport::EndElement: caught an exception while retrieving the class id!" ); + } + + const sal_Char* pValueProperty = NULL; + const sal_Char* pDefaultValueProperty = NULL; + getRuntimeValuePropertyNames(m_eElementType, nClassId, pValueProperty, pDefaultValueProperty); + if ( pDefaultValueProperty && pValueProperty ) + { + sal_Bool bNonDefaultValuePropertyValue = sal_False; + // is the "value property" part of the sequence? + + // look up this property in our sequence + PropertyValueArray::iterator aEnd = m_aValues.end(); + for ( PropertyValueArray::iterator aCheck = m_aValues.begin(); + ( aCheck != aEnd ); + ++aCheck + ) + { + if ( aCheck->Name.equalsAscii( pDefaultValueProperty ) ) + bRestoreValuePropertyValue = sal_True; + else if ( aCheck->Name.equalsAscii( pValueProperty ) ) + { + bNonDefaultValuePropertyValue = sal_True; + // we need to restore the value property we found here, nothing else + aValuePropertyValue = aCheck->Value; + } + } + + if ( bRestoreValuePropertyValue && !bNonDefaultValuePropertyValue ) + { + // found it -> need to remember (and restore) the "value property value", which is not set explicitly + try + { + aValuePropertyValue = m_xElement->getPropertyValue( ::rtl::OUString::createFromAscii( pValueProperty ) ); + } + catch( const Exception& ) + { + OSL_ENSURE( sal_False, "OControlImport::EndElement: caught an exception while retrieving the current value property!" ); + } + } + } + + // let the base class set all the values + OElementImport::EndElement(); + + // restore the "value property value", if necessary + if ( bRestoreValuePropertyValue && pValueProperty ) + { + try + { + m_xElement->setPropertyValue( ::rtl::OUString::createFromAscii( pValueProperty ), aValuePropertyValue ); + } + catch( const Exception& ) + { + OSL_ENSURE( sal_False, "OControlImport::EndElement: caught an exception while restoring the value property!" ); + } + } + + // the external cell binding, if applicable + if ( m_xElement.is() && m_sBoundCellAddress.getLength() ) + doRegisterCellValueBinding( m_sBoundCellAddress ); + + // XForms binding, if applicable + if ( m_xElement.is() && m_sBindingID.getLength() ) + doRegisterXFormsValueBinding( m_sBindingID ); + + // XForms list binding, if applicable + if ( m_xElement.is() && m_sListBindingID.getLength() ) + doRegisterXFormsListBinding( m_sListBindingID ); + + // XForms submission, if applicable + if ( m_xElement.is() && m_sSubmissionID.getLength() ) + doRegisterXFormsSubmission( m_sSubmissionID ); + } + + //--------------------------------------------------------------------- + void OControlImport::doRegisterCellValueBinding( const ::rtl::OUString& _rBoundCellAddress ) + { + OSL_PRECOND( m_xElement.is(), "OControlImport::doRegisterCellValueBinding: invalid element!" ); + OSL_PRECOND( _rBoundCellAddress.getLength(), + "OControlImport::doRegisterCellValueBinding: invalid address!" ); + + m_rContext.registerCellValueBinding( m_xElement, _rBoundCellAddress ); + } + + //--------------------------------------------------------------------- + void OControlImport::doRegisterXFormsValueBinding( const ::rtl::OUString& _rBindingID ) + { + OSL_PRECOND( m_xElement.is(), "need element" ); + OSL_PRECOND( _rBindingID.getLength() > 0, "binding ID is not valid" ); + + m_rContext.registerXFormsValueBinding( m_xElement, _rBindingID ); + } + + //--------------------------------------------------------------------- + void OControlImport::doRegisterXFormsListBinding( const ::rtl::OUString& _rBindingID ) + { + OSL_PRECOND( m_xElement.is(), "need element" ); + OSL_PRECOND( _rBindingID.getLength() > 0, "binding ID is not valid" ); + + m_rContext.registerXFormsListBinding( m_xElement, _rBindingID ); + } + + //--------------------------------------------------------------------- + void OControlImport::doRegisterXFormsSubmission( const ::rtl::OUString& _rSubmissionID ) + { + OSL_PRECOND( m_xElement.is(), "need element" ); + OSL_PRECOND( _rSubmissionID.getLength() > 0, "binding ID is not valid" ); + + m_rContext.registerXFormsSubmission( m_xElement, _rSubmissionID ); + } + + //--------------------------------------------------------------------- + //added by BerryJia for fixing bug102407 2002-11-5 + Reference< XPropertySet > OControlImport::createElement() + { + const Reference<XPropertySet> xPropSet = OElementImport::createElement(); + if ( xPropSet.is() ) + { + m_xInfo = xPropSet->getPropertySetInfo(); + if ( m_xInfo.is() && m_xInfo->hasPropertyByName(PROPERTY_ALIGN) ) + { + Any aValue; + xPropSet->setPropertyValue(PROPERTY_ALIGN,aValue); + } + } + return xPropSet; + } + + //===================================================================== + //= OImagePositionImport + //===================================================================== + //--------------------------------------------------------------------- + OImagePositionImport::OImagePositionImport( OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, + sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, const Reference< XNameContainer >& _rxParentContainer, + OControlElement::ElementType _eType ) + :OControlImport( _rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType ) + ,m_nImagePosition( -1 ) + ,m_nImageAlign( 0 ) + ,m_bHaveImagePosition( sal_False ) + { + } + + //--------------------------------------------------------------------- + bool OImagePositionImport::handleAttribute( sal_uInt16 _nNamespaceKey, const ::rtl::OUString& _rLocalName, + const ::rtl::OUString& _rValue ) + { + if ( _rLocalName == GetXMLToken( XML_IMAGE_POSITION ) ) + { + OSL_VERIFY( PropertyConversion::convertString( + m_rContext.getGlobalContext(), ::getCppuType( &m_nImagePosition ), + _rValue, OEnumMapper::getEnumMap( OEnumMapper::epImagePosition ) + ) >>= m_nImagePosition ); + m_bHaveImagePosition = sal_True; + return true; + } + + if ( _rLocalName == GetXMLToken( XML_IMAGE_ALIGN ) ) + { + OSL_VERIFY( PropertyConversion::convertString( + m_rContext.getGlobalContext(), ::getCppuType( &m_nImageAlign ), + _rValue, OEnumMapper::getEnumMap( OEnumMapper::epImageAlign ) + ) >>= m_nImageAlign ); + return true; + } + + return OControlImport::handleAttribute( _nNamespaceKey, _rLocalName, _rValue ); + } + + //--------------------------------------------------------------------- + void OImagePositionImport::StartElement(const Reference< sax::XAttributeList >& _rxAttrList) + { + OControlImport::StartElement( _rxAttrList ); + + if ( m_bHaveImagePosition ) + { + sal_Int16 nUnoImagePosition = ImagePosition::Centered; + if ( m_nImagePosition >= 0 ) + { + OSL_ENSURE( ( m_nImagePosition <= 3 ) && ( m_nImageAlign >= 0 ) && ( m_nImageAlign < 3 ), + "OImagePositionImport::StartElement: unknown image align and/or position!" ); + nUnoImagePosition = m_nImagePosition * 3 + m_nImageAlign; + } + + PropertyValue aImagePosition; + aImagePosition.Name = PROPERTY_IMAGE_POSITION; + aImagePosition.Value <<= nUnoImagePosition; + implPushBackPropertyValue( aImagePosition ); + } + } + + //===================================================================== + //= OReferredControlImport + //===================================================================== + //--------------------------------------------------------------------- + OReferredControlImport::OReferredControlImport( + OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer, + OControlElement::ElementType ) + :OControlImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer) + { + } + + //--------------------------------------------------------------------- + void OReferredControlImport::StartElement(const Reference< sax::XAttributeList >& _rxAttrList) + { + OControlImport::StartElement(_rxAttrList); + + // the base class should have created the control, so we can register it + if ( m_sReferringControls.getLength() ) + m_rFormImport.registerControlReferences(m_xElement, m_sReferringControls); + } + + //--------------------------------------------------------------------- + bool OReferredControlImport::handleAttribute(sal_uInt16 _nNamespaceKey, const ::rtl::OUString& _rLocalName, + const ::rtl::OUString& _rValue) + { + static const ::rtl::OUString s_sReferenceAttributeName = ::rtl::OUString::createFromAscii(OAttributeMetaData::getCommonControlAttributeName(CCA_FOR)); + if (_rLocalName == s_sReferenceAttributeName) + { + m_sReferringControls = _rValue; + return true; + } + return OControlImport::handleAttribute(_nNamespaceKey, _rLocalName, _rValue); + } + + //===================================================================== + //= OPasswordImport + //===================================================================== + //--------------------------------------------------------------------- + OPasswordImport::OPasswordImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer, OControlElement::ElementType _eType) + :OControlImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType) + { + } + + //--------------------------------------------------------------------- + bool OPasswordImport::handleAttribute(sal_uInt16 _nNamespaceKey, const ::rtl::OUString& _rLocalName, const ::rtl::OUString& _rValue) + { + static const ::rtl::OUString s_sEchoCharAttributeName = ::rtl::OUString::createFromAscii(OAttributeMetaData::getSpecialAttributeName(SCA_ECHO_CHAR)); + if (_rLocalName == s_sEchoCharAttributeName) + { + // need a special handling for the EchoChar property + PropertyValue aEchoChar; + aEchoChar.Name = PROPERTY_ECHOCHAR; + OSL_ENSURE(_rValue.getLength() == 1, "OPasswordImport::handleAttribute: invalid echo char attribute!"); + // we ourself should not have written values other than of length 1 + if (_rValue.getLength() >= 1) + aEchoChar.Value <<= (sal_Int16)_rValue.getStr()[0]; + else + aEchoChar.Value <<= (sal_Int16)0; + implPushBackPropertyValue(aEchoChar); + return true; + } + return OControlImport::handleAttribute(_nNamespaceKey, _rLocalName, _rValue); + } + + //===================================================================== + //= ORadioImport + //===================================================================== + //--------------------------------------------------------------------- + ORadioImport::ORadioImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer, OControlElement::ElementType _eType) + :OImagePositionImport( _rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType ) + { + } + + //--------------------------------------------------------------------- + bool ORadioImport::handleAttribute(sal_uInt16 _nNamespaceKey, const ::rtl::OUString& _rLocalName, const ::rtl::OUString& _rValue) + { + // need special handling for the State & CurrentState properties: + // they're stored as booleans, but expected to be int16 properties + static const sal_Char* pCurrentSelectedAttributeName = OAttributeMetaData::getCommonControlAttributeName(CCA_CURRENT_SELECTED); + static const sal_Char* pSelectedAttributeName = OAttributeMetaData::getCommonControlAttributeName(CCA_SELECTED); + if ( _rLocalName.equalsAscii( pCurrentSelectedAttributeName ) + || _rLocalName.equalsAscii( pSelectedAttributeName ) + ) + { + const OAttribute2Property::AttributeAssignment* pProperty = m_rContext.getAttributeMap().getAttributeTranslation(_rLocalName); + OSL_ENSURE(pProperty, "ORadioImport::handleAttribute: invalid property map!"); + if (pProperty) + { + const Any aBooleanValue( PropertyConversion::convertString(m_rContext.getGlobalContext(), pProperty->aPropertyType, _rValue, pProperty->pEnumMap) ); + + // create and store a new PropertyValue + PropertyValue aNewValue; + aNewValue.Name = pProperty->sPropertyName; + aNewValue.Value <<= (sal_Int16)::cppu::any2bool(aBooleanValue); + + implPushBackPropertyValue(aNewValue); + } + return true; + } + return OImagePositionImport::handleAttribute( _nNamespaceKey, _rLocalName, _rValue ); + } + + //===================================================================== + //= OURLReferenceImport + //===================================================================== + OURLReferenceImport::OURLReferenceImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer, + OControlElement::ElementType _eType) + :OImagePositionImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType) + { + } + + //--------------------------------------------------------------------- + bool OURLReferenceImport::handleAttribute(sal_uInt16 _nNamespaceKey, const ::rtl::OUString& _rLocalName, const ::rtl::OUString& _rValue) + { + static const sal_Char* s_pTargetLocationAttributeName = OAttributeMetaData::getCommonControlAttributeName( CCA_TARGET_LOCATION ); + static const sal_Char* s_pImageDataAttributeName = OAttributeMetaData::getCommonControlAttributeName( CCA_IMAGE_DATA ); + + // need to make the URL absolute if + // * it's the image-data attribute + // * it's the target-location attribute, and we're dealign with an object which has the respective property + sal_Bool bMakeAbsolute = + ( 0 == _rLocalName.compareToAscii( s_pImageDataAttributeName ) ) + || ( ( 0 == _rLocalName.compareToAscii( s_pTargetLocationAttributeName ) ) + && ( ( OControlElement::BUTTON == m_eElementType ) + || ( OControlElement::IMAGE == m_eElementType ) + ) + ); + + if ( bMakeAbsolute && ( _rValue.getLength() > 0 ) ) + { + // make a global URL out of the local one + ::rtl::OUString sAdjustedValue; + // only resolve image related url + // we don't want say form url targets to be resolved + // using ResolveGraphicObjectURL + if ( 0 == _rLocalName.compareToAscii( s_pImageDataAttributeName ) ) + sAdjustedValue = m_rContext.getGlobalContext().ResolveGraphicObjectURL( _rValue, FALSE ); + else + sAdjustedValue = m_rContext.getGlobalContext().GetAbsoluteReference( _rValue ); + return OImagePositionImport::handleAttribute( _nNamespaceKey, _rLocalName, sAdjustedValue ); + } + + return OImagePositionImport::handleAttribute( _nNamespaceKey, _rLocalName, _rValue ); + } + + //===================================================================== + //= OButtonImport + //===================================================================== + //--------------------------------------------------------------------- + OButtonImport::OButtonImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer, + OControlElement::ElementType _eType) + :OURLReferenceImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType) + { + enableTrackAttributes(); + } + + //--------------------------------------------------------------------- + void OButtonImport::StartElement(const Reference< sax::XAttributeList >& _rxAttrList) + { + OURLReferenceImport::StartElement(_rxAttrList); + + // handle the target-frame attribute + simulateDefaultedAttribute(OAttributeMetaData::getCommonControlAttributeName(CCA_TARGET_FRAME), PROPERTY_TARGETFRAME, "_blank"); + } + + //===================================================================== + //= OValueRangeImport + //===================================================================== + //--------------------------------------------------------------------- + OValueRangeImport::OValueRangeImport( OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer, OControlElement::ElementType _eType ) + :OControlImport( _rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType ) + ,m_nStepSizeValue( 1 ) + { + + } + + //--------------------------------------------------------------------- + bool OValueRangeImport::handleAttribute( sal_uInt16 _nNamespaceKey, const ::rtl::OUString& _rLocalName, const ::rtl::OUString& _rValue ) + { + if ( _rLocalName.equalsAscii( OAttributeMetaData::getSpecialAttributeName( SCA_STEP_SIZE ) ) ) + { + GetImport().GetMM100UnitConverter().convertNumber( m_nStepSizeValue, _rValue ); + return true; + } + return OControlImport::handleAttribute( _nNamespaceKey, _rLocalName, _rValue ); + } + + //--------------------------------------------------------------------- + void OValueRangeImport::StartElement( const Reference< sax::XAttributeList >& _rxAttrList ) + { + OControlImport::StartElement( _rxAttrList ); + + if ( m_xInfo.is() ) + { + if ( m_xInfo->hasPropertyByName( PROPERTY_SPIN_INCREMENT ) ) + m_xElement->setPropertyValue( PROPERTY_SPIN_INCREMENT, makeAny( m_nStepSizeValue ) ); + else if ( m_xInfo->hasPropertyByName( PROPERTY_LINE_INCREMENT ) ) + m_xElement->setPropertyValue( PROPERTY_LINE_INCREMENT, makeAny( m_nStepSizeValue ) ); + } + } + + //===================================================================== + //= OTextLikeImport + //===================================================================== + //--------------------------------------------------------------------- + OTextLikeImport::OTextLikeImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer, + OControlElement::ElementType _eType) + :OControlImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType) + ,m_bEncounteredTextPara( false ) + { + enableTrackAttributes(); + } + + //--------------------------------------------------------------------- + SvXMLImportContext* OTextLikeImport::CreateChildContext( sal_uInt16 _nPrefix, const ::rtl::OUString& _rLocalName, + const Reference< sax::XAttributeList >& _rxAttrList ) + { + if ( ( XML_NAMESPACE_TEXT == _nPrefix ) && _rLocalName.equalsIgnoreAsciiCaseAscii( "p" ) ) + { + OSL_ENSURE( m_eElementType == OControlElement::TEXT_AREA, + "OTextLikeImport::CreateChildContext: text paragraphs in a non-text-area?" ); + + if ( m_eElementType == OControlElement::TEXT_AREA ) + { + Reference< XText > xTextElement( m_xElement, UNO_QUERY ); + if ( xTextElement.is() ) + { + UniReference < XMLTextImportHelper > xTextImportHelper( m_rContext.getGlobalContext().GetTextImport() ); + + if ( !m_xCursor.is() ) + { + m_xOldCursor = xTextImportHelper->GetCursor(); + m_xCursor = xTextElement->createTextCursor(); + + if ( m_xCursor.is() ) + xTextImportHelper->SetCursor( m_xCursor ); + } + if ( m_xCursor.is() ) + { + m_bEncounteredTextPara = true; + return xTextImportHelper->CreateTextChildContext( m_rContext.getGlobalContext(), _nPrefix, _rLocalName, _rxAttrList ); + } + } + else + { + // in theory, we could accumulate all the text portions (without formatting), + // and set it as Text property at the model ... + } + } + } + + return OControlImport::CreateChildContext( _nPrefix, _rLocalName, _rxAttrList ); + } + + //--------------------------------------------------------------------- + void OTextLikeImport::StartElement(const Reference< sax::XAttributeList >& _rxAttrList) + { + OControlImport::StartElement(_rxAttrList); + + // handle the convert-empty-to-null attribute, whose default is different from the property default + // unfortunately, different classes are imported by this class ('cause they're represented by the + // same XML element), though not all of them know this property. + // So we have to do a check ... + if (m_xElement.is() && m_xInfo.is() && m_xInfo->hasPropertyByName(PROPERTY_EMPTY_IS_NULL) ) + simulateDefaultedAttribute(OAttributeMetaData::getDatabaseAttributeName(DA_CONVERT_EMPTY), PROPERTY_EMPTY_IS_NULL, "false"); + } + + //--------------------------------------------------------------------- + struct EqualHandle : public ::std::unary_function< PropertyValue, bool > + { + const sal_Int32 m_nHandle; + EqualHandle( sal_Int32 _nHandle ) : m_nHandle( _nHandle ) { } + + inline bool operator()( const PropertyValue& _rProp ) + { + return _rProp.Handle == m_nHandle; + } + }; + + //--------------------------------------------------------------------- + void OTextLikeImport::removeRedundantCurrentValue() + { + if ( m_bEncounteredTextPara ) + { + // In case the text is written in the text:p elements, we need to ignore what we read as + // current-value attribute, since it's redundant. + // fortunately, OElementImport tagged the value property with the PROPID_CURRENT_VALUE + // handle, so we do not need to determine the name of our value property here + // (normally, it should be "Text", since no other controls than the edit field should + // have the text:p elements) + PropertyValueArray::iterator aValuePropertyPos = ::std::find_if( + m_aValues.begin(), + m_aValues.end(), + EqualHandle( PROPID_CURRENT_VALUE ) + ); + if ( aValuePropertyPos != m_aValues.end() ) + { + OSL_ENSURE( aValuePropertyPos->Name == PROPERTY_TEXT, "OTextLikeImport::EndElement: text:p was present, but our value property is *not* 'Text'!" ); + if ( aValuePropertyPos->Name == PROPERTY_TEXT ) + { + ::std::copy( + aValuePropertyPos + 1, + m_aValues.end(), + aValuePropertyPos + ); + m_aValues.resize( m_aValues.size() - 1 ); + } + } + + // additionally, we need to set the "RichText" property of our element to TRUE + // (the presence of the text:p is used as indicator for the value of the RichText property) + sal_Bool bHasRichTextProperty = sal_False; + if ( m_xInfo.is() ) + bHasRichTextProperty = m_xInfo->hasPropertyByName( PROPERTY_RICH_TEXT ); + OSL_ENSURE( bHasRichTextProperty, "OTextLikeImport::EndElement: text:p, but no rich text control?" ); + if ( bHasRichTextProperty ) + m_xElement->setPropertyValue( PROPERTY_RICH_TEXT, makeAny( (sal_Bool)sal_True ) ); + } + // Note that we do *not* set the RichText property (in case our element has one) to sal_False here + // since this is the default of this property, anyway. + } + + //--------------------------------------------------------------------- + struct EqualName : public ::std::unary_function< PropertyValue, bool > + { + const ::rtl::OUString m_sName; + EqualName( const ::rtl::OUString& _rName ) : m_sName( _rName ) { } + + inline bool operator()( const PropertyValue& _rProp ) + { + return _rProp.Name == m_sName; + } + }; + + //--------------------------------------------------------------------- + void OTextLikeImport::adjustDefaultControlProperty() + { + // In OpenOffice.org 2.0, we changed the implementation of the css.form.component.TextField (the model of a text field control), + // so that it now uses another default control. So if we encounter a text field where the *old* default + // control property is writting, we are not allowed to use it + PropertyValueArray::iterator aDefaultControlPropertyPos = ::std::find_if( + m_aValues.begin(), + m_aValues.end(), + EqualName( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "DefaultControl" ) ) ) + ); + if ( aDefaultControlPropertyPos != m_aValues.end() ) + { + ::rtl::OUString sDefaultControl; + OSL_VERIFY( aDefaultControlPropertyPos->Value >>= sDefaultControl ); + if ( sDefaultControl.equalsAscii( "stardiv.one.form.control.Edit" ) ) + { + // complete remove this property value from the array. Today's "default value" of the "DefaultControl" + // property is sufficient + ::std::copy( + aDefaultControlPropertyPos + 1, + m_aValues.end(), + aDefaultControlPropertyPos + ); + m_aValues.resize( m_aValues.size() - 1 ); + } + } + } + + //--------------------------------------------------------------------- + void OTextLikeImport::EndElement() + { + removeRedundantCurrentValue(); + adjustDefaultControlProperty(); + + // let the base class do the stuff + OControlImport::EndElement(); + + // some cleanups + UniReference < XMLTextImportHelper > xTextImportHelper( m_rContext.getGlobalContext().GetTextImport() ); + if ( m_xCursor.is() ) + { + // delete the newline which has been imported errornously + // TODO (fs): stole this code somewhere - why don't we fix the text import?? + m_xCursor->gotoEnd( sal_False ); + m_xCursor->goLeft( 1, sal_True ); + m_xCursor->setString( ::rtl::OUString() ); + + // reset cursor + xTextImportHelper->ResetCursor(); + } + + if ( m_xOldCursor.is() ) + xTextImportHelper->SetCursor( m_xOldCursor ); + + } + + //===================================================================== + //= OListAndComboImport + //===================================================================== + //--------------------------------------------------------------------- + OListAndComboImport::OListAndComboImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer, + OControlElement::ElementType _eType) + :OControlImport(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, _eType) + ,m_nEmptyListItems( 0 ) + ,m_nEmptyValueItems( 0 ) + ,m_bEncounteredLSAttrib( sal_False ) + ,m_bLinkWithIndexes( sal_False ) + { + if (OControlElement::COMBOBOX == m_eElementType) + enableTrackAttributes(); + } + + //--------------------------------------------------------------------- + SvXMLImportContext* OListAndComboImport::CreateChildContext(sal_uInt16 _nPrefix, const ::rtl::OUString& _rLocalName, + const Reference< sax::XAttributeList >& _rxAttrList) + { + // is it the "option" sub tag of a listbox ? + static const ::rtl::OUString s_sOptionElementName = ::rtl::OUString::createFromAscii("option"); + if (s_sOptionElementName == _rLocalName) + return new OListOptionImport(GetImport(), _nPrefix, _rLocalName, this); + + // is it the "item" sub tag of a combobox ? + static const ::rtl::OUString s_sItemElementName = ::rtl::OUString::createFromAscii("item"); + if (s_sItemElementName == _rLocalName) + return new OComboItemImport(GetImport(), _nPrefix, _rLocalName, this); + + // everything else + return OControlImport::CreateChildContext(_nPrefix, _rLocalName, _rxAttrList); + } + + //--------------------------------------------------------------------- + void OListAndComboImport::StartElement(const Reference< sax::XAttributeList >& _rxAttrList) + { + m_bLinkWithIndexes = sal_False; + + OControlImport::StartElement(_rxAttrList); + + if (OControlElement::COMBOBOX == m_eElementType) + { + // for the auto-completion + // the attribute default does not equal the property default, so in case we did not read this attribute, + // we have to simulate it + simulateDefaultedAttribute( OAttributeMetaData::getSpecialAttributeName( SCA_AUTOMATIC_COMPLETION ), PROPERTY_AUTOCOMPLETE, "false"); + + // same for the convert-empty-to-null attribute, which's default is different from the property default + simulateDefaultedAttribute( OAttributeMetaData::getDatabaseAttributeName( DA_CONVERT_EMPTY ), PROPERTY_EMPTY_IS_NULL, "false"); + } + } + + //--------------------------------------------------------------------- + void OListAndComboImport::EndElement() + { + // append the list source property the the properties sequence of our importer + // the string item list + PropertyValue aItemList; + aItemList.Name = PROPERTY_STRING_ITEM_LIST; + aItemList.Value <<= m_aListSource; + implPushBackPropertyValue(aItemList); + + if (OControlElement::LISTBOX == m_eElementType) + { + OSL_ENSURE((m_aListSource.getLength() + m_nEmptyListItems) == (m_aValueList.getLength() + m_nEmptyValueItems), + "OListAndComboImport::EndElement: inconsistence between labels and values!"); + + if ( !m_bEncounteredLSAttrib ) + { + // the value sequence + PropertyValue aValueList; + aValueList.Name = PROPERTY_LISTSOURCE; + aValueList.Value <<= m_aValueList; + implPushBackPropertyValue(aValueList); + } + + // the select sequence + PropertyValue aSelected; + aSelected.Name = PROPERTY_SELECT_SEQ; + aSelected.Value <<= m_aSelectedSeq; + implPushBackPropertyValue(aSelected); + + // the default select sequence + PropertyValue aDefaultSelected; + aDefaultSelected.Name = PROPERTY_DEFAULT_SELECT_SEQ; + aDefaultSelected.Value <<= m_aDefaultSelectedSeq; + implPushBackPropertyValue(aDefaultSelected); + } + + OControlImport::EndElement(); + + // the external list source, if applicable + if ( m_xElement.is() && m_sCellListSource.getLength() ) + m_rContext.registerCellRangeListSource( m_xElement, m_sCellListSource ); + } + + //--------------------------------------------------------------------- + void OListAndComboImport::doRegisterCellValueBinding( const ::rtl::OUString& _rBoundCellAddress ) + { + ::rtl::OUString sBoundCellAddress( _rBoundCellAddress ); + if ( m_bLinkWithIndexes ) + { + // This is a HACK. We register a string which is no valid address, but allows + // (somewhere else) to determine that a non-standard binding should be created. + // This hack is acceptable for OOo 1.1.1, since the file format for value + // bindings of form controls is to be changed afterwards, anyway. + sBoundCellAddress += ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ":index" ) ); + } + + OControlImport::doRegisterCellValueBinding( sBoundCellAddress ); + } + + //--------------------------------------------------------------------- + bool OListAndComboImport::handleAttribute(sal_uInt16 _nNamespaceKey, const ::rtl::OUString& _rLocalName, const ::rtl::OUString& _rValue) + { + static const sal_Char* pListSourceAttributeName = OAttributeMetaData::getDatabaseAttributeName(DA_LIST_SOURCE); + if ( _rLocalName.equalsAscii(pListSourceAttributeName) ) + { + PropertyValue aListSource; + aListSource.Name = PROPERTY_LISTSOURCE; + + // it's the ListSource attribute + m_bEncounteredLSAttrib = sal_True; + if ( OControlElement::COMBOBOX == m_eElementType ) + { + aListSource.Value <<= _rValue; + } + else + { + // a listbox which has a list-source attribute must have a list-source-type of something + // not equal to ValueList. + // In this case, the list-source value is simply the one and only element of the ListSource property. + Sequence< ::rtl::OUString > aListSourcePropValue( 1 ); + aListSourcePropValue[0] = _rValue; + aListSource.Value <<= aListSourcePropValue; + } + + implPushBackPropertyValue( aListSource ); + return true; + } + + if ( _rLocalName.equalsAscii( OAttributeMetaData::getBindingAttributeName( BA_LIST_CELL_RANGE ) ) ) + { + m_sCellListSource = _rValue; + return true; + } + + if ( _rLocalName.equalsAscii( OAttributeMetaData::getBindingAttributeName( BA_LIST_LINKING_TYPE ) ) ) + { + sal_Int16 nLinkageType = 0; + PropertyConversion::convertString( + m_rContext.getGlobalContext(), + ::getCppuType( static_cast< sal_Int16* >( NULL ) ), + _rValue, + OEnumMapper::getEnumMap( OEnumMapper::epListLinkageType ) + ) >>= nLinkageType; + + m_bLinkWithIndexes = ( nLinkageType != 0 ); + return true; + } + + return OControlImport::handleAttribute(_nNamespaceKey, _rLocalName, _rValue); + } + + //--------------------------------------------------------------------- + void OListAndComboImport::implPushBackLabel(const ::rtl::OUString& _rLabel) + { + OSL_ENSURE(!m_nEmptyListItems, "OListAndComboImport::implPushBackValue: label list is already done!"); + if (!m_nEmptyListItems) + pushBackSequenceElement(m_aListSource, _rLabel); + } + + //--------------------------------------------------------------------- + void OListAndComboImport::implPushBackValue(const ::rtl::OUString& _rValue) + { + OSL_ENSURE(!m_nEmptyValueItems, "OListAndComboImport::implPushBackValue: value list is already done!"); + if (!m_nEmptyValueItems) + { + OSL_ENSURE( !m_bEncounteredLSAttrib, "OListAndComboImport::implPushBackValue: invalid structure! Did you save this document with a version prior SRC641 m?" ); + // We already had the list-source attribute, which means that the ListSourceType is + // not ValueList, which means that the ListSource should contain only one string in + // the first element of the sequence + // All other values in the file are invalid + + pushBackSequenceElement( m_aValueList, _rValue ); + } + } + + //--------------------------------------------------------------------- + void OListAndComboImport::implEmptyLabelFound() + { + ++m_nEmptyListItems; + } + + //--------------------------------------------------------------------- + void OListAndComboImport::implEmptyValueFound() + { + ++m_nEmptyValueItems; + } + + //--------------------------------------------------------------------- + void OListAndComboImport::implSelectCurrentItem() + { + OSL_ENSURE((m_aListSource.getLength() + m_nEmptyListItems) == (m_aValueList.getLength() + m_nEmptyValueItems), + "OListAndComboImport::implSelectCurrentItem: inconsistence between labels and values!"); + + sal_Int16 nItemNumber = (sal_Int16)(m_aListSource.getLength() - 1 + m_nEmptyListItems); + pushBackSequenceElement(m_aSelectedSeq, nItemNumber); + } + + //--------------------------------------------------------------------- + void OListAndComboImport::implDefaultSelectCurrentItem() + { + OSL_ENSURE((m_aListSource.getLength() + m_nEmptyListItems) == (m_aValueList.getLength() + m_nEmptyValueItems), + "OListAndComboImport::implDefaultSelectCurrentItem: inconsistence between labels and values!"); + + sal_Int16 nItemNumber = (sal_Int16)(m_aListSource.getLength() - 1 + m_nEmptyListItems); + pushBackSequenceElement(m_aDefaultSelectedSeq, nItemNumber); + } + + //===================================================================== + //= OListOptionImport + //===================================================================== + //--------------------------------------------------------------------- + OListOptionImport::OListOptionImport(SvXMLImport& _rImport, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const OListAndComboImportRef& _rListBox) + :SvXMLImportContext(_rImport, _nPrefix, _rName) + ,m_xListBoxImport(_rListBox) + { + } + + //--------------------------------------------------------------------- + void OListOptionImport::StartElement(const Reference< sax::XAttributeList >& _rxAttrList) + { + // the label and the value + const SvXMLNamespaceMap& rMap = GetImport().GetNamespaceMap(); + const ::rtl::OUString sLabelAttribute = rMap.GetQNameByKey( + GetPrefix(), ::rtl::OUString::createFromAscii("label")); + const ::rtl::OUString sValueAttribute = rMap.GetQNameByKey( + GetPrefix(), ::rtl::OUString::createFromAscii("value")); + + // ------------------- + // the label attribute + ::rtl::OUString sValue = _rxAttrList->getValueByName(sLabelAttribute); + sal_Bool bNonexistentAttribute = sal_False; + if (!sValue.getLength()) + if (0 == _rxAttrList->getTypeByName(sLabelAttribute).getLength()) + // this attribute does not really exist + bNonexistentAttribute = sal_True; + + if (bNonexistentAttribute) + m_xListBoxImport->implEmptyLabelFound(); + else + m_xListBoxImport->implPushBackLabel( sValue ); + + // ------------------- + // the value attribute + sValue = _rxAttrList->getValueByName(sValueAttribute); + bNonexistentAttribute = sal_False; + if (!sValue.getLength()) + if (0 == _rxAttrList->getTypeByName(sValueAttribute).getLength()) + // this attribute does not really exist + bNonexistentAttribute = sal_True; + + if (bNonexistentAttribute) + m_xListBoxImport->implEmptyValueFound(); + else + m_xListBoxImport->implPushBackValue( sValue ); + + // the current-selected and selected + const ::rtl::OUString sSelectedAttribute = rMap.GetQNameByKey( + GetPrefix(), ::rtl::OUString::createFromAscii(OAttributeMetaData::getCommonControlAttributeName(CCA_CURRENT_SELECTED))); + const ::rtl::OUString sDefaultSelectedAttribute = rMap.GetQNameByKey( + GetPrefix(), ::rtl::OUString::createFromAscii(OAttributeMetaData::getCommonControlAttributeName(CCA_SELECTED))); + + // propagate the selected flag + sal_Bool bSelected; + GetImport().GetMM100UnitConverter().convertBool(bSelected, _rxAttrList->getValueByName(sSelectedAttribute)); + if (bSelected) + m_xListBoxImport->implSelectCurrentItem(); + + // same for the default selected + sal_Bool bDefaultSelected; + GetImport().GetMM100UnitConverter().convertBool(bDefaultSelected, _rxAttrList->getValueByName(sDefaultSelectedAttribute)); + if (bDefaultSelected) + m_xListBoxImport->implDefaultSelectCurrentItem(); + + SvXMLImportContext::StartElement(_rxAttrList); + } + + //===================================================================== + //= OComboItemImport + //===================================================================== + //--------------------------------------------------------------------- + OComboItemImport::OComboItemImport(SvXMLImport& _rImport, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const OListAndComboImportRef& _rListBox) + :SvXMLImportContext(_rImport, _nPrefix, _rName) + ,m_xListBoxImport(_rListBox) + { + } + + //--------------------------------------------------------------------- + void OComboItemImport::StartElement(const Reference< sax::XAttributeList >& _rxAttrList) + { + const ::rtl::OUString sLabelAttributeName = GetImport().GetNamespaceMap().GetQNameByKey( + GetPrefix(), ::rtl::OUString::createFromAscii(OAttributeMetaData::getCommonControlAttributeName(CCA_LABEL))); + m_xListBoxImport->implPushBackLabel(_rxAttrList->getValueByName(sLabelAttributeName)); + + SvXMLImportContext::StartElement(_rxAttrList); + } + + + //===================================================================== + //= OColumnWrapperImport + //===================================================================== + //--------------------------------------------------------------------- + OColumnWrapperImport::OColumnWrapperImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer) + :SvXMLImportContext(_rImport.getGlobalContext(), _nPrefix, _rName) + ,m_xParentContainer(_rxParentContainer) + ,m_rFormImport(_rImport) + ,m_rEventManager(_rEventManager) + { + } + //--------------------------------------------------------------------- + SvXMLImportContext* OColumnWrapperImport::CreateChildContext(sal_uInt16 _nPrefix, const ::rtl::OUString& _rLocalName, + const Reference< sax::XAttributeList >&) + { + OControlImport* pReturn = implCreateChildContext(_nPrefix, _rLocalName, OElementNameMap::getElementType(_rLocalName)); + if (pReturn) + { + OSL_ENSURE(m_xOwnAttributes.is(), "OColumnWrapperImport::CreateChildContext: had no form:column element!"); + pReturn->addOuterAttributes(m_xOwnAttributes); + } + return pReturn; + } + //--------------------------------------------------------------------- + void OColumnWrapperImport::StartElement(const Reference< sax::XAttributeList >& _rxAttrList) + { + OSL_ENSURE(!m_xOwnAttributes.is(), "OColumnWrapperImport::StartElement: aready have the cloned list!"); + + // clone the attributes + Reference< XCloneable > xCloneList(_rxAttrList, UNO_QUERY); + OSL_ENSURE(xCloneList.is(), "OColumnWrapperImport::StartElement: AttributeList not cloneable!"); + if ( xCloneList.is() ) + m_xOwnAttributes = Reference< sax::XAttributeList >(xCloneList->createClone(), UNO_QUERY); + OSL_ENSURE(m_xOwnAttributes.is(), "OColumnWrapperImport::StartElement: no cloned list!"); + } + + //--------------------------------------------------------------------- + OControlImport* OColumnWrapperImport::implCreateChildContext( + sal_uInt16 _nPrefix, const ::rtl::OUString& _rLocalName, + OControlElement::ElementType _eType) + { + OSL_ENSURE( (OControlElement::TEXT == _eType) + || (OControlElement::TEXT_AREA == _eType) + || (OControlElement::FORMATTED_TEXT == _eType) + || (OControlElement::CHECKBOX == _eType) + || (OControlElement::LISTBOX == _eType) + || (OControlElement::COMBOBOX == _eType) + || (OControlElement::TIME == _eType) + || (OControlElement::DATE == _eType), + "OColumnWrapperImport::implCreateChildContext: invalid or unrecognized sub element!"); + + switch (_eType) + { + case OControlElement::COMBOBOX: + case OControlElement::LISTBOX: + return new OColumnImport<OListAndComboImport>(m_rFormImport, m_rEventManager, _nPrefix, _rLocalName, m_xParentContainer, _eType ); + + case OControlElement::PASSWORD: + return new OColumnImport<OPasswordImport>(m_rFormImport, m_rEventManager, _nPrefix, _rLocalName, m_xParentContainer, _eType ); + + case OControlElement::TEXT: + case OControlElement::TEXT_AREA: + case OControlElement::FORMATTED_TEXT: + return new OColumnImport< OTextLikeImport >( m_rFormImport, m_rEventManager, _nPrefix, _rLocalName, m_xParentContainer, _eType ); + + default: + return new OColumnImport<OControlImport>(m_rFormImport, m_rEventManager, _nPrefix, _rLocalName, m_xParentContainer, _eType ); + } + } + + //===================================================================== + //= OGridImport + //===================================================================== + //--------------------------------------------------------------------- + OGridImport::OGridImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer, + OControlElement::ElementType _eType) + :OGridImport_Base(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, "column") + { + setElementType(_eType); + } + + //--------------------------------------------------------------------- + SvXMLImportContext* OGridImport::implCreateControlWrapper(sal_uInt16 _nPrefix, const ::rtl::OUString& _rLocalName) + { + return new OColumnWrapperImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer); + } + + //===================================================================== + //= OFormImport + //===================================================================== + //--------------------------------------------------------------------- + OFormImport::OFormImport(OFormLayerXMLImport_Impl& _rImport, IEventAttacherManager& _rEventManager, sal_uInt16 _nPrefix, const ::rtl::OUString& _rName, + const Reference< XNameContainer >& _rxParentContainer) + :OFormImport_Base(_rImport, _rEventManager, _nPrefix, _rName, _rxParentContainer, "control") + { + enableTrackAttributes(); + } + + //--------------------------------------------------------------------- + SvXMLImportContext* OFormImport::CreateChildContext(sal_uInt16 _nPrefix, const ::rtl::OUString& _rLocalName, + const Reference< sax::XAttributeList >& _rxAttrList) + { + if( token::IsXMLToken(_rLocalName, token::XML_FORM) ) + return new OFormImport( m_rFormImport, *this, _nPrefix, _rLocalName, + m_xMeAsContainer); + else if ( token::IsXMLToken(_rLocalName, token::XML_CONNECTION_RESOURCE) ) + return new OXMLDataSourceImport(GetImport(), _nPrefix, _rLocalName, _rxAttrList,m_xElement); + else if( (token::IsXMLToken(_rLocalName, token::XML_EVENT_LISTENERS) && + (XML_NAMESPACE_OFFICE == _nPrefix)) || + token::IsXMLToken( _rLocalName, token::XML_PROPERTIES) ) + return OElementImport::CreateChildContext( _nPrefix, _rLocalName, + _rxAttrList ); + else + return implCreateChildContext( _nPrefix, _rLocalName, + OElementNameMap::getElementType(_rLocalName) ); + } + + //--------------------------------------------------------------------- + void OFormImport::StartElement(const Reference< sax::XAttributeList >& _rxAttrList) + { + m_rFormImport.enterEventContext(); + OFormImport_Base::StartElement(_rxAttrList); + + // handle the target-frame attribute + simulateDefaultedAttribute(OAttributeMetaData::getCommonControlAttributeName(CCA_TARGET_FRAME), PROPERTY_TARGETFRAME, "_blank"); + } + + //--------------------------------------------------------------------- + void OFormImport::EndElement() + { + OFormImport_Base::EndElement(); + m_rFormImport.leaveEventContext(); + } + + //--------------------------------------------------------------------- + SvXMLImportContext* OFormImport::implCreateControlWrapper(sal_uInt16 _nPrefix, const ::rtl::OUString& _rLocalName) + { + OSL_ENSURE( !this, "illegal call to OFormImport::implCreateControlWrapper" ); + return new SvXMLImportContext(GetImport(), _nPrefix, _rLocalName ); + } + + //--------------------------------------------------------------------- + bool OFormImport::handleAttribute(sal_uInt16 _nNamespaceKey, const ::rtl::OUString& _rLocalName, const ::rtl::OUString& _rValue) + { + // handle the master/details field attributes (they're way too special to let the OPropertyImport handle them) + static const ::rtl::OUString s_sMasterFieldsAttributeName = ::rtl::OUString::createFromAscii(OAttributeMetaData::getFormAttributeName(faMasterFields)); + static const ::rtl::OUString s_sDetailFieldsAttributeName = ::rtl::OUString::createFromAscii(OAttributeMetaData::getFormAttributeName(faDetailFiels)); + + if ( s_sMasterFieldsAttributeName == _rLocalName ) + { + implTranslateStringListProperty(PROPERTY_MASTERFIELDS, _rValue); + return true; + } + + if ( s_sDetailFieldsAttributeName == _rLocalName ) + { + implTranslateStringListProperty(PROPERTY_DETAILFIELDS, _rValue); + return true; + } + + return OFormImport_Base::handleAttribute(_nNamespaceKey, _rLocalName, _rValue); + } + + //--------------------------------------------------------------------- + void OFormImport::implTranslateStringListProperty(const ::rtl::OUString& _rPropertyName, const ::rtl::OUString& _rValue) + { + PropertyValue aProp; + aProp.Name = _rPropertyName; + + Sequence< ::rtl::OUString > aList; + + // split up the value string + if (_rValue.getLength()) + { + // For the moment, we build a vector instead of a Sequence. It's easier to handle because of it's + // push_back method + ::std::vector< ::rtl::OUString > aElements; + // estimate the number of tokens + sal_Int32 nEstimate = 0, nLength = _rValue.getLength(); + const sal_Unicode* pChars = _rValue.getStr(); + for (sal_Int32 i=0; i<nLength; ++i, ++pChars) + if (*pChars == ',') + ++nEstimate; + aElements.reserve(nEstimate + 1); + // that's the worst case. If the string contains the separator character _quoted_, we reserved to much ... + + + sal_Int32 nElementStart = 0; + sal_Int32 nNextSep = 0; + sal_Int32 nElementLength; + ::rtl::OUString sElement; + do + { + // extract the current element + nNextSep = SvXMLUnitConverter::indexOfComma( + _rValue, nElementStart); + if (-1 == nNextSep) + nNextSep = nLength; + sElement = _rValue.copy(nElementStart, nNextSep - nElementStart); + + nElementLength = sElement.getLength(); + // when writing the sequence, we quoted the single elements with " characters + OSL_ENSURE( (nElementLength >= 2) + && (sElement.getStr()[0] == '"') + && (sElement.getStr()[nElementLength - 1] == '"'), + "OFormImport::implTranslateStringListProperty: invalid quoted element name."); + sElement = sElement.copy(1, nElementLength - 2); + + aElements.push_back(sElement); + + // swith to the next element + nElementStart = 1 + nNextSep; + } + while (nElementStart < nLength); + + ::rtl::OUString *pElements = aElements.empty() ? 0 : &aElements[0]; + aList = Sequence< ::rtl::OUString >(pElements, aElements.size()); + } + else + { + OSL_ENSURE(sal_False, "OFormImport::implTranslateStringListProperty: invalid value (empty)!"); + } + + aProp.Value <<= aList; + + // add the property to the base class' array + implPushBackPropertyValue(aProp); + } + //===================================================================== + //= OXMLDataSourceImport + //===================================================================== + OXMLDataSourceImport::OXMLDataSourceImport( + SvXMLImport& _rImport + ,sal_uInt16 nPrfx + , const ::rtl::OUString& _sLocalName + ,const Reference< ::com::sun::star::xml::sax::XAttributeList > & _xAttrList + ,const ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet >& _xElement) : + SvXMLImportContext( _rImport, nPrfx, _sLocalName ) + { + OSL_ENSURE(_xAttrList.is(),"Attribute list is NULL!"); + const SvXMLNamespaceMap& rMap = _rImport.GetNamespaceMap(); + + sal_Int16 nLength = (_xElement.is() && _xAttrList.is()) ? _xAttrList->getLength() : 0; + for(sal_Int16 i = 0; i < nLength; ++i) + { + ::rtl::OUString sLocalName; + ::rtl::OUString sAttrName = _xAttrList->getNameByIndex( i ); + sal_uInt16 nPrefix = rMap.GetKeyByAttrName( sAttrName, &sLocalName ); + + if ( ( nPrefix == OAttributeMetaData::getCommonControlAttributeNamespace( CCA_TARGET_LOCATION ) ) + && ( sLocalName.equalsAscii( OAttributeMetaData::getCommonControlAttributeName( CCA_TARGET_LOCATION ) ) ) + ) + { + ::rtl::OUString sValue = _xAttrList->getValueByIndex( i ); + + INetURLObject aURL(sValue); + if ( aURL.GetProtocol() == INET_PROT_FILE ) + _xElement->setPropertyValue(PROPERTY_DATASOURCENAME,makeAny(sValue)); + else + _xElement->setPropertyValue(PROPERTY_URL,makeAny(sValue)); // the url is the "sdbc:" string + break; + } + } + } + //--------------------------------------------------------------------- + OControlImport* OFormImport::implCreateChildContext( + sal_uInt16 _nPrefix, const ::rtl::OUString& _rLocalName, + OControlElement::ElementType _eType ) + { + switch (_eType) + { + case OControlElement::TEXT: + case OControlElement::TEXT_AREA: + case OControlElement::FORMATTED_TEXT: + return new OTextLikeImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType); + + case OControlElement::BUTTON: + case OControlElement::IMAGE: + case OControlElement::IMAGE_FRAME: + return new OButtonImport( m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType ); + + case OControlElement::COMBOBOX: + case OControlElement::LISTBOX: + return new OListAndComboImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType); + + case OControlElement::RADIO: + return new ORadioImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType); + + case OControlElement::CHECKBOX: + return new OImagePositionImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType); + + case OControlElement::PASSWORD: + return new OPasswordImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType); + + case OControlElement::FRAME: + case OControlElement::FIXED_TEXT: + return new OReferredControlImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType); + + case OControlElement::GRID: + return new OGridImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType); + + case OControlElement::VALUERANGE: + return new OValueRangeImport( m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType ); + + default: + return new OControlImport(m_rFormImport, *this, _nPrefix, _rLocalName, m_xMeAsContainer, _eType); + } + } + +//......................................................................... +} // namespace xmloff +//......................................................................... + |