/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
 * This file is part of the Collabora Office 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/.
 */

#include <cliputil.hxx>
#include <attrib.hxx>
#include <viewdata.hxx>
#include <tabvwsh.hxx>
#include <transobj.hxx>
#include <document.hxx>
#include <docsh.hxx>
#include <docfunc.hxx>
#include <dpobject.hxx>
#include <globstr.hrc>
#include <scresid.hxx>
#include <clipparam.hxx>
#include <clipoptions.hxx>
#include <rangelst.hxx>
#include <viewutil.hxx>
#include <markdata.hxx>
#include <gridwin.hxx>
#include <scitems.hxx>
#include <formulacell.hxx>

#include <sfx2/classificationhelper.hxx>
#include <comphelper/kit.hxx>
#include <inputopt.hxx>
#include <scmod.hxx>
#include <warnbox.hxx>

namespace
{

/// Paste only if SfxClassificationHelper recommends so.
bool lcl_checkClassification(ScDocument* pSourceDoc, const ScDocument& rDestinationDoc)
{
    if (!pSourceDoc)
        return true;

    ScClipOptions* pSourceOptions = pSourceDoc->GetClipOptions();
    ScDocShell* pDestinationShell = rDestinationDoc.GetDocumentShell();
    if (!pSourceOptions || !pDestinationShell)
        return true;

    SfxClassificationCheckPasteResult eResult = SfxClassificationHelper::CheckPaste(pSourceOptions->m_xDocumentProperties, pDestinationShell->getDocProperties());
    return SfxClassificationHelper::ShowPasteInfo(eResult);
}

}

