gnunet-solver-eval.c File Reference

#include "platform.h"
#include "gnunet_util_lib.h"
#include "gnunet_ats_plugin.h"
#include "gnunet_ats_service.h"
#include "ats-testing.h"

Include dependency graph for gnunet-solver-eval.c:

Go to the source code of this file.

Data Structures
struct	GNUNET_ATS_TESTING_SolverHandle
	Solver. More...

Enumerations
enum	GNUNET_ATS_Solvers {   GNUNET_ATS_SOLVER_PROPORTIONAL, GNUNET_ATS_SOLVER_MLP, GNUNET_ATS_SOLVER_RIL, GNUNET_ATS_SOLVER_PROPORTIONAL,   GNUNET_ATS_SOLVER_MLP, GNUNET_ATS_SOLVER_RIL }

Functions
const char *	print_op (enum OperationType op)
	Experiments. More...
static struct Experiment *	create_experiment ()
static void	free_experiment (struct Experiment *e)
static int	load_episode (struct Experiment *e, struct Episode *cur, struct GNUNET_CONFIGURATION_Handle *cfg)
static int	load_episodes (struct Experiment *e, struct GNUNET_CONFIGURATION_Handle *cfg)
static void	timeout_experiment (void *cls)
static void	enforce_start_send (struct GNUNET_ATS_TEST_Operation *op)
static void	enforce_stop_send (struct GNUNET_ATS_TEST_Operation *op)
static void	enforce_start_preference (struct GNUNET_ATS_TEST_Operation *op)
static void	enforce_stop_preference (struct GNUNET_ATS_TEST_Operation *op)
static void	enforce_episode (struct Episode *ep)
static void	timeout_episode (void *cls)
void	GNUNET_ATS_solvers_experimentation_run (struct Experiment *e, GNUNET_ATS_TESTING_EpisodeDoneCallback ep_done_cb, GNUNET_ATS_TESTING_ExperimentDoneCallback e_done_cb)
struct Experiment *	GNUNET_ATS_solvers_experimentation_load (char *filename)
void	GNUNET_ATS_solvers_experimentation_stop (struct Experiment *e)
void	GNUNET_ATS_solvers_solver_stop (struct GNUNET_ATS_TESTING_SolverHandle *sh)
struct GNUNET_ATS_TESTING_SolverHandle *	GNUNET_ATS_solvers_solver_start (enum GNUNET_ATS_Solvers type)
static void	run (void *cls, char *const *args, const char *cfgfile, const struct GNUNET_CONFIGURATION_Handle *cfg)
int	main (int argc, char *argv[])
	Main function of the benchmark. More...

Variables
static struct Experiment *	e
static struct GNUNET_ATS_TESTING_SolverHandle *	sh
static char *	opt_exp_file
	cmd option -e: experiment file More...
static char *	opt_solver
static int	opt_log
	cmd option -l: enable logging More...
static int	opt_plot
	cmd option -p: enable plots More...
static int	opt_verbose
	cmd option -v: verbose logs More...

Enumeration Type Documentation

GNUNET_ATS_Solvers

enum GNUNET_ATS_Solvers

Enumerator
GNUNET_ATS_SOLVER_PROPORTIONAL
GNUNET_ATS_SOLVER_MLP
GNUNET_ATS_SOLVER_RIL
GNUNET_ATS_SOLVER_PROPORTIONAL
GNUNET_ATS_SOLVER_MLP
GNUNET_ATS_SOLVER_RIL

Definition at line 796 of file gnunet-solver-eval.c.

                        {
  GNUNET_ATS_SOLVER_PROPORTIONAL,
  GNUNET_ATS_SOLVER_MLP,
  GNUNET_ATS_SOLVER_RIL,
};

Function Documentation

print_op()

const char* print_op

(

enum OperationType

op

)

Experiments.

Definition at line 37 of file gnunet-solver-eval.c.

References START_PREFERENCE, START_SEND, STOP_PREFERENCE, and STOP_SEND.

Referenced by enforce_episode(), and load_episode().

{
  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 "";
}

Here is the caller graph for this function:

create_experiment()

static struct Experiment* create_experiment ( )

static

Definition at line 61 of file gnunet-solver-eval.c.

