--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/genericopenlibs/liboil/tsrc/examples/oil-test/src/oil-test.c Fri Apr 16 16:46:38 2010 +0300
@@ -0,0 +1,317 @@
+/*
+ * 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;
+}
+