sl@0: /*
sl@0:  * LIBOIL - Library of Optimized Inner Loops
sl@0:  * Copyright (c) 2004 David A. Schleef <ds@schleef.org>
sl@0:  * All rights reserved.
sl@0:  *
sl@0:  * Redistribution and use in source and binary forms, with or without
sl@0:  * modification, are permitted provided that the following conditions
sl@0:  * are met:
sl@0:  * 1. Redistributions of source code must retain the above copyright
sl@0:  *    notice, this list of conditions and the following disclaimer.
sl@0:  * 2. Redistributions in binary form must reproduce the above copyright
sl@0:  *    notice, this list of conditions and the following disclaimer in the
sl@0:  *    documentation and/or other materials provided with the distribution.
sl@0:  * 
sl@0:  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
sl@0:  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
sl@0:  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
sl@0:  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
sl@0:  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
sl@0:  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
sl@0:  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
sl@0:  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
sl@0:  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
sl@0:  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
sl@0:  * POSSIBILITY OF SUCH DAMAGE.
sl@0:  */
sl@0: 
sl@0: #ifdef HAVE_CONFIG_H
sl@0: #include "config.h"
sl@0: #endif
sl@0: 
sl@0: #include <liboil/liboil.h>
sl@0: #include <liboil/liboilfunction.h>
sl@0: #include <liboil/liboiltest.h>
sl@0: #include <liboil/liboilrandom.h>
sl@0: #include <liboil/liboilcpu.h>
sl@0: #include <string.h>
sl@0: #include <math.h>
sl@0: #include <stdio.h>
sl@0: #include <time.h>
sl@0: #include "std_log_result.h"
sl@0: 
sl@0: #include <liboil/globals.h>
sl@0: #ifdef HAVE_INTTYPES_H
sl@0: #include <inttypes.h>
sl@0: #endif
sl@0: 
sl@0: #ifndef PRIx8
sl@0: #define PRIx8  "x"
sl@0: #define PRIx16 "x"
sl@0: #define PRIx32 "x"
sl@0: #define PRIx64 "llx"
sl@0: #define PRId8  "d"
sl@0: #define PRId16 "d"
sl@0: #define PRId32 "d"
sl@0: #define PRId64 "lld"
sl@0: #define PRIu8  "u"
sl@0: #define PRIu16 "u"
sl@0: #define PRIu32 "u"
sl@0: #define PRIu64 "llu"
sl@0: #endif
sl@0: 
sl@0: #define LOG_FILE "c:\\logs\\examples_oil-test_log.txt"
sl@0: #include "std_log_result.h"
sl@0: #define LOG_FILENAME_LINE __FILE__, __LINE__
sl@0: double new_des[10][10];
sl@0: int ind1=0,j;
sl@0: 
sl@0: void create_xml(int result)
sl@0: {
sl@0:     if(result)
sl@0:         assert_failed = 1;
sl@0:     
sl@0:     testResultXml("examples_oil-test");
sl@0:     close_log_file();
sl@0: }
sl@0: 
sl@0: int hex;
sl@0: 
sl@0: void register_impls(void);
sl@0: 
sl@0: void test(void)
sl@0: {
sl@0:   int32_t dest[1];
sl@0:   uint8_t src[100];
sl@0:   int i;
sl@0: 
sl@0:   for(i=0;i<100;i++){
sl@0:     src[i] = oil_rand_u8() & 0x7f;
sl@0:   }
sl@0:   dest[0] = 0;
sl@0: 
sl@0:   oil_utf8_validate (dest, src, 100);
sl@0: 
sl@0: #if 0
sl@0:   for(i=0;i<100;i++){
sl@0:     printf("%d %d\n",dest[i],src[i]);
sl@0:   }
sl@0: #endif
sl@0:   printf("%d\n", dest[0]);
sl@0: 
sl@0: }
sl@0: 
sl@0: void
sl@0: dump_array (void *data, void *ref_data, OilType type, int pre_n, int stride,
sl@0:     int post_n)
sl@0: {
sl@0:   int i, j;
sl@0:   int s2 = oil_type_sizeof (type);
sl@0:   double x;
sl@0: 
sl@0: 
sl@0: #define DUMP(type, format) do { \
sl@0:   for(i=0;i<post_n;i++){ \
sl@0:     printf("    "); \
sl@0:     for(j=0;j<pre_n;j++){ \
sl@0:       x = fabs(OIL_GET(data, i*stride + j*s2, type) - \
sl@0:           OIL_GET(ref_data, i*stride + j*s2, type)); \
sl@0:       if (x >= 0.00001) { \
sl@0:       std_log(LOG_FILENAME_LINE,"*" format "* ", OIL_GET(data, i*stride + j*s2, type)); \
sl@0:       new_des[ind1][i]=OIL_GET(data, i*stride + j*s2, type);\
sl@0:       } else { \
sl@0:       std_log(LOG_FILENAME_LINE,format " ", OIL_GET(data, i*stride + j*s2, type)); \
sl@0:       new_des[ind1][i]=OIL_GET(data, i*stride + j*s2, type);\
sl@0:       } \
sl@0:     } \
sl@0:     printf("\n"); \
sl@0:   } \
sl@0: } while(0)
sl@0: 
sl@0:   if (hex) {
sl@0:     switch(type) {
sl@0:       case OIL_TYPE_s8p:
sl@0:       case OIL_TYPE_u8p:
sl@0:         DUMP(uint8_t, "%02" PRIx8);
sl@0:         break;
sl@0:       case OIL_TYPE_s16p:
sl@0:       case OIL_TYPE_u16p:
sl@0:         DUMP(uint16_t, "%04" PRIx16);
sl@0:         break;
sl@0:       case OIL_TYPE_s32p:
sl@0:       case OIL_TYPE_u32p:
sl@0:       case OIL_TYPE_f32p:
sl@0:         DUMP(uint32_t, "%08" PRIx32);
sl@0:         break;
sl@0:       case OIL_TYPE_s64p:
sl@0:       case OIL_TYPE_u64p:
sl@0:       case OIL_TYPE_f64p:
sl@0:         DUMP(uint64_t, "%016" PRIx64);
sl@0:         break;
sl@0:       default:
sl@0:         break;
sl@0:     }
sl@0:   } else {
sl@0:     switch(type) {
sl@0:       case OIL_TYPE_s8p:
sl@0:         DUMP(int8_t, "%" PRId8);
sl@0:         break;
sl@0:       case OIL_TYPE_u8p:
sl@0:         DUMP(uint8_t, "%" PRIu8);
sl@0:         break;
sl@0:       case OIL_TYPE_s16p:
sl@0:         DUMP(int16_t, "%" PRId16);
sl@0:         break;
sl@0:       case OIL_TYPE_u16p:
sl@0:         DUMP(uint16_t, "%" PRIu16);
sl@0:         break;
sl@0:       case OIL_TYPE_s32p:
sl@0:         DUMP(int32_t, "%" PRId32);
sl@0:         break;
sl@0:       case OIL_TYPE_u32p:
sl@0:         DUMP(uint32_t, "%" PRIu32);
sl@0:         break;
sl@0:       case OIL_TYPE_s64p:
sl@0:         DUMP(int64_t, "%" PRId64);
sl@0:         break;
sl@0:       case OIL_TYPE_u64p:
sl@0:         DUMP(uint64_t, "%" PRIu64);
sl@0:         break;
sl@0:       case OIL_TYPE_f32p:
sl@0:         DUMP(float, "%g");
sl@0:         break;
sl@0:       case OIL_TYPE_f64p:
sl@0:         DUMP(double, "%g");
sl@0:         break;
sl@0:       default:
sl@0:         break;
sl@0:     }
sl@0:   }
sl@0: }
sl@0: 
sl@0: void
sl@0: dump_test (OilTest *test)
sl@0: {
sl@0:   int i;
sl@0:   for(i=0;i<OIL_ARG_LAST;i++){
sl@0:     OilParameter *p = &test->params[i];
sl@0:     if (p->is_pointer) {
sl@0:       if (p->direction == 'i' || p->direction == 'd') {
sl@0:       std_log(LOG_FILENAME_LINE,"  %s:\n", p->parameter_name);
sl@0:         dump_array (p->test_data + OIL_TEST_HEADER,
sl@0:             p->ref_data + OIL_TEST_HEADER,
sl@0:             p->type, p->pre_n, p->stride, p->post_n);
sl@0:       }
sl@0:     }
sl@0:   }
sl@0: }
sl@0: 
sl@0: void
sl@0: dump_source (OilTest *test)
sl@0: {
sl@0:   int i;
sl@0:   for(i=0;i<OIL_ARG_LAST;i++){
sl@0:     OilParameter *p = &test->params[i];
sl@0:     if (p->is_pointer) {
sl@0:       if (p->direction == 'i' || p->direction == 's') {
sl@0:       std_log(LOG_FILENAME_LINE,"  %s:\n", p->parameter_name);
sl@0:         dump_array (p->src_data + OIL_TEST_HEADER,
sl@0:             p->src_data + OIL_TEST_HEADER,
sl@0:             p->type, p->pre_n, p->stride, p->post_n);
sl@0:       }
sl@0:     }
sl@0:   }
sl@0: }
sl@0: 
sl@0: void
sl@0: help (void)
sl@0: {
sl@0: std_log(LOG_FILENAME_LINE,"oil-test [-x] <class_name>\n");
sl@0:   //exit(0);
sl@0: }
sl@0: 
sl@0: int main (int argc, char *argv[])
sl@0: {
sl@0:   OilFunctionClass *klass;
sl@0:   OilFunctionImpl *impl;
sl@0:   OilTest *test;
sl@0:   double ave, std;
sl@0:   char *class_name = NULL;
sl@0:   int i;
sl@0:   int n = 10;
sl@0: 
sl@0:   srand(time(NULL));
sl@0:   oil_init ();
sl@0: 
sl@0:   for (i=1;i<argc;i++){
sl@0:     if (!strcmp(argv[i],"-x")) {
sl@0:       hex = 1;
sl@0:     } else if (!strcmp(argv[i],"-n")) {
sl@0:       if (i + 1 < argc) {
sl@0:         n = strtol (argv[i+1], NULL, 0);
sl@0:         i++;
sl@0:       }
sl@0:     } else {
sl@0:       if (class_name != NULL) {
sl@0:         help();
sl@0:       }
sl@0:       class_name = argv[i];
sl@0:     }
sl@0:   }
sl@0:   if (class_name == NULL) {
sl@0:     help();
sl@0:   }
sl@0: 
sl@0:   klass = oil_class_get (class_name);
sl@0:   if (klass == NULL) {
sl@0:   std_log(LOG_FILENAME_LINE,"class not found: %s\n", class_name);
sl@0:     exit(0);
sl@0:   }
sl@0:   oil_class_optimize (klass);
sl@0: 
sl@0:   test = oil_test_new(klass);
sl@0:   oil_test_set_iterations(test, 1);
sl@0:   test->n = n;
sl@0:   test->m = n;
sl@0: 
sl@0:   impl = klass->reference_impl;
sl@0:   ave = impl->profile_ave;
sl@0:   std = impl->profile_std;
sl@0:   oil_test_check_impl (test, impl);
sl@0:   std_log(LOG_FILENAME_LINE,"source array\n");
sl@0:   dump_source(test);
sl@0:   std_log(LOG_FILENAME_LINE,"reference impl %s\n", impl->name);
sl@0:   std_log(LOG_FILENAME_LINE,"  ave=%g std=%g\n", ave, std);
sl@0:   std_log(LOG_FILENAME_LINE,"  (this test) ave=%g std=%g\n", test->profile_ave, test->profile_std);
sl@0:   dump_test(test);
sl@0: 
sl@0:   for (impl = klass->first_impl; impl; impl = impl->next) {
sl@0:     if (impl == klass->reference_impl) continue;
sl@0:     std_log(LOG_FILENAME_LINE,"impl %s\n", impl->name);
sl@0:     ind1++;
sl@0:     if (oil_impl_is_runnable (impl)) {
sl@0:     std_log(LOG_FILENAME_LINE,"  ave=%g std=%g\n", impl->profile_ave, impl->profile_std);
sl@0:       oil_test_check_impl (test, impl);
sl@0:       std_log(LOG_FILENAME_LINE,"  (this test) ave=%g std=%g\n", test->profile_ave, test->profile_std);
sl@0:       std_log(LOG_FILENAME_LINE,"  abs diff=%g\n", test->sum_abs_diff);
sl@0:       dump_test(test);
sl@0:     }
sl@0:   }
sl@0:   for(i=0;i<10;i++)
sl@0:       {
sl@0:       for(j=1;j<ind1;j++)
sl@0:           {
sl@0:           if(new_des[0][i]!=new_des[j][i])
sl@0:               {
sl@0:               assert_failed=1;
sl@0:               }
sl@0:           }
sl@0:       }
sl@0:   if(assert_failed)
sl@0:       std_log(LOG_FILENAME_LINE,"Test Fail");
sl@0:   else
sl@0:       std_log(LOG_FILENAME_LINE,"Test Successful");
sl@0:   create_xml(0);
sl@0:   return 0;
sl@0: }
sl@0: