src/instr/instr_paje_values.c

   1 /* Copyright (c) 2012-2014. The SimGrid Team.
   2  * All rights reserved.                                                     */
   3
   4 /* This program is free software; you can redistribute it and/or modify it
   5  * under the terms of the license (GNU LGPL) which comes with this package. */
   6
   7 #include "instr/instr_private.h"
   8
   9 #ifdef HAVE_TRACING
  10
  11 XBT_LOG_NEW_DEFAULT_SUBCATEGORY (instr_paje_values, instr, "Paje tracing event system (values)");
  12
  13 val_t PJ_value_new (const char *name, const char *color, type_t father)
  14 {
  15   if (name == NULL || father == NULL){
  16     THROWF (tracing_error, 0, "can't create a value with a NULL name (or a NULL father)");
  17   }
  18
  19   val_t ret = xbt_new0(s_val_t, 1);
  20   ret->name = xbt_strdup (name);
  21   ret->father = father;
  22   ret->color = xbt_strdup (color);
  23
  24   char str_id[INSTR_DEFAULT_STR_SIZE];
  25   snprintf (str_id, INSTR_DEFAULT_STR_SIZE, "%lld", instr_new_paje_id());
  26   ret->id = xbt_strdup (str_id);
  27
  28   xbt_dict_set (father->values, name, ret, NULL);
  29   XBT_DEBUG("new value %s, child of %s", ret->name, ret->father->name);
  30   new_pajeDefineEntityValue(ret);
  31   return ret;
  32 }
  33
  34 val_t PJ_value_get_or_new (const char *name, const char *color, type_t father)
  35 {
  36   val_t ret = 0;
  37   xbt_ex_t e;
  38   TRY {
  39     ret = PJ_value_get(name, father);
  40   }
  41   CATCH(e) {
  42     xbt_ex_free(e);
  43     ret = PJ_value_new(name, color, father);
  44   }
  45   return ret;
  46 }
  47
  48 val_t PJ_value_get (const char *name, type_t father)
  49 {
  50   if (name == NULL || father == NULL){
  51     THROWF (tracing_error, 0, "can't get a value with a NULL name (or a NULL father)");
  52   }
  53
  54   if (father->kind == TYPE_VARIABLE)
  55     THROWF(tracing_error, 0,
  56            "variables can't have different values (%s)", father->name);
  57   val_t ret = (val_t)xbt_dict_get_or_null (father->values, name);
  58   if (ret == NULL) {
  59     THROWF(tracing_error, 2,
  60            "value with name (%s) not found in father type (%s)",
  61            name, father->name);
  62   }
  63   return ret;
  64 }
  65
  66 void PJ_value_free (val_t value)
  67 {
  68   XBT_DEBUG("free value %s, child of %s", value->name, value->father->name);
  69   xbt_free(((val_t)value)->name);
  70   xbt_free(((val_t)value)->color);
  71   xbt_free(((val_t)value)->id);
  72   xbt_free(value);
  73 }
  74
  75
  76 #endif