Adding upstream version 1:7.0.4.upstream/1%7.0.4upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 743 insertions, 0 deletions

diff --git a/comphelper/source/eventattachermgr/eventattachermgr.cxx b/comphelper/source/eventattachermgr/eventattachermgr.cxx
new file mode 100644
index 000000000..e92b7fc70
--- /dev/null
+++ b/comphelper/source/eventattachermgr/eventattachermgr.cxx
@@ -0,0 +1,743 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 .
+ */
+
+#include <sal/config.h>
+
+#include <o3tl/any.hxx>
+#include <o3tl/safeint.hxx>
+#include <osl/mutex.hxx>
+#include <osl/diagnose.h>
+#include <comphelper/eventattachermgr.hxx>
+#include <comphelper/sequence.hxx>
+#include <com/sun/star/beans/theIntrospection.hpp>
+#include <com/sun/star/io/XObjectInputStream.hpp>
+#include <com/sun/star/io/XPersistObject.hpp>
+#include <com/sun/star/io/XObjectOutputStream.hpp>
+#include <com/sun/star/io/XMarkableStream.hpp>
+#include <com/sun/star/lang/WrappedTargetRuntimeException.hpp>
+#include <com/sun/star/lang/XInitialization.hpp>
+#include <com/sun/star/reflection/theCoreReflection.hpp>
+#include <com/sun/star/reflection/XIdlClass.hpp>
+#include <com/sun/star/reflection/XIdlReflection.hpp>
+#include <com/sun/star/reflection/XIdlMethod.hpp>
+#include <com/sun/star/script/CannotConvertException.hpp>
+#include <com/sun/star/script/Converter.hpp>
+#include <com/sun/star/script/XEventAttacher2.hpp>
+#include <com/sun/star/script/XEventAttacherManager.hpp>
+#include <com/sun/star/script/XScriptListener.hpp>
+#include <cppuhelper/weak.hxx>
+#include <comphelper/interfacecontainer2.hxx>
+#include <cppuhelper/exc_hlp.hxx>
+#include <cppuhelper/implbase.hxx>
+#include <rtl/ref.hxx>
+
+#include <deque>
+#include <algorithm>
+
+using namespace com::sun::star::uno;
+using namespace com::sun::star::io;
+using namespace com::sun::star::lang;
+using namespace com::sun::star::beans;
+using namespace com::sun::star::script;
+using namespace com::sun::star::reflection;
+using namespace cppu;
+using namespace osl;
+
+
+namespace comphelper
+{
+
+namespace {
+
+struct AttachedObject_Impl
+{
+    Reference< XInterface >                 xTarget;
+    std::vector< Reference< XEventListener > > aAttachedListenerSeq;
+    Any                                     aHelper;
+};
+
+struct AttacherIndex_Impl
+{
+    std::deque< ScriptEventDescriptor > aEventList;
+    std::deque< AttachedObject_Impl > aObjList;
+};
+
+
+class ImplEventAttacherManager
+    : public WeakImplHelper< XEventAttacherManager, XPersistObject >
+{
+    friend class AttacherAllListener_Impl;
+    std::deque< AttacherIndex_Impl >  aIndex;
+    Mutex aLock;
+    // Container for the ScriptListener
+    OInterfaceContainerHelper2          aScriptListeners;
+    // Instance of EventAttacher
+    Reference< XEventAttacher2 >        xAttacher;
+    Reference< XComponentContext >      mxContext;
+    Reference< XIdlReflection >         mxCoreReflection;
+    Reference< XTypeConverter >         xConverter;
+    sal_Int16                           nVersion;
+public:
+    ImplEventAttacherManager( const Reference< XIntrospection > & rIntrospection,
+                              const Reference< XComponentContext >& rContext );
+
+    // Methods of XEventAttacherManager
+    virtual void SAL_CALL registerScriptEvent(sal_Int32 Index, const ScriptEventDescriptor& ScriptEvent) override;
+    virtual void SAL_CALL registerScriptEvents(sal_Int32 Index, const Sequence< ScriptEventDescriptor >& ScriptEvents) override;
+    virtual void SAL_CALL revokeScriptEvent(sal_Int32 Index, const OUString& ListenerType, const OUString& EventMethod, const OUString& removeListenerParam) override;
+    virtual void SAL_CALL revokeScriptEvents(sal_Int32 Index) override;
+    virtual void SAL_CALL insertEntry(sal_Int32 Index) override;
+    virtual void SAL_CALL removeEntry(sal_Int32 Index) override;
+    virtual Sequence< ScriptEventDescriptor > SAL_CALL getScriptEvents(sal_Int32 Index) override;
+    virtual void SAL_CALL attach(sal_Int32 Index, const Reference< XInterface >& Object, const Any& Helper) override;
+    virtual void SAL_CALL detach(sal_Int32 nIndex, const Reference< XInterface >& xObject) override;
+    virtual void SAL_CALL addScriptListener(const Reference< XScriptListener >& aListener) override;
+    virtual void SAL_CALL removeScriptListener(const Reference< XScriptListener >& Listener) override;
+
+    // Methods of XPersistObject
+    virtual OUString SAL_CALL getServiceName() override;
+    virtual void SAL_CALL write(const Reference< XObjectOutputStream >& OutStream) override;
+    virtual void SAL_CALL read(const Reference< XObjectInputStream >& InStream) override;
+
+private:
+    /// @throws Exception
+    Reference< XIdlReflection > getReflection();
+
+    /** checks if <arg>_nIndex</arg> is a valid index, throws an <type>IllegalArgumentException</type> if not
+    @param _nIndex
+        the index to check
+    @return
+        the iterator pointing to the position indicated by the index
+    */
+    std::deque<AttacherIndex_Impl>::iterator implCheckIndex( sal_Int32 _nIndex );
+};
+
+
+// Implementation of an EventAttacher-subclass 'AllListeners', which
+// only passes individual events of the general AllListeners.
+class AttacherAllListener_Impl : public WeakImplHelper< XAllListener >
+{
+    rtl::Reference<ImplEventAttacherManager> mxManager;
+    OUString const                           aScriptType;
+    OUString const                           aScriptCode;
+
+    /// @throws CannotConvertException
+    void convertToEventReturn( Any & rRet, const Type & rRetType );
+public:
+    AttacherAllListener_Impl( ImplEventAttacherManager* pManager_, const OUString &rScriptType_,
+                                const OUString & rScriptCode_ );
+
+    // Methods of XAllListener
+    virtual void SAL_CALL firing(const AllEventObject& Event) override;
+    virtual Any SAL_CALL approveFiring(const AllEventObject& Event) override;
+
+    // Methods of XEventListener
+    virtual void SAL_CALL disposing(const EventObject& Source) override;
+};
+
+}
+
+AttacherAllListener_Impl::AttacherAllListener_Impl
+(
+    ImplEventAttacherManager*   pManager_,
+    const OUString &             rScriptType_,
+    const OUString &             rScriptCode_
+)
+    : mxManager( pManager_ )
+    , aScriptType( rScriptType_ )
+    , aScriptCode( rScriptCode_ )
+{
+}
+
+
+// Methods of XAllListener
+void SAL_CALL AttacherAllListener_Impl::firing(const AllEventObject& Event)
+{
+    ScriptEvent aScriptEvent;
+    aScriptEvent.Source         = static_cast<OWeakObject *>(mxManager.get()); // get correct XInterface
+    aScriptEvent.ListenerType   = Event.ListenerType;
+    aScriptEvent.MethodName     = Event.MethodName;
+    aScriptEvent.Arguments      = Event.Arguments;
+    aScriptEvent.Helper         = Event.Helper;
+    aScriptEvent.ScriptType     = aScriptType;
+    aScriptEvent.ScriptCode     = aScriptCode;
+
+    // Iterate over all listeners and pass events.
+    OInterfaceIteratorHelper2 aIt( mxManager->aScriptListeners );
+    while( aIt.hasMoreElements() )
+        static_cast<XScriptListener *>(aIt.next())->firing( aScriptEvent );
+}
+
+
+// Convert to the standard event return
+void AttacherAllListener_Impl::convertToEventReturn( Any & rRet, const Type & rRetType )
+{
+    // no return value? Set to the specified values
+    if( rRet.getValueType().getTypeClass() == TypeClass_VOID )
+    {
+        switch( rRetType.getTypeClass()  )
+        {
+            case TypeClass_INTERFACE:
+                {
+                rRet <<= Reference< XInterface >();
+                }
+                break;
+
+            case TypeClass_BOOLEAN:
+                rRet <<= true;
+                break;
+
+            case TypeClass_STRING:
+                rRet <<= OUString();
+                break;
+
+            case TypeClass_FLOAT:           rRet <<= float(0);  break;
+            case TypeClass_DOUBLE:          rRet <<= 0.0;  break;
+            case TypeClass_BYTE:            rRet <<= sal_uInt8(0);      break;
+            case TypeClass_SHORT:           rRet <<= sal_Int16( 0 );    break;
+            case TypeClass_LONG:            rRet <<= sal_Int32( 0 );    break;
+            case TypeClass_UNSIGNED_SHORT:  rRet <<= sal_uInt16( 0 );   break;
+            case TypeClass_UNSIGNED_LONG:   rRet <<= sal_uInt32( 0 );   break;
+
+            default:
+                OSL_ASSERT(false);
+                break;
+        }
+    }
+    else if( !rRet.getValueType().equals( rRetType ) )
+    {
+        if( !mxManager->xConverter.is() )
+            throw CannotConvertException();
+        rRet = mxManager->xConverter->convertTo( rRet, rRetType );
+    }
+}
+
+// Methods of XAllListener
+Any SAL_CALL AttacherAllListener_Impl::approveFiring( const AllEventObject& Event )
+{
+    ScriptEvent aScriptEvent;
+    aScriptEvent.Source         = static_cast<OWeakObject *>(mxManager.get()); // get correct XInterface
+    aScriptEvent.ListenerType   = Event.ListenerType;
+    aScriptEvent.MethodName     = Event.MethodName;
+    aScriptEvent.Arguments      = Event.Arguments;
+    aScriptEvent.Helper         = Event.Helper;
+    aScriptEvent.ScriptType     = aScriptType;
+    aScriptEvent.ScriptCode     = aScriptCode;
+
+    Any aRet;
+    // Iterate over all listeners and pass events.
+    OInterfaceIteratorHelper2 aIt( mxManager->aScriptListeners );
+    while( aIt.hasMoreElements() )
+    {
+        aRet = static_cast<XScriptListener *>(aIt.next())->approveFiring( aScriptEvent );
+        try
+        {
+            Reference< XIdlClass > xListenerType = mxManager->getReflection()->
+                        forName( Event.ListenerType.getTypeName() );
+            Reference< XIdlMethod > xMeth = xListenerType->getMethod( Event.MethodName );
+            if( xMeth.is() )
+            {
+                Reference< XIdlClass > xRetType = xMeth->getReturnType();
+                Type aRetType(xRetType->getTypeClass(), xRetType->getName());
+                convertToEventReturn( aRet, aRetType );
+            }
+
+            switch( aRet.getValueType().getTypeClass()  )
+            {
+                case TypeClass_INTERFACE:
+                    {
+                    // Interface not null, return
+                    Reference< XInterface > x;
+                    aRet >>= x;
+                    if( x.is() )
+                        return aRet;
+                    }
+                    break;
+
+                case TypeClass_BOOLEAN:
+                    // FALSE -> Return
+                    if( !(*o3tl::forceAccess<bool>(aRet)) )
+                        return aRet;
+                    break;
+
+                case TypeClass_STRING:
+                    // none empty string -> return
+                    if( !o3tl::forceAccess<OUString>(aRet)->isEmpty() )
+                        return aRet;
+                    break;
+
+                    // none zero number -> return
+                case TypeClass_FLOAT:           if( *o3tl::forceAccess<float>(aRet) )    return aRet; break;
+                case TypeClass_DOUBLE:          if( *o3tl::forceAccess<double>(aRet) )   return aRet; break;
+                case TypeClass_BYTE:            if( *o3tl::forceAccess<sal_Int8>(aRet) )    return aRet; break;
+                case TypeClass_SHORT:           if( *o3tl::forceAccess<sal_Int16>(aRet) )    return aRet; break;
+                case TypeClass_LONG:            if( *o3tl::forceAccess<sal_Int32>(aRet) )    return aRet; break;
+                case TypeClass_UNSIGNED_SHORT:  if( *o3tl::forceAccess<sal_uInt16>(aRet) )   return aRet; break;
+                case TypeClass_UNSIGNED_LONG:   if( *o3tl::forceAccess<sal_uInt32>(aRet) )   return aRet; break;
+
+                default:
+                    OSL_ASSERT(false);
+                    break;
+            }
+        }
+        catch (const CannotConvertException&)
+        {
+            // silent ignore conversions errors from a script call
+            Reference< XIdlClass > xListenerType = mxManager->getReflection()->
+                        forName( Event.ListenerType.getTypeName() );
+            Reference< XIdlMethod > xMeth = xListenerType->getMethod( Event.MethodName );
+            if( xMeth.is() )
+            {
+                Reference< XIdlClass > xRetType = xMeth->getReturnType();
+                Type aRetType(xRetType->getTypeClass(), xRetType->getName());
+                aRet.clear();
+                try
+                {
+                    convertToEventReturn( aRet, aRetType );
+                }
+                catch (const CannotConvertException& e)
+                {
+                    css::uno::Any anyEx = cppu::getCaughtException();
+                    throw css::lang::WrappedTargetRuntimeException(
+                        "wrapped CannotConvertException " + e.Message,
+                        css::uno::Reference<css::uno::XInterface>(), anyEx);
+                }
+            }
+        }
+    }
+    return aRet;
+}
+
+// Methods of XEventListener
+void SAL_CALL AttacherAllListener_Impl::disposing(const EventObject& )
+{
+    // It is up to the container to release the object
+}
+
+// Constructor method for EventAttacherManager
+Reference< XEventAttacherManager > createEventAttacherManager( const Reference< XComponentContext > & rxContext )
+{
+    Reference< XIntrospection > xIntrospection = theIntrospection::get( rxContext );
+    return new ImplEventAttacherManager( xIntrospection, rxContext );
+}
+
+
+ImplEventAttacherManager::ImplEventAttacherManager( const Reference< XIntrospection > & rIntrospection,
+                                                    const Reference< XComponentContext >& rContext )
+    : aScriptListeners( aLock )
+    , mxContext( rContext )
+    , nVersion(0)
+{
+    if ( rContext.is() )
+    {
+        Reference< XInterface > xIFace( rContext->getServiceManager()->createInstanceWithContext(
+             "com.sun.star.script.EventAttacher", rContext)  );
+        if ( xIFace.is() )
+        {
+            xAttacher.set( xIFace, UNO_QUERY );
+        }
+        xConverter = Converter::create(rContext);
+    }
+
+    Reference< XInitialization > xInit( xAttacher, UNO_QUERY );
+    if( xInit.is() )
+    {
+        Sequence< Any > Arguments( 1 );
+        Arguments[0] <<= rIntrospection;
+        xInit->initialize( Arguments );
+    }
+}
+
+Reference< XIdlReflection > ImplEventAttacherManager::getReflection()
+{
+    Guard< Mutex > aGuard( aLock );
+    // Do we already have a service? If not, create one.
+    if( !mxCoreReflection.is() )
+    {
+        mxCoreReflection = theCoreReflection::get(mxContext);
+    }
+    return mxCoreReflection;
+}
+
+
+std::deque< AttacherIndex_Impl >::iterator ImplEventAttacherManager::implCheckIndex( sal_Int32 _nIndex )
+{
+    if ( (_nIndex < 0) || (o3tl::make_unsigned(_nIndex) >= aIndex.size()) )
+        throw IllegalArgumentException();
+
+    std::deque<AttacherIndex_Impl>::iterator aIt = aIndex.begin() + _nIndex;
+    return aIt;
+}
+
+// Methods of XEventAttacherManager
+void SAL_CALL ImplEventAttacherManager::registerScriptEvent
+(
+    sal_Int32 nIndex,
+    const ScriptEventDescriptor& ScriptEvent
+)
+{
+    Guard< Mutex > aGuard( aLock );
+
+    // Examine the index and apply the array
+    std::deque<AttacherIndex_Impl>::iterator aIt = implCheckIndex( nIndex );
+
+    ScriptEventDescriptor aEvt = ScriptEvent;
+    sal_Int32 nLastDot = aEvt.ListenerType.lastIndexOf('.');
+    if (nLastDot != -1)
+        aEvt.ListenerType = aEvt.ListenerType.copy(nLastDot+1);
+    aIt->aEventList.push_back( aEvt );
+
+    // register new Event
+    for( auto& rObj : aIt->aObjList )
+    {
+        Reference< XAllListener > xAll =
+            new AttacherAllListener_Impl( this, ScriptEvent.ScriptType, ScriptEvent.ScriptCode );
+        try
+        {
+            rObj.aAttachedListenerSeq.push_back( xAttacher->attachSingleEventListener( rObj.xTarget, xAll,
+                        rObj.aHelper, ScriptEvent.ListenerType,
+                        ScriptEvent.AddListenerParam, ScriptEvent.EventMethod ) );
+        }
+        catch( Exception& )
+        {
+        }
+    }
+}
+
+
+void SAL_CALL ImplEventAttacherManager::registerScriptEvents
+(
+    sal_Int32 nIndex,
+    const Sequence< ScriptEventDescriptor >& ScriptEvents
+)
+{
+    Guard< Mutex > aGuard( aLock );
+
+    // Examine the index and apply the array
+    std::deque< AttachedObject_Impl > aList = implCheckIndex( nIndex )->aObjList;
+    for( const auto& rObj : aList )
+        detach( nIndex, rObj.xTarget );
+
+    const ScriptEventDescriptor* pArray = ScriptEvents.getConstArray();
+    sal_Int32 nLen = ScriptEvents.getLength();
+    for( sal_Int32 i = 0 ; i < nLen ; i++ )
+        registerScriptEvent( nIndex, pArray[ i ] );
+
+    for( const auto& rObj : aList )
+        attach( nIndex, rObj.xTarget, rObj.aHelper );
+}
+
+
+void SAL_CALL ImplEventAttacherManager::revokeScriptEvent
+(
+    sal_Int32 nIndex,
+    const OUString& ListenerType,
+    const OUString& EventMethod,
+    const OUString& ToRemoveListenerParam
+)
+{
+    Guard< Mutex > aGuard( aLock );
+
+    std::deque<AttacherIndex_Impl>::iterator aIt = implCheckIndex( nIndex );
+
+    std::deque< AttachedObject_Impl > aList = aIt->aObjList;
+    for( const auto& rObj : aList )
+        detach( nIndex, rObj.xTarget );
+
+    OUString aLstType = ListenerType;
+    sal_Int32 nLastDot = aLstType.lastIndexOf('.');
+    if (nLastDot != -1)
+        aLstType = aLstType.copy(nLastDot+1);
+
+    auto aEvtIt = std::find_if(aIt->aEventList.begin(), aIt->aEventList.end(),
+        [&aLstType, &EventMethod, &ToRemoveListenerParam](const ScriptEventDescriptor& rEvent) {
+            return aLstType              == rEvent.ListenerType
+                && EventMethod           == rEvent.EventMethod
+                && ToRemoveListenerParam == rEvent.AddListenerParam;
+        });
+    if (aEvtIt != aIt->aEventList.end())
+        aIt->aEventList.erase( aEvtIt );
+
+    for( const auto& rObj : aList )
+        attach( nIndex, rObj.xTarget, rObj.aHelper );
+}
+
+
+void SAL_CALL ImplEventAttacherManager::revokeScriptEvents(sal_Int32 nIndex )
+{
+    Guard< Mutex > aGuard( aLock );
+    std::deque<AttacherIndex_Impl>::iterator aIt = implCheckIndex( nIndex );
+
+    std::deque< AttachedObject_Impl > aList = aIt->aObjList;
+    for( const auto& rObj : aList )
+        detach( nIndex, rObj.xTarget );
+    aIt->aEventList.clear();
+    for( const auto& rObj : aList )
+        attach( nIndex, rObj.xTarget, rObj.aHelper );
+}
+
+
+void SAL_CALL ImplEventAttacherManager::insertEntry(sal_Int32 nIndex)
+{
+    Guard< Mutex > aGuard( aLock );
+    if( nIndex < 0 )
+        throw IllegalArgumentException();
+
+    if ( o3tl::make_unsigned(nIndex) >= aIndex.size() )
+        aIndex.resize(nIndex+1);
+
+    AttacherIndex_Impl aTmp;
+    aIndex.insert( aIndex.begin() + nIndex, aTmp );
+}
+
+
+void SAL_CALL ImplEventAttacherManager::removeEntry(sal_Int32 nIndex)
+{
+    Guard< Mutex > aGuard( aLock );
+    std::deque<AttacherIndex_Impl>::iterator aIt = implCheckIndex( nIndex );
+
+    std::deque< AttachedObject_Impl > aList = aIt->aObjList;
+    for( const auto& rObj : aList )
+        detach( nIndex, rObj.xTarget );
+
+    aIndex.erase( aIt );
+}
+
+
+Sequence< ScriptEventDescriptor > SAL_CALL ImplEventAttacherManager::getScriptEvents(sal_Int32 nIndex)
+{
+    Guard< Mutex > aGuard( aLock );
+    std::deque<AttacherIndex_Impl>::iterator aIt = implCheckIndex( nIndex );
+    return comphelper::containerToSequence(aIt->aEventList);
+}
+
+
+void SAL_CALL ImplEventAttacherManager::attach(sal_Int32 nIndex, const Reference< XInterface >& xObject, const Any & Helper)
+{
+    Guard< Mutex > aGuard( aLock );
+    if( nIndex < 0 || !xObject.is() )
+        throw IllegalArgumentException();
+
+    if( o3tl::make_unsigned(nIndex) >= aIndex.size() )
+    {
+        // read older files
+        if( nVersion != 1 )
+            throw IllegalArgumentException();
+        insertEntry( nIndex );
+        attach( nIndex, xObject, Helper );
+        return;
+    }
+
+    std::deque< AttacherIndex_Impl >::iterator aCurrentPosition = aIndex.begin() + nIndex;
+
+    AttachedObject_Impl aTmp;
+    aTmp.xTarget = xObject;
+    aTmp.aHelper = Helper;
+    aCurrentPosition->aObjList.push_back( aTmp );
+
+    AttachedObject_Impl & rCurObj = aCurrentPosition->aObjList.back();
+    rCurObj.aAttachedListenerSeq = std::vector< Reference< XEventListener > >( aCurrentPosition->aEventList.size() );
+
+    if (aCurrentPosition->aEventList.empty())
+        return;
+
+    Sequence<css::script::EventListener> aEvents(aCurrentPosition->aEventList.size());
+    css::script::EventListener* p = aEvents.getArray();
+    size_t i = 0;
+    for (const auto& rEvent : aCurrentPosition->aEventList)
+    {
+        css::script::EventListener aListener;
+        aListener.AllListener =
+            new AttacherAllListener_Impl(this, rEvent.ScriptType, rEvent.ScriptCode);
+        aListener.Helper = rCurObj.aHelper;
+        aListener.ListenerType = rEvent.ListenerType;
+        aListener.EventMethod = rEvent.EventMethod;
+        aListener.AddListenerParam = rEvent.AddListenerParam;
+        p[i++] = aListener;
+    }
+
+    try
+    {
+        rCurObj.aAttachedListenerSeq = comphelper::sequenceToContainer<std::vector<Reference< XEventListener >>>(
+            xAttacher->attachMultipleEventListeners(rCurObj.xTarget, aEvents));
+    }
+    catch (const Exception&)
+    {
+        // Fail gracefully.
+    }
+}
+
+
+void SAL_CALL ImplEventAttacherManager::detach(sal_Int32 nIndex, const Reference< XInterface >& xObject)
+{
+    Guard< Mutex > aGuard( aLock );
+    //return;
+    if( nIndex < 0 || o3tl::make_unsigned(nIndex) >= aIndex.size() || !xObject.is() )
+        throw IllegalArgumentException();
+
+    std::deque< AttacherIndex_Impl >::iterator aCurrentPosition = aIndex.begin() + nIndex;
+    auto aObjIt = std::find_if(aCurrentPosition->aObjList.begin(), aCurrentPosition->aObjList.end(),
+        [&xObject](const AttachedObject_Impl& rObj) { return rObj.xTarget == xObject; });
+    if (aObjIt == aCurrentPosition->aObjList.end())
+        return;
+
+    sal_Int32 i = 0;
+    for( const auto& rEvt : aCurrentPosition->aEventList )
+    {
+        if( aObjIt->aAttachedListenerSeq[i].is() )
+        {
+            try
+            {
+                xAttacher->removeListener( aObjIt->xTarget, rEvt.ListenerType,
+                                       rEvt.AddListenerParam, aObjIt->aAttachedListenerSeq[i] );
+            }
+            catch( Exception& )
+            {
+            }
+        }
+        ++i;
+    }
+    aCurrentPosition->aObjList.erase( aObjIt );
+}
+
+void SAL_CALL ImplEventAttacherManager::addScriptListener(const Reference< XScriptListener >& aListener)
+{
+    Guard< Mutex > aGuard( aLock );
+    aScriptListeners.addInterface( aListener );
+}
+
+void SAL_CALL ImplEventAttacherManager::removeScriptListener(const Reference< XScriptListener >& aListener)
+{
+    Guard< Mutex > aGuard( aLock );
+    aScriptListeners.removeInterface( aListener );
+}
+
+
+// Methods of XPersistObject
+OUString SAL_CALL ImplEventAttacherManager::getServiceName()
+{
+    return "com.sun.star.uno.script.EventAttacherManager";
+}
+
+void SAL_CALL ImplEventAttacherManager::write(const Reference< XObjectOutputStream >& OutStream)
+{
+    Guard< Mutex > aGuard( aLock );
+    // Don't run without XMarkableStream
+    Reference< XMarkableStream > xMarkStream( OutStream, UNO_QUERY );
+    if( !xMarkStream.is() )
+        return;
+
+    // Write out the version
+    OutStream->writeShort( 2 );
+
+    // Remember position for length
+    sal_Int32 nObjLenMark = xMarkStream->createMark();
+    OutStream->writeLong( 0 );
+
+    OutStream->writeLong( aIndex.size() );
+
+    // Write out sequences
+    for( const auto& rIx : aIndex )
+    {
+        OutStream->writeLong( rIx.aEventList.size() );
+        for( const auto& rDesc : rIx.aEventList )
+        {
+            OutStream->writeUTF( rDesc.ListenerType );
+            OutStream->writeUTF( rDesc.EventMethod );
+            OutStream->writeUTF( rDesc.AddListenerParam );
+            OutStream->writeUTF( rDesc.ScriptType );
+            OutStream->writeUTF( rDesc.ScriptCode );
+        }
+    }
+
+    // The length is now known
+    sal_Int32 nObjLen = xMarkStream->offsetToMark( nObjLenMark ) -4;
+    xMarkStream->jumpToMark( nObjLenMark );
+    OutStream->writeLong( nObjLen );
+    xMarkStream->jumpToFurthest();
+    xMarkStream->deleteMark( nObjLenMark );
+}
+
+void SAL_CALL ImplEventAttacherManager::read(const Reference< XObjectInputStream >& InStream)
+{
+    Guard< Mutex > aGuard( aLock );
+    // Don't run without XMarkableStream
+    Reference< XMarkableStream > xMarkStream( InStream, UNO_QUERY );
+    if( !xMarkStream.is() )
+        return;
+
+    // Read in the version
+    nVersion = InStream->readShort();
+
+    // At first there's the data according to version 1 --
+    // this part needs to be kept in later versions.
+    sal_Int32 nLen = InStream->readLong();
+
+    // Position for comparative purposes
+    sal_Int32 nObjLenMark = xMarkStream->createMark();
+
+    // Number of read sequences
+    sal_Int32 nItemCount = InStream->readLong();
+
+    for( sal_Int32 i = 0 ; i < nItemCount ; i++ )
+    {
+        insertEntry( i );
+        // Read the length of the sequence
+        sal_Int32 nSeqLen = InStream->readLong();
+
+        // Display the sequences and read the descriptions
+        Sequence< ScriptEventDescriptor > aSEDSeq( nSeqLen );
+        ScriptEventDescriptor* pArray = aSEDSeq.getArray();
+        for( sal_Int32 j = 0 ; j < nSeqLen ; j++ )
+        {
+            ScriptEventDescriptor& rDesc = pArray[ j ];
+            rDesc.ListenerType = InStream->readUTF();
+            rDesc.EventMethod = InStream->readUTF();
+            rDesc.AddListenerParam = InStream->readUTF();
+            rDesc.ScriptType = InStream->readUTF();
+            rDesc.ScriptCode = InStream->readUTF();
+        }
+        registerScriptEvents( i, aSEDSeq );
+    }
+
+    // Have we read the specified length?
+    sal_Int32 nRealLen = xMarkStream->offsetToMark( nObjLenMark );
+    if( nRealLen != nLen )
+    {
+        // Only if the StreamVersion is > 1 and the date still follows, can
+        // this be true. Otherwise, something is completely gone.
+        if( nRealLen > nLen || nVersion == 1 )
+        {
+            OSL_FAIL( "ImplEventAttacherManager::read(): Fatal Error, wrong object length" );
+        }
+        else
+        {   // TODO: Examine if caching the dates would be useful
+            // But for now, it's easier to skip it.
+            sal_Int32 nSkipCount = nLen - nRealLen;
+            InStream->skipBytes( nSkipCount );
+        }
+    }
+    xMarkStream->jumpToFurthest();
+    xMarkStream->deleteMark( nObjLenMark );
+}
+
+} // namespace comphelper
+
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */