/*

 *  Copyright (c) 2010 The WebM project authors. All Rights Reserved.

 *

 *  Use of this source code is governed by a BSD-style license

 *  that can be found in the LICENSE file in the root of the source

 *  tree. An additional intellectual property rights grant can be found

 *  in the file PATENTS.  All contributing project authors may

 *  be found in the AUTHORS file in the root of the source tree.

 */

#include "vp8/common/onyxc_int.h"

#if CONFIG_POSTPROC

#include "vp8/common/postproc.h"

#endif

#include "vp8/common/onyxd.h"

#include "onyxd_int.h"

#include "vpx_mem/vpx_mem.h"

#include "vp8/common/alloccommon.h"

#include "vp8/common/common.h"

#include "vp8/common/loopfilter.h"

#include "vp8/common/swapyv12buffer.h"

#include "vp8/common/threading.h"

#include "decoderthreading.h"

#include <stdio.h>

#include <assert.h>

#include "vp8/common/quant_common.h"

#include "vp8/common/reconintra.h"

#include "./vpx_dsp_rtcd.h"

#include "./vpx_scale_rtcd.h"

#include "vpx_scale/vpx_scale.h"

#include "vp8/common/systemdependent.h"

#include "vpx_ports/system_state.h"

#include "vpx_ports/vpx_once.h"

#include "vpx_ports/vpx_timer.h"

#include "detokenize.h"

#if CONFIG_ERROR_CONCEALMENT

#include "error_concealment.h"

#endif

#if VPX_ARCH_ARM

#include "vpx_ports/arm.h"

#endif

extern void vp8_init_loop_filter(VP8_COMMON *cm);

static int get_free_fb(VP8_COMMON *cm);

static void ref_cnt_fb(int *buf, int *idx, int new_idx);

static void initialize_dec(void) {

  static volatile int init_done = 0;

  if (!init_done) {

    vpx_dsp_rtcd();

    vp8_init_intra_predictors();

    init_done = 1;

  }

}

static void remove_decompressor(VP8D_COMP *pbi) {

#if CONFIG_ERROR_CONCEALMENT

  vp8_de_alloc_overlap_lists(pbi);

#endif

  vp8_remove_common(&pbi->common);

  vpx_free(pbi);

}

static struct VP8D_COMP *create_decompressor(VP8D_CONFIG *oxcf) {

  VP8D_COMP *pbi = vpx_memalign(32, sizeof(VP8D_COMP));

  if (!pbi) return NULL;

  memset(pbi, 0, sizeof(VP8D_COMP));

  if (setjmp(pbi->common.error.jmp)) {

    pbi->common.error.setjmp = 0;

    remove_decompressor(pbi);

    return 0;

  }

  pbi->common.error.setjmp = 1;

  vp8_create_common(&pbi->common);

  pbi->common.current_video_frame = 0;

  pbi->ready_for_new_data = 1;

  /* vp8cx_init_de_quantizer() is first called here. Add check in

   * frame_init_dequantizer() to avoid

   *  unnecessary calling of vp8cx_init_de_quantizer() for every frame.

   */

  vp8cx_init_de_quantizer(pbi);

  vp8_loop_filter_init(&pbi->common);

  pbi->common.error.setjmp = 0;

#if CONFIG_ERROR_CONCEALMENT

  pbi->ec_enabled = oxcf->error_concealment;

  pbi->overlaps = NULL;

#else

  (void)oxcf;

  pbi->ec_enabled = 0;

#endif

  /* Error concealment is activated after a key frame has been

   * decoded without errors when error concealment is enabled.

   */

  pbi->ec_active = 0;

  pbi->decoded_key_frame = 0;

  /* Independent partitions is activated when a frame updates the

   * token probability table to have equal probabilities over the

   * PREV_COEF context.

   */

  pbi->independent_partitions = 0;

  vp8_setup_block_dptrs(&pbi->mb);

  once(initialize_dec);

  return pbi;

}