References e, GNUNET_new, GNUNET_TIME_UNIT_ZERO, Experiment::name, Experiment::num_masters, Experiment::num_slaves, Experiment::start, and Experiment::total_duration.

Referenced by GNUNET_ATS_solvers_experimentation_load().

{
  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;
}

Here is the caller graph for this function:

free_experiment()

static void free_experiment ( struct Experiment *  e )

static

Definition at line 76 of file gnunet-solver-eval.c.

References Experiment::cfg_file, GNUNET_free, GNUNET_free_non_null, Episode::head, Experiment::name, GNUNET_ATS_TEST_Operation::next, Episode::next, and Experiment::start.

Referenced by GNUNET_ATS_solvers_experimentation_load(), and GNUNET_ATS_solvers_experimentation_stop().

{
  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);
}

Here is the caller graph for this function:

load_episode()

static int load_episode ( struct Experiment *  e, struct Episode *  cur, struct GNUNET_CONFIGURATION_Handle *  cfg  )

static

Definition at line 104 of file gnunet-solver-eval.c.

References GNUNET_ATS_TEST_Operation::base_rate, GNUNET_ATS_TEST_Operation::dest_id, Episode::duration, GNUNET_ATS_TEST_Operation::frequency, GNUNET_ATS_TEST_Operation::gen_type, GNUNET_asprintf(), GNUNET_ATS_PREFERENCE_BANDWIDTH, GNUNET_ATS_PREFERENCE_LATENCY, GNUNET_ATS_TEST_TG_CONSTANT, GNUNET_ATS_TEST_TG_LINEAR, GNUNET_ATS_TEST_TG_RANDOM, GNUNET_ATS_TEST_TG_SINUS, GNUNET_break, GNUNET_CONFIGURATION_get_value_number(), GNUNET_CONFIGURATION_get_value_string(), GNUNET_CONFIGURATION_get_value_time(), GNUNET_CONTAINER_DLL_insert, GNUNET_free, GNUNET_free_non_null, GNUNET_new, GNUNET_OK, GNUNET_STRINGS_relative_time_to_string(), GNUNET_SYSERR, GNUNET_YES, Episode::head, Episode::id, GNUNET_ATS_TEST_Operation::max_rate, Experiment::num_masters, Experiment::num_slaves, op, GNUNET_ATS_TEST_Operation::period, GNUNET_ATS_TEST_Operation::pref_type, print_op(), GNUNET_ATS_TEST_Operation::src_id, START_PREFERENCE, START_SEND, STOP_PREFERENCE, STOP_SEND, Episode::tail, type, and GNUNET_ATS_TEST_Operation::type.

Referenced by load_episodes().

