1 files changed, 362 insertions, 0 deletions

diff --git a/libraries/eina/src/lib/eina_counter.c b/libraries/eina/src/lib/eina_counter.c
new file mode 100644
index 0000000..6ca9417
--- /dev/null
+++ b/libraries/eina/src/lib/eina_counter.c
@@ -0,0 +1,362 @@
+/* EINA - EFL data type library
+ * Copyright (C) 2008 Cedric Bail, Vincent Torri
+ *
+ * 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
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <stdarg.h>
+#ifndef _WIN32
+# include <time.h>
+# include <sys/time.h>
+#else
+# define WIN32_LEAN_AND_MEAN
+# include <windows.h>
+# undef WIN32_LEAN_AND_MEAN
+#endif /* _WIN2 */
+
+#include "eina_config.h"
+#include "eina_private.h"
+#include "eina_inlist.h"
+#include "eina_error.h"
+
+/* undefs EINA_ARG_NONULL() so NULL checks are not compiled out! */
+#include "eina_safety_checks.h"
+#include "eina_counter.h"
+
+#ifdef HAVE_ESCAPE
+# include <Escape.h>
+#endif
+
+/*============================================================================*
+ *                                  Local                                     *
+ *============================================================================*/
+
+/**
+ * @cond LOCAL
+ */
+
+#ifndef _WIN32
+typedef struct timespec Eina_Nano_Time;
+#else
+typedef LARGE_INTEGER Eina_Nano_Time;
+#endif
+
+typedef struct _Eina_Clock Eina_Clock;
+
+struct _Eina_Counter
+{
+   EINA_INLIST;
+
+   Eina_Inlist *clocks;
+   const char *name;
+};
+
+struct _Eina_Clock
+{
+   EINA_INLIST;
+
+   Eina_Nano_Time start;
+   Eina_Nano_Time end;
+   int specimen;
+
+   Eina_Bool valid;
+};
+
+#ifndef _WIN32
+static inline int
+_eina_counter_time_get(Eina_Nano_Time *tp)
+{
+# if defined(CLOCK_PROCESS_CPUTIME_ID)
+   return clock_gettime(CLOCK_PROCESS_CPUTIME_ID, tp);
+# elif defined(CLOCK_PROF)
+   return clock_gettime(CLOCK_PROF, tp);
+# elif defined(CLOCK_REALTIME)
+   return clock_gettime(CLOCK_REALTIME, tp);
+# else
+   struct timeval tv;
+
+   if (gettimeofday(&tv, NULL))
+     return -1;
+
+   tp->tv_sec = tv.tv_sec;
+   tp->tv_nsec = tv.tv_usec * 1000L;
+
+   return 0;
+# endif
+}
+#else
+static const char EINA_ERROR_COUNTER_WINDOWS_STR[] =
+   "Change your OS, you moron !";
+static int EINA_ERROR_COUNTER_WINDOWS = 0;
+static LARGE_INTEGER _eina_counter_frequency;
+
+static inline int
+_eina_counter_time_get(Eina_Nano_Time *tp)
+{
+   return QueryPerformanceCounter(tp);
+}
+#endif /* _WIN2 */
+
+static char *
+_eina_counter_asiprintf(char *base, int *position, const char *format, ...)
+{
+   char *tmp, *result;
+   int size = 32;
+   int n;
+   va_list ap;
+
+   tmp = realloc(base, sizeof (char) * (*position + size));
+   if (!tmp)
+      return base;
+
+   result = tmp;
+
+   while (1)
+     {
+        va_start(ap, format);
+        n = vsnprintf(result + *position, size, format, ap);
+        va_end(ap);
+
+        if (n > -1 && n < size)
+          {
+             /* If we always have glibc > 2.2, we could just return *position += n. */
+             *position += strlen(result + *position);
+             return result;
+          }
+
+        if (n > -1)
+           size = n + 1;
+        else
+           size <<= 1;
+
+        tmp = realloc(result, sizeof (char) * (*position + size));
+        if (!tmp)
+           return result;
+
+        result = tmp;
+     }
+}
+
+/**
+ * @endcond
+ */
+
+/*============================================================================*
+ *                                 Global                                     *
+ *============================================================================*/
+
+/**
+ * @internal
+ * @brief Initialize the eina counter internal structure.
+ *
+ * @return #EINA_TRUE on success, #EINA_FALSE on failure.
+ *
+ * This function shuts down the counter module set up by
+ * eina_counter_init(). It is called by eina_init().
+ *
+ * This function sets up the error module of Eina and only on Windows,
+ * it initializes the high precision timer. It also registers, only on
+ * Windows, the error #EINA_ERROR_COUNTER_WINDOWS. It is also called
+ * by eina_init(). It returns 0 on failure, otherwise it returns the
+ * number of times it has already been called.
+ *
+ * @see eina_init()
+ */
+Eina_Bool
+eina_counter_init(void)
+{
+#ifdef _WIN32
+   EINA_ERROR_COUNTER_WINDOWS = eina_error_msg_static_register(
+         EINA_ERROR_COUNTER_WINDOWS_STR);
+   if (!QueryPerformanceFrequency(&_eina_counter_frequency))
+     {
+        eina_error_set(EINA_ERROR_COUNTER_WINDOWS);
+        return EINA_FALSE;
+     }
+
+#endif /* _WIN2 */
+   return EINA_TRUE;
+}
+
+/**
+ * @internal
+ * @brief Shut down the counter module.
+ *
+ * @return #EINA_TRUE on success, #EINA_FALSE on failure.
+ *
+ * This function shuts down the counter module set up by
+ * eina_counter_init(). It is called by eina_shutdown().
+ *
+ * @see eina_shutdown()
+ */
+Eina_Bool
+eina_counter_shutdown(void)
+{
+   return EINA_TRUE;
+}
+
+/*============================================================================*
+ *                                   API                                      *
+ *============================================================================*/
+
+EAPI Eina_Counter *
+eina_counter_new(const char *name)
+{
+   Eina_Counter *counter;
+   size_t length;
+
+   EINA_SAFETY_ON_NULL_RETURN_VAL(name, NULL);
+
+   length = strlen(name) + 1;
+
+        eina_error_set(0);
+   counter = calloc(1, sizeof (Eina_Counter) + length);
+   if (!counter)
+     {
+        eina_error_set(EINA_ERROR_OUT_OF_MEMORY);
+        return NULL;
+     }
+
+   counter->name = (char *)(counter + 1);
+   memcpy((char *)counter->name, name, length);
+
+   return counter;
+}
+
+EAPI void
+eina_counter_free(Eina_Counter *counter)
+{
+   EINA_SAFETY_ON_NULL_RETURN(counter);
+
+   while (counter->clocks)
+     {
+        Eina_Clock *clk = (Eina_Clock *)counter->clocks;
+
+        counter->clocks = eina_inlist_remove(counter->clocks, counter->clocks);
+        free(clk);
+     }
+
+        free(counter);
+}
+
+EAPI void
+eina_counter_start(Eina_Counter *counter)
+{
+   Eina_Clock *clk;
+   Eina_Nano_Time tp;
+
+   EINA_SAFETY_ON_NULL_RETURN(counter);
+   if (_eina_counter_time_get(&tp) != 0)
+      return;
+
+        eina_error_set(0);
+   clk = calloc(1, sizeof (Eina_Clock));
+   if (!clk)
+     {
+        eina_error_set(EINA_ERROR_OUT_OF_MEMORY);
+        return;
+     }
+
+   counter->clocks = eina_inlist_prepend(counter->clocks, EINA_INLIST_GET(clk));
+
+   clk->valid = EINA_FALSE;
+   clk->start = tp;
+}
+
+EAPI void
+eina_counter_stop(Eina_Counter *counter, int specimen)
+{
+   Eina_Clock *clk;
+   Eina_Nano_Time tp;
+
+   EINA_SAFETY_ON_NULL_RETURN(counter);
+   if (_eina_counter_time_get(&tp) != 0)
+      return;
+
+   clk = (Eina_Clock *)counter->clocks;
+
+   if (!clk || clk->valid == EINA_TRUE)
+      return;
+
+   clk->end = tp;
+   clk->specimen = specimen;
+   clk->valid = EINA_TRUE;
+}
+
+EAPI char *
+eina_counter_dump(Eina_Counter *counter)
+{
+   Eina_Clock *clk;
+   char *result = NULL;
+   int position = 0;
+
+   EINA_SAFETY_ON_NULL_RETURN_VAL(counter, NULL);
+
+   result = _eina_counter_asiprintf(
+         result,
+         &position,
+         "# specimen\texperiment time\tstarting time\tending time\n");
+   if (!result)
+      return NULL;
+
+   EINA_INLIST_REVERSE_FOREACH(counter->clocks, clk)
+   {
+      long int start;
+      long int end;
+      long int diff;
+
+      if (clk->valid == EINA_FALSE)
+         continue;
+
+#ifndef _WIN32
+      start = clk->start.tv_sec * 1000000000 + clk->start.tv_nsec;
+      end = clk->end.tv_sec * 1000000000 + clk->end.tv_nsec;
+      diff =
+         (clk->end.tv_sec -
+          clk->start.tv_sec) * 1000000000 + clk->end.tv_nsec -
+         clk->start.tv_nsec;
+#else
+      start =
+         (long int)(((long long int)clk->start.QuadPart *
+                     1000000000ll) /
+                    (long long int)_eina_counter_frequency.QuadPart);
+      end =
+         (long int)(((long long int)clk->end.QuadPart *
+                     1000000000LL) /
+                    (long long int)_eina_counter_frequency.QuadPart);
+      diff =
+         (long int)(((long long int)(clk->end.QuadPart -
+                                     clk->start.QuadPart) *
+                     1000000000LL) /
+                    (long long int)_eina_counter_frequency.QuadPart);
+#endif /* _WIN2 */
+
+      result = _eina_counter_asiprintf(result, &position,
+                                       "%i\t%li\t%li\t%li\n",
+                                       clk->specimen,
+                                       diff,
+                                       start,
+                                       end);
+   }
+
+   return result;
+}