diff options
Diffstat (limited to 'src/ats-tests/gnunet-ats-sim.c')
-rw-r--r-- | src/ats-tests/gnunet-ats-sim.c | 399 |
1 files changed, 0 insertions, 399 deletions
diff --git a/src/ats-tests/gnunet-ats-sim.c b/src/ats-tests/gnunet-ats-sim.c deleted file mode 100644 index 15cd52e2f..000000000 --- a/src/ats-tests/gnunet-ats-sim.c +++ /dev/null | |||
@@ -1,399 +0,0 @@ | |||
1 | /* | ||
2 | This file is part of GNUnet. | ||
3 | Copyright (C) 2010-2013 GNUnet e.V. | ||
4 | |||
5 | GNUnet is free software: you can redistribute it and/or modify it | ||
6 | under the terms of the GNU Affero General Public License as published | ||
7 | by the Free Software Foundation, either version 3 of the License, | ||
8 | or (at your option) any later version. | ||
9 | |||
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 | Affero General Public License for more details. | ||
14 | |||
15 | You should have received a copy of the GNU Affero General Public License | ||
16 | along with this program. If not, see <http://www.gnu.org/licenses/>. | ||
17 | |||
18 | SPDX-License-Identifier: AGPL3.0-or-later | ||
19 | */ | ||
20 | /** | ||
21 | * @file ats-tests/gnunet-ats-sim.c | ||
22 | * @brief ats traffic simulator: this tool uses the ats-test library to setup a | ||
23 | * topology and generate traffic between these peers. The traffic description | ||
24 | * is loaded from a experiment description file | ||
25 | * @author Christian Grothoff | ||
26 | * @author Matthias Wachs | ||
27 | */ | ||
28 | #include "platform.h" | ||
29 | #include "gnunet_util_lib.h" | ||
30 | #include "gnunet_testbed_service.h" | ||
31 | #include "gnunet_ats_service.h" | ||
32 | #include "gnunet_core_service.h" | ||
33 | #include "ats-testing.h" | ||
34 | |||
35 | #define TEST_TIMEOUT GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, \ | ||
36 | 10) | ||
37 | |||
38 | static struct BenchmarkPeer *masters_p; | ||
39 | static struct BenchmarkPeer *slaves_p; | ||
40 | |||
41 | /** | ||
42 | * cmd option -e: experiment file | ||
43 | */ | ||
44 | static char *opt_exp_file; | ||
45 | |||
46 | /** | ||
47 | * cmd option -l: enable logging | ||
48 | */ | ||
49 | static int opt_log; | ||
50 | |||
51 | /** | ||
52 | * cmd option -p: enable plots | ||
53 | */ | ||
54 | static int opt_plot; | ||
55 | |||
56 | /** | ||
57 | * cmd option -v: verbose logs | ||
58 | */ | ||
59 | static int opt_verbose; | ||
60 | |||
61 | static struct GNUNET_SCHEDULER_Task *timeout_task; | ||
62 | |||
63 | static struct Experiment *e; | ||
64 | |||
65 | static struct LoggingHandle *l; | ||
66 | |||
67 | |||
68 | static void | ||
69 | evaluate (struct GNUNET_TIME_Relative duration_total) | ||
70 | { | ||
71 | int c_m; | ||
72 | int c_s; | ||
73 | unsigned int duration; | ||
74 | struct BenchmarkPeer *mp; | ||
75 | struct BenchmarkPartner *p; | ||
76 | |||
77 | unsigned int b_sent_sec; | ||
78 | double kb_sent_percent; | ||
79 | unsigned int b_recv_sec; | ||
80 | double kb_recv_percent; | ||
81 | unsigned int rtt; | ||
82 | |||
83 | |||
84 | duration = (duration_total.rel_value_us / (1000 * 1000)); | ||
85 | if (0 == duration) | ||
86 | duration = 1; | ||
87 | for (c_m = 0; c_m < e->num_masters; c_m++) | ||
88 | { | ||
89 | mp = &masters_p[c_m]; | ||
90 | fprintf (stderr, | ||
91 | _ ( | ||
92 | "Master [%u]: sent: %u KiB in %u sec. = %u KiB/s, received: %u KiB in %u sec. = %u KiB/s\n"), | ||
93 | mp->no, mp->total_bytes_sent / 1024, | ||
94 | duration, | ||
95 | (mp->total_bytes_sent / 1024) / duration, | ||
96 | mp->total_bytes_received / 1024, | ||
97 | duration, | ||
98 | (mp->total_bytes_received / 1024) / duration); | ||
99 | |||
100 | for (c_s = 0; c_s < e->num_slaves; c_s++) | ||
101 | { | ||
102 | p = &mp->partners[c_s]; | ||
103 | |||
104 | b_sent_sec = 0; | ||
105 | b_recv_sec = 0; | ||
106 | kb_sent_percent = 0.0; | ||
107 | kb_recv_percent = 0.0; | ||
108 | rtt = 0; | ||
109 | |||
110 | if (duration > 0) | ||
111 | { | ||
112 | b_sent_sec = p->bytes_sent / duration; | ||
113 | b_recv_sec = p->bytes_received / duration; | ||
114 | } | ||
115 | |||
116 | if (mp->total_bytes_sent > 0) | ||
117 | kb_sent_percent = ((double) p->bytes_sent * 100) / mp->total_bytes_sent; | ||
118 | if (mp->total_bytes_received > 0) | ||
119 | kb_recv_percent = ((double) p->bytes_received * 100) | ||
120 | / mp->total_bytes_received; | ||
121 | if (1000 * p->messages_sent > 0) | ||
122 | rtt = p->total_app_rtt / (1000 * p->messages_sent); | ||
123 | fprintf (stderr, | ||
124 | "%c Master [%u] -> Slave [%u]: sent %u Bips (%.2f %%), received %u Bips (%.2f %%)\n", | ||
125 | (mp->pref_partner == p->dest) ? '*' : ' ', | ||
126 | mp->no, p->dest->no, | ||
127 | b_sent_sec, kb_sent_percent, | ||
128 | b_recv_sec, kb_recv_percent); | ||
129 | fprintf (stderr, | ||
130 | "%c Master [%u] -> Slave [%u]: Average application layer RTT: %u ms\n", | ||
131 | (mp->pref_partner == p->dest) ? '*' : ' ', | ||
132 | mp->no, p->dest->no, rtt); | ||
133 | } | ||
134 | } | ||
135 | } | ||
136 | |||
137 | |||
138 | static void | ||
139 | do_shutdown (void *cls) | ||
140 | { | ||
141 | fprintf (stderr, "Shutdown\n"); | ||
142 | if (NULL != timeout_task) | ||
143 | { | ||
144 | GNUNET_SCHEDULER_cancel (timeout_task); | ||
145 | timeout_task = NULL; | ||
146 | } | ||
147 | if (NULL != l) | ||
148 | { | ||
149 | GNUNET_ATS_TEST_logging_stop (l); | ||
150 | GNUNET_ATS_TEST_logging_clean_up (l); | ||
151 | l = NULL; | ||
152 | } | ||
153 | |||
154 | /* Stop traffic generation */ | ||
155 | GNUNET_ATS_TEST_generate_traffic_stop_all (); | ||
156 | |||
157 | /* Stop all preference generations */ | ||
158 | GNUNET_ATS_TEST_generate_preferences_stop_all (); | ||
159 | |||
160 | if (NULL != e) | ||
161 | { | ||
162 | GNUNET_ATS_TEST_experimentation_stop (e); | ||
163 | e = NULL; | ||
164 | } | ||
165 | GNUNET_ATS_TEST_shutdown_topology (); | ||
166 | } | ||
167 | |||
168 | |||
169 | static void | ||
170 | do_timeout (void *cls) | ||
171 | { | ||
172 | timeout_task = NULL; | ||
173 | GNUNET_SCHEDULER_shutdown (); | ||
174 | } | ||
175 | |||
176 | |||
177 | static void | ||
178 | log_request__cb (void *cls, | ||
179 | const struct GNUNET_HELLO_Address *address, | ||
180 | int address_active, | ||
181 | struct GNUNET_BANDWIDTH_Value32NBO bandwidth_out, | ||
182 | struct GNUNET_BANDWIDTH_Value32NBO bandwidth_in, | ||
183 | const struct GNUNET_ATS_Properties *ats) | ||
184 | { | ||
185 | if (NULL != l) | ||
186 | { | ||
187 | // GNUNET_break (0); | ||
188 | // GNUNET_ATS_TEST_logging_now (l); | ||
189 | } | ||
190 | } | ||
191 | |||
192 | |||
193 | static void | ||
194 | experiment_done_cb (struct Experiment *e, | ||
195 | struct GNUNET_TIME_Relative duration, | ||
196 | int success) | ||
197 | { | ||
198 | if (GNUNET_OK == success) | ||
199 | GNUNET_log (GNUNET_ERROR_TYPE_INFO, | ||
200 | "Experiment done successful in %s\n", | ||
201 | GNUNET_STRINGS_relative_time_to_string (duration, | ||
202 | GNUNET_YES)); | ||
203 | else | ||
204 | GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Experiment failed \n"); | ||
205 | |||
206 | /* Stop logging */ | ||
207 | GNUNET_ATS_TEST_logging_stop (l); | ||
208 | |||
209 | /* Stop traffic generation */ | ||
210 | GNUNET_ATS_TEST_generate_traffic_stop_all (); | ||
211 | |||
212 | /* Stop all preference generations */ | ||
213 | GNUNET_ATS_TEST_generate_preferences_stop_all (); | ||
214 | |||
215 | evaluate (duration); | ||
216 | if (opt_log) | ||
217 | GNUNET_ATS_TEST_logging_write_to_file (l, opt_exp_file, opt_plot); | ||
218 | GNUNET_SCHEDULER_shutdown (); | ||
219 | } | ||
220 | |||
221 | |||
222 | static void | ||
223 | episode_done_cb (struct Episode *ep) | ||
224 | { | ||
225 | GNUNET_log (GNUNET_ERROR_TYPE_INFO, | ||
226 | "Episode %u done\n", | ||
227 | ep->id); | ||
228 | } | ||
229 | |||
230 | |||
231 | static void | ||
232 | topology_setup_done (void *cls, | ||
233 | struct BenchmarkPeer *masters, | ||
234 | struct BenchmarkPeer *slaves) | ||
235 | { | ||
236 | GNUNET_log (GNUNET_ERROR_TYPE_INFO, | ||
237 | "Topology setup complete!\n"); | ||
238 | |||
239 | masters_p = masters; | ||
240 | slaves_p = slaves; | ||
241 | |||
242 | l = GNUNET_ATS_TEST_logging_start (e->log_freq, | ||
243 | e->name, | ||
244 | masters_p, | ||
245 | e->num_masters, e->num_slaves, | ||
246 | opt_verbose); | ||
247 | GNUNET_ATS_TEST_experimentation_run (e, | ||
248 | &episode_done_cb, | ||
249 | &experiment_done_cb); | ||
250 | /* | ||
251 | GNUNET_ATS_TEST_generate_preferences_start(&masters[0],&masters[0].partners[0], | ||
252 | GNUNET_ATS_TEST_TG_CONSTANT, 1, 1, GNUNET_TIME_UNIT_SECONDS, | ||
253 | GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MILLISECONDS, 250), | ||
254 | GNUNET_ATS_PREFERENCE_BANDWIDTH); | ||
255 | *//* | ||
256 | GNUNET_ATS_TEST_generate_preferences_start(&masters[0],&masters[0].partners[0], | ||
257 | GNUNET_ATS_TEST_TG_LINEAR, 1, 50, | ||
258 | GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_SECONDS, 2), | ||
259 | GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MILLISECONDS, 250), | ||
260 | GNUNET_ATS_PREFERENCE_BANDWIDTH); | ||
261 | *//* | ||
262 | GNUNET_ATS_TEST_generate_preferences_start(&masters[0],&masters[0].partners[0], | ||
263 | GNUNET_ATS_TEST_TG_RANDOM, 1, 50, | ||
264 | GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_SECONDS, 2), | ||
265 | GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MILLISECONDS, 250), | ||
266 | GNUNET_ATS_PREFERENCE_BANDWIDTH); | ||
267 | *//* | ||
268 | GNUNET_ATS_TEST_generate_preferences_start(&masters[0],&masters[0].partners[0], | ||
269 | GNUNET_ATS_TEST_TG_SINUS, 10, 5, | ||
270 | GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_SECONDS, 5), | ||
271 | GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MILLISECONDS, 250), | ||
272 | GNUNET_ATS_PREFERENCE_BANDWIDTH); | ||
273 | */ | ||
274 | #if 0 | ||
275 | int c_m; | ||
276 | int c_s; | ||
277 | for (c_m = 0; c_m < e->num_masters; c_m++) | ||
278 | { | ||
279 | for (c_s = 0; c_s < e->num_slaves; c_s++) | ||
280 | { | ||
281 | /* Generate maximum traffic to all peers */ | ||
282 | /* Example: Generate traffic with constant 10,000 Bytes/s */ | ||
283 | GNUNET_ATS_TEST_generate_traffic_start (&masters[c_m], | ||
284 | &masters[c_m].partners[c_s], | ||
285 | GNUNET_ATS_TEST_TG_CONSTANT, | ||
286 | 10000, | ||
287 | GNUNET_TIME_UNIT_FOREVER_REL); | ||
288 | /* Example: Generate traffic with an increasing rate from 1000 to 2000 | ||
289 | * Bytes/s with in a minute */ | ||
290 | GNUNET_ATS_TEST_generate_traffic_start (&masters[c_m], | ||
291 | &masters[c_m].partners[c_s], | ||
292 | GNUNET_ATS_TEST_TG_LINEAR, | ||
293 | 1000, | ||
294 | 2000, | ||
295 | GNUNET_TIME_UNIT_MINUTES, | ||
296 | GNUNET_TIME_UNIT_FOREVER_REL); | ||
297 | /* Example: Generate traffic with a random rate between 1000 to 2000 | ||
298 | * Bytes/s */ | ||
299 | GNUNET_ATS_TEST_generate_traffic_start (&masters[c_m], | ||
300 | &masters[c_m].partners[c_s], | ||
301 | GNUNET_ATS_TEST_TG_RANDOM, | ||
302 | 1000, | ||
303 | 2000, | ||
304 | GNUNET_TIME_UNIT_FOREVER_REL, | ||
305 | GNUNET_TIME_UNIT_FOREVER_REL); | ||
306 | /* Example: Generate traffic with a sinus form, a base rate of | ||
307 | * 1000 Bytes/s, an amplitude of (max-base), and a period of 1 minute */ | ||
308 | GNUNET_ATS_TEST_generate_traffic_start (&masters[c_m], | ||
309 | &masters[c_m].partners[c_s], | ||
310 | GNUNET_ATS_TEST_TG_SINUS, | ||
311 | 1000, | ||
312 | 2000, | ||
313 | GNUNET_TIME_UNIT_MINUTES, | ||
314 | GNUNET_TIME_UNIT_FOREVER_REL); | ||
315 | } | ||
316 | } | ||
317 | #endif | ||
318 | |||
319 | timeout_task | ||
320 | = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_add ( | ||
321 | GNUNET_TIME_UNIT_MINUTES, | ||
322 | e->max_duration), | ||
323 | &do_timeout, | ||
324 | NULL); | ||
325 | GNUNET_SCHEDULER_add_shutdown (&do_shutdown, NULL); | ||
326 | } | ||
327 | |||
328 | |||
329 | static void | ||
330 | parse_args (int argc, char *argv[]) | ||
331 | { | ||
332 | int c; | ||
333 | |||
334 | opt_exp_file = NULL; | ||
335 | opt_log = GNUNET_NO; | ||
336 | opt_plot = GNUNET_NO; | ||
337 | |||
338 | for (c = 0; c < argc; c++) | ||
339 | { | ||
340 | if ((c < (argc - 1)) && (0 == strcmp (argv[c], "-e"))) | ||
341 | { | ||
342 | GNUNET_free (opt_exp_file); | ||
343 | opt_exp_file = GNUNET_strdup (argv[c + 1]); | ||
344 | } | ||
345 | if (0 == strcmp (argv[c], "-l")) | ||
346 | { | ||
347 | opt_log = GNUNET_YES; | ||
348 | } | ||
349 | if (0 == strcmp (argv[c], "-p")) | ||
350 | { | ||
351 | opt_plot = GNUNET_YES; | ||
352 | } | ||
353 | if (0 == strcmp (argv[c], "-v")) | ||
354 | { | ||
355 | opt_verbose = GNUNET_YES; | ||
356 | } | ||
357 | } | ||
358 | } | ||
359 | |||
360 | |||
361 | int | ||
362 | main (int argc, char *argv[]) | ||
363 | { | ||
364 | GNUNET_log_setup ("gnunet-ats-sim", "INFO", NULL); | ||
365 | |||
366 | parse_args (argc, argv); | ||
367 | if (NULL == opt_exp_file) | ||
368 | { | ||
369 | fprintf (stderr, "No experiment given...\n"); | ||
370 | return 1; | ||
371 | } | ||
372 | |||
373 | fprintf (stderr, "Loading experiment `%s' \n", opt_exp_file); | ||
374 | e = GNUNET_ATS_TEST_experimentation_load (opt_exp_file); | ||
375 | if (NULL == e) | ||
376 | { | ||
377 | fprintf (stderr, "Invalid experiment\n"); | ||
378 | return 1; | ||
379 | } | ||
380 | if (0 == e->num_episodes) | ||
381 | { | ||
382 | fprintf (stderr, "No episodes included\n"); | ||
383 | return 1; | ||
384 | } | ||
385 | |||
386 | /* Setup a topology with */ | ||
387 | GNUNET_ATS_TEST_create_topology ("gnunet-ats-sim", e->cfg_file, | ||
388 | e->num_slaves, | ||
389 | e->num_masters, | ||
390 | GNUNET_NO, | ||
391 | &topology_setup_done, | ||
392 | NULL, | ||
393 | &log_request__cb); | ||
394 | GNUNET_free (opt_exp_file); | ||
395 | return 0; | ||
396 | } | ||
397 | |||
398 | |||
399 | /* end of file gnunet-ats-sim.c */ | ||