/* Copyright (c) 2021 PaddlePaddle Authors. All Rights Reserved.

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

#pragma once
#ifndef _USE_MATH_DEFINES
#define _USE_MATH_DEFINES
#endif

#include "paddle/fluid/operators/fused/fused_dropout_common.h"
#include "paddle/fluid/operators/math/functors.h"

namespace paddle {
namespace operators {

/**
 *@brief the gelu functor
 */
template <typename T>
struct GeluFunctor {
  inline __host__ __device__ T operator()(const T x) const {
    using U = LayerNormParamType<T>;
    const U casted_x = static_cast<U>(x);
    const U temp = erf(casted_x * static_cast<U>(M_SQRT1_2));
    const U out = (casted_x * static_cast<U>(0.5) * (static_cast<U>(1) + temp));
    return static_cast<T>(out);
  }
};

/**
 *@brief the gelu grad functor
 */
template <typename T>
struct GeluGradFunctor {
  inline __host__ __device__ T UseOut(const T x) const {
    using U = LayerNormParamType<T>;
    auto casted_x = static_cast<U>(x);

    auto first =
        static_cast<U>(0.5) *
        (static_cast<U>(1) + erf(casted_x * static_cast<U>(M_SQRT1_2)));

    auto second = static_cast<U>(0.5 * M_2_SQRTPI * M_SQRT1_2) * casted_x *
                  exp(-static_cast<U>(0.5) * casted_x * casted_x);
    return static_cast<T>((first + second));
  }
};

/**
 * @brief dst = dropout(activation(src + bias));
 * the src, mask and dst shape is (rows, cols)
 * the bias shape is (1, cols)
 */
template <typename T, typename MaskType, int VecSize, typename Functor>
__global__ void FusedDropoutActBias(
    Functor act, const uint64_t seed, const uint64_t rows, const uint64_t cols,
    const int increment, const float dropout_prob,
    const bool is_upscale_in_train, const bool is_test,
    const T *__restrict__ src, const T *__restrict__ bias, T *dst,
    MaskType *mask) {
  int col_id = blockDim.x * blockIdx.x + threadIdx.x;
  int row_id = blockIdx.y;
  int idx = row_id * cols + col_id;

  curandStatePhilox4_32_10_t state;
  curand_init(seed, idx, increment, &state);

  T factor = static_cast<T>(1.0f / (1.0f - dropout_prob));
  if (!is_upscale_in_train) {
    factor = static_cast<T>(1.0);
  }
  if (is_test) {
    factor = static_cast<T>(1.0f - dropout_prob);
    if (is_upscale_in_train) {
      factor = static_cast<T>(1.0f);
    }
  }

  using LoadT = platform::AlignedVector<T, VecSize>;
  using StoreT = platform::AlignedVector<T, VecSize>;
  using MaskLoadT = platform::AlignedVector<MaskType, VecSize>;
  using MaskStoreT = platform::AlignedVector<MaskType, VecSize>;

  for (int r = row_id; r < rows; r += blockDim.y * gridDim.y) {
    for (int i = col_id * VecSize; i < cols;
         i += blockDim.x * gridDim.x * VecSize) {
      LoadT src_vec;
      LoadT bias_vec;
      // vectorize load data from global
      platform::Load<T, VecSize>(&src[r * cols + i], &src_vec);

      if (bias) {
        platform::Load<T, VecSize>(&bias[i], &bias_vec);
      } else {
#pragma unroll
        for (int ii = 0; ii < VecSize; ii++) {
          bias_vec[ii] = static_cast<T>(0);
        }
      }

      MaskStoreT mask_vec;
      if (!is_test) {
        float rand[VecSize];
        RandVec<VecSize>(&state, rand);
#pragma unroll
        for (int ii = 0; ii < VecSize; ii++) {
          mask_vec[ii] = static_cast<MaskType>(rand[ii] >= dropout_prob);
        }
      } else {
#pragma unroll
        for (int ii = 0; ii < VecSize; ii++) {
          mask_vec[ii] = static_cast<MaskType>(1);
        }
      }

      StoreT dest_vec;
#pragma unroll
      for (int ii = 0; ii < VecSize; ii++) {
        const T tmp = src_vec[ii] + bias_vec[ii];
        const T act_out = act(tmp);
        dest_vec[ii] = act_out * static_cast<T>(mask_vec[ii]) * factor;
      }
      // store result to global
      platform::Store<T, VecSize>(dest_vec, &dst[r * cols + i]);
      if (!is_test) {
        platform::Store<MaskType, VecSize>(mask_vec, &mask[r * cols + i]);
      }
    }
  }
}