{
  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);
          GNUNET_free(sec_name);
          GNUNET_free(o);
          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);
          GNUNET_free(sec_name);
          GNUNET_free(o);
          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);
          GNUNET_free(sec_name);
          GNUNET_free(o);
          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);
          GNUNET_free(sec_name);
          GNUNET_free(o);
          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);
          GNUNET_free(sec_name);
          GNUNET_free(o);
          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->gen_type = GNUNET_ATS_TEST_TG_CONSTANT;
            }
          else if (0 == strcmp(type, "linear"))
            {
              o->gen_type = GNUNET_ATS_TEST_TG_LINEAR;
            }
          else if (0 == strcmp(type, "sinus"))
            {
              o->gen_type = GNUNET_ATS_TEST_TG_SINUS;
            }
          else if (0 == strcmp(type, "random"))
            {
              o->gen_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);
              GNUNET_free(sec_name);
              GNUNET_free(o);
              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);
              GNUNET_free(sec_name);
              GNUNET_free(o);
              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->gen_type) ||
                  (GNUNET_ATS_TEST_TG_RANDOM == o->gen_type) ||
                  (GNUNET_ATS_TEST_TG_SINUS == o->gen_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);
                  GNUNET_free(sec_name);
                  GNUNET_free(o);
                  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);
                  GNUNET_free(sec_name);
                  GNUNET_free(o);
                  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(sec_name);
                  GNUNET_free_non_null(pref);
                  GNUNET_free(o);
                  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(sec_name);
                  GNUNET_free_non_null(pref);
                  GNUNET_free(o);
                  return GNUNET_SYSERR;
                }
              GNUNET_free(pref);
              GNUNET_free(op_name);
            }
        }

      /* Safety checks */
      if ((GNUNET_ATS_TEST_TG_LINEAR == o->gen_type) ||
          (GNUNET_ATS_TEST_TG_SINUS == o->gen_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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

load_episodes()

static int load_episodes ( struct Experiment *  e, struct GNUNET_CONFIGURATION_Handle *  cfg  )

static

Definition at line 393 of file gnunet-solver-eval.c.

References Episode::duration, GNUNET_asprintf(), GNUNET_CONFIGURATION_get_value_time(), GNUNET_free, GNUNET_new, GNUNET_OK, GNUNET_STRINGS_relative_time_to_string(), GNUNET_SYSERR, GNUNET_TIME_relative_add(), GNUNET_YES, Episode::id, load_episode(), Episode::next, Experiment::num_episodes, Experiment::start, and Experiment::total_duration.

Referenced by GNUNET_ATS_solvers_experimentation_load().

{
  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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

timeout_experiment()

static void timeout_experiment ( void *  cls )

static

Definition at line 446 of file gnunet-solver-eval.c.

References e, Experiment::e_done_cb, Experiment::episode_timeout_task, Experiment::experiment_timeout_task, GNUNET_SCHEDULER_cancel(), GNUNET_SYSERR, GNUNET_TIME_absolute_get_duration(), and Experiment::start_time.

Referenced by GNUNET_ATS_solvers_experimentation_run().

{
  struct Experiment *e = cls;

  e->experiment_timeout_task = NULL;
  fprintf(stderr, "Experiment timeout!\n");

  if (NULL != e->episode_timeout_task)
    {
      GNUNET_SCHEDULER_cancel(e->episode_timeout_task);
      e->episode_timeout_task = NULL;
    }

  e->e_done_cb(e, GNUNET_TIME_absolute_get_duration(e->start_time),
               GNUNET_SYSERR);
}

Here is the call graph for this function:

Here is the caller graph for this function:

enforce_start_send()

static void enforce_start_send ( struct GNUNET_ATS_TEST_Operation *  op )

static

Definition at line 465 of file gnunet-solver-eval.c.

Referenced by enforce_episode().

{
  /*
     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);
   */
}

Here is the caller graph for this function:

enforce_stop_send()

static void enforce_stop_send ( struct GNUNET_ATS_TEST_Operation *  op )

static

Definition at line 501 of file gnunet-solver-eval.c.

Referenced by enforce_episode().

{
  /*
     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;
     }
   */
}

Here is the caller graph for this function:

enforce_start_preference()

static void enforce_start_preference ( struct GNUNET_ATS_TEST_Operation *  op )

static

Definition at line 526 of file gnunet-solver-eval.c.

Referenced by enforce_episode().

{
  /*
     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);
   */
}

Here is the caller graph for this function:

enforce_stop_preference()

static void enforce_stop_preference ( struct GNUNET_ATS_TEST_Operation *  op )

static

Definition at line 563 of file gnunet-solver-eval.c.

Referenced by enforce_episode().

{
  /*
     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;
     }
   */
}

Here is the caller graph for this function:

enforce_episode()

static void enforce_episode ( struct Episode *  ep )

static

Definition at line 586 of file gnunet-solver-eval.c.

References GNUNET_ATS_TEST_Operation::base_rate, GNUNET_ATS_TEST_Operation::dest_id, enforce_start_preference(), enforce_start_send(), enforce_stop_preference(), enforce_stop_send(), Episode::head, GNUNET_ATS_TEST_Operation::next, print_op(), GNUNET_ATS_TEST_Operation::src_id, START_PREFERENCE, START_SEND, STOP_PREFERENCE, STOP_SEND, and GNUNET_ATS_TEST_Operation::type.

Referenced by GNUNET_ATS_solvers_experimentation_run(), and timeout_episode().

{
  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;
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

timeout_episode()

static void timeout_episode ( void *  cls )

static

Definition at line 620 of file gnunet-solver-eval.c.

References Experiment::cur, Episode::duration, e, Experiment::e_done_cb, enforce_episode(), Experiment::ep_done_cb, Experiment::episode_timeout_task, Experiment::experiment_timeout_task, GNUNET_OK, GNUNET_SCHEDULER_add_delayed(), GNUNET_SCHEDULER_cancel(), GNUNET_STRINGS_relative_time_to_string(), GNUNET_TIME_absolute_get_duration(), GNUNET_YES, Episode::id, Episode::next, and Experiment::start_time.

Referenced by GNUNET_ATS_solvers_experimentation_run().

{
  struct Experiment *e = cls;

  e->episode_timeout_task = NULL;
  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 (NULL != e->experiment_timeout_task)
        {
          GNUNET_SCHEDULER_cancel(e->experiment_timeout_task);
          e->experiment_timeout_task = NULL;
        }
      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);
}

Here is the call graph for this function:

Here is the caller graph for this function:

GNUNET_ATS_solvers_experimentation_run()

void GNUNET_ATS_solvers_experimentation_run	(	struct Experiment *	e,
		GNUNET_ATS_TESTING_EpisodeDoneCallback	ep_done_cb,
		GNUNET_ATS_TESTING_ExperimentDoneCallback	e_done_cb
	)

Definition at line 654 of file gnunet-solver-eval.c.

References Experiment::cur, Episode::duration, Experiment::e_done_cb, enforce_episode(), Experiment::ep_done_cb, Experiment::episode_timeout_task, Experiment::experiment_timeout_task, GNUNET_SCHEDULER_add_delayed(), GNUNET_STRINGS_relative_time_to_string(), GNUNET_TIME_absolute_get(), GNUNET_YES, Episode::id, Experiment::max_duration, Experiment::name, Experiment::start, Experiment::start_time, timeout_episode(), and timeout_experiment().

{
  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);
}

Here is the call graph for this function:

GNUNET_ATS_solvers_experimentation_load()

struct Experiment* GNUNET_ATS_solvers_experimentation_load

(

char *

filename

)

Definition at line 680 of file gnunet-solver-eval.c.

References cfg, Experiment::cfg_file, create_experiment(), e, free_experiment(), GNUNET_CONFIGURATION_create(), GNUNET_CONFIGURATION_destroy(), GNUNET_CONFIGURATION_get_value_filename(), GNUNET_CONFIGURATION_get_value_number(), GNUNET_CONFIGURATION_get_value_string(), GNUNET_CONFIGURATION_get_value_time(), GNUNET_CONFIGURATION_load(), GNUNET_STRINGS_relative_time_to_string(), GNUNET_SYSERR, GNUNET_YES, load_episodes(), Experiment::log_freq, Experiment::max_duration, Experiment::name, Experiment::num_episodes, Experiment::num_masters, Experiment::num_slaves, and Experiment::total_duration.

Referenced by run().

{
  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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

GNUNET_ATS_solvers_experimentation_stop()

void GNUNET_ATS_solvers_experimentation_stop

(

struct Experiment *

e

)

Definition at line 771 of file gnunet-solver-eval.c.

References Experiment::episode_timeout_task, Experiment::experiment_timeout_task, free_experiment(), and GNUNET_SCHEDULER_cancel().

{
  if (NULL != e->experiment_timeout_task)
    {
      GNUNET_SCHEDULER_cancel(e->experiment_timeout_task);
      e->experiment_timeout_task = NULL;
    }
  if (NULL != e->episode_timeout_task)
    {
      GNUNET_SCHEDULER_cancel(e->episode_timeout_task);
      e->episode_timeout_task = NULL;
    }
  free_experiment(e);
}

Here is the call graph for this function:

GNUNET_ATS_solvers_solver_stop()

void GNUNET_ATS_solvers_solver_stop

(

struct GNUNET_ATS_TESTING_SolverHandle *

sh

)

Definition at line 803 of file gnunet-solver-eval.c.

References GNUNET_free, GNUNET_PLUGIN_unload(), GNUNET_ATS_TESTING_SolverHandle::plugin, and GNUNET_ATS_TESTING_SolverHandle::solver.

{
  GNUNET_PLUGIN_unload(sh->plugin, sh->solver);
  GNUNET_free(sh->plugin);
  GNUNET_free(sh);
}

Here is the call graph for this function:

GNUNET_ATS_solvers_solver_start()

struct GNUNET_ATS_TESTING_SolverHandle* GNUNET_ATS_solvers_solver_start

(

enum GNUNET_ATS_Solvers

type

)

Definition at line 811 of file gnunet-solver-eval.c.

References GNUNET_asprintf(), GNUNET_ATS_SOLVER_MLP, GNUNET_ATS_SOLVER_PROPORTIONAL, GNUNET_ATS_SOLVER_RIL, GNUNET_break, GNUNET_new, GNUNET_ATS_TESTING_SolverHandle::plugin, sh, and GNUNET_ATS_TESTING_SolverHandle::solver.

Referenced by run().

{
  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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

run()

static void run ( void *  cls, char *const *  args, const char *  cfgfile, const struct GNUNET_CONFIGURATION_Handle *  cfg  )

static

Definition at line 875 of file gnunet-solver-eval.c.

References GNUNET_ATS_SOLVER_MLP, GNUNET_ATS_SOLVER_PROPORTIONAL, GNUNET_ATS_SOLVER_RIL, GNUNET_ATS_solvers_experimentation_load(), GNUNET_ATS_solvers_solver_start(), opt_exp_file, opt_solver, and GNUNET_ATS_TESTING_SolverHandle::solver.

Referenced by main().

{
  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 */
}

Here is the call graph for this function:

Here is the caller graph for this function:

main()

int main	(	int	argc,
		char *	argv[]
	)

Main function of the benchmark.

Parameters

argc	argument count
argv	argument values

Definition at line 941 of file gnunet-solver-eval.c.

References gettext_noop, GNUNET_GETOPT_OPTION_END, GNUNET_GETOPT_option_flag(), GNUNET_GETOPT_option_string(), GNUNET_NO, GNUNET_OK, GNUNET_PROGRAM_run(), opt_exp_file, opt_log, opt_plot, opt_solver, opt_verbose, and run().

{
  opt_exp_file = NULL;
  opt_solver = NULL;
  opt_log = GNUNET_NO;
  opt_plot = GNUNET_NO;

  struct GNUNET_GETOPT_CommandLineOption options[] =
  {
    GNUNET_GETOPT_option_string('s',
                                "solver",
                                NULL,
                                gettext_noop("solver to use"),
                                &opt_solver),

    GNUNET_GETOPT_option_string('e',
                                "experiment",
                                NULL,
                                gettext_noop("experiment to use"),
                                &opt_exp_file),

    GNUNET_GETOPT_option_flag('e',
                              "experiment",
                              gettext_noop("experiment to use"),
                              &opt_verbose),
    GNUNET_GETOPT_OPTION_END
  };

  if (GNUNET_OK !=
      GNUNET_PROGRAM_run(argc,
                         argv, argv[0],
                         NULL,
                         options,
                         &run, argv[0]))
    return 1;

  return 0;
}

Here is the call graph for this function:

Variable Documentation

e

struct Experiment* e

static

Definition at line 848 of file gnunet-solver-eval.c.

Referenced by create_experiment(), GNUNET_ATS_solvers_experimentation_load(), timeout_episode(), and timeout_experiment().

sh

struct GNUNET_ATS_TESTING_SolverHandle* sh

static

Definition at line 850 of file gnunet-solver-eval.c.

Referenced by GNUNET_ATS_solvers_solver_start().

opt_exp_file

char* opt_exp_file

static

cmd option -e: experiment file

Definition at line 855 of file gnunet-solver-eval.c.

Referenced by main(), and run().

opt_solver

char* opt_solver

static

Definition at line 857 of file gnunet-solver-eval.c.

Referenced by main(), and run().

opt_log

int opt_log

static

cmd option -l: enable logging

Definition at line 862 of file gnunet-solver-eval.c.

Referenced by main().

opt_plot

int opt_plot

static

cmd option -p: enable plots

Definition at line 867 of file gnunet-solver-eval.c.

Referenced by main().

opt_verbose

int opt_verbose

static

cmd option -v: verbose logs

Definition at line 872 of file gnunet-solver-eval.c.

Referenced by main().