vpx_codec_err_t vp8dx_get_reference(VP8D_COMP *pbi,

                                    enum vpx_ref_frame_type ref_frame_flag,

                                    YV12_BUFFER_CONFIG *sd) {

  VP8_COMMON *cm = &pbi->common;

  int ref_fb_idx;

  if (ref_frame_flag == VP8_LAST_FRAME) {

    ref_fb_idx = cm->lst_fb_idx;

  } else if (ref_frame_flag == VP8_GOLD_FRAME) {

    ref_fb_idx = cm->gld_fb_idx;

  } else if (ref_frame_flag == VP8_ALTR_FRAME) {

    ref_fb_idx = cm->alt_fb_idx;

  } else {

    vpx_internal_error(&pbi->common.error, VPX_CODEC_ERROR,

                       "Invalid reference frame");

    return pbi->common.error.error_code;

  }

  if (cm->yv12_fb[ref_fb_idx].y_height != sd->y_height ||

      cm->yv12_fb[ref_fb_idx].y_width != sd->y_width ||

      cm->yv12_fb[ref_fb_idx].uv_height != sd->uv_height ||

      cm->yv12_fb[ref_fb_idx].uv_width != sd->uv_width) {

    vpx_internal_error(&pbi->common.error, VPX_CODEC_ERROR,

                       "Incorrect buffer dimensions");

  } else

    vp8_yv12_copy_frame(&cm->yv12_fb[ref_fb_idx], sd);

  return pbi->common.error.error_code;

}

vpx_codec_err_t vp8dx_set_reference(VP8D_COMP *pbi,

                                    enum vpx_ref_frame_type ref_frame_flag,

                                    YV12_BUFFER_CONFIG *sd) {

  VP8_COMMON *cm = &pbi->common;

  int *ref_fb_ptr = NULL;

  int free_fb;

  if (ref_frame_flag == VP8_LAST_FRAME) {

    ref_fb_ptr = &cm->lst_fb_idx;

  } else if (ref_frame_flag == VP8_GOLD_FRAME) {

    ref_fb_ptr = &cm->gld_fb_idx;

  } else if (ref_frame_flag == VP8_ALTR_FRAME) {

    ref_fb_ptr = &cm->alt_fb_idx;

  } else {

    vpx_internal_error(&pbi->common.error, VPX_CODEC_ERROR,

                       "Invalid reference frame");

    return pbi->common.error.error_code;

  }

  if (cm->yv12_fb[*ref_fb_ptr].y_height != sd->y_height ||

      cm->yv12_fb[*ref_fb_ptr].y_width != sd->y_width ||

      cm->yv12_fb[*ref_fb_ptr].uv_height != sd->uv_height ||

      cm->yv12_fb[*ref_fb_ptr].uv_width != sd->uv_width) {

    vpx_internal_error(&pbi->common.error, VPX_CODEC_ERROR,

                       "Incorrect buffer dimensions");

  } else {

    /* Find an empty frame buffer. */

    free_fb = get_free_fb(cm);

    /* Decrease fb_idx_ref_cnt since it will be increased again in

     * ref_cnt_fb() below. */

    cm->fb_idx_ref_cnt[free_fb]--;

    /* Manage the reference counters and copy image. */

    ref_cnt_fb(cm->fb_idx_ref_cnt, ref_fb_ptr, free_fb);

    vp8_yv12_copy_frame(sd, &cm->yv12_fb[*ref_fb_ptr]);

  }

  return pbi->common.error.error_code;

}

static int get_free_fb(VP8_COMMON *cm) {

  int i;

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

    if (cm->fb_idx_ref_cnt[i] == 0) break;

  }

  assert(i < NUM_YV12_BUFFERS);

  cm->fb_idx_ref_cnt[i] = 1;

  return i;

}

static void ref_cnt_fb(int *buf, int *idx, int new_idx) {

  if (buf[*idx] > 0) buf[*idx]--;

  *idx = new_idx;

  buf[new_idx]++;

}

/* If any buffer copy / swapping is signalled it should be done here. */

