// SPDX-License-Identifier: MIT
// Copyright (c) 2018-2024, Advanced Micro Devices, Inc. All rights reserved.

#pragma once

#include "ck_tile/core.hpp"
#include "ck_tile/ops/rmsnorm2d/pipeline/rmsnorm2d_fwd_pipeline_default_policy.hpp"
#include <string>
#include <type_traits>

namespace ck_tile {

template <typename Problem_, typename Policy_ = AddRmsnorm2dRdquantFwdPipelineDefaultPolicy>
struct AddRmsnorm2dRdquantFwdPipelineThreePass
{
    using Problem = ck_tile::remove_cvref_t<Problem_>;
    using Policy  = ck_tile::remove_cvref_t<Policy_>;

    using ADataType       = ck_tile::remove_cvref_t<typename Problem::ADataType>;
    using BDataType       = ck_tile::remove_cvref_t<typename Problem::BDataType>;
    using GammaDataType   = ck_tile::remove_cvref_t<typename Problem::GammaDataType>;
    using ComputeDataType = ck_tile::remove_cvref_t<typename Problem::ComputeDataType>;
    using XDataType       = ck_tile::remove_cvref_t<typename Problem::XDataType>;
    using YScaleDataType  = ck_tile::remove_cvref_t<typename Problem::YScaleDataType>;
    using QYDataType      = ck_tile::remove_cvref_t<typename Problem::QYDataType>;

    static constexpr bool kHasGamma = !std::is_same_v<GammaDataType, ck_tile::null_type>;
    static constexpr bool kSaveX    = Problem::kSaveX;

    static constexpr bool kNeedCrossWarpSync = Problem::kNeedCrossWarpSync;
    static constexpr bool kPadM   = false; // TODO - BlockAddRmsnorm2dRdquantFwdProblem::kPadM
    static constexpr bool kPadN   = Problem::kPadN;
    static constexpr bool UseMax3 = true; // TODO - Move to trait

    static constexpr const char* name = []() {
        if constexpr(kNeedCrossWarpSync)
            return "bpr_tp"; // block per row
        else
            return "wpr_tp"; // warp per row
    }();

    CK_TILE_HOST_DEVICE static constexpr index_t GetSmemSize()
    {
        return Policy::template GetSmemSize<Problem>();
    }

