/*

 * LIBOIL - Library of Optimized Inner Loops

 * Copyright (c) 2003,2004 David A. Schleef <ds@schleef.org>

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 * 

 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR

 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,

 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR

 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,

 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING

 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE

 * POSSIBILITY OF SUCH DAMAGE.

 */

//Portions Copyright (c)  2008-2009 Nokia Corporation and/or its subsidiary(-ies). All rights reserved. 

#ifdef HAVE_CONFIG_H

#include "config.h"

#endif

#include <liboil/liboilfunction.h>

/**

 * oil_err_intra8x8_u8:

 * @d_1:

 * @s1_8x8:

 * @ss1:

 *

 * Calculates the sum of squared differences from the mean over

 * @s1_8x8 and places the result in @d_1.  This result is 64 times

 * the variance of the mean of @s1_8x8.

 */

OIL_DEFINE_CLASS (err_intra8x8_u8,

    "uint32_t *d_1, uint8_t *s1_8x8, int ss1");

/**

 * oil_err_inter8x8_u8:

 * @d_1:

 * @s1_8x8:

 * @ss1:

 * @s2_8x8:

 * @ss2:

 *

 * Calculates an intermediate 8x8 block where each element is the

 * difference between @s1_8x8 and @s2_8x8.

 * The sum of squares of the difference of each element in the 

 * intermediate block and the mean of the intermediate block is

 * placed into @d_1.  This result is

 * equal to 64 times the variance of the mean of the intermediate block.

 */

OIL_DEFINE_CLASS (err_inter8x8_u8,

    "uint32_t *d_1, uint8_t *s1_8x8, int ss1, uint8_t *s2_8x8, int ss2");

/**

 * oil_err_inter8x8_u8_avg:

 * @d_1:

 * @s1_8x8:

 * @ss1:

 * @s2_8x8:

 * @s3_8x8:

 * @ss2:

 *

 * Calculates an intermediate 8x8 block where each element is the

 * difference between @s1_8x8 and the average of @s2_8x8 and @s3_8x8.

 * The sum of squares of the difference of each element in the 

 * intermediate block and the mean of the intermediate block is

 * placed into @d_1.

 * This result is 64 times the variance of the mean of the intermediate

 * block.

 *

 * FIXME: This function is broken, since the reference function uses

 * @ss2 as the stride for both @s2_8x8 and @s3_8x8.

 */

OIL_DEFINE_CLASS (err_inter8x8_u8_avg,

    "uint32_t *d_1, uint8_t *s1_8x8, int ss1, uint8_t *s2_8x8, uint8_t *s3_8x8, int ss2");

#define DSP_OP_AVG(a,b) ((((int)(a)) + ((int)(b)))/2)

#define DSP_OP_DIFF(a,b) (((int)(a)) - ((int)(b)))

static void

err_intra8x8_u8_ref (uint32_t *dest, uint8_t *src1, int ss1)

{

  uint32_t  i;

  uint32_t  xsum=0;

  uint32_t  xxsum=0;

  for (i=8; i; i--) {

    /* Examine alternate pixel locations. */

    xsum += src1[0];

    xxsum += src1[0]*src1[0];

    xsum += src1[1];

    xxsum += src1[1]*src1[1];

    xsum += src1[2];

    xxsum += src1[2]*src1[2];

    xsum += src1[3];

    xxsum += src1[3]*src1[3];

    xsum += src1[4];

    xxsum += src1[4]*src1[4];

    xsum += src1[5];

    xxsum += src1[5]*src1[5];

    xsum += src1[6];

    xxsum += src1[6]*src1[6];

    xsum += src1[7];

    xxsum += src1[7]*src1[7];

    /* Step to next row of block. */

    src1 += ss1;

  }

  /* Compute population variance as mis-match metric. */

  *dest = (((xxsum<<6) - xsum*xsum ));

}

OIL_DEFINE_IMPL_REF (err_intra8x8_u8_ref, err_intra8x8_u8);

static void

err_inter8x8_u8_ref (uint32_t *dest, uint8_t *src1, int ss1, uint8_t *src2, int ss2)

