/*

 * This file is part of FFmpeg.

 *

 * FFmpeg is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2.1 of the License, or (at your option) any later version.

 *

 * FFmpeg is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with FFmpeg; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

 */

#include "config.h"

#include "config_components.h"

#include "libavutil/attributes.h"

#include "libavutil/common.h"

#include "avcodec.h"

#include "dct.h"

#include "faanidct.h"

#include "idctdsp.h"

#include "simple_idct.h"

#include "xvididct.h"

av_cold void ff_permute_scantable(uint8_t dst[64], const uint8_t src[64],

                                  const uint8_t permutation[64])

{

    for (int i = 0; i < 64; i++) {

        int j = src[i];

        dst[i] = permutation[j];

    }

}

av_cold void ff_init_scantable_permutation(uint8_t *idct_permutation,

                                           enum idct_permutation_type perm_type)

{

    int i;

#if ARCH_X86 && HAVE_X86ASM

    if (ff_init_scantable_permutation_x86(idct_permutation,

                                          perm_type))

        return;

#endif

    switch (perm_type) {

    case FF_IDCT_PERM_NONE:

        for (i = 0; i < 64; i++)

            idct_permutation[i] = i;

        break;

    case FF_IDCT_PERM_LIBMPEG2:

        for (i = 0; i < 64; i++)

            idct_permutation[i] = (i & 0x38) | ((i & 6) >> 1) | ((i & 1) << 2);

        break;

    case FF_IDCT_PERM_TRANSPOSE:

        for (i = 0; i < 64; i++)

            idct_permutation[i] = ((i & 7) << 3) | (i >> 3);

        break;

    case FF_IDCT_PERM_PARTTRANS:

        for (i = 0; i < 64; i++)

            idct_permutation[i] = (i & 0x24) | ((i & 3) << 3) | ((i >> 3) & 3);

        break;

    default:

        av_log(NULL, AV_LOG_ERROR,

               "Internal error, IDCT permutation not set\n");

    }

}

void ff_put_pixels_clamped_c(const int16_t *block, uint8_t *restrict pixels,

                             ptrdiff_t line_size)

{

    int i;

    /* read the pixels */

    for (i = 0; i < 8; i++) {

        pixels[0] = av_clip_uint8(block[0]);

        pixels[1] = av_clip_uint8(block[1]);

        pixels[2] = av_clip_uint8(block[2]);

        pixels[3] = av_clip_uint8(block[3]);

        pixels[4] = av_clip_uint8(block[4]);

        pixels[5] = av_clip_uint8(block[5]);

        pixels[6] = av_clip_uint8(block[6]);

        pixels[7] = av_clip_uint8(block[7]);

        pixels += line_size;

        block  += 8;

    }

}

static void put_pixels_clamped4_c(const int16_t *block, uint8_t *restrict pixels,

                                 int line_size)

{

    int i;

    /* read the pixels */

    for(i=0;i<4;i++) {

        pixels[0] = av_clip_uint8(block[0]);

        pixels[1] = av_clip_uint8(block[1]);

        pixels[2] = av_clip_uint8(block[2]);

        pixels[3] = av_clip_uint8(block[3]);

        pixels += line_size;

        block += 8;

    }

}

static void put_pixels_clamped2_c(const int16_t *block, uint8_t *restrict pixels,

                                 int line_size)

{

    int i;

    /* read the pixels */

    for(i=0;i<2;i++) {

        pixels[0] = av_clip_uint8(block[0]);

        pixels[1] = av_clip_uint8(block[1]);

        pixels += line_size;

        block += 8;

    }

}

static void put_signed_pixels_clamped_c(const int16_t *block,

                                        uint8_t *restrict pixels,

                                        ptrdiff_t line_size)

{

    int i, j;

    for (i = 0; i < 8; i++) {

        for (j = 0; j < 8; j++) {

            if (*block < -128)

                *pixels = 0;

            else if (*block > 127)

                *pixels = 255;

            else

                *pixels = (uint8_t) (*block + 128);

            block++;

            pixels++;

        }

        pixels += (line_size - 8);

    }

}

void ff_add_pixels_clamped_c(const int16_t *block, uint8_t *restrict pixels,

                             ptrdiff_t line_size)

{

    int i;

    /* read the pixels */

    for (i = 0; i < 8; i++) {

        pixels[0] = av_clip_uint8(pixels[0] + block[0]);

        pixels[1] = av_clip_uint8(pixels[1] + block[1]);

        pixels[2] = av_clip_uint8(pixels[2] + block[2]);

        pixels[3] = av_clip_uint8(pixels[3] + block[3]);

        pixels[4] = av_clip_uint8(pixels[4] + block[4]);

        pixels[5] = av_clip_uint8(pixels[5] + block[5]);

        pixels[6] = av_clip_uint8(pixels[6] + block[6]);

        pixels[7] = av_clip_uint8(pixels[7] + block[7]);

        pixels   += line_size;

        block    += 8;

    }

}

static void add_pixels_clamped4_c(const int16_t *block, uint8_t *restrict pixels,

                          int line_size)

{

    int i;

    /* read the pixels */

    for(i=0;i<4;i++) {

        pixels[0] = av_clip_uint8(pixels[0] + block[0]);

        pixels[1] = av_clip_uint8(pixels[1] + block[1]);

        pixels[2] = av_clip_uint8(pixels[2] + block[2]);

        pixels[3] = av_clip_uint8(pixels[3] + block[3]);

        pixels += line_size;

        block += 8;

    }

}

static void add_pixels_clamped2_c(const int16_t *block, uint8_t *restrict pixels,

                          int line_size)