/**
 * @brief dst = dropout(activation(src + bias));
 */
template <typename T, typename MaskType, typename Functor>
void LaunchDropoutActBias(Functor act_functor, const uint64_t seed,
                          const uint32_t rows, const uint32_t cols,
                          const int increment, const float dropout_prob,
                          const bool is_upscale_in_train, const bool is_test,
                          const T *src, const T *bias, T *dst,
                          MaskType *mask_data,
                          const platform::CUDADeviceContext &ctx) {
  // dropout_prob == 1.0f
  if (std::abs(dropout_prob - 1.0f) < 1e-5) {
    SetZero<T>(ctx, dst, rows * cols);
    SetZero<MaskType>(ctx, mask_data, rows * cols);
    return;
  }

  const int VecSize = MAX_CACHE_BYTES / sizeof(T);
  const int real_vec_size = cols % VecSize == 0 ? VecSize : 1;
  const auto config = Get1DBlocksAnd2DGrids(ctx, rows, cols, real_vec_size);
  if (cols % VecSize == 0) {
    FusedDropoutActBias<T, MaskType, VecSize, Functor><<<
        config.block_per_grid, config.thread_per_block, 0, ctx.stream()>>>(
        act_functor, seed, rows, cols, increment, dropout_prob,
        is_upscale_in_train, is_test, src, bias, dst, mask_data);
  } else {
    FusedDropoutActBias<T, MaskType, 1, Functor><<<
        config.block_per_grid, config.thread_per_block, 0, ctx.stream()>>>(
        act_functor, seed, rows, cols, increment, dropout_prob,
        is_upscale_in_train, is_test, src, bias, dst, mask_data);
  }
}

/*
 * @brief calculate the grad of no bias
 */
template <typename T, typename MaskType, int VecSize, typename Functor>
__global__ void FusedDropoutActGrad(Functor act_grad, const T *dout,
                                    const MaskType *mask, const T *src,
                                    const T factor, const int64_t size, T *dx) {
  int64_t idx = blockDim.x * blockIdx.x + threadIdx.x;

  using LoadT = platform::AlignedVector<T, VecSize>;
  using StoreT = platform::AlignedVector<T, VecSize>;
  using MaskLoadT = platform::AlignedVector<MaskType, VecSize>;
  for (int i = idx * VecSize; i < size; i += blockDim.x * gridDim.x * VecSize) {
    LoadT dout_vec;
    LoadT src_vec;
    MaskLoadT mask_vec;

    platform::Load<T, VecSize>(&dout[i], &dout_vec);
    platform::Load<MaskType, VecSize>(&mask[i], &mask_vec);
    platform::Load<T, VecSize>(&src[i], &src_vec);

    StoreT dx_vec;
#pragma unroll
    for (int ii = 0; ii < VecSize; ii++) {
      T args[2];
      args[0] = dout_vec[ii] * static_cast<T>(mask_vec[ii]) * factor;
      args[1] = src_vec[ii];
      dx_vec[ii] = args[0] * act_grad.UseOut(args[1]);
    }
    platform::Store<T, VecSize>(dx_vec, &dx[i]);
  }
}

/**
 * blocks(128 * 8)
 * 1. calculate the dx and reduce total rows to 128 rows
 * 2. save 128*8 temporary sum in 8*128 shared memory
 * 3. reduce the sum of 128 cols data by 8*VecSize warps
 */
template <typename T, typename MaskType, int BlockSizeX, int BlockSizeY,
          int VecSize, typename Functor>
