1 /* Copyright (c) 2012-2014. The SimGrid Team.
2 * All rights reserved. */
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. */
7 #include "instr/instr_private.h"
11 XBT_LOG_NEW_DEFAULT_SUBCATEGORY (instr_paje_values, instr, "Paje tracing event system (values)");
13 val_t PJ_value_new (const char *name, const char *color, type_t father)
15 if (name == NULL || father == NULL){
16 THROWF (tracing_error, 0, "can't create a value with a NULL name (or a NULL father)");
19 val_t ret = xbt_new0(s_val_t, 1);
20 ret->name = xbt_strdup (name);
22 ret->color = xbt_strdup (color);
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);
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);
34 val_t PJ_value_get_or_new (const char *name, const char *color, type_t father)
39 ret = PJ_value_get(name, father);
43 ret = PJ_value_new(name, color, father);
48 val_t PJ_value_get (const char *name, type_t father)
50 if (name == NULL || father == NULL){
51 THROWF (tracing_error, 0, "can't get a value with a NULL name (or a NULL father)");
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);
59 THROWF(tracing_error, 2,
60 "value with name (%s) not found in father type (%s)",
66 void PJ_value_free (val_t value)
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);