123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395 |
- /*
- This file is part of GNUnet.
- Copyright (C) 2010-2013 GNUnet e.V.
- GNUnet is free software: you can redistribute it and/or modify it
- under the terms of the GNU Affero General Public License as published
- by the Free Software Foundation, either version 3 of the License,
- 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
- Affero General Public License for more details.
- You should have received a copy of the GNU Affero General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>.
- SPDX-License-Identifier: AGPL3.0-or-later
- */
- /**
- * @file ats-tests/gnunet-ats-sim.c
- * @brief ats traffic simulator: this tool uses the ats-test library to setup a
- * topology and generate traffic between these peers. The traffic description
- * is loaded from a experiment description file
- * @author Christian Grothoff
- * @author Matthias Wachs
- */
- #include "platform.h"
- #include "gnunet_util_lib.h"
- #include "gnunet_testbed_service.h"
- #include "gnunet_ats_service.h"
- #include "gnunet_core_service.h"
- #include "ats-testing.h"
- #define TEST_TIMEOUT GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 10)
- static struct BenchmarkPeer *masters_p;
- static struct BenchmarkPeer *slaves_p;
- /**
- * cmd option -e: experiment file
- */
- static char *opt_exp_file;
- /**
- * 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 struct GNUNET_SCHEDULER_Task *timeout_task;
- static struct Experiment *e;
- static struct LoggingHandle *l;
- static void
- evaluate (struct GNUNET_TIME_Relative duration_total)
- {
- int c_m;
- int c_s;
- unsigned int duration;
- struct BenchmarkPeer *mp;
- struct BenchmarkPartner *p;
- unsigned int b_sent_sec;
- double kb_sent_percent;
- unsigned int b_recv_sec;
- double kb_recv_percent;
- unsigned int rtt;
- duration = (duration_total.rel_value_us / (1000 * 1000));
- if (0 == duration)
- duration = 1;
- for (c_m = 0; c_m < e->num_masters; c_m++)
- {
- mp = &masters_p[c_m];
- fprintf (stderr,
- _("Master [%u]: sent: %u KiB in %u sec. = %u KiB/s, received: %u KiB in %u sec. = %u KiB/s\n"),
- mp->no, mp->total_bytes_sent / 1024,
- duration,
- (mp->total_bytes_sent / 1024) / duration,
- mp->total_bytes_received / 1024,
- duration,
- (mp->total_bytes_received / 1024) / duration);
- for (c_s = 0; c_s < e->num_slaves; c_s++)
- {
- p = &mp->partners[c_s];
- b_sent_sec = 0;
- b_recv_sec = 0;
- kb_sent_percent = 0.0;
- kb_recv_percent = 0.0;
- rtt = 0;
- if (duration > 0)
- {
- b_sent_sec = p->bytes_sent / duration;
- b_recv_sec = p->bytes_received / duration;
- }
- if (mp->total_bytes_sent > 0)
- kb_sent_percent = ((double) p->bytes_sent * 100) / mp->total_bytes_sent;
- if (mp->total_bytes_received > 0)
- kb_recv_percent = ((double) p->bytes_received * 100) / mp->total_bytes_received;
- if (1000 * p->messages_sent > 0)
- rtt = p->total_app_rtt / (1000 * p->messages_sent);
- fprintf (stderr,
- "%c Master [%u] -> Slave [%u]: sent %u Bips (%.2f %%), received %u Bips (%.2f %%)\n",
- (mp->pref_partner == p->dest) ? '*' : ' ',
- mp->no, p->dest->no,
- b_sent_sec, kb_sent_percent,
- b_recv_sec, kb_recv_percent);
- fprintf (stderr,
- "%c Master [%u] -> Slave [%u]: Average application layer RTT: %u ms\n",
- (mp->pref_partner == p->dest) ? '*' : ' ',
- mp->no, p->dest->no, rtt);
- }
- }
- }
- static void
- do_shutdown (void *cls)
- {
- fprintf (stderr, "Shutdown\n");
- if (NULL != timeout_task)
- {
- GNUNET_SCHEDULER_cancel (timeout_task);
- timeout_task = NULL;
- }
- if (NULL != l)
- {
- GNUNET_ATS_TEST_logging_stop (l);
- GNUNET_ATS_TEST_logging_clean_up (l);
- l = NULL;
- }
- /* Stop traffic generation */
- GNUNET_ATS_TEST_generate_traffic_stop_all();
- /* Stop all preference generations */
- GNUNET_ATS_TEST_generate_preferences_stop_all ();
- if (NULL != e)
- {
- GNUNET_ATS_TEST_experimentation_stop (e);
- e = NULL;
- }
- GNUNET_ATS_TEST_shutdown_topology ();
- }
- static void
- do_timeout (void *cls)
- {
- timeout_task = NULL;
- GNUNET_SCHEDULER_shutdown ();
- }
- static void
- log_request__cb (void *cls,
- const struct GNUNET_HELLO_Address *address,
- int address_active,
- struct GNUNET_BANDWIDTH_Value32NBO bandwidth_out,
- struct GNUNET_BANDWIDTH_Value32NBO bandwidth_in,
- const struct GNUNET_ATS_Properties *ats)
- {
- if (NULL != l)
- {
- //GNUNET_break (0);
- //GNUNET_ATS_TEST_logging_now (l);
- }
- }
- static void
- experiment_done_cb (struct Experiment *e,
- struct GNUNET_TIME_Relative duration,
- int success)
- {
- if (GNUNET_OK == success)
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "Experiment done successful in %s\n",
- GNUNET_STRINGS_relative_time_to_string (duration,
- GNUNET_YES));
- else
- GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Experiment failed \n");
- /* Stop logging */
- GNUNET_ATS_TEST_logging_stop (l);
- /* Stop traffic generation */
- GNUNET_ATS_TEST_generate_traffic_stop_all();
- /* Stop all preference generations */
- GNUNET_ATS_TEST_generate_preferences_stop_all ();
- evaluate (duration);
- if (opt_log)
- GNUNET_ATS_TEST_logging_write_to_file(l, opt_exp_file, opt_plot);
- GNUNET_SCHEDULER_shutdown ();
- }
- static void
- episode_done_cb (struct Episode *ep)
- {
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "Episode %u done\n",
- ep->id);
- }
- static void
- topology_setup_done (void *cls,
- struct BenchmarkPeer *masters,
- struct BenchmarkPeer *slaves)
- {
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "Topology setup complete!\n");
- masters_p = masters;
- slaves_p = slaves;
- l = GNUNET_ATS_TEST_logging_start (e->log_freq,
- e->name,
- masters_p,
- e->num_masters, e->num_slaves,
- opt_verbose);
- GNUNET_ATS_TEST_experimentation_run (e,
- &episode_done_cb,
- &experiment_done_cb);
- /*
- GNUNET_ATS_TEST_generate_preferences_start(&masters[0],&masters[0].partners[0],
- GNUNET_ATS_TEST_TG_CONSTANT, 1, 1, GNUNET_TIME_UNIT_SECONDS,
- GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MILLISECONDS, 250),
- GNUNET_ATS_PREFERENCE_BANDWIDTH);
- */
- /*
- GNUNET_ATS_TEST_generate_preferences_start(&masters[0],&masters[0].partners[0],
- GNUNET_ATS_TEST_TG_LINEAR, 1, 50,
- GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_SECONDS, 2),
- GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MILLISECONDS, 250),
- GNUNET_ATS_PREFERENCE_BANDWIDTH);
- */
- /*
- GNUNET_ATS_TEST_generate_preferences_start(&masters[0],&masters[0].partners[0],
- GNUNET_ATS_TEST_TG_RANDOM, 1, 50,
- GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_SECONDS, 2),
- GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MILLISECONDS, 250),
- GNUNET_ATS_PREFERENCE_BANDWIDTH);
- */
- /*
- GNUNET_ATS_TEST_generate_preferences_start(&masters[0],&masters[0].partners[0],
- GNUNET_ATS_TEST_TG_SINUS, 10, 5,
- GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_SECONDS, 5),
- GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MILLISECONDS, 250),
- GNUNET_ATS_PREFERENCE_BANDWIDTH);
- */
- #if 0
- int c_m;
- int c_s;
- for (c_m = 0; c_m < e->num_masters; c_m++)
- {
- for (c_s = 0; c_s < e->num_slaves; c_s++)
- {
- /* Generate maximum traffic to all peers */
- /* Example: Generate traffic with constant 10,000 Bytes/s */
- GNUNET_ATS_TEST_generate_traffic_start (&masters[c_m],
- &masters[c_m].partners[c_s],
- GNUNET_ATS_TEST_TG_CONSTANT,
- 10000,
- GNUNET_TIME_UNIT_FOREVER_REL);
- /* Example: Generate traffic with an increasing rate from 1000 to 2000
- * Bytes/s with in a minute */
- GNUNET_ATS_TEST_generate_traffic_start (&masters[c_m],
- &masters[c_m].partners[c_s],
- GNUNET_ATS_TEST_TG_LINEAR,
- 1000,
- 2000,
- GNUNET_TIME_UNIT_MINUTES,
- GNUNET_TIME_UNIT_FOREVER_REL);
- /* Example: Generate traffic with a random rate between 1000 to 2000
- * Bytes/s */
- GNUNET_ATS_TEST_generate_traffic_start (&masters[c_m],
- &masters[c_m].partners[c_s],
- GNUNET_ATS_TEST_TG_RANDOM,
- 1000,
- 2000,
- GNUNET_TIME_UNIT_FOREVER_REL,
- GNUNET_TIME_UNIT_FOREVER_REL);
- /* Example: Generate traffic with a sinus form, a base rate of
- * 1000 Bytes/s, an amplitude of (max-base), and a period of 1 minute */
- GNUNET_ATS_TEST_generate_traffic_start (&masters[c_m],
- &masters[c_m].partners[c_s],
- GNUNET_ATS_TEST_TG_SINUS,
- 1000,
- 2000,
- GNUNET_TIME_UNIT_MINUTES,
- GNUNET_TIME_UNIT_FOREVER_REL);
- }
- }
- #endif
- timeout_task
- = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_add (GNUNET_TIME_UNIT_MINUTES,
- e->max_duration),
- &do_timeout,
- NULL);
- GNUNET_SCHEDULER_add_shutdown (&do_shutdown, NULL);
- }
- static void
- parse_args (int argc, char *argv[])
- {
- int c;
- opt_exp_file = NULL;
- opt_log = GNUNET_NO;
- opt_plot = GNUNET_NO;
- for (c = 0; c < argc; c++)
- {
- if ((c < (argc - 1)) && (0 == strcmp (argv[c], "-e")))
- {
- GNUNET_free_non_null (opt_exp_file);
- opt_exp_file = GNUNET_strdup ( argv[c + 1]);
- }
- if (0 == strcmp (argv[c], "-l"))
- {
- opt_log = GNUNET_YES;
- }
- if (0 == strcmp (argv[c], "-p"))
- {
- opt_plot = GNUNET_YES;
- }
- if (0 == strcmp (argv[c], "-v"))
- {
- opt_verbose = GNUNET_YES;
- }
- }
- }
- int
- main (int argc, char *argv[])
- {
- GNUNET_log_setup("gnunet-ats-sim", "INFO", NULL);
- parse_args (argc, argv);
- if (NULL == opt_exp_file )
- {
- fprintf (stderr, "No experiment given...\n");
- return 1;
- }
- fprintf (stderr, "Loading experiment `%s' \n", opt_exp_file );
- e = GNUNET_ATS_TEST_experimentation_load (opt_exp_file);
- if (NULL == e)
- {
- fprintf (stderr, "Invalid experiment\n");
- return 1;
- }
- if (0 == e->num_episodes)
- {
- fprintf (stderr, "No episodes included\n");
- return 1;
- }
- /* Setup a topology with */
- GNUNET_ATS_TEST_create_topology ("gnunet-ats-sim", e->cfg_file,
- e->num_slaves,
- e->num_masters,
- GNUNET_NO,
- &topology_setup_done,
- NULL,
- &log_request__cb);
- GNUNET_free (opt_exp_file);
- return 0;
- }
- /* end of file gnunet-ats-sim.c */
|