/*
 * Copyright (c) 2023, Alliance for Open Media. All rights reserved
 *
 * This source code is subject to the terms of the BSD 2 Clause License and
 * the Alliance for Open Media Patent License 1.0. If the BSD 2 Clause License
 * was not distributed with this source code in the LICENSE file, you can
 * obtain it at www.aomedia.org/license/software. If the Alliance for Open
 * Media Patent License 1.0 was not distributed with this source code in the
 * PATENTS file, you can obtain it at www.aomedia.org/license/patent.
 */

#include <arm_neon.h>

#include "aom_dsp_rtcd.h"
#include "mem_neon.h"

static inline void sse_16x1_neon_dotprod(const uint8_t *src, const uint8_t *ref, uint32x4_t *sse) {
    uint8x16_t s = vld1q_u8(src);
    uint8x16_t r = vld1q_u8(ref);

    uint8x16_t abs_diff = vabdq_u8(s, r);

    *sse = vdotq_u32(*sse, abs_diff, abs_diff);
}

static inline void sse_8x1_neon_dotprod(const uint8_t *src, const uint8_t *ref, uint32x2_t *sse) {
    uint8x8_t s = vld1_u8(src);
    uint8x8_t r = vld1_u8(ref);

    uint8x8_t abs_diff = vabd_u8(s, r);

    *sse = vdot_u32(*sse, abs_diff, abs_diff);
}

static inline void sse_4x2_neon_dotprod(const uint8_t *src, int src_stride, const uint8_t *ref, int ref_stride,
                                        uint32x2_t *sse) {
    uint8x8_t s = load_u8_4x2(src, src_stride);
    uint8x8_t r = load_u8_4x2(ref, ref_stride);

    uint8x8_t abs_diff = vabd_u8(s, r);

    *sse = vdot_u32(*sse, abs_diff, abs_diff);
}

static inline uint32_t sse_wxh_neon_dotprod(const uint8_t *src, int src_stride, const uint8_t *ref, int ref_stride,
                                            int width, int height) {
    uint32x2_t sse[2] = {vdup_n_u32(0), vdup_n_u32(0)};

    if ((width & 0x07) && ((width & 0x07) < 5)) {
        int i = height;
        do {
            int j = 0;
            do {
                sse_8x1_neon_dotprod(src + j, ref + j, &sse[0]);
                sse_8x1_neon_dotprod(src + j + src_stride, ref + j + ref_stride, &sse[1]);
                j += 8;
            } while (j + 4 < width);

            sse_4x2_neon_dotprod(src + j, src_stride, ref + j, ref_stride, &sse[0]);
            src += 2 * src_stride;
            ref += 2 * ref_stride;
            i -= 2;
        } while (i != 0);
    } else {
        int i = height;
        do {
            int j = 0;
            do {
                sse_8x1_neon_dotprod(src + j, ref + j, &sse[0]);
                sse_8x1_neon_dotprod(src + j + src_stride, ref + j + ref_stride, &sse[1]);
                j += 8;
            } while (j < width);

            src += 2 * src_stride;
            ref += 2 * ref_stride;
            i -= 2;
        } while (i != 0);
    }
    return vaddvq_u32(vcombine_u32(sse[0], sse[1]));
}

static inline uint32_t sse_128xh_neon_dotprod(const uint8_t *src, int src_stride, const uint8_t *ref, int ref_stride,
                                              int height) {
    uint32x4_t sse[2] = {vdupq_n_u32(0), vdupq_n_u32(0)};

    int i = height;
    do {
        sse_16x1_neon_dotprod(src, ref, &sse[0]);
        sse_16x1_neon_dotprod(src + 16, ref + 16, &sse[1]);
        sse_16x1_neon_dotprod(src + 32, ref + 32, &sse[0]);
        sse_16x1_neon_dotprod(src + 48, ref + 48, &sse[1]);
        sse_16x1_neon_dotprod(src + 64, ref + 64, &sse[0]);
        sse_16x1_neon_dotprod(src + 80, ref + 80, &sse[1]);
        sse_16x1_neon_dotprod(src + 96, ref + 96, &sse[0]);
        sse_16x1_neon_dotprod(src + 112, ref + 112, &sse[1]);

        src += src_stride;
        ref += ref_stride;
    } while (--i != 0);

    return vaddvq_u32(vaddq_u32(sse[0], sse[1]));
}

