/*
 * SPDX-FileCopyrightText: Copyright (c) 1993-2026 NVIDIA CORPORATION & AFFILIATES. All rights reserved.
 * SPDX-License-Identifier: Apache-2.0
 *
 * Licensed 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
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
#include "flattenConcat.h"
#include "common/dimsHelpers.h"

#include <algorithm>
#include <iostream>
#include <memory>
#include <numeric>
#include <string>
#include <string_view>
#include <utility>
#include <vector>

using namespace nvinfer1;
using namespace nvinfer1::pluginInternal;
using nvinfer1::plugin::FlattenConcat;
using nvinfer1::plugin::FlattenConcatPluginCreator;

static char const* const kFLATTENCONCAT_PLUGIN_VERSION{"1"};
static char const* const kFLATTENCONCAT_PLUGIN_NAME{"FlattenConcat_TRT"};

FlattenConcat::FlattenConcat(int32_t concatAxis, bool ignoreBatch)
    : mIgnoreBatch(ignoreBatch)
    , mConcatAxisID(concatAxis)
{
    PLUGIN_VALIDATE(mConcatAxisID == 1 || mConcatAxisID == 2 || mConcatAxisID == 3);
}

FlattenConcat::FlattenConcat(int32_t concatAxis, bool ignoreBatch, int32_t numInputs, int32_t outputConcatAxis,
    int32_t const* inputConcatAxis, size_t const* copySize, nvinfer1::Dims const& chwDims)
    : mCopySize(numInputs)
    , mInputConcatAxis(numInputs)
    , mIgnoreBatch(ignoreBatch)
    , mConcatAxisID(concatAxis)
    , mOutputConcatAxis(outputConcatAxis)
    , mNumInputs(numInputs)
    , mCHW(chwDims)
{
    PLUGIN_VALIDATE(mConcatAxisID >= 1 && mConcatAxisID <= 3);

    std::copy(copySize, copySize + mNumInputs, mCopySize.begin());
    std::copy(inputConcatAxis, inputConcatAxis + mNumInputs, mInputConcatAxis.begin());
}

FlattenConcat::FlattenConcat(void const* data, size_t length)
{
    char const* d = static_cast<char const*>(data);
    char const* const a = d;
    mIgnoreBatch = read<bool>(d);
    mConcatAxisID = read<int32_t>(d);
    PLUGIN_VALIDATE(mConcatAxisID >= 1 && mConcatAxisID <= 3);
    mOutputConcatAxis = read<int32_t>(d);
    mNumInputs = read<int32_t>(d);

    mInputConcatAxis.resize(mNumInputs);
    std::for_each(mInputConcatAxis.begin(), mInputConcatAxis.end(), [&](int32_t& inp) { inp = read<int32_t>(d); });

    mCHW = read<nvinfer1::Dims3>(d);

    mCopySize.resize(mNumInputs);
    std::for_each(mCopySize.begin(), mCopySize.end(), [&](size_t& inp) { inp = read<size_t>(d); });

    PLUGIN_VALIDATE(d == a + length);
}

FlattenConcat::~FlattenConcat() {}

int32_t FlattenConcat::getNbOutputs() const noexcept
{
    return 1;
}

Dims FlattenConcat::getOutputDimensions(int32_t index, Dims const* inputs, int32_t nbInputDims) noexcept
{
    try
    {
        PLUGIN_ASSERT(nbInputDims >= 1);
        PLUGIN_ASSERT(index == 0);

        mNumInputs = nbInputDims;
        mCopySize.resize(mNumInputs);
        mInputConcatAxis.resize(mNumInputs);
        int32_t outputConcatAxis = 0;

        for (int32_t i = 0; i < nbInputDims; ++i)
        {
            int32_t flattenInput = 0;
            PLUGIN_ASSERT(inputs[i].nbDims == 3);
            if (mConcatAxisID != 1)
            {
                PLUGIN_ASSERT(inputs[i].d[0] == inputs[0].d[0]);
            }
            if (mConcatAxisID != 2)
            {
                PLUGIN_ASSERT(inputs[i].d[1] == inputs[0].d[1]);
            }
            if (mConcatAxisID != 3)
            {
                PLUGIN_ASSERT(inputs[i].d[2] == inputs[0].d[2]);
            }
            flattenInput = inputs[i].d[0] * inputs[i].d[1] * inputs[i].d[2];
            outputConcatAxis += flattenInput;
        }

        return Dims3(mConcatAxisID == 1 ? outputConcatAxis : 1, mConcatAxisID == 2 ? outputConcatAxis : 1,
            mConcatAxisID == 3 ? outputConcatAxis : 1);
    }
    catch (std::exception const& e)
    {
        caughtError(e);
    }
    return Dims{};
}

int32_t FlattenConcat::initialize() noexcept
{
    return STATUS_SUCCESS;
}

void FlattenConcat::terminate() noexcept {}

size_t FlattenConcat::getWorkspaceSize(int32_t) const noexcept
{
    return 0;
}

int32_t FlattenConcat::enqueue(
    int32_t batchSize, void const* const* inputs, void* const* outputs, void*, cudaStream_t stream) noexcept
{
    try
    {
        PLUGIN_ASSERT(mConcatAxisID != 0);
        // mCHW is the first input tensor
        auto numConcats = static_cast<int32_t>(pluginInternal::volume(mCHW, /*start*/ 0, /*stop*/ mConcatAxisID - 1));

        // Num concats will be proportional to number of samples in a batch
        if (!mIgnoreBatch)
        {
            numConcats *= batchSize;
        }

        auto* output = static_cast<float*>(outputs[0]);
        int32_t offset = 0;
        for (int32_t i = 0; i < mNumInputs; ++i)
        {
            auto const* input = static_cast<float const*>(inputs[i]);
            for (int32_t n = 0; n < numConcats; ++n)
            {
                auto status = mCublasWrapper->cublasScopy(mCublas, mInputConcatAxis[i], input + n * mInputConcatAxis[i],
                    1, output + (n * mOutputConcatAxis + offset), 1);

                if (status != CUBLAS_STATUS_SUCCESS)
                {
                    return STATUS_FAILURE;
                }
            }
            offset += mInputConcatAxis[i];
        }

        return STATUS_SUCCESS;
    }
    catch (std::exception const& e)
    {
        caughtError(e);
    }
    return -1;
}

