/* -*- 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 <memory>

#include <set>

#include <com/sun/star/lang/XServiceInfo.hpp>

#include <com/sun/star/container/XNameContainer.hpp>

#include <com/sun/star/drawing/PointSequence.hpp>

#include <com/sun/star/util/XCancellable.hpp>

#include <comphelper/sequence.hxx>

#include <cppuhelper/implbase.hxx>

#include <cppuhelper/supportsservice.hxx>

#include <svl/itempool.hxx>

#include <svl/itemset.hxx>

#include <svl/lstner.hxx>

#include <svx/xlnedit.hxx>

#include <svx/xlnstit.hxx>

#include <svx/svdmodel.hxx>

#include <svx/xdef.hxx>

#include <vector>

#include <vcl/svapp.hxx>

#include <svx/unofill.hxx>

#include <svx/unoapi.hxx>

using namespace ::com::sun::star;

using namespace ::cppu;

typedef std::vector<std::unique_ptr<SfxItemSet>> ItemPoolVector;

namespace {

class SvxUnoMarkerTable

    : public WeakImplHelper<

        util::XCancellable,

        container::XNameContainer,

        lang::XServiceInfo>

    , public SfxListener

{

private:

    SdrModel*       mpModel;

    SfxItemPool*    mpModelPool;

    ItemPoolVector maItemSetVector;

public:

    explicit SvxUnoMarkerTable( SdrModel* pModel ) noexcept;

    virtual ~SvxUnoMarkerTable() noexcept override;

    void dispose();

    // SfxListener

    virtual void Notify( SfxBroadcaster& rBC, const SfxHint& rHint ) noexcept override;

    void ImplInsertByName( const OUString& aName, const uno::Any& aElement );

    // XServiceInfo

    virtual OUString SAL_CALL getImplementationName(  ) override;

    virtual sal_Bool SAL_CALL supportsService( const  OUString& ServiceName ) override;

    virtual uno::Sequence<  OUString > SAL_CALL getSupportedServiceNames(  ) override;

    // XCancellable

    virtual void SAL_CALL cancel() override;

    // XNameContainer

    virtual void SAL_CALL insertByName( const  OUString& aName, const  uno::Any& aElement ) override;

    virtual void SAL_CALL removeByName( const  OUString& Name ) override;

    // XNameReplace

    virtual void SAL_CALL replaceByName( const  OUString& aName, const  uno::Any& aElement ) override;

    // XNameAccess

    virtual uno::Any SAL_CALL getByName( const  OUString& aName ) override;

    virtual uno::Sequence<  OUString > SAL_CALL getElementNames(  ) override;

    virtual sal_Bool SAL_CALL hasByName( const  OUString& aName ) override;

    // XElementAccess

    virtual uno::Type SAL_CALL getElementType(  ) override;

    virtual sal_Bool SAL_CALL hasElements(  ) override;

};

}

SvxUnoMarkerTable::SvxUnoMarkerTable( SdrModel* pModel ) noexcept

: mpModel( pModel ),

  mpModelPool( pModel ? &pModel->GetItemPool() : nullptr )

{

    if( pModel )

        StartListening( *pModel );

}

SvxUnoMarkerTable::~SvxUnoMarkerTable() noexcept

{

    SolarMutexGuard aGuard;

    if( mpModel )

        EndListening( *mpModel );

    dispose();

}

void SvxUnoMarkerTable::dispose()

{

    maItemSetVector.clear();

}

// SfxListener

void SvxUnoMarkerTable::Notify( SfxBroadcaster&, const SfxHint& rHint ) noexcept

{

    if (rHint.GetId() == SfxHintId::ThisIsAnSdrHint)

    {

        const SdrHint* pSdrHint = static_cast<const SdrHint*>(&rHint);

        if( SdrHintKind::ModelCleared == pSdrHint->GetKind() )

            dispose();

    }

}

sal_Bool SAL_CALL SvxUnoMarkerTable::supportsService( const  OUString& ServiceName )

{

    return cppu::supportsService(this, ServiceName);

}

OUString SAL_CALL SvxUnoMarkerTable::getImplementationName()

{

    return u"SvxUnoMarkerTable"_ustr;

}

uno::Sequence< OUString > SAL_CALL SvxUnoMarkerTable::getSupportedServiceNames(  )

{

    uno::Sequence<OUString> aSNS { u"com.sun.star.drawing.MarkerTable"_ustr };

    return aSNS;

}

void SvxUnoMarkerTable::ImplInsertByName( const OUString& aName, const uno::Any& aElement )

{

    maItemSetVector.push_back(

        std::make_unique<SfxItemSetFixed<XATTR_LINESTART, XATTR_LINEEND>>( *mpModelPool ));

    auto pInSet = maItemSetVector.back().get();

    XLineEndItem aEndMarker(XATTR_LINEEND);

    aEndMarker.SetName( aName );

    aEndMarker.PutValue( aElement, 0 );

    pInSet->Put( aEndMarker );

    XLineStartItem aStartMarker(XATTR_LINESTART);

    aStartMarker.SetName( aName );

    aStartMarker.PutValue( aElement, 0 );

    pInSet->Put( aStartMarker );

}

// XNameContainer

void SAL_CALL SvxUnoMarkerTable::insertByName( const OUString& aApiName, const uno::Any& aElement )

{

    SolarMutexGuard aGuard;

    if( hasByName( aApiName ) )

        throw container::ElementExistException();

    OUString aName = SvxUnogetInternalNameForItem(XATTR_LINEEND, aApiName);

    ImplInsertByName( aName, aElement );

}

void SAL_CALL SvxUnoMarkerTable::cancel()

{

    SolarMutexGuard aGuard;

    // drop all items that are owned by this service and not the document

    // (i.e. they are unused)

    dispose();

}

void SAL_CALL SvxUnoMarkerTable::removeByName( const OUString& aApiName )

{

    SolarMutexGuard aGuard;

    OUString aName = SvxUnogetInternalNameForItem(XATTR_LINEEND, aApiName);

    auto aIter = std::find_if(maItemSetVector.begin(), maItemSetVector.end(),

        [&aName](const std::unique_ptr<SfxItemSet>& rpItem) {

            const NameOrIndex *pItem = &(rpItem->Get( XATTR_LINEEND ) );

            return pItem->GetName() == aName;

        });

    if (aIter != maItemSetVector.end())

    {

        maItemSetVector.erase( aIter );

        return;

    }

    if( !hasByName( aName ) )

        throw container::NoSuchElementException();

}

// XNameReplace

void SAL_CALL SvxUnoMarkerTable::replaceByName( const OUString& aApiName, const uno::Any& aElement )

{

    SolarMutexGuard aGuard;

    const OUString aName = SvxUnogetInternalNameForItem(XATTR_LINEEND, aApiName);

    auto aIter = std::find_if(maItemSetVector.begin(), maItemSetVector.end(),

        [&aName](const std::unique_ptr<SfxItemSet>& rpItem) {

            const NameOrIndex *pItem = &(rpItem->Get( XATTR_LINEEND ) );

            return pItem->GetName() == aName;

        });

    if (aIter != maItemSetVector.end())

    {

        XLineEndItem aEndMarker(XATTR_LINEEND);

        aEndMarker.SetName( aName );

        if( !aEndMarker.PutValue( aElement, 0 ) )

            throw lang::IllegalArgumentException();

        (*aIter)->Put( aEndMarker );

        XLineStartItem aStartMarker(XATTR_LINESTART);

        aStartMarker.SetName( aName );

        aStartMarker.PutValue( aElement, 0 );

        (*aIter)->Put( aStartMarker );

        return;

    }

    // if it is not in our own sets, modify the pool!

    bool bFound = false;

    if (mpModelPool)

    {

        mpModelPool->iterateItemSurrogates(XATTR_LINESTART, [&](SfxItemPool::SurrogateData& rData)

        {

            const NameOrIndex* pItem(static_cast<const NameOrIndex*>(&rData.getItem()));

            if( pItem && pItem->GetName() == aName )

            {

                NameOrIndex* pNew(pItem->Clone(mpModelPool));

                pNew->PutValue(aElement, 0);

                rData.setItem(std::unique_ptr<SfxPoolItem>(pNew));

                bFound = true;

                return false; // interrupt callbacks

            }

            return true; // continue callbacks

        });

    }

    if (mpModelPool)

    {

        mpModelPool->iterateItemSurrogates(XATTR_LINEEND, [&](SfxItemPool::SurrogateData& rData)

        {

            const NameOrIndex* pItem(static_cast<const NameOrIndex*>(&rData.getItem()));

            if( pItem && pItem->GetName() == aName )

            {

                NameOrIndex* pNew(pItem->Clone(mpModelPool));

                pNew->PutValue(aElement, 0);

                rData.setItem(std::unique_ptr<SfxPoolItem>(pNew));

                bFound = true;

                return false; // interrupt callbacks

            }

            return true; // continue callbacks

        });

    }

    if( !bFound )

        throw container::NoSuchElementException();

    ImplInsertByName( aName, aElement );

}

static bool getByNameFromPool( std::u16string_view rSearchName, SfxItemPool const * pPool, SfxItemType eItemType, uno::Any& rAny )

{

    if (pPool)

    {

        for (const SfxPoolItem* p : pPool->GetItemSurrogatesForItem(eItemType))

        {

            const NameOrIndex *pItem = static_cast<const NameOrIndex*>(p);

            if( pItem->GetName() == rSearchName )

            {

                pItem->QueryValue( rAny );

                return true;

            }

        }

    }

    return false;

}

// XNameAccess

uno::Any SAL_CALL SvxUnoMarkerTable::getByName( const OUString& aApiName )

{

    SolarMutexGuard aGuard;

    OUString aName = SvxUnogetInternalNameForItem(XATTR_LINEEND, aApiName);

    uno::Any aAny;

    if (mpModelPool && !aName.isEmpty())

    {

        do

        {

            if (getByNameFromPool(aName, mpModelPool, SfxItemType::XLineStartItemType, aAny)) // XATTR_LINESTART

                break;

            if (getByNameFromPool(aName, mpModelPool, SfxItemType::XLineEndItemType, aAny)) // XATTR_LINEEND

                break;

            throw container::NoSuchElementException();

        }

        while(false);

    }

    return aAny;

}

static void createNamesForPool( SfxItemPool const * pPool, SfxItemType eItemType, std::set< OUString >& rNameSet )

{

    for (const SfxPoolItem* p : pPool->GetItemSurrogatesForItem(eItemType))

    {

        const NameOrIndex* pItem = static_cast<const NameOrIndex*>(p);

        if( pItem->GetName().isEmpty() )

            continue;

        OUString aName = SvxUnogetApiNameForItem(XATTR_LINEEND, pItem->GetName());

        rNameSet.insert( aName );

    }

}

uno::Sequence< OUString > SAL_CALL SvxUnoMarkerTable::getElementNames()

{

    SolarMutexGuard aGuard;

    std::set< OUString > aNameSet;

    // search model pool for line starts

    createNamesForPool( mpModelPool, SfxItemType::XLineStartItemType, aNameSet ); // XATTR_LINESTART

    // search model pool for line ends

    createNamesForPool( mpModelPool, SfxItemType::XLineEndItemType, aNameSet ); // XATTR_LINEEND

    return comphelper::containerToSequence(aNameSet);

}

sal_Bool SAL_CALL SvxUnoMarkerTable::hasByName( const OUString& aName )

{

    SolarMutexGuard aGuard;

    if( aName.isEmpty() )

        return false;

    OUString aSearchName;

    const NameOrIndex *pItem;

    aSearchName = SvxUnogetInternalNameForItem(XATTR_LINESTART, aName);

    if (mpModelPool)

    {

        // XATTR_LINESTART

        for (const SfxPoolItem* p :

             mpModelPool->GetItemSurrogatesForItem(SfxItemType::XLineStartItemType))

        {

            pItem = static_cast<const NameOrIndex*>(p);

            if( pItem && pItem->GetName() == aSearchName )

                return true;

        }

    }

    aSearchName = SvxUnogetInternalNameForItem(XATTR_LINEEND, aName);

    if (mpModelPool)

    {

        // XATTR_LINEEND

        for (const SfxPoolItem* p :

             mpModelPool->GetItemSurrogatesForItem(SfxItemType::XLineEndItemType))

        {

            pItem = static_cast<const NameOrIndex*>(p);

            if( pItem && pItem->GetName() == aSearchName )

                return true;

        }

    }

    return false;

}

// XElementAccess

uno::Type SAL_CALL SvxUnoMarkerTable::getElementType(  )

{

    return cppu::UnoType<drawing::PointSequence>::get();

}

sal_Bool SAL_CALL SvxUnoMarkerTable::hasElements(  )

{

    SolarMutexGuard aGuard;

    const NameOrIndex *pItem;

    if (mpModelPool)

    {

        // XATTR_LINESTART

        for (const SfxPoolItem* p :

             mpModelPool->GetItemSurrogatesForItem(SfxItemType::XLineStartItemType))

        {

            pItem = static_cast<const NameOrIndex*>(p);

            if( pItem && !pItem->GetName().isEmpty() )

                return true;

        }

    }

    if (mpModelPool)

    {

        // XATTR_LINEEND

        for (const SfxPoolItem* p :

             mpModelPool->GetItemSurrogatesForItem(SfxItemType::XLineEndItemType))

        {

            pItem = static_cast<const NameOrIndex*>(p);

            if( pItem && !pItem->GetName().isEmpty() )

                return true;

        }

    }

    return false;

}

/**

 * Create a hatchtable

 */

uno::Reference< uno::XInterface > SvxUnoMarkerTable_createInstance( SdrModel* pModel )

{

    return *new SvxUnoMarkerTable(pModel);

}

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */