1 /* Copyright (c) 2010-2015. 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 "src/instr/instr_private.h"
9 XBT_LOG_NEW_DEFAULT_SUBCATEGORY (instr_resource, instr, "tracing (un)-categorized resource utilization");
11 //to check if variables were previously set to 0, otherwise paje won't simulate them
12 static xbt_dict_t platform_variables;
15 static void __TRACE_surf_check_variable_set_to_zero(double now, const char *variable, const char *resource)
17 /* To trace resource utilization, we use pajeAddVariable and pajeSubVariable only.
18 * The Paje simulator needs a pajeSetVariable in the first place so it knows the initial value of all variables for
19 * subsequent adds/subs. If we don't do so, the first pajeAddVariable is added to a non-determined value within
20 * the Paje simulator, causing analysis problems.
23 // create a key considering the resource and variable
24 char *key = bprintf ("%s%s", resource, variable);
26 // check if key exists: if it doesn't, set the variable to zero and mark this in the dict
27 if (!xbt_dict_get_or_null(platform_variables, key)) {
28 container_t container = PJ_container_get (resource);
29 type_t type = PJ_type_get (variable, container->type);
30 new_pajeSetVariable (now, container, type, 0);
31 xbt_dict_set(platform_variables, key, (char*)"", nullptr);
36 static void instr_event (double now, double delta, type_t variable, container_t resource, double value)
38 __TRACE_surf_check_variable_set_to_zero(now, variable->name, resource->name);
39 new_pajeAddVariable(now, resource, variable, value);
40 new_pajeSubVariable(now + delta, resource, variable, value);
43 /* TRACE_surf_link_set_utilization: entry point from SimGrid */
44 void TRACE_surf_link_set_utilization(const char *resource, const char *category, double value, double now, double delta)
46 //only trace link utilization if link is known by tracing mechanism
47 if (!PJ_container_get_or_null(resource))
52 //trace uncategorized link utilization
53 if (TRACE_uncategorized()){
54 XBT_DEBUG("UNCAT LINK [%f - %f] %s bandwidth_used %f", now, now+delta, resource, value);
55 container_t container = PJ_container_get (resource);
56 type_t type = PJ_type_get ("bandwidth_used", container->type);
57 instr_event (now, delta, type, container, value);
60 //trace categorized utilization
61 if (TRACE_categorized()){
64 //variable of this category starts by 'b', because we have a link here
65 char category_type[INSTR_DEFAULT_STR_SIZE];
66 snprintf (category_type, INSTR_DEFAULT_STR_SIZE, "b%s", category);
67 XBT_DEBUG("CAT LINK [%f - %f] %s %s %f", now, now+delta, resource, category_type, value);
68 container_t container = PJ_container_get (resource);
69 type_t type = PJ_type_get (category_type, container->type);
70 instr_event (now, delta, type, container, value);
75 /* TRACE_surf_host_set_utilization: entry point from SimGrid */
76 void TRACE_surf_host_set_utilization(const char *resource, const char *category, double value, double now, double delta)
78 //only trace host utilization if host is known by tracing mechanism
79 container_t container = PJ_container_get_or_null(resource);
85 //trace uncategorized host utilization
86 if (TRACE_uncategorized()){
87 XBT_DEBUG("UNCAT HOST [%f - %f] %s power_used %f", now, now+delta, resource, value);
88 type_t type = PJ_type_get ("power_used", container->type);
89 instr_event (now, delta, type, container, value);
92 //trace categorized utilization
93 if (TRACE_categorized()){
96 //variable of this category starts by 'p', because we have a host here
97 char category_type[INSTR_DEFAULT_STR_SIZE];
98 snprintf (category_type, INSTR_DEFAULT_STR_SIZE, "p%s", category);
99 XBT_DEBUG("CAT HOST [%f - %f] %s %s %f", now, now+delta, resource, category_type, value);
100 type_t type = PJ_type_get (category_type, container->type);
101 instr_event (now, delta, type, container, value);
106 void TRACE_surf_resource_utilization_alloc()
108 platform_variables = xbt_dict_new_homogeneous(nullptr);
111 void TRACE_surf_resource_utilization_release()
113 xbt_dict_free(&platform_variables);