1 /* Copyright (c) 2006, 2007, 2008, 2009, 2010. The SimGrid Team.
2 * All rights reserved. */
4 /* This program is free software; you can redistribute it and/or modify it
5 * under the terms of the license (GNU LGPL) which comes with this package. */
11 #include "surf/surfxml_parse_private.h"
12 #include "surf/surf_private.h"
13 #include "surf/surfxml_parse_values.h"
15 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(surf_parse, surf,
16 "Logging specific to the SURF parsing module");
18 int ETag_surfxml_include_state(void);
20 #include "simgrid_dtd.c"
22 char *platform_filename;
24 /* Initialize the parsing globals */
25 xbt_dict_t traces_set_list = NULL;
26 xbt_dict_t trace_connect_list_host_avail = NULL;
27 xbt_dict_t trace_connect_list_power = NULL;
28 xbt_dict_t trace_connect_list_link_avail = NULL;
29 xbt_dict_t trace_connect_list_bandwidth = NULL;
30 xbt_dict_t trace_connect_list_latency = NULL;
32 /* This buffer is used to store the original buffer before substituting it by out own buffer. Useful for the foreach tag */
33 static xbt_dynar_t surfxml_bufferstack_stack = NULL;
34 int surfxml_bufferstack_size = 2048;
36 static char *old_buff = NULL;
37 static void surf_parse_error(char *msg);
39 unsigned int surfxml_buffer_stack_stack_ptr;
40 unsigned int surfxml_buffer_stack_stack[1024];
43 void surfxml_bufferstack_push(int new)
46 old_buff = surfxml_bufferstack;
48 xbt_dynar_push(surfxml_bufferstack_stack, &surfxml_bufferstack);
49 surfxml_bufferstack = xbt_new0(char, surfxml_bufferstack_size);
53 void surfxml_bufferstack_pop(int new)
56 surfxml_bufferstack = old_buff;
58 free(surfxml_bufferstack);
59 xbt_dynar_pop(surfxml_bufferstack_stack, &surfxml_bufferstack);
63 /* make sure these symbols are defined as strong ones in this file so that the linked can resolve them */
64 xbt_dynar_t STag_surfxml_platform_cb_list = NULL;
65 xbt_dynar_t ETag_surfxml_platform_cb_list = NULL;
66 xbt_dynar_t STag_surfxml_host_cb_list = NULL;
67 xbt_dynar_t ETag_surfxml_host_cb_list = NULL;
68 xbt_dynar_t STag_surfxml_router_cb_list = NULL;
69 xbt_dynar_t ETag_surfxml_router_cb_list = NULL;
70 xbt_dynar_t STag_surfxml_link_cb_list = NULL;
71 xbt_dynar_t ETag_surfxml_link_cb_list = NULL;
72 xbt_dynar_t STag_surfxml_route_cb_list = NULL;
73 xbt_dynar_t ETag_surfxml_route_cb_list = NULL;
74 xbt_dynar_t STag_surfxml_link_ctn_cb_list = NULL;
75 xbt_dynar_t ETag_surfxml_link_ctn_cb_list = NULL;
76 xbt_dynar_t STag_surfxml_process_cb_list = NULL;
77 xbt_dynar_t ETag_surfxml_process_cb_list = NULL;
78 xbt_dynar_t STag_surfxml_argument_cb_list = NULL;
79 xbt_dynar_t ETag_surfxml_argument_cb_list = NULL;
80 xbt_dynar_t STag_surfxml_prop_cb_list = NULL;
81 xbt_dynar_t ETag_surfxml_prop_cb_list = NULL;
82 xbt_dynar_t STag_surfxml_cluster_cb_list = NULL;
83 xbt_dynar_t ETag_surfxml_cluster_cb_list = NULL;
84 xbt_dynar_t STag_surfxml_peer_cb_list = NULL;
85 xbt_dynar_t ETag_surfxml_peer_cb_list = NULL;
86 xbt_dynar_t STag_surfxml_trace_cb_list = NULL;
87 xbt_dynar_t ETag_surfxml_trace_cb_list = NULL;
88 xbt_dynar_t STag_surfxml_trace_connect_cb_list = NULL;
89 xbt_dynar_t ETag_surfxml_trace_connect_cb_list = NULL;
90 xbt_dynar_t STag_surfxml_random_cb_list = NULL;
91 xbt_dynar_t ETag_surfxml_random_cb_list = NULL;
92 xbt_dynar_t STag_surfxml_AS_cb_list = NULL;
93 xbt_dynar_t ETag_surfxml_AS_cb_list = NULL;
94 xbt_dynar_t STag_surfxml_ASroute_cb_list = NULL;
95 xbt_dynar_t ETag_surfxml_ASroute_cb_list = NULL;
96 xbt_dynar_t STag_surfxml_bypassRoute_cb_list = NULL;
97 xbt_dynar_t ETag_surfxml_bypassRoute_cb_list = NULL;
98 xbt_dynar_t STag_surfxml_config_cb_list = NULL;
99 xbt_dynar_t ETag_surfxml_config_cb_list = NULL;
100 xbt_dynar_t STag_surfxml_include_cb_list = NULL;
101 xbt_dynar_t ETag_surfxml_include_cb_list = NULL;
103 /* store the current property set for any tag */
104 xbt_dict_t current_property_set = NULL;
105 /* dictionary of random generator data */
106 xbt_dict_t random_data_list = NULL;
108 static XBT_INLINE void surfxml_call_cb_functions(xbt_dynar_t);
110 YY_BUFFER_STATE surf_input_buffer;
111 FILE *surf_file_to_parse = NULL;
113 static void surf_parse_error(char *msg);
115 static void parse_Stag_trace(void);
116 static void parse_Etag_trace(void);
117 static void parse_Stag_trace_connect(void);
119 static void init_randomness(void);
120 static void add_randomness(void);
122 static xbt_dynar_t surf_input_buffer_stack = NULL;
123 static xbt_dynar_t surf_file_to_parse_stack = NULL;
125 void STag_surfxml_include(void)
127 XBT_INFO("STag_surfxml_include '%s'",A_surfxml_include_file);
128 xbt_dynar_push(surf_file_to_parse_stack, &surf_file_to_parse); //save old filename
130 surf_file_to_parse = surf_fopen(A_surfxml_include_file, "r"); // read new filename
131 xbt_assert((surf_file_to_parse), "Unable to open \"%s\"\n",
132 A_surfxml_include_file);
133 xbt_dynar_push(surf_input_buffer_stack,&surf_input_buffer);
134 surf_input_buffer = surf_parse__create_buffer(surf_file_to_parse, YY_BUF_SIZE);
135 surf_parse_push_buffer_state(surf_input_buffer);
139 void ETag_surfxml_include(void)
141 // XBT_INFO("ETag_surfxml_include '%s'",A_surfxml_include_file);
143 // fclose(surf_file_to_parse);
144 // xbt_dynar_pop(surf_file_to_parse_stack, &surf_file_to_parse); // restore old filename
145 // surf_parse_pop_buffer_state();
146 // xbt_dynar_pop(surf_input_buffer_stack,&surf_input_buffer);
150 * Return 1 if tag include is opened
152 int ETag_surfxml_include_state(void)
155 XBT_INFO("ETag_surfxml_include_state '%s'",A_surfxml_include_file);
156 if(xbt_dynar_length(surf_input_buffer_stack)!= 0)
158 fclose(surf_file_to_parse);
159 xbt_dynar_pop(surf_file_to_parse_stack, &surf_file_to_parse);
160 surf_parse_pop_buffer_state();
161 xbt_dynar_pop(surf_input_buffer_stack,surf_input_buffer);
166 void surf_parse_init_callbacks(void)
168 STag_surfxml_platform_cb_list =
169 xbt_dynar_new(sizeof(void_f_void_t), NULL);
170 ETag_surfxml_platform_cb_list =
171 xbt_dynar_new(sizeof(void_f_void_t), NULL);
172 STag_surfxml_host_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
173 ETag_surfxml_host_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
174 STag_surfxml_router_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
175 ETag_surfxml_router_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
176 STag_surfxml_link_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
177 ETag_surfxml_link_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
178 STag_surfxml_route_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
179 ETag_surfxml_route_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
180 STag_surfxml_link_ctn_cb_list =
181 xbt_dynar_new(sizeof(void_f_void_t), NULL);
182 ETag_surfxml_link_ctn_cb_list =
183 xbt_dynar_new(sizeof(void_f_void_t), NULL);
184 STag_surfxml_process_cb_list =
185 xbt_dynar_new(sizeof(void_f_void_t), NULL);
186 ETag_surfxml_process_cb_list =
187 xbt_dynar_new(sizeof(void_f_void_t), NULL);
188 STag_surfxml_argument_cb_list =
189 xbt_dynar_new(sizeof(void_f_void_t), NULL);
190 ETag_surfxml_argument_cb_list =
191 xbt_dynar_new(sizeof(void_f_void_t), NULL);
192 STag_surfxml_prop_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
193 ETag_surfxml_prop_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
194 STag_surfxml_trace_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
195 ETag_surfxml_trace_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
196 STag_surfxml_trace_connect_cb_list =
197 xbt_dynar_new(sizeof(void_f_void_t), NULL);
198 ETag_surfxml_trace_connect_cb_list =
199 xbt_dynar_new(sizeof(void_f_void_t), NULL);
200 STag_surfxml_random_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
201 ETag_surfxml_random_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
202 STag_surfxml_AS_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
203 ETag_surfxml_AS_cb_list = xbt_dynar_new(sizeof(void_f_void_t), NULL);
204 STag_surfxml_ASroute_cb_list =
205 xbt_dynar_new(sizeof(void_f_void_t), NULL);
206 ETag_surfxml_ASroute_cb_list =
207 xbt_dynar_new(sizeof(void_f_void_t), NULL);
208 STag_surfxml_bypassRoute_cb_list =
209 xbt_dynar_new(sizeof(void_f_void_t), NULL);
210 ETag_surfxml_bypassRoute_cb_list =
211 xbt_dynar_new(sizeof(void_f_void_t), NULL);
212 STag_surfxml_cluster_cb_list =
213 xbt_dynar_new(sizeof(void_f_void_t), NULL);
214 ETag_surfxml_cluster_cb_list =
215 xbt_dynar_new(sizeof(void_f_void_t), NULL);
216 STag_surfxml_peer_cb_list =
217 xbt_dynar_new(sizeof(void_f_void_t), NULL);
218 ETag_surfxml_peer_cb_list =
219 xbt_dynar_new(sizeof(void_f_void_t), NULL);
220 STag_surfxml_config_cb_list =
221 xbt_dynar_new(sizeof(void_f_void_t), NULL);
222 ETag_surfxml_config_cb_list =
223 xbt_dynar_new(sizeof(void_f_void_t), NULL);
224 STag_surfxml_include_cb_list =
225 xbt_dynar_new(sizeof(void_f_void_t), NULL);
226 ETag_surfxml_include_cb_list =
227 xbt_dynar_new(sizeof(void_f_void_t), NULL);
230 void surf_parse_reset_callbacks(void)
232 surf_parse_free_callbacks();
233 surf_parse_init_callbacks();
236 void surf_parse_free_callbacks(void)
238 xbt_dynar_free(&STag_surfxml_platform_cb_list);
239 xbt_dynar_free(&ETag_surfxml_platform_cb_list);
240 xbt_dynar_free(&STag_surfxml_host_cb_list);
241 xbt_dynar_free(&ETag_surfxml_host_cb_list);
242 xbt_dynar_free(&STag_surfxml_router_cb_list);
243 xbt_dynar_free(&ETag_surfxml_router_cb_list);
244 xbt_dynar_free(&STag_surfxml_link_cb_list);
245 xbt_dynar_free(&ETag_surfxml_link_cb_list);
246 xbt_dynar_free(&STag_surfxml_route_cb_list);
247 xbt_dynar_free(&ETag_surfxml_route_cb_list);
248 xbt_dynar_free(&STag_surfxml_link_ctn_cb_list);
249 xbt_dynar_free(&ETag_surfxml_link_ctn_cb_list);
250 xbt_dynar_free(&STag_surfxml_process_cb_list);
251 xbt_dynar_free(&ETag_surfxml_process_cb_list);
252 xbt_dynar_free(&STag_surfxml_argument_cb_list);
253 xbt_dynar_free(&ETag_surfxml_argument_cb_list);
254 xbt_dynar_free(&STag_surfxml_prop_cb_list);
255 xbt_dynar_free(&ETag_surfxml_prop_cb_list);
256 xbt_dynar_free(&STag_surfxml_trace_cb_list);
257 xbt_dynar_free(&ETag_surfxml_trace_cb_list);
258 xbt_dynar_free(&STag_surfxml_trace_connect_cb_list);
259 xbt_dynar_free(&ETag_surfxml_trace_connect_cb_list);
260 xbt_dynar_free(&STag_surfxml_random_cb_list);
261 xbt_dynar_free(&ETag_surfxml_random_cb_list);
262 xbt_dynar_free(&STag_surfxml_AS_cb_list);
263 xbt_dynar_free(&ETag_surfxml_AS_cb_list);
264 xbt_dynar_free(&STag_surfxml_ASroute_cb_list);
265 xbt_dynar_free(&ETag_surfxml_ASroute_cb_list);
266 xbt_dynar_free(&STag_surfxml_bypassRoute_cb_list);
267 xbt_dynar_free(&ETag_surfxml_bypassRoute_cb_list);
268 xbt_dynar_free(&STag_surfxml_cluster_cb_list);
269 xbt_dynar_free(&ETag_surfxml_cluster_cb_list);
270 xbt_dynar_free(&STag_surfxml_peer_cb_list);
271 xbt_dynar_free(&ETag_surfxml_peer_cb_list);
272 xbt_dynar_free(&STag_surfxml_config_cb_list);
273 xbt_dynar_free(&ETag_surfxml_config_cb_list);
274 xbt_dynar_free(&STag_surfxml_include_cb_list);
275 xbt_dynar_free(&ETag_surfxml_include_cb_list);
278 /* Stag and Etag parse functions */
280 void STag_surfxml_platform(void)
282 double version = 0.0;
284 sscanf(A_surfxml_platform_version, "%lg", &version);
286 xbt_assert((version >= 1.0), "******* BIG FAT WARNING *********\n "
287 "You're using an ancient XML file.\n"
288 "Since SimGrid 3.1, units are Bytes, Flops, and seconds "
289 "instead of MBytes, MFlops and seconds.\n"
291 "Use simgrid_update_xml to update your file automatically. "
292 "This program is installed automatically with SimGrid, or "
293 "available in the tools/ directory of the source archive.\n"
295 "Please check also out the SURF section of the ChangeLog for "
296 "the 3.1 version for more information. \n"
298 "Last, do not forget to also update your values for "
299 "the calls to MSG_task_create (if any).");
300 xbt_assert((version >= 3.0), "******* BIG FAT WARNING *********\n "
301 "You're using an old XML file.\n"
302 "Use simgrid_update_xml to update your file automatically. "
303 "This program is installed automatically with SimGrid, or "
304 "available in the tools/ directory of the source archive.");
306 surfxml_call_cb_functions(STag_surfxml_platform_cb_list);
310 void STag_surfxml_host(void){
312 s_host.V_host_id = xbt_strdup(A_surfxml_host_id);
313 s_host.V_host_power_peak = get_cpu_power(A_surfxml_host_power);
314 surf_parse_get_double(&(s_host.V_host_power_scale), A_surfxml_host_availability);
315 surf_parse_get_int(&(s_host.V_host_core),A_surfxml_host_core);
316 s_host.V_host_power_trace = tmgr_trace_new(A_surfxml_host_availability_file);
317 s_host.V_host_state_trace = tmgr_trace_new(A_surfxml_host_state_file);
318 xbt_assert((A_surfxml_host_state == A_surfxml_host_state_ON) ||
319 (A_surfxml_host_state == A_surfxml_host_state_OFF), "Invalid state");
320 if (A_surfxml_host_state == A_surfxml_host_state_ON)
321 s_host.V_host_state_initial = SURF_RESOURCE_ON;
322 if (A_surfxml_host_state == A_surfxml_host_state_OFF)
323 s_host.V_host_state_initial = SURF_RESOURCE_OFF;
324 s_host.V_host_coord = xbt_strdup(A_surfxml_host_coordinates);
326 surfxml_call_cb_functions(STag_surfxml_host_cb_list);
328 void ETag_surfxml_host(void){
329 xbt_free(s_host.V_host_id);
330 s_host.V_host_power_peak = 0.0;
331 s_host.V_host_core = 0;
332 s_host.V_host_power_scale = 0.0;
333 tmgr_trace_free(s_host.V_host_power_trace);
334 s_host.V_host_state_initial = SURF_RESOURCE_ON;
335 tmgr_trace_free(s_host.V_host_state_trace);
336 xbt_free(s_host.V_host_coord);
338 surfxml_call_cb_functions(ETag_surfxml_host_cb_list);
341 void STag_surfxml_router(void){
343 s_router.V_router_id = xbt_strdup(A_surfxml_router_id);
344 s_router.V_router_coord = xbt_strdup(A_surfxml_router_coordinates);
346 surfxml_call_cb_functions(STag_surfxml_router_cb_list);
348 void ETag_surfxml_router(void){
349 xbt_free(s_router.V_router_id);
350 xbt_free(s_router.V_router_coord);
352 surfxml_call_cb_functions(ETag_surfxml_router_cb_list);
355 void STag_surfxml_cluster(void){
357 s_cluster.V_cluster_id = xbt_strdup(A_surfxml_cluster_id);
358 s_cluster.V_cluster_prefix = xbt_strdup(A_surfxml_cluster_prefix);
359 s_cluster.V_cluster_suffix = xbt_strdup(A_surfxml_cluster_suffix);
360 s_cluster.V_cluster_radical = xbt_strdup(A_surfxml_cluster_radical);
361 surf_parse_get_double(&(s_cluster.V_cluster_power), A_surfxml_cluster_power);
362 surf_parse_get_int(&(s_cluster.V_cluster_core), A_surfxml_cluster_core);
363 surf_parse_get_double(&(s_cluster.V_cluster_bw), A_surfxml_cluster_bw);
364 surf_parse_get_double(&(s_cluster.V_cluster_lat), A_surfxml_cluster_lat);
365 surf_parse_get_double(&(s_cluster.V_cluster_bb_bw), A_surfxml_cluster_bb_bw);
366 surf_parse_get_double(&(s_cluster.V_cluster_bb_lat), A_surfxml_cluster_bb_lat);
367 s_cluster.V_cluster_router_id = xbt_strdup(A_surfxml_cluster_router_id);
368 s_cluster.V_cluster_sharing_policy = AX_surfxml_cluster_sharing_policy;
369 s_cluster.V_cluster_bb_sharing_policy = AX_surfxml_cluster_bb_sharing_policy;
371 surfxml_call_cb_functions(STag_surfxml_cluster_cb_list);
373 void ETag_surfxml_cluster(void){
374 xbt_free(s_cluster.V_cluster_id);
375 xbt_free(s_cluster.V_cluster_prefix);
376 xbt_free(s_cluster.V_cluster_suffix);
377 xbt_free(s_cluster.V_cluster_radical);
378 s_cluster.V_cluster_power = 0;
379 s_cluster.V_cluster_core = 0;
380 s_cluster.V_cluster_bw = 0;
381 s_cluster.V_cluster_lat = 0;
382 s_cluster.V_cluster_bb_bw = 0;
383 s_cluster.V_cluster_bb_lat = 0;
384 xbt_free(s_cluster.V_cluster_router_id);
385 s_cluster.V_cluster_sharing_policy = 0;
386 s_cluster.V_cluster_bb_sharing_policy = 0;
388 surfxml_call_cb_functions(ETag_surfxml_cluster_cb_list);
391 void STag_surfxml_peer(void){
393 s_peer.V_peer_id = xbt_strdup(A_surfxml_peer_id);
394 surf_parse_get_double(&(s_peer.V_peer_power), A_surfxml_peer_power);
395 surf_parse_get_double(&(s_peer.V_peer_bw_in), A_surfxml_peer_bw_in);
396 surf_parse_get_double(&(s_peer.V_peer_bw_out), A_surfxml_peer_bw_out);
397 surf_parse_get_double(&(s_peer.V_peer_lat), A_surfxml_peer_lat);
398 s_peer.V_peer_coord = xbt_strdup(A_surfxml_peer_coordinates);
399 s_peer.V_peer_availability_trace = tmgr_trace_new(A_surfxml_peer_availability_file);
400 s_peer.V_peer_state_trace = tmgr_trace_new(A_surfxml_peer_state_file);
402 surfxml_call_cb_functions(STag_surfxml_peer_cb_list);
404 void ETag_surfxml_peer(void){
405 xbt_free(s_peer.V_peer_id);
406 s_peer.V_peer_power = 0;
407 s_peer.V_peer_bw_in = 0;
408 s_peer.V_peer_bw_out = 0;
409 s_peer.V_peer_lat = 0;
410 xbt_free(s_peer.V_peer_coord);
411 tmgr_trace_free(s_peer.V_peer_availability_trace);
412 tmgr_trace_free(s_peer.V_peer_state_trace);
414 surfxml_call_cb_functions(ETag_surfxml_peer_cb_list);
416 void STag_surfxml_link(void){
418 s_link.V_link_id = xbt_strdup(A_surfxml_link_id);
419 surf_parse_get_double(&(s_link.V_link_bandwidth),A_surfxml_link_bandwidth);
420 s_link.V_link_bandwidth_file = tmgr_trace_new(A_surfxml_link_bandwidth_file);
421 surf_parse_get_double(&(s_link.V_link_latency),A_surfxml_link_latency);
422 s_link.V_link_latency_file = tmgr_trace_new(A_surfxml_link_latency_file);
423 xbt_assert((A_surfxml_link_state == A_surfxml_link_state_ON) ||
424 (A_surfxml_link_state == A_surfxml_link_state_OFF), "Invalid state");
425 if (A_surfxml_link_state == A_surfxml_link_state_ON)
426 s_link.V_link_state = SURF_RESOURCE_ON;
427 if (A_surfxml_link_state == A_surfxml_link_state_OFF)
428 s_link.V_link_state = SURF_RESOURCE_OFF;
429 s_link.V_link_state_file = tmgr_trace_new(A_surfxml_link_state_file);
430 s_link.V_link_sharing_policy = A_surfxml_link_sharing_policy;
432 surfxml_call_cb_functions(STag_surfxml_link_cb_list);
434 void ETag_surfxml_link(void){
435 xbt_free(s_link.V_link_id);
436 s_link.V_link_bandwidth = 0;
437 tmgr_trace_free(s_link.V_link_bandwidth_file);
438 s_link.V_link_latency = 0;
439 tmgr_trace_free(s_link.V_link_latency_file);
440 s_link.V_link_state = SURF_RESOURCE_ON;
441 tmgr_trace_free(s_link.V_link_state_file);
442 s_link.V_link_sharing_policy = 0;
444 surfxml_call_cb_functions(ETag_surfxml_link_cb_list);
447 void STag_surfxml_route(void){
448 surfxml_call_cb_functions(STag_surfxml_route_cb_list);
450 void STag_surfxml_link_ctn(void){
451 surfxml_call_cb_functions(STag_surfxml_link_ctn_cb_list);
453 void STag_surfxml_process(void){
454 surfxml_call_cb_functions(STag_surfxml_process_cb_list);
456 void STag_surfxml_argument(void){
457 surfxml_call_cb_functions(STag_surfxml_argument_cb_list);
459 void STag_surfxml_prop(void){
460 surfxml_call_cb_functions(STag_surfxml_prop_cb_list);
462 void STag_surfxml_trace(void){
463 surfxml_call_cb_functions(STag_surfxml_trace_cb_list);
465 void STag_surfxml_trace_connect(void){
466 surfxml_call_cb_functions(STag_surfxml_trace_connect_cb_list);
468 void STag_surfxml_AS(void){
469 surfxml_call_cb_functions(STag_surfxml_AS_cb_list);
471 void STag_surfxml_ASroute(void){
472 surfxml_call_cb_functions(STag_surfxml_ASroute_cb_list);
474 void STag_surfxml_bypassRoute(void){
475 surfxml_call_cb_functions(STag_surfxml_bypassRoute_cb_list);
477 void STag_surfxml_config(void){
478 surfxml_call_cb_functions(STag_surfxml_config_cb_list);
480 void STag_surfxml_random(void){
481 surfxml_call_cb_functions(STag_surfxml_random_cb_list);
484 #define parse_method(type,name) \
485 void type##Tag_surfxml_##name(void) \
486 { surfxml_call_cb_functions(type##Tag_surfxml_##name##_cb_list); }
487 parse_method(E, platform);
488 parse_method(E, route);
489 parse_method(E, link_ctn);
490 parse_method(E, process);
491 parse_method(E, argument);
492 parse_method(E, prop);
493 parse_method(E, trace);
494 parse_method(E, trace_connect);
495 parse_method(E, random);
497 parse_method(E, ASroute);
498 parse_method(E, bypassRoute);
499 parse_method(E, config);
501 /* Open and Close parse file */
503 void surf_parse_open(const char *file)
505 static int warned = 0; /* warn only once */
509 ("Bypassing the XML parser since surf_parse_open received a NULL pointer. If it is not what you want, go fix your code.");
515 if (!surf_input_buffer_stack)
516 surf_input_buffer_stack = xbt_dynar_new(sizeof(YY_BUFFER_STATE), NULL);
517 if (!surf_file_to_parse_stack)
518 surf_file_to_parse_stack = xbt_dynar_new(sizeof(FILE *), NULL);
520 surf_file_to_parse = surf_fopen(file, "r");
521 xbt_assert((surf_file_to_parse), "Unable to open \"%s\"\n", file);
522 surf_input_buffer = surf_parse__create_buffer(surf_file_to_parse, YY_BUF_SIZE);
523 surf_parse__switch_to_buffer(surf_input_buffer);
524 surf_parse_lineno = 1;
527 void surf_parse_close(void)
529 if (surf_input_buffer_stack)
530 xbt_dynar_free(&surf_input_buffer_stack);
531 if (surf_file_to_parse_stack)
532 xbt_dynar_free(&surf_file_to_parse_stack);
534 if (surf_file_to_parse) {
535 surf_parse__delete_buffer(surf_input_buffer);
536 fclose(surf_file_to_parse);
537 surf_file_to_parse = NULL; //Must be reset for Bypass
543 static int _surf_parse(void)
545 return surf_parse_lex();
548 int_f_void_t surf_parse = _surf_parse;
550 void surf_parse_error(char *msg)
552 fprintf(stderr, "Parse error on line %d: %s\n", surf_parse_lineno, msg);
556 void surf_parse_get_double(double *value, const char *string)
559 ret = sscanf(string, "%lg", value);
561 surf_parse_error(bprintf("%s is not a double", string));
564 void surf_parse_get_int(int *value, const char *string)
567 ret = sscanf(string, "%d", value);
569 surf_parse_error(bprintf("%s is not an integer", string));
572 /* Aux parse functions */
574 void surfxml_add_callback(xbt_dynar_t cb_list, void_f_void_t function)
576 xbt_dynar_push(cb_list, &function);
579 void surfxml_del_callback(xbt_dynar_t cb_list, void_f_void_t function)
583 void_f_void_t null_f=NULL;
586 it = xbt_dynar_search(cb_list,&function);
589 if (e.category == not_found_error) {
591 xbt_die("Trying to remove a callback that is not here! This should not happen");
596 xbt_dynar_replace(cb_list, it,&null_f);
599 static XBT_INLINE void surfxml_call_cb_functions(xbt_dynar_t cb_list)
601 unsigned int iterator;
603 xbt_dynar_foreach(cb_list, iterator, fun) {
608 /* Init and free parse data */
610 static void init_data(void)
612 if (!surfxml_bufferstack_stack)
613 surfxml_bufferstack_stack = xbt_dynar_new(sizeof(char *), NULL);
615 traces_set_list = xbt_dict_new();
616 trace_connect_list_host_avail = xbt_dict_new();
617 trace_connect_list_power = xbt_dict_new();
618 trace_connect_list_link_avail = xbt_dict_new();
619 trace_connect_list_bandwidth = xbt_dict_new();
620 trace_connect_list_latency = xbt_dict_new();
622 surfxml_add_callback(STag_surfxml_trace_cb_list, &parse_Stag_trace);
623 surfxml_add_callback(ETag_surfxml_trace_cb_list, &parse_Etag_trace);
624 surfxml_add_callback(STag_surfxml_trace_connect_cb_list,
625 &parse_Stag_trace_connect);
628 static void free_data(void)
630 xbt_dict_free(&trace_connect_list_host_avail);
631 xbt_dict_free(&trace_connect_list_power);
632 xbt_dict_free(&trace_connect_list_link_avail);
633 xbt_dict_free(&trace_connect_list_bandwidth);
634 xbt_dict_free(&trace_connect_list_latency);
635 xbt_dict_free(&traces_set_list);
636 xbt_dict_free(&random_data_list);
637 xbt_dynar_free(&surfxml_bufferstack_stack);
640 /* Here start parse */
641 void parse_platform_file(const char *file)
645 surfxml_buffer_stack_stack_ptr = 1;
646 surfxml_buffer_stack_stack[0] = 0;
648 surf_parse_open(file);
650 parse_status = surf_parse();
653 xbt_assert(!parse_status, "Parse error in %s", file);
656 /* Prop tag functions */
658 void parse_properties(const char* prop_id, const char* prop_value)
661 if (!current_property_set)
662 current_property_set = xbt_dict_new(); // Maybe, it should be make a error
663 if(!strcmp(prop_id,"coordinates")){
664 if(!strcmp(prop_value,"yes") && !COORD_HOST_LEVEL)
666 XBT_INFO("Configuration change: Set '%s' to '%s'", prop_id, prop_value);
667 COORD_HOST_LEVEL = xbt_lib_add_level(host_lib,xbt_dynar_free_voidp);
668 COORD_ASR_LEVEL = xbt_lib_add_level(as_router_lib,xbt_dynar_free_voidp);
670 if(strcmp(A_surfxml_prop_value,"yes"))
671 xbt_die("Setting XML prop coordinates must be \"yes\"");
674 value = xbt_strdup(prop_value);
675 xbt_dict_set(current_property_set, prop_id, value, free);
682 void parse_properties_XML(void)
684 parse_properties(A_surfxml_prop_id, A_surfxml_prop_value);
690 void parse_properties_lua(const char* prop_id, const char* prop_value)
692 parse_properties(prop_id, prop_value);
695 /* Trace management functions */
697 static double trace_periodicity = -1.0;
698 static char *trace_file = NULL;
699 static char *trace_id = NULL;
701 static void parse_Stag_trace(void)
703 trace_id = xbt_strdup(A_surfxml_trace_id);
704 trace_file = xbt_strdup(A_surfxml_trace_file);
705 surf_parse_get_double(&trace_periodicity, A_surfxml_trace_periodicity);
708 static void parse_Etag_trace(void)
711 if (!trace_file || strcmp(trace_file, "") != 0) {
712 trace = tmgr_trace_new(trace_file);
714 if (strcmp(surfxml_pcdata, "") == 0)
718 tmgr_trace_new_from_string(trace_id, surfxml_pcdata,
721 xbt_dict_set(traces_set_list, trace_id, (void *) trace, NULL);
722 xbt_free(trace_file);
728 static void parse_Stag_trace_connect(void)
730 xbt_assert(xbt_dict_get_or_null
731 (traces_set_list, A_surfxml_trace_connect_trace),
732 "Cannot connect trace %s to %s: trace unknown",
733 A_surfxml_trace_connect_trace,
734 A_surfxml_trace_connect_element);
736 switch (A_surfxml_trace_connect_kind) {
737 case A_surfxml_trace_connect_kind_HOST_AVAIL:
738 xbt_dict_set(trace_connect_list_host_avail,
739 A_surfxml_trace_connect_trace,
740 xbt_strdup(A_surfxml_trace_connect_element), free);
742 case A_surfxml_trace_connect_kind_POWER:
743 xbt_dict_set(trace_connect_list_power, A_surfxml_trace_connect_trace,
744 xbt_strdup(A_surfxml_trace_connect_element), free);
746 case A_surfxml_trace_connect_kind_LINK_AVAIL:
747 xbt_dict_set(trace_connect_list_link_avail,
748 A_surfxml_trace_connect_trace,
749 xbt_strdup(A_surfxml_trace_connect_element), free);
751 case A_surfxml_trace_connect_kind_BANDWIDTH:
752 xbt_dict_set(trace_connect_list_bandwidth,
753 A_surfxml_trace_connect_trace,
754 xbt_strdup(A_surfxml_trace_connect_element), free);
756 case A_surfxml_trace_connect_kind_LATENCY:
757 xbt_dict_set(trace_connect_list_latency, A_surfxml_trace_connect_trace,
758 xbt_strdup(A_surfxml_trace_connect_element), free);
761 xbt_die("Cannot connect trace %s to %s: kind of trace unknown",
762 A_surfxml_trace_connect_trace, A_surfxml_trace_connect_element);
766 /* Random tag functions */
768 double get_cpu_power(const char *power)
770 double power_scale = 0.0;
773 random_data_t random = NULL;
774 /* randomness is inserted like this: power="$rand(my_random)" */
775 if (((p = strstr(power, "$rand(")) != NULL)
776 && ((q = strstr(power, ")")) != NULL)) {
778 generator = xbt_malloc(q - (p + 6) + 1);
779 memcpy(generator, p + 6, q - (p + 6));
780 generator[q - (p + 6)] = '\0';
781 random = xbt_dict_get_or_null(random_data_list, generator);
782 xbt_assert(random, "Random generator %s undefined", generator);
783 power_scale = random_generate(random);
786 surf_parse_get_double(&power_scale, power);
791 double random_min, random_max, random_mean, random_std_deviation,
795 static void init_randomness(void)
797 random_id = A_surfxml_random_id;
798 surf_parse_get_double(&random_min, A_surfxml_random_min);
799 surf_parse_get_double(&random_max, A_surfxml_random_max);
800 surf_parse_get_double(&random_mean, A_surfxml_random_mean);
801 surf_parse_get_double(&random_std_deviation,
802 A_surfxml_random_std_deviation);
803 random_generator = A_surfxml_random_generator;
806 static void add_randomness(void)
808 /* If needed aditional properties can be added by using the prop tag */
809 random_data_t random =
810 random_new(random_generator, 0, random_min, random_max, random_mean,
811 random_std_deviation);
812 xbt_dict_set(random_data_list, random_id, (void *) random,
817 * create CPU resource via CPU Model
819 void* surf_host_create_resource(char *name, double power_peak,
821 tmgr_trace_t power_trace, int core,
822 e_surf_resource_state_t state_initial,
823 tmgr_trace_t state_trace,
824 xbt_dict_t cpu_properties)
826 return surf_cpu_model->extension.cpu.create_resource(name, power_peak,
836 * create CPU resource via worsktation_ptask_L07 model
839 void* surf_wsL07_host_create_resource(char *name, double power_peak,
841 tmgr_trace_t power_trace,
842 e_surf_resource_state_t state_initial,
843 tmgr_trace_t state_trace,
844 xbt_dict_t cpu_properties)
846 return surf_workstation_model->extension.workstation.cpu_create_resource(name,
856 * create link resource via network Model
858 void* surf_link_create_resource(char *name,
860 tmgr_trace_t bw_trace,
862 tmgr_trace_t lat_trace,
863 e_surf_resource_state_t
865 tmgr_trace_t state_trace,
866 e_surf_link_sharing_policy_t policy,
867 xbt_dict_t properties)
869 return surf_network_model->extension.network.create_resource(name,
881 * create link resource via workstation_ptask_L07 model
884 void* surf_wsL07_link_create_resource(char *name,
886 tmgr_trace_t bw_trace,
888 tmgr_trace_t lat_trace,
889 e_surf_resource_state_t
891 tmgr_trace_t state_trace,
892 e_surf_link_sharing_policy_t
893 policy, xbt_dict_t properties)
895 return surf_workstation_model->extension.workstation.
896 link_create_resource(name, bw_initial, bw_trace, lat_initial,
897 lat_trace, state_initial, state_trace, policy,
903 *init new routing model component
906 void surf_AS_new(const char *AS_id, const char *AS_mode)
908 routing_AS_init(AS_id, AS_mode);
911 void surf_AS_finalize(const char *AS_id)
913 routing_AS_end(AS_id);
917 * add host to the network element list
919 void surf_route_add_host(const char *host_id)
921 routing_add_host(host_id);
927 void surf_routing_add_route(const char *src_id, const char *dst_id,
928 xbt_dynar_t links_id)
932 routing_set_route(src_id, dst_id);
933 xbt_dynar_foreach(links_id, i, link_id) {
934 routing_add_link(link_id);
938 routing_store_route();
944 void surf_add_host_traces(void)
946 return surf_cpu_model->extension.cpu.add_traces();
949 void surf_add_link_traces(void)
951 return surf_network_model->extension.network.add_traces();
954 void surf_wsL07_add_traces(void)
956 return surf_workstation_model->extension.workstation.add_traces();