/**************************************************************************
 *
 * Copyright 2013 Advanced Micro Devices, Inc.
 * All Rights Reserved.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the
 * "Software"), to deal in the Software without restriction, including
 * without limitation the rights to use, copy, modify, merge, publish,
 * distribute, sub license, and/or sell copies of the Software, and to
 * permit persons to whom the Software is furnished to do so, subject to
 * the following conditions:
 *
 * The above copyright notice and this permission notice (including the
 * next paragraph) shall be included in all copies or substantial portions
 * of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
 * IN NO EVENT SHALL THE COPYRIGHT HOLDER(S) OR AUTHOR(S) BE LIABLE FOR
 * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 *
 **************************************************************************/

/*
 * Authors:
 *      Christian König <christian.koenig@amd.com>
 *
 */

#include "pipe/p_video_codec.h"
#include "vl/vl_vlc.h"
#include "vl/vl_zscan.h"

#include "vid_dec.h"

static uint8_t default_intra_matrix[64] = {
    8, 16, 19, 22, 26, 27, 29, 34,
   16, 16, 19, 22, 22, 22, 22, 26,
   26, 27, 22, 26, 26, 27, 29, 24,
   27, 27, 29, 32, 27, 29, 29, 32,
   35, 29, 34, 34, 35, 40, 34, 34,
   37, 40, 48, 37, 38, 40, 48, 58,
   26, 27, 29, 34, 38, 46, 56, 69,
   27, 29, 35, 38, 46, 56, 69, 83
};

static uint8_t default_non_intra_matrix[64] = {
   16, 16, 16, 16, 16, 16, 16, 16,
   16, 16, 16, 16, 16, 16, 16, 16,
   16, 16, 16, 16, 16, 16, 16, 16,
   16, 16, 16, 16, 16, 16, 16, 16,
   16, 16, 16, 16, 16, 16, 16, 16,
   16, 16, 16, 16, 16, 16, 16, 16,
   16, 16, 16, 16, 16, 16, 16, 16,
   16, 16, 16, 16, 16, 16, 16, 16
};

static void vid_dec_mpeg12_Decode(vid_dec_PrivateType *priv, struct vl_vlc *vlc, unsigned min_bits_left);
static void vid_dec_mpeg12_EndFrame(vid_dec_PrivateType *priv);
static struct pipe_video_buffer *vid_dec_mpeg12_Flush(vid_dec_PrivateType *priv);

void vid_dec_mpeg12_Init(vid_dec_PrivateType *priv)
{
   priv->picture.base.profile = PIPE_VIDEO_PROFILE_MPEG2_MAIN;
   priv->picture.mpeg12.intra_matrix = default_intra_matrix;
   priv->picture.mpeg12.non_intra_matrix = default_non_intra_matrix;

   priv->Decode = vid_dec_mpeg12_Decode;
   priv->EndFrame = vid_dec_mpeg12_EndFrame;
   priv->Flush = vid_dec_mpeg12_Flush;
}

static void BeginFrame(vid_dec_PrivateType *priv)
{
   if (priv->picture.mpeg12.picture_coding_type != PIPE_MPEG12_PICTURE_CODING_TYPE_B) {
      priv->picture.mpeg12.ref[0] = priv->picture.mpeg12.ref[1];
      priv->picture.mpeg12.ref[1] = NULL;
   }

   if (priv->target == priv->picture.mpeg12.ref[0]) {
      struct pipe_video_buffer *tmp = priv->target;
      priv->target = priv->shadow;
      priv->shadow = tmp;
   }

   vid_dec_NeedTarget(priv);

   priv->codec->begin_frame(priv->codec, priv->target, &priv->picture.base);
   priv->frame_started = true;
}

static void vid_dec_mpeg12_EndFrame(vid_dec_PrivateType *priv)
{
   struct pipe_video_buffer *done;

   priv->codec->end_frame(priv->codec, priv->target, &priv->picture.base);
   priv->frame_started = false;

   if (priv->picture.mpeg12.picture_coding_type != PIPE_MPEG12_PICTURE_CODING_TYPE_B) {

      priv->picture.mpeg12.ref[1] = priv->target;
      done = priv->picture.mpeg12.ref[0];
      if (!done) {
         priv->target = NULL;
         return;
      }

   } else
      done = priv->target;

   priv->frame_finished = true;
   priv->target = priv->in_buffers[0]->pInputPortPrivate;
   priv->in_buffers[0]->pInputPortPrivate = done;
}

static struct pipe_video_buffer *vid_dec_mpeg12_Flush(vid_dec_PrivateType *priv)
{
   struct pipe_video_buffer *result = priv->picture.mpeg12.ref[1];
   priv->picture.mpeg12.ref[1] = NULL;
   return result;
}

