enlightenment/efl
enlightenment
/
efl
8
7
Fork 14
Code Issues 13 Pull Requests 3 Projects Releases Wiki Activity
efl/src/lib/eina/eina_benchmark.c

373 lines
8.3 KiB
C
Raw Blame History

/* 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;
}
/**
* @}
*/
Reference in New Issue View Git Blame Copy Permalink