void ScClipUtil::PasteFromClipboard( ScViewData& rViewData, ScTabViewShell* pTabViewShell, bool bShowDialog )
{
    const ScTransferObj* pOwnClip = ScTransferObj::GetOwnClipboard(ScTabViewShell::GetClipData(rViewData.GetActiveWin()));
    ScDocument& rThisDoc = rViewData.GetDocument();
    SCCOL nThisCol = rViewData.GetCurX();
    SCROW nThisRow = rViewData.GetCurY();
    SCTAB nThisTab = rViewData.CurrentTabForData();
    ScDPObject* pDPObj = rThisDoc.GetDPAtCursor( nThisCol, nThisRow, nThisTab );

    if ( pOwnClip && pDPObj )
    {
        // paste from Calc into DataPilot table: sort (similar to drag & drop)

        ScDocument* pClipDoc = pOwnClip->GetDocument();
        SCTAB nSourceTab = pOwnClip->GetVisibleTab();

        SCCOL nClipStartX;
        SCROW nClipStartY;
        SCCOL nClipEndX;
        SCROW nClipEndY;
        pClipDoc->GetClipStart( nClipStartX, nClipStartY );
        pClipDoc->GetClipArea( nClipEndX, nClipEndY, true );
        nClipEndX = nClipEndX + nClipStartX;
        nClipEndY = nClipEndY + nClipStartY;   // GetClipArea returns the difference

        ScRange aSource( nClipStartX, nClipStartY, nSourceTab, nClipEndX, nClipEndY, nSourceTab );
        bool bDone = pTabViewShell->DataPilotMove( aSource, rViewData.GetCurPos() );
        if ( !bDone )
            pTabViewShell->ErrorMessage( STR_ERR_DATAPILOT_INPUT );
    }
    else
    {
        // normal paste
        weld::WaitObject aWait( rViewData.GetDialogParent() );
        if (!pOwnClip)
        {
            pTabViewShell->PasteFromSystem(true);
            // Anchor To Cell rather than To Page
            ScDrawView* pDrawView = pTabViewShell->GetScDrawView();
            if(pDrawView)
            {
                const SdrMarkList& rMarkList = pDrawView->GetMarkedObjectList();
                if (1 == rMarkList.GetMarkCount())
                {
                    SdrObject* pPickObj = rMarkList.GetMark(0)->GetMarkedSdrObj();
                    if(pPickObj)
                    {
                        ScDrawLayer::SetCellAnchoredFromPosition( *pPickObj,  rThisDoc, nThisTab, false );
                    }
                }
            }
        }
        else
        {
            ScDocument* pClipDoc = pOwnClip->GetDocument();
            const ScClipParam& rClipParam = pClipDoc->GetClipParam();

            if (!lcl_checkClassification(pClipDoc, rThisDoc))
                return;

            InsertDeleteFlags nFlags = InsertDeleteFlags::ALL;
            // For multi-range paste, we paste values by default.
            if (rClipParam.isMultiRange())
                nFlags &= ~InsertDeleteFlags::FORMULA;

            // --- Origin-matrix handling ---
            // The clip doc contains the expanded bounding box (original +
            // origin matrices).  Paste the original selection (non-matrix
            // cells only), then let EnterMatrix expand each matrix origin
            // to its full array range.
            if (!rClipParam.maOriginMatrixRanges.empty())
            {
                const ScRange& rOrigRange = rClipParam.maOriginalRange;
                SCTAB nClipTab = rOrigRange.aStart.Tab();

                // Pre-compute destination ranges and grab token arrays
                // from the clip doc (before any paste modifies anything).
                struct OriginMatrixInfo
                {
                    ScRange maDestRange;   // destination range for the full matrix
                    const ScTokenArray* mpCode;  // token array from the origin formula cell
                    bool mbDynamicArrayMaster;   // source was a dynamic-array master
                };
                std::vector<OriginMatrixInfo> aOriginInfos;
                aOriginInfos.reserve(rClipParam.maOriginMatrixRanges.size());

                formula::FormulaGrammar::Grammar eGram = rThisDoc.GetGrammar();
                for (size_t i = 0; i < rClipParam.maOriginMatrixRanges.size(); ++i)
                {
                    const ScRange& rMat = rClipParam.maOriginMatrixRanges[i];
                    SCCOL nDestCol = nThisCol + (rMat.aStart.Col() - rOrigRange.aStart.Col());
                    SCROW nDestRow = nThisRow + (rMat.aStart.Row() - rOrigRange.aStart.Row());
                    ScRange aDestMatRange(nDestCol, nDestRow, nThisTab,
                            nDestCol + rMat.aEnd.Col() - rMat.aStart.Col(),
                            nDestRow + rMat.aEnd.Row() - rMat.aStart.Row(), nThisTab);

                    // Get the token array from the clip doc's origin cell.
                    // Passing the token array (instead of a formula string)
                    // to EnterMatrix ensures relative references are correctly
                    // shifted to the destination position.
                    const ScTokenArray* pCode = nullptr;
                    bool bDynamic = false;
                    ScFormulaCell* pFC = pClipDoc->GetFormulaCell(rMat.aStart);
                    if (pFC)
                    {
                        pCode = pFC->GetCode();
                        bDynamic = pFC->IsDynamicArrayMaster();
                    }

                    aOriginInfos.push_back({ aDestMatRange, pCode, bDynamic });
                }

                // Pre-check: detect existing matrices at the destination.
                // If fully covered by one of our expanded ranges, queue
                // for clearing.  If only partially covered, abort.
                ScRangeList aMatricesToClear;
                for (const auto& rInfo : aOriginInfos)
                {
                    const ScRange& rDest = rInfo.maDestRange;
                    for (SCROW r = rDest.aStart.Row(); r <= rDest.aEnd.Row(); ++r)
                    {
                        for (SCCOL c = rDest.aStart.Col(); c <= rDest.aEnd.Col(); ++c)
                        {
                            ScRange aExisting;
                            if (rThisDoc.GetMatrixFormulaRange(ScAddress(c, r, nThisTab), aExisting))
                            {
                                if (rDest.Contains(aExisting))
                                {
                                    if (!aMatricesToClear.Contains(aExisting))
                                        aMatricesToClear.push_back(aExisting);
                                }
                                else
                                {
                                    pTabViewShell->ErrorMessage(STR_MATRIXFRAGMENTERR);
                                    return;
                                }
                            }
                        }
                    }
                }

                // Check if the paste area would overwrite non-empty cells.
                if (bShowDialog
                    && (nFlags & InsertDeleteFlags::CONTENTS)
                    && ScModule::get()->GetInputOptions().GetReplaceCellsWarn())
                {
                    bool bIsEmpty = true;
                    SCCOL nOrigEndCol = nThisCol + (rOrigRange.aEnd.Col() - rOrigRange.aStart.Col());
                    SCROW nOrigEndRow = nThisRow + (rOrigRange.aEnd.Row() - rOrigRange.aStart.Row());

                    // Check the original selection area.
                    bIsEmpty = rThisDoc.IsBlockEmpty(
                            nThisCol, nThisRow, nOrigEndCol, nOrigEndRow, nThisTab);

                    // Check the expanded matrix areas (beyond original selection).
                    for (size_t i = 0; i < aOriginInfos.size() && bIsEmpty; ++i)
                    {
                        const ScRange& rDest = aOriginInfos[i].maDestRange;
                        if (rDest.aEnd.Col() > nOrigEndCol)
                        {
                            SCCOL nCheckStart = std::max(rDest.aStart.Col(), static_cast<SCCOL>(nOrigEndCol + 1));
                            bIsEmpty = rThisDoc.IsBlockEmpty(
                                    nCheckStart, rDest.aStart.Row(),
                                    rDest.aEnd.Col(), rDest.aEnd.Row(), nThisTab);
                        }
                        if (bIsEmpty && rDest.aEnd.Row() > nOrigEndRow)
                        {
                            SCROW nCheckStart = std::max(rDest.aStart.Row(), static_cast<SCROW>(nOrigEndRow + 1));
                            SCCOL nColEnd = std::min(rDest.aEnd.Col(), nOrigEndCol);
                            bIsEmpty = rThisDoc.IsBlockEmpty(
                                    rDest.aStart.Col(), nCheckStart,
                                    nColEnd, rDest.aEnd.Row(), nThisTab);
                        }
                    }

                    if (!bIsEmpty)
                    {
                        ScReplaceWarnBox aBox(rViewData.GetDialogParent());
                        if (aBox.run() != RET_YES)
                            return;
                    }
                }

                // --- All checks passed.  Now modify. ---
                ScDocShell* pDocSh = rViewData.GetDocShell();
                SfxUndoManager* pUndoMgr = pDocSh->GetUndoManager();
                OUString aUndo = ScResId(pClipDoc->IsCutMode() ? STR_UNDO_MOVE : STR_UNDO_COPY);
                pUndoMgr->EnterListAction(aUndo, aUndo, 0,
                        rViewData.GetViewShell()->GetViewShellId());

                // Clear existing complete matrices that will be replaced.
                for (size_t i = 0; i < aMatricesToClear.size(); ++i)
                {
                    const ScRange& rClear = aMatricesToClear[i];
                    ScMarkData aClearMark(rThisDoc.GetSheetLimits());
                    aClearMark.SelectTable(nThisTab, true);
                    aClearMark.SetMarkArea(rClear);
                    pDocSh->GetDocFunc().DeleteContents(
                            aClearMark, InsertDeleteFlags::ALL, true /*bRecord*/, true /*bApi*/);
                }

                // Check whether the original selection contains any
                // non-matrix cells.  If tracked matrices fully cover it
                // we can skip the expensive CopyToDocument + PasteFromClip
                // round-trip — EnterMatrix alone handles the paste.
                sal_uLong nOrigCells
                    = static_cast<sal_uLong>(rOrigRange.aEnd.Col() - rOrigRange.aStart.Col() + 1)
                      * (rOrigRange.aEnd.Row() - rOrigRange.aStart.Row() + 1);
                sal_uLong nMatrixCells = 0;
                auto countMatrixCells = [&](const ScRangeList& rList) {
                    for (size_t i = 0; i < rList.size(); ++i)
                    {
                        ScRange aInt = rOrigRange.Intersection(rList[i]);
                        if (aInt.IsValid())
                            nMatrixCells
                                += static_cast<sal_uLong>(aInt.aEnd.Col() - aInt.aStart.Col() + 1)
                                   * (aInt.aEnd.Row() - aInt.aStart.Row() + 1);
                    }
                };
                countMatrixCells(rClipParam.maOriginMatrixRanges);
                countMatrixCells(rClipParam.maMatrixRanges);

                if (nMatrixCells < nOrigCells)
                {
                    // Build a temp clip doc with the original selection
                    // and clear tracked matrix cells so that only
                    // non-matrix cells remain for pasting.
                    auto pOrigDoc = std::make_shared<ScDocument>(SCDOCMODE_CLIP);
                    pOrigDoc->ResetClip(pClipDoc, nClipTab);
                    pClipDoc->CopyToDocument(rOrigRange, InsertDeleteFlags::ALL, false, *pOrigDoc);

                    auto clearTrackedMatrixCells = [&](const ScRangeList& rList) {
                        for (size_t i = 0; i < rList.size(); ++i)
                        {
                            ScRange aInt = rOrigRange.Intersection(rList[i]);
                            if (aInt.IsValid())
                                pOrigDoc->DeleteAreaTab(aInt.aStart.Col(), aInt.aStart.Row(),
                                                        aInt.aEnd.Col(), aInt.aEnd.Row(),
                                                        nClipTab, InsertDeleteFlags::ALL);
                        }
                    };
                    clearTrackedMatrixCells(rClipParam.maOriginMatrixRanges);
                    clearTrackedMatrixCells(rClipParam.maMatrixRanges);

                    ScClipParam aOrigParam(rOrigRange, false);
                    pOrigDoc->SetClipParam(aOrigParam);

                    pTabViewShell->PasteFromClip(nFlags, pOrigDoc.get(),
                            ScPasteFunc::NONE, true /*bSkipEmpty*/, false, false,
                            INS_NONE, InsertDeleteFlags::NONE, false /*bShowDialog*/);
                }

                // Expand each origin matrix using EnterMatrix.
                for (const auto& rInfo : aOriginInfos)
                {
                    if (!rInfo.mpCode)
                        continue;

                    const ScRange& rDest = rInfo.maDestRange;
                    ScMarkData aMark(rThisDoc.GetSheetLimits());
                    aMark.SelectTable(nThisTab, true);

                    pDocSh->GetDocFunc().EnterMatrix(
                            rDest, &aMark, rInfo.mpCode, OUString(),
                            true /*bApi*/, false /*bEnglish*/,
                            OUString(), eGram,
                            rInfo.mbDynamicArrayMaster);
                }

                pUndoMgr->LeaveListAction();

                // Restore cursor and selection to the original paste range.
                SCROW nOrigRows = rOrigRange.aEnd.Row() - rOrigRange.aStart.Row();
                SCCOL nOrigCols = rOrigRange.aEnd.Col() - rOrigRange.aStart.Col();
                ScRange aDestRange(nThisCol, nThisRow, nThisTab,
                                   nThisCol + nOrigCols, nThisRow + nOrigRows, nThisTab);
                rViewData.GetMarkData().ResetMark();
                pTabViewShell->SetCursor(nThisCol, nThisRow);
                rViewData.GetMarkData().SetMarkArea(aDestRange);
                pTabViewShell->MarkRange(aDestRange);
            }
            // --- Non-origin matrix handling ---
            else if (!rClipParam.maMatrixRanges.empty()
                     && rClipParam.maRanges.size() == 1
                     && rClipParam.maRanges[0] == rClipParam.maOriginalRange)
            {
                ScRange aClipRange = rClipParam.getWholeRange();
                SCTAB nClipTab = aClipRange.aStart.Tab();

                // If non-origin matrices fully cover the selection,
                // there are no non-matrix cells to paste — nothing to do.
                sal_uLong nClipCells
                    = static_cast<sal_uLong>(aClipRange.aEnd.Col() - aClipRange.aStart.Col() + 1)
                      * (aClipRange.aEnd.Row() - aClipRange.aStart.Row() + 1);
                sal_uLong nMatCells = 0;
                for (size_t i = 0; i < rClipParam.maMatrixRanges.size(); ++i)
                {
                    ScRange aInt = aClipRange.Intersection(rClipParam.maMatrixRanges[i]);
                    if (aInt.IsValid())
                        nMatCells
                            += static_cast<sal_uLong>(aInt.aEnd.Col() - aInt.aStart.Col() + 1)
                               * (aInt.aEnd.Row() - aInt.aStart.Row() + 1);
                }
                if (nMatCells >= nClipCells)
                    return;

                auto pTempDoc = std::make_shared<ScDocument>(SCDOCMODE_CLIP);
                pTempDoc->ResetClip(pClipDoc, nClipTab);
                pClipDoc->CopyToDocument(aClipRange, InsertDeleteFlags::ALL, false, *pTempDoc);

                for (size_t i = 0; i < rClipParam.maMatrixRanges.size(); ++i)
                {
                    ScRange aClearRange = aClipRange.Intersection(rClipParam.maMatrixRanges[i]);
                    if (aClearRange.IsValid())
                        pTempDoc->DeleteAreaTab(aClearRange.aStart.Col(), aClearRange.aStart.Row(),
                                                aClearRange.aEnd.Col(), aClearRange.aEnd.Row(),
                                                nClipTab, InsertDeleteFlags::ALL);
                }

                ScClipParam aTempParam(rClipParam);
                pTempDoc->SetClipParam(aTempParam);

                pTabViewShell->PasteFromClip( nFlags, pTempDoc.get(),
                        ScPasteFunc::NONE, true /*bSkipEmpty*/, false, false,
                        INS_NONE, InsertDeleteFlags::NONE,
                        bShowDialog );
            }
            else
            {
                // Normal paste: no matrix issues.
                pTabViewShell->PasteFromClip( nFlags, pClipDoc,
                        ScPasteFunc::NONE, false, false, false, INS_NONE, InsertDeleteFlags::NONE,
                        bShowDialog );
            }
        }
    }
    if (comphelper::COKit::isActive())
    {
        bool entireColumnOrRowSelected = false;
        if (pOwnClip)
        {
            ScClipParam clipParam = pOwnClip->GetDocument()->GetClipParam();
            if (clipParam.maRanges.size() > 0)
            {
                if (clipParam.maRanges[0].aEnd.Col() == pOwnClip->GetDocument()->MaxCol()
                    || clipParam.maRanges[0].aEnd.Row() == pOwnClip->GetDocument()->MaxRow())
                {
                    entireColumnOrRowSelected = true;
                }
            }
        }
        const SfxBoolItem& rItem = rThisDoc.GetAttr(nThisCol, nThisRow, nThisTab, ATTR_LINEBREAK);
        if (rItem.GetValue() || entireColumnOrRowSelected)
        {
            pTabViewShell->OnKitSetWidthOrHeight(nThisCol, true);
            pTabViewShell->OnKitSetWidthOrHeight(nThisRow, false);

            ScTabViewShell::notifyAllViewsSheetGeomInvalidation(
                pTabViewShell, true /* bColumns */, true /* bRows */, true /* bSizes*/,
                true /* bHidden */, true /* bFiltered */, true /* bGroups */, rViewData.GetTabNumber());
        }
    }
    pTabViewShell->CellContentChanged();        // => PasteFromSystem() ???
}

