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     while (!xbt_dynar_is_empty(buffer)){
 228       double head_timestamp = (*(paje_event_t*)xbt_dynar_get_ptr(buffer, 0))->timestamp;
 229       if (head_timestamp > TRACE_last_timestamp_to_dump){
 230         break;
 231       }
 232       xbt_dynar_remove_at (buffer, 0, &event);
 233       event->print (event);
 234       event->free (event);
 235     }
 236   }
 237   XBT_DEBUG("%s: ends", __FUNCTION__);
 238 }
 239
 240 /* internal do the instrumentation module */
 241 static void insert_into_buffer (paje_event_t tbi)
 242 {
 243   if (TRACE_buffer() == 0){
 244     tbi->print (tbi);
 245     tbi->free (tbi);
 246     return;
 247   }
 248   XBT_DEBUG("%s: insert event_type=%d, timestamp=%f, buffersize=%lu)",
 249       __FUNCTION__, (int)tbi->event_type, tbi->timestamp, xbt_dynar_length(buffer));
 250
 251   unsigned int i;
 252   for (i = xbt_dynar_length(buffer); i > 0; i--) {
 253     paje_event_t e1 = *(paje_event_t*)xbt_dynar_get_ptr(buffer, i - 1);
 254     if (e1->timestamp <= tbi->timestamp)
 255       break;
 256   }
 257   xbt_dynar_insert_at(buffer, i, &tbi);
 258   if (i == 0)
 259     XBT_DEBUG("%s: inserted at beginning", __FUNCTION__);
 260   else
 261     XBT_DEBUG("%s: inserted at%s %u", __FUNCTION__,
 262               (i == xbt_dynar_length(buffer) - 1 ? " end, pos =" : ""), i);
 263 }
 264
 265 static void print_pajeDefineContainerType(paje_event_t event)
 266 {
 267   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 268   fprintf(tracing_file, "%d %s %s %s\n",
 269       (int)event->event_type,
 270       ((defineContainerType_t)event->data)->type->id,
 271       ((defineContainerType_t)event->data)->type->father->id,
 272       ((defineContainerType_t)event->data)->type->name);
 273 }
 274
 275 static void print_pajeDefineVariableType(paje_event_t event)
 276 {
 277   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 278   fprintf(tracing_file, "%d %s %s %s \"%s\"\n",
 279       (int)event->event_type,
 280       ((defineVariableType_t)event->data)->type->id,
 281       ((defineVariableType_t)event->data)->type->father->id,
 282       ((defineVariableType_t)event->data)->type->name,
 283       ((defineVariableType_t)event->data)->type->color);
 284 }
 285
 286 static void print_pajeDefineStateType(paje_event_t event)
 287 {
 288   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 289   fprintf(tracing_file, "%d %s %s %s\n",
 290       (int)event->event_type,
 291       ((defineStateType_t)event->data)->type->id,
 292       ((defineStateType_t)event->data)->type->father->id,
 293       ((defineStateType_t)event->data)->type->name);
 294 }
 295
 296 static void print_pajeDefineEventType(paje_event_t event)
 297 {
 298   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 299   fprintf(tracing_file, "%d %s %s %s\n",
 300       (int)event->event_type,
 301       ((defineEventType_t)event->data)->type->id,
 302       ((defineEventType_t)event->data)->type->father->id,
 303       ((defineEventType_t)event->data)->type->name);
 304 }
 305
 306 static void print_pajeDefineLinkType(paje_event_t event)
 307 {
 308   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 309   fprintf(tracing_file, "%d %s %s %s %s %s\n",
 310       (int)event->event_type,
 311       ((defineLinkType_t)event->data)->type->id,
 312       ((defineLinkType_t)event->data)->type->father->id,
 313       ((defineLinkType_t)event->data)->source->id,
 314       ((defineLinkType_t)event->data)->dest->id,
 315       ((defineLinkType_t)event->data)->type->name);
 316 }
 317
 318 static void print_pajeDefineEntityValue (paje_event_t event)
 319 {
 320   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 321   fprintf(tracing_file, "%d %s %s %s \"%s\"\n",
 322       (int)event->event_type,
 323       ((defineEntityValue_t)event->data)->value->id,
 324       ((defineEntityValue_t)event->data)->value->father->id,
 325       ((defineEntityValue_t)event->data)->value->name,
 326       ((defineEntityValue_t)event->data)->value->color);
 327 }
 328
 329 static void print_pajeCreateContainer(paje_event_t event)
 330 {
 331   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 332   if (event->timestamp == 0){
 333     fprintf(tracing_file, "%d 0 %s %s %s \"%s\"\n",
 334         (int)event->event_type,
 335         ((createContainer_t)event->data)->container->id,
 336         ((createContainer_t)event->data)->container->type->id,
 337         ((createContainer_t)event->data)->container->father->id,
 338         ((createContainer_t)event->data)->container->name);
 339   }else{
 340     fprintf(tracing_file, "%d %lf %s %s %s \"%s\"\n",
 341         (int)event->event_type,
 342         event->timestamp,
 343         ((createContainer_t)event->data)->container->id,
 344         ((createContainer_t)event->data)->container->type->id,
 345         ((createContainer_t)event->data)->container->father->id,
 346         ((createContainer_t)event->data)->container->name);
 347   }
 348 }
 349
 350 static void print_pajeDestroyContainer(paje_event_t event)
 351 {
 352   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 353   if (event->timestamp == 0){
 354     fprintf(tracing_file, "%d 0 %s %s\n",
 355         (int)event->event_type,
 356         ((destroyContainer_t)event->data)->container->type->id,
 357         ((destroyContainer_t)event->data)->container->id);
 358   }else{
 359     fprintf(tracing_file, "%d %lf %s %s\n",
 360         (int)event->event_type,
 361         event->timestamp,
 362         ((destroyContainer_t)event->data)->container->type->id,
 363         ((destroyContainer_t)event->data)->container->id);
 364   }
 365 }
 366
 367 static void print_pajeSetVariable(paje_event_t event)
 368 {
 369   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 370   if (event->timestamp == 0){
 371     fprintf(tracing_file, "%d 0 %s %s %f\n",
 372         (int)event->event_type,
 373         ((setVariable_t)event->data)->type->id,
 374         ((setVariable_t)event->data)->container->id,
 375         ((setVariable_t)event->data)->value);
 376   }else{
 377     fprintf(tracing_file, "%d %lf %s %s %f\n",
 378         (int)event->event_type,
 379         event->timestamp,
 380         ((setVariable_t)event->data)->type->id,
 381         ((setVariable_t)event->data)->container->id,
 382         ((setVariable_t)event->data)->value);
 383   }
 384 }
 385
 386 static void print_pajeAddVariable(paje_event_t event)
 387 {
 388   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 389   if (event->timestamp == 0){
 390     fprintf(tracing_file, "%d 0 %s %s %f\n",
 391         (int)event->event_type,
 392         ((addVariable_t)event->data)->type->id,
 393         ((addVariable_t)event->data)->container->id,
 394         ((addVariable_t)event->data)->value);
 395   }else{
 396     fprintf(tracing_file, "%d %lf %s %s %f\n",
 397         (int)event->event_type,
 398         event->timestamp,
 399         ((addVariable_t)event->data)->type->id,
 400         ((addVariable_t)event->data)->container->id,
 401         ((addVariable_t)event->data)->value);
 402   }
 403 }
 404
 405 static void print_pajeSubVariable(paje_event_t event)
 406 {
 407   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 408   if (event->timestamp == 0){
 409     fprintf(tracing_file, "%d 0 %s %s %f\n",
 410         (int)event->event_type,
 411         ((subVariable_t)event->data)->type->id,
 412         ((subVariable_t)event->data)->container->id,
 413         ((subVariable_t)event->data)->value);
 414   }else{
 415     fprintf(tracing_file, "%d %lf %s %s %f\n",
 416         (int)event->event_type,
 417         event->timestamp,
 418         ((subVariable_t)event->data)->type->id,
 419         ((subVariable_t)event->data)->container->id,
 420         ((subVariable_t)event->data)->value);
 421   }
 422 }
 423
 424 static void print_pajeSetState(paje_event_t event)
 425 {
 426   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 427   if (event->timestamp == 0){
 428     fprintf(tracing_file, "%d 0 %s %s %s\n",
 429         (int)event->event_type,
 430         ((setState_t)event->data)->type->id,
 431         ((setState_t)event->data)->container->id,
 432         ((setState_t)event->data)->value->id);
 433   }else{
 434     fprintf(tracing_file, "%d %lf %s %s %s\n",
 435         (int)event->event_type,
 436         event->timestamp,
 437         ((setState_t)event->data)->type->id,
 438         ((setState_t)event->data)->container->id,
 439         ((setState_t)event->data)->value->id);
 440   }
 441 }
 442
 443 static void print_pajePushState(paje_event_t event)
 444 {
 445   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 446   if (event->timestamp == 0){
 447     fprintf(tracing_file, "%d 0 %s %s %s\n",
 448         (int)event->event_type,
 449         ((pushState_t)event->data)->type->id,
 450         ((pushState_t)event->data)->container->id,
 451         ((pushState_t)event->data)->value->id);
 452   }else{
 453     fprintf(tracing_file, "%d %lf %s %s %s\n",
 454         (int)event->event_type,
 455         event->timestamp,
 456         ((pushState_t)event->data)->type->id,
 457         ((pushState_t)event->data)->container->id,
 458         ((pushState_t)event->data)->value->id);
 459   }
 460 }
 461
 462 static void print_pajePopState(paje_event_t event)
 463 {
 464   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 465   if (event->timestamp == 0){
 466     fprintf(tracing_file, "%d 0 %s %s\n",
 467         (int)event->event_type,
 468         ((popState_t)event->data)->type->id,
 469         ((popState_t)event->data)->container->id);
 470   }else{
 471     fprintf(tracing_file, "%d %lf %s %s\n",
 472         (int)event->event_type,
 473         event->timestamp,
 474         ((popState_t)event->data)->type->id,
 475         ((popState_t)event->data)->container->id);
 476   }
 477 }
 478
 479 static void print_pajeResetState(paje_event_t event)
 480 {
 481   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 482   if (event->timestamp == 0){
 483     fprintf(tracing_file, "%d 0 %s %s\n",
 484         (int)event->event_type,
 485         ((resetState_t)event->data)->type->id,
 486         ((resetState_t)event->data)->container->id);
 487   }else{
 488     fprintf(tracing_file, "%d %lf %s %s\n",
 489         (int)event->event_type,
 490         event->timestamp,
 491         ((resetState_t)event->data)->type->id,
 492         ((resetState_t)event->data)->container->id);
 493   }
 494 }
 495
 496 static void print_pajeStartLink(paje_event_t event)
 497 {
 498   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 499   if (event->timestamp == 0){
 500     fprintf(tracing_file, "%d 0 %s %s %s %s %s\n",
 501         (int)event->event_type,
 502         ((startLink_t)event->data)->type->id,
 503         ((startLink_t)event->data)->container->id,
 504         ((startLink_t)event->data)->value,
 505         ((startLink_t)event->data)->sourceContainer->id,
 506         ((startLink_t)event->data)->key);
 507   }else {
 508     fprintf(tracing_file, "%d %lf %s %s %s %s %s\n",
 509         (int)event->event_type,
 510         event->timestamp,
 511         ((startLink_t)event->data)->type->id,
 512         ((startLink_t)event->data)->container->id,
 513         ((startLink_t)event->data)->value,
 514         ((startLink_t)event->data)->sourceContainer->id,
 515         ((startLink_t)event->data)->key);
 516   }
 517 }
 518
 519 static void print_pajeEndLink(paje_event_t event)
 520 {
 521   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 522   if (event->timestamp == 0){
 523     fprintf(tracing_file, "%d 0 %s %s %s %s %s\n",
 524         (int)event->event_type,
 525         ((endLink_t)event->data)->type->id,
 526         ((endLink_t)event->data)->container->id,
 527         ((endLink_t)event->data)->value,
 528         ((endLink_t)event->data)->destContainer->id,
 529         ((endLink_t)event->data)->key);
 530   }else {
 531     fprintf(tracing_file, "%d %lf %s %s %s %s %s\n",
 532         (int)event->event_type,
 533         event->timestamp,
 534         ((endLink_t)event->data)->type->id,
 535         ((endLink_t)event->data)->container->id,
 536         ((endLink_t)event->data)->value,
 537         ((endLink_t)event->data)->destContainer->id,
 538         ((endLink_t)event->data)->key);
 539   }
 540 }
 541
 542 static void print_pajeNewEvent (paje_event_t event)
 543 {
 544   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 545   if (event->timestamp == 0){
 546     fprintf(tracing_file, "%d 0 %s %s %s\n",
 547         (int)event->event_type,
 548         ((newEvent_t)event->data)->type->id,
 549         ((newEvent_t)event->data)->container->id,
 550         ((newEvent_t)event->data)->value->id);
 551   }else{
 552     fprintf(tracing_file, "%d %lf %s %s %s\n",
 553         (int)event->event_type,
 554         event->timestamp,
 555         ((newEvent_t)event->data)->type->id,
 556         ((newEvent_t)event->data)->container->id,
 557         ((newEvent_t)event->data)->value->id);
 558   }
 559 }
 560
 561 static void free_paje_event (paje_event_t event)
 562 {
 563   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 564   switch (event->event_type){
 565   case PAJE_StartLink:
 566     xbt_free (((startLink_t)(event->data))->value);
 567     xbt_free (((startLink_t)(event->data))->key);
 568     break;
 569   case PAJE_EndLink:
 570     xbt_free (((endLink_t)(event->data))->value);
 571     xbt_free (((endLink_t)(event->data))->key);
 572     break;
 573   default:
 574     break;
 575   }
 576   xbt_free (event->data);
 577   xbt_free (event);
 578 }
 579
 580 void new_pajeDefineContainerType(type_t type)
 581 {
 582   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 583   event->event_type = PAJE_DefineContainerType;
 584   event->timestamp = 0;
 585   event->print = print_pajeDefineContainerType;
 586   event->free = free_paje_event;
 587   event->data = xbt_new0(s_defineContainerType_t, 1);
 588   ((defineContainerType_t)(event->data))->type = type;
 589
 590   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 591
 592   //print it
 593   event->print (event);
 594   event->free (event);
 595 }
 596
 597 void new_pajeDefineVariableType(type_t type)
 598 {
 599   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 600   event->event_type = PAJE_DefineVariableType;
 601   event->timestamp = 0;
 602   event->print = print_pajeDefineVariableType;
 603   event->free = free_paje_event;
 604   event->data = xbt_new0(s_defineVariableType_t, 1);
 605   ((defineVariableType_t)(event->data))->type = type;
 606
 607   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 608
 609   //print it
 610   event->print (event);
 611   event->free (event);
 612 }
 613
 614 void new_pajeDefineStateType(type_t type)
 615 {
 616   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 617   event->event_type = PAJE_DefineStateType;
 618   event->timestamp = 0;
 619   event->print = print_pajeDefineStateType;
 620   event->free = free_paje_event;
 621   event->data = xbt_new0(s_defineStateType_t, 1);
 622   ((defineStateType_t)(event->data))->type = type;
 623
 624   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 625
 626   //print it
 627   event->print (event);
 628   event->free (event);
 629 }
 630
 631 void new_pajeDefineEventType(type_t type)
 632 {
 633   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 634   event->event_type = PAJE_DefineEventType;
 635   event->timestamp = 0;
 636   event->print = print_pajeDefineEventType;
 637   event->free = free_paje_event;
 638   event->data = xbt_new0(s_defineEventType_t, 1);
 639   ((defineEventType_t)(event->data))->type = type;
 640
 641   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 642
 643   //print it
 644   event->print (event);
 645   event->free (event);
 646 }
 647
 648 void new_pajeDefineLinkType(type_t type, type_t source, type_t dest)
 649 {
 650   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 651   event->event_type = PAJE_DefineLinkType;
 652   event->timestamp = 0;
 653   event->print = print_pajeDefineLinkType;
 654   event->free = free_paje_event;
 655   event->data = xbt_new0(s_defineLinkType_t, 1);
 656   ((defineLinkType_t)(event->data))->type = type;
 657   ((defineLinkType_t)(event->data))->source = source;
 658   ((defineLinkType_t)(event->data))->dest = dest;
 659
 660   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 661
 662   //print it
 663   event->print (event);
 664   event->free (event);
 665 }
 666
 667 void new_pajeDefineEntityValue (val_t value)
 668 {
 669   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 670   event->event_type = PAJE_DefineEntityValue;
 671   event->timestamp = 0;
 672   event->print = print_pajeDefineEntityValue;
 673   event->free = free_paje_event;
 674   event->data = xbt_new0(s_defineEntityValue_t, 1);
 675   ((defineEntityValue_t)(event->data))->value = value;
 676
 677   XBT_DEBUG("%s: event_type=%d", __FUNCTION__, (int)event->event_type);
 678
 679   //print it
 680   event->print (event);
 681   event->free (event);
 682 }
 683
 684 void new_pajeCreateContainer (container_t container)
 685 {
 686   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 687   event->event_type = PAJE_CreateContainer;
 688   event->timestamp = SIMIX_get_clock();
 689   event->print = print_pajeCreateContainer;
 690   event->free = free_paje_event;
 691   event->data = xbt_new0(s_createContainer_t, 1);
 692   ((createContainer_t)(event->data))->container = container;
 693
 694   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 695
 696   //print it
 697   event->print (event);
 698   event->free (event);
 699 }
 700
 701 void new_pajeDestroyContainer (container_t container)
 702 {
 703   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 704   event->event_type = PAJE_DestroyContainer;
 705   event->timestamp = SIMIX_get_clock();
 706   event->print = print_pajeDestroyContainer;
 707   event->free = free_paje_event;
 708   event->data = xbt_new0(s_destroyContainer_t, 1);
 709   ((destroyContainer_t)(event->data))->container = container;
 710
 711   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 712
 713   //print it
 714   event->print (event);
 715   event->free (event);
 716 }
 717
 718 void new_pajeSetVariable (double timestamp, container_t container, type_t type, double value)
 719 {
 720   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 721   event->event_type = PAJE_SetVariable;
 722   event->timestamp = timestamp;
 723   event->print = print_pajeSetVariable;
 724   event->free = free_paje_event;
 725   event->data = xbt_new0(s_setVariable_t, 1);
 726   ((setVariable_t)(event->data))->type = type;
 727   ((setVariable_t)(event->data))->container = container;
 728   ((setVariable_t)(event->data))->value = value;
 729
 730   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 731
 732   insert_into_buffer (event);
 733 }
 734
 735
 736 void new_pajeAddVariable (double timestamp, container_t container, type_t type, double value)
 737 {
 738   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 739   event->event_type = PAJE_AddVariable;
 740   event->timestamp = timestamp;
 741   event->print = print_pajeAddVariable;
 742   event->free = free_paje_event;
 743   event->data = xbt_new0(s_addVariable_t, 1);
 744   ((addVariable_t)(event->data))->type = type;
 745   ((addVariable_t)(event->data))->container = container;
 746   ((addVariable_t)(event->data))->value = value;
 747
 748   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 749
 750   insert_into_buffer (event);
 751 }
 752
 753 void new_pajeSubVariable (double timestamp, container_t container, type_t type, double value)
 754 {
 755   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 756   event->event_type = PAJE_SubVariable;
 757   event->timestamp = timestamp;
 758   event->print = print_pajeSubVariable;
 759   event->free = free_paje_event;
 760   event->data = xbt_new0(s_subVariable_t, 1);
 761   ((subVariable_t)(event->data))->type = type;
 762   ((subVariable_t)(event->data))->container = container;
 763   ((subVariable_t)(event->data))->value = value;
 764
 765   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 766
 767   insert_into_buffer (event);
 768 }
 769
 770 void new_pajeSetState (double timestamp, container_t container, type_t type, val_t value)
 771 {
 772   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 773   event->event_type = PAJE_SetState;
 774   event->timestamp = timestamp;
 775   event->print = print_pajeSetState;
 776   event->free = free_paje_event;
 777   event->data = xbt_new0(s_setState_t, 1);
 778   ((setState_t)(event->data))->type = type;
 779   ((setState_t)(event->data))->container = container;
 780   ((setState_t)(event->data))->value = value;
 781
 782   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 783
 784   insert_into_buffer (event);
 785 }
 786
 787
 788 void new_pajePushState (double timestamp, container_t container, type_t type, val_t value)
 789 {
 790   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 791   event->event_type = PAJE_PushState;
 792   event->timestamp = timestamp;
 793   event->print = print_pajePushState;
 794   event->free = free_paje_event;
 795   event->data = xbt_new0(s_pushState_t, 1);
 796   ((pushState_t)(event->data))->type = type;
 797   ((pushState_t)(event->data))->container = container;
 798   ((pushState_t)(event->data))->value = value;
 799
 800   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 801
 802   insert_into_buffer (event);
 803 }
 804
 805
 806 void new_pajePopState (double timestamp, container_t container, type_t type)
 807 {
 808   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 809   event->event_type = PAJE_PopState;
 810   event->timestamp = timestamp;
 811   event->print = print_pajePopState;
 812   event->free = free_paje_event;
 813   event->data = xbt_new0(s_popState_t, 1);
 814   ((popState_t)(event->data))->type = type;
 815   ((popState_t)(event->data))->container = container;
 816
 817   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 818
 819   insert_into_buffer (event);
 820 }
 821
 822
 823 void new_pajeResetState (double timestamp, container_t container, type_t type)
 824 {
 825   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 826   event->event_type = PAJE_ResetState;
 827   event->timestamp = timestamp;
 828   event->print = print_pajeResetState;
 829   event->free = free_paje_event;
 830   event->data = xbt_new0(s_resetState_t, 1);
 831   ((resetState_t)(event->data))->type = type;
 832   ((resetState_t)(event->data))->container = container;
 833
 834   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 835
 836   insert_into_buffer (event);
 837 }
 838
 839 void new_pajeStartLink (double timestamp, container_t container, type_t type, container_t sourceContainer, const char *value, const char *key)
 840 {
 841   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 842   event->event_type = PAJE_StartLink;
 843   event->timestamp = timestamp;
 844   event->print = print_pajeStartLink;
 845   event->free = free_paje_event;
 846   event->data = xbt_new0(s_startLink_t, 1);
 847   ((startLink_t)(event->data))->type = type;
 848   ((startLink_t)(event->data))->container = container;
 849   ((startLink_t)(event->data))->sourceContainer = sourceContainer;
 850   ((startLink_t)(event->data))->value = xbt_strdup(value);
 851   ((startLink_t)(event->data))->key = xbt_strdup(key);
 852
 853   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 854
 855   insert_into_buffer (event);
 856 }
 857
 858 void new_pajeEndLink (double timestamp, container_t container, type_t type, container_t destContainer, const char *value, const char *key)
 859 {
 860   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 861   event->event_type = PAJE_EndLink;
 862   event->timestamp = timestamp;
 863   event->print = print_pajeEndLink;
 864   event->free = free_paje_event;
 865   event->data = xbt_new0(s_endLink_t, 1);
 866   ((endLink_t)(event->data))->type = type;
 867   ((endLink_t)(event->data))->container = container;
 868   ((endLink_t)(event->data))->destContainer = destContainer;
 869   ((endLink_t)(event->data))->value = xbt_strdup(value);
 870   ((endLink_t)(event->data))->key = xbt_strdup(key);
 871
 872   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 873
 874   insert_into_buffer (event);
 875 }
 876
 877 void new_pajeNewEvent (double timestamp, container_t container, type_t type, val_t value)
 878 {
 879   paje_event_t event = xbt_new0(s_paje_event_t, 1);
 880   event->event_type = PAJE_NewEvent;
 881   event->timestamp = timestamp;
 882   event->print = print_pajeNewEvent;
 883   event->free = free_paje_event;
 884   event->data = xbt_new0(s_newEvent_t, 1);
 885   ((newEvent_t)(event->data))->type = type;
 886   ((newEvent_t)(event->data))->container = container;
 887   ((newEvent_t)(event->data))->value = value;
 888
 889   XBT_DEBUG("%s: event_type=%d, timestamp=%f", __FUNCTION__, (int)event->event_type, event->timestamp);
 890
 891   insert_into_buffer (event);
 892 }
 893
 894 #endif /* HAVE_TRACING */