/*****************************************************************************

 * Copyright (C) 2013-2020 MulticoreWare, Inc

 *

 * Authors: Steve Borho <steve@borho.org>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; either version 2 of the License, or

 * (at your option) any later version.

 *

 * This program 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 General Public License for more details.

 *

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

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02111, USA.

 *

 * This program is also available under a commercial proprietary license.

 * For more information, contact us at license @ x265.com.

 *****************************************************************************/

#include "common.h"

#include "frame.h"

#include "piclist.h"

#include "picyuv.h"

#include "slice.h"

using namespace X265_NS;

void Slice::setRefPicList(PicList& picList)

{

    if (m_sliceType == I_SLICE)

    {

        memset(m_refFrameList, 0, sizeof(m_refFrameList));

        memset(m_refReconPicList, 0, sizeof(m_refReconPicList));

        memset(m_refPOCList, 0, sizeof(m_refPOCList));

        m_numRefIdx[1] = m_numRefIdx[0] = 0;

        return;

    }

    Frame* refPic = NULL;

    Frame* refPicSetStCurr0[MAX_NUM_REF];

    Frame* refPicSetStCurr1[MAX_NUM_REF];

    Frame* refPicSetLtCurr[MAX_NUM_REF];

    int numPocStCurr0 = 0;

    int numPocStCurr1 = 0;

    int numPocLtCurr = 0;

    int i;

    for (i = 0; i < m_rps.numberOfNegativePictures; i++)

    {

        if (m_rps.bUsed[i])

        {

            refPic = picList.getPOC(m_poc + m_rps.deltaPOC[i]);

            refPicSetStCurr0[numPocStCurr0] = refPic;

            numPocStCurr0++;

        }

    }

    for (; i < m_rps.numberOfNegativePictures + m_rps.numberOfPositivePictures; i++)

    {

        if (m_rps.bUsed[i])

        {

            refPic = picList.getPOC(m_poc + m_rps.deltaPOC[i]);

            refPicSetStCurr1[numPocStCurr1] = refPic;

            numPocStCurr1++;

        }

    }

    X265_CHECK(m_rps.numberOfPictures == m_rps.numberOfNegativePictures + m_rps.numberOfPositivePictures,

               "unexpected picture in RPS\n");

    // ref_pic_list_init

    Frame* rpsCurrList0[MAX_NUM_REF + 1];

    Frame* rpsCurrList1[MAX_NUM_REF + 1];

    int numPocTotalCurr = numPocStCurr0 + numPocStCurr1 + numPocLtCurr;

    int cIdx = 0;

    for (i = 0; i < numPocStCurr0; i++, cIdx++)

        rpsCurrList0[cIdx] = refPicSetStCurr0[i];

    for (i = 0; i < numPocStCurr1; i++, cIdx++)

        rpsCurrList0[cIdx] = refPicSetStCurr1[i];

    for (i = 0; i < numPocLtCurr; i++, cIdx++)

        rpsCurrList0[cIdx] = refPicSetLtCurr[i];

    X265_CHECK(cIdx == numPocTotalCurr, "RPS index check fail\n");

    if (m_sliceType == B_SLICE)

    {

        cIdx = 0;

        for (i = 0; i < numPocStCurr1; i++, cIdx++)

            rpsCurrList1[cIdx] = refPicSetStCurr1[i];

        for (i = 0; i < numPocStCurr0; i++, cIdx++)

            rpsCurrList1[cIdx] = refPicSetStCurr0[i];

        for (i = 0; i < numPocLtCurr; i++, cIdx++)

            rpsCurrList1[cIdx] = refPicSetLtCurr[i];

        X265_CHECK(cIdx == numPocTotalCurr, "RPS index check fail\n");

    }

    for (int rIdx = 0; rIdx < m_numRefIdx[0]; rIdx++)

    {

        cIdx = rIdx % numPocTotalCurr;

        X265_CHECK(cIdx >= 0 && cIdx < numPocTotalCurr, "RPS index check fail\n");

        m_refFrameList[0][rIdx] = rpsCurrList0[cIdx];

    }

    if (m_sliceType != B_SLICE)

    {

        m_numRefIdx[1] = 0;

        memset(m_refFrameList[1], 0, sizeof(m_refFrameList[1]));

    }

    else

    {

        for (int rIdx = 0; rIdx < m_numRefIdx[1]; rIdx++)

        {

            cIdx = rIdx % numPocTotalCurr;

            X265_CHECK(cIdx >= 0 && cIdx < numPocTotalCurr, "RPS index check fail\n");

            m_refFrameList[1][rIdx] = rpsCurrList1[cIdx];

        }

    }

    for (int dir = 0; dir < 2; dir++)

        for (int numRefIdx = 0; numRefIdx < m_numRefIdx[dir]; numRefIdx++)

            m_refPOCList[dir][numRefIdx] = m_refFrameList[dir][numRefIdx]->m_poc;

}

void Slice::disableWeights()

{

    for (int l = 0; l < 2; l++)

        for (int i = 0; i < MAX_NUM_REF; i++)

            for (int yuv = 0; yuv < 3; yuv++)

            {

                WeightParam& wp = m_weightPredTable[l][i][yuv];

                wp.wtPresent = 0;

                wp.log2WeightDenom = 0;

                wp.inputWeight = 1;

                wp.inputOffset = 0;

            }

}

/* Sorts the deltaPOC and Used by current values in the RPS based on the

 * deltaPOC values.  deltaPOC values are sorted with -ve values before the +ve

 * values.  -ve values are in decreasing order.  +ve values are in increasing

 * order */

void RPS::sortDeltaPOC()

{

    // sort in increasing order (smallest first)

    for (int j = 1; j < numberOfPictures; j++)

    {

        int dPOC = deltaPOC[j];

        bool used = bUsed[j];

        for (int k = j - 1; k >= 0; k--)

        {

            int temp = deltaPOC[k];

            if (dPOC < temp)

            {

                deltaPOC[k + 1] = temp;

                bUsed[k + 1] = bUsed[k];

                deltaPOC[k] = dPOC;

                bUsed[k] = used;

            }

        }

    }

    // flip the negative values to largest first

    int numNegPics = numberOfNegativePictures;

    for (int j = 0, k = numNegPics - 1; j < numNegPics >> 1; j++, k--)

    {

        int dPOC = deltaPOC[j];

        bool used = bUsed[j];

        deltaPOC[j] = deltaPOC[k];

        bUsed[j] = bUsed[k];

        deltaPOC[k] = dPOC;

        bUsed[k] = used;

    }

}

uint32_t Slice::realEndAddress(uint32_t endCUAddr) const

{

    // Calculate end address

    uint32_t internalAddress = (endCUAddr - 1) % m_param->num4x4Partitions;

    uint32_t externalAddress = (endCUAddr - 1) / m_param->num4x4Partitions;

    uint32_t xmax = m_sps->picWidthInLumaSamples - (externalAddress % m_sps->numCuInWidth) * m_param->maxCUSize;

    uint32_t ymax = m_sps->picHeightInLumaSamples - (externalAddress / m_sps->numCuInWidth) * m_param->maxCUSize;

    while (g_zscanToPelX[internalAddress] >= xmax || g_zscanToPelY[internalAddress] >= ymax)

        internalAddress--;

    internalAddress++;

    if (internalAddress == m_param->num4x4Partitions)

    {

        internalAddress = 0;

        externalAddress++;

    }

    return externalAddress * m_param->num4x4Partitions + internalAddress;

}