Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Avoid costly exceptions when looking into a map.
[simgrid.git] / src / instr / instr_resource_utilization.cpp
1 /* Copyright (c) 2010-2015. 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
7 #include "src/instr/instr_private.h"
8
9 XBT_LOG_NEW_DEFAULT_SUBCATEGORY (instr_resource, instr, "tracing (un)-categorized resource utilization");
10
11 //to check if variables were previously set to 0, otherwise paje won't simulate them
12 static xbt_dict_t platform_variables;
13
14 //used by all methods
15 static void __TRACE_surf_check_variable_set_to_zero(double now, const char *variable, const char *resource)
16 {
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.
21    */
22
23   // create a key considering the resource and variable
24   int n = strlen(variable)+strlen(resource)+1;
25   char *key = (char*)xbt_malloc(n*sizeof(char));
26   snprintf (key, n, "%s%s", resource, variable);
27
28   // check if key exists: if it doesn't, set the variable to zero and mark this in the dict
29   if (not xbt_dict_get_or_null(platform_variables, key)) {
30     container_t container = PJ_container_get (resource);
31     type_t type = PJ_type_get (variable, container->type);
32     new SetVariableEvent (now, container, type, 0);
33     xbt_dict_set(platform_variables, key, (char*)"", nullptr);
34   }
35   xbt_free(key);
36 }
37
38 static void instr_event (double now, double delta, type_t variable, container_t resource, double value)
39 {
40   __TRACE_surf_check_variable_set_to_zero(now, variable->name, resource->name);
41   new AddVariableEvent(now, resource, variable, value);
42   new SubVariableEvent(now + delta, resource, variable, value);
43 }
44
45 /* TRACE_surf_link_set_utilization: entry point from SimGrid */
46 void TRACE_surf_link_set_utilization(const char *resource, const char *category, double value, double now, double delta)
47 {
48   //only trace link utilization if link is known by tracing mechanism
49   if (not PJ_container_get_or_null(resource))
50     return;
51   if (not value)
52     return;
53
54   //trace uncategorized link utilization
55   if (TRACE_uncategorized()){
56     XBT_DEBUG("UNCAT LINK [%f - %f] %s bandwidth_used %f", now, now+delta, resource, value);
57     container_t container = PJ_container_get (resource);
58     type_t type = PJ_type_get ("bandwidth_used", container->type);
59     instr_event (now, delta, type, container, value);
60   }
61
62   //trace categorized utilization
63   if (TRACE_categorized()){
64     if (not category)
65       return;
66     //variable of this category starts by 'b', because we have a link here
67     char category_type[INSTR_DEFAULT_STR_SIZE];
68     snprintf (category_type, INSTR_DEFAULT_STR_SIZE, "b%s", category);
69     XBT_DEBUG("CAT LINK [%f - %f] %s %s %f", now, now+delta, resource, category_type, value);
70     container_t container = PJ_container_get (resource);
71     type_t type = PJ_type_get (category_type, container->type);
72     instr_event (now, delta, type, container, value);
73   }
74 }
75
76 /* TRACE_surf_host_set_utilization: entry point from SimGrid */
77 void TRACE_surf_host_set_utilization(const char *resource, const char *category, double value, double now, double delta)
78 {
79   //only trace host utilization if host is known by tracing mechanism
80   container_t container = PJ_container_get_or_null(resource);
81   if (not container || not value)
82     return;
83
84   //trace uncategorized host utilization
85   if (TRACE_uncategorized()){
86     XBT_DEBUG("UNCAT HOST [%f - %f] %s power_used %f", now, now+delta, resource, value);
87     type_t type = PJ_type_get ("power_used", container->type);
88     instr_event (now, delta, type, container, value);
89   }
90
91   //trace categorized utilization
92   if (TRACE_categorized()){
93     if (not category)
94       return;
95     //variable of this category starts by 'p', because we have a host here
96     char category_type[INSTR_DEFAULT_STR_SIZE];
97     snprintf (category_type, INSTR_DEFAULT_STR_SIZE, "p%s", category);
98     XBT_DEBUG("CAT HOST [%f - %f] %s %s %f", now, now+delta, resource, category_type, value);
99     type_t type = PJ_type_get (category_type, container->type);
100     instr_event (now, delta, type, container, value);
101   }
102 }
103
104 void TRACE_surf_resource_utilization_alloc()
105 {
106   platform_variables = xbt_dict_new_homogeneous(nullptr);
107 }
108
109 void TRACE_surf_resource_utilization_release()
110 {
111   xbt_dict_free(&platform_variables);
112 }