Logo AND Algorithmique Numérique Distribuée

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