From Benjamin Otte

* autogen.sh:
* examples/Makefile.am: Add oil-inspect
* examples/oil-inspect.c: (printerr), (string_append),
(oil_flags_to_string), (oil_print_impl), (oil_print_class),
(oil_print_all), (main):
* liboil/liboilfunction.h:
* liboil/md5/md5_i386.c: don't mark functions as reference

2 files changed, 167 insertions, 1 deletions

diff --git a/examples/Makefile.am b/examples/Makefile.am
index 9699fdd..cdc1df0 100644
--- a/examples/Makefile.am
+++ b/examples/Makefile.am
@@ -1,11 +1,14 @@
 
 SUBDIRS = jpeg md5
 
-noinst_PROGRAMS = example1
+noinst_PROGRAMS = example1 oil-inspect
 
 
 example1_SOURCES = example1.c
 example1_CFLAGS = $(LIBOIL_CFLAGS)
 example1_LDFLAGS = $(LIBOIL_LIBS)
 
+oil_inspect_SOURCES = oil-inspect.c
+oil_inspect_CFLAGS = $(LIBOIL_CFLAGS)
+oil_inspect_LDFLAGS = $(LIBOIL_LIBS)
 
diff --git a/examples/oil-inspect.c b/examples/oil-inspect.c
new file mode 100644
index 0000000..3ebf22b
--- /dev/null
+++ b/examples/oil-inspect.c
@@ -0,0 +1,163 @@
+/* liboil - Library of Optimized Inner Loops
+ * Copyright (C) 2003  David A. Schleef <ds@schleef.org>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of version 2.1 of the GNU Lesser General
+ * Public License as published by the Free Software Foundation.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307 USA.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <liboil/liboil.h>
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <stdarg.h>
+
+int retval = EXIT_SUCCESS;
+static void
+printerr (char *format, ...)
+{
+  va_list var_args;
+
+  va_start (var_args, format);
+  vfprintf (stderr, format, var_args);
+  va_end (var_args);
+  retval = EXIT_FAILURE;
+}
+  
+static char *
+string_append (char *str, const char *append)
+{
+  char *ret;
+  if (str) {
+    size_t size = strlen (str) + 2 + strlen (append) + 1;
+    ret = malloc (size);
+    snprintf (ret, size, "%s, %s", str, append);
+    free (str);
+  } else {
+    ret = strdup (append);
+  }
+  return ret;
+}
+static char *
+oil_flags_to_string (unsigned int flags)
+{
+  char *ret = NULL;
+  
+  if (flags & OIL_IMPL_FLAG_REF) 
+    ret = string_append (ret, "REF");
+#ifdef HAVE_CPU_I386
+  if (flags & OIL_IMPL_REQUIRES_CMOV) 
+    ret = string_append (ret, "cmov");
+  if (flags & OIL_IMPL_REQUIRES_MMX) 
+    ret = string_append (ret, "mmx");
+  if (flags & OIL_IMPL_REQUIRES_SSE) 
+    ret = string_append (ret, "sse");
+  if (flags & OIL_IMPL_REQUIRES_MMXEXT) 
+    ret = string_append (ret, "mmxext");
+  if (flags & OIL_IMPL_REQUIRES_MMX) 
+    ret = string_append (ret, "sse2");
+  if (flags & OIL_IMPL_REQUIRES_3DNOW) 
+    ret = string_append (ret, "3dnow");
+  if (flags & OIL_IMPL_REQUIRES_3DNOWEXT) 
+    ret = string_append (ret, "3dnowext");
+#endif
+#ifdef HAVE_CPU_PPC
+  if (flags & OIL_IMPL_REQUIRES_ALTIVEC) 
+    ret = string_append (ret, "altivec");
+#endif
+  return ret;
+}
+
+static void
+oil_print_impl (OilFunctionImpl *impl, char* prefix)
+{
+  char *c;
+  printf ("%s%s\n", prefix, impl->name);
+  c = oil_flags_to_string (impl->flags);
+  if (c) {
+    printf ("%s  flags: %s\n", prefix, c);
+    free (c);
+  }
+  if (impl->prof) {
+    printf ("%s  profile: %u ticks\n", prefix, impl->prof);
+  }
+}
+
+static void
+oil_print_class (OilFunctionClass *klass, int verbose)
+{
+  OilFunctionImpl *impl;
+  
+  if (!verbose) {
+    printf ("%s\n", klass->name);
+    return;
+  }
+  printf ("%s (%s)\n", klass->name, klass->prototype);
+  if (klass->test_func) {
+    printf ("  test function is %p\n", klass->test_func);
+  } else {
+    printf ("  no test function\n");
+  }
+  printf ("  all implementations: \n");
+  for (impl = klass->first_impl; impl; impl = impl->next) {
+    if ((impl->flags & OIL_IMPL_FLAG_REF) &&
+	klass->reference_impl != impl) {
+      printerr ("warning: function %s is not reference implementation for class %s\n",
+	  impl->name, klass->name);
+    }
+    oil_print_impl (impl, "    ");
+    if (klass->chosen_impl == impl) {
+      printf ("      currently chosen\n");
+    }
+  }
+}
+
+static void
+oil_print_all (void)
+{
+  int i;
+
+  for (i = 0; i < oil_n_function_classes; i++){
+    OilFunctionClass *klass = oil_class_get_by_index (i);
+    oil_print_class (klass, 0);
+  }
+}
+
+int
+main (int argc, char *argv[])
+{
+  oil_init();
+  oil_optimize_all();
+
+  if (argc > 1) {
+    int i;
+    for (i = 1; i < argc; i++) {
+      OilFunctionClass *klass = oil_class_get (argv[i]);
+      if (!klass) {
+	printerr ("error: no class \"%s\" found\n", argv[i]);
+      } else {
+	oil_print_class (klass, 1);
+      }
+    }
+  } else {
+    oil_print_all ();
+  }
+
+  return retval;
+}
+