[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[GNUnet-SVN] r32250 - gnunet/src/ats-tests
From: |
gnunet |
Subject: |
[GNUnet-SVN] r32250 - gnunet/src/ats-tests |
Date: |
Fri, 7 Feb 2014 14:16:05 +0100 |
Author: wachs
Date: 2014-02-07 14:16:05 +0100 (Fri, 07 Feb 2014)
New Revision: 32250
Added:
gnunet/src/ats-tests/gnunet-solver-eval.c
Modified:
gnunet/src/ats-tests/Makefile.am
gnunet/src/ats-tests/ats-testing-log.c
gnunet/src/ats-tests/template_perf_ats.conf
Log:
solver based evaluation
Modified: gnunet/src/ats-tests/Makefile.am
===================================================================
--- gnunet/src/ats-tests/Makefile.am 2014-02-07 12:00:02 UTC (rev 32249)
+++ gnunet/src/ats-tests/Makefile.am 2014-02-07 13:16:05 UTC (rev 32250)
@@ -50,7 +50,7 @@
endif
noinst_PROGRAMS = \
- gnunet-ats-sim
+ gnunet-ats-sim gnunet-solver-eval
libgnunetatstesting_la_SOURCES = \
ats-testing.c ats-testing-log.c ats-testing-traffic.c \
@@ -80,6 +80,17 @@
$(top_builddir)/src/util/libgnunetutil.la
+gnunet_solver_eval_SOURCES = \
+ gnunet-solver-eval.c
+gnunet_solver_eval_LDADD = \
+ $(top_builddir)/src/util/libgnunetutil.la \
+ $(top_builddir)/src/ats/libgnunetats.la \
+ $(top_builddir)/src/core/libgnunetcore.la \
+ $(top_builddir)/src/transport/libgnunettransport.la
+gnunet_solver_eval_DEPENDENCIES = \
+ $(top_builddir)/src/util/libgnunetutil.la
+
+
perf_ats_proportional_core_none_SOURCES = \
perf_ats.c
perf_ats_proportional_core_none_LDADD = \
Modified: gnunet/src/ats-tests/ats-testing-log.c
===================================================================
--- gnunet/src/ats-tests/ats-testing-log.c 2014-02-07 12:00:02 UTC (rev
32249)
+++ gnunet/src/ats-tests/ats-testing-log.c 2014-02-07 13:16:05 UTC (rev
32250)
@@ -443,16 +443,10 @@
timestamp = GNUNET_TIME_absolute_get();
tmp_exp_name = experiment_name;
- if (NULL != strchr (experiment_name, '/'));
- {
- tmp_exp_name = strchr (experiment_name, '/');
- tmp_exp_name++;
- }
-
for (c_m = 0; c_m < l->num_masters; c_m++)
{
GNUNET_asprintf (&filename_master, "%s_%llu_master%u_%s",
- tmp_exp_name, timestamp.abs_value_us, c_m, l->name);
+ experiment_name, timestamp.abs_value_us, c_m, l->name);
fprintf (stderr, "Writing data for master %u to file `%s'\n",
c_m,filename_master);
Added: gnunet/src/ats-tests/gnunet-solver-eval.c
===================================================================
--- gnunet/src/ats-tests/gnunet-solver-eval.c (rev 0)
+++ gnunet/src/ats-tests/gnunet-solver-eval.c 2014-02-07 13:16:05 UTC (rev
32250)
@@ -0,0 +1,913 @@
+/*
+ This file is part of GNUnet.
+ (C) 2010-2013 Christian Grothoff (and other contributing authors)
+
+ GNUnet is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published
+ by the Free Software Foundation; either version 3, or (at your
+ option) any later version.
+
+ GNUnet 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
+ General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with GNUnet; see the file COPYING. If not, write to the
+ Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA.
+ */
+/**
+ * @file ats-tests/ats-testing-experiment.c
+ * @brief ats benchmark: controlled experiment execution
+ * @author Christian Grothoff
+ * @author Matthias Wachs
+ */
+#include "platform.h"
+#include "gnunet_util_lib.h"
+#include "gnunet_ats_plugin.h"
+#include "gnunet_ats_service.h"
+#include "ats-testing.h"
+
+
+/**
+ * Experiments
+ */
+
+const char *
+print_op (enum OperationType op)
+{
+ switch (op) {
+ case START_SEND:
+ return "START_SEND";
+ case STOP_SEND:
+ return "STOP_SEND";
+ case START_PREFERENCE:
+ return "START_PREFERENCE";
+ case STOP_PREFERENCE:
+ return "STOP_PREFERENCE";
+ default:
+ break;
+ }
+ return "";
+}
+
+
+static struct Experiment *
+create_experiment ()
+{
+ struct Experiment *e;
+ e = GNUNET_new (struct Experiment);
+ e->name = NULL;
+ e->num_masters = 0;
+ e->num_slaves = 0;
+ e->start = NULL;
+ e->total_duration = GNUNET_TIME_UNIT_ZERO;
+ return e;
+}
+
+static void
+free_experiment (struct Experiment *e)
+{
+ struct Episode *cur;
+ struct Episode *next;
+ struct GNUNET_ATS_TEST_Operation *cur_o;
+ struct GNUNET_ATS_TEST_Operation *next_o;
+
+ next = e->start;
+ for (cur = next; NULL != cur; cur = next)
+ {
+ next = cur->next;
+
+ next_o = cur->head;
+ for (cur_o = next_o; NULL != cur_o; cur_o = next_o)
+ {
+ next_o = cur_o->next;
+ GNUNET_free (cur_o);
+ }
+ GNUNET_free (cur);
+ }
+
+ GNUNET_free_non_null (e->name);
+ GNUNET_free_non_null (e->cfg_file);
+ GNUNET_free (e);
+}
+
+static int
+load_episode (struct Experiment *e, struct Episode *cur,
+ struct GNUNET_CONFIGURATION_Handle *cfg)
+{
+ struct GNUNET_ATS_TEST_Operation *o;
+ char *sec_name;
+ char *op_name;
+ char *op;
+ char *type;
+ char *pref;
+ int op_counter = 0;
+ fprintf (stderr, "Parsing episode %u\n",cur->id);
+ GNUNET_asprintf(&sec_name, "episode-%u", cur->id);
+
+ while (1)
+ {
+ /* Load operation */
+ GNUNET_asprintf(&op_name, "op-%u-operation", op_counter);
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string(cfg,
+ sec_name, op_name, &op))
+ {
+ GNUNET_free (op_name);
+ break;
+ }
+ o = GNUNET_new (struct GNUNET_ATS_TEST_Operation);
+ /* operations = set_rate, start_send, stop_send, set_preference */
+ if (0 == strcmp (op, "start_send"))
+ {
+ o->type = START_SEND;
+ }
+ else if (0 == strcmp (op, "stop_send"))
+ {
+ o->type = STOP_SEND;
+ }
+ else if (0 == strcmp (op, "start_preference"))
+ {
+ o->type = START_PREFERENCE;
+ }
+ else if (0 == strcmp (op, "stop_preference"))
+ {
+ o->type = STOP_PREFERENCE;
+ }
+ else
+ {
+ fprintf (stderr, "Invalid operation %u `%s' in episode %u\n",
+ op_counter, op, cur->id);
+ GNUNET_free (op);
+ GNUNET_free (op_name);
+ return GNUNET_SYSERR;
+ }
+ GNUNET_free (op_name);
+
+ /* Get source */
+ GNUNET_asprintf(&op_name, "op-%u-src", op_counter);
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
+ sec_name, op_name, &o->src_id))
+ {
+ fprintf (stderr, "Missing src in operation %u `%s' in episode %u\n",
+ op_counter, op, cur->id);
+ GNUNET_free (op);
+ GNUNET_free (op_name);
+ return GNUNET_SYSERR;
+ }
+ if (o->src_id > (e->num_masters - 1))
+ {
+ fprintf (stderr, "Invalid src %llu in operation %u `%s' in episode %u\n",
+ o->src_id, op_counter, op, cur->id);
+ GNUNET_free (op);
+ GNUNET_free (op_name);
+ return GNUNET_SYSERR;
+ }
+ GNUNET_free (op_name);
+
+ /* Get destination */
+ GNUNET_asprintf(&op_name, "op-%u-dest", op_counter);
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
+ sec_name, op_name, &o->dest_id))
+ {
+ fprintf (stderr, "Missing src in operation %u `%s' in episode %u\n",
+ op_counter, op, cur->id);
+ GNUNET_free (op);
+ GNUNET_free (op_name);
+ return GNUNET_SYSERR;
+ }
+ if (o->dest_id > (e->num_slaves - 1))
+ {
+ fprintf (stderr, "Invalid destination %llu in operation %u `%s' in
episode %u\n",
+ o->dest_id, op_counter, op, cur->id);
+ GNUNET_free (op);
+ GNUNET_free (op_name);
+ return GNUNET_SYSERR;
+ }
+ GNUNET_free (op_name);
+
+ GNUNET_asprintf(&op_name, "op-%u-type", op_counter);
+ if ( (GNUNET_SYSERR != GNUNET_CONFIGURATION_get_value_string(cfg,
+ sec_name, op_name, &type)) &&
+ ((STOP_SEND != o->type) || (STOP_PREFERENCE != o->type)))
+ {
+ /* Load arguments for set_rate, start_send, set_preference */
+ if (0 == strcmp (type, "constant"))
+ {
+ o->tg_type = GNUNET_ATS_TEST_TG_CONSTANT;
+ }
+ else if (0 == strcmp (type, "linear"))
+ {
+ o->tg_type = GNUNET_ATS_TEST_TG_LINEAR;
+ }
+ else if (0 == strcmp (type, "sinus"))
+ {
+ o->tg_type = GNUNET_ATS_TEST_TG_SINUS;
+ }
+ else if (0 == strcmp (type, "random"))
+ {
+ o->tg_type = GNUNET_ATS_TEST_TG_RANDOM;
+ }
+ else
+ {
+ fprintf (stderr, "Invalid type %u `%s' in episode %u\n",
+ op_counter, op, cur->id);
+ GNUNET_free (type);
+ GNUNET_free (op);
+ GNUNET_free (op_name);
+ return GNUNET_SYSERR;
+ }
+ GNUNET_free (op_name);
+
+ /* Get base rate */
+ GNUNET_asprintf(&op_name, "op-%u-base-rate", op_counter);
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
+ sec_name, op_name, &o->base_rate))
+ {
+ fprintf (stderr, "Missing base rate in operation %u `%s' in episode
%u\n",
+ op_counter, op, cur->id);
+ GNUNET_free (type);
+ GNUNET_free (op);
+ GNUNET_free (op_name);
+ return GNUNET_SYSERR;
+ }
+ GNUNET_free (op_name);
+
+ /* Get max rate */
+ GNUNET_asprintf(&op_name, "op-%u-max-rate", op_counter);
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
+ sec_name, op_name, &o->max_rate))
+ {
+ if ((GNUNET_ATS_TEST_TG_LINEAR == o->tg_type) ||
+ (GNUNET_ATS_TEST_TG_RANDOM == o->tg_type) ||
+ (GNUNET_ATS_TEST_TG_SINUS == o->tg_type))
+ {
+ fprintf (stderr, "Missing max rate in operation %u `%s' in episode
%u\n",
+ op_counter, op, cur->id);
+ GNUNET_free (type);
+ GNUNET_free (op_name);
+ GNUNET_free (op);
+ return GNUNET_SYSERR;
+ }
+ }
+ GNUNET_free (op_name);
+
+ /* Get period */
+ GNUNET_asprintf(&op_name, "op-%u-period", op_counter);
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time (cfg,
+ sec_name, op_name, &o->period))
+ {
+ o->period = cur->duration;
+ }
+ GNUNET_free (op_name);
+
+ if (START_PREFERENCE == o->type)
+ {
+ /* Get frequency */
+ GNUNET_asprintf(&op_name, "op-%u-frequency", op_counter);
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time (cfg,
+ sec_name, op_name, &o->frequency))
+ {
+ fprintf (stderr, "Missing frequency in operation %u `%s' in
episode %u\n",
+ op_counter, op, cur->id);
+ GNUNET_free (type);
+ GNUNET_free (op_name);
+ GNUNET_free (op);
+ return GNUNET_SYSERR;
+ }
+ GNUNET_free (op_name);
+
+ /* Get preference */
+ GNUNET_asprintf(&op_name, "op-%u-pref", op_counter);
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (cfg,
+ sec_name, op_name, &pref))
+ {
+ fprintf (stderr, "Missing preference in operation %u `%s' in
episode %u\n",
+ op_counter, op, cur->id);
+ GNUNET_free (type);
+ GNUNET_free (op_name);
+ GNUNET_free (op);
+ GNUNET_free_non_null (pref);
+ return GNUNET_SYSERR;
+ }
+
+ if (0 == strcmp(pref, "bandwidth"))
+ o->pref_type = GNUNET_ATS_PREFERENCE_BANDWIDTH;
+ else if (0 == strcmp(pref, "latency"))
+ o->pref_type = GNUNET_ATS_PREFERENCE_LATENCY;
+ else
+ {
+ fprintf (stderr, "Invalid preference in operation %u `%s' in
episode %u\n",
+ op_counter, op, cur->id);
+ GNUNET_free (type);
+ GNUNET_free (op_name);
+ GNUNET_free (op);
+ GNUNET_free (pref);
+ GNUNET_free_non_null (pref);
+ return GNUNET_SYSERR;
+ }
+ GNUNET_free (pref);
+ GNUNET_free (op_name);
+ }
+ }
+
+ /* Safety checks */
+ if ((GNUNET_ATS_TEST_TG_LINEAR == o->tg_type) ||
+ (GNUNET_ATS_TEST_TG_SINUS == o->tg_type))
+ {
+ if ((o->max_rate - o->base_rate) > o->base_rate)
+ {
+ /* This will cause an underflow */
+ GNUNET_break (0);
+ }
+ fprintf (stderr, "Selected max rate and base rate cannot be used for
desired traffic form!\n");
+ }
+
+ if ((START_SEND == o->type) || (START_PREFERENCE == o->type))
+ fprintf (stderr, "Found operation %u in episode %u: %s [%llu]->[%llu] ==
%s, %llu -> %llu in %s\n",
+ op_counter, cur->id, print_op (o->type), o->src_id,
+ o->dest_id, (NULL != type) ? type : "",
+ o->base_rate, o->max_rate,
+ GNUNET_STRINGS_relative_time_to_string (o->period, GNUNET_YES));
+ else
+ fprintf (stderr, "Found operation %u in episode %u: %s [%llu]->[%llu]\n",
+ op_counter, cur->id, print_op (o->type), o->src_id, o->dest_id);
+
+ GNUNET_free_non_null (type);
+ GNUNET_free (op);
+
+ GNUNET_CONTAINER_DLL_insert (cur->head,cur->tail, o);
+ op_counter++;
+ }
+ GNUNET_free (sec_name);
+
+ return GNUNET_OK;
+}
+
+static int
+load_episodes (struct Experiment *e, struct GNUNET_CONFIGURATION_Handle *cfg)
+{
+ int e_counter = 0;
+ char *sec_name;
+ struct GNUNET_TIME_Relative e_duration;
+ struct Episode *cur;
+ struct Episode *last;
+
+ e_counter = 0;
+ last = NULL;
+ while (1)
+ {
+ GNUNET_asprintf(&sec_name, "episode-%u", e_counter);
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time(cfg,
+ sec_name, "duration", &e_duration))
+ {
+ GNUNET_free (sec_name);
+ break;
+ }
+
+ cur = GNUNET_new (struct Episode);
+ cur->duration = e_duration;
+ cur->id = e_counter;
+
+ if (GNUNET_OK != load_episode (e, cur, cfg))
+ {
+ GNUNET_free (sec_name);
+ GNUNET_free (cur);
+ return GNUNET_SYSERR;
+ }
+
+ fprintf (stderr, "Found episode %u with duration %s \n",
+ e_counter,
+ GNUNET_STRINGS_relative_time_to_string(cur->duration, GNUNET_YES));
+
+ /* Update experiment */
+ e->num_episodes ++;
+ e->total_duration = GNUNET_TIME_relative_add(e->total_duration,
cur->duration);
+ /* Put in linked list */
+ if (NULL == last)
+ e->start = cur;
+ else
+ last->next = cur;
+
+ GNUNET_free (sec_name);
+ e_counter ++;
+ last = cur;
+ }
+ return e_counter;
+}
+
+static void
+timeout_experiment (void *cls, const struct GNUNET_SCHEDULER_TaskContext* tc)
+{
+ struct Experiment *e = cls;
+ e->experiment_timeout_task = GNUNET_SCHEDULER_NO_TASK;
+ fprintf (stderr, "Experiment timeout!\n");
+
+ if (GNUNET_SCHEDULER_NO_TASK != e->episode_timeout_task)
+ {
+ GNUNET_SCHEDULER_cancel (e->episode_timeout_task);
+ e->episode_timeout_task = GNUNET_SCHEDULER_NO_TASK;
+ }
+
+ e->e_done_cb (e, GNUNET_TIME_absolute_get_duration(e->start_time),
+ GNUNET_SYSERR);
+}
+
+static void
+enforce_start_send (struct GNUNET_ATS_TEST_Operation *op)
+{
+ /*
+ struct BenchmarkPeer *peer;
+ struct BenchmarkPartner *partner;
+
+ peer = GNUNET_ATS_TEST_get_peer (op->src_id);
+ if (NULL == peer)
+ {
+ GNUNET_break (0);
+ return;
+ }
+
+ partner = GNUNET_ATS_TEST_get_partner (op->src_id, op->dest_id);
+ if (NULL == partner)
+ {
+ GNUNET_break (0);
+ return;
+ }
+
+ fprintf (stderr, "Found master %llu slave %llu\n",op->src_id, op->dest_id);
+
+ if (NULL != partner->tg)
+ {
+ fprintf (stderr, "Stopping traffic between master %llu slave
%llu\n",op->src_id, op->dest_id);
+ GNUNET_ATS_TEST_generate_traffic_stop(partner->tg);
+ partner->tg = NULL;
+ }
+
+ partner->tg = GNUNET_ATS_TEST_generate_traffic_start(peer, partner,
+ op->tg_type, op->base_rate, op->max_rate, op->period,
+ GNUNET_TIME_UNIT_FOREVER_REL);
+ */
+}
+
+static void
+enforce_stop_send (struct GNUNET_ATS_TEST_Operation *op)
+{
+ /*
+ struct BenchmarkPartner *p;
+ p = GNUNET_ATS_TEST_get_partner (op->src_id, op->dest_id);
+ if (NULL == p)
+ {
+ GNUNET_break (0);
+ return;
+ }
+
+ fprintf (stderr, "Found master %llu slave %llu\n",op->src_id, op->dest_id);
+
+ if (NULL != p->tg)
+ {
+ fprintf (stderr, "Stopping traffic between master %llu slave %llu\n",
+ op->src_id, op->dest_id);
+ GNUNET_ATS_TEST_generate_traffic_stop(p->tg);
+ p->tg = NULL;
+ }
+ */
+}
+
+
+static void
+enforce_start_preference (struct GNUNET_ATS_TEST_Operation *op)
+{
+ /*
+ struct BenchmarkPeer *peer;
+ struct BenchmarkPartner *partner;
+
+ peer = GNUNET_ATS_TEST_get_peer (op->src_id);
+ if (NULL == peer)
+ {
+ GNUNET_break (0);
+ return;
+ }
+
+ partner = GNUNET_ATS_TEST_get_partner (op->src_id, op->dest_id);
+ if (NULL == partner)
+ {
+ GNUNET_break (0);
+ return;
+ }
+
+ fprintf (stderr, "Found master %llu slave %llu\n",op->src_id, op->dest_id);
+
+ if (NULL != partner->pg)
+ {
+ fprintf (stderr, "Stopping traffic between master %llu slave %llu\n",
+ op->src_id, op->dest_id);
+ GNUNET_ATS_TEST_generate_preferences_stop(partner->pg);
+ partner->pg = NULL;
+ }
+
+ partner->pg = GNUNET_ATS_TEST_generate_preferences_start(peer, partner,
+ op->tg_type, op->base_rate, op->max_rate, op->period, op->frequency,
+ op->pref_type);
+ */
+}
+
+static void
+enforce_stop_preference (struct GNUNET_ATS_TEST_Operation *op)
+{
+ /*
+ struct BenchmarkPartner *p;
+ p = GNUNET_ATS_TEST_get_partner (op->src_id, op->dest_id);
+ if (NULL == p)
+ {
+ GNUNET_break (0);
+ return;
+ }
+
+ fprintf (stderr, "Found master %llu slave %llu\n",op->src_id, op->dest_id);
+
+ if (NULL != p->pg)
+ {
+ fprintf (stderr, "Stopping preference between master %llu slave %llu\n",
+ op->src_id, op->dest_id);
+ GNUNET_ATS_TEST_generate_preferences_stop (p->pg);
+ p->pg = NULL;
+ }
+ */
+}
+
+static void enforce_episode (struct Episode *ep)
+{
+ struct GNUNET_ATS_TEST_Operation *cur;
+ for (cur = ep->head; NULL != cur; cur = cur->next)
+ {
+
+ fprintf (stderr, "Enforcing operation: %s [%llu]->[%llu] == %llu\n",
+ print_op (cur->type), cur->src_id, cur->dest_id, cur->base_rate);
+ switch (cur->type) {
+ case START_SEND:
+ enforce_start_send (cur);
+ break;
+ case STOP_SEND:
+ enforce_stop_send (cur);
+ break;
+ case START_PREFERENCE:
+ enforce_start_preference (cur);
+ break;
+ case STOP_PREFERENCE:
+ enforce_stop_preference (cur);
+ break;
+ default:
+ break;
+ }
+ }
+}
+
+static void
+timeout_episode (void *cls, const struct GNUNET_SCHEDULER_TaskContext* tc)
+{
+ struct Experiment *e = cls;
+ e->episode_timeout_task = GNUNET_SCHEDULER_NO_TASK;
+ if (NULL != e->ep_done_cb)
+ e->ep_done_cb (e->cur);
+
+ /* Scheduling next */
+ e->cur = e->cur->next;
+ if (NULL == e->cur)
+ {
+ /* done */
+ fprintf (stderr, "Last episode done!\n");
+ if (GNUNET_SCHEDULER_NO_TASK != e->experiment_timeout_task)
+ {
+ GNUNET_SCHEDULER_cancel (e->experiment_timeout_task);
+ e->experiment_timeout_task = GNUNET_SCHEDULER_NO_TASK;
+ }
+ e->e_done_cb (e, GNUNET_TIME_absolute_get_duration(e->start_time),
GNUNET_OK);
+ return;
+ }
+
+ fprintf (stderr, "Running episode %u with timeout %s\n",
+ e->cur->id,
+ GNUNET_STRINGS_relative_time_to_string(e->cur->duration, GNUNET_YES));
+ enforce_episode(e->cur);
+
+ e->episode_timeout_task = GNUNET_SCHEDULER_add_delayed (e->cur->duration,
+ &timeout_episode, e);
+}
+
+
+void
+GNUNET_ATS_solvers_experimentation_run (struct Experiment *e,
+ GNUNET_ATS_TESTING_EpisodeDoneCallback ep_done_cb,
+ GNUNET_ATS_TESTING_ExperimentDoneCallback e_done_cb)
+{
+ fprintf (stderr, "Running experiment `%s' with timeout %s\n", e->name,
+ GNUNET_STRINGS_relative_time_to_string(e->max_duration, GNUNET_YES));
+ e->e_done_cb = e_done_cb;
+ e->ep_done_cb = ep_done_cb;
+ e->start_time = GNUNET_TIME_absolute_get();
+
+ /* Start total time out */
+ e->experiment_timeout_task = GNUNET_SCHEDULER_add_delayed (e->max_duration,
+ &timeout_experiment, e);
+
+ /* Start */
+ e->cur = e->start;
+ fprintf (stderr, "Running episode %u with timeout %s\n",
+ e->cur->id,
+ GNUNET_STRINGS_relative_time_to_string(e->cur->duration, GNUNET_YES));
+ enforce_episode(e->cur);
+ e->episode_timeout_task = GNUNET_SCHEDULER_add_delayed (e->cur->duration,
+ &timeout_episode, e);
+
+
+}
+
+
+struct Experiment *
+GNUNET_ATS_solvers_experimentation_load (char *filename)
+{
+ struct Experiment *e;
+ struct GNUNET_CONFIGURATION_Handle *cfg;
+ e = NULL;
+
+ cfg = GNUNET_CONFIGURATION_create();
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_load (cfg, filename))
+ {
+ fprintf (stderr, "Failed to load `%s'\n", filename);
+ GNUNET_CONFIGURATION_destroy (cfg);
+ return NULL;
+ }
+
+ e = create_experiment ();
+
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string(cfg, "experiment",
+ "name", &e->name))
+ {
+ fprintf (stderr, "Invalid %s", "name");
+ free_experiment (e);
+ return NULL;
+ }
+ else
+ fprintf (stderr, "Experiment name: `%s'\n", e->name);
+
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_filename (cfg,
"experiment",
+ "cfg_file", &e->cfg_file))
+ {
+ fprintf (stderr, "Invalid %s", "cfg_file");
+ free_experiment (e);
+ return NULL;
+ }
+ else
+ fprintf (stderr, "Experiment name: `%s'\n", e->cfg_file);
+
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number(cfg, "experiment",
+ "masters", &e->num_masters))
+ {
+ fprintf (stderr, "Invalid %s", "masters");
+ free_experiment (e);
+ return NULL;
+ }
+ else
+ fprintf (stderr, "Experiment masters: `%llu'\n",
+ e->num_masters);
+
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number(cfg, "experiment",
+ "slaves", &e->num_slaves))
+ {
+ fprintf (stderr, "Invalid %s", "slaves");
+ free_experiment (e);
+ return NULL;
+ }
+ else
+ fprintf (stderr, "Experiment slaves: `%llu'\n",
+ e->num_slaves);
+
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time(cfg, "experiment",
+ "log_freq", &e->log_freq))
+ {
+ fprintf (stderr, "Invalid %s", "log_freq");
+ free_experiment (e);
+ return NULL;
+ }
+ else
+ fprintf (stderr, "Experiment logging frequency: `%s'\n",
+ GNUNET_STRINGS_relative_time_to_string (e->log_freq, GNUNET_YES));
+
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time(cfg, "experiment",
+ "max_duration", &e->max_duration))
+ {
+ fprintf (stderr, "Invalid %s", "max_duration");
+ free_experiment (e);
+ return NULL;
+ }
+ else
+ fprintf (stderr, "Experiment duration: `%s'\n",
+ GNUNET_STRINGS_relative_time_to_string (e->max_duration, GNUNET_YES));
+
+ load_episodes (e, cfg);
+ fprintf (stderr, "Loaded %u episodes with total duration %s\n",
+ e->num_episodes,
+ GNUNET_STRINGS_relative_time_to_string (e->total_duration, GNUNET_YES));
+
+ GNUNET_CONFIGURATION_destroy (cfg);
+ return e;
+}
+
+void
+GNUNET_ATS_solvers_experimentation_stop (struct Experiment *e)
+{
+ if (GNUNET_SCHEDULER_NO_TASK != e->experiment_timeout_task)
+ {
+ GNUNET_SCHEDULER_cancel (e->experiment_timeout_task);
+ e->experiment_timeout_task = GNUNET_SCHEDULER_NO_TASK;
+ }
+ if (GNUNET_SCHEDULER_NO_TASK != e->episode_timeout_task)
+ {
+ GNUNET_SCHEDULER_cancel (e->episode_timeout_task);
+ e->episode_timeout_task = GNUNET_SCHEDULER_NO_TASK;
+ }
+ free_experiment (e);
+}
+
+/**
+ * Solver
+ */
+
+struct GNUNET_ATS_TESTING_SolverHandle
+{
+ char * plugin;
+ struct GNUNET_ATS_PluginEnvironment env;
+ void *solver;
+};
+
+enum GNUNET_ATS_Solvers
+{
+ GNUNET_ATS_SOLVER_PROPORTIONAL,
+ GNUNET_ATS_SOLVER_MLP,
+ GNUNET_ATS_SOLVER_RIL,
+};
+
+void
+GNUNET_ATS_solvers_solver_stop (struct GNUNET_ATS_TESTING_SolverHandle *sh)
+{
+ GNUNET_PLUGIN_unload (sh->plugin, sh->solver);
+ GNUNET_free (sh->plugin);
+ GNUNET_free (sh);
+}
+
+struct GNUNET_ATS_TESTING_SolverHandle *
+GNUNET_ATS_solvers_solver_start (enum GNUNET_ATS_Solvers type)
+{
+ struct GNUNET_ATS_TESTING_SolverHandle *sh;
+ char * solver_str;
+
+ switch (type) {
+ case GNUNET_ATS_SOLVER_PROPORTIONAL:
+ solver_str = "proportional";
+ break;
+ case GNUNET_ATS_SOLVER_MLP:
+ solver_str = "mlp";
+ break;
+ case GNUNET_ATS_SOLVER_RIL:
+ solver_str = "ril";
+ break;
+ default:
+ GNUNET_break (0);
+ return NULL;
+ break;
+ }
+
+ sh = GNUNET_new (struct GNUNET_ATS_TESTING_SolverHandle);
+ GNUNET_asprintf (&sh->plugin, "libgnunet_plugin_ats_%s", solver_str);
+ //sh->solver = GNUNET_PLUGIN_load (sh->plugin, &sh->env);
+ if (NULL == sh->solver)
+ {
+ fprintf (stderr, "Failed to load solver `%s'\n", sh->plugin);
+ exit (1);
+ }
+
+ return sh;
+}
+
+static struct Experiment *e;
+
+static struct GNUNET_ATS_TESTING_SolverHandle *sh;
+
+/**
+ * cmd option -e: experiment file
+ */
+static char *opt_exp_file;
+
+static char *opt_solver;
+
+/**
+ * cmd option -l: enable logging
+ */
+static int opt_log;
+
+/**
+ * cmd option -p: enable plots
+ */
+static int opt_plot;
+
+/**
+ * cmd option -v: verbose logs
+ */
+static int opt_verbose;
+
+static void
+run (void *cls, char * const *args, const char *cfgfile,
+ const struct GNUNET_CONFIGURATION_Handle *cfg)
+{
+ enum GNUNET_ATS_Solvers solver;
+
+ if (NULL == opt_exp_file)
+ {
+ fprintf (stderr, "No experiment given ...\n");
+ exit (1);
+ }
+
+ if (NULL == opt_solver)
+ {
+ fprintf (stderr, "No solver given ...\n");
+ exit (1);
+ }
+
+ if (0 == strcmp(opt_solver, "mlp"))
+ {
+ solver = GNUNET_ATS_SOLVER_MLP;
+ }
+ else if (0 == strcmp(opt_solver, "proportional"))
+ {
+ solver = GNUNET_ATS_SOLVER_PROPORTIONAL;
+ }
+ else if (0 == strcmp(opt_solver, "ril"))
+ {
+ solver = GNUNET_ATS_SOLVER_RIL;
+ }
+ else
+ {
+ fprintf (stderr, "No solver given ...");
+ return;
+ }
+
+ /* load experiment */
+ e = GNUNET_ATS_solvers_experimentation_load (opt_exp_file);
+ if (NULL == e)
+ {
+ fprintf (stderr, "Failed to load experiment ...\n");
+ return;
+ }
+
+ /* load solver */
+ sh = GNUNET_ATS_solvers_solver_start (solver);
+ if (NULL == sh)
+ {
+ fprintf (stderr, "Failed to start solver ...\n");
+ return;
+ }
+
+ /* start logging */
+
+ /* run experiment */
+
+ /* WAIT */
+}
+
+
+/**
+ * Main function of the benchmark
+ *
+ * @param argc argument count
+ * @param argv argument values
+ */
+int
+main (int argc, char *argv[])
+{
+
+ opt_exp_file = NULL;
+ opt_solver = NULL;
+ opt_log = GNUNET_NO;
+ opt_plot = GNUNET_NO;
+
+ static struct GNUNET_GETOPT_CommandLineOption options[] =
+ {
+ { 's', "solver", NULL,
+ gettext_noop ("solver to use"),
+ 1, &GNUNET_GETOPT_set_string, &opt_solver},
+ { 'e', "experiment", NULL,
+ gettext_noop ("experiment to use"),
+ 1, &GNUNET_GETOPT_set_string, &opt_exp_file},
+ { 'e', "experiment", NULL,
+ gettext_noop ("experiment to use"),
+ 1, &GNUNET_GETOPT_set_one, &opt_verbose},
+ GNUNET_GETOPT_OPTION_END
+ };
+
+ GNUNET_PROGRAM_run (argc, argv, argv[0], NULL, options, &run, argv[0]);
+
+ return 0;
+}
+/* end of file ats-testing-experiment.c*/
+
Modified: gnunet/src/ats-tests/template_perf_ats.conf
===================================================================
--- gnunet/src/ats-tests/template_perf_ats.conf 2014-02-07 12:00:02 UTC (rev
32249)
+++ gnunet/src/ats-tests/template_perf_ats.conf 2014-02-07 13:16:05 UTC (rev
32250)
@@ -10,6 +10,9 @@
[peerinfo]
USE_INCLUDED_HELLOS = NO
+[transport]
+#PREFIX = valgrind --leak-check=yes
+
[ats]
# Network specific inbound/outbound quotas
UNSPECIFIED_QUOTA_IN = 128 KiB
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [GNUnet-SVN] r32250 - gnunet/src/ats-tests,
gnunet <=