2 This file is part of GNUnet.
3 (C) 2010-2013 Christian Grothoff (and other contributing authors)
5 GNUnet is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published
7 by the Free Software Foundation; either version 3, or (at your
8 option) any later version.
10 GNUnet is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with GNUnet; see the file COPYING. If not, write to the
17 Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA.
21 * @file ats-tests/ats-testing-experiment.c
22 * @brief ats benchmark: controlled experiment execution
23 * @author Christian Grothoff
24 * @author Matthias Wachs
27 #include "gnunet_util_lib.h"
28 #include "gnunet-ats-solver-eval.h"
29 #include "gnunet-service-ats_normalization.h"
30 #include "gnunet-service-ats_preferences.c"
32 #define BIG_M_STRING "unlimited"
35 * Handle for statistics.
37 struct GNUNET_STATISTICS_Handle *GSA_stats;
40 static struct Experiment *e;
42 static struct LoggingHandle *l;
44 static struct SolverHandle *sh;
46 static struct TestPeer *peer_head;
48 static struct TestPeer *peer_tail;
50 static double default_properties[GNUNET_ATS_PropertyCount];
51 static double default_preferences[GNUNET_ATS_PreferenceCount];
54 * cmd option -e: experiment file
56 static char *opt_exp_file;
58 static char *opt_solver;
61 * cmd option -l: enable logging
66 * cmd option -p: enable plots
71 * cmd option -v: verbose logs
73 static int opt_verbose;
76 * cmd option -p: print logs
81 * cmd option -d: disable normalization
83 static int opt_disable_normalization;
91 get_property_cb (void *cls, const struct ATS_Address *address);
94 print_generator_type (enum GeneratorType g)
97 case GNUNET_ATS_TEST_TG_CONSTANT:
99 case GNUNET_ATS_TEST_TG_LINEAR:
101 case GNUNET_ATS_TEST_TG_RANDOM:
103 case GNUNET_ATS_TEST_TG_SINUS:
112 static struct TestPeer *
113 find_peer_by_id (int id)
115 struct TestPeer *cur;
116 for (cur = peer_head; NULL != cur; cur = cur->next)
122 static struct TestPeer *
123 find_peer_by_pid (const struct GNUNET_PeerIdentity *pid)
125 struct TestPeer *cur;
126 for (cur = peer_head; NULL != cur; cur = cur->next)
127 if (0 == memcmp (&cur->peer_id, pid, sizeof (struct GNUNET_PeerIdentity)))
132 static struct TestAddress *
133 find_address_by_id (struct TestPeer *peer, int aid)
135 struct TestAddress *cur;
136 for (cur = peer->addr_head; NULL != cur; cur = cur->next)
143 static struct TestAddress *
144 find_address_by_ats_address (struct TestPeer *p, const struct ATS_Address *addr)
146 struct TestAddress *cur;
147 for (cur = p->addr_head; NULL != cur; cur = cur->next)
148 if ((0 == strcmp(cur->ats_addr->plugin, addr->plugin)) &&
149 (cur->ats_addr->addr_len == addr->addr_len) &&
150 (0 == memcmp (cur->ats_addr->addr, addr->addr, addr->addr_len)))
161 GNUNET_ATS_solver_logging_now (struct LoggingHandle *l)
163 struct LoggingTimeStep *lts;
164 struct TestPeer *cur;
165 struct TestAddress *cur_addr;
166 struct LoggingPeer *log_p;
167 struct LoggingAddress *log_a;
170 lts = GNUNET_new (struct LoggingTimeStep);
171 GNUNET_CONTAINER_DLL_insert_tail(l->head, l->tail, lts);
172 lts->timestamp = GNUNET_TIME_absolute_get();
173 if (NULL == lts->prev)
174 lts->delta = GNUNET_TIME_UNIT_ZERO;
176 lts->delta = GNUNET_TIME_absolute_get_duration(lts->prev->timestamp);
178 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Logging %llu, delta %llu\n",
179 lts->timestamp.abs_value_us, lts->delta.rel_value_us);
182 /* Store logging data here */
183 for (cur = peer_head; NULL != cur; cur = cur->next)
185 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Logging peer id %llu\n", cur->id);
187 log_p = GNUNET_new (struct LoggingPeer);
189 log_p->peer_id = cur->peer_id;
190 log_p->is_requested = cur->is_requested;
191 for (c = 0; c < GNUNET_ATS_PreferenceCount; c++)
193 log_p->pref_abs[c] = cur->pref_abs[c];
194 log_p->pref_norm[c] = cur->pref_norm[c];
195 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "\t %s = %.2f %.2f [abs/rel]\n",
196 GNUNET_ATS_print_preference_type(c),
197 log_p->pref_abs[c], log_p->pref_norm[c]);
199 GNUNET_CONTAINER_DLL_insert_tail(lts->head, lts->tail, log_p);
201 for (cur_addr = cur->addr_head; NULL != cur_addr; cur_addr = cur_addr->next)
203 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Logging peer id %llu address %llu \n",
204 cur->id, cur_addr->aid);
205 log_a = GNUNET_new (struct LoggingAddress);
206 log_a->aid = cur_addr->aid;
207 log_a->active = cur_addr->ats_addr->active;
208 log_a->network = cur_addr->network;
209 log_a->used = cur_addr->ats_addr->used;
210 log_a->assigned_bw_in = cur_addr->ats_addr->assigned_bw_in;
211 log_a->assigned_bw_out = cur_addr->ats_addr->assigned_bw_out;
212 for (c = 0; c < GNUNET_ATS_PropertyCount; c++)
214 log_a->prop_abs[c] = cur_addr->prop_abs[c];
215 log_a->prop_norm[c] = cur_addr->prop_norm[c];
216 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "\t %s = %.2f %.2f [abs/rel]\n",
217 GNUNET_ATS_print_property_type(c),
218 log_a->prop_abs[c], log_a->prop_norm[c]);
220 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "\t Active = %i\n", log_a->active);
221 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "\t BW in = %llu\n", log_a->assigned_bw_in);
222 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "\t BW out = %llu\n", log_a->assigned_bw_out);
224 GNUNET_CONTAINER_DLL_insert_tail (log_p->addr_head, log_p->addr_tail, log_a);
230 logging_task (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
232 struct LoggingHandle *l = cls;
233 l->logging_task = NULL;
235 GNUNET_ATS_solver_logging_now (l);
237 l->logging_task = GNUNET_SCHEDULER_add_delayed (l->log_freq, &logging_task, l);
241 struct LoggingHandle *
242 GNUNET_ATS_solver_logging_start (struct GNUNET_TIME_Relative freq)
244 struct LoggingHandle *l;
245 l = GNUNET_new (struct LoggingHandle);
247 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Start logging every %s\n",
248 GNUNET_STRINGS_relative_time_to_string(freq, GNUNET_NO));
250 l->logging_task = GNUNET_SCHEDULER_add_now (&logging_task, l);
255 GNUNET_ATS_solver_logging_stop (struct LoggingHandle *l)
257 if (NULL != l->logging_task)
258 GNUNET_SCHEDULER_cancel (l->logging_task);
260 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Stop logging\n");
262 l->logging_task = NULL;
265 static struct LoggingFileHandle *
266 find_logging_file_handle (struct LoggingFileHandle *lf_head,
267 struct LoggingFileHandle *lf_tail,
268 int peer_id, int address_id)
270 struct LoggingFileHandle *res;
272 for (res = lf_head; NULL != res; res = res->next)
273 if ((res->pid == peer_id) && (res->aid == address_id))
280 GNUNET_ATS_solver_logging_write_to_disk (struct LoggingHandle *l, int add_time_stamp,
283 struct LoggingTimeStep *lts;
284 struct LoggingPeer *log_p;
285 struct LoggingAddress *log_a;
286 struct LoggingFileHandle *lf_head;
287 struct LoggingFileHandle *lf_tail;
288 struct LoggingFileHandle *cur;
289 struct LoggingFileHandle *next;
293 char * propstring_tmp;
295 char * prefstring_tmp;
300 if (NULL != output_dir)
302 if (GNUNET_OK != GNUNET_DISK_directory_create_for_file (output_dir))
304 fprintf (stderr, "Failed to create directory `%s'\n", output_dir);
309 fprintf (stderr, "Created directory `%s'\n", output_dir);
310 use_dir = GNUNET_YES;
317 for (lts = l->head; NULL != lts; lts = lts->next)
320 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Writing log step %llu\n",
321 (long long unsigned int) lts->timestamp.abs_value_us);
323 for (log_p = lts->head; NULL != log_p; log_p = log_p->next)
325 for (log_a = log_p->addr_head; NULL != log_a; log_a = log_a->next)
328 cur = find_logging_file_handle (lf_head, lf_tail, log_p->id,
332 cur = GNUNET_new (struct LoggingFileHandle);
333 cur->aid = log_a->aid;
334 cur->pid = log_p->id;
336 if (GNUNET_YES == add_time_stamp)
337 GNUNET_asprintf (&filename, "%s%s%s_%s_p%u_a%u_%llu.log",
338 (GNUNET_YES == use_dir) ? output_dir : "",
339 (GNUNET_YES == use_dir) ? DIR_SEPARATOR_STR : "",
344 l->head->timestamp.abs_value_us);
346 GNUNET_asprintf (&filename, "%s%s%s_%s_p%u_a%u.log",
347 (GNUNET_YES == use_dir) ? output_dir : "",
348 (GNUNET_YES == use_dir) ? DIR_SEPARATOR_STR : "",
354 fprintf (stderr, "Add writing log data for peer %llu address %llu to file `%s'\n",
355 cur->pid, cur->aid, filename);
358 cur->f_hd = GNUNET_DISK_file_open (filename,
359 GNUNET_DISK_OPEN_READWRITE |
360 GNUNET_DISK_OPEN_CREATE |
361 GNUNET_DISK_OPEN_TRUNCATE,
362 GNUNET_DISK_PERM_USER_READ |
363 GNUNET_DISK_PERM_USER_WRITE |
364 GNUNET_DISK_PERM_GROUP_READ |
365 GNUNET_DISK_PERM_OTHER_READ);
366 if (NULL == cur->f_hd)
368 fprintf (stderr, "Cannot open `%s' to write log data!\n", filename);
369 GNUNET_free (filename);
373 GNUNET_free (filename);
374 GNUNET_CONTAINER_DLL_insert (lf_head, lf_tail, cur);
376 GNUNET_asprintf(&datastring,"#time delta;log duration;peer_requested;addr net; addr_active; bw in; bw out; " \
377 "UTILIZATION_UP [abs/rel]; UTILIZATION_UP; UTILIZATION_DOWN; UTILIZATION_DOWN; " \
378 "UTILIZATION_PAYLOAD_UP; UTILIZATION_PAYLOAD_UP; UTILIZATION_PAYLOAD_DOWN; UTILIZATION_PAYLOAD_DOWN;"\
380 "DISTANCE ;DISTANCE ; COST_WAN; COST_WAN; COST_LAN; COST_LAN; " \
381 "COST_WLAN; COST_WLAN;COST_BT; COST_BT; PREF BW abs; PREF BW rel; PREF LATENCY abs; PREF LATENCY rel;\n");
382 GNUNET_DISK_file_write (cur->f_hd, datastring, strlen(datastring));
383 GNUNET_free (datastring);
387 prefstring = GNUNET_strdup("");
388 for (c = 1; c < GNUNET_ATS_PreferenceCount; c++)
391 fprintf(stderr,"\t %s = %.2f %.2f [abs/rel]\n",
392 GNUNET_ATS_print_preference_type(c),
393 log_p->pref_abs[c], log_p->pref_norm[c]);
395 GNUNET_asprintf(&prefstring_tmp,"%s;%.3f;%.3f",
396 prefstring, log_p->pref_abs[c], log_p->pref_norm[c]);
399 GNUNET_free (prefstring);
400 prefstring = GNUNET_strdup(prefstring_tmp);
401 GNUNET_free (prefstring_tmp);
405 propstring = GNUNET_strdup("");
406 for (c = 1; c < GNUNET_ATS_PropertyCount; c++)
408 if (GNUNET_ATS_NETWORK_TYPE == c)
411 fprintf(stderr, "\t %s = %.2f %.2f [abs/rel]\n",
412 GNUNET_ATS_print_property_type(c),
413 log_a->prop_abs[c], log_a->prop_norm[c]);*/
414 GNUNET_asprintf(&propstring_tmp,"%s%.3f;%.3f;",
415 propstring, log_a->prop_abs[c], log_a->prop_norm[c]);
416 GNUNET_free (propstring);
417 propstring = GNUNET_strdup(propstring_tmp);
418 GNUNET_free (propstring_tmp);
420 GNUNET_asprintf (&datastring, "%llu;%llu;%u;%u;%i;%u;%u;%s;%s\n",
421 GNUNET_TIME_absolute_get_difference (l->head->timestamp,
422 lts->timestamp).rel_value_us / 1000, lts->delta,
423 log_p->is_requested, log_a->network, log_a->active,
424 log_a->assigned_bw_in, log_a->assigned_bw_out, propstring,
427 GNUNET_DISK_file_write (cur->f_hd, datastring, strlen(datastring));
428 GNUNET_free (datastring);
429 GNUNET_free (prefstring);
430 GNUNET_free (propstring);
437 for (cur = next; NULL != cur; cur = next)
440 GNUNET_CONTAINER_DLL_remove (lf_head, lf_tail, cur);
441 if (NULL != cur->f_hd)
442 GNUNET_DISK_file_close (cur->f_hd);
449 GNUNET_ATS_solver_logging_eval (struct LoggingHandle *l)
451 struct LoggingTimeStep *lts;
452 struct LoggingPeer *log_p;
453 struct LoggingAddress *log_a;
456 for (lts = l->head; NULL != lts; lts = lts->next)
458 fprintf (stderr, "Log step %llu %llu: \n",
459 (long long unsigned int) lts->timestamp.abs_value_us,
460 (long long unsigned int) lts->delta.rel_value_us);
462 for (log_p = lts->head; NULL != log_p; log_p = log_p->next)
464 fprintf (stderr,"\tLogging peer pid %llu\n", log_p->id);
465 for (c = 1; c < GNUNET_ATS_PreferenceCount; c++)
467 fprintf(stderr,"\t %s = %.2f %.2f [abs/rel]\n",
468 GNUNET_ATS_print_preference_type(c),
469 log_p->pref_abs[c], log_p->pref_norm[c]);
472 for (log_a = log_p->addr_head; NULL != log_a; log_a = log_a->next)
474 fprintf (stderr, "\tPeer pid %llu address %llu: %u %u %u\n",
475 log_p->id, log_a->aid, log_a->active,
476 log_a->assigned_bw_in,
477 log_a->assigned_bw_out);
479 for (c = 1; c < GNUNET_ATS_PropertyCount; c++)
481 if (GNUNET_ATS_NETWORK_TYPE == c)
483 fprintf(stderr, "\t %s = %.2f %.2f [abs/rel]\n",
484 GNUNET_ATS_print_property_type(c),
485 log_a->prop_abs[c], log_a->prop_norm[c]);
493 GNUNET_ATS_solver_logging_free (struct LoggingHandle *l)
495 struct LoggingTimeStep *lts_cur;
496 struct LoggingTimeStep *lts_next;
497 struct LoggingPeer *log_p_cur;
498 struct LoggingPeer *log_p_next;
499 struct LoggingAddress *log_a_cur;
500 struct LoggingAddress *log_a_next;
502 if (NULL != l->logging_task)
503 GNUNET_SCHEDULER_cancel (l->logging_task);
504 l->logging_task = NULL;
507 while (NULL != (lts_cur = lts_next))
509 lts_next = lts_cur->next;
511 log_p_next = lts_cur->head;
512 while (NULL != (log_p_cur = log_p_next))
514 log_p_next = log_p_cur->next;
516 log_a_next = log_p_cur->addr_head;
517 while (NULL != (log_a_cur = log_a_next))
519 log_a_next = log_a_cur->next;
521 GNUNET_CONTAINER_DLL_remove (log_p_cur->addr_head, log_p_cur->addr_tail, log_a_cur);
522 GNUNET_free (log_a_cur);
525 GNUNET_CONTAINER_DLL_remove (lts_cur->head, lts_cur->tail, log_p_cur);
526 GNUNET_free (log_p_cur);
529 GNUNET_CONTAINER_DLL_remove (l->head, l->tail, lts_cur);
530 GNUNET_free (lts_cur);
537 * Property Generators
540 static struct PropertyGenerator *prop_gen_head;
541 static struct PropertyGenerator *prop_gen_tail;
544 get_property (struct PropertyGenerator *pg)
546 struct GNUNET_TIME_Relative time_delta;
550 /* Calculate the current preference value */
552 case GNUNET_ATS_TEST_TG_CONSTANT:
553 pref_value = pg->base_value;
555 case GNUNET_ATS_TEST_TG_LINEAR:
556 time_delta = GNUNET_TIME_absolute_get_duration(pg->time_start);
557 /* Calculate point of time in the current period */
558 time_delta.rel_value_us = time_delta.rel_value_us %
559 pg->duration_period.rel_value_us;
560 delta_value = ((double) time_delta.rel_value_us /
561 pg->duration_period.rel_value_us) * (pg->max_value - pg->base_value);
562 if ((pg->max_value < pg->base_value) &&
563 ((pg->max_value - pg->base_value) > pg->base_value))
565 /* This will cause an underflow */
568 pref_value = pg->base_value + delta_value;
570 case GNUNET_ATS_TEST_TG_RANDOM:
571 delta_value = (double) GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK,
572 10000 * (pg->max_value - pg->base_value)) / 10000;
573 pref_value = pg->base_value + delta_value;
575 case GNUNET_ATS_TEST_TG_SINUS:
576 time_delta = GNUNET_TIME_absolute_get_duration(pg->time_start);
577 /* Calculate point of time in the current period */
578 time_delta.rel_value_us = time_delta.rel_value_us %
579 pg->duration_period.rel_value_us;
580 if ((pg->max_value - pg->base_value) > pg->base_value)
582 /* This will cause an underflow for second half of sinus period,
583 * will be detected in general when experiments are loaded */
586 delta_value = (pg->max_value - pg->base_value) *
587 sin ( (2 * M_PI) / ((double) pg->duration_period.rel_value_us) *
588 time_delta.rel_value_us);
589 pref_value = pg->base_value + delta_value;
595 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Current property value is %f\n",
602 set_prop_task (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
604 struct PropertyGenerator *pg = cls;
606 struct TestAddress *a;
608 struct GNUNET_ATS_Information atsi;
612 if (GNUNET_NO == GNUNET_CONTAINER_multipeermap_contains_value (sh->addresses,
613 &pg->test_peer->peer_id, pg->test_address->ats_addr))
616 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
617 "Setting property generation for unknown address [%u:%u]\n",
618 pg->peer, pg->address_id);
621 if (NULL == (p = find_peer_by_id (pg->peer)))
624 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
625 "Setting property generation for unknown peer %u\n",
629 if (NULL == (a = find_address_by_id (p, pg->address_id)))
632 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
633 "Setting property generation for unknown peer %u\n",
638 prop_value = get_property (pg);
639 a->prop_abs[pg->ats_property] = prop_value;
641 GNUNET_log(GNUNET_ERROR_TYPE_INFO,
642 "Setting property for peer [%u] address [%u] for %s to %f\n",
643 pg->peer, pg->address_id,
644 GNUNET_ATS_print_property_type (pg->ats_property), prop_value);
646 atsi.type = htonl (pg->ats_property);
647 atsi.value = htonl ((uint32_t) prop_value);
649 /* set performance here! */
650 sh->sf->s_bulk_start (sh->sf->cls);
651 if (GNUNET_YES == opt_disable_normalization)
653 a->prop_abs[pg->ats_property] = prop_value;
654 a->prop_norm[pg->ats_property] = prop_value;
655 sh->sf->s_address_update_property (sh->sf->cls, a->ats_addr,
656 pg->ats_property, prop_value, prop_value);
659 GAS_normalization_normalize_property (pg->test_address->ats_addr, &atsi, 1);
660 sh->sf->s_bulk_stop (sh->sf->cls);
662 pg->set_task = GNUNET_SCHEDULER_add_delayed (pg->frequency,
668 * Set ats_property to 0 to find all pgs
671 static struct PropertyGenerator *
672 find_prop_gen (unsigned int peer, unsigned int address,
673 uint32_t ats_property)
675 struct PropertyGenerator *cur;
676 for (cur = prop_gen_head; NULL != cur; cur = cur->next)
677 if ((cur->peer == peer) && (cur->address_id == address))
679 if ((cur->ats_property == ats_property) || (0 == ats_property))
686 GNUNET_ATS_solver_generate_property_stop (struct PropertyGenerator *pg)
688 GNUNET_CONTAINER_DLL_remove (prop_gen_head, prop_gen_tail, pg);
690 if (NULL != pg->set_task)
692 GNUNET_SCHEDULER_cancel (pg->set_task);
695 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
696 "Removing old up preference generator peer [%u] address [%u] `%s'\n",
697 pg->peer, pg->address_id,
698 GNUNET_ATS_print_property_type(pg->ats_property));
705 * Generate between the source master and the partner and set property with a
706 * value depending on the generator.
709 * @param address_id partner
710 * @param test_peer the peer
711 * @param test_address the address
712 * @param type type of generator
713 * @param base_value base value
714 * @param value_rate maximum value
715 * @param period duration of a period of generation (~ 1/frequency)
716 * @param frequency how long to generate property
717 * @param ats_property ATS property to generate
718 * @return the property generator
720 struct PropertyGenerator *
721 GNUNET_ATS_solver_generate_property_start (unsigned int peer,
722 unsigned int address_id,
723 struct TestPeer *test_peer,
724 struct TestAddress *test_address,
725 enum GeneratorType type,
728 struct GNUNET_TIME_Relative period,
729 struct GNUNET_TIME_Relative frequency,
730 uint32_t ats_property)
732 struct PropertyGenerator *pg;
734 pg = GNUNET_new (struct PropertyGenerator);
735 GNUNET_CONTAINER_DLL_insert (prop_gen_head, prop_gen_tail, pg);
738 pg->test_address = test_address;
739 pg->test_peer = test_peer;
740 pg->address_id = address_id;
741 pg->ats_property = ats_property;
742 pg->base_value = base_value;
743 pg->max_value = value_rate;
744 pg->duration_period = period;
745 pg->frequency = frequency;
746 pg->time_start = GNUNET_TIME_absolute_get();
749 case GNUNET_ATS_TEST_TG_CONSTANT:
750 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
751 "Setting up %s property generator peer [%u] address [%u] `%s'"\
753 print_generator_type(type), pg->peer, pg->address_id,
754 GNUNET_ATS_print_property_type (ats_property),
757 case GNUNET_ATS_TEST_TG_LINEAR:
758 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
759 "Setting up %s property generator peer [%u] address [%u] `%s' " \
760 "min %u Bips max %u Bips\n",
761 print_generator_type(type), pg->peer, pg->address_id,
762 GNUNET_ATS_print_property_type(ats_property),
763 base_value, value_rate);
765 case GNUNET_ATS_TEST_TG_SINUS:
766 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
767 "Setting up %s property generator peer [%u] address [%u] `%s' "\
768 "baserate %u Bips, amplitude %u Bps\n",
769 print_generator_type(type), pg->peer, pg->address_id,
770 GNUNET_ATS_print_property_type(ats_property),
771 base_value, value_rate);
773 case GNUNET_ATS_TEST_TG_RANDOM:
774 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
775 "Setting up %s property generator peer [%u] address [%u] `%s' "\
776 "min %u Bips max %u Bps\n",
777 print_generator_type(type), pg->peer, pg->address_id,
778 GNUNET_ATS_print_property_type(ats_property),
779 base_value, value_rate);
785 pg->set_task = GNUNET_SCHEDULER_add_now (&set_prop_task, pg);
792 * Stop all preferences generators
795 GNUNET_ATS_solver_generate_property_stop_all ()
797 struct PropertyGenerator *cur;
798 struct PropertyGenerator *next;
799 next = prop_gen_head;
800 for (cur = next; NULL != cur; cur = next)
803 GNUNET_ATS_solver_generate_property_stop (cur);
809 * Preference Generators
811 static struct PreferenceGenerator *pref_gen_head;
812 static struct PreferenceGenerator *pref_gen_tail;
816 get_preference (struct PreferenceGenerator *pg)
818 struct GNUNET_TIME_Relative time_delta;
822 /* Calculate the current preference value */
824 case GNUNET_ATS_TEST_TG_CONSTANT:
825 pref_value = pg->base_value;
827 case GNUNET_ATS_TEST_TG_LINEAR:
828 time_delta = GNUNET_TIME_absolute_get_duration(pg->time_start);
829 /* Calculate point of time in the current period */
830 time_delta.rel_value_us = time_delta.rel_value_us %
831 pg->duration_period.rel_value_us;
832 delta_value = ((double) time_delta.rel_value_us /
833 pg->duration_period.rel_value_us) * (pg->max_value - pg->base_value);
834 if ((pg->max_value < pg->base_value) &&
835 ((pg->max_value - pg->base_value) > pg->base_value))
837 /* This will cause an underflow */
840 pref_value = pg->base_value + delta_value;
842 case GNUNET_ATS_TEST_TG_RANDOM:
843 delta_value = (double) GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK,
844 10000 * (pg->max_value - pg->base_value)) / 10000;
845 pref_value = pg->base_value + delta_value;
847 case GNUNET_ATS_TEST_TG_SINUS:
848 time_delta = GNUNET_TIME_absolute_get_duration(pg->time_start);
849 /* Calculate point of time in the current period */
850 time_delta.rel_value_us = time_delta.rel_value_us %
851 pg->duration_period.rel_value_us;
852 if ((pg->max_value - pg->base_value) > pg->base_value)
854 /* This will cause an underflow for second half of sinus period,
855 * will be detected in general when experiments are loaded */
858 delta_value = (pg->max_value - pg->base_value) *
859 sin ( (2 * M_PI) / ((double) pg->duration_period.rel_value_us) *
860 time_delta.rel_value_us);
861 pref_value = pg->base_value + delta_value;
867 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Current preference value is %f\n",
873 set_feedback_task (void *cls,
874 const struct GNUNET_SCHEDULER_TaskContext *tc)
876 struct PreferenceGenerator *pg = cls;
881 uint32_t delay_acc_in;
882 struct GNUNET_TIME_Relative dur;
885 pg->feedback_task = NULL;
887 if (NULL == (p = find_peer_by_id (pg->peer)))
890 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
891 "Setting feedback for unknown peer %u\n", pg->peer);
897 case GNUNET_ATS_PREFERENCE_BANDWIDTH:
898 dur = GNUNET_TIME_absolute_get_duration(pg->feedback_last_bw_update);
899 bw_acc_in = dur.rel_value_us *pg->last_assigned_bw_in + pg->feedback_bw_in_acc;
900 pg->feedback_bw_in_acc = 0;
902 bw_acc_out = dur.rel_value_us *pg->last_assigned_bw_out + pg->feedback_bw_out_acc;
903 p_new = get_preference (pg);
904 feedback = (p_new / pg->pref_bw_old) * (bw_acc_in + bw_acc_out) /
905 (2 *GNUNET_TIME_absolute_get_duration(pg->feedback_last).rel_value_us);
908 case GNUNET_ATS_PREFERENCE_LATENCY:
909 dur = GNUNET_TIME_absolute_get_duration(pg->feedback_last_delay_update);
910 delay_acc_in =dur.rel_value_us *pg->last_delay_value + pg->feedback_delay_acc;
911 pg->feedback_delay_acc = 0;
913 p_new = get_preference (pg);
914 feedback = (p_new / pg->pref_latency_old) * (delay_acc_in) /
915 (GNUNET_TIME_absolute_get_duration(pg->feedback_last).rel_value_us);
923 GNUNET_log(GNUNET_ERROR_TYPE_INFO,
924 "Giving feedback for peer [%u] for client %p pref %s of %.3f\n",
925 pg->peer, NULL + (pg->client_id),
926 GNUNET_ATS_print_preference_type (pg->kind),
929 sh->sf->s_feedback (sh->sf->cls, NULL + (pg->client_id), &p->peer_id,
930 pg->feedback_frequency, pg->kind, feedback);
931 pg->feedback_last = GNUNET_TIME_absolute_get();
934 pg->feedback_bw_out_acc = 0;
935 pg->feedback_bw_in_acc = 0;
936 pg->feedback_last_bw_update = GNUNET_TIME_absolute_get();
938 pg->feedback_delay_acc = 0;
939 pg->feedback_last_delay_update = GNUNET_TIME_absolute_get();
942 pg->feedback_task = GNUNET_SCHEDULER_add_delayed (pg->feedback_frequency,
943 &set_feedback_task, pg);
948 set_pref_task (void *cls,
949 const struct GNUNET_SCHEDULER_TaskContext *tc)
951 struct PreferenceGenerator *pg = cls;
956 if (NULL == (p = find_peer_by_id (pg->peer)))
959 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
960 "Setting preference for unknown peer %u\n", pg->peer);
964 pref_value = get_preference (pg);
966 case GNUNET_ATS_PREFERENCE_BANDWIDTH:
967 pg->pref_bw_old = pref_value;
969 case GNUNET_ATS_PREFERENCE_LATENCY:
970 pg->pref_latency_old = pref_value;
976 p->pref_abs[pg->kind] = pref_value;
978 GNUNET_log(GNUNET_ERROR_TYPE_INFO,
979 "Setting preference for peer [%u] for client %p pref %s to %f\n",
980 pg->peer, NULL + (pg->client_id),
981 GNUNET_ATS_print_preference_type (pg->kind), pref_value);
983 if (GNUNET_YES == opt_disable_normalization)
985 p->pref_abs[pg->kind] = pref_value;
986 p->pref_norm[pg->kind] = pref_value;
987 sh->sf->s_pref (sh->sf->cls, &p->peer_id, pg->kind, pref_value);
990 normalize_preference (NULL + (pg->client_id),
995 pg->set_task = GNUNET_SCHEDULER_add_delayed (pg->frequency,
1001 static struct PreferenceGenerator *
1002 find_pref_gen (unsigned int peer, enum GNUNET_ATS_PreferenceKind kind)
1004 struct PreferenceGenerator *cur;
1005 for (cur = pref_gen_head; NULL != cur; cur = cur->next)
1006 if (cur->peer == peer)
1008 if ((cur->kind == kind) || (GNUNET_ATS_PREFERENCE_END == kind))
1015 GNUNET_ATS_solver_generate_preferences_stop (struct PreferenceGenerator *pg)
1017 GNUNET_CONTAINER_DLL_remove (pref_gen_head, pref_gen_tail, pg);
1019 if (NULL != pg->feedback_task)
1021 GNUNET_SCHEDULER_cancel (pg->feedback_task);
1022 pg->feedback_task = NULL;
1025 if (NULL != pg->set_task)
1027 GNUNET_SCHEDULER_cancel (pg->set_task);
1028 pg->set_task = NULL;
1030 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
1031 "Removing old up preference generator peer [%u] `%s'\n",
1032 pg->peer, GNUNET_ATS_print_preference_type(pg->kind));
1038 find_active_address (struct TestPeer *p)
1040 struct TestAddress *cur;
1041 for (cur = p->addr_head; NULL != cur; cur = cur->next)
1042 if (GNUNET_YES == cur->ats_addr->active)
1048 * Generate between the source master and the partner and set property with a
1049 * value depending on the generator.
1051 * @param peer source
1052 * @param address_id partner
1053 * @param client_id the client
1054 * @param type type of generator
1055 * @param base_value base value
1056 * @param value_rate maximum value
1057 * @param period duration of a period of generation (~ 1/frequency)
1058 * @param frequency how long to generate property
1059 * @param kind ATS preference to generate
1060 * @param feedback_frequency how often to give feedback
1061 * @return the preference generator
1063 struct PreferenceGenerator *
1064 GNUNET_ATS_solver_generate_preferences_start (unsigned int peer,
1065 unsigned int address_id,
1066 unsigned int client_id,
1067 enum GeneratorType type,
1068 long int base_value,
1069 long int value_rate,
1070 struct GNUNET_TIME_Relative period,
1071 struct GNUNET_TIME_Relative frequency,
1072 enum GNUNET_ATS_PreferenceKind kind,
1073 struct GNUNET_TIME_Relative feedback_frequency)
1075 struct PreferenceGenerator *pg;
1078 if (NULL == (p = find_peer_by_id (peer)))
1081 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
1082 "Starting preference for unknown peer %u\n", peer);
1086 pg = GNUNET_new (struct PreferenceGenerator);
1087 GNUNET_CONTAINER_DLL_insert (pref_gen_head, pref_gen_tail, pg);
1090 pg->client_id = client_id;
1092 pg->base_value = base_value;
1093 pg->max_value = value_rate;
1094 pg->duration_period = period;
1095 pg->frequency = frequency;
1096 pg->time_start = GNUNET_TIME_absolute_get();
1097 pg->feedback_frequency = feedback_frequency;
1100 case GNUNET_ATS_TEST_TG_CONSTANT:
1101 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
1102 "Setting up %s preference generator peer [%u] `%s' max %u Bips\n",
1103 print_generator_type (type), pg->peer,
1104 GNUNET_ATS_print_preference_type(kind),
1107 case GNUNET_ATS_TEST_TG_LINEAR:
1108 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
1109 "Setting up %s preference generator peer [%u] `%s' min %u Bips max %u Bips\n",
1110 print_generator_type (type), pg->peer, GNUNET_ATS_print_preference_type(kind),
1111 base_value, value_rate);
1113 case GNUNET_ATS_TEST_TG_SINUS:
1114 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
1115 "Setting up %s preference generator peer [%u] `%s' baserate %u Bips, amplitude %u Bps\n",
1116 print_generator_type (type), pg->peer, GNUNET_ATS_print_preference_type(kind),
1117 base_value, value_rate);
1119 case GNUNET_ATS_TEST_TG_RANDOM:
1120 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
1121 "Setting up %s preference generator peer [%u] `%s' min %u Bips max %u Bps\n",
1122 print_generator_type (type), pg->peer, GNUNET_ATS_print_preference_type(kind),
1123 base_value, value_rate);
1129 pg->set_task = GNUNET_SCHEDULER_add_now (&set_pref_task, pg);
1130 if (GNUNET_TIME_UNIT_FOREVER_REL.rel_value_us != feedback_frequency.rel_value_us)
1132 struct TestAddress * addr = find_active_address(p);
1133 const double *properties = get_property_cb (NULL, addr->ats_addr);
1135 pg->last_assigned_bw_in = p->assigned_bw_in;
1136 pg->last_assigned_bw_out = p->assigned_bw_out;
1137 pg->feedback_bw_in_acc = 0;
1138 pg->feedback_bw_out_acc = 0;
1140 pg->last_delay_value = properties[GNUNET_ATS_QUALITY_NET_DELAY];
1141 pg->feedback_delay_acc = 0;
1143 pg->feedback_last_bw_update = GNUNET_TIME_absolute_get();
1144 pg->feedback_last_delay_update = GNUNET_TIME_absolute_get();
1145 pg->feedback_last = GNUNET_TIME_absolute_get();
1146 pg->feedback_task = GNUNET_SCHEDULER_add_delayed (feedback_frequency,
1147 &set_feedback_task, pg);
1156 * Stop all preferences generators
1159 GNUNET_ATS_solver_generate_preferences_stop_all ()
1161 struct PreferenceGenerator *cur;
1162 struct PreferenceGenerator *next;
1163 next = pref_gen_head;
1164 for (cur = next; NULL != cur; cur = next)
1167 GNUNET_ATS_solver_generate_preferences_stop(cur);
1178 print_op (enum OperationType op)
1181 case SOLVER_OP_ADD_ADDRESS:
1182 return "ADD_ADDRESS";
1183 case SOLVER_OP_DEL_ADDRESS:
1184 return "DEL_ADDRESS";
1185 case SOLVER_OP_START_SET_PREFERENCE:
1186 return "START_SET_PREFERENCE";
1187 case SOLVER_OP_STOP_SET_PREFERENCE:
1188 return "STOP_STOP_PREFERENCE";
1189 case SOLVER_OP_START_SET_PROPERTY:
1190 return "START_SET_PROPERTY";
1191 case SOLVER_OP_STOP_SET_PROPERTY:
1192 return "STOP_SET_PROPERTY";
1193 case SOLVER_OP_START_REQUEST:
1194 return "START_REQUEST";
1195 case SOLVER_OP_STOP_REQUEST:
1196 return "STOP_REQUEST";
1203 static struct Experiment *
1204 create_experiment ()
1206 struct Experiment *e;
1207 e = GNUNET_new (struct Experiment);
1210 e->total_duration = GNUNET_TIME_UNIT_ZERO;
1215 free_experiment (struct Experiment *e)
1217 struct Episode *cur;
1218 struct Episode *next;
1219 struct GNUNET_ATS_TEST_Operation *cur_o;
1220 struct GNUNET_ATS_TEST_Operation *next_o;
1223 for (cur = next; NULL != cur; cur = next)
1228 for (cur_o = next_o; NULL != cur_o; cur_o = next_o)
1230 next_o = cur_o->next;
1231 GNUNET_free_non_null (cur_o->address);
1232 GNUNET_free_non_null (cur_o->plugin);
1233 GNUNET_free (cur_o);
1238 GNUNET_free_non_null (e->name);
1239 GNUNET_free_non_null (e->log_prefix);
1240 GNUNET_free_non_null (e->log_output_dir);
1241 GNUNET_free_non_null (e->cfg_file);
1247 load_op_add_address (struct GNUNET_ATS_TEST_Operation *o,
1251 const struct GNUNET_CONFIGURATION_Handle *cfg)
1257 GNUNET_asprintf(&op_name, "op-%u-peer-id", op_counter);
1258 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1259 sec_name, op_name, &o->peer_id))
1261 fprintf (stderr, "Missing peer-id in operation %u `%s' in episode `%s'\n",
1262 op_counter, "ADD_ADDRESS", op_name);
1263 GNUNET_free (op_name);
1264 return GNUNET_SYSERR;
1266 GNUNET_free (op_name);
1269 GNUNET_asprintf(&op_name, "op-%u-address-id", op_counter);
1270 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1271 sec_name, op_name, &o->address_id))
1273 fprintf (stderr, "Missing address-id in operation %u `%s' in episode `%s'\n",
1274 op_counter, "ADD_ADDRESS", op_name);
1275 GNUNET_free (op_name);
1276 return GNUNET_SYSERR;
1278 GNUNET_free (op_name);
1281 GNUNET_asprintf(&op_name, "op-%u-plugin", op_counter);
1282 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (cfg,
1283 sec_name, op_name, &o->plugin))
1285 fprintf (stderr, "Missing plugin in operation %u `%s' in episode `%s'\n",
1286 op_counter, "ADD_ADDRESS", op_name);
1287 GNUNET_free (op_name);
1288 return GNUNET_SYSERR;
1290 GNUNET_free (op_name);
1293 GNUNET_asprintf(&op_name, "op-%u-address", op_counter);
1294 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (cfg,
1295 sec_name, op_name, &o->address))
1297 fprintf (stderr, "Missing address in operation %u `%s' in episode `%s'\n",
1298 op_counter, "ADD_ADDRESS", op_name);
1299 GNUNET_free (op_name);
1300 return GNUNET_SYSERR;
1302 GNUNET_free (op_name);
1305 GNUNET_asprintf(&op_name, "op-%u-address-session", op_counter);
1306 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1307 sec_name, op_name, &o->address_session))
1309 fprintf (stderr, "Missing address-session in operation %u `%s' in episode `%s'\n",
1310 op_counter, "ADD_ADDRESS", op_name);
1311 GNUNET_free (op_name);
1312 return GNUNET_SYSERR;
1314 GNUNET_free (op_name);
1317 GNUNET_asprintf(&op_name, "op-%u-address-network", op_counter);
1318 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (cfg,
1319 sec_name, op_name, &op_network))
1321 fprintf (stderr, "Missing address-network in operation %u `%s' in episode `%s'\n",
1322 op_counter, "ADD_ADDRESS", op_name);
1323 GNUNET_free (op_name);
1324 return GNUNET_SYSERR;
1328 GNUNET_STRINGS_utf8_toupper (op_network,op_network);
1329 if (0 == strcmp(op_network, "UNSPECIFIED"))
1331 o->address_network = GNUNET_ATS_NET_UNSPECIFIED;
1333 else if (0 == strcmp(op_network, "LOOPBACK"))
1335 o->address_network = GNUNET_ATS_NET_LOOPBACK;
1337 else if (0 == strcmp(op_network, "LAN"))
1339 o->address_network = GNUNET_ATS_NET_LAN;
1341 else if (0 == strcmp(op_network, "WAN"))
1343 o->address_network = GNUNET_ATS_NET_WAN;
1345 else if (0 == strcmp(op_network, "WLAN"))
1347 o->address_network = GNUNET_ATS_NET_WLAN;
1349 else if (0 == strcmp(op_network, "BT"))
1351 o->address_network = GNUNET_ATS_NET_BT;
1355 fprintf (stderr, "Invalid address-network in operation %u `%s' in episode `%s': `%s'\n",
1356 op_counter, "ADD_ADDRESS", op_name, op_network);
1357 GNUNET_free (op_network);
1358 GNUNET_free (op_name);
1359 return GNUNET_SYSERR;
1362 GNUNET_free (op_network);
1363 GNUNET_free (op_name);
1365 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
1366 "Found operation %s: [%llu:%llu] address `%s' plugin `%s' \n",
1367 "ADD_ADDRESS", o->peer_id, o->address_id, o->address, o->plugin);
1373 load_op_del_address (struct GNUNET_ATS_TEST_Operation *o,
1377 const struct GNUNET_CONFIGURATION_Handle *cfg)
1383 GNUNET_asprintf(&op_name, "op-%u-peer-id", op_counter);
1384 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1385 sec_name, op_name, &o->peer_id))
1387 fprintf (stderr, "Missing peer-id in operation %u `%s' in episode `%s'\n",
1388 op_counter, "DEL_ADDRESS", op_name);
1389 GNUNET_free (op_name);
1390 return GNUNET_SYSERR;
1392 GNUNET_free (op_name);
1395 GNUNET_asprintf(&op_name, "op-%u-address-id", op_counter);
1396 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1397 sec_name, op_name, &o->address_id))
1399 fprintf (stderr, "Missing address-id in operation %u `%s' in episode `%s'\n",
1400 op_counter, "DEL_ADDRESS", op_name);
1401 GNUNET_free (op_name);
1402 return GNUNET_SYSERR;
1404 GNUNET_free (op_name);
1408 GNUNET_asprintf(&op_name, "op-%u-plugin", op_counter);
1409 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (cfg,
1410 sec_name, op_name, &o->plugin))
1412 fprintf (stderr, "Missing plugin in operation %u `%s' in episode `%s'\n",
1413 op_counter, "DEL_ADDRESS", op_name);
1414 GNUNET_free (op_name);
1415 return GNUNET_SYSERR;
1417 GNUNET_free (op_name);
1420 GNUNET_asprintf(&op_name, "op-%u-address", op_counter);
1421 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (cfg,
1422 sec_name, op_name, &o->address))
1424 fprintf (stderr, "Missing address in operation %u `%s' in episode `%s'\n",
1425 op_counter, "DEL_ADDRESS", op_name);
1426 GNUNET_free (op_name);
1427 return GNUNET_SYSERR;
1429 GNUNET_free (op_name);
1432 GNUNET_asprintf(&op_name, "op-%u-address-session", op_counter);
1433 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1434 sec_name, op_name, &o->address_session))
1436 fprintf (stderr, "Missing address-session in operation %u `%s' in episode `%s'\n",
1437 op_counter, "DEL_ADDRESS", op_name);
1438 GNUNET_free (op_name);
1439 return GNUNET_SYSERR;
1441 GNUNET_free (op_name);
1444 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
1445 "Found operation %s: [%llu:%llu] address `%s' plugin `%s' \n",
1446 "DEL_ADDRESS", o->peer_id, o->address_id, o->address, o->plugin);
1451 static enum GNUNET_ATS_Property
1452 parse_preference_string (const char * str)
1455 char *props[GNUNET_ATS_PreferenceCount] = GNUNET_ATS_PreferenceTypeString;
1457 for (c = 0; c < GNUNET_ATS_PreferenceCount; c++)
1458 if (0 == strcmp(str, props[c]))
1464 load_op_start_set_preference (struct GNUNET_ATS_TEST_Operation *o,
1468 const struct GNUNET_CONFIGURATION_Handle *cfg)
1475 GNUNET_asprintf(&op_name, "op-%u-peer-id", op_counter);
1476 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1477 sec_name, op_name, &o->peer_id))
1479 fprintf (stderr, "Missing peer-id in operation %u `%s' in episode `%s'\n",
1480 op_counter, "START_SET_PREFERENCE", op_name);
1481 GNUNET_free (op_name);
1482 return GNUNET_SYSERR;
1484 GNUNET_free (op_name);
1487 GNUNET_asprintf(&op_name, "op-%u-client-id", op_counter);
1488 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1489 sec_name, op_name, &o->client_id))
1491 fprintf (stderr, "Missing client-id in operation %u `%s' in episode `%s'\n",
1492 op_counter, "START_SET_PREFERENCE", op_name);
1493 GNUNET_free (op_name);
1494 return GNUNET_SYSERR;
1496 GNUNET_free (op_name);
1499 GNUNET_asprintf(&op_name, "op-%u-gen-type", op_counter);
1500 if ( (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string(cfg,
1501 sec_name, op_name, &type)) )
1503 fprintf (stderr, "Missing type in operation %u `%s' in episode `%s'\n",
1504 op_counter, "START_SET_PREFERENCE", op_name);
1505 GNUNET_free (op_name);
1506 return GNUNET_SYSERR;
1509 /* Load arguments for set_rate, start_send, set_preference */
1510 if (0 == strcmp (type, "constant"))
1512 o->gen_type = GNUNET_ATS_TEST_TG_CONSTANT;
1514 else if (0 == strcmp (type, "linear"))
1516 o->gen_type = GNUNET_ATS_TEST_TG_LINEAR;
1518 else if (0 == strcmp (type, "sinus"))
1520 o->gen_type = GNUNET_ATS_TEST_TG_SINUS;
1522 else if (0 == strcmp (type, "random"))
1524 o->gen_type = GNUNET_ATS_TEST_TG_RANDOM;
1528 fprintf (stderr, "Invalid generator type %u `%s' in episode %u\n",
1529 op_counter, op_name, e->id);
1531 GNUNET_free (op_name);
1532 return GNUNET_SYSERR;
1535 GNUNET_free (op_name);
1539 GNUNET_asprintf(&op_name, "op-%u-base-rate", op_counter);
1540 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1541 sec_name, op_name, &o->base_rate))
1543 fprintf (stderr, "Missing base rate in operation %u `%s' in episode %u\n",
1544 op_counter, op_name, e->id);
1545 GNUNET_free (op_name);
1546 return GNUNET_SYSERR;
1548 GNUNET_free (op_name);
1552 GNUNET_asprintf(&op_name, "op-%u-max-rate", op_counter);
1553 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1554 sec_name, op_name, &o->max_rate))
1556 if ((GNUNET_ATS_TEST_TG_LINEAR == o->gen_type) ||
1557 (GNUNET_ATS_TEST_TG_RANDOM == o->gen_type) ||
1558 (GNUNET_ATS_TEST_TG_SINUS == o->gen_type))
1560 fprintf (stderr, "Missing max rate in operation %u `%s' in episode %u\n",
1561 op_counter, op_name, e->id);
1562 GNUNET_free (op_name);
1563 return GNUNET_SYSERR;
1566 GNUNET_free (op_name);
1569 GNUNET_asprintf(&op_name, "op-%u-period", op_counter);
1570 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time (cfg,
1571 sec_name, op_name, &o->period))
1573 o->period = e->duration;
1575 GNUNET_free (op_name);
1578 GNUNET_asprintf(&op_name, "op-%u-frequency", op_counter);
1579 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time (cfg,
1580 sec_name, op_name, &o->frequency))
1582 fprintf (stderr, "Missing frequency in operation %u `%s' in episode %u\n",
1583 op_counter, op_name, e->id);
1584 GNUNET_free (op_name);
1585 return GNUNET_SYSERR;
1587 GNUNET_free (op_name);
1589 /* Get preference */
1590 GNUNET_asprintf(&op_name, "op-%u-pref", op_counter);
1591 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (cfg,
1592 sec_name, op_name, &pref))
1594 fprintf (stderr, "Missing preference in operation %u `%s' in episode %u\n",
1595 op_counter, op_name, e->id);
1596 GNUNET_free (op_name);
1597 return GNUNET_SYSERR;
1600 if (0 == (o->pref_type = parse_preference_string(pref)))
1602 fprintf (stderr, "Invalid preference in operation %u `%s' in episode %u\n",
1603 op_counter, op_name, e->id);
1604 GNUNET_free (op_name);
1606 return GNUNET_SYSERR;
1609 GNUNET_free (op_name);
1611 /* Get feedback delay */
1612 GNUNET_asprintf(&op_name, "op-%u-feedback_delay", op_counter);
1613 if (GNUNET_OK == GNUNET_CONFIGURATION_get_value_time (cfg,
1614 sec_name, op_name, &o->feedback_delay))
1616 fprintf (stderr, "Using feedback delay %llu in operation %u `%s' in episode %u\n",
1617 (long long unsigned int) o->feedback_delay.rel_value_us,
1618 op_counter, op_name, e->id);
1621 o->feedback_delay = GNUNET_TIME_UNIT_FOREVER_REL;
1622 GNUNET_free (op_name);
1624 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
1625 "Found operation %s: [%llu:%llu]: %s = %llu\n",
1626 "START_SET_PREFERENCE", o->peer_id, o->address_id,
1627 GNUNET_ATS_print_preference_type(o->pref_type), o->base_rate);
1633 load_op_stop_set_preference (struct GNUNET_ATS_TEST_Operation *o,
1637 const struct GNUNET_CONFIGURATION_Handle *cfg)
1643 GNUNET_asprintf(&op_name, "op-%u-peer-id", op_counter);
1644 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1645 sec_name, op_name, &o->peer_id))
1647 fprintf (stderr, "Missing peer-id in operation %u `%s' in episode `%s'\n",
1648 op_counter, "STOP_SET_PREFERENCE", op_name);
1649 GNUNET_free (op_name);
1650 return GNUNET_SYSERR;
1652 GNUNET_free (op_name);
1655 GNUNET_asprintf(&op_name, "op-%u-address-id", op_counter);
1656 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1657 sec_name, op_name, &o->address_id))
1659 fprintf (stderr, "Missing address-id in operation %u `%s' in episode `%s'\n",
1660 op_counter, "STOP_SET_PREFERENCE", op_name);
1661 GNUNET_free (op_name);
1662 return GNUNET_SYSERR;
1664 GNUNET_free (op_name);
1666 /* Get preference */
1667 GNUNET_asprintf(&op_name, "op-%u-pref", op_counter);
1668 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (cfg,
1669 sec_name, op_name, &pref))
1671 fprintf (stderr, "Missing preference in operation %u `%s' in episode `%s'\n",
1672 op_counter, "STOP_SET_PREFERENCE", op_name);
1673 GNUNET_free (op_name);
1674 return GNUNET_SYSERR;
1677 if (0 == (o->pref_type = parse_preference_string(pref)))
1679 fprintf (stderr, "Invalid preference in operation %u `%s' in episode %u\n",
1680 op_counter, op_name, e->id);
1681 GNUNET_free (op_name);
1683 return GNUNET_SYSERR;
1686 GNUNET_free (op_name);
1688 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
1689 "Found operation %s: [%llu:%llu]: %s\n",
1690 "STOP_SET_PREFERENCE", o->peer_id, o->address_id,
1691 GNUNET_ATS_print_preference_type(o->pref_type));
1696 static enum GNUNET_ATS_Property
1697 parse_property_string (const char *str)
1699 enum GNUNET_ATS_Property c;
1701 for (c = 0; c < GNUNET_ATS_PropertyCount; c++)
1702 if (0 == strcmp(str,
1703 GNUNET_ATS_print_property_type (c)))
1710 load_op_start_set_property(struct GNUNET_ATS_TEST_Operation *o,
1714 const struct GNUNET_CONFIGURATION_Handle *cfg)
1721 GNUNET_asprintf(&op_name, "op-%u-peer-id", op_counter);
1722 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1723 sec_name, op_name, &o->peer_id))
1725 fprintf (stderr, "Missing peer-id in operation %u `%s' in episode `%s'\n",
1726 op_counter, "START_SET_PROPERTY", op_name);
1727 GNUNET_free (op_name);
1728 return GNUNET_SYSERR;
1730 GNUNET_free (op_name);
1733 GNUNET_asprintf(&op_name, "op-%u-address-id", op_counter);
1734 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1735 sec_name, op_name, &o->address_id))
1737 fprintf (stderr, "Missing address-id in operation %u `%s' in episode `%s'\n",
1738 op_counter, "START_SET_PROPERTY", op_name);
1739 GNUNET_free (op_name);
1740 return GNUNET_SYSERR;
1742 GNUNET_free (op_name);
1745 GNUNET_asprintf(&op_name, "op-%u-gen-type", op_counter);
1746 if ( (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string(cfg,
1747 sec_name, op_name, &type)) )
1749 fprintf (stderr, "Missing type in operation %u `%s' in episode `%s'\n",
1750 op_counter, "START_SET_PROPERTY", op_name);
1751 GNUNET_free (op_name);
1752 return GNUNET_SYSERR;
1755 /* Load arguments for set_rate, start_send, set_preference */
1756 if (0 == strcmp (type, "constant"))
1758 o->gen_type = GNUNET_ATS_TEST_TG_CONSTANT;
1760 else if (0 == strcmp (type, "linear"))
1762 o->gen_type = GNUNET_ATS_TEST_TG_LINEAR;
1764 else if (0 == strcmp (type, "sinus"))
1766 o->gen_type = GNUNET_ATS_TEST_TG_SINUS;
1768 else if (0 == strcmp (type, "random"))
1770 o->gen_type = GNUNET_ATS_TEST_TG_RANDOM;
1774 fprintf (stderr, "Invalid generator type %u `%s' in episode %u\n",
1775 op_counter, op_name, e->id);
1777 GNUNET_free (op_name);
1778 return GNUNET_SYSERR;
1781 GNUNET_free (op_name);
1785 GNUNET_asprintf(&op_name, "op-%u-base-rate", op_counter);
1786 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1787 sec_name, op_name, &o->base_rate))
1789 fprintf (stderr, "Missing base rate in operation %u `%s' in episode %u\n",
1790 op_counter, op_name, e->id);
1791 GNUNET_free (op_name);
1792 return GNUNET_SYSERR;
1794 GNUNET_free (op_name);
1798 GNUNET_asprintf(&op_name, "op-%u-max-rate", op_counter);
1799 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1800 sec_name, op_name, &o->max_rate))
1802 if ((GNUNET_ATS_TEST_TG_LINEAR == o->gen_type) ||
1803 (GNUNET_ATS_TEST_TG_RANDOM == o->gen_type) ||
1804 (GNUNET_ATS_TEST_TG_SINUS == o->gen_type))
1806 fprintf (stderr, "Missing max rate in operation %u `%s' in episode %u\n",
1807 op_counter, op_name, e->id);
1808 GNUNET_free (op_name);
1809 return GNUNET_SYSERR;
1812 GNUNET_free (op_name);
1815 GNUNET_asprintf(&op_name, "op-%u-period", op_counter);
1816 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time (cfg,
1817 sec_name, op_name, &o->period))
1819 o->period = e->duration;
1821 GNUNET_free (op_name);
1824 GNUNET_asprintf(&op_name, "op-%u-frequency", op_counter);
1825 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time (cfg,
1826 sec_name, op_name, &o->frequency))
1828 fprintf (stderr, "Missing frequency in operation %u `%s' in episode %u\n",
1829 op_counter, op_name, e->id);
1830 GNUNET_free (op_name);
1831 return GNUNET_SYSERR;
1833 GNUNET_free (op_name);
1835 /* Get preference */
1836 GNUNET_asprintf(&op_name, "op-%u-property", op_counter);
1837 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (cfg,
1838 sec_name, op_name, &prop))
1840 fprintf (stderr, "Missing property in operation %u `%s' in episode %u\n",
1841 op_counter, op_name, e->id);
1842 GNUNET_free (op_name);
1843 GNUNET_free_non_null (prop);
1844 return GNUNET_SYSERR;
1847 if (0 == (o->prop_type = parse_property_string(prop)))
1849 fprintf (stderr, "Invalid property in operation %u `%s' in episode %u\n",
1850 op_counter, op_name, e->id);
1851 GNUNET_free (op_name);
1853 return GNUNET_SYSERR;
1857 GNUNET_free (op_name);
1859 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
1860 "Found operation %s: [%llu:%llu] %s = %llu\n",
1861 "START_SET_PROPERTY", o->peer_id, o->address_id,
1862 GNUNET_ATS_print_property_type (o->prop_type), o->base_rate);
1868 load_op_stop_set_property (struct GNUNET_ATS_TEST_Operation *o,
1872 const struct GNUNET_CONFIGURATION_Handle *cfg)
1878 GNUNET_asprintf(&op_name, "op-%u-peer-id", op_counter);
1879 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1880 sec_name, op_name, &o->peer_id))
1882 fprintf (stderr, "Missing peer-id in operation %u `%s' in episode `%s'\n",
1883 op_counter, "STOP_SET_PROPERTY", op_name);
1884 GNUNET_free (op_name);
1885 return GNUNET_SYSERR;
1887 GNUNET_free (op_name);
1890 GNUNET_asprintf(&op_name, "op-%u-address-id", op_counter);
1891 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1892 sec_name, op_name, &o->address_id))
1894 fprintf (stderr, "Missing address-id in operation %u `%s' in episode `%s'\n",
1895 op_counter, "STOP_SET_PROPERTY", op_name);
1896 GNUNET_free (op_name);
1897 return GNUNET_SYSERR;
1899 GNUNET_free (op_name);
1902 GNUNET_asprintf(&op_name, "op-%u-property", op_counter);
1903 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (cfg,
1904 sec_name, op_name, &pref))
1906 fprintf (stderr, "Missing property in operation %u `%s' in episode `%s'\n",
1907 op_counter, "STOP_SET_PROPERTY", op_name);
1908 GNUNET_free (op_name);
1909 GNUNET_free_non_null (pref);
1910 return GNUNET_SYSERR;
1913 if (0 == (o->prop_type = parse_property_string(pref)))
1915 fprintf (stderr, "Invalid property in operation %u `%s' in episode %u\n",
1916 op_counter, op_name, e->id);
1917 GNUNET_free (op_name);
1918 GNUNET_free_non_null (pref);
1919 return GNUNET_SYSERR;
1923 GNUNET_free (op_name);
1925 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
1926 "Found operation %s: [%llu:%llu] %s\n",
1927 "STOP_SET_PROPERTY", o->peer_id, o->address_id,
1928 GNUNET_ATS_print_property_type (o->prop_type));
1935 load_op_start_request (struct GNUNET_ATS_TEST_Operation *o,
1939 const struct GNUNET_CONFIGURATION_Handle *cfg)
1944 GNUNET_asprintf(&op_name, "op-%u-peer-id", op_counter);
1945 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1946 sec_name, op_name, &o->peer_id))
1948 fprintf (stderr, "Missing peer-id in operation %u `%s' in episode `%s'\n",
1949 op_counter, "START_REQUEST", op_name);
1950 GNUNET_free (op_name);
1951 return GNUNET_SYSERR;
1953 GNUNET_free (op_name);
1958 load_op_stop_request (struct GNUNET_ATS_TEST_Operation *o,
1962 const struct GNUNET_CONFIGURATION_Handle *cfg)
1967 GNUNET_asprintf(&op_name, "op-%u-peer-id", op_counter);
1968 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (cfg,
1969 sec_name, op_name, &o->peer_id))
1971 fprintf (stderr, "Missing peer-id in operation %u `%s' in episode `%s'\n",
1972 op_counter, "STOP_REQUEST", op_name);
1973 GNUNET_free (op_name);
1974 return GNUNET_SYSERR;
1976 GNUNET_free (op_name);
1982 load_episode (struct Experiment *e, struct Episode *cur,
1983 struct GNUNET_CONFIGURATION_Handle *cfg)
1985 struct GNUNET_ATS_TEST_Operation *o;
1991 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "=== Parsing episode %u\n",cur->id);
1992 GNUNET_asprintf(&sec_name, "episode-%u", cur->id);
1996 /* Load operation */
1997 GNUNET_asprintf(&op_name, "op-%u-operation", op_counter);
1998 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string(cfg,
1999 sec_name, op_name, &op))
2001 GNUNET_free (op_name);
2004 o = GNUNET_new (struct GNUNET_ATS_TEST_Operation);
2005 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "==== Parsing operation %u: `%s'\n",
2008 /* operations = set_rate, start_send, stop_send, set_preference */
2009 if (0 == strcmp (op, "address_add"))
2011 o->type = SOLVER_OP_ADD_ADDRESS;
2012 res = load_op_add_address (o, cur,
2013 op_counter, sec_name, cfg);
2015 else if (0 == strcmp (op, "address_del"))
2017 o->type = SOLVER_OP_DEL_ADDRESS;
2018 res = load_op_del_address (o, cur,
2019 op_counter, sec_name, cfg);
2021 else if (0 == strcmp (op, "start_set_property"))
2023 o->type = SOLVER_OP_START_SET_PROPERTY;
2024 res = load_op_start_set_property (o, cur,
2025 op_counter, sec_name, cfg);
2027 else if (0 == strcmp (op, "stop_set_property"))
2029 o->type = SOLVER_OP_STOP_SET_PROPERTY;
2030 res = load_op_stop_set_property (o, cur,
2031 op_counter, sec_name, cfg);
2033 else if (0 == strcmp (op, "start_set_preference"))
2035 o->type = SOLVER_OP_START_SET_PREFERENCE;
2036 res = load_op_start_set_preference (o, cur,
2037 op_counter, sec_name, cfg);
2039 else if (0 == strcmp (op, "stop_set_preference"))
2041 o->type = SOLVER_OP_STOP_SET_PREFERENCE;
2042 res = load_op_stop_set_preference (o, cur,
2043 op_counter, sec_name, cfg);
2045 else if (0 == strcmp (op, "start_request"))
2047 o->type = SOLVER_OP_START_REQUEST;
2048 res = load_op_start_request (o, cur,
2049 op_counter, sec_name, cfg);
2051 else if (0 == strcmp (op, "stop_request"))
2053 o->type = SOLVER_OP_STOP_REQUEST;
2054 res = load_op_stop_request(o, cur,
2055 op_counter, sec_name, cfg);
2059 fprintf (stderr, "Invalid operation %u `%s' in episode %u\n",
2060 op_counter, op, cur->id);
2061 res = GNUNET_SYSERR;
2065 GNUNET_free (op_name);
2067 if (GNUNET_SYSERR == res)
2070 GNUNET_free (sec_name);
2071 return GNUNET_SYSERR;
2074 GNUNET_CONTAINER_DLL_insert_tail (cur->head,cur->tail, o);
2077 GNUNET_free (sec_name);
2082 load_episodes (struct Experiment *e, struct GNUNET_CONFIGURATION_Handle *cfg)
2086 struct GNUNET_TIME_Relative e_duration;
2087 struct Episode *cur;
2088 struct Episode *last;
2094 GNUNET_asprintf(&sec_name, "episode-%u", e_counter);
2095 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time(cfg,
2096 sec_name, "duration", &e_duration))
2098 GNUNET_free (sec_name);
2102 cur = GNUNET_new (struct Episode);
2103 cur->duration = e_duration;
2104 cur->id = e_counter;
2106 if (GNUNET_OK != load_episode (e, cur, cfg))
2108 GNUNET_free (sec_name);
2110 return GNUNET_SYSERR;
2113 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Found episode %u with duration %s \n",
2115 GNUNET_STRINGS_relative_time_to_string(cur->duration, GNUNET_YES));
2117 /* Update experiment */
2119 e->total_duration = GNUNET_TIME_relative_add(e->total_duration, cur->duration);
2120 /* Put in linked list */
2126 GNUNET_free (sec_name);
2134 timeout_experiment (void *cls, const struct GNUNET_SCHEDULER_TaskContext* tc)
2136 struct Experiment *e = cls;
2137 e->experiment_timeout_task = NULL;
2138 fprintf (stderr, "Experiment timeout!\n");
2140 if (NULL != e->episode_timeout_task)
2142 GNUNET_SCHEDULER_cancel (e->episode_timeout_task);
2143 e->episode_timeout_task = NULL;
2146 e->e_done_cb (e, GNUNET_TIME_absolute_get_duration(e->start_time),
2150 struct ATS_Address *
2151 create_ats_address (const struct GNUNET_PeerIdentity *peer,
2152 const char *plugin_name,
2153 const void *plugin_addr,
2154 size_t plugin_addr_len,
2155 uint32_t session_id,
2158 struct ATS_Address *aa = NULL;
2160 aa = GNUNET_malloc (sizeof (struct ATS_Address) + plugin_addr_len + strlen (plugin_name) + 1);
2161 aa->atsi = GNUNET_new (struct GNUNET_ATS_Information);
2162 aa->atsi[0].type = htonl (GNUNET_ATS_NETWORK_TYPE);
2163 aa->atsi[0].value = htonl (network);
2167 aa->addr_len = plugin_addr_len;
2169 aa->plugin = (char *) &aa[1] + plugin_addr_len;
2170 memcpy (&aa[1], plugin_addr, plugin_addr_len);
2171 memcpy (aa->plugin, plugin_name, strlen (plugin_name) + 1);
2172 aa->session_id = session_id;
2173 aa->active = GNUNET_NO;
2174 aa->used = GNUNET_NO;
2175 aa->solver_information = NULL;
2176 aa->assigned_bw_in = 0;
2177 aa->assigned_bw_out = 0;
2185 enforce_add_address (struct GNUNET_ATS_TEST_Operation *op)
2188 struct TestAddress *a;
2191 if (NULL == (p = find_peer_by_id (op->peer_id)))
2193 p = GNUNET_new (struct TestPeer);
2194 p->id = op->peer_id;
2195 p->assigned_bw_in = 0;
2196 p->assigned_bw_out = 0;
2197 memset (&p->peer_id, op->peer_id, sizeof (p->peer_id));
2198 for (c = 0; c < GNUNET_ATS_PreferenceCount; c++)
2200 p->pref_abs[c] = DEFAULT_ABS_PREFERENCE;
2201 p->pref_norm[c] = DEFAULT_REL_PREFERENCE;
2204 GNUNET_CONTAINER_DLL_insert (peer_head, peer_tail, p);
2207 if (NULL != (find_address_by_id (p, op->address_id)))
2209 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Duplicate address %u for peer %u\n",
2210 op->address_id, op->peer_id);
2214 a = GNUNET_new (struct TestAddress);
2215 a->aid = op->address_id;
2216 a->network = op->address_network;
2217 a->ats_addr = create_ats_address (&p->peer_id, op->plugin, op->address,
2218 strlen (op->address) + 1, op->address_session, op->address_network);
2219 memset (&p->peer_id, op->peer_id, sizeof (p->peer_id));
2220 GNUNET_CONTAINER_DLL_insert_tail (p->addr_head, p->addr_tail, a);
2222 for (c = 0; c < GNUNET_ATS_PropertyCount; c++)
2223 a->prop_norm[c] = DEFAULT_REL_QUALITY;
2225 GNUNET_CONTAINER_multipeermap_put (sh->addresses, &p->peer_id, a->ats_addr,
2226 GNUNET_CONTAINER_MULTIHASHMAPOPTION_MULTIPLE);
2228 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Adding address %u for peer %u in network `%s'\n",
2229 op->address_id, op->peer_id, GNUNET_ATS_print_network_type(a->network));
2231 sh->sf->s_add (sh->sf->cls, a->ats_addr, op->address_network);
2237 enforce_del_address (struct GNUNET_ATS_TEST_Operation *op)
2240 struct TestAddress *a;
2241 struct PropertyGenerator *pg;
2243 if (NULL == (p = find_peer_by_id (op->peer_id)))
2246 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2247 "Deleting address for unknown peer %u\n", op->peer_id);
2251 if (NULL == (a =find_address_by_id (p, op->address_id)))
2254 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2255 "Deleting address for unknown peer %u\n", op->peer_id);
2259 while (NULL != (pg = find_prop_gen (p->id, a->aid, 0)))
2261 GNUNET_ATS_solver_generate_property_stop (pg);
2264 GNUNET_assert (GNUNET_YES ==
2265 GNUNET_CONTAINER_multipeermap_remove (sh->addresses,
2268 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
2269 "Removing address %u for peer %u\n",
2273 sh->sf->s_del (sh->sf->cls, a->ats_addr, GNUNET_NO);
2277 GNUNET_ATS_solver_logging_now (l);
2279 GNUNET_CONTAINER_DLL_remove(p->addr_head, p->addr_tail, a);
2281 GNUNET_free_non_null(a->ats_addr->atsi);
2282 GNUNET_free (a->ats_addr);
2288 enforce_start_property (struct GNUNET_ATS_TEST_Operation *op)
2290 struct PropertyGenerator *pg;
2292 struct TestAddress *a;
2294 if (NULL != (pg = find_prop_gen (op->peer_id, op->address_id, op->prop_type)))
2296 GNUNET_ATS_solver_generate_property_stop (pg);
2300 if (NULL == (p = find_peer_by_id (op->peer_id)))
2303 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2304 "Starting property generation for unknown peer %u\n", op->peer_id);
2308 if (NULL == (a = find_address_by_id (p, op->address_id)))
2311 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2312 "Setting property for unknown address %u\n", op->peer_id);
2316 GNUNET_ATS_solver_generate_property_start (op->peer_id,
2328 enforce_stop_property (struct GNUNET_ATS_TEST_Operation *op)
2330 struct PropertyGenerator *pg = find_prop_gen(op->peer_id, op->address_id,
2334 GNUNET_log(GNUNET_ERROR_TYPE_INFO,
2335 "Stopping preference generation for peer %u address %u\n", op->peer_id,
2337 GNUNET_ATS_solver_generate_property_stop (pg);
2341 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2342 "Cannot find preference generator for peer %u address %u\n",
2343 op->peer_id, op->address_id);
2349 enforce_start_preference (struct GNUNET_ATS_TEST_Operation *op)
2351 struct PreferenceGenerator *pg;
2352 if (NULL != (pg = find_pref_gen (op->peer_id, op->pref_type)))
2354 GNUNET_ATS_solver_generate_preferences_stop (pg);
2358 if (NULL == (find_peer_by_id (op->peer_id)))
2361 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2362 "Starting preference generation for unknown peer %u\n", op->peer_id);
2366 GNUNET_ATS_solver_generate_preferences_start (op->peer_id,
2379 enforce_stop_preference (struct GNUNET_ATS_TEST_Operation *op)
2381 struct PreferenceGenerator *pg = find_pref_gen(op->peer_id,
2385 GNUNET_log(GNUNET_ERROR_TYPE_INFO,
2386 "Stopping property generation for peer %u address %u\n", op->peer_id,
2388 GNUNET_ATS_solver_generate_preferences_stop (pg);
2392 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2393 "Cannot find preference generator for peer %u address %u\n",
2394 op->peer_id, op->address_id);
2401 enforce_start_request (struct GNUNET_ATS_TEST_Operation *op)
2404 const struct ATS_Address *res;
2406 if (NULL == (p = find_peer_by_id (op->peer_id)))
2409 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2410 "Requesting address for unknown peer %u\n", op->peer_id);
2414 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Requesting address for peer %u\n",
2416 p->is_requested = GNUNET_YES;
2418 res = sh->sf->s_get (sh->sf->cls, &p->peer_id);
2421 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Suggested address for peer %u: %llu %llu\n",
2423 res->assigned_bw_in,
2424 res->assigned_bw_out);
2426 GNUNET_ATS_solver_logging_now (l);
2431 enforce_stop_request (struct GNUNET_ATS_TEST_Operation *op)
2435 if (NULL == (p = find_peer_by_id (op->peer_id)))
2438 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2439 "Requesting address for unknown peer %u\n", op->peer_id);
2445 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Stop requesting address for peer %u\n",
2447 p->is_requested = GNUNET_NO;
2448 p->assigned_bw_in = 0;
2449 p->assigned_bw_out = 0;
2450 sh->sf->s_get_stop (sh->sf->cls, &p->peer_id);
2454 GNUNET_ATS_solver_logging_now (l);
2459 static void enforce_episode (struct Episode *ep)
2461 struct GNUNET_ATS_TEST_Operation *cur;
2462 for (cur = ep->head; NULL != cur; cur = cur->next)
2464 switch (cur->type) {
2465 case SOLVER_OP_ADD_ADDRESS:
2466 fprintf (stderr, "Enforcing operation: %s [%llu:%llu]\n",
2467 print_op (cur->type), cur->peer_id, cur->address_id);
2468 enforce_add_address (cur);
2470 case SOLVER_OP_DEL_ADDRESS:
2471 fprintf (stderr, "Enforcing operation: %s [%llu:%llu]\n",
2472 print_op (cur->type), cur->peer_id, cur->address_id);
2473 enforce_del_address (cur);
2475 case SOLVER_OP_START_SET_PROPERTY:
2476 fprintf (stderr, "Enforcing operation: %s [%llu:%llu] == %llu\n",
2477 print_op (cur->type), cur->peer_id, cur->address_id, cur->base_rate);
2478 enforce_start_property (cur);
2480 case SOLVER_OP_STOP_SET_PROPERTY:
2481 fprintf (stderr, "Enforcing operation: %s [%llu:%llu] == %llu\n",
2482 print_op (cur->type), cur->peer_id, cur->address_id, cur->base_rate);
2483 enforce_stop_property (cur);
2485 case SOLVER_OP_START_SET_PREFERENCE:
2486 fprintf (stderr, "Enforcing operation: %s [%llu:%llu] == %llu\n",
2487 print_op (cur->type), cur->peer_id, cur->address_id, cur->base_rate);
2488 enforce_start_preference (cur);
2490 case SOLVER_OP_STOP_SET_PREFERENCE:
2491 fprintf (stderr, "Enforcing operation: %s [%llu:%llu] == %llu\n",
2492 print_op (cur->type), cur->peer_id, cur->address_id, cur->base_rate);
2493 enforce_stop_preference (cur);
2495 case SOLVER_OP_START_REQUEST:
2496 fprintf (stderr, "Enforcing operation: %s [%llu]\n",
2497 print_op (cur->type), cur->peer_id);
2498 enforce_start_request (cur);
2500 case SOLVER_OP_STOP_REQUEST:
2501 fprintf (stderr, "Enforcing operation: %s [%llu]\n",
2502 print_op (cur->type), cur->peer_id);
2503 enforce_stop_request (cur);
2512 timeout_episode (void *cls, const struct GNUNET_SCHEDULER_TaskContext* tc)
2514 struct Experiment *e = cls;
2515 e->episode_timeout_task = NULL;
2516 if (NULL != e->ep_done_cb)
2517 e->ep_done_cb (e->cur);
2519 /* Scheduling next */
2520 e->cur = e->cur->next;
2524 fprintf (stderr, "Last episode done!\n");
2525 if (NULL != e->experiment_timeout_task)
2527 GNUNET_SCHEDULER_cancel (e->experiment_timeout_task);
2528 e->experiment_timeout_task = NULL;
2530 e->e_done_cb (e, GNUNET_TIME_absolute_get_duration(e->start_time), GNUNET_OK);
2534 fprintf (stderr, "Running episode %u with timeout %s\n",
2536 GNUNET_STRINGS_relative_time_to_string(e->cur->duration, GNUNET_YES));
2537 e->episode_timeout_task = GNUNET_SCHEDULER_add_delayed (e->cur->duration,
2538 &timeout_episode, e);
2539 enforce_episode(e->cur);
2546 GNUNET_ATS_solvers_experimentation_run (struct Experiment *e,
2547 GNUNET_ATS_TESTING_EpisodeDoneCallback ep_done_cb,
2548 GNUNET_ATS_TESTING_ExperimentDoneCallback e_done_cb)
2550 fprintf (stderr, "Running experiment `%s' with timeout %s\n", e->name,
2551 GNUNET_STRINGS_relative_time_to_string(e->max_duration, GNUNET_YES));
2552 e->e_done_cb = e_done_cb;
2553 e->ep_done_cb = ep_done_cb;
2554 e->start_time = GNUNET_TIME_absolute_get();
2556 /* Start total time out */
2557 e->experiment_timeout_task = GNUNET_SCHEDULER_add_delayed (e->max_duration,
2558 &timeout_experiment, e);
2561 if (NULL == e->start)
2568 fprintf (stderr, "Running episode %u with timeout %s\n",
2570 GNUNET_STRINGS_relative_time_to_string(e->cur->duration, GNUNET_YES));
2571 e->episode_timeout_task = GNUNET_SCHEDULER_add_delayed (e->cur->duration,
2572 &timeout_episode, e);
2573 enforce_episode(e->cur);
2578 GNUNET_ATS_solvers_experimentation_stop (struct Experiment *e)
2580 if (NULL != e->experiment_timeout_task)
2582 GNUNET_SCHEDULER_cancel (e->experiment_timeout_task);
2583 e->experiment_timeout_task = NULL;
2585 if (NULL != e->episode_timeout_task)
2587 GNUNET_SCHEDULER_cancel (e->episode_timeout_task);
2588 e->episode_timeout_task = NULL;
2592 GNUNET_CONFIGURATION_destroy(e->cfg);
2595 free_experiment (e);
2600 GNUNET_ATS_solvers_experimentation_load (char *filename)
2602 struct Experiment *e;
2603 struct GNUNET_CONFIGURATION_Handle *cfg;
2606 cfg = GNUNET_CONFIGURATION_create();
2607 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_load (cfg, filename))
2609 fprintf (stderr, "Failed to load `%s'\n", filename);
2610 GNUNET_CONFIGURATION_destroy (cfg);
2614 e = create_experiment ();
2616 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string(cfg, "experiment",
2619 fprintf (stderr, "Invalid %s \n", "name");
2620 free_experiment (e);
2624 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Experiment name: `%s'\n", e->name);
2626 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string(cfg, "experiment",
2627 "log_prefix", &e->log_prefix))
2629 fprintf (stderr, "Invalid %s \n", "log_prefix");
2630 free_experiment (e);
2634 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Experiment logging prefix: `%s'\n",
2637 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_filename (cfg, "experiment",
2638 "log_output_dir", &e->log_output_dir))
2640 e->log_output_dir = NULL;
2643 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Experiment logging output directory: `%s'\n",
2647 if (GNUNET_SYSERR == (e->log_append_time_stamp = GNUNET_CONFIGURATION_get_value_yesno(cfg,
2648 "experiment", "log_append_time_stamp")))
2649 e->log_append_time_stamp = GNUNET_YES;
2650 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Experiment logging append timestamp: `%s'\n",
2651 (GNUNET_YES == e->log_append_time_stamp) ? "yes" : "no");
2654 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_filename (cfg, "experiment",
2655 "cfg_file", &e->cfg_file))
2657 fprintf (stderr, "Invalid %s \n", "cfg_file");
2658 free_experiment (e);
2663 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Experiment configuration: `%s'\n", e->cfg_file);
2664 e->cfg = GNUNET_CONFIGURATION_create();
2665 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_load (e->cfg, e->cfg_file))
2667 fprintf (stderr, "Invalid configuration %s \n", "cfg_file");
2668 free_experiment (e);
2674 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time(cfg, "experiment",
2675 "log_freq", &e->log_freq))
2677 fprintf (stderr, "Invalid %s \n", "log_freq");
2678 free_experiment (e);
2682 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Experiment logging frequency: `%s'\n",
2683 GNUNET_STRINGS_relative_time_to_string (e->log_freq, GNUNET_YES));
2685 if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time(cfg, "experiment",
2686 "max_duration", &e->max_duration))
2688 fprintf (stderr, "Invalid %s", "max_duration");
2689 free_experiment (e);
2693 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Experiment duration: `%s'\n",
2694 GNUNET_STRINGS_relative_time_to_string (e->max_duration, GNUNET_YES));
2696 if (GNUNET_SYSERR == load_episodes (e, cfg))
2698 GNUNET_ATS_solvers_experimentation_stop (e);
2699 GNUNET_CONFIGURATION_destroy (cfg);
2701 fprintf (stderr, "Failed to load experiment\n");
2704 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Loaded %u episodes with total duration %s\n",
2706 GNUNET_STRINGS_relative_time_to_string (e->total_duration, GNUNET_YES));
2708 GNUNET_CONFIGURATION_destroy (cfg);
2719 free_all_it (void *cls,
2720 const struct GNUNET_PeerIdentity *key,
2723 struct ATS_Address *address = value;
2724 GNUNET_break (GNUNET_OK == GNUNET_CONTAINER_multipeermap_remove (sh->env.addresses,
2726 GNUNET_free (address);
2732 GNUNET_ATS_solvers_solver_stop (struct SolverHandle *sh)
2734 GNUNET_STATISTICS_destroy ((struct GNUNET_STATISTICS_Handle *) sh->env.stats,
2736 GNUNET_PLUGIN_unload (sh->plugin, sh->sf);
2738 GAS_normalization_stop();
2740 GNUNET_CONTAINER_multipeermap_iterate (sh->addresses,
2743 GNUNET_CONTAINER_multipeermap_destroy(sh->addresses);
2744 GNUNET_free (sh->plugin);
2750 * Load quotas for networks from configuration
2752 * @param cfg configuration handle
2753 * @param out_dest where to write outbound quotas
2754 * @param in_dest where to write inbound quotas
2755 * @param dest_length length of inbound and outbound arrays
2756 * @return number of networks loaded
2759 GNUNET_ATS_solvers_load_quotas (const struct GNUNET_CONFIGURATION_Handle *cfg,
2760 unsigned long long *out_dest,
2761 unsigned long long *in_dest,
2764 char * entry_in = NULL;
2765 char * entry_out = NULL;
2766 char * quota_out_str;
2767 char * quota_in_str;
2771 for (c = 0; (c < GNUNET_ATS_NetworkTypeCount) && (c < dest_length); c++)
2775 GNUNET_asprintf (&entry_out,
2777 GNUNET_ATS_print_network_type (c));
2778 GNUNET_asprintf (&entry_in,
2780 GNUNET_ATS_print_network_type (c));
2783 if (GNUNET_OK == GNUNET_CONFIGURATION_get_value_string(cfg, "ats", entry_out, "a_out_str))
2786 if (0 == strcmp(quota_out_str, BIG_M_STRING))
2788 out_dest[c] = GNUNET_ATS_MaxBandwidth;
2791 if ((GNUNET_NO == res) && (GNUNET_OK == GNUNET_STRINGS_fancy_size_to_bytes (quota_out_str, &out_dest[c])))
2793 if ((GNUNET_NO == res) && (GNUNET_OK == GNUNET_CONFIGURATION_get_value_number (cfg, "ats", entry_out, &out_dest[c])))
2796 if (GNUNET_NO == res)
2798 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2799 _("Could not load quota for network `%s': `%s', assigning default bandwidth %llu\n"),
2800 GNUNET_ATS_print_network_type (c),
2802 GNUNET_ATS_DefaultBandwidth);
2803 out_dest[c] = GNUNET_ATS_DefaultBandwidth;
2807 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2808 "Outbound quota configure for network `%s' is %llu\n",
2809 GNUNET_ATS_print_network_type (c),
2812 GNUNET_free (quota_out_str);
2816 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
2817 _("No outbound quota configured for network `%s', assigning default bandwidth %llu\n"),
2818 GNUNET_ATS_print_network_type (c),
2819 GNUNET_ATS_DefaultBandwidth);
2820 out_dest[c] = GNUNET_ATS_DefaultBandwidth;
2824 if (GNUNET_OK == GNUNET_CONFIGURATION_get_value_string(cfg, "ats", entry_in, "a_in_str))
2827 if (0 == strcmp(quota_in_str, BIG_M_STRING))
2829 in_dest[c] = GNUNET_ATS_MaxBandwidth;
2832 if ((GNUNET_NO == res) && (GNUNET_OK == GNUNET_STRINGS_fancy_size_to_bytes (quota_in_str, &in_dest[c])))
2834 if ((GNUNET_NO == res) && (GNUNET_OK == GNUNET_CONFIGURATION_get_value_number (cfg, "ats", entry_in, &in_dest[c])))
2837 if (GNUNET_NO == res)
2839 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2840 _("Could not load quota for network `%s': `%s', assigning default bandwidth %llu\n"),
2841 GNUNET_ATS_print_network_type (c),
2843 GNUNET_ATS_DefaultBandwidth);
2844 in_dest[c] = GNUNET_ATS_DefaultBandwidth;
2848 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2849 "Inbound quota configured for network `%s' is %llu\n",
2850 GNUNET_ATS_print_network_type (c),
2853 GNUNET_free (quota_in_str);
2857 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
2858 _("No outbound quota configure for network `%s', assigning default bandwidth %llu\n"),
2859 GNUNET_ATS_print_network_type (c),
2860 GNUNET_ATS_DefaultBandwidth);
2861 out_dest[c] = GNUNET_ATS_DefaultBandwidth;
2863 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
2864 "Loaded quota for network `%s' (in/out): %llu %llu\n",
2865 GNUNET_ATS_print_network_type (c),
2868 GNUNET_free (entry_out);
2869 GNUNET_free (entry_in);
2871 return GNUNET_ATS_NetworkTypeCount;
2876 * Information callback for the solver
2878 * @param cls the closure
2879 * @param op the solver operation
2880 * @param stat status of the solver operation
2881 * @param add additional solver information
2884 solver_info_cb (void *cls,
2885 enum GAS_Solver_Operation op,
2886 enum GAS_Solver_Status stat,
2887 enum GAS_Solver_Additional_Information add)
2892 add_info = "GAS_INFO_NONE";
2895 add_info = "GAS_INFO_MLP_FULL";
2897 case GAS_INFO_UPDATED:
2898 add_info = "GAS_INFO_MLP_UPDATED";
2900 case GAS_INFO_PROP_ALL:
2901 add_info = "GAS_INFO_PROP_ALL";
2903 case GAS_INFO_PROP_SINGLE:
2904 add_info = "GAS_INFO_PROP_SINGLE";
2907 add_info = "INVALID";
2913 case GAS_OP_SOLVE_START:
2914 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
2915 "Solver notifies `%s' with result `%s' `%s'\n", "GAS_OP_SOLVE_START",
2916 (GAS_STAT_SUCCESS == stat) ? "SUCCESS" : "FAIL", add_info);
2918 case GAS_OP_SOLVE_STOP:
2919 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
2920 "Solver notifies `%s' with result `%s'\n", "GAS_OP_SOLVE_STOP",
2921 (GAS_STAT_SUCCESS == stat) ? "SUCCESS" : "FAIL", add_info);
2924 case GAS_OP_SOLVE_SETUP_START:
2925 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
2926 "Solver notifies `%s' with result `%s'\n", "GAS_OP_SOLVE_SETUP_START",
2927 (GAS_STAT_SUCCESS == stat) ? "SUCCESS" : "FAIL");
2930 case GAS_OP_SOLVE_SETUP_STOP:
2931 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
2932 "Solver notifies `%s' with result `%s'\n", "GAS_OP_SOLVE_SETUP_STOP",
2933 (GAS_STAT_SUCCESS == stat) ? "SUCCESS" : "FAIL");
2936 case GAS_OP_SOLVE_MLP_LP_START:
2937 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
2938 "Solver notifies `%s' with result `%s'\n", "GAS_OP_SOLVE_LP_START",
2939 (GAS_STAT_SUCCESS == stat) ? "SUCCESS" : "FAIL");
2941 case GAS_OP_SOLVE_MLP_LP_STOP:
2942 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
2943 "Solver notifies `%s' with result `%s'\n", "GAS_OP_SOLVE_LP_STOP",
2944 (GAS_STAT_SUCCESS == stat) ? "SUCCESS" : "FAIL");
2947 case GAS_OP_SOLVE_MLP_MLP_START:
2948 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
2949 "Solver notifies `%s' with result `%s'\n", "GAS_OP_SOLVE_MLP_START",
2950 (GAS_STAT_SUCCESS == stat) ? "SUCCESS" : "FAIL");
2952 case GAS_OP_SOLVE_MLP_MLP_STOP:
2953 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
2954 "Solver notifies `%s' with result `%s'\n", "GAS_OP_SOLVE_MLP_STOP",
2955 (GAS_STAT_SUCCESS == stat) ? "SUCCESS" : "FAIL");
2957 case GAS_OP_SOLVE_UPDATE_NOTIFICATION_START:
2958 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
2959 "Solver notifies `%s' with result `%s'\n", "GAS_OP_SOLVE_UPDATE_NOTIFICATION_START",
2960 (GAS_STAT_SUCCESS == stat) ? "SUCCESS" : "FAIL");
2962 case GAS_OP_SOLVE_UPDATE_NOTIFICATION_STOP:
2963 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
2964 "Solver notifies `%s' with result `%s'\n", "GAS_OP_SOLVE_UPDATE_NOTIFICATION_STOP",
2965 (GAS_STAT_SUCCESS == stat) ? "SUCCESS" : "FAIL");
2973 solver_bandwidth_changed_cb (void *cls, struct ATS_Address *address)
2975 struct GNUNET_TIME_Relative duration;
2977 static struct PreferenceGenerator *pg;
2979 if ( (0 == address->assigned_bw_out) && (0 == address->assigned_bw_in) )
2981 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
2982 "Solver notified to disconnect peer `%s'\n",
2983 GNUNET_i2s (&address->peer));
2985 p = find_peer_by_pid(&address->peer);
2988 p->assigned_bw_out = address->assigned_bw_out;
2989 p->assigned_bw_in = address->assigned_bw_in;
2991 for (pg = pref_gen_head; NULL != pg; pg = pg->next)
2993 if (pg->peer == p->id)
2995 duration = GNUNET_TIME_absolute_get_duration(pg->feedback_last_bw_update);
2996 delta = duration.rel_value_us * pg->last_assigned_bw_out;
2997 pg->feedback_bw_out_acc += delta;
2999 delta = duration.rel_value_us * pg->last_assigned_bw_in;
3000 pg->feedback_bw_in_acc += delta;
3002 pg->last_assigned_bw_in = address->assigned_bw_in;
3003 pg->last_assigned_bw_out = address->assigned_bw_out;
3004 pg->feedback_last_bw_update = GNUNET_TIME_absolute_get();
3008 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
3009 "Bandwidth changed addresses %s %p to %u Bps out / %u Bps in\n",
3010 GNUNET_i2s (&address->peer),
3012 address->assigned_bw_out,
3013 address->assigned_bw_in);
3016 GNUNET_ATS_solver_logging_now (l);
3022 get_preferences_cb (void *cls, const struct GNUNET_PeerIdentity *id)
3025 if (GNUNET_YES == opt_disable_normalization)
3027 if (NULL == (p = find_peer_by_pid (id)))
3032 return GAS_normalization_get_preferences_by_peer (NULL,
3038 get_property_cb (void *cls, const struct ATS_Address *address)
3041 struct TestAddress *a;
3043 if (GNUNET_YES == opt_disable_normalization)
3045 p = find_peer_by_pid (&address->peer);
3048 a = find_address_by_ats_address (p, address);
3051 return GAS_normalization_get_properties (NULL,
3056 struct SolverHandle *
3057 GNUNET_ATS_solvers_solver_start (enum GNUNET_ATS_Solvers type)
3059 struct SolverHandle *sh;
3063 case GNUNET_ATS_SOLVER_PROPORTIONAL:
3064 solver_str = "proportional";
3066 case GNUNET_ATS_SOLVER_MLP:
3069 case GNUNET_ATS_SOLVER_RIL:
3078 sh = GNUNET_new (struct SolverHandle);
3079 GNUNET_asprintf (&sh->plugin,
3080 "libgnunet_plugin_ats_%s",
3082 sh->addresses = GNUNET_CONTAINER_multipeermap_create (128, GNUNET_NO);
3084 /* setup environment */
3085 sh->env.cfg = e->cfg;
3086 sh->env.stats = GNUNET_STATISTICS_create ("ats", e->cfg);
3087 sh->env.addresses = sh->addresses;
3088 sh->env.bandwidth_changed_cb = &solver_bandwidth_changed_cb;
3089 sh->env.get_preferences = &get_preferences_cb;
3090 sh->env.get_property = &get_property_cb;
3091 sh->env.network_count = GNUNET_ATS_NetworkTypeCount;
3092 sh->env.info_cb = &solver_info_cb;
3093 sh->env.network_count = GNUNET_ATS_NetworkTypeCount;
3095 /* start normalization */
3096 GAS_normalization_start ();
3099 if (GNUNET_ATS_NetworkTypeCount != GNUNET_ATS_solvers_load_quotas (e->cfg,
3100 sh->env.out_quota, sh->env.in_quota, GNUNET_ATS_NetworkTypeCount))
3103 GNUNET_free (sh->plugin);
3109 sh->sf = GNUNET_PLUGIN_load (sh->plugin, &sh->env);
3112 fprintf (stderr, "Failed to load solver `%s'\n", sh->plugin);
3114 GNUNET_free (sh->plugin);
3126 struct TestPeer *cur;
3127 struct TestPeer *next;
3129 struct TestAddress *cur_a;
3130 struct TestAddress *next_a;
3133 GNUNET_ATS_solver_logging_stop (l);
3135 /* Stop all preference generation */
3136 GNUNET_ATS_solver_generate_preferences_stop_all ();
3138 /* Stop all property generation */
3139 GNUNET_ATS_solver_generate_property_stop_all ();
3143 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "== Printing log information \n");
3144 GNUNET_ATS_solver_logging_eval (l);
3148 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "== Saving log information \n");
3149 GNUNET_ATS_solver_logging_write_to_disk (l, e->log_append_time_stamp,
3155 GNUNET_ATS_solver_logging_free (l);
3159 /* Clean up experiment */
3162 GNUNET_ATS_solvers_experimentation_stop (e);
3167 while (NULL != (cur = next))
3170 GNUNET_CONTAINER_DLL_remove (peer_head, peer_tail, cur);
3171 next_a = cur->addr_head;
3172 while (NULL != (cur_a = next_a))
3174 next_a = cur_a->next;
3175 GNUNET_CONTAINER_DLL_remove (cur->addr_head, cur->addr_tail, cur_a);
3176 GNUNET_free (cur_a);
3182 GNUNET_ATS_solvers_solver_stop (sh);
3191 experiment_done_cb (struct Experiment *e, struct GNUNET_TIME_Relative duration,int success)
3193 if (GNUNET_OK == success)
3194 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Experiment done successful in %s\n",
3195 GNUNET_STRINGS_relative_time_to_string (duration, GNUNET_YES));
3197 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Experiment failed \n");
3199 GNUNET_SCHEDULER_add_now (&done, NULL);
3203 episode_done_cb (struct Episode *ep)
3205 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Episode %u done\n", ep->id);
3218 GNUNET_ATS_solvers_experimentation_stop (e);
3223 GNUNET_ATS_solvers_solver_stop (sh);
3229 run (void *cls, char * const *args, const char *cfgfile,
3230 const struct GNUNET_CONFIGURATION_Handle *cfg)
3232 enum GNUNET_ATS_Solvers solver;
3235 if (NULL == opt_exp_file)
3237 fprintf (stderr, "No experiment given ...\n");
3243 if (NULL == opt_solver)
3245 fprintf (stderr, "No solver given ...\n");
3251 if (0 == strcmp(opt_solver, "mlp"))
3253 solver = GNUNET_ATS_SOLVER_MLP;
3255 else if (0 == strcmp(opt_solver, "proportional"))
3257 solver = GNUNET_ATS_SOLVER_PROPORTIONAL;
3259 else if (0 == strcmp(opt_solver, "ril"))
3261 solver = GNUNET_ATS_SOLVER_RIL;
3265 fprintf (stderr, "No solver given ...");
3271 for (c = 0; c < GNUNET_ATS_PropertyCount; c++)
3272 default_properties[c] = DEFAULT_REL_QUALITY;
3274 for (c = 0; c < GNUNET_ATS_PreferenceCount; c++)
3275 default_preferences[c] = DEFAULT_REL_PREFERENCE;
3277 /* load experiment */
3278 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "=== Loading experiment\n");
3279 e = GNUNET_ATS_solvers_experimentation_load (opt_exp_file);
3282 fprintf (stderr, "Failed to load experiment ...\n");
3289 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "=== Loading solver\n");
3290 sh = GNUNET_ATS_solvers_solver_start (solver);
3293 fprintf (stderr, "Failed to start solver ...\n");
3300 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "=== Start logging \n");
3301 l = GNUNET_ATS_solver_logging_start (e->log_freq);
3303 /* run experiment */
3304 GNUNET_log (GNUNET_ERROR_TYPE_INFO, "=== Running experiment \n");
3305 GNUNET_ATS_solvers_experimentation_run (e, episode_done_cb,
3306 experiment_done_cb);
3313 * Main function of the benchmark
3315 * @param argc argument count
3316 * @param argv argument values
3319 main (int argc, char *argv[])
3321 opt_exp_file = NULL;
3323 opt_log = GNUNET_NO;
3324 opt_save = GNUNET_NO;
3328 static struct GNUNET_GETOPT_CommandLineOption options[] =
3330 { 's', "solver", NULL,
3331 gettext_noop ("solver to use"),
3332 1, &GNUNET_GETOPT_set_string, &opt_solver},
3333 { 'e', "experiment", NULL,
3334 gettext_noop ("experiment to use"),
3335 1, &GNUNET_GETOPT_set_string, &opt_exp_file},
3336 { 'V', "verbose", NULL,
3337 gettext_noop ("be verbose"),
3338 0, &GNUNET_GETOPT_set_one, &opt_verbose},
3339 { 'p', "print", NULL,
3340 gettext_noop ("print logging"),
3341 0, &GNUNET_GETOPT_set_one, &opt_print},
3342 { 'f', "file", NULL,
3343 gettext_noop ("save logging to disk"),
3344 0, &GNUNET_GETOPT_set_one, &opt_save},
3346 gettext_noop ("disable normalization"),
3347 0, &GNUNET_GETOPT_set_one, &opt_disable_normalization},
3348 GNUNET_GETOPT_OPTION_END
3351 GNUNET_PROGRAM_run (argc, argv, "gnunet-ats-solver-eval",
3352 NULL, options, &run, argv[0]);
3356 /* end of file ats-testing-experiment.c*/