/*

 * LIBOIL - Library of Optimized Inner Loops

 * Copyright (c) 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.

 */

#ifdef HAVE_CONFIG_H

#include "config.h"

#endif

#include <liboil/liboil.h>

#include <liboil/liboilfunction.h>

#include <liboil/liboiltest.h>

#include <liboil/liboilrandom.h>

#include <liboil/liboilcpu.h>

#include <string.h>

#include <math.h>

#include <stdio.h>

#include <time.h>

#include "std_log_result.h"

#include <liboil/globals.h>

#ifdef HAVE_INTTYPES_H

#include <inttypes.h>

#endif

#ifndef PRIx8

#define PRIx8  "x"

#define PRIx16 "x"

#define PRIx32 "x"

#define PRIx64 "llx"

#define PRId8  "d"

#define PRId16 "d"

#define PRId32 "d"

#define PRId64 "lld"

#define PRIu8  "u"

#define PRIu16 "u"

#define PRIu32 "u"

#define PRIu64 "llu"

#endif

#define LOG_FILE "c:\\logs\\examples_oil-test_log.txt"

#include "std_log_result.h"

#define LOG_FILENAME_LINE __FILE__, __LINE__

double new_des[10][10];

int ind1=0,j;

void create_xml(int result)

{

    if(result)

        assert_failed = 1;

    testResultXml("examples_oil-test");

    close_log_file();

}

int hex;

void register_impls(void);

void test(void)

{

  int32_t dest[1];

  uint8_t src[100];

  int i;

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

    src[i] = oil_rand_u8() & 0x7f;

  }

  dest[0] = 0;

  oil_utf8_validate (dest, src, 100);

#if 0

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

    printf("%d %d\n",dest[i],src[i]);

  }

#endif

  printf("%d\n", dest[0]);

}

void

dump_array (void *data, void *ref_data, OilType type, int pre_n, int stride,

    int post_n)

{

  int i, j;

  int s2 = oil_type_sizeof (type);

  double x;

#define DUMP(type, format) do { \

  for(i=0;i<post_n;i++){ \

    printf("    "); \

    for(j=0;j<pre_n;j++){ \

      x = fabs(OIL_GET(data, i*stride + j*s2, type) - \

          OIL_GET(ref_data, i*stride + j*s2, type)); \

      if (x >= 0.00001) { \

      std_log(LOG_FILENAME_LINE,"*" format "* ", OIL_GET(data, i*stride + j*s2, type)); \

      new_des[ind1][i]=OIL_GET(data, i*stride + j*s2, type);\

      } else { \

      std_log(LOG_FILENAME_LINE,format " ", OIL_GET(data, i*stride + j*s2, type)); \

      new_des[ind1][i]=OIL_GET(data, i*stride + j*s2, type);\

      } \

    } \

    printf("\n"); \

  } \

} while(0)

  if (hex) {

    switch(type) {

      case OIL_TYPE_s8p:

      case OIL_TYPE_u8p:

        DUMP(uint8_t, "%02" PRIx8);

        break;

      case OIL_TYPE_s16p:

      case OIL_TYPE_u16p:

        DUMP(uint16_t, "%04" PRIx16);

        break;

      case OIL_TYPE_s32p:

      case OIL_TYPE_u32p:

      case OIL_TYPE_f32p:

        DUMP(uint32_t, "%08" PRIx32);

        break;

      case OIL_TYPE_s64p:

      case OIL_TYPE_u64p:

      case OIL_TYPE_f64p:

        DUMP(uint64_t, "%016" PRIx64);

        break;

      default:

        break;

    }

  } else {

    switch(type) {

      case OIL_TYPE_s8p:

        DUMP(int8_t, "%" PRId8);

        break;

      case OIL_TYPE_u8p:

        DUMP(uint8_t, "%" PRIu8);

        break;

      case OIL_TYPE_s16p:

        DUMP(int16_t, "%" PRId16);

        break;

      case OIL_TYPE_u16p:

        DUMP(uint16_t, "%" PRIu16);

        break;

      case OIL_TYPE_s32p:

        DUMP(int32_t, "%" PRId32);

        break;

      case OIL_TYPE_u32p:

        DUMP(uint32_t, "%" PRIu32);

        break;

      case OIL_TYPE_s64p:

        DUMP(int64_t, "%" PRId64);

        break;

      case OIL_TYPE_u64p:

        DUMP(uint64_t, "%" PRIu64);

        break;

      case OIL_TYPE_f32p:

        DUMP(float, "%g");

        break;

      case OIL_TYPE_f64p:

        DUMP(double, "%g");

        break;

      default:

        break;

    }

  }

}

