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 (!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_pajeSetVariable (now, container, type, 0);
  33     xbt_dict_set(platform_variables, key, (char*)"", NULL);
  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_pajeAddVariable(now, resource, variable, value);
  42   new_pajeSubVariable(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 (!PJ_container_get_or_null(resource))
  50     return;
  51   if (!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 (!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   return;
  75 }
  76
  77 /* TRACE_surf_host_set_utilization: entry point from SimGrid */
  78 void TRACE_surf_host_set_utilization(const char *resource, const char *category, double value, double now, double delta)
  79 {
  80   //only trace host utilization if host is known by tracing mechanism
  81   container_t container = PJ_container_get_or_null(resource);
  82   if (!container)
  83     return;
  84   if (!value)
  85     return;
  86
  87   //trace uncategorized host utilization
  88   if (TRACE_uncategorized()){
  89     XBT_DEBUG("UNCAT HOST [%f - %f] %s power_used %f", now, now+delta, resource, value);
  90     type_t type = PJ_type_get ("power_used", container->type);
  91     instr_event (now, delta, type, container, value);
  92   }
  93
  94   //trace categorized utilization
  95   if (TRACE_categorized()){
  96     if (!category)
  97       return;
  98     //variable of this category starts by 'p', because we have a host here
  99     char category_type[INSTR_DEFAULT_STR_SIZE];
 100     snprintf (category_type, INSTR_DEFAULT_STR_SIZE, "p%s", category);
 101     XBT_DEBUG("CAT HOST [%f - %f] %s %s %f", now, now+delta, resource, category_type, value);
 102     type_t type = PJ_type_get (category_type, container->type);
 103     instr_event (now, delta, type, container, value);
 104   }
 105   return;
 106 }
 107
 108 void TRACE_surf_resource_utilization_alloc()
 109 {
 110   platform_variables = xbt_dict_new_homogeneous(NULL);
 111 }
 112
 113 void TRACE_surf_resource_utilization_release()
 114 {
 115   xbt_dict_free(&platform_variables);
 116 }