__global__ void FusedDropoutActBiasGrad(Functor act_grad, const T *dout,
                                        const MaskType *mask, const T *src,
                                        const T *bias, const T factor,
                                        const int64_t rows, const int64_t cols,
                                        T *dx, T *dbias) {
  int64_t col_id = blockIdx.x * blockDim.x + threadIdx.x;

  using LoadT = platform::AlignedVector<T, VecSize>;
  using StoreT = platform::AlignedVector<T, VecSize>;
  using MaskLoadT = platform::AlignedVector<MaskType, VecSize>;
  T tmp_sum[VecSize] = {static_cast<T>(0)};
  // calculate the dx and temporary sum
  if (col_id * VecSize < cols) {
    for (int row_id = threadIdx.y; row_id < rows; row_id += blockDim.y) {
      int index = row_id * cols + col_id * VecSize;
      LoadT dout_vec;
      LoadT src_vec;
      LoadT bias_vec;
      MaskLoadT mask_vec;

      platform::Load<T, VecSize>(&dout[index], &dout_vec);
      platform::Load<T, VecSize>(&src[index], &src_vec);
      platform::Load<MaskType, VecSize>(&mask[index], &mask_vec);
      platform::Load<T, VecSize>(&bias[col_id * VecSize], &bias_vec);

      StoreT dx_vec;
#pragma unroll
      for (int i = 0; i < VecSize; i++) {
        T val;
        T args[2];
        args[0] = dout_vec[i] * static_cast<T>(mask_vec[i]) * factor;
        args[1] = src_vec[i] + bias_vec[i];
        val = args[0] * act_grad.UseOut(args[1]);
        dx_vec[i] = val;
        tmp_sum[i] += val;
      }
      platform::Store<T, VecSize>(dx_vec, &dx[index]);
    }
  }

  CalculateDBias<T, VecSize, BlockSizeX, BlockSizeY>(tmp_sum, dbias, cols);
}

/**
 * @brief to launch kernel FusedResidualDropoutBiasGradVec
 */
template <typename T, typename MaskType, typename Functor>
void LaunchDropoutActBiasGrad(Functor act_functor, const T *dout,
                              const MaskType *mask, const T *src, const T *bias,
                              const float dropout_prob,
                              const bool is_upscale_in_train,
                              const uint32_t rows, const uint32_t cols, T *dx,
                              T *dbias,
                              const platform::CUDADeviceContext &ctx) {
  const T zero = static_cast<T>(0.0);
  auto factor = dropout_prob == static_cast<float>(1.0f)
                    ? zero
                    : static_cast<T>(1.0 / (1.0 - dropout_prob));
  if (!is_upscale_in_train) {
    factor = static_cast<T>(1.0f);
  }

  const int VecSize = MAX_CACHE_BYTES / sizeof(T);
  int real_vec_size = cols % VecSize == 0 ? VecSize : 1;

  if (dbias != nullptr) {
    const auto threads = 8;
    const auto blocks =
        std::max(static_cast<uint32_t>(1),
                 (cols / real_vec_size + threads - 1) / threads);
    dim3 block_dim(threads, 128, 1);
    dim3 grid_dim(blocks, 1, 1);
    if (cols % VecSize == 0) {
      FusedDropoutActBiasGrad<
          T, MaskType, 8, 128, VecSize,
          Functor><<<grid_dim, block_dim, 0, ctx.stream()>>>(
          act_functor, dout, mask, src, bias, factor, rows, cols, dx, dbias);
    } else {
      FusedDropoutActBiasGrad<
          T, MaskType, 8, 128, 1,
          Functor><<<grid_dim, block_dim, 0, ctx.stream()>>>(
          act_functor, dout, mask, src, bias, factor, rows, cols, dx, dbias);
    }
  } else {
    const uint64_t n = rows * cols;
    platform::GpuLaunchConfig config =
        platform::GetGpuLaunchConfig1D(ctx, n / real_vec_size);
    if (n % VecSize == 0) {
      FusedDropoutActGrad<T, MaskType, VecSize, Functor><<<
          config.block_per_grid, config.thread_per_block, 0, ctx.stream()>>>(
          act_functor, dout, mask, src, factor, n, dx);
    } else {
      FusedDropoutActGrad<T, MaskType, 1, Functor><<<
          config.block_per_grid, config.thread_per_block, 0, ctx.stream()>>>(
          act_functor, dout, mask, src, factor, n, dx);
    }
  }
}

}  // namespace operators
}  // namespace paddle