+xbt_dynar_t surf_path = NULL;
+const char *surf_action_state_names[6] = {
+ "SURF_ACTION_READY",
+ "SURF_ACTION_RUNNING",
+ "SURF_ACTION_FAILED",
+ "SURF_ACTION_DONE",
+ "SURF_ACTION_TO_FREE",
+ "SURF_ACTION_NOT_IN_THE_SYSTEM"
+};
+
+int surf_network_model_description_size = 3
+#ifdef HAVE_GTNETS
+ + 1
+#endif
+#ifdef HAVE_SDP
+ + 1
+#endif
+ ;
+s_surf_model_description_t surf_network_model_description[] = {
+ {"CM02", NULL, surf_network_model_init_CM02},
+#ifdef HAVE_GTNETS
+ {"GTNets", NULL, surf_network_model_init_GTNETS},
+#endif
+#ifdef HAVE_SDP
+ {"SDP", NULL, surf_network_model_init_SDP},
+#endif
+ {"Reno", NULL, surf_network_model_init_Reno},
+ {"Vegas", NULL, surf_network_model_init_Vegas}
+};
+
+int surf_cpu_model_description_size = 1;
+s_surf_model_description_t surf_cpu_model_description[] = {
+ {"Cas01", NULL, surf_cpu_model_init_Cas01},
+};
+
+int surf_workstation_model_description_size = 4;
+s_surf_model_description_t surf_workstation_model_description[] = {
+ {"CLM03", NULL, surf_workstation_model_init_CLM03},
+ {"KCCFLN05", NULL, surf_workstation_model_init_KCCFLN05},
+ {"compound", NULL, surf_workstation_model_init_compound},
+ {"ptask_L07", NULL, surf_workstation_model_init_ptask_L07}
+};
+
+void update_model_description(s_surf_model_description_t * table,
+ int table_size,
+ const char *name,
+ surf_model_t model)
+{
+ int i = find_model_description(table, table_size, name);
+ table[i].model = model;
+}
+
+int find_model_description(s_surf_model_description_t * table,
+ int table_size, const char *name)
+{
+ int i;
+ char *name_list = NULL;
+
+ for (i = 0; i < table_size; i++)
+ if (!strcmp(name, table[i].name)) {
+ return i;
+ }
+ name_list = strdup(table[0].name);
+ for (i = 1; i < table_size; i++) {
+ name_list =
+ xbt_realloc(name_list,
+ strlen(name_list) + strlen(table[i].name) + 2);
+ strcat(name_list, ", ");
+ strcat(name_list, table[i].name);
+ }
+ xbt_assert2(0, "Model '%s' is invalid! Valid models are: %s.", name,
+ name_list);
+}
+
+double generic_maxmin_share_models(xbt_swag_t running_actions,
+ size_t offset)
+{
+ return generic_maxmin_share_models2(running_actions, offset,
+ maxmin_system, lmm_solve);
+}
+
+double generic_maxmin_share_models2(xbt_swag_t running_actions,
+ size_t offset,
+ lmm_system_t sys,
+ void (*solve) (lmm_system_t))
+{
+ surf_action_t action = NULL;
+ double min = -1;
+ double value = -1;
+#define VARIABLE(action) (*((lmm_variable_t*)(((char *) (action)) + (offset))))
+
+ xbt_assert0(solve, "Give me a real solver function!");
+ solve(sys);
+
+ xbt_swag_foreach(action, running_actions) {
+ value = lmm_variable_getvalue(VARIABLE(action));
+ if ((value > 0) || (action->max_duration >= 0))
+ break;
+ }
+
+ if (!action)
+ return -1.0;
+
+ if (value > 0) {
+ if(action->remains>0)
+ min = action->remains / value;
+ else
+ min = 0.0;
+ if ((action->max_duration >= 0) && (action->max_duration < min))
+ min = action->max_duration;
+ } else
+ min = action->max_duration;
+
+ DEBUG5("Found action (%p: duration = %f, remains = %f, value = %f) ! %f",
+ action, action->max_duration, action->remains, value, min);
+
+ for (action = xbt_swag_getNext(action, running_actions->offset);
+ action;
+ action = xbt_swag_getNext(action, running_actions->offset)) {
+ value = lmm_variable_getvalue(VARIABLE(action));
+ if (value > 0) {
+ if(action->remains>0)
+ value = action->remains / value;
+ else
+ value = 0.0;
+ if (value < min) {
+ min = value;
+ DEBUG2("Updating min (value) with %p: %f", action, min);
+ }
+ }
+ if ((action->max_duration >= 0) && (action->max_duration < min)) {
+ min = action->max_duration;
+ DEBUG2("Updating min (duration) with %p: %f", action, min);
+ }
+ }
+ DEBUG1("min value : %f", min);
+
+#undef VARIABLE
+ return min;
+}