size_t FlattenConcat::getSerializationSize() const noexcept
{
    return sizeof(bool) + sizeof(int32_t) * (3 + mNumInputs) + sizeof(nvinfer1::Dims)
        + (sizeof(decltype(mCopySize)::value_type) * mNumInputs);
}

void FlattenConcat::serialize(void* buffer) const noexcept
{
    char* d = static_cast<char*>(buffer);
    char const* const a = d;
    write(d, mIgnoreBatch);
    write(d, mConcatAxisID);
    write(d, mOutputConcatAxis);
    write(d, mNumInputs);
    for (int32_t i = 0; i < mNumInputs; ++i)
    {
        write(d, mInputConcatAxis[i]);
    }
    write(d, mCHW);
    for (int32_t i = 0; i < mNumInputs; ++i)
    {
        write(d, mCopySize[i]);
    }
    PLUGIN_ASSERT(d == a + getSerializationSize());
}

// Attach the plugin object to an execution context and grant the plugin the access to some context resource.
void FlattenConcat::attachToContext(
    cudnnContext* cudnnContext, cublasContext* cublasContext, IGpuAllocator* gpuAllocator) noexcept
{
    try
    {
        mCublasWrapper = createPluginCublasWrapper(gpuAllocator);
        mCublas = mCublasWrapper->getCublasHandle();
        PLUGIN_VALIDATE(mCublas != nullptr);
    }
    catch (const std::exception& e)
    {
        caughtError(e);
    }
}

// Detach the plugin object from its execution context.
void FlattenConcat::detachFromContext() noexcept {}

// Set plugin namespace
void FlattenConcat::setPluginNamespace(char const* pluginNamespace) noexcept
{
    try
    {
        mPluginNamespace = pluginNamespace;
    }
    catch (std::exception const& e)
    {
        caughtError(e);
    }
}

char const* FlattenConcat::getPluginNamespace() const noexcept
{
    return mPluginNamespace.c_str();
}

// Return the DataType of the plugin output at the requested index
DataType FlattenConcat::getOutputDataType(
    int32_t index, nvinfer1::DataType const* inputTypes, int32_t nbInputs) const noexcept
{
    PLUGIN_ASSERT(index < 3);
    return DataType::kFLOAT;
}

