1 /* Copyright (c) 2010. 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_resource, instr, "tracing (un)-categorized resource utilization");
13 //to check if variables were previously set to 0, otherwise paje won't simulate them
14 static xbt_dict_t platform_variables; /* host or link name -> array of categories */
17 static void __TRACE_surf_check_variable_set_to_zero(double now,
22 * To trace resource utilization, we use pajeAddVariable and pajeSubVariable only.
23 * The Paje simulator needs a pajeSetVariable in the first place so it knows
24 * the initial value of all variables for subsequent adds/subs. If we don't do
25 * so, the first pajeAddVariable is added to a non-determined value within
26 * the Paje simulator, causing analysis problems.
29 // create a key considering the resource and variable
30 int n = strlen(variable)+strlen(resource)+1;
31 char *key = (char*)xbt_malloc(n*sizeof(char));
32 snprintf (key, n, "%s%s", resource, variable);
34 // check if key exists: if it doesn't, set the variable to zero and mark this in the dict
35 if (!xbt_dict_get_or_null(platform_variables, key)) {
36 container_t container = PJ_container_get (resource);
37 type_t type = PJ_type_get (variable, container->type);
38 new_pajeSetVariable (now, container, type, 0);
39 xbt_dict_set(platform_variables, key, (char*)"", NULL);
45 static void __TRACE_A_event(smx_action_t action, double now, double delta,
46 const char *variable, const char *resource,
50 snprintf(valuestr, 100, "%f", value);
52 __TRACE_surf_check_variable_set_to_zero(now, variable, resource);
53 container_t container = PJ_container_get (resource);
54 type_t type = getVariableType (variable, NULL, container->type);
55 new_pajeAddVariable(now, container, type, value);
56 new_pajeSubVariable(now + delta, container, type, value);
60 static void instr_event (double now, double delta, type_t variable, container_t resource, double value)
62 __TRACE_surf_check_variable_set_to_zero(now, variable->name, resource->name);
63 new_pajeAddVariable(now, resource, variable, value);
64 new_pajeSubVariable(now + delta, resource, variable, value);
68 * TRACE_surf_link_set_utilization: entry point from SimGrid
70 void TRACE_surf_link_set_utilization(const char *resource, smx_action_t smx_action,
71 surf_action_t surf_action,
72 double value, double now,
75 //only trace link utilization if link is known by tracing mechanism
76 if (!PJ_container_get_or_null(resource))
81 //trace uncategorized link utilization
82 if (TRACE_uncategorized()){
83 XBT_DEBUG("UNCAT LINK [%f - %f] %s bandwidth_used %f", now, now+delta, resource, value);
84 container_t container = PJ_container_get (resource);
85 type_t type = PJ_type_get ("bandwidth_used", container->type);
86 instr_event (now, delta, type, container, value);
89 //trace categorized utilization
90 if (TRACE_categorized()){
91 if (!surf_action->category)
93 //variable of this category starts by 'b', because we have a link here
94 char category_type[INSTR_DEFAULT_STR_SIZE];
95 snprintf (category_type, INSTR_DEFAULT_STR_SIZE, "b%s", surf_action->category);
96 XBT_DEBUG("CAT LINK [%f - %f] %s %s %f", now, now+delta, resource, category_type, value);
97 container_t container = PJ_container_get (resource);
98 type_t type = PJ_type_get (category_type, container->type);
99 instr_event (now, delta, type, container, value);
105 * TRACE_surf_host_set_utilization: entry point from SimGrid
107 void TRACE_surf_host_set_utilization(const char *resource,
108 smx_action_t smx_action,
109 surf_action_t surf_action,
110 double value, double now,
113 //only trace host utilization if host is known by tracing mechanism
114 if (!PJ_container_get_or_null(resource))
119 //trace uncategorized host utilization
120 if (TRACE_uncategorized()){
121 XBT_DEBUG("UNCAT HOST [%f - %f] %s power_used %f", now, now+delta, resource, value);
122 container_t container = PJ_container_get (resource);
123 type_t type = PJ_type_get ("power_used", container->type);
124 instr_event (now, delta, type, container, value);
127 //trace categorized utilization
128 if (TRACE_categorized()){
129 if (!surf_action->category)
131 //variable of this category starts by 'p', because we have a host here
132 char category_type[INSTR_DEFAULT_STR_SIZE];
133 snprintf (category_type, INSTR_DEFAULT_STR_SIZE, "p%s", surf_action->category);
134 XBT_DEBUG("CAT HOST [%f - %f] %s %s %f", now, now+delta, resource, category_type, value);
135 container_t container = PJ_container_get (resource);
136 type_t type = PJ_type_get (category_type, container->type);
137 instr_event (now, delta, type, container, value);
142 void TRACE_surf_resource_utilization_alloc()
144 platform_variables = xbt_dict_new_homogeneous(NULL);
147 void TRACE_surf_resource_utilization_release()
149 xbt_dict_free(&platform_variables);
151 #endif /* HAVE_TRACING */