{

  uint32_t  i;

  uint32_t  xsum=0;

  uint32_t  xxsum=0;

  int32_t   diff;

  for (i=8; i; i--) {

    diff = DSP_OP_DIFF (src1[0], src2[0]);

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF (src1[1], src2[1]);

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF (src1[2], src2[2]);

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF (src1[3], src2[3]);

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF (src1[4], src2[4]);

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF (src1[5], src2[5]);

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF (src1[6], src2[6]);

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF (src1[7], src2[7]);

    xsum += diff;

    xxsum += diff*diff;

    /* Step to next row of block. */

    src1 += ss1;

    src2 += ss2;

  }

  /* Compute and return population variance as mis-match metric. */

  *dest = (((xxsum<<6) - xsum*xsum));

}

OIL_DEFINE_IMPL_REF (err_inter8x8_u8_ref, err_inter8x8_u8);

static void

err_inter8x8_u8_avg_ref (uint32_t *dest, uint8_t *src1, int ss1, uint8_t *src2, uint8_t *src3, int ss2)

{

  uint32_t  i;

  uint32_t  xsum=0;

  uint32_t  xxsum=0;

  int32_t   diff;

  for (i=8; i; i--) {

    diff = DSP_OP_DIFF(src1[0], DSP_OP_AVG (src2[0], src3[0]));

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF(src1[1], DSP_OP_AVG (src2[1], src3[1]));

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF(src1[2], DSP_OP_AVG (src2[2], src3[2]));

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF(src1[3], DSP_OP_AVG (src2[3], src3[3]));

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF(src1[4], DSP_OP_AVG (src2[4], src3[4]));

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF(src1[5], DSP_OP_AVG (src2[5], src3[5]));

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF(src1[6], DSP_OP_AVG (src2[6], src3[6]));

    xsum += diff;

    xxsum += diff*diff;

    diff = DSP_OP_DIFF(src1[7], DSP_OP_AVG (src2[7], src3[7]));

    xsum += diff;

    xxsum += diff*diff;

    /* Step to next row of block. */

    src1 += ss1;

    src2 += ss2;

    src3 += ss2;

  }

  /* Compute and return population variance as mis-match metric. */

  *dest = (((xxsum<<6) - xsum*xsum));

}

OIL_DEFINE_IMPL_REF (err_inter8x8_u8_avg_ref, err_inter8x8_u8_avg);

#ifdef	__SYMBIAN32__

OilFunctionClass* __oil_function_class_err_intra8x8_u8() {

		return &_oil_function_class_err_intra8x8_u8;

}

#endif

#ifdef	__SYMBIAN32__

OilFunctionClass* __oil_function_class_err_inter8x8_u8() {

		return &_oil_function_class_err_inter8x8_u8;

}

#endif

#ifdef	__SYMBIAN32__

OilFunctionClass* __oil_function_class_err_inter8x8_u8_avg() {

		return &_oil_function_class_err_inter8x8_u8_avg;

}

#endif

#ifdef	__SYMBIAN32__

OilFunctionImpl* __oil_function_impl_err_intra8x8_u8_ref() {

		return &_oil_function_impl_err_intra8x8_u8_ref;

}

#endif

#ifdef	__SYMBIAN32__

OilFunctionImpl* __oil_function_impl_err_inter8x8_u8_ref() {

		return &_oil_function_impl_err_inter8x8_u8_ref;

}

#endif

#ifdef	__SYMBIAN32__

OilFunctionImpl* __oil_function_impl_err_inter8x8_u8_avg_ref() {

		return &_oil_function_impl_err_inter8x8_u8_avg_ref;

}

#endif

#ifdef	__SYMBIAN32__

EXPORT_C void** _oil_function_class_ptr_err_intra8x8_u8 ()	{

	oil_function_class_ptr_err_intra8x8_u8 = __oil_function_class_err_intra8x8_u8();

	return &oil_function_class_ptr_err_intra8x8_u8->func;

	}

#endif

#ifdef	__SYMBIAN32__

EXPORT_C void** _oil_function_class_ptr_err_inter8x8_u8 ()	{

	oil_function_class_ptr_err_inter8x8_u8 = __oil_function_class_err_inter8x8_u8();

	return &oil_function_class_ptr_err_inter8x8_u8->func;

	}

#endif

#ifdef	__SYMBIAN32__

EXPORT_C void** _oil_function_class_ptr_err_inter8x8_u8_avg ()	{

	oil_function_class_ptr_err_inter8x8_u8_avg = __oil_function_class_err_inter8x8_u8_avg();

	return &oil_function_class_ptr_err_inter8x8_u8_avg->func;

	}

#endif