1 /* Copyright (c) 2004-2005, 2007, 2009-2014. 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 "xbt/sysdep.h"
11 #include "src/surf/trace_mgr.hpp"
12 #include "surf_private.h"
13 #include "xbt/RngStream.h"
16 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(surf_trace, surf, "Surf trace management");
18 static xbt_dict_t trace_list = NULL;
20 simgrid::trace_mgr::future_evt_set::future_evt_set()
24 simgrid::trace_mgr::future_evt_set::~future_evt_set()
26 xbt_heap_free(p_heap);
29 tmgr_trace_t tmgr_trace_new_from_string(const char *id, const char *input, double periodicity)
31 tmgr_trace_t trace = NULL;
34 tmgr_event_t last_event = NULL;
40 trace = (tmgr_trace_t)xbt_dict_get_or_null(trace_list, id);
42 XBT_WARN("Ignoring redefinition of trace %s", id);
47 xbt_assert(periodicity >= 0,
48 "Invalid periodicity %g (must be positive)", periodicity);
50 trace = xbt_new0(s_tmgr_trace_t, 1);
51 trace->event_list = xbt_dynar_new(sizeof(s_tmgr_event_t), NULL);
53 list = xbt_str_split(input, "\n\r");
55 xbt_dynar_foreach(list, cpt, val) {
57 xbt_str_trim(val, " \t\n\r\x0B");
58 if (val[0] == '#' || val[0] == '\0' || val[0] == '%')
61 if (sscanf(val, "PERIODICITY " "%lg" "\n", &periodicity) == 1)
64 if (sscanf(val, "%lg" " " "%lg" "\n", &event.delta, &event.value) != 2)
65 xbt_die("%s:%d: Syntax error in trace\n%s", id, linecount, input);
68 if (last_event->delta > event.delta) {
69 xbt_die("%s:%d: Invalid trace: Events must be sorted, "
70 "but time %g > time %g.\n%s",
71 id, linecount, last_event->delta, event.delta, input);
73 last_event->delta = event.delta - last_event->delta;
75 if(event.delta > 0.0){
76 s_tmgr_event_t first_event;
77 first_event.delta=event.delta;
78 first_event.value=-1.0;
79 xbt_dynar_push(trace->event_list, &first_event);
82 xbt_dynar_push(trace->event_list, &event);
83 last_event = (tmgr_event_t)xbt_dynar_get_ptr(trace->event_list, xbt_dynar_length(trace->event_list) - 1);
86 last_event->delta = periodicity;
89 trace_list = xbt_dict_new_homogeneous((void (*)(void *)) tmgr_trace_free);
91 xbt_dict_set(trace_list, id, (void *) trace, NULL);
93 xbt_dynar_free(&list);
97 tmgr_trace_t tmgr_trace_new_from_file(const char *filename)
99 tmgr_trace_t trace = NULL;
101 if ((!filename) || (strcmp(filename, "") == 0))
105 trace = (tmgr_trace_t)xbt_dict_get_or_null(trace_list, filename);
107 XBT_WARN("Ignoring redefinition of trace %s", filename);
112 FILE *f = surf_fopen(filename, "r");
113 xbt_assert(f != NULL,
114 "Cannot open file '%s' (path=%s)", filename, xbt_str_join(surf_path, ":"));
116 char *tstr = xbt_str_from_file(f);
118 trace = tmgr_trace_new_from_string(filename, tstr, 0.);
124 tmgr_trace_t tmgr_empty_trace_new(void)
126 tmgr_trace_t trace = NULL;
127 s_tmgr_event_t event;
129 trace = xbt_new0(s_tmgr_trace_t, 1);
130 trace->event_list = xbt_dynar_new(sizeof(s_tmgr_event_t), NULL);
134 xbt_dynar_push(trace->event_list, &event);
139 void tmgr_trace_free(tmgr_trace_t trace)
144 xbt_dynar_free(&(trace->event_list));
148 /** @brief Registers a new trace into the future event set, and get an iterator over the integrated trace */
149 tmgr_trace_iterator_t simgrid::trace_mgr::future_evt_set::add_trace(tmgr_trace_t trace, double start_time, surf::Resource *resource)
151 tmgr_trace_iterator_t trace_iterator = NULL;
153 trace_iterator = xbt_new0(s_tmgr_trace_event_t, 1);
154 trace_iterator->trace = trace;
155 trace_iterator->idx = 0;
156 trace_iterator->resource = resource;
158 xbt_assert((trace_iterator->idx < xbt_dynar_length(trace->event_list)), "Your trace should have at least one event!");
160 xbt_heap_push(p_heap, trace_iterator, start_time);
162 return trace_iterator;
165 /** @brief returns the date of the next occurring event (pure function) */
166 double simgrid::trace_mgr::future_evt_set::next_date() const
168 if (xbt_heap_size(p_heap))
169 return (xbt_heap_maxkey(p_heap));
174 /** @brief Retrieves the next occurring event, or NULL if none happens before #date */
175 tmgr_trace_iterator_t simgrid::trace_mgr::future_evt_set::pop_leq(
176 double date, double *value, simgrid::surf::Resource **resource)
178 double event_date = next_date();
179 if (event_date > date)
182 tmgr_trace_iterator_t trace_iterator = (tmgr_trace_iterator_t)xbt_heap_pop(p_heap);
183 if (trace_iterator == NULL)
186 tmgr_trace_t trace = trace_iterator->trace;
187 *resource = trace_iterator->resource;
189 tmgr_event_t event = (tmgr_event_t)xbt_dynar_get_ptr(trace->event_list, trace_iterator->idx);
191 *value = event->value;
193 if (trace_iterator->idx < xbt_dynar_length(trace->event_list) - 1) {
194 xbt_heap_push(p_heap, trace_iterator, event_date + event->delta);
195 trace_iterator->idx++;
196 } else if (event->delta > 0) { /* Last element, checking for periodicity */
197 xbt_heap_push(p_heap, trace_iterator, event_date + event->delta);
198 trace_iterator->idx = 1; /* not 0 as the first event is a placeholder to handle when events really start */
199 } else { /* We don't need this trace_event anymore */
200 trace_iterator->free_me = 1;
203 return trace_iterator;
206 void tmgr_finalize(void)
208 xbt_dict_free(&trace_list);
211 void tmgr_trace_event_unref(tmgr_trace_iterator_t *trace_event)
213 if ((*trace_event)->free_me) {
214 xbt_free(*trace_event);
215 *trace_event = nullptr;