1 files changed, 372 insertions, 0 deletions

diff --git a/libraries/eina/src/lib/eina_benchmark.c b/libraries/eina/src/lib/eina_benchmark.c
new file mode 100644
index 0000000..1ba2a00
--- /dev/null
+++ b/libraries/eina/src/lib/eina_benchmark.c
@@ -0,0 +1,372 @@
+/* EINA - EFL data type library
+ * Copyright (C) 2008 Cedric Bail
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * 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
+ * Lesser 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, see <http://www.gnu.org/licenses/>.
+ */
+
+#ifdef HAVE_CONFIG_H
+# include "config.h"
+#endif
+
+#ifdef HAVE_ALLOCA_H
+# include <alloca.h>
+#elif defined __GNUC__
+# define alloca __builtin_alloca
+#elif defined _AIX
+# define alloca __alloca
+#elif defined _MSC_VER
+# include <malloc.h>
+# define alloca _alloca
+#else
+# include <stddef.h>
+# ifdef  __cplusplus
+extern "C"
+# endif
+void *alloca (size_t);
+#endif
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+#ifdef HAVE_EVIL
+# include <Evil.h>
+#endif
+
+#include "eina_config.h"
+#include "eina_private.h"
+#include "eina_log.h"
+#include "eina_benchmark.h"
+#include "eina_inlist.h"
+#include "eina_list.h"
+#include "eina_counter.h"
+
+/*============================================================================*
+*                                  Local                                     *
+*============================================================================*/
+
+/**
+ * @cond LOCAL
+ */
+
+#define EINA_BENCHMARK_FILENAME_MASK "bench_%s_%s.gnuplot"
+#define EINA_BENCHMARK_DATA_MASK "bench_%s_%s.%s.data"
+
+typedef struct _Eina_Run Eina_Run;
+struct _Eina_Run
+{
+   EINA_INLIST;
+
+   Eina_Benchmark_Specimens cb;
+   const char *name;
+   int start;
+   int end;
+   int step;
+};
+
+struct _Eina_Benchmark
+{
+   const char *name;
+   const char *run;
+
+   Eina_Inlist *runs;
+   Eina_List *names;
+};
+
+static int _eina_benchmark_log_dom = -1;
+
+#ifdef ERR
+#undef ERR
+#endif
+#define ERR(...) EINA_LOG_DOM_ERR(_eina_benchmark_log_dom, __VA_ARGS__)
+
+#ifdef DBG
+#undef DBG
+#endif
+#define DBG(...) EINA_LOG_DOM_DBG(_eina_benchmark_log_dom, __VA_ARGS__)
+
+/**
+ * @endcond
+ */
+
+/*============================================================================*
+*                                 Global                                     *
+*============================================================================*/
+
+/**
+ * @internal
+ * @brief Initialize the benchmark module.
+ *
+ * @return #EINA_TRUE on success, #EINA_FALSE on failure.
+ *
+ * This function sets up the benchmark module of Eina. It is called by
+ * eina_init().
+ *
+ * @see eina_init()
+ */
+Eina_Bool
+eina_benchmark_init(void)
+{
+   _eina_benchmark_log_dom = eina_log_domain_register("eina_benchmark",
+                                                      EINA_LOG_COLOR_DEFAULT);
+   if (_eina_benchmark_log_dom < 0)
+     {
+        EINA_LOG_ERR("Could not register log domain: eina_benchmark");
+        return EINA_FALSE;
+     }
+
+   return EINA_TRUE;
+}
+
+/**
+ * @internal
+ * @brief Shut down the benchmark module.
+ *
+ * @return #EINA_TRUE on success, #EINA_FALSE on failure.
+ *
+ * This function shuts down the benchmark module set up by
+ * eina_benchmark_init(). It is called by eina_shutdown().
+ *
+ * @see eina_shutdown()
+ */
+Eina_Bool
+eina_benchmark_shutdown(void)
+{
+   eina_log_domain_unregister(_eina_benchmark_log_dom);
+   _eina_benchmark_log_dom = -1;
+   return EINA_TRUE;
+}
+
+/*============================================================================*
+*                                   API                                      *
+*============================================================================*/
+
+EAPI Eina_Benchmark *
+eina_benchmark_new(const char *name, const char *run)
+{
+   Eina_Benchmark *new;
+
+        eina_error_set(0);
+   new = calloc(1, sizeof (Eina_Benchmark));
+   if (!new)
+     {
+        eina_error_set(EINA_ERROR_OUT_OF_MEMORY);
+        return NULL;
+     }
+
+   new->name = name;
+   new->run = run;
+
+   return new;
+}
+
+EAPI void
+eina_benchmark_free(Eina_Benchmark *bench)
+{
+   Eina_Array *names;
+
+   if (!bench)
+      return;
+
+   while (bench->runs)
+     {
+        Eina_Run *run = (Eina_Run *)bench->runs;
+
+        bench->runs = eina_inlist_remove(bench->runs, bench->runs);
+        free(run);
+     }
+
+   EINA_LIST_FREE(bench->names, names)
+   {
+      Eina_Array_Iterator it;
+      char *tmp;
+      unsigned int i;
+
+      EINA_ARRAY_ITER_NEXT(names, i, tmp, it)
+        free(tmp);
+
+      eina_array_free(names);
+   }
+
+   free(bench);
+}
+
+EAPI Eina_Bool
+eina_benchmark_register(Eina_Benchmark *bench,
+                        const char *name,
+                        Eina_Benchmark_Specimens bench_cb,
+                        int count_start,
+                        int count_end,
+                        int count_step)
+{
+   Eina_Run *run;
+
+   if (!bench)
+      return EINA_FALSE;
+
+   if (count_step == 0)
+      return EINA_FALSE;
+
+        eina_error_set(0);
+   run = calloc(1, sizeof (Eina_Run));
+   if (!run)
+     {
+        eina_error_set(EINA_ERROR_OUT_OF_MEMORY);
+        return EINA_FALSE;
+     }
+
+   run->cb = bench_cb;
+   run->name = name;
+   run->start = count_start;
+   run->end = count_end;
+   run->step = count_step;
+
+   bench->runs = eina_inlist_append(bench->runs, EINA_INLIST_GET(run));
+
+   return EINA_TRUE;
+}
+
+EAPI Eina_Array *
+eina_benchmark_run(Eina_Benchmark *bench)
+{
+   FILE *main_script;
+   FILE *current_data;
+   Eina_Array *ea;
+   Eina_Run *run;
+   char *buffer;
+   Eina_Bool first = EINA_FALSE;
+   size_t length;
+
+   if (!bench)
+      return NULL;
+
+   length = strlen(EINA_BENCHMARK_FILENAME_MASK) + strlen(bench->name) + strlen(
+         bench->run);
+
+   buffer = alloca(sizeof (char) * length);
+   if (!buffer)
+      return NULL;
+
+   snprintf(buffer,
+            length,
+            EINA_BENCHMARK_FILENAME_MASK,
+            bench->name,
+            bench->run);
+
+   main_script = fopen(buffer, "w");
+   if (!main_script)
+      return NULL;
+
+   ea = eina_array_new(16);
+   if (!ea)
+     {
+        fclose(main_script);
+        return NULL;
+     }
+
+   eina_array_push(ea, strdup(buffer));
+
+   fprintf(
+      main_script,
+      "set   autoscale                        # scale axes automatically\n"
+      "unset log                              # remove any log-scaling\n"
+      "unset label                            # remove any previous labels\n"
+      "set xtic auto                          # set xtics automatically\n"
+      "set ytic auto                          # set ytics automatically\n"
+/*     "set logscale y\n" */
+      "set terminal png size 1024,768\n"
+      "set output \"output_%s_%s.png\"\n"
+      "set title \"%s %s\n"
+      "set xlabel \"tests\"\n"
+      "set ylabel \"time\"\n"
+      "plot ",
+      bench->name,
+      bench->run,
+      bench->name,
+      bench->run);
+
+   EINA_INLIST_FOREACH(bench->runs, run)
+   {
+      Eina_Counter *counter;
+      char *result;
+      size_t tmp;
+      int i;
+
+      tmp = strlen(EINA_BENCHMARK_DATA_MASK) + strlen(bench->name) + strlen(
+            bench->run) + strlen(run->name);
+      if (tmp > length)
+        {
+           buffer = alloca(sizeof (char) * tmp);
+           length = tmp;
+        }
+
+      snprintf(buffer,
+               length,
+               EINA_BENCHMARK_DATA_MASK,
+               bench->name,
+               bench->run,
+               run->name);
+
+      current_data = fopen(buffer, "w");
+      if (!current_data)
+         continue;
+
+      eina_array_push(ea, strdup(buffer));
+
+      counter = eina_counter_new(run->name);
+
+      for (i = run->start; i < run->end; i += run->step)
+        {
+           fprintf(stderr, "Run %s: %i\n", run->name, i);
+           eina_counter_start(counter);
+
+           run->cb(i);
+
+           eina_counter_stop(counter, i);
+        }
+
+      result = eina_counter_dump(counter);
+      if (result)
+        {
+           fprintf(current_data, "%s", result);
+           free(result);
+        }
+
+      eina_counter_free(counter);
+
+      fclose(current_data);
+
+      if (first == EINA_FALSE)
+         first = EINA_TRUE;
+      else
+         fprintf(main_script, ", \\\n");
+
+         fprintf(main_script,
+              "\"%s\" using 1:2 title \'%s\' with line",
+              buffer, run->name);
+   }
+
+         fprintf(main_script, "\n");
+
+         fclose(main_script);
+
+   bench->names = eina_list_append(bench->names, ea);
+
+   return ea;
+}
+
+/**
+ * @}
+ */