bool ScClipUtil::CheckDestRanges(
    const ScDocument& rDoc, SCCOL nSrcCols, SCROW nSrcRows, const ScMarkData& rMark, const ScRangeList& rDest)
{
    for (size_t i = 0, n = rDest.size(); i < n; ++i)
    {
        ScRange aTest = rDest[i];
        // Check for filtered rows in all selected sheets.
        for (const auto& rTab : rMark)
        {
            aTest.aStart.SetTab(rTab);
            aTest.aEnd.SetTab(rTab);
            if (ScViewUtil::HasFiltered(aTest, rDoc))
            {
                // I don't know how to handle pasting into filtered rows yet.
                return false;
            }
        }

        // Destination range must be an exact multiple of the source range.
        SCROW nRows = aTest.aEnd.Row() - aTest.aStart.Row() + 1;
        SCCOL nCols = aTest.aEnd.Col() - aTest.aStart.Col() + 1;
        SCROW nRowTest = (nRows / nSrcRows) * nSrcRows;
        SCCOL nColTest = (nCols / nSrcCols) * nSrcCols;
        if ( rDest.size() > 1 && ( nRows != nRowTest || nCols != nColTest ) )
        {
            // Destination range is not a multiple of the source range. Bail out.
            return false;
        }
    }
    return true;
}

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