Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
f4790d3ddfd71db6facaca013ebcb9b69a6ac276
[simgrid.git] / src / instr / instr_paje_trace.c
1 /* Copyright (c) 2010. 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 "instr/instr_private.h"
8
9 #ifdef HAVE_TRACING
10
11 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(instr_paje_trace, instr, "Paje tracing event system");
12
13 typedef enum {
14   PAJE_DefineContainerType,
15   PAJE_DefineVariableType,
16   PAJE_DefineStateType,
17   PAJE_DefineEventType,
18   PAJE_DefineLinkType,
19   PAJE_DefineEntityValue,
20   PAJE_CreateContainer,
21   PAJE_DestroyContainer,
22   PAJE_SetVariable,
23   PAJE_AddVariable,
24   PAJE_SubVariable,
25   PAJE_SetState,
26   PAJE_PushState,
27   PAJE_PopState,
28   PAJE_StartLink,
29   PAJE_EndLink,
30   PAJE_NewEvent
31 } e_event_type;
32
33 typedef struct paje_event *paje_event_t;
34 typedef struct paje_event {
35   double timestamp;
36   e_event_type event_type;
37   void (*print) (paje_event_t event);
38   void (*free) (paje_event_t event);
39   void *data;
40 } s_paje_event_t;
41
42 typedef struct s_defineContainerType *defineContainerType_t;
43 typedef struct s_defineContainerType {
44   type_t type;
45 }s_defineContainerType_t;
46
47 typedef struct s_defineVariableType *defineVariableType_t;
48 typedef struct s_defineVariableType {
49   type_t type;
50 }s_defineVariableType_t;
51
52 typedef struct s_defineStateType *defineStateType_t;
53 typedef struct s_defineStateType {
54   type_t type;
55 }s_defineStateType_t;
56
57 typedef struct s_defineEventType *defineEventType_t;
58 typedef struct s_defineEventType {
59   type_t type;
60 }s_defineEventType_t;
61
62 typedef struct s_defineLinkType *defineLinkType_t;
63 typedef struct s_defineLinkType {
64   type_t type;
65   type_t source;
66   type_t dest;
67 }s_defineLinkType_t;
68
69 typedef struct s_defineEntityValue *defineEntityValue_t;
70 typedef struct s_defineEntityValue {
71   val_t value;
72 }s_defineEntityValue_t;
73
74 typedef struct s_createContainer *createContainer_t;
75 typedef struct s_createContainer {
76   container_t container;
77 }s_createContainer_t;
78
79 typedef struct s_destroyContainer *destroyContainer_t;
80 typedef struct s_destroyContainer {
81   container_t container;
82 }s_destroyContainer_t;
83
84 typedef struct s_setVariable *setVariable_t;
85 typedef struct s_setVariable {
86   container_t container;
87   type_t type;
88   double value;
89 }s_setVariable_t;
90
91 typedef struct s_addVariable *addVariable_t;
92 typedef struct s_addVariable {
93   container_t container;
94   type_t type;
95   double value;
96 }s_addVariable_t;
97
98 typedef struct s_subVariable *subVariable_t;
99 typedef struct s_subVariable {
100   container_t container;
101   type_t type;
102   double value;
103 }s_subVariable_t;
104
105 typedef struct s_setState *setState_t;
106 typedef struct s_setState {
107   container_t container;
108   type_t type;
109   val_t value;
110 }s_setState_t;
111
112 typedef struct s_pushState *pushState_t;
113 typedef struct s_pushState {
114   container_t container;
115   type_t type;
116   val_t value;
117 }s_pushState_t;
118
119 typedef struct s_popState *popState_t;
120 typedef struct s_popState {
121   container_t container;
122   type_t type;
123 }s_popState_t;
124
125 typedef struct s_startLink *startLink_t;
126 typedef struct s_startLink {
127   container_t container;
128   type_t type;
129   container_t sourceContainer;
130   char *value;
131   char *key;
132 }s_startLink_t;
133
134 typedef struct s_endLink *endLink_t;
135 typedef struct s_endLink {
136   container_t container;
137   type_t type;
138   container_t destContainer;
139   char *value;
140   char *key;
141 }s_endLink_t;
142
143 typedef struct s_newEvent *newEvent_t;
144 typedef struct s_newEvent {
145   container_t container;
146   type_t type;
147   val_t value;
148 }s_newEvent_t;
149
150 static FILE *tracing_file = NULL;
151
152 static xbt_dynar_t buffer = NULL;
153
154 void TRACE_paje_start(void)
155 {
156   char *filename = TRACE_get_filename();
157   tracing_file = fopen(filename, "w");
158   if (tracing_file == NULL){
159     THROWF (system_error, 1, "Tracefile %s could not be opened for writing.", filename);
160   }
161
162   XBT_DEBUG("Filename %s is open for writing", filename);
163
164   /* output header */
165   TRACE_paje_create_header();
166
167   buffer = xbt_dynar_new (sizeof(paje_event_t), NULL);
168 }
169
170 void TRACE_paje_end(void)
171 {
172   fclose(tracing_file);
173   char *filename = TRACE_get_filename();
174   xbt_dynar_free (&buffer);
175   XBT_DEBUG("Filename %s is closed", filename);
176 }
177
178 double TRACE_last_timestamp_to_dump = 0;
179 //dumps the trace file until the timestamp TRACE_last_timestamp_to_dump
180 void TRACE_paje_dump_buffer (int force)
181 {
182   if (!TRACE_is_enabled()) return;
183   XBT_DEBUG("%s: dump until %f. starts", __FUNCTION__, TRACE_last_timestamp_to_dump);
184   if (force){
185     paje_event_t event;
186     unsigned int i;
187     xbt_dynar_foreach(buffer, i, event){
188       event->print (event);
189       event->free (event);
190     }
191     xbt_dynar_free (&buffer);
192     buffer = xbt_dynar_new (sizeof(paje_event_t), NULL);
193   }else{
194     paje_event_t event;
195     while (!xbt_dynar_is_empty(buffer)){
196       double head_timestamp = (*(paje_event_t*)xbt_dynar_get_ptr(buffer, 0))->timestamp;
197       if (head_timestamp > TRACE_last_timestamp_to_dump){
198         break;
199       }
200       xbt_dynar_remove_at (buffer, 0, &event);
201       event->print (event);
202       event->free (event);
203     }
204   }
205   XBT_DEBUG("%s: ends", __FUNCTION__);
206 }
207
208 void TRACE_paje_create_header(void)
209 {
210   XBT_DEBUG ("Define paje header");
211   fprintf(tracing_file, "\
212 %%EventDef PajeDefineContainerType %d \n\
213 %%       Alias string \n\
214 %%       ContainerType string \n\
215 %%       Name string \n\
216 %%EndEventDef \n\
217 %%EventDef PajeDefineVariableType %d \n\
218 %%       Alias string \n\
219 %%       ContainerType string \n\
220 %%       Name string \n\
221 %%       Color color \n\
222 %%EndEventDef \n\
223 %%EventDef PajeDefineStateType %d \n\
224 %%       Alias string \n\
225 %%       ContainerType string \n\
226 %%       Name string \n\
227 %%EndEventDef \n\
228 %%EventDef PajeDefineEventType %d \n\
229 %%       Alias string \n\
230 %%       ContainerType string \n\
231 %%       Name string \n\
232 %%       Color color \n\
233 %%EndEventDef \n\
234 %%EventDef PajeDefineLinkType %d \n\
235 %%       Alias string \n\
236 %%       ContainerType string \n\
237 %%       SourceContainerType string \n\
238 %%       DestContainerType string \n\
239 %%       Name string \n\
240 %%EndEventDef \n\
241 %%EventDef PajeDefineEntityValue %d \n\
242 %%       Alias string \n\
243 %%       EntityType string \n\
244 %%       Name string \n\
245 %%       Color color \n\
246 %%EndEventDef \n\
247 %%EventDef PajeCreateContainer %d \n\
248 %%       Time date \n\
249 %%       Alias string \n\
250 %%       Type string \n\
251 %%       Container string \n\
252 %%       Name string \n\
253 %%EndEventDef \n\
254 %%EventDef PajeDestroyContainer %d \n\
255 %%       Time date \n\
256 %%       Type string \n\
257 %%       Name string \n\
258 %%EndEventDef \n\
259 %%EventDef PajeSetVariable %d \n\
260 %%       Time date \n\
261 %%       Type string \n\
262 %%       Container string \n\
263 %%       Value double \n\
264 %%EndEventDef\n\
265 %%EventDef PajeAddVariable %d \n\
266 %%       Time date \n\
267 %%       Type string \n\
268 %%       Container string \n\
269 %%       Value double \n\
270 %%EndEventDef\n\
271 %%EventDef PajeSubVariable %d \n\
272 %%       Time date \n\
273 %%       Type string \n\
274 %%       Container string \n\
275 %%       Value double \n\
276 %%EndEventDef\n\
277 %%EventDef PajeSetState %d \n\
278 %%       Time date \n\
279 %%       Type string \n\
280 %%       Container string \n\
281 %%       Value string \n\
282 %%EndEventDef\n\
283 %%EventDef PajePushState %d \n\
284 %%       Time date \n\
285 %%       Type string \n\
286 %%       Container string \n\
287 %%       Value string \n\
288 %%EndEventDef\n\
289 %%EventDef PajePopState %d \n\
290 %%       Time date \n\
291 %%       Type string \n\
292 %%       Container string \n\
293 %%EndEventDef\n\
294 %%EventDef PajeStartLink %d \n\
295 %%       Time date \n\
296 %%       Type string \n\
297 %%       Container string \n\
298 %%       Value string \n\
299 %%       SourceContainer string \n\
300 %%       Key string \n\
301 %%EndEventDef\n\
302 %%EventDef PajeEndLink %d \n\
303 %%       Time date \n\
304 %%       Type string \n\
305 %%       Container string \n\
306 %%       Value string \n\
307 %%       DestContainer string \n\
308 %%       Key string \n\
309 %%EndEventDef\n\
310 %%EventDef PajeNewEvent %d \n\
311 %%       Time date \n\
312 %%       Type string \n\
313 %%       Container string \n\
314 %%       Value string \n\
315 %%EndEventDef\n",
316   PAJE_DefineContainerType,
317   PAJE_DefineVariableType,
318   PAJE_DefineStateType,
319   PAJE_DefineEventType,
320   PAJE_DefineLinkType,
321   PAJE_DefineEntityValue,
322   PAJE_CreateContainer,
323   PAJE_DestroyContainer,
324   PAJE_SetVariable,
325   PAJE_AddVariable,
326   PAJE_SubVariable,
327   PAJE_SetState,
328   PAJE_PushState,
329   PAJE_PopState,
330   PAJE_StartLink,
331   PAJE_EndLink,
332   PAJE_NewEvent);
333 }
334
335 /* internal do the instrumentation module */
336 static void insert_into_buffer (paje_event_t tbi)
337 {
338   if (TRACE_buffer() == 0){
339     tbi->print (tbi);
340     tbi->free (tbi);
341     return;
342   }
343   XBT_DEBUG("%s: insert event_type=%d, timestamp=%f, buffersize=%ld)", __FUNCTION__, tbi->event_type, tbi->timestamp, xbt_dynar_length(buffer));
344
345   unsigned int i;
346   for (i = xbt_dynar_length(buffer); i > 0; i--) {
347     paje_event_t e1 = *(paje_event_t*)xbt_dynar_get_ptr(buffer, i - 1);
348     if (e1->timestamp <= tbi->timestamp)
349       break;
350   }
351   xbt_dynar_insert_at(buffer, i, &tbi);
352   if (i == 0)
353     XBT_DEBUG("%s: inserted at beginning", __FUNCTION__);
354   else
355     XBT_DEBUG("%s: inserted at%s %d", __FUNCTION__,
356               (i == xbt_dynar_length(buffer) - 1 ? " end, pos =" : ""), i);
357 }
358
359 static void print_pajeDefineContainerType(paje_event_t event)
360 {
361   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
362   fprintf(tracing_file, "%d %s %s %s\n",
363       event->event_type,
364       ((defineContainerType_t)event->data)->type->id,
365       ((defineContainerType_t)event->data)->type->father->id,
366       ((defineContainerType_t)event->data)->type->name);
367 }
368
369 static void print_pajeDefineVariableType(paje_event_t event)
370 {
371   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
372   fprintf(tracing_file, "%d %s %s %s \"%s\"\n",
373       event->event_type,
374       ((defineVariableType_t)event->data)->type->id,
375       ((defineVariableType_t)event->data)->type->father->id,
376       ((defineVariableType_t)event->data)->type->name,
377       ((defineVariableType_t)event->data)->type->color);
378 }
379
380 static void print_pajeDefineStateType(paje_event_t event)
381 {
382   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
383   fprintf(tracing_file, "%d %s %s %s\n",
384       event->event_type,
385       ((defineStateType_t)event->data)->type->id,
386       ((defineStateType_t)event->data)->type->father->id,
387       ((defineStateType_t)event->data)->type->name);
388 }
389
390 static void print_pajeDefineEventType(paje_event_t event)
391 {
392   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
393   fprintf(tracing_file, "%d %s %s %s \"%s\"\n",
394       event->event_type,
395       ((defineEventType_t)event->data)->type->id,
396       ((defineEventType_t)event->data)->type->father->id,
397       ((defineEventType_t)event->data)->type->name,
398       ((defineEventType_t)event->data)->type->color);
399 }
400
401 static void print_pajeDefineLinkType(paje_event_t event)
402 {
403   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
404   fprintf(tracing_file, "%d %s %s %s %s %s\n",
405       event->event_type,
406       ((defineLinkType_t)event->data)->type->id,
407       ((defineLinkType_t)event->data)->type->father->id,
408       ((defineLinkType_t)event->data)->source->id,
409       ((defineLinkType_t)event->data)->dest->id,
410       ((defineLinkType_t)event->data)->type->name);
411 }
412
413 static void print_pajeDefineEntityValue (paje_event_t event)
414 {
415   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
416   fprintf(tracing_file, "%d %s %s %s \"%s\"\n",
417       event->event_type,
418       ((defineEntityValue_t)event->data)->value->id,
419       ((defineEntityValue_t)event->data)->value->father->id,
420       ((defineEntityValue_t)event->data)->value->name,
421       ((defineEntityValue_t)event->data)->value->color);
422 }
423
424 static void print_pajeCreateContainer(paje_event_t event)
425 {
426   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
427   if (event->timestamp == 0){
428     fprintf(tracing_file, "%d 0 %s %s %s \"%s\"\n",
429         event->event_type,
430         ((createContainer_t)event->data)->container->id,
431         ((createContainer_t)event->data)->container->type->id,
432         ((createContainer_t)event->data)->container->father->id,
433         ((createContainer_t)event->data)->container->name);
434   }else{
435     fprintf(tracing_file, "%d %lf %s %s %s \"%s\"\n",
436         event->event_type,
437         event->timestamp,
438         ((createContainer_t)event->data)->container->id,
439         ((createContainer_t)event->data)->container->type->id,
440         ((createContainer_t)event->data)->container->father->id,
441         ((createContainer_t)event->data)->container->name);
442   }
443 }
444
445 static void print_pajeDestroyContainer(paje_event_t event)
446 {
447   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
448   if (event->timestamp == 0){
449     fprintf(tracing_file, "%d 0 %s %s\n",
450         event->event_type,
451         ((destroyContainer_t)event->data)->container->type->id,
452         ((destroyContainer_t)event->data)->container->id);
453   }else{
454     fprintf(tracing_file, "%d %lf %s %s\n",
455         event->event_type,
456         event->timestamp,
457         ((destroyContainer_t)event->data)->container->type->id,
458         ((destroyContainer_t)event->data)->container->id);
459   }
460 }
461
462 static void print_pajeSetVariable(paje_event_t event)
463 {
464   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
465   if (event->timestamp == 0){
466     fprintf(tracing_file, "%d 0 %s %s %f\n",
467         event->event_type,
468         ((setVariable_t)event->data)->type->id,
469         ((setVariable_t)event->data)->container->id,
470         ((setVariable_t)event->data)->value);
471   }else{
472     fprintf(tracing_file, "%d %lf %s %s %f\n",
473         event->event_type,
474         event->timestamp,
475         ((setVariable_t)event->data)->type->id,
476         ((setVariable_t)event->data)->container->id,
477         ((setVariable_t)event->data)->value);
478   }
479 }
480
481 static void print_pajeAddVariable(paje_event_t event)
482 {
483   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
484   if (event->timestamp == 0){
485     fprintf(tracing_file, "%d 0 %s %s %f\n",
486         event->event_type,
487         ((addVariable_t)event->data)->type->id,
488         ((addVariable_t)event->data)->container->id,
489         ((addVariable_t)event->data)->value);
490   }else{
491     fprintf(tracing_file, "%d %lf %s %s %f\n",
492         event->event_type,
493         event->timestamp,
494         ((addVariable_t)event->data)->type->id,
495         ((addVariable_t)event->data)->container->id,
496         ((addVariable_t)event->data)->value);
497   }
498 }
499
500 static void print_pajeSubVariable(paje_event_t event)
501 {
502   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
503   if (event->timestamp == 0){
504     fprintf(tracing_file, "%d 0 %s %s %f\n",
505         event->event_type,
506         ((subVariable_t)event->data)->type->id,
507         ((subVariable_t)event->data)->container->id,
508         ((subVariable_t)event->data)->value);
509   }else{
510     fprintf(tracing_file, "%d %lf %s %s %f\n",
511         event->event_type,
512         event->timestamp,
513         ((subVariable_t)event->data)->type->id,
514         ((subVariable_t)event->data)->container->id,
515         ((subVariable_t)event->data)->value);
516   }
517 }
518
519 static void print_pajeSetState(paje_event_t event)
520 {
521   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
522   if (event->timestamp == 0){
523     fprintf(tracing_file, "%d 0 %s %s %s\n",
524         event->event_type,
525         ((setState_t)event->data)->type->id,
526         ((setState_t)event->data)->container->id,
527         ((setState_t)event->data)->value->id);
528   }else{
529     fprintf(tracing_file, "%d %lf %s %s %s\n",
530         event->event_type,
531         event->timestamp,
532         ((setState_t)event->data)->type->id,
533         ((setState_t)event->data)->container->id,
534         ((setState_t)event->data)->value->id);
535   }
536 }
537
538 static void print_pajePushState(paje_event_t event)
539 {
540   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
541   if (event->timestamp == 0){
542     fprintf(tracing_file, "%d 0 %s %s %s\n",
543         event->event_type,
544         ((pushState_t)event->data)->type->id,
545         ((pushState_t)event->data)->container->id,
546         ((pushState_t)event->data)->value->id);
547   }else{
548     fprintf(tracing_file, "%d %lf %s %s %s\n",
549         event->event_type,
550         event->timestamp,
551         ((pushState_t)event->data)->type->id,
552         ((pushState_t)event->data)->container->id,
553         ((pushState_t)event->data)->value->id);
554   }
555 }
556
557 static void print_pajePopState(paje_event_t event)
558 {
559   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
560   if (event->timestamp == 0){
561     fprintf(tracing_file, "%d 0 %s %s\n",
562         event->event_type,
563         ((popState_t)event->data)->type->id,
564         ((popState_t)event->data)->container->id);
565   }else{
566     fprintf(tracing_file, "%d %lf %s %s\n",
567         event->event_type,
568         event->timestamp,
569         ((popState_t)event->data)->type->id,
570         ((popState_t)event->data)->container->id);
571   }
572 }
573
574 static void print_pajeStartLink(paje_event_t event)
575 {
576   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
577   if (event->timestamp == 0){
578     fprintf(tracing_file, "%d 0 %s %s %s %s %s\n",
579         event->event_type,
580         ((startLink_t)event->data)->type->id,
581         ((startLink_t)event->data)->container->id,
582         ((startLink_t)event->data)->value,
583         ((startLink_t)event->data)->sourceContainer->id,
584         ((startLink_t)event->data)->key);
585   }else {
586     fprintf(tracing_file, "%d %lf %s %s %s %s %s\n",
587         event->event_type,
588         event->timestamp,
589         ((startLink_t)event->data)->type->id,
590         ((startLink_t)event->data)->container->id,
591         ((startLink_t)event->data)->value,
592         ((startLink_t)event->data)->sourceContainer->id,
593         ((startLink_t)event->data)->key);
594   }
595 }
596
597 static void print_pajeEndLink(paje_event_t event)
598 {
599   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
600   if (event->timestamp == 0){
601     fprintf(tracing_file, "%d 0 %s %s %s %s %s\n",
602         event->event_type,
603         ((endLink_t)event->data)->type->id,
604         ((endLink_t)event->data)->container->id,
605         ((endLink_t)event->data)->value,
606         ((endLink_t)event->data)->destContainer->id,
607         ((endLink_t)event->data)->key);
608   }else {
609     fprintf(tracing_file, "%d %lf %s %s %s %s %s\n",
610         event->event_type,
611         event->timestamp,
612         ((endLink_t)event->data)->type->id,
613         ((endLink_t)event->data)->container->id,
614         ((endLink_t)event->data)->value,
615         ((endLink_t)event->data)->destContainer->id,
616         ((endLink_t)event->data)->key);
617   }
618 }
619
620 static void print_pajeNewEvent (paje_event_t event)
621 {
622   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
623   if (event->timestamp == 0){
624     fprintf(tracing_file, "%d 0 %s %s %s\n",
625         event->event_type,
626         ((newEvent_t)event->data)->type->id,
627         ((newEvent_t)event->data)->container->id,
628         ((newEvent_t)event->data)->value->id);
629   }else{
630     fprintf(tracing_file, "%d %lf %s %s %s\n",
631         event->event_type,
632         event->timestamp,
633         ((newEvent_t)event->data)->type->id,
634         ((newEvent_t)event->data)->container->id,
635         ((newEvent_t)event->data)->value->id);
636   }
637 }
638
639 static void free_paje_event (paje_event_t event)
640 {
641   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
642   switch (event->event_type){
643   case PAJE_StartLink:
644     xbt_free (((startLink_t)(event->data))->value);
645     xbt_free (((startLink_t)(event->data))->key);
646     break;
647   case PAJE_EndLink:
648     xbt_free (((endLink_t)(event->data))->value);
649     xbt_free (((endLink_t)(event->data))->key);
650     break;
651   default:
652     break;
653   }
654   xbt_free (event->data);
655   xbt_free (event);
656 }
657
658 void new_pajeDefineContainerType(type_t type)
659 {
660   paje_event_t event = xbt_new0(s_paje_event_t, 1);
661   event->event_type = PAJE_DefineContainerType;
662   event->timestamp = 0;
663   event->print = print_pajeDefineContainerType;
664   event->free = free_paje_event;
665   event->data = xbt_new0(s_defineContainerType_t, 1);
666   ((defineContainerType_t)(event->data))->type = type;
667
668   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
669
670   //print it
671   event->print (event);
672   event->free (event);
673 }
674
675 void new_pajeDefineVariableType(type_t type)
676 {
677   paje_event_t event = xbt_new0(s_paje_event_t, 1);
678   event->event_type = PAJE_DefineVariableType;
679   event->timestamp = 0;
680   event->print = print_pajeDefineVariableType;
681   event->free = free_paje_event;
682   event->data = xbt_new0(s_defineVariableType_t, 1);
683   ((defineVariableType_t)(event->data))->type = type;
684
685   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
686
687   //print it
688   event->print (event);
689   event->free (event);
690 }
691
692 void new_pajeDefineStateType(type_t type)
693 {
694   paje_event_t event = xbt_new0(s_paje_event_t, 1);
695   event->event_type = PAJE_DefineStateType;
696   event->timestamp = 0;
697   event->print = print_pajeDefineStateType;
698   event->free = free_paje_event;
699   event->data = xbt_new0(s_defineStateType_t, 1);
700   ((defineStateType_t)(event->data))->type = type;
701
702   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
703
704   //print it
705   event->print (event);
706   event->free (event);
707 }
708
709 void new_pajeDefineEventType(type_t type)
710 {
711   paje_event_t event = xbt_new0(s_paje_event_t, 1);
712   event->event_type = PAJE_DefineEventType;
713   event->timestamp = 0;
714   event->print = print_pajeDefineEventType;
715   event->free = free_paje_event;
716   event->data = xbt_new0(s_defineEventType_t, 1);
717   ((defineEventType_t)(event->data))->type = type;
718
719   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
720
721   //print it
722   event->print (event);
723   event->free (event);
724 }
725
726 void new_pajeDefineLinkType(type_t type, type_t source, type_t dest)
727 {
728   paje_event_t event = xbt_new0(s_paje_event_t, 1);
729   event->event_type = PAJE_DefineLinkType;
730   event->timestamp = 0;
731   event->print = print_pajeDefineLinkType;
732   event->free = free_paje_event;
733   event->data = xbt_new0(s_defineLinkType_t, 1);
734   ((defineLinkType_t)(event->data))->type = type;
735   ((defineLinkType_t)(event->data))->source = source;
736   ((defineLinkType_t)(event->data))->dest = dest;
737
738   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
739
740   //print it
741   event->print (event);
742   event->free (event);
743 }
744
745 void new_pajeDefineEntityValue (val_t value)
746 {
747   paje_event_t event = xbt_new0(s_paje_event_t, 1);
748   event->event_type = PAJE_DefineEntityValue;
749   event->timestamp = 0;
750   event->print = print_pajeDefineEntityValue;
751   event->free = free_paje_event;
752   event->data = xbt_new0(s_defineEntityValue_t, 1);
753   ((defineEntityValue_t)(event->data))->value = value;
754
755   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, event->event_type);
756
757   //print it
758   event->print (event);
759   event->free (event);
760 }
761
762 void new_pajeCreateContainer (container_t container)
763 {
764   paje_event_t event = xbt_new0(s_paje_event_t, 1);
765   event->event_type = PAJE_CreateContainer;
766   event->timestamp = SIMIX_get_clock();
767   event->print = print_pajeCreateContainer;
768   event->free = free_paje_event;
769   event->data = xbt_new0(s_createContainer_t, 1);
770   ((createContainer_t)(event->data))->container = container;
771
772   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
773
774   //print it
775   event->print (event);
776   event->free (event);
777 }
778
779 void new_pajeDestroyContainer (container_t container)
780 {
781   paje_event_t event = xbt_new0(s_paje_event_t, 1);
782   event->event_type = PAJE_DestroyContainer;
783   event->timestamp = SIMIX_get_clock();
784   event->print = print_pajeDestroyContainer;
785   event->free = free_paje_event;
786   event->data = xbt_new0(s_destroyContainer_t, 1);
787   ((destroyContainer_t)(event->data))->container = container;
788
789   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
790
791   //print it
792   event->print (event);
793   event->free (event);
794 }
795
796 void new_pajeSetVariable (double timestamp, container_t container, type_t type, double value)
797 {
798   paje_event_t event = xbt_new0(s_paje_event_t, 1);
799   event->event_type = PAJE_SetVariable;
800   event->timestamp = timestamp;
801   event->print = print_pajeSetVariable;
802   event->free = free_paje_event;
803   event->data = xbt_new0(s_setVariable_t, 1);
804   ((setVariable_t)(event->data))->type = type;
805   ((setVariable_t)(event->data))->container = container;
806   ((setVariable_t)(event->data))->value = value;
807
808   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
809
810   insert_into_buffer (event);
811 }
812
813
814 void new_pajeAddVariable (double timestamp, container_t container, type_t type, double value)
815 {
816   paje_event_t event = xbt_new0(s_paje_event_t, 1);
817   event->event_type = PAJE_AddVariable;
818   event->timestamp = timestamp;
819   event->print = print_pajeAddVariable;
820   event->free = free_paje_event;
821   event->data = xbt_new0(s_addVariable_t, 1);
822   ((addVariable_t)(event->data))->type = type;
823   ((addVariable_t)(event->data))->container = container;
824   ((addVariable_t)(event->data))->value = value;
825
826   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
827
828   insert_into_buffer (event);
829 }
830
831 void new_pajeSubVariable (double timestamp, container_t container, type_t type, double value)
832 {
833   paje_event_t event = xbt_new0(s_paje_event_t, 1);
834   event->event_type = PAJE_SubVariable;
835   event->timestamp = timestamp;
836   event->print = print_pajeSubVariable;
837   event->free = free_paje_event;
838   event->data = xbt_new0(s_subVariable_t, 1);
839   ((subVariable_t)(event->data))->type = type;
840   ((subVariable_t)(event->data))->container = container;
841   ((subVariable_t)(event->data))->value = value;
842
843   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
844
845   insert_into_buffer (event);
846 }
847
848 void new_pajeSetState (double timestamp, container_t container, type_t type, val_t value)
849 {
850   paje_event_t event = xbt_new0(s_paje_event_t, 1);
851   event->event_type = PAJE_SetState;
852   event->timestamp = timestamp;
853   event->print = print_pajeSetState;
854   event->free = free_paje_event;
855   event->data = xbt_new0(s_setState_t, 1);
856   ((setState_t)(event->data))->type = type;
857   ((setState_t)(event->data))->container = container;
858   ((setState_t)(event->data))->value = value;
859
860   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
861
862   insert_into_buffer (event);
863 }
864
865
866 void new_pajePushState (double timestamp, container_t container, type_t type, val_t value)
867 {
868   paje_event_t event = xbt_new0(s_paje_event_t, 1);
869   event->event_type = PAJE_PushState;
870   event->timestamp = timestamp;
871   event->print = print_pajePushState;
872   event->free = free_paje_event;
873   event->data = xbt_new0(s_pushState_t, 1);
874   ((pushState_t)(event->data))->type = type;
875   ((pushState_t)(event->data))->container = container;
876   ((pushState_t)(event->data))->value = value;
877
878   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
879
880   insert_into_buffer (event);
881 }
882
883
884 void new_pajePopState (double timestamp, container_t container, type_t type)
885 {
886   paje_event_t event = xbt_new0(s_paje_event_t, 1);
887   event->event_type = PAJE_PopState;
888   event->timestamp = timestamp;
889   event->print = print_pajePopState;
890   event->free = free_paje_event;
891   event->data = xbt_new0(s_popState_t, 1);
892   ((popState_t)(event->data))->type = type;
893   ((popState_t)(event->data))->container = container;
894
895   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
896
897   insert_into_buffer (event);
898 }
899
900 void new_pajeStartLink (double timestamp, container_t container, type_t type, container_t sourceContainer, const char *value, const char *key)
901 {
902   paje_event_t event = xbt_new0(s_paje_event_t, 1);
903   event->event_type = PAJE_StartLink;
904   event->timestamp = timestamp;
905   event->print = print_pajeStartLink;
906   event->free = free_paje_event;
907   event->data = xbt_new0(s_startLink_t, 1);
908   ((startLink_t)(event->data))->type = type;
909   ((startLink_t)(event->data))->container = container;
910   ((startLink_t)(event->data))->sourceContainer = sourceContainer;
911   ((startLink_t)(event->data))->value = xbt_strdup(value);
912   ((startLink_t)(event->data))->key = xbt_strdup(key);
913
914   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
915
916   insert_into_buffer (event);
917 }
918
919 void new_pajeEndLink (double timestamp, container_t container, type_t type, container_t destContainer, const char *value, const char *key)
920 {
921   paje_event_t event = xbt_new0(s_paje_event_t, 1);
922   event->event_type = PAJE_EndLink;
923   event->timestamp = timestamp;
924   event->print = print_pajeEndLink;
925   event->free = free_paje_event;
926   event->data = xbt_new0(s_endLink_t, 1);
927   ((endLink_t)(event->data))->type = type;
928   ((endLink_t)(event->data))->container = container;
929   ((endLink_t)(event->data))->destContainer = destContainer;
930   ((endLink_t)(event->data))->value = xbt_strdup(value);
931   ((endLink_t)(event->data))->key = xbt_strdup(key);
932
933   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
934
935   insert_into_buffer (event);
936 }
937
938 void new_pajeNewEvent (double timestamp, container_t container, type_t type, val_t value)
939 {
940   paje_event_t event = xbt_new0(s_paje_event_t, 1);
941   event->event_type = PAJE_NewEvent;
942   event->timestamp = timestamp;
943   event->print = print_pajeNewEvent;
944   event->free = free_paje_event;
945   event->data = xbt_new0(s_newEvent_t, 1);
946   ((newEvent_t)(event->data))->type = type;
947   ((newEvent_t)(event->data))->container = container;
948   ((newEvent_t)(event->data))->value = value;
949
950   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, event->event_type, event->timestamp);
951
952   insert_into_buffer (event);
953 }
954
955 #endif /* HAVE_TRACING */