static inline uint32_t sse_64xh_neon_dotprod(const uint8_t *src, int src_stride, const uint8_t *ref, int ref_stride,
                                             int height) {
    uint32x4_t sse[2] = {vdupq_n_u32(0), vdupq_n_u32(0)};

    int i = height;
    do {
        sse_16x1_neon_dotprod(src, ref, &sse[0]);
        sse_16x1_neon_dotprod(src + 16, ref + 16, &sse[1]);
        sse_16x1_neon_dotprod(src + 32, ref + 32, &sse[0]);
        sse_16x1_neon_dotprod(src + 48, ref + 48, &sse[1]);

        src += src_stride;
        ref += ref_stride;
    } while (--i != 0);

    return vaddvq_u32(vaddq_u32(sse[0], sse[1]));
}

static inline uint32_t sse_32xh_neon_dotprod(const uint8_t *src, int src_stride, const uint8_t *ref, int ref_stride,
                                             int height) {
    uint32x4_t sse[2] = {vdupq_n_u32(0), vdupq_n_u32(0)};

    int i = height;
    do {
        sse_16x1_neon_dotprod(src, ref, &sse[0]);
        sse_16x1_neon_dotprod(src + 16, ref + 16, &sse[1]);

        src += src_stride;
        ref += ref_stride;
    } while (--i != 0);

    return vaddvq_u32(vaddq_u32(sse[0], sse[1]));
}

static inline uint32_t sse_16xh_neon_dotprod(const uint8_t *src, int src_stride, const uint8_t *ref, int ref_stride,
                                             int height) {
    uint32x4_t sse[2] = {vdupq_n_u32(0), vdupq_n_u32(0)};

    int i = height;
    do {
        sse_16x1_neon_dotprod(src, ref, &sse[0]);
        src += src_stride;
        ref += ref_stride;
        sse_16x1_neon_dotprod(src, ref, &sse[1]);
        src += src_stride;
        ref += ref_stride;
        i -= 2;
    } while (i != 0);

    return vaddvq_u32(vaddq_u32(sse[0], sse[1]));
}

static inline uint32_t sse_8xh_neon_dotprod(const uint8_t *src, int src_stride, const uint8_t *ref, int ref_stride,
                                            int height) {
    uint32x2_t sse[2] = {vdup_n_u32(0), vdup_n_u32(0)};

    int i = height;
    do {
        sse_8x1_neon_dotprod(src, ref, &sse[0]);
        src += src_stride;
        ref += ref_stride;
        sse_8x1_neon_dotprod(src, ref, &sse[1]);
        src += src_stride;
        ref += ref_stride;
        i -= 2;
    } while (i != 0);

    return vaddvq_u32(vcombine_u32(sse[0], sse[1]));
}

static inline uint32_t sse_4xh_neon_dotprod(const uint8_t *src, int src_stride, const uint8_t *ref, int ref_stride,
                                            int height) {
    uint32x2_t sse = vdup_n_u32(0);

    int i = height;
    do {
        sse_4x2_neon_dotprod(src, src_stride, ref, ref_stride, &sse);

        src += 2 * src_stride;
        ref += 2 * ref_stride;
        i -= 2;
    } while (i != 0);

    return vaddv_u32(sse);
}

int64_t svt_aom_sse_neon_dotprod(const uint8_t *src, int src_stride, const uint8_t *ref, int ref_stride, int width,
                                 int height) {
    switch (width) {
    case 4: return sse_4xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    case 8: return sse_8xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    case 16: return sse_16xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    case 32: return sse_32xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    case 64: return sse_64xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    case 128: return sse_128xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    default: return sse_wxh_neon_dotprod(src, src_stride, ref, ref_stride, width, height);
    }
}

uint64_t svt_spatial_full_distortion_kernel_neon_dotprod(uint8_t *src, uint32_t src_offset, uint32_t src_stride,
                                                         uint8_t *ref, int32_t ref_offset, uint32_t ref_stride,
                                                         uint32_t width, uint32_t height) {
    src += src_offset;
    ref += ref_offset;
    switch (width) {
    case 4: return sse_4xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    case 8: return sse_8xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    case 16: return sse_16xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    case 32: return sse_32xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    case 64: return sse_64xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    case 128: return sse_128xh_neon_dotprod(src, src_stride, ref, ref_stride, height);
    default: return sse_wxh_neon_dotprod(src, src_stride, ref, ref_stride, width, height);
    }
}