static int swap_frame_buffers(VP8_COMMON *cm) {

  int err = 0;

  /* The alternate reference frame or golden frame can be updated

   *  using the new, last, or golden/alt ref frame.  If it

   *  is updated using the newly decoded frame it is a refresh.

   *  An update using the last or golden/alt ref frame is a copy.

   */

  if (cm->copy_buffer_to_arf) {

    int new_fb = 0;

    if (cm->copy_buffer_to_arf == 1) {

      new_fb = cm->lst_fb_idx;

    } else if (cm->copy_buffer_to_arf == 2) {

      new_fb = cm->gld_fb_idx;

    } else {

      err = -1;

    }

    ref_cnt_fb(cm->fb_idx_ref_cnt, &cm->alt_fb_idx, new_fb);

  }

  if (cm->copy_buffer_to_gf) {

    int new_fb = 0;

    if (cm->copy_buffer_to_gf == 1) {

      new_fb = cm->lst_fb_idx;

    } else if (cm->copy_buffer_to_gf == 2) {

      new_fb = cm->alt_fb_idx;

    } else {

      err = -1;

    }

    ref_cnt_fb(cm->fb_idx_ref_cnt, &cm->gld_fb_idx, new_fb);

  }

  if (cm->refresh_golden_frame) {

    ref_cnt_fb(cm->fb_idx_ref_cnt, &cm->gld_fb_idx, cm->new_fb_idx);

  }

  if (cm->refresh_alt_ref_frame) {

    ref_cnt_fb(cm->fb_idx_ref_cnt, &cm->alt_fb_idx, cm->new_fb_idx);

  }

  if (cm->refresh_last_frame) {

    ref_cnt_fb(cm->fb_idx_ref_cnt, &cm->lst_fb_idx, cm->new_fb_idx);

    cm->frame_to_show = &cm->yv12_fb[cm->lst_fb_idx];

  } else {

    cm->frame_to_show = &cm->yv12_fb[cm->new_fb_idx];

  }

  cm->fb_idx_ref_cnt[cm->new_fb_idx]--;

  return err;

}

static int check_fragments_for_errors(VP8D_COMP *pbi) {

  if (!pbi->ec_active && pbi->fragments.count <= 1 &&

      pbi->fragments.sizes[0] == 0) {

    VP8_COMMON *cm = &pbi->common;

    /* If error concealment is disabled we won't signal missing frames

     * to the decoder.

     */

    if (cm->fb_idx_ref_cnt[cm->lst_fb_idx] > 1) {

      /* The last reference shares buffer with another reference

       * buffer. Move it to its own buffer before setting it as

       * corrupt, otherwise we will make multiple buffers corrupt.

       */

      const int prev_idx = cm->lst_fb_idx;

      cm->fb_idx_ref_cnt[prev_idx]--;

      cm->lst_fb_idx = get_free_fb(cm);

      vp8_yv12_copy_frame(&cm->yv12_fb[prev_idx], &cm->yv12_fb[cm->lst_fb_idx]);

    }

    /* This is used to signal that we are missing frames.

     * We do not know if the missing frame(s) was supposed to update

     * any of the reference buffers, but we act conservative and

     * mark only the last buffer as corrupted.

     */

    cm->yv12_fb[cm->lst_fb_idx].corrupted = 1;

    /* Signal that we have no frame to show. */

    cm->show_frame = 0;

    /* Nothing more to do. */

    return 0;

  }

  return 1;

}

int vp8dx_receive_compressed_data(VP8D_COMP *pbi) {

  VP8_COMMON *cm = &pbi->common;

  int retcode = -1;

  pbi->common.error.error_code = VPX_CODEC_OK;

  retcode = check_fragments_for_errors(pbi);

  if (retcode <= 0) return retcode;

  cm->new_fb_idx = get_free_fb(cm);

  /* setup reference frames for vp8_decode_frame */

  pbi->dec_fb_ref[INTRA_FRAME] = &cm->yv12_fb[cm->new_fb_idx];

  pbi->dec_fb_ref[LAST_FRAME] = &cm->yv12_fb[cm->lst_fb_idx];

  pbi->dec_fb_ref[GOLDEN_FRAME] = &cm->yv12_fb[cm->gld_fb_idx];

  pbi->dec_fb_ref[ALTREF_FRAME] = &cm->yv12_fb[cm->alt_fb_idx];

  retcode = vp8_decode_frame(pbi);

  if (retcode < 0) {

    if (cm->fb_idx_ref_cnt[cm->new_fb_idx] > 0) {

      cm->fb_idx_ref_cnt[cm->new_fb_idx]--;

    }

    pbi->common.error.error_code = VPX_CODEC_ERROR;

    // Propagate the error info.

    if (pbi->mb.error_info.error_code != 0) {

      pbi->common.error.error_code = pbi->mb.error_info.error_code;

      memcpy(pbi->common.error.detail, pbi->mb.error_info.detail,

             sizeof(pbi->mb.error_info.detail));

    }

    goto decode_exit;

  }

  if (swap_frame_buffers(cm)) {

    pbi->common.error.error_code = VPX_CODEC_ERROR;

    goto decode_exit;

  }

  vpx_clear_system_state();

  if (cm->show_frame) {

    cm->current_video_frame++;

    cm->show_frame_mi = cm->mi;

  }

#if CONFIG_ERROR_CONCEALMENT

  /* swap the mode infos to storage for future error concealment */

  if (pbi->ec_enabled && pbi->common.prev_mi) {

    MODE_INFO *tmp = pbi->common.prev_mi;

    int row, col;

    pbi->common.prev_mi = pbi->common.mi;

    pbi->common.mi = tmp;

    /* Propagate the segment_ids to the next frame */

    for (row = 0; row < pbi->common.mb_rows; ++row) {

      for (col = 0; col < pbi->common.mb_cols; ++col) {

        const int i = row * pbi->common.mode_info_stride + col;

        pbi->common.mi[i].mbmi.segment_id =

            pbi->common.prev_mi[i].mbmi.segment_id;

      }

    }

  }

#endif

  pbi->ready_for_new_data = 0;

decode_exit:

  vpx_clear_system_state();

  return retcode;

}

