Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
5c3d1fe7280f98e916de017f5f671aa346ce37c8
[simgrid.git] / src / instr / instr_variables.c
1 /* Copyright (c) 2010. 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 "instr/instr_private.h"
8 #include "surf/surf_private.h"
9 #include "surf/network_private.h"
10
11 #ifdef HAVE_TRACING
12
13 //extern routing_global_t global_routing;
14 extern xbt_dict_t hosts_types;
15 extern xbt_dict_t links_types;
16
17 void TRACE_user_link_variable(double time, const char *resource,
18                               const char *variable,
19                               double value, const char *what)
20 {
21   if (!TRACE_is_active())
22     return;
23
24   char valuestr[100];
25   snprintf(valuestr, 100, "%g", value);
26
27   if (strcmp(what, "declare") == 0) {
28     {
29       //check if links have been created
30       xbt_assert1 (links_types != NULL && xbt_dict_length(links_types) != 0,
31           "%s must be called after environment creation", __FUNCTION__);
32     }
33
34     char new_type[INSTR_DEFAULT_STR_SIZE];
35     xbt_dict_cursor_t cursor = NULL;
36     char *type;
37     void *data;
38     xbt_dict_foreach(links_types, cursor, type, data) {
39       snprintf (new_type, INSTR_DEFAULT_STR_SIZE, "%s-%s", variable, type);
40       pajeDefineVariableType (new_type, type, variable);
41     }
42   } else{
43     char *link_type = instr_link_type (resource);
44     xbt_assert2 (link_type != NULL,
45         "link %s provided to %s is not known by the tracing mechanism", resource, __FUNCTION__);
46     char variable_type[INSTR_DEFAULT_STR_SIZE];
47     snprintf (variable_type, INSTR_DEFAULT_STR_SIZE, "%s-%s", variable, link_type);
48
49     if (strcmp(what, "set") == 0) {
50       pajeSetVariable(time, variable_type, instr_id(resource), valuestr);
51     } else if (strcmp(what, "add") == 0) {
52       pajeAddVariable(time, variable_type, instr_id(resource), valuestr);
53     } else if (strcmp(what, "sub") == 0) {
54       pajeSubVariable(time, variable_type, instr_id(resource), valuestr);
55     }
56   }
57 }
58
59 void TRACE_user_host_variable(double time, const char *variable,
60                               double value, const char *what)
61 {
62   if (!TRACE_is_active())
63     return;
64
65   char valuestr[100];
66   snprintf(valuestr, 100, "%g", value);
67
68   if (strcmp(what, "declare") == 0) {
69     {
70       //check if hosts have been created
71       xbt_assert1 (hosts_types != NULL && xbt_dict_length(hosts_types) != 0,
72           "%s must be called after environment creation", __FUNCTION__);
73     }
74
75     char new_type[INSTR_DEFAULT_STR_SIZE];
76     xbt_dict_cursor_t cursor = NULL;
77     char *type;
78     void *data;
79     xbt_dict_foreach(hosts_types, cursor, type, data) {
80       snprintf (new_type, INSTR_DEFAULT_STR_SIZE, "%s-%s", variable, type);
81       pajeDefineVariableType (new_type, type, variable);
82     }
83   } else{
84     char *host_name = MSG_host_self()->name;
85     char *host_type = instr_host_type (host_name);
86     char variable_type[INSTR_DEFAULT_STR_SIZE];
87     snprintf (variable_type, INSTR_DEFAULT_STR_SIZE, "%s-%s", variable, host_type);
88
89     if (strcmp(what, "set") == 0) {
90       pajeSetVariable(time, variable_type, instr_id(host_name), valuestr);
91     } else if (strcmp(what, "add") == 0) {
92       pajeAddVariable(time, variable_type, instr_id(host_name), valuestr);
93     } else if (strcmp(what, "sub") == 0) {
94       pajeSubVariable(time, variable_type, instr_id(host_name), valuestr);
95     }
96   }
97 }
98
99 #endif /* HAVE_TRACING */