static void vid_dec_mpeg12_Decode(vid_dec_PrivateType *priv, struct vl_vlc *vlc, unsigned min_bits_left)
{
   uint8_t code;
   unsigned i;

   if (!vl_vlc_search_byte(vlc, vl_vlc_bits_left(vlc) - min_bits_left, 0x00))
      return;

   if (vl_vlc_peekbits(vlc, 24) != 0x000001) {
      vl_vlc_eatbits(vlc, 8);
      return;
   }

   if (priv->slice) {
      unsigned bytes = priv->bytes_left - (vl_vlc_bits_left(vlc) / 8);
      priv->codec->decode_bitstream(priv->codec, priv->target, &priv->picture.base,
                                    1, &priv->slice, &bytes);
      priv->slice = NULL;
   }

   vl_vlc_eatbits(vlc, 24);
   code = vl_vlc_get_uimsbf(vlc, 8);

   if (priv->frame_started && (code == 0x00 || code > 0xAF))
      vid_dec_mpeg12_EndFrame(priv);

   if (code == 0xB3) {
      /* sequence header code */
      vl_vlc_fillbits(vlc);

      /* horizontal_size_value */
      vl_vlc_get_uimsbf(vlc, 12);

      /* vertical_size_value */
      vl_vlc_get_uimsbf(vlc, 12);

      /* aspect_ratio_information */
      vl_vlc_get_uimsbf(vlc, 4);

      /* frame_rate_code */
      vl_vlc_get_uimsbf(vlc, 4);

      vl_vlc_fillbits(vlc);

      /* bit_rate_value */
      vl_vlc_get_uimsbf(vlc, 18);

      /* marker_bit */
      vl_vlc_get_uimsbf(vlc, 1);

      /* vbv_buffer_size_value */
      vl_vlc_get_uimsbf(vlc, 10);

      /* constrained_parameters_flag */
      vl_vlc_get_uimsbf(vlc, 1);

      vl_vlc_fillbits(vlc);

      /* load_intra_quantiser_matrix */
      if (vl_vlc_get_uimsbf(vlc, 1)) {
         /* intra_quantiser_matrix */
         priv->picture.mpeg12.intra_matrix = priv->codec_data.mpeg12.intra_matrix;
         for (i = 0; i < 64; ++i) {
            priv->codec_data.mpeg12.intra_matrix[vl_zscan_normal[i]] = vl_vlc_get_uimsbf(vlc, 8);
            vl_vlc_fillbits(vlc);
         }
      } else
         priv->picture.mpeg12.intra_matrix = default_intra_matrix;

      /* load_non_intra_quantiser_matrix */
      if (vl_vlc_get_uimsbf(vlc, 1)) {
         /* non_intra_quantiser_matrix */
         priv->picture.mpeg12.non_intra_matrix = priv->codec_data.mpeg12.non_intra_matrix;
         for (i = 0; i < 64; ++i) {
            priv->codec_data.mpeg12.non_intra_matrix[i] = vl_vlc_get_uimsbf(vlc, 8);
            vl_vlc_fillbits(vlc);
         }
      } else
         priv->picture.mpeg12.non_intra_matrix = default_non_intra_matrix;

   } else if (code == 0x00) {
      /* picture start code */
      vl_vlc_fillbits(vlc);

      /* temporal_reference */
      vl_vlc_get_uimsbf(vlc, 10);

      priv->picture.mpeg12.picture_coding_type = vl_vlc_get_uimsbf(vlc, 3);

      /* vbv_delay */
      vl_vlc_get_uimsbf(vlc, 16);

      vl_vlc_fillbits(vlc);
      if (priv->picture.mpeg12.picture_coding_type == 2 ||
          priv->picture.mpeg12.picture_coding_type == 3) {
         priv->picture.mpeg12.full_pel_forward_vector = vl_vlc_get_uimsbf(vlc, 1);
         /* forward_f_code */
         priv->picture.mpeg12.f_code[0][0] = vl_vlc_get_uimsbf(vlc, 3) - 1;
         priv->picture.mpeg12.f_code[0][1] = priv->picture.mpeg12.f_code[0][0];
      } else {
         priv->picture.mpeg12.full_pel_forward_vector = 0;
         priv->picture.mpeg12.f_code[0][1] = priv->picture.mpeg12.f_code[0][0] = 14;
      }

      if (priv->picture.mpeg12.picture_coding_type == 3) {
         priv->picture.mpeg12.full_pel_backward_vector = vl_vlc_get_uimsbf(vlc, 1);
         /* backward_f_code */
         priv->picture.mpeg12.f_code[1][0] = vl_vlc_get_uimsbf(vlc, 3) - 1;
         priv->picture.mpeg12.f_code[1][1] = priv->picture.mpeg12.f_code[1][0];
      } else {
         priv->picture.mpeg12.full_pel_backward_vector = 0;
         priv->picture.mpeg12.f_code[0][1] = priv->picture.mpeg12.f_code[0][0] = 14;
      }

      /* extra_bit_picture */
      while (vl_vlc_get_uimsbf(vlc, 1)) {
         /* extra_information_picture */
         vl_vlc_get_uimsbf(vlc, 8);
         vl_vlc_fillbits(vlc);
      }

   } else if (code == 0xB5) {
      /* extension start code */
      vl_vlc_fillbits(vlc);

      /* extension_start_code_identifier */
      switch (vl_vlc_get_uimsbf(vlc, 4)) {
      case 0x3: /* quant matrix extension */

         /* load_intra_quantiser_matrix */
         if (vl_vlc_get_uimsbf(vlc, 1)) {
            /* intra_quantiser_matrix */
            priv->picture.mpeg12.intra_matrix = priv->codec_data.mpeg12.intra_matrix;
            for (i = 0; i < 64; ++i) {
               priv->codec_data.mpeg12.intra_matrix[vl_zscan_normal[i]] = vl_vlc_get_uimsbf(vlc, 8);
               vl_vlc_fillbits(vlc);
            }
         } else
            priv->picture.mpeg12.intra_matrix = default_intra_matrix;

         /* load_non_intra_quantiser_matrix */
         if (vl_vlc_get_uimsbf(vlc, 1)) {
            /* non_intra_quantiser_matrix */
            priv->picture.mpeg12.non_intra_matrix = priv->codec_data.mpeg12.non_intra_matrix;
            for (i = 0; i < 64; ++i) {
               priv->codec_data.mpeg12.non_intra_matrix[i] = vl_vlc_get_uimsbf(vlc, 8);
               vl_vlc_fillbits(vlc);
            }
         } else
            priv->picture.mpeg12.intra_matrix = default_non_intra_matrix;

         break;

      case 0x8: /* picture coding extension */

         priv->picture.mpeg12.f_code[0][0] = vl_vlc_get_uimsbf(vlc, 4) - 1;
         priv->picture.mpeg12.f_code[0][1] = vl_vlc_get_uimsbf(vlc, 4) - 1;
         priv->picture.mpeg12.f_code[1][0] = vl_vlc_get_uimsbf(vlc, 4) - 1;
         priv->picture.mpeg12.f_code[1][1] = vl_vlc_get_uimsbf(vlc, 4) - 1;
         priv->picture.mpeg12.intra_dc_precision = vl_vlc_get_uimsbf(vlc, 2);
         priv->picture.mpeg12.picture_structure = vl_vlc_get_uimsbf(vlc, 2);
         priv->picture.mpeg12.top_field_first = vl_vlc_get_uimsbf(vlc, 1);
         priv->picture.mpeg12.frame_pred_frame_dct = vl_vlc_get_uimsbf(vlc, 1);
         priv->picture.mpeg12.concealment_motion_vectors = vl_vlc_get_uimsbf(vlc, 1);
         priv->picture.mpeg12.q_scale_type = vl_vlc_get_uimsbf(vlc, 1);
         priv->picture.mpeg12.intra_vlc_format = vl_vlc_get_uimsbf(vlc, 1);
         priv->picture.mpeg12.alternate_scan = vl_vlc_get_uimsbf(vlc, 1);

         /* repeat_first_field */
         vl_vlc_get_uimsbf(vlc, 1);

         /* chroma_420_type */
         vl_vlc_get_uimsbf(vlc, 1);

         vl_vlc_fillbits(vlc);

         /* progressive_frame */
         vl_vlc_get_uimsbf(vlc, 1);

         /* composite_display_flag */
         if (vl_vlc_get_uimsbf(vlc, 1)) {

            /* v_axis */
            vl_vlc_get_uimsbf(vlc, 1);

            /* field_sequence */
            vl_vlc_get_uimsbf(vlc, 3);

            /* sub_carrier */
            vl_vlc_get_uimsbf(vlc, 1);

            /* burst_amplitude */
            vl_vlc_get_uimsbf(vlc, 7);

            /* sub_carrier_phase */
            vl_vlc_get_uimsbf(vlc, 8);
         }
         break;
      }

   } else if (code <= 0xAF) {
      /* slice start */
      unsigned bytes = (vl_vlc_valid_bits(vlc) / 8) + 4;
      uint8_t buf[12];
      const void *ptr = buf;
      unsigned i;

      if (!priv->frame_started)
         BeginFrame(priv);

      buf[0] = 0x00;
      buf[1] = 0x00;
      buf[2] = 0x01;
      buf[3] = code;
      for (i = 4; i < bytes; ++i)
         buf[i] = vl_vlc_get_uimsbf(vlc, 8);

      priv->codec->decode_bitstream(priv->codec, priv->target, &priv->picture.base,
                                    1, &ptr, &bytes);

      priv->bytes_left = vl_vlc_bits_left(vlc) / 8;
      priv->slice = vlc->data;

   } else if (code == 0xB2) {
      /* user data start */

   } else if (code == 0xB4) {
      /* sequence error */
   } else if (code == 0xB7) {
      /* sequence end */
   } else if (code == 0xB8) {
      /* group start */
   } else if (code >= 0xB9) {
      /* system start */
   } else {
      /* reserved */
   }

   /* resync to byte boundary */
   vl_vlc_eatbits(vlc, vl_vlc_valid_bits(vlc) % 8);
}