/* *  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 <math.h>#include <stdio.h>#include <string.h>#include <assert.h>#include "onyx_int.h"#include "tokenize.h"#include "vpx_mem/vpx_mem.h" /* Global event counters used for accumulating statistics across several   compressions, then generating context.c = initial stats. */ void vp8_stuff_mb(VP8_COMP *cpi, MACROBLOCK *x, TOKENEXTRA **t);void vp8_fix_contexts(MACROBLOCKD *x); #include "dct_value_tokens.h"#include "dct_value_cost.h" const TOKENVALUE *const vp8_dct_value_tokens_ptr =    dct_value_tokens + DCT_MAX_VALUE;const short *const vp8_dct_value_cost_ptr = dct_value_cost + DCT_MAX_VALUE; #if 0int skip_true_count = 0;int skip_false_count = 0;#endif /* function used to generate dct_value_tokens and dct_value_cost tables *//*static void fill_value_tokens(){     TOKENVALUE *t = dct_value_tokens + DCT_MAX_VALUE;    const vp8_extra_bit_struct *e = vp8_extra_bits;     int i = -DCT_MAX_VALUE;    int sign = 1;     do    {        if (!i)            sign = 0;         {            const int a = sign ? -i : i;            int eb = sign;             if (a > 4)            {                int j = 4;                 while (++j < 11  &&  e[j].base_val <= a) {}                 t[i].Token = --j;                eb |= (a - e[j].base_val) << 1;            }            else                t[i].Token = a;             t[i].Extra = eb;        }         // initialize the cost for extra bits for all possible coefficientvalue.        {            int cost = 0;            const vp8_extra_bit_struct *p = vp8_extra_bits + t[i].Token;             if (p->base_val)            {                const int extra = t[i].Extra;                const int Length = p->Len;                 if (Length)                    cost += vp8_treed_cost(p->tree, p->prob, extra >> 1,Length);                 cost += vp8_cost_bit(vp8_prob_half, extra & 1); // sign                dct_value_cost[i + DCT_MAX_VALUE] = cost;            }         }     }    while (++i < DCT_MAX_VALUE);     vp8_dct_value_tokens_ptr = dct_value_tokens + DCT_MAX_VALUE;    vp8_dct_value_cost_ptr   = dct_value_cost + DCT_MAX_VALUE;}*/ static void tokenize2nd_order_b(MACROBLOCK *x, TOKENEXTRA **tp, VP8_COMP *cpi) {  MACROBLOCKD *xd = &x->e_mbd;  int pt;              /* near block/prev token context index */  int c;               /* start at DC */  TOKENEXTRA *t = *tp; /* store tokens starting here */  const BLOCKD *b;  const short *qcoeff_ptr;  ENTROPY_CONTEXT *a;  ENTROPY_CONTEXT *l;  int band, rc, v, token;  int eob;   b = xd->block + 24;  qcoeff_ptr = b->qcoeff;  a = (ENTROPY_CONTEXT *)xd->above_context + 8;  l = (ENTROPY_CONTEXT *)xd->left_context + 8;  eob = xd->eobs[24];  VP8_COMBINEENTROPYCONTEXTS(pt, *a, *l);   if (!eob) {    /* c = band for this case */    t->Token = DCT_EOB_TOKEN;    t->context_tree = cpi->common.fc.coef_probs[1][0][pt];    t->skip_eob_node = 0;     ++x->coef_counts[1][0][pt][DCT_EOB_TOKEN];    t++;    *tp = t;    *a = *l = 0;    return;  }   v = qcoeff_ptr[0];  t->Extra = vp8_dct_value_tokens_ptr[v].Extra;  token = vp8_dct_value_tokens_ptr[v].Token;  t->Token = token;   t->context_tree = cpi->common.fc.coef_probs[1][0][pt];  t->skip_eob_node = 0;  ++x->coef_counts[1][0][pt][token];  pt = vp8_prev_token_class[token];  t++;  c = 1;   for (; c < eob; ++c) {    rc = vp8_default_zig_zag1d[c];    band = vp8_coef_bands[c];    v = qcoeff_ptr[rc];     t->Extra = vp8_dct_value_tokens_ptr[v].Extra;    token = vp8_dct_value_tokens_ptr[v].Token;     t->Token = token;    t->context_tree = cpi->common.fc.coef_probs[1][band][pt];     t->skip_eob_node = ((pt == 0));     ++x->coef_counts[1][band][pt][token];     pt = vp8_prev_token_class[token];    t++;  }  if (c < 16) {    band = vp8_coef_bands[c];    t->Token = DCT_EOB_TOKEN;    t->context_tree = cpi->common.fc.coef_probs[1][band][pt];     t->skip_eob_node = 0;     ++x->coef_counts[1][band][pt][DCT_EOB_TOKEN];     t++;  }   *tp = t;  *a = *l = 1;} static void tokenize1st_order_b(    MACROBLOCK *x, TOKENEXTRA **tp,    int type, /* which plane: 0=Y no DC, 1=Y2, 2=UV, 3=Y with DC */    VP8_COMP *cpi) {  MACROBLOCKD *xd = &x->e_mbd;  unsigned int block;  const BLOCKD *b;  int pt; /* near block/prev token context index */  int c;  int token;  TOKENEXTRA *t = *tp; /* store tokens starting here */  const short *qcoeff_ptr;  ENTROPY_CONTEXT *a;  ENTROPY_CONTEXT *l;  int band, rc, v;  int tmp1, tmp2;   b = xd->block;  /* Luma */  for (block = 0; block < 16; block++, b++) {    const int eob = *b->eob;    tmp1 = vp8_block2above[block];    tmp2 = vp8_block2left[block];    qcoeff_ptr = b->qcoeff;    a = (ENTROPY_CONTEXT *)xd->above_context + tmp1;    l = (ENTROPY_CONTEXT *)xd->left_context + tmp2;     VP8_COMBINEENTROPYCONTEXTS(pt, *a, *l);     c = type ? 0 : 1;     if (c >= eob) {      /* c = band for this case */      t->Token = DCT_EOB_TOKEN;      t->context_tree = cpi->common.fc.coef_probs[type][c][pt];      t->skip_eob_node = 0;       ++x->coef_counts[type][c][pt][DCT_EOB_TOKEN];      t++;      *tp = t;      *a = *l = 0;      continue;    }     v = qcoeff_ptr[c];     t->Extra = vp8_dct_value_tokens_ptr[v].Extra;    token = vp8_dct_value_tokens_ptr[v].Token;    t->Token = token;     t->context_tree = cpi->common.fc.coef_probs[type][c][pt];    t->skip_eob_node = 0;    ++x->coef_counts[type][c][pt][token];    pt = vp8_prev_token_class[token];    t++;    c++;     assert(eob <= 16);    for (; c < eob; ++c) {      rc = vp8_default_zig_zag1d[c];      band = vp8_coef_bands[c];      v = qcoeff_ptr[rc];       t->Extra = vp8_dct_value_tokens_ptr[v].Extra;      token = vp8_dct_value_tokens_ptr[v].Token;       t->Token = token;      t->context_tree = cpi->common.fc.coef_probs[type][band][pt];       t->skip_eob_node = (pt == 0);      ++x->coef_counts[type][band][pt][token];       pt = vp8_prev_token_class[token];      t++;    }    if (c < 16) {      band = vp8_coef_bands[c];      t->Token = DCT_EOB_TOKEN;      t->context_tree = cpi->common.fc.coef_probs[type][band][pt];       t->skip_eob_node = 0;      ++x->coef_counts[type][band][pt][DCT_EOB_TOKEN];       t++;    }    *tp = t;    *a = *l = 1;  }   /* Chroma */  for (block = 16; block < 24; block++, b++) {    const int eob = *b->eob;    tmp1 = vp8_block2above[block];    tmp2 = vp8_block2left[block];    qcoeff_ptr = b->qcoeff;    a = (ENTROPY_CONTEXT *)xd->above_context + tmp1;    l = (ENTROPY_CONTEXT *)xd->left_context + tmp2;     VP8_COMBINEENTROPYCONTEXTS(pt, *a, *l);     if (!eob) {      /* c = band for this case */      t->Token = DCT_EOB_TOKEN;      t->context_tree = cpi->common.fc.coef_probs[2][0][pt];      t->skip_eob_node = 0;       ++x->coef_counts[2][0][pt][DCT_EOB_TOKEN];      t++;      *tp = t;      *a = *l = 0;      continue;    }     v = qcoeff_ptr[0];     t->Extra = vp8_dct_value_tokens_ptr[v].Extra;    token = vp8_dct_value_tokens_ptr[v].Token;    t->Token = token;     t->context_tree = cpi->common.fc.coef_probs[2][0][pt];    t->skip_eob_node = 0;    ++x->coef_counts[2][0][pt][token];    pt = vp8_prev_token_class[token];    t++;    c = 1;     assert(eob <= 16);    for (; c < eob; ++c) {      rc = vp8_default_zig_zag1d[c];      band = vp8_coef_bands[c];      v = qcoeff_ptr[rc];       t->Extra = vp8_dct_value_tokens_ptr[v].Extra;      token = vp8_dct_value_tokens_ptr[v].Token;       t->Token = token;      t->context_tree = cpi->common.fc.coef_probs[2][band][pt];       t->skip_eob_node = (pt == 0);       ++x->coef_counts[2][band][pt][token];       pt = vp8_prev_token_class[token];      t++;    }    if (c < 16) {      band = vp8_coef_bands[c];      t->Token = DCT_EOB_TOKEN;      t->context_tree = cpi->common.fc.coef_probs[2][band][pt];       t->skip_eob_node = 0;       ++x->coef_counts[2][band][pt][DCT_EOB_TOKEN];       t++;    }    *tp = t;    *a = *l = 1;  }} static int mb_is_skippable(MACROBLOCKD *x, int has_y2_block) {  int skip = 1;  int i = 0;   if (has_y2_block) {    for (i = 0; i < 16; ++i) skip &= (x->eobs[i] < 2);  }   for (; i < 24 + has_y2_block; ++i) skip &= (!x->eobs[i]);   return skip;} void vp8_tokenize_mb(VP8_COMP *cpi, MACROBLOCK *x, TOKENEXTRA **t) {  MACROBLOCKD *xd = &x->e_mbd;  int plane_type;  int has_y2_block;   has_y2_block = (xd->mode_info_context->mbmi.mode != B_PRED &&                  xd->mode_info_context->mbmi.mode != SPLITMV);   xd->mode_info_context->mbmi.mb_skip_coeff = mb_is_skippable(xd, has_y2_block);  if (xd->mode_info_context->mbmi.mb_skip_coeff) {    if (!cpi->common.mb_no_coeff_skip) {      vp8_stuff_mb(cpi, x, t);    } else {      vp8_fix_contexts(xd);      x->skip_true_count++;    }     return;  }   plane_type = 3;  if (has_y2_block) {    tokenize2nd_order_b(x, t, cpi);    plane_type = 0;  }   tokenize1st_order_b(x, t, plane_type, cpi);} static void stuff2nd_order_b(TOKENEXTRA **tp, ENTROPY_CONTEXT *a,                             ENTROPY_CONTEXT *l, VP8_COMP *cpi, MACROBLOCK *x) {  int pt;              /* near block/prev token context index */  TOKENEXTRA *t = *tp; /* store tokens starting here */  VP8_COMBINEENTROPYCONTEXTS(pt, *a, *l);   t->Token = DCT_EOB_TOKEN;  t->context_tree = cpi->common.fc.coef_probs[1][0][pt];  t->skip_eob_node = 0;  ++x->coef_counts[1][0][pt][DCT_EOB_TOKEN];  ++t;   *tp = t;  pt = 0;  *a = *l = pt;} static void stuff1st_order_b(TOKENEXTRA **tp, ENTROPY_CONTEXT *a,                             ENTROPY_CONTEXT *l, int type, VP8_COMP *cpi,                             MACROBLOCK *x) {  int pt; /* near block/prev token context index */  int band;  TOKENEXTRA *t = *tp; /* store tokens starting here */  VP8_COMBINEENTROPYCONTEXTS(pt, *a, *l);  band = type ? 0 : 1;  t->Token = DCT_EOB_TOKEN;  t->context_tree = cpi->common.fc.coef_probs[type][band][pt];  t->skip_eob_node = 0;  ++x->coef_counts[type][band][pt][DCT_EOB_TOKEN];  ++t;  *tp = t;  pt = 0; /* 0 <-> all coeff data is zero */  *a = *l = pt;} static void stuff1st_order_buv(TOKENEXTRA **tp, ENTROPY_CONTEXT *a,                               ENTROPY_CONTEXT *l, VP8_COMP *cpi,                               MACROBLOCK *x) {  int pt;              /* near block/prev token context index */  TOKENEXTRA *t = *tp; /* store tokens starting here */  VP8_COMBINEENTROPYCONTEXTS(pt, *a, *l);   t->Token = DCT_EOB_TOKEN;  t->context_tree = cpi->common.fc.coef_probs[2][0][pt];  t->skip_eob_node = 0;  ++x->coef_counts[2][0][pt][DCT_EOB_TOKEN];  ++t;  *tp = t;  pt = 0; /* 0 <-> all coeff data is zero */  *a = *l = pt;} void vp8_stuff_mb(VP8_COMP *cpi, MACROBLOCK *x, TOKENEXTRA **t) {  MACROBLOCKD *xd = &x->e_mbd;  ENTROPY_CONTEXT *A = (ENTROPY_CONTEXT *)xd->above_context;  ENTROPY_CONTEXT *L = (ENTROPY_CONTEXT *)xd->left_context;  int plane_type;  int b;  plane_type = 3;  if ((xd->mode_info_context->mbmi.mode != B_PRED &&       xd->mode_info_context->mbmi.mode != SPLITMV)) {    stuff2nd_order_b(t, A + vp8_block2above[24], L + vp8_block2left[24], cpi,                     x);    plane_type = 0;  }   for (b = 0; b < 16; ++b) {    stuff1st_order_b(t, A + vp8_block2above[b], L + vp8_block2left[b],                     plane_type, cpi, x);  }   for (b = 16; b < 24; ++b) {    stuff1st_order_buv(t, A + vp8_block2above[b], L + vp8_block2left[b], cpi,                       x);  }}void vp8_fix_contexts(MACROBLOCKD *x) {  /* Clear entropy contexts for Y2 blocks */  if (x->mode_info_context->mbmi.mode != B_PRED &&      x->mode_info_context->mbmi.mode != SPLITMV) {    memset(x->above_context, 0, sizeof(ENTROPY_CONTEXT_PLANES));    memset(x->left_context, 0, sizeof(ENTROPY_CONTEXT_PLANES));  } else {    memset(x->above_context, 0, sizeof(ENTROPY_CONTEXT_PLANES) - 1);    memset(x->left_context, 0, sizeof(ENTROPY_CONTEXT_PLANES) - 1);  }}