[trace] re-writing some tracing functions

[simgrid.git] / src / instr / instr_paje_values.c

diff --git a/src/instr/instr_paje_values.c b/src/instr/instr_paje_values.c
new file mode 100644 (file)
index 0000000..da52f14
--- /dev/null
+++ b/src/instr/instr_paje_values.c
@@ -0,0 +1,49 @@
+/* Copyright (c) 2012. The SimGrid Team.
+ * All rights reserved.                                                     */
+
+/* This program is free software; you can redistribute it and/or modify it
+  * under the terms of the license (GNU LGPL) which comes with this package. */
+#include "instr/instr_private.h"
+
+#ifdef HAVE_TRACING
+
+XBT_LOG_NEW_DEFAULT_SUBCATEGORY (instr_paje_values, instr, "Paje tracing event system (values)");
+
+val_t PJ_value_new (const char *name, const char *color, type_t father)
+{
+  val_t ret = xbt_new0(s_val_t, 1);
+  ret->name = xbt_strdup (name);
+  ret->father = father;
+  ret->color = xbt_strdup (color);
+
+  char str_id[INSTR_DEFAULT_STR_SIZE];
+  snprintf (str_id, INSTR_DEFAULT_STR_SIZE, "%lld", instr_new_paje_id());
+  ret->id = xbt_strdup (str_id);
+
+  xbt_dict_set (father->values, name, ret, NULL);
+  XBT_DEBUG("new value %s, child of %s", ret->name, ret->father->name);
+  new_pajeDefineEntityValue(ret);
+  return ret;
+}
+
+val_t PJ_value_get (const char *name, type_t father)
+{
+  if (father->kind == TYPE_VARIABLE) return NULL; //Variables can't have different values
+  val_t ret = (val_t)xbt_dict_get_or_null (father->values, name);
+  if (ret == NULL){
+    return NULL;
+  }
+  return ret;
+}
+
+void PJ_value_free (val_t value)
+{
+  XBT_DEBUG("free value %s, child of %s", value->name, value->father->name);
+  xbt_free(((val_t)value)->name);
+  xbt_free(((val_t)value)->color);
+  xbt_free(((val_t)value)->id);
+  xbt_free(value);
+}
+
+
+#endif