/************************************************************************* * * $RCSfile: eventexport.cxx,v $ * * $Revision: 1.6 $ * * last change: $Author: kz $ $Date: 2003-11-18 16:57:21 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses * * - GNU Lesser General Public License Version 2.1 * - Sun Industry Standards Source License Version 1.1 * * Sun Microsystems Inc., October, 2000 * * GNU Lesser General Public License Version 2.1 * ============================================= * Copyright 2000 by Sun Microsystems, Inc. * 901 San Antonio Road, Palo Alto, CA 94303, USA * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License version 2.1, as published by the Free Software Foundation. * * This library 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 for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, * MA 02111-1307 USA * * * Sun Industry Standards Source License Version 1.1 * ================================================= * The contents of this file are subject to the Sun Industry Standards * Source License Version 1.1 (the "License"); You may not use this file * except in compliance with the License. You may obtain a copy of the * License at http://www.openoffice.org/license.html. * * Software provided under this License is provided on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. * See the License for the specific provisions governing your rights and * obligations concerning the Software. * * The Initial Developer of the Original Code is: Sun Microsystems, Inc.. * * Copyright: 2000 by Sun Microsystems, Inc. * * All Rights Reserved. * * Contributor(s): _______________________________________ * * ************************************************************************/ #ifndef _XMLOFF_FORMS_EVENTEXPORT_HXX_ #include "eventexport.hxx" #endif #ifndef _OSL_DIAGNOSE_H_ #include #endif #ifndef _XMLOFF_FORMS_STRINGS_HXX_ #include "strings.hxx" #endif #ifndef _TOOLS_DEBUG_HXX #include #endif //......................................................................... namespace xmloff { //......................................................................... using namespace ::com::sun::star::uno; using namespace ::com::sun::star::script; using namespace ::com::sun::star::container; using namespace ::com::sun::star::beans; using namespace ::com::sun::star::lang; //===================================================================== //= OEventDescriptorMapper //===================================================================== //--------------------------------------------------------------------- OEventDescriptorMapper::OEventDescriptorMapper(const Sequence< ScriptEventDescriptor >& _rEvents) { sal_Int32 nEvents = _rEvents.getLength(); // translate the events const ScriptEventDescriptor* pEvents = _rEvents.getConstArray(); ::rtl::OUString sName; ::rtl::OUString sLibrary, sLocalMacroName; sal_Int32 nNameSeparatorPos(-1); for (sal_Int32 i=0; iListenerType; sName += EVENT_NAME_SEPARATOR; sName += pEvents->EventMethod; Sequence< PropertyValue >& rMappedEvent = m_aMappedEvents[sName]; sLocalMacroName = pEvents->ScriptCode; sLibrary = ::rtl::OUString(); if ( 0 == pEvents->ScriptType.compareToAscii( EVENT_STARBASIC ) ) { // for StarBasic, the library name is part of the ScriptCode sal_Int32 nPrefixLen = sLocalMacroName.indexOf( ':' ); DBG_ASSERT( 0 <= nPrefixLen, "OEventDescriptorMapper::OEventDescriptorMapper: invalid script code prefix!" ); if ( 0 <= nPrefixLen ) { // the export handler for StarBasic expects "StarOffice", not "application" for application modules ... sLibrary = sLocalMacroName.copy( 0, nPrefixLen ); if ( sLibrary.equalsAscii( EVENT_APPLICATION ) ) sLibrary = EVENT_STAROFFICE; sLocalMacroName = sLocalMacroName.copy( nPrefixLen + 1 ); } // tree property values to describe one event ... rMappedEvent.realloc( sLibrary.getLength() ? 3 : 2 ); // ... the type rMappedEvent[0] = PropertyValue(EVENT_TYPE, -1, makeAny(pEvents->ScriptType), PropertyState_DIRECT_VALUE); // and the macro name rMappedEvent[1] = PropertyValue(EVENT_LOCALMACRONAME, -1, makeAny(sLocalMacroName), PropertyState_DIRECT_VALUE); // the library if ( sLibrary.getLength() ) rMappedEvent[2] = PropertyValue(EVENT_LIBRARY, -1, makeAny(sLibrary), PropertyState_DIRECT_VALUE); } else { rMappedEvent.realloc( 2 ); rMappedEvent[0] = PropertyValue(EVENT_TYPE, -1, makeAny(pEvents->ScriptType), PropertyState_DIRECT_VALUE); // and the macro name rMappedEvent[1] = PropertyValue(EVENT_SCRIPTURL, -1, makeAny(pEvents->ScriptCode), PropertyState_DIRECT_VALUE); } } } //--------------------------------------------------------------------- void SAL_CALL OEventDescriptorMapper::replaceByName( const ::rtl::OUString& _rNamee, const Any& _rElement ) throw(IllegalArgumentException, NoSuchElementException, WrappedTargetException, RuntimeException) { throw IllegalArgumentException( ::rtl::OUString::createFromAscii("replacing is not implemented for this wrapper class."), static_cast< ::cppu::OWeakObject* >(this), 1); } //--------------------------------------------------------------------- Any SAL_CALL OEventDescriptorMapper::getByName( const ::rtl::OUString& _rName ) throw(NoSuchElementException, WrappedTargetException, RuntimeException) { ConstMapString2PropertyValueSequenceIterator aPos = m_aMappedEvents.find(_rName); if (m_aMappedEvents.end() == aPos) throw NoSuchElementException( ::rtl::OUString::createFromAscii("There is no element named ") += _rName, static_cast< ::cppu::OWeakObject* >(this)); return makeAny(aPos->second); } //--------------------------------------------------------------------- Sequence< ::rtl::OUString > SAL_CALL OEventDescriptorMapper::getElementNames( ) throw(RuntimeException) { Sequence< ::rtl::OUString > aReturn(m_aMappedEvents.size()); ::rtl::OUString* pReturn = aReturn.getArray(); for ( ConstMapString2PropertyValueSequenceIterator aCollect = m_aMappedEvents.begin(); aCollect != m_aMappedEvents.end(); ++aCollect, ++pReturn ) *pReturn = aCollect->first; return aReturn; } //--------------------------------------------------------------------- sal_Bool SAL_CALL OEventDescriptorMapper::hasByName( const ::rtl::OUString& _rName ) throw(RuntimeException) { ConstMapString2PropertyValueSequenceIterator aPos = m_aMappedEvents.find(_rName); return m_aMappedEvents.end() != aPos; } //--------------------------------------------------------------------- Type SAL_CALL OEventDescriptorMapper::getElementType( ) throw(RuntimeException) { return ::getCppuType(static_cast< PropertyValue* >(NULL)); } //--------------------------------------------------------------------- sal_Bool SAL_CALL OEventDescriptorMapper::hasElements( ) throw(RuntimeException) { return 0 != m_aMappedEvents.size(); } //......................................................................... } // namespace xmloff //......................................................................... /************************************************************************* * history: * $Log: not supported by cvs2svn $ * Revision 1.5.174.1 2003/10/09 13:51:20 dfoster * #i19262# - Enable scripting framework scripts to be persisted for forms * * Revision 1.5 2002/01/18 15:40:36 fs * #96662# don't write a library if the library name is empty * * Revision 1.4 2001/09/04 10:19:41 fs * #91865# correctly im- and export application events * * Revision 1.3 2001/08/27 17:44:27 fs * #91537# corrected evaluation of macro names for StarBasic script ebents * * Revision 1.2 2001/08/27 16:56:33 fs * #91537# export a library attribute when exporting a StarBasic script event descriptor * * Revision 1.1 2001/01/02 15:55:28 fs * initial checkin - helper for exporting script events * * * Revision 1.0 21.12.00 12:16:08 fs ************************************************************************/