    template <typename AWindow,
              typename BWindow,
              typename GammaWindow,
              typename XWindow,
              typename YScaleWindow,
              typename QYWindow>
    CK_TILE_DEVICE auto operator()(const AWindow& a_window_,
                                   const BWindow& b_window_,
                                   const GammaWindow& gamma_window_,
                                   XWindow& x_window_,
                                   YScaleWindow& yscale_window,
                                   QYWindow& qy_window,
                                   ComputeDataType epsilon,
                                   ck_tile::index_t row_size,
                                   void* smem) const
    {
        auto a_window =
            make_tile_window(a_window_, Policy::template MakeABXBlockTileDistribution<Problem>());
        auto b_window =
            make_tile_window(b_window_, Policy::template MakeABXBlockTileDistribution<Problem>());
        auto x_window = [&]() {
            if constexpr(kSaveX)
                return make_tile_window(x_window_,
                                        Policy::template MakeABXBlockTileDistribution<Problem>());
            else
                return x_window_;
        }();
        auto gamma_window = make_tile_window(
            gamma_window_, Policy::template MakeGammaBlockTileDistribution<Problem>());

        auto reduce_square_sum_func = ReduceOp::SquareAdd{};
        auto reduce_sum_func        = ReduceOp::Add{};
        auto reduce_absmax_func     = ReduceOp::AbsMax{};
        auto reduce_absmax3_func    = [](auto acc_, auto v_0_, auto v_1_) {
            float rtn;
            asm volatile("v_max3_f32 %0, %1, abs(%2), abs(%3)"
                         : "=v"(rtn)
                         : "v"(acc_), "v"(v_0_), "v"(v_1_));
            return rtn;
        };
        auto reduce_max_func     = ReduceOp::Max{};
        auto block_reduce2d      = Policy::template GetBlockReduce2d<Problem>();
        auto block_reduce2d_sync = Policy::template GetBlockReduce2dSync<Problem>();
        auto block_reduce2d_cross_warp_sync =
            Policy::template GetBlockReduce2dCrossWarpSync<Problem>();

        static constexpr index_t Block_N = Problem::BlockShape::Block_N;
        index_t num_n_tile_iteration =
            __builtin_amdgcn_readfirstlane(integer_divide_ceil(row_size, Block_N));

        using XTensorType = decltype(cast_tile<ComputeDataType>(load_tile(a_window)));
        auto square_sum   = block_reduce2d.template MakeYBlockTile<XTensorType>();
        set_tile(square_sum, reduce_square_sum_func.GetIdentityValue<ComputeDataType>());

        for(int iN = __builtin_amdgcn_readfirstlane(0); iN < num_n_tile_iteration; ++iN)
        {
            const auto a = load_tile(a_window);
            const auto b = load_tile(b_window);

            auto x = tile_elementwise_in(
                [&](const auto& a_, const auto& b_) {
                    return type_convert<ComputeDataType>(a_) + type_convert<ComputeDataType>(b_);
                },
                a,
                b);

            if constexpr(kSaveX)
                store_tile(x_window, cast_tile<XDataType>(x));

            block_reduce2d(x, square_sum, reduce_square_sum_func);
            move_tile_window(x_window, {0, Block_N});
            move_tile_window(a_window, {0, Block_N});
            move_tile_window(b_window, {0, Block_N});
        }

        block_reduce2d_sync(square_sum, reduce_sum_func);
        block_reduce2d_cross_warp_sync(square_sum, smem, reduce_sum_func);

        auto inv_rms = tile_elementwise_in(
            [&](const auto& v_) {
                return type_convert<ComputeDataType>(1.0f) / (sqrt(v_ / row_size + epsilon));
            },
            square_sum);

        // reverse read x to reuse cache
        ck_tile::index_t stride_to_right_most_window =
            row_size % Block_N == 0 ? row_size - Block_N : row_size - row_size % Block_N;

        if constexpr(kSaveX)
            move_tile_window(x_window, {0, -Block_N});
        else
        {
            move_tile_window(a_window, {0, -Block_N});
            move_tile_window(b_window, {0, -Block_N});
        }
        move_tile_window(gamma_window, {stride_to_right_most_window});

        using YTensorType = XTensorType;
        auto absmax       = block_reduce2d.template MakeYBlockTile<YTensorType>();
        set_tile(absmax, reduce_absmax_func.GetIdentityValue<ComputeDataType>());

        // rmsnorm computation + absmax(threadwise reduce)
        if constexpr(kSaveX)
            __syncthreads();

        for(int iN = __builtin_amdgcn_readfirstlane(0); iN < num_n_tile_iteration; ++iN)
        {
            auto x = [&]() {
                if constexpr(kSaveX)
                {
                    return load_tile(x_window);
                }
                else
                {
                    const auto a = load_tile(a_window);
                    const auto b = load_tile(b_window);
                    return tile_elementwise_in(
                        [&](const auto& a_, const auto& b_) {
                            return type_convert<ComputeDataType>(a_) +
                                   type_convert<ComputeDataType>(b_);
                        },
                        a,
                        b);
                }
            }();

            auto gamma = load_tile(gamma_window);
            auto y     = make_static_distributed_tensor<ComputeDataType>(x.get_tile_distribution());

            sweep_tile(y, [&](auto idx) {
                constexpr auto i_idx = make_tuple(idx[number<0>{}]);
                constexpr auto j_idx = make_tuple(idx[number<1>{}]);

                const auto gamma_ = type_convert<ComputeDataType>(gamma[j_idx]);

                const auto x_ = type_convert<ComputeDataType>(x[idx]);
                auto y_       = x_ * inv_rms[i_idx] * gamma_;

                y(idx) = type_convert<ComputeDataType>(y_);
            });

            constexpr auto x_size_per_row =
                x.get_tile_distribution().get_ys_to_d_descriptor().get_lengths().at(number<1>{});
            if constexpr(UseMax3 && std::is_same_v<ComputeDataType, float> &&
                         x_size_per_row % 2 == 0)
                block_reduce2d(y, absmax, reduce_absmax3_func, sequence<1, 2>{});
            else
                block_reduce2d(y, absmax, reduce_absmax_func);

            if constexpr(kSaveX)
                move_tile_window(x_window, {0, -Block_N});
            else
            {
                move_tile_window(a_window, {0, -Block_N});
                move_tile_window(b_window, {0, -Block_N});
            }
            move_tile_window(gamma_window, {-Block_N});
        }

        // compute absmax, cross-lane->cross-warp
        block_reduce2d_sync(absmax, reduce_max_func);
        block_reduce2d_cross_warp_sync(absmax, smem, reduce_max_func);

        // ex: yscale = absmax / 127 if int8
        auto yscale = tile_elementwise_in(
            [&](const auto& v_) {
                return v_ / type_convert<ComputeDataType>(numeric<QYDataType>::max());
            },
            absmax);
        store_tile(yscale_window, cast_tile<YScaleDataType>(yscale));

        // quantize y to qy
        // recompute rmsnorm, try to save y in the future
        if constexpr(kSaveX)
            move_tile_window(x_window, {0, Block_N});
        else
        {
            move_tile_window(a_window, {0, Block_N});
            move_tile_window(b_window, {0, Block_N});
        }
        move_tile_window(gamma_window, {Block_N});

        for(int iN = __builtin_amdgcn_readfirstlane(0); iN < num_n_tile_iteration; ++iN)
        {
            auto x = [&]() {
                if constexpr(kSaveX)
                {
                    return load_tile(x_window);
                }
                else
                {
                    const auto a = load_tile(a_window);
                    const auto b = load_tile(b_window);
                    return tile_elementwise_in(
                        [&](const auto& a_, const auto& b_) {
                            return type_convert<ComputeDataType>(a_) +
                                   type_convert<ComputeDataType>(b_);
                        },
                        a,
                        b);
                }
            }();

            auto gamma = load_tile(gamma_window);
            auto y     = make_static_distributed_tensor<ComputeDataType>(x.get_tile_distribution());
            auto qy    = make_static_distributed_tensor<QYDataType>(y.get_tile_distribution());

            sweep_tile(y, [&](auto idx) {
                constexpr auto i_idx = make_tuple(idx[number<0>{}]);
                constexpr auto j_idx = make_tuple(idx[number<1>{}]);

                const auto gamma_ = type_convert<ComputeDataType>(gamma[j_idx]);

                const auto x_ = type_convert<ComputeDataType>(x[idx]);
                auto y_       = x_ * inv_rms[i_idx] * gamma_;
                auto qy_      = y_ / yscale[i_idx];
                qy(idx)       = type_convert<QYDataType>(saturates<QYDataType>{}(qy_));
            });

            store_tile(qy_window, qy);

            if constexpr(kSaveX)
                move_tile_window(x_window, {0, Block_N});
            else
            {
                move_tile_window(a_window, {0, Block_N});
                move_tile_window(b_window, {0, Block_N});
            }
            move_tile_window(gamma_window, {Block_N});
            move_tile_window(qy_window, {0, Block_N});
        }
    }
};
} // namespace ck_tile
