Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
b8195cd20f66cdaa47648443a2667b80d114c85d
[simgrid.git] / src / instr / jedule / jedule_output.c
1 /* Copyright (c) 2010-2014. The SimGrid Team.
2  * All rights reserved.                                                     */
3
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. */
6
7 #include <stdio.h>
8 #include <stdlib.h>
9 #include <string.h>
10
11 #include "xbt/dynar.h"
12 #include "xbt/asserts.h"
13
14 #include "simgrid/jedule/jedule_output.h"
15
16 #ifdef HAVE_JEDULE
17
18 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(jed_out, jedule,
19                                 "Logging specific to Jedule output");
20
21 /*********************************************************/
22
23 xbt_dynar_t jedule_event_list;
24
25 static FILE *jed_file;
26
27 static void print_platform(jed_simgrid_container_t root_container);
28 static void print_container(jed_simgrid_container_t container);
29 static void print_resources(jed_simgrid_container_t resource_parent);
30 static void print_key_value_dict(xbt_dict_t meta_info_dict);
31 static void print_events(xbt_dynar_t event_list);
32 static void get_hierarchy_list(xbt_dynar_t hier_list,
33                                jed_simgrid_container_t container);
34
35 /*********************************************************/
36
37
38 static void get_hierarchy_list(xbt_dynar_t hier_list,
39                                jed_simgrid_container_t container) {
40
41   xbt_assert( container != NULL );
42
43   if( container->parent != NULL ) {
44
45     if( container->parent->container_children == NULL ) {
46       // we are in the last level
47       get_hierarchy_list(hier_list, container->parent);
48
49     } else {
50       unsigned int i;
51       int child_nb = -1;
52       jed_simgrid_container_t child_container;
53
54       xbt_dynar_foreach(container->parent->container_children, i,
55                         child_container) {
56         if( child_container == container ) {
57           child_nb = i;
58           break;
59         }
60       }
61
62       xbt_assert( child_nb > - 1);
63
64       xbt_dynar_insert_at(hier_list, 0, &child_nb);
65
66       get_hierarchy_list(hier_list, container->parent);
67     }
68   } else {
69     int top_level = 0;
70     xbt_dynar_insert_at(hier_list, 0, &top_level);
71   }
72
73 }
74
75 static void get_hierarchy_string(jed_simgrid_container_t container,
76                                  char *outbuf) {
77     char buf[1024];
78     xbt_dynar_t hier_list;
79     unsigned int iter;
80     int number;
81     int length;
82     
83     outbuf[0] = '\0';
84     hier_list = xbt_dynar_new(sizeof(int), NULL);
85     get_hierarchy_list(hier_list, container);
86     
87     length = xbt_dynar_length(hier_list);
88     
89     xbt_dynar_foreach(hier_list, iter, number) {
90         if( iter != length-1 ) {
91             sprintf(buf, "%d.", number);
92         } else {
93             sprintf(buf, "%d", number);
94         }
95         strcat(outbuf, buf);
96     }
97     
98     xbt_dynar_free(&hier_list);    
99 }
100
101 static void print_key_value_dict(xbt_dict_t key_value_dict) {
102   xbt_dict_cursor_t cursor=NULL;
103   char *key,*data;
104
105   if( key_value_dict != NULL ) {
106     xbt_dict_foreach(key_value_dict,cursor,key,data) {
107       fprintf(jed_file, "        <prop key=\"%s\" value=\"%s\" />\n",key,data);
108     }
109   }
110 }
111
112 static void print_container(jed_simgrid_container_t container) {
113   unsigned int i;
114   jed_simgrid_container_t child_container;
115
116   xbt_assert( container != NULL );
117
118   fprintf(jed_file, "    <res name=\"%s\">\n", container->name);
119   if( container->container_children != NULL ) {
120     xbt_dynar_foreach(container->container_children, i, child_container) {
121       print_container(child_container);
122     }
123   } else {
124     print_resources(container);
125   }
126   fprintf(jed_file, "    </res>\n");
127 }
128
129 static void print_resources(jed_simgrid_container_t resource_parent) {
130   int res_nb;
131   unsigned int i;
132   char *res_name;
133     char resid[1024];
134   xbt_assert( resource_parent->resource_list != NULL );
135
136   res_nb = xbt_dynar_length(resource_parent->resource_list);
137     
138     get_hierarchy_string(resource_parent, resid);
139
140   fprintf(jed_file, "      <rset id=\"%s\" nb=\"%d\" names=\"", resid, res_nb);
141   xbt_dynar_foreach(resource_parent->resource_list, i, res_name) {
142     fprintf(jed_file, "%s", res_name);
143     if( i != res_nb-1 ) {
144       fprintf(jed_file, "|");
145     }
146   }
147   fprintf(jed_file, "\" />\n");
148 }
149
150
151 static void print_platform(jed_simgrid_container_t root_container) {
152   fprintf(jed_file, "  <platform>\n");
153   print_container(root_container);
154   fprintf(jed_file, "  </platform>\n");
155 }
156
157 static void print_event(jed_event_t event) {
158   unsigned int i;
159   jed_res_subset_t subset;
160
161
162   xbt_assert( event != NULL );
163   xbt_assert( event->resource_subsets != NULL );
164
165   fprintf(jed_file, "    <event>\n");
166
167
168   fprintf(jed_file, "      <prop key=\"name\" value=\"%s\" />\n", event->name);
169   fprintf(jed_file, "      <prop key=\"start\" value=\"%g\" />\n",
170                     event->start_time);
171   fprintf(jed_file, "      <prop key=\"end\" value=\"%g\" />\n",
172                     event->end_time);
173   fprintf(jed_file, "      <prop key=\"type\" value=\"%s\" />\n", event->type);
174
175   fprintf(jed_file, "      <res_util>\n");
176
177   xbt_dynar_foreach(event->resource_subsets, i, subset) {
178
179     int start = subset->start_idx;
180     int end   = subset->start_idx + subset->nres - 1;
181     char resid[1024];
182
183     get_hierarchy_string(subset->parent, resid);
184         
185     fprintf(jed_file, "        <select resources=\"");
186     fprintf(jed_file, "%s", resid);
187     fprintf(jed_file, ".[%d-%d]", start, end);
188     fprintf(jed_file, "\" />\n");
189
190   }
191
192   fprintf(jed_file, "      </res_util>\n");
193   if (!xbt_dynar_is_empty(event->characteristics_list)){
194     fprintf(jed_file, "      <characteristics>\n");
195     {
196       char *ch;
197       unsigned int iter;
198       xbt_dynar_foreach(event->characteristics_list, iter, ch) {
199         fprintf(jed_file, "          <characteristic name=\"%s\" />\n", ch);
200       }
201     }
202     fprintf(jed_file, "      </characteristics>\n");
203   }
204
205   if (!xbt_dict_is_empty(event->info_hash)){
206     fprintf(jed_file, "      <info>\n");
207     print_key_value_dict(event->info_hash);
208     fprintf(jed_file, "      </info>\n");
209   }
210
211   fprintf(jed_file, "    </event>\n");
212 }
213
214 static void print_events(xbt_dynar_t event_list)  {
215   unsigned int i;
216   jed_event_t event;
217
218   fprintf(jed_file, "  <events>\n");
219   xbt_dynar_foreach(event_list, i, event) {
220     print_event(event);
221   }
222   fprintf(jed_file, "  </events>\n");
223 }
224
225 void write_jedule_output(FILE *file, jedule_t jedule,
226                          xbt_dynar_t event_list, xbt_dict_t meta_info_dict) {
227
228   jed_file = file;
229   if (!xbt_dynar_is_empty(jedule_event_list)){
230
231     fprintf(jed_file, "<jedule>\n");
232
233     if (!xbt_dict_is_empty(jedule->jedule_meta_info)){
234       fprintf(jed_file, "  <jedule_meta>\n");
235       print_key_value_dict(jedule->jedule_meta_info);
236       fprintf(jed_file, "  </jedule_meta>\n");
237     }
238
239     print_platform(jedule->root_container);
240
241     print_events(event_list);
242
243     fprintf(jed_file, "</jedule>\n");
244   }
245 }
246
247 static void jed_event_free_ref(void *evp)
248 {
249   jed_event_t ev = *(jed_event_t *)evp;
250   jed_event_free(ev);
251 }
252
253 void jedule_init_output() {
254   jedule_event_list = xbt_dynar_new(sizeof(jed_event_t), jed_event_free_ref);
255 }
256
257 void jedule_cleanup_output() {
258   xbt_dynar_free(&jedule_event_list);
259 }
260
261 void jedule_store_event(jed_event_t event) {
262   xbt_assert(event != NULL);
263   xbt_dynar_push(jedule_event_list, &event);
264 }
265
266 #endif