void FlattenConcat::configurePlugin(Dims const* inputDims, int32_t nbInputs, Dims const* outputDims, int32_t nbOutputs,
    DataType const* inputTypes, DataType const* outputTypes, bool const* inputIsBroadcast,
    bool const* outputIsBroadcast, PluginFormat floatFormat, int32_t maxBatchSize) noexcept
{
    try
    {
        PLUGIN_ASSERT(nbOutputs == 1);
        mCHW = inputDims[0];
        mNumInputs = nbInputs;
        PLUGIN_ASSERT(inputDims[0].nbDims == 3);

        mInputConcatAxis.resize(mNumInputs);
        for (int32_t i = 0; i < nbInputs; ++i)
        {
            int32_t flattenInput = 0;
            PLUGIN_ASSERT(inputDims[i].nbDims == 3);
            if (mConcatAxisID != 1)
            {
                PLUGIN_ASSERT(inputDims[i].d[0] == inputDims[0].d[0]);
            }
            if (mConcatAxisID != 2)
            {
                PLUGIN_ASSERT(inputDims[i].d[1] == inputDims[0].d[1]);
            }
            if (mConcatAxisID != 3)
            {
                PLUGIN_ASSERT(inputDims[i].d[2] == inputDims[0].d[2]);
            }
            flattenInput = inputDims[i].d[0] * inputDims[i].d[1] * inputDims[i].d[2];
            mInputConcatAxis[i] = flattenInput;
            mOutputConcatAxis += mInputConcatAxis[i];
        }

        mCopySize.resize(mNumInputs);
        for (int32_t i = 0; i < nbInputs; ++i)
        {
            mCopySize[i] = inputDims[i].d[0] * inputDims[i].d[1] * inputDims[i].d[2] * sizeof(float);
        }
    }
    catch (std::exception const& e)
    {
        caughtError(e);
    }
}

bool FlattenConcat::supportsFormat(DataType type, PluginFormat format) const noexcept
{
    return (type == DataType::kFLOAT && format == PluginFormat::kLINEAR);
}
char const* FlattenConcat::getPluginType() const noexcept
{
    return "FlattenConcat_TRT";
}

char const* FlattenConcat::getPluginVersion() const noexcept
{
    return "1";
}

void FlattenConcat::destroy() noexcept
{
    delete this;
}

IPluginV2Ext* FlattenConcat::clone() const noexcept
{
    try
    {
        auto plugin = std::make_unique<FlattenConcat>(mConcatAxisID, mIgnoreBatch, mNumInputs, mOutputConcatAxis,
            mInputConcatAxis.data(), mCopySize.data(), mCHW);
        plugin->setPluginNamespace(mPluginNamespace.c_str());
        return plugin.release();
    }
    catch (std::exception const& e)
    {
        caughtError(e);
    }
    return nullptr;
}

FlattenConcatPluginCreator::FlattenConcatPluginCreator()
{
    mPluginAttributes.clear();
    mPluginAttributes.emplace_back(PluginField("axis", nullptr, PluginFieldType::kINT32, 1));
    mPluginAttributes.emplace_back(PluginField("ignoreBatch", nullptr, PluginFieldType::kINT32, 1));

    mFC.nbFields = mPluginAttributes.size();
    mFC.fields = mPluginAttributes.data();
}

char const* FlattenConcatPluginCreator::getPluginName() const noexcept
{
    return kFLATTENCONCAT_PLUGIN_NAME;
}

char const* FlattenConcatPluginCreator::getPluginVersion() const noexcept
{
    return kFLATTENCONCAT_PLUGIN_VERSION;
}

PluginFieldCollection const* FlattenConcatPluginCreator::getFieldNames() noexcept
{
    return &mFC;
}

IPluginV2Ext* FlattenConcatPluginCreator::createPlugin(char const* name, PluginFieldCollection const* fc) noexcept
{
    try
    {
        using namespace std::string_view_literals;
        plugin::validateRequiredAttributesExist({"axis", "ignoreBatch"}, fc);
        PluginField const* fields = fc->fields;
        for (int32_t i = 0; i < fc->nbFields; ++i)
        {
            std::string_view const attrName = fields[i].name;
            if (attrName == "axis"sv)
            {
                PLUGIN_VALIDATE(fields[i].type == PluginFieldType::kINT32);
                mConcatAxisID = *(static_cast<int32_t const*>(fields[i].data));
            }
            if (attrName == "ignoreBatch"sv)
            {
                PLUGIN_VALIDATE(fields[i].type == PluginFieldType::kINT32);
                auto ignoreBatch = *(static_cast<int32_t const*>(fields[i].data));
                PLUGIN_VALIDATE(ignoreBatch == 0 || ignoreBatch == 1);
                mIgnoreBatch = static_cast<bool>(ignoreBatch);
            }
        }

        auto plugin = std::make_unique<FlattenConcat>(mConcatAxisID, mIgnoreBatch);
        plugin->setPluginNamespace(mNamespace.c_str());
        return plugin.release();
    }
    catch (std::exception const& e)
    {
        caughtError(e);
    }
    return nullptr;
}

IPluginV2Ext* FlattenConcatPluginCreator::deserializePlugin(
    char const* name, void const* serialData, size_t serialLength) noexcept
{
    try
    {
        // This object will be deleted when the network is destroyed, which will
        // call Concat::destroy()
        auto plugin = std::make_unique<FlattenConcat>(serialData, serialLength);
        plugin->setPluginNamespace(mNamespace.c_str());
        return plugin.release();
    }
    catch (std::exception const& e)
    {
        caughtError(e);
    }
    return nullptr;
}