{

    int i;

    /* read the pixels */

    for(i=0;i<2;i++) {

        pixels[0] = av_clip_uint8(pixels[0] + block[0]);

        pixels[1] = av_clip_uint8(pixels[1] + block[1]);

        pixels += line_size;

        block += 8;

    }

}

static void ff_jref_idct4_put(uint8_t *dest, ptrdiff_t line_size, int16_t *block)

{

    ff_j_rev_dct4 (block);

    put_pixels_clamped4_c(block, dest, line_size);

}

static void ff_jref_idct4_add(uint8_t *dest, ptrdiff_t line_size, int16_t *block)

{

    ff_j_rev_dct4 (block);

    add_pixels_clamped4_c(block, dest, line_size);

}

static void ff_jref_idct2_put(uint8_t *dest, ptrdiff_t line_size, int16_t *block)

{

    ff_j_rev_dct2 (block);

    put_pixels_clamped2_c(block, dest, line_size);

}

static void ff_jref_idct2_add(uint8_t *dest, ptrdiff_t line_size, int16_t *block)

{

    ff_j_rev_dct2 (block);

    add_pixels_clamped2_c(block, dest, line_size);

}

static void ff_jref_idct1_put(uint8_t *dest, ptrdiff_t line_size, int16_t *block)

{

    dest[0] = av_clip_uint8((block[0] + 4)>>3);

}

static void ff_jref_idct1_add(uint8_t *dest, ptrdiff_t line_size, int16_t *block)

{

    dest[0] = av_clip_uint8(dest[0] + ((block[0] + 4)>>3));

}

av_cold void ff_idctdsp_init(IDCTDSPContext *c, AVCodecContext *avctx)

{

    av_unused const unsigned high_bit_depth = avctx->bits_per_raw_sample > 8;

    if (avctx->lowres==1) {

        c->idct_put  = ff_jref_idct4_put;

        c->idct_add  = ff_jref_idct4_add;

        c->idct      = ff_j_rev_dct4;

        c->perm_type = FF_IDCT_PERM_NONE;

    } else if (avctx->lowres==2) {

        c->idct_put  = ff_jref_idct2_put;

        c->idct_add  = ff_jref_idct2_add;

        c->idct      = ff_j_rev_dct2;

        c->perm_type = FF_IDCT_PERM_NONE;

    } else if (avctx->lowres==3) {

        c->idct_put  = ff_jref_idct1_put;

        c->idct_add  = ff_jref_idct1_add;

        c->idct      = ff_j_rev_dct1;

        c->perm_type = FF_IDCT_PERM_NONE;

    } else {

        if (avctx->bits_per_raw_sample == 10 || avctx->bits_per_raw_sample == 9) {

            /* 10-bit MPEG-4 Simple Studio Profile requires a higher precision IDCT

               However, it only uses idct_put */

            if (c->mpeg4_studio_profile) {

                c->idct_put              = ff_simple_idct_put_int32_10bit;

                c->idct_add              = NULL;

                c->idct                  = NULL;

            } else {

                c->idct_put              = ff_simple_idct_put_int16_10bit;

                c->idct_add              = ff_simple_idct_add_int16_10bit;

                c->idct                  = ff_simple_idct_int16_10bit;

            }

            c->perm_type             = FF_IDCT_PERM_NONE;

        } else if (avctx->bits_per_raw_sample == 12) {

            c->idct_put              = ff_simple_idct_put_int16_12bit;

            c->idct_add              = ff_simple_idct_add_int16_12bit;

            c->idct                  = ff_simple_idct_int16_12bit;

            c->perm_type             = FF_IDCT_PERM_NONE;

        } else {

            if (avctx->idct_algo == FF_IDCT_INT) {

                c->idct_put  = ff_jref_idct_put;

                c->idct_add  = ff_jref_idct_add;

                c->idct      = ff_j_rev_dct;

                c->perm_type = FF_IDCT_PERM_LIBMPEG2;

#if CONFIG_FAANIDCT

            } else if (avctx->idct_algo == FF_IDCT_FAAN) {

                c->idct_put  = ff_faanidct_put;

                c->idct_add  = ff_faanidct_add;

                c->idct      = ff_faanidct;

                c->perm_type = FF_IDCT_PERM_NONE;

#endif /* CONFIG_FAANIDCT */

#if CONFIG_MPEG4_DECODER

            } else if (avctx->idct_algo == FF_IDCT_XVID) {

                ff_xvid_idct_init(c);

#endif

            } else { // accurate/default

                c->idct_put  = ff_simple_idct_put_int16_8bit;

                c->idct_add  = ff_simple_idct_add_int16_8bit;

                c->idct      = ff_simple_idct_int16_8bit;

                c->perm_type = FF_IDCT_PERM_NONE;

            }

        }

    }

    c->put_pixels_clamped        = ff_put_pixels_clamped_c;

    c->put_signed_pixels_clamped = put_signed_pixels_clamped_c;

    c->add_pixels_clamped        = ff_add_pixels_clamped_c;

#if ARCH_AARCH64

    ff_idctdsp_init_aarch64(c, avctx, high_bit_depth);

#elif ARCH_ARM

    ff_idctdsp_init_arm(c, avctx, high_bit_depth);

#elif ARCH_PPC

    ff_idctdsp_init_ppc(c, avctx, high_bit_depth);

#elif ARCH_RISCV

    ff_idctdsp_init_riscv(c, avctx, high_bit_depth);

#elif ARCH_X86 && HAVE_X86ASM

    ff_idctdsp_init_x86(c, avctx, high_bit_depth);

#elif ARCH_MIPS

    ff_idctdsp_init_mips(c, avctx, high_bit_depth);

#elif ARCH_LOONGARCH

    ff_idctdsp_init_loongarch(c, avctx, high_bit_depth);

#endif

    ff_init_scantable_permutation(c->idct_permutation,

                                  c->perm_type);

}