Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Use xbt_cfg_setdefault everywhere.
[simgrid.git] / src / instr / instr_paje_values.c
1 /* Copyright (c) 2012. 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 #include "instr/instr_private.h"
7
8 #ifdef HAVE_TRACING
9
10 XBT_LOG_NEW_DEFAULT_SUBCATEGORY (instr_paje_values, instr, "Paje tracing event system (values)");
11
12 val_t PJ_value_new (const char *name, const char *color, type_t father)
13 {
14   if (name == NULL || father == NULL){
15     THROWF (tracing_error, 0, "can't create a value with a NULL name (or a NULL father)");
16   }
17
18   val_t ret = xbt_new0(s_val_t, 1);
19   ret->name = xbt_strdup (name);
20   ret->father = father;
21   ret->color = xbt_strdup (color);
22
23   char str_id[INSTR_DEFAULT_STR_SIZE];
24   snprintf (str_id, INSTR_DEFAULT_STR_SIZE, "%lld", instr_new_paje_id());
25   ret->id = xbt_strdup (str_id);
26
27   xbt_dict_set (father->values, name, ret, NULL);
28   XBT_DEBUG("new value %s, child of %s", ret->name, ret->father->name);
29   new_pajeDefineEntityValue(ret);
30   return ret;
31 }
32
33 val_t PJ_value_get_or_new (const char *name, const char *color, type_t father)
34 {
35   val_t ret = 0;
36   xbt_ex_t e;
37   TRY {
38     ret = PJ_value_get(name, father);
39   }
40   CATCH(e) {
41     xbt_ex_free(e);
42     ret = PJ_value_new(name, color, father);
43   }
44   return ret;
45 }
46
47 val_t PJ_value_get (const char *name, type_t father)
48 {
49   if (name == NULL || father == NULL){
50     THROWF (tracing_error, 0, "can't get a value with a NULL name (or a NULL father)");
51   }
52
53   if (father->kind == TYPE_VARIABLE)
54     THROWF(tracing_error, 0,
55            "variables can't have different values (%s)", father->name);
56   val_t ret = (val_t)xbt_dict_get_or_null (father->values, name);
57   if (ret == NULL) {
58     THROWF(tracing_error, 2,
59            "value with name (%s) not found in father type (%s)",
60            name, father->name);
61   }
62   return ret;
63 }
64
65 void PJ_value_free (val_t value)
66 {
67   XBT_DEBUG("free value %s, child of %s", value->name, value->father->name);
68   xbt_free(((val_t)value)->name);
69   xbt_free(((val_t)value)->color);
70   xbt_free(((val_t)value)->id);
71   xbt_free(value);
72 }
73
74
75 #endif