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/private.h"
11 static xbt_dict_t process_containers = NULL;
13 void __TRACE_msg_process_init (void)
15 process_containers = xbt_dict_new();
18 void __TRACE_msg_process_location (m_process_t process)
20 if (!(IS_TRACING_PROCESSES || IS_TRACING_VOLUME)) return;
22 char name[200], alias[200];
23 m_host_t host = MSG_process_get_host (process);
24 TRACE_process_container (process, name, 200);
25 TRACE_process_alias_container (process, host, alias, 200);
27 //check if process_alias container is already created
28 if (!xbt_dict_get_or_null (process_containers, alias)){
29 pajeCreateContainer (MSG_get_clock(), alias, "PROCESS", MSG_host_get_name(host), name);
30 if (IS_TRACING_PROCESSES) pajeSetState (MSG_get_clock(), "category", alias, process->category);
31 xbt_dict_set (process_containers, xbt_strdup(alias), xbt_strdup("1"), xbt_free);
35 void __TRACE_msg_process_present (m_process_t process)
37 if (!IS_TRACING_PROCESSES) return;
39 //updating presence state of this process location
41 m_host_t host = MSG_process_get_host (process);
42 TRACE_process_alias_container (process, host, alias, 200);
43 pajePushState (MSG_get_clock(), "presence", alias, "presence");
47 * TRACE_msg_set_process_category: tracing interface function
49 void TRACE_msg_set_process_category (m_process_t process, const char *category)
51 if (!IS_TRACING) return;
53 //set process category
54 process->category = xbt_new (char, strlen (category)+1);
55 strncpy (process->category, category, strlen(category)+1);
57 //create container of type "PROCESS" to indicate location
58 __TRACE_msg_process_location (process);
59 __TRACE_msg_process_present (process);
61 //create container of type "process" to indicate behavior
63 TRACE_process_container (process, name, 200);
64 if (IS_TRACING_PROCESSES) pajeCreateContainer (MSG_get_clock(), name, "process", category, name);
65 if (IS_TRACING_PROCESSES) pajeSetState (MSG_get_clock(), "process-state", name, "executing");
69 * Instrumentation functions to trace MSG processes (m_process_t)
71 void TRACE_msg_process_change_host (m_process_t process, m_host_t old_host, m_host_t new_host)
73 if (!(IS_TRACING_PROCESSES || IS_TRACING_VOLUME) || !IS_TRACED(process)) return;
75 //disabling presence in old_host (__TRACE_msg_process_not_present)
77 TRACE_process_alias_container (process, old_host, alias, 200);
78 if (IS_TRACING_PROCESSES) pajePopState (MSG_get_clock(), "presence", alias);
80 __TRACE_msg_process_location (process);
81 __TRACE_msg_process_present (process);
84 void TRACE_msg_process_kill (m_process_t process)
86 if (!IS_TRACING_PROCESSES || !IS_TRACED(process)) return;
89 TRACE_process_container (process, name, 200);
90 pajeDestroyContainer (MSG_get_clock(), "process", name);
93 void TRACE_msg_process_suspend (m_process_t process)
95 if (!IS_TRACING_PROCESSES || !IS_TRACED(process)) return;
98 TRACE_process_container (process, name, 200);
99 pajeSetState (MSG_get_clock(), "process-state", name, "suspend");
102 void TRACE_msg_process_resume (m_process_t process)
104 if (!IS_TRACING_PROCESSES || !IS_TRACED(process)) return;
107 TRACE_process_container (process, name, 200);
108 pajeSetState (MSG_get_clock(), "process-state", name, "executing");
111 void TRACE_msg_process_sleep_in (m_process_t process)
113 if (!IS_TRACING_PROCESSES || !IS_TRACED(process)) return;
116 TRACE_process_container (process, name, 200);
117 pajeSetState (MSG_get_clock(), "process-state", name, "sleep");
120 void TRACE_msg_process_sleep_out (m_process_t process)
122 if (!IS_TRACING_PROCESSES || !IS_TRACED(process)) return;
125 TRACE_process_container (process, name, 200);
126 pajeSetState (MSG_get_clock(), "process-state", name, "executing");
129 void TRACE_msg_process_end (m_process_t process)
131 if (!IS_TRACED(process)) return;
133 char name[200], alias[200];
134 m_host_t host = MSG_process_get_host (process);
135 TRACE_process_container (process, name, 200);
136 TRACE_process_alias_container (process, host, alias, 200);
137 if (IS_TRACING_PROCESSES) pajeDestroyContainer (MSG_get_clock(), "process", name);
138 if (IS_TRACING_PROCESSES) pajeDestroyContainer (MSG_get_clock(), "PROCESS", alias);