int vp8dx_get_raw_frame(VP8D_COMP *pbi, YV12_BUFFER_CONFIG *sd,

                        vp8_ppflags_t *flags) {

  int ret = -1;

  if (pbi->ready_for_new_data == 1) return ret;

  /* ie no raw frame to show!!! */

  if (pbi->common.show_frame == 0) return ret;

  pbi->ready_for_new_data = 1;

#if CONFIG_POSTPROC

  ret = vp8_post_proc_frame(&pbi->common, sd, flags);

#else

  (void)flags;

  if (pbi->common.frame_to_show) {

    *sd = *pbi->common.frame_to_show;

    sd->y_width = pbi->common.Width;

    sd->y_height = pbi->common.Height;

    sd->uv_height = pbi->common.Height / 2;

    ret = 0;

  } else {

    ret = -1;

  }

#endif /*!CONFIG_POSTPROC*/

  vpx_clear_system_state();

  return ret;

}

/* This function as written isn't decoder specific, but the encoder has

 * much faster ways of computing this, so it's ok for it to live in a

 * decode specific file.

 */

int vp8dx_references_buffer(VP8_COMMON *oci, int ref_frame) {

  const MODE_INFO *mi = oci->mi;

  int mb_row, mb_col;

  for (mb_row = 0; mb_row < oci->mb_rows; ++mb_row) {

    for (mb_col = 0; mb_col < oci->mb_cols; mb_col++, mi++) {

      if (mi->mbmi.ref_frame == ref_frame) return 1;

    }

    mi++;

  }

  return 0;

}

int vp8_create_decoder_instances(struct frame_buffers *fb, VP8D_CONFIG *oxcf) {

  /* decoder instance for single thread mode */

  fb->pbi[0] = create_decompressor(oxcf);

  if (!fb->pbi[0]) return VPX_CODEC_ERROR;

#if CONFIG_MULTITHREAD

  if (setjmp(fb->pbi[0]->common.error.jmp)) {

    fb->pbi[0]->common.error.setjmp = 0;

    vp8_remove_decoder_instances(fb);

    vp8_zero(fb->pbi);

    vpx_clear_system_state();

    return VPX_CODEC_ERROR;

  }

  fb->pbi[0]->common.error.setjmp = 1;

  fb->pbi[0]->max_threads = oxcf->max_threads;

  vp8_decoder_create_threads(fb->pbi[0]);

  fb->pbi[0]->common.error.setjmp = 0;

#endif

  return VPX_CODEC_OK;

}

int vp8_remove_decoder_instances(struct frame_buffers *fb) {

  VP8D_COMP *pbi = fb->pbi[0];

  if (!pbi) return VPX_CODEC_ERROR;

#if CONFIG_MULTITHREAD

  vp8_decoder_remove_threads(pbi);

#endif

  /* decoder instance for single thread mode */

  remove_decompressor(pbi);

  fb->pbi[0] = NULL;

  return VPX_CODEC_OK;

}

int vp8dx_get_quantizer(const VP8D_COMP *pbi) {

  return pbi->common.base_qindex;

}