// BSD 3-Clause License; see https://github.com/scikit-hep/awkward-1.0/blob/main/LICENSE

#define FILENAME(line)          \
  FILENAME_FOR_EXCEPTIONS_CUDA( \
      "src/cuda-kernels/awkward_reduce_max.cu", line)

#include "standard_parallel_algorithms.h"
#include "awkward/kernels.h"

template <typename OUT, typename IN>
__global__ void
awkward_reduce_max_kernel(OUT* toptr,
                          const IN* fromptr,
                          const int64_t* parents,
                          int64_t lenparents) {
  int64_t thread_id = blockIdx.x * blockDim.x + threadIdx.x;

  if (thread_id < lenparents) {
    IN x = fromptr[thread_id];
    toptr[parents[thread_id]] =
        (x > toptr[parents[thread_id]] ? x : toptr[parents[thread_id]]);
  }
}

template <typename OUT>
__global__ void
awkward_reduce_max_initialize_toptr(OUT* toptr,
                                    OUT identity,
                                    int64_t outlength) {
  int64_t thread_id = blockIdx.x * blockDim.x + threadIdx.x;

  if(thread_id < outlength) {
    toptr[thread_id] = identity;
  }
}

template <typename OUT, typename IN>
ERROR
awkward_reduce_max(OUT* toptr,
                   const IN* fromptr,
                   const int64_t* parents,
                   int64_t lenparents,
                   int64_t outlength,
                   OUT identity) {
  dim3 blocks_per_grid = blocks(outlength);
  dim3 threads_per_block = threads(outlength);

  awkward_reduce_max_initialize_toptr<<<blocks_per_grid, threads_per_block>>>(
      toptr,
      identity,
      outlength);

  blocks_per_grid = blocks(lenparents);
  threads_per_block = threads(lenparents);

  awkward_reduce_max_kernel<<<blocks_per_grid, threads_per_block>>>(
      toptr, fromptr, parents, lenparents);

  return success();
}
ERROR
awkward_reduce_max_int8_int8_64(int8_t* toptr,
                                const int8_t* fromptr,
                                const int64_t* parents,
                                int64_t lenparents,
                                int64_t outlength,
                                int8_t identity) {
  return awkward_reduce_max<int8_t, int8_t>(
      toptr, fromptr, parents, lenparents, outlength, identity);
}
ERROR
awkward_reduce_max_uint8_uint8_64(uint8_t* toptr,
                                  const uint8_t* fromptr,
                                  const int64_t* parents,
                                  int64_t lenparents,
                                  int64_t outlength,
                                  uint8_t identity) {
  return awkward_reduce_max<uint8_t, uint8_t>(
      toptr, fromptr, parents, lenparents, outlength, identity);
}
ERROR
awkward_reduce_max_int16_int16_64(int16_t* toptr,
                                  const int16_t* fromptr,
                                  const int64_t* parents,
                                  int64_t lenparents,
                                  int64_t outlength,
                                  int16_t identity) {
  return awkward_reduce_max<int16_t, int16_t>(
      toptr, fromptr, parents, lenparents, outlength, identity);
}
ERROR
awkward_reduce_max_uint16_uint16_64(uint16_t* toptr,
                                    const uint16_t* fromptr,
                                    const int64_t* parents,
                                    int64_t lenparents,
                                    int64_t outlength,
                                    uint16_t identity) {
  return awkward_reduce_max<uint16_t, uint16_t>(
      toptr, fromptr, parents, lenparents, outlength, identity);
}
ERROR
awkward_reduce_max_int32_int32_64(int32_t* toptr,
                                  const int32_t* fromptr,
                                  const int64_t* parents,
                                  int64_t lenparents,
                                  int64_t outlength,
                                  int32_t identity) {
  return awkward_reduce_max<int32_t, int32_t>(
      toptr, fromptr, parents, lenparents, outlength, identity);
}
ERROR
awkward_reduce_max_uint32_uint32_64(uint32_t* toptr,
                                    const uint32_t* fromptr,
                                    const int64_t* parents,
                                    int64_t lenparents,
                                    int64_t outlength,
                                    uint32_t identity) {
  return awkward_reduce_max<uint32_t, uint32_t>(
      toptr, fromptr, parents, lenparents, outlength, identity);
}
ERROR
awkward_reduce_max_int64_int64_64(int64_t* toptr,
                                  const int64_t* fromptr,
                                  const int64_t* parents,
                                  int64_t lenparents,
                                  int64_t outlength,
                                  int64_t identity) {
  return awkward_reduce_max<int64_t, int64_t>(
      toptr, fromptr, parents, lenparents, outlength, identity);
}
ERROR
awkward_reduce_max_uint64_uint64_64(uint64_t* toptr,
                                    const uint64_t* fromptr,
                                    const int64_t* parents,
                                    int64_t lenparents,
                                    int64_t outlength,
                                    uint64_t identity) {
  return awkward_reduce_max<uint64_t, uint64_t>(
      toptr, fromptr, parents, lenparents, outlength, identity);
}
ERROR
awkward_reduce_max_float32_float32_64(float* toptr,
                                      const float* fromptr,
                                      const int64_t* parents,
                                      int64_t lenparents,
                                      int64_t outlength,
                                      float identity) {
  return awkward_reduce_max<float, float>(
      toptr, fromptr, parents, lenparents, outlength, identity);
}
ERROR
awkward_reduce_max_float64_float64_64(double* toptr,
                                      const double* fromptr,
                                      const int64_t* parents,
                                      int64_t lenparents,
                                      int64_t outlength,
                                      double identity) {
  return awkward_reduce_max<double, double>(
      toptr, fromptr, parents, lenparents, outlength, identity);
}