void

dump_test (OilTest *test)

{

  int i;

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

    OilParameter *p = &test->params[i];

    if (p->is_pointer) {

      if (p->direction == 'i' || p->direction == 'd') {

      std_log(LOG_FILENAME_LINE,"  %s:\n", p->parameter_name);

        dump_array (p->test_data + OIL_TEST_HEADER,

            p->ref_data + OIL_TEST_HEADER,

            p->type, p->pre_n, p->stride, p->post_n);

      }

    }

  }

}

void

dump_source (OilTest *test)

{

  int i;

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

    OilParameter *p = &test->params[i];

    if (p->is_pointer) {

      if (p->direction == 'i' || p->direction == 's') {

      std_log(LOG_FILENAME_LINE,"  %s:\n", p->parameter_name);

        dump_array (p->src_data + OIL_TEST_HEADER,

            p->src_data + OIL_TEST_HEADER,

            p->type, p->pre_n, p->stride, p->post_n);

      }

    }

  }

}

void

help (void)

{

std_log(LOG_FILENAME_LINE,"oil-test [-x] <class_name>\n");

  //exit(0);

}

int main (int argc, char *argv[])

{

  OilFunctionClass *klass;

  OilFunctionImpl *impl;

  OilTest *test;

  double ave, std;

  char *class_name = NULL;

  int i;

  int n = 10;

  srand(time(NULL));

  oil_init ();

  for (i=1;i<argc;i++){

    if (!strcmp(argv[i],"-x")) {

      hex = 1;

    } else if (!strcmp(argv[i],"-n")) {

      if (i + 1 < argc) {

        n = strtol (argv[i+1], NULL, 0);

        i++;

      }

    } else {

      if (class_name != NULL) {

        help();

      }

      class_name = argv[i];

    }

  }

  if (class_name == NULL) {

    help();

  }

  klass = oil_class_get (class_name);

  if (klass == NULL) {

  std_log(LOG_FILENAME_LINE,"class not found: %s\n", class_name);

    exit(0);

  }

  oil_class_optimize (klass);

  test = oil_test_new(klass);

  oil_test_set_iterations(test, 1);

  test->n = n;

  test->m = n;

  impl = klass->reference_impl;

  ave = impl->profile_ave;

  std = impl->profile_std;

  oil_test_check_impl (test, impl);

  std_log(LOG_FILENAME_LINE,"source array\n");

  dump_source(test);

  std_log(LOG_FILENAME_LINE,"reference impl %s\n", impl->name);

  std_log(LOG_FILENAME_LINE,"  ave=%g std=%g\n", ave, std);

  std_log(LOG_FILENAME_LINE,"  (this test) ave=%g std=%g\n", test->profile_ave, test->profile_std);

  dump_test(test);

  for (impl = klass->first_impl; impl; impl = impl->next) {

    if (impl == klass->reference_impl) continue;

    std_log(LOG_FILENAME_LINE,"impl %s\n", impl->name);

    ind1++;

    if (oil_impl_is_runnable (impl)) {

    std_log(LOG_FILENAME_LINE,"  ave=%g std=%g\n", impl->profile_ave, impl->profile_std);

      oil_test_check_impl (test, impl);

      std_log(LOG_FILENAME_LINE,"  (this test) ave=%g std=%g\n", test->profile_ave, test->profile_std);

      std_log(LOG_FILENAME_LINE,"  abs diff=%g\n", test->sum_abs_diff);

      dump_test(test);

    }

  }

  for(i=0;i<10;i++)

      {

      for(j=1;j<ind1;j++)

          {

          if(new_des[0][i]!=new_des[j][i])

              {

              assert_failed=1;

              }

          }

      }

  if(assert_failed)

      std_log(LOG_FILENAME_LINE,"Test Fail");

  else

      std_log(LOG_FILENAME_LINE,"Test Successful");

  create_xml(0);

  return 0;

}