#include "surf_private.h"
#include "network_private.h"
+#include "maxmin_private.h"
+#include "surf/datatypes.h"
+#include "cpu_cas01_private.h"
#include "xbt/mallocator.h"
XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(surf_kernel);
}
/*
+ * Maxmin action
+ */
+
+/* added to manage the communication action's heap */
+void surf_action_lmm_update_index_heap(void *action, int i) {
+ surf_action_lmm_t a = action;
+ a->index_heap = i;
+}
+/* insert action on heap using a given key and a hat (heap_action_type)
+ * a hat can be of three types for communications:
+ *
+ * NORMAL = this is a normal heap entry stating the date to finish transmitting
+ * LATENCY = this is a heap entry to warn us when the latency is payed
+ * MAX_DURATION =this is a heap entry to warn us when the max_duration limit is reached
+ */
+void surf_action_lmm_heap_insert(xbt_heap_t heap, surf_action_lmm_t action, double key,
+ enum heap_action_type hat)
+{
+ action->hat = hat;
+ xbt_heap_push(heap, action, key);
+}
+
+void surf_action_lmm_heap_remove(xbt_heap_t heap, surf_action_lmm_t action)
+{
+ action->hat = NOTSET;
+ if (action->index_heap >= 0) {
+ xbt_heap_remove(heap, action->index_heap);
+ }
+}
+
+void surf_action_cancel(surf_action_t action)
+{
+ surf_model_t model = action->model_type;
+ surf_action_state_set(action, SURF_ACTION_FAILED);
+ if (model->model_private->update_mechanism == UM_LAZY) {
+ xbt_swag_remove(action, model->model_private->modified_set);
+ surf_action_lmm_heap_remove(model->model_private->action_heap,(surf_action_lmm_t)action);
+ }
+ return;
+}
+
+int surf_action_unref(surf_action_t action)
+{
+ surf_model_t model = action->model_type;
+ action->refcount--;
+ if (!action->refcount) {
+ xbt_swag_remove(action, action->state_set);
+ if (((surf_action_lmm_t) action)->variable)
+ lmm_variable_free(model->model_private->maxmin_system,
+ ((surf_action_lmm_t) action)->variable);
+ if (model->model_private->update_mechanism == UM_LAZY) {
+ /* remove from heap */
+ surf_action_lmm_heap_remove(model->model_private->action_heap,(surf_action_lmm_t)action);
+ xbt_swag_remove(action, model->model_private->modified_set);
+ }
+#ifdef HAVE_TRACING
+ xbt_free(action->category);
+#endif
+ surf_action_free(&action);
+ return 1;
+ }
+ return 0;
+}
+
void surf_action_suspend(surf_action_t action)
{
- action->suspended = 1;
-}*/
+ surf_model_t model = action->model_type;
+ XBT_IN("(%p)", action);
+ if (((surf_action_lmm_t) action)->suspended != 2) {
+ lmm_update_variable_weight(model->model_private->maxmin_system,
+ ((surf_action_lmm_t) action)->variable,
+ 0.0);
+ ((surf_action_lmm_t) action)->suspended = 1;
+ if (model->model_private->update_mechanism == UM_LAZY)
+ surf_action_lmm_heap_remove(model->model_private->action_heap,(surf_action_lmm_t)action);
+ }
+ XBT_OUT();
+}
-/*
- * Maxmin action
+void surf_action_resume(surf_action_t action)
+{
+ surf_model_t model = action->model_type;
+ XBT_IN("(%p)", action);
+ if (((surf_action_lmm_t) action)->suspended != 2) {
+ lmm_update_variable_weight(model->model_private->maxmin_system,
+ ((surf_action_lmm_t) action)->variable,
+ action->priority);
+ ((surf_action_lmm_t) action)->suspended = 0;
+ if (model->model_private->update_mechanism == UM_LAZY)
+ surf_action_lmm_heap_remove(model->model_private->action_heap,(surf_action_lmm_t)action);
+ }
+ XBT_OUT();
+}
+
+int surf_action_is_suspended(surf_action_t action)
+{
+ return (((surf_action_lmm_t) action)->suspended == 1);
+}
+
+void surf_action_set_max_duration(surf_action_t action, double duration)
+{
+ surf_model_t model = action->model_type;
+ XBT_IN("(%p,%g)", action, duration);
+ action->max_duration = duration;
+ if (model->model_private->update_mechanism == UM_LAZY) // remove action from the heap
+ surf_action_lmm_heap_remove(model->model_private->action_heap,(surf_action_lmm_t)action);
+ XBT_OUT();
+}
+
+void surf_action_set_priority(surf_action_t action, double priority)
+{
+ surf_model_t model = action->model_type;
+ XBT_IN("(%p,%g)", action, priority);
+ action->priority = priority;
+ lmm_update_variable_weight(model->model_private->maxmin_system,
+ ((surf_action_lmm_t) action)->variable,
+ priority);
+
+ if (model->model_private->update_mechanism == UM_LAZY)
+ surf_action_lmm_heap_remove(model->model_private->action_heap,(surf_action_lmm_t)action);
+ XBT_OUT();
+}
+
+#ifdef HAVE_TRACING
+void surf_action_set_category(surf_action_t action,
+ const char *category)
+{
+ XBT_IN("(%p,%s)", action, category);
+ action->category = xbt_strdup(category);
+ XBT_OUT();
+}
+#endif
+
+void generic_update_action_remaining_lazy( surf_action_lmm_t action, double now)
+{
+ double delta = 0.0;
+ surf_model_t model = action->generic_action.model_type;
+
+ if(model == surf_network_model)
+ {
+ if (action->suspended != 0)
+ return;
+ }
+ else
+ {
+ xbt_assert(action->generic_action.state_set == model->states.running_action_set,
+ "You're updating an action that is not running.");
+
+ /* bogus priority, skip it */
+ xbt_assert(action->generic_action.priority > 0,
+ "You're updating an action that seems suspended.");
+ }
+
+ delta = now - action->last_update;
+
+ if (action->generic_action.remains > 0) {
+ XBT_DEBUG("Updating action(%p): remains was %lf, last_update was: %lf", action, action->generic_action.remains, action->last_update);
+ double_update(&(action->generic_action.remains),
+ action->last_value * delta);
+
+#ifdef HAVE_TRACING
+ if (model == surf_cpu_model && TRACE_is_enabled()) {
+ surf_resource_t cpu =
+ lmm_constraint_id(lmm_get_cnst_from_var
+ (model->model_private->maxmin_system,
+ action->variable, 0));
+ TRACE_surf_host_set_utilization(cpu->name,
+ action->generic_action.category,
+ action->last_value,
+ action->last_update,
+ now - action->last_update);
+ }
+#endif
+ XBT_DEBUG("Updating action(%p): remains is now %lf", action,
+ action->generic_action.remains);
+ }
+
+ if(model == surf_network_model)
+ {
+ if (((surf_action_t)action)->max_duration != NO_MAX_DURATION)
+ double_update(&(((surf_action_t)action)->max_duration), delta);
+
+ if ((((surf_action_t)action)->remains <= 0) &&
+ (lmm_get_variable_weight(action->variable) > 0)) {
+ ((surf_action_t)action)->finish = surf_get_clock();
+ model->action_state_set((surf_action_t) action,
+ SURF_ACTION_DONE);
+
+ surf_action_lmm_heap_remove(model->model_private->action_heap,(surf_action_lmm_t)action);
+ } else if (((((surf_action_t)action)->max_duration != NO_MAX_DURATION)
+ && (((surf_action_t)action)->max_duration <= 0))) {
+ ((surf_action_t)action)->finish = surf_get_clock();
+ model->action_state_set((surf_action_t) action,
+ SURF_ACTION_DONE);
+ surf_action_lmm_heap_remove(model->model_private->action_heap,(surf_action_lmm_t)action);
+ }
+ }
+
+ action->last_update = now;
+ action->last_value = lmm_variable_getvalue(action->variable);
+}
+
+double surf_action_get_remains(surf_action_t action)
+{
+ XBT_IN("(%p)", action);
+ surf_model_t model = action->model_type;
+ /* update remains before return it */
+ if (model->model_private->update_mechanism == UM_LAZY) /* update remains before return it */
+ generic_update_action_remaining_lazy((surf_action_lmm_t)action, surf_get_clock());
+ XBT_OUT();
+ return action->remains;
+}
+
+/**
+ * Update the CPU total energy for a finished action
+ *
*/
+void update_resource_energy(surf_model_t model, surf_action_lmm_t action)
+{
+ if(model == surf_cpu_model){
+ cpu_Cas01_t cpu_model = (cpu_Cas01_t)lmm_constraint_id(lmm_get_cnst_from_var
+ (model->model_private->maxmin_system,
+ action->variable, 0));
+
+ if( cpu_model->energy->last_updated < surf_get_clock()) {
+ double load = lmm_constraint_get_usage(cpu_model->constraint) / cpu_model->power_peak;
+ cpu_update_energy(cpu_model, load);
+ }
+ }
+}
+
+
+
+
+void generic_update_actions_state_lazy(double now, double delta, surf_model_t model)
+{
+ surf_action_lmm_t action;
+ while ((xbt_heap_size(model->model_private->action_heap) > 0)
+ && (double_equals(xbt_heap_maxkey(model->model_private->action_heap), now))) {
+ action = xbt_heap_pop(model->model_private->action_heap);
+ XBT_DEBUG("Something happened to action %p", action);
+#ifdef HAVE_TRACING
+ if (TRACE_is_enabled()) {
+ if(model == surf_cpu_model){
+ surf_resource_t cpu =
+ lmm_constraint_id(lmm_get_cnst_from_var
+ (model->model_private->maxmin_system,
+ action->variable, 0));
+ TRACE_surf_host_set_utilization(cpu->name,
+ ((surf_action_t)action)->category,
+ lmm_variable_getvalue(action->variable),
+ action->last_update,
+ now - action->last_update);
+ }
+ else{
+ int n = lmm_get_number_of_cnst_from_var(model->model_private->maxmin_system, action->variable);
+ unsigned int i;
+ for (i = 0; i < n; i++){
+ lmm_constraint_t constraint = lmm_get_cnst_from_var(model->model_private->maxmin_system,
+ action->variable,
+ i);
+ link_CM02_t link = lmm_constraint_id(constraint);
+ TRACE_surf_link_set_utilization(link->lmm_resource.generic_resource.name,
+ ((surf_action_t)action)->category,
+ (lmm_variable_getvalue(action->variable)*
+ lmm_get_cnst_weight_from_var(model->model_private->maxmin_system,
+ action->variable,
+ i)),
+ action->last_update,
+ now - action->last_update);
+ }
+ }
+ }
+#endif
+
+ if(model == surf_cpu_model){
+ action->generic_action.finish = surf_get_clock();
+
+ update_resource_energy(model, action);
+
+ /* set the remains to 0 due to precision problems when updating the remaining amount */
+ action->generic_action.remains = 0;
+ surf_action_state_set((surf_action_t) action, SURF_ACTION_DONE);
+ surf_action_lmm_heap_remove(model->model_private->action_heap,action); //FIXME: strange call since action was already popped
+ }
+ else{
+ // if I am wearing a latency hat
+ if (action->hat == LATENCY) {
+ XBT_DEBUG("Latency paid for action %p. Activating", action);
+ lmm_update_variable_weight(model->model_private->maxmin_system, action->variable,
+ ((surf_action_network_CM02_t)(action))->weight);
+ surf_action_lmm_heap_remove(model->model_private->action_heap,action);
+ action->last_update = surf_get_clock();
+
+ // if I am wearing a max_duration or normal hat
+ } else if (action->hat == MAX_DURATION ||
+ action->hat == NORMAL) {
+ // no need to communicate anymore
+ // assume that flows that reached max_duration have remaining of 0
+ action->generic_action.finish = surf_get_clock();
+ XBT_DEBUG("Action %p finished", action);
+ action->generic_action.remains = 0;
+ ((surf_action_t)action)->finish = surf_get_clock();
+ model->action_state_set((surf_action_t) action,
+ SURF_ACTION_DONE);
+ surf_action_lmm_heap_remove(model->model_private->action_heap,action);
+
+ if (model->gap_remove && model == surf_network_model)
+ model->gap_remove(action);
+ }
+ }
+ }
+#ifdef HAVE_TRACING
+ if (TRACE_is_enabled() && model == surf_cpu_model) {
+ //defining the last timestamp that we can safely dump to trace file
+ //without losing the event ascending order (considering all CPU's)
+ double smaller = -1;
+ xbt_swag_t running_actions = model->states.running_action_set;
+ xbt_swag_foreach(action, running_actions) {
+ if (smaller < 0) {
+ smaller = action->last_update;
+ continue;
+ }
+ if (action->last_update < smaller) {
+ smaller = action->last_update;
+ }
+ }
+ if (smaller > 0) {
+ TRACE_last_timestamp_to_dump = smaller;
+ }
+ }
+#endif
+ return;
+}
+
+void generic_update_actions_state_full(double now, double delta, surf_model_t model)
+{
+ surf_action_lmm_t action = NULL;
+ surf_action_lmm_t next_action = NULL;
+ xbt_swag_t running_actions = model->states.running_action_set;
+
+ xbt_swag_foreach_safe(action, next_action, running_actions) {
+
+ if(model == surf_network_model)
+ {
+ double deltap = 0.0;
+ deltap = delta;
+ if (((surf_action_network_CM02_t)action)->latency > 0) {
+ if (((surf_action_network_CM02_t)action)->latency > deltap) {
+ double_update(&(((surf_action_network_CM02_t)action)->latency), deltap);
+ deltap = 0.0;
+ } else {
+ double_update(&(deltap), ((surf_action_network_CM02_t)action)->latency);
+ ((surf_action_network_CM02_t)action)->latency = 0.0;
+ }
+ if ((((surf_action_network_CM02_t)action)->latency == 0.0) && !(action->suspended))
+ lmm_update_variable_weight(model->model_private->maxmin_system, action->variable,
+ ((surf_action_network_CM02_t)action)->weight);
+ }
+ #ifdef HAVE_TRACING
+ if (TRACE_is_enabled()) {
+ int n = lmm_get_number_of_cnst_from_var(model->model_private->maxmin_system, action->variable);
+ unsigned int i;
+ for (i = 0; i < n; i++){
+ lmm_constraint_t constraint = lmm_get_cnst_from_var(model->model_private->maxmin_system,
+ action->variable,
+ i);
+ link_CM02_t link = lmm_constraint_id(constraint);
+ TRACE_surf_link_set_utilization(link->lmm_resource.generic_resource.name,
+ ((surf_action_t)action)->category,
+ (lmm_variable_getvalue(action->variable)*
+ lmm_get_cnst_weight_from_var(model->model_private->maxmin_system,
+ action->variable,
+ i)),
+ now - delta,
+ delta);
+ }
+ }
+ #endif
+ if (!lmm_get_number_of_cnst_from_var
+ (model->model_private->maxmin_system, action->variable)) {
+ /* There is actually no link used, hence an infinite bandwidth.
+ * This happens often when using models like vivaldi.
+ * In such case, just make sure that the action completes immediately.
+ */
+ double_update(&(action->generic_action.remains),
+ action->generic_action.remains);
+ }
+ }
+ else
+ {
+#ifdef HAVE_TRACING
+ if (TRACE_is_enabled()) {
+ surf_resource_t x =
+ lmm_constraint_id(lmm_get_cnst_from_var
+ (model->model_private->maxmin_system,
+ action->variable, 0));
+
+ TRACE_surf_host_set_utilization(x->name,
+ ((surf_action_t)action)->category,
+ lmm_variable_getvalue(action->variable),
+ now - delta,
+ delta);
+ TRACE_last_timestamp_to_dump = now - delta;
+ }
+#endif
+ }
+
+ double_update(&(action->generic_action.remains),
+ lmm_variable_getvalue(action->variable) * delta);
+
+
+ if (action->generic_action.max_duration != NO_MAX_DURATION)
+ double_update(&(action->generic_action.max_duration), delta);
+
+
+ if ((action->generic_action.remains <= 0) &&
+ (lmm_get_variable_weight(action->variable) > 0)) {
+ action->generic_action.finish = surf_get_clock();
+ surf_action_state_set((surf_action_t) action, SURF_ACTION_DONE);
+
+ if (model->gap_remove && model == surf_network_model)
+ model->gap_remove(action);
+ } else if ((action->generic_action.max_duration != NO_MAX_DURATION) &&
+ (action->generic_action.max_duration <= 0)) {
+ action->generic_action.finish = surf_get_clock();
+ surf_action_state_set((surf_action_t) action, SURF_ACTION_DONE);
+
+ if (model->gap_remove && model == surf_network_model)
+ model->gap_remove(action);
+ }
+
+ update_resource_energy(model, action);
+ }
+
+ return;
+}