"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[] = {
+s_surf_model_description_t surf_network_model_description[surf_network_model_description_size] = {
+ {"Constant", NULL, surf_network_model_init_Constant},
{"CM02", NULL, surf_network_model_init_CM02},
#ifdef HAVE_GTNETS
{"GTNets", NULL, surf_network_model_init_GTNETS},
{"Vegas", NULL, surf_network_model_init_Vegas}
};
-int surf_cpu_model_description_size = 1;
-s_surf_model_description_t surf_cpu_model_description[] = {
+s_surf_model_description_t surf_cpu_model_description[surf_cpu_model_description_size] = {
{"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}
+s_surf_model_description_t surf_workstation_model_description[surf_workstation_model_description_size] = {
+ {"CLM03", NULL, surf_workstation_model_init_CLM03, create_workstations},
+ {"compound", NULL, surf_workstation_model_init_compound, create_workstations},
+ {"ptask_L07", NULL, surf_workstation_model_init_ptask_L07, NULL}
};
void update_model_description(s_surf_model_description_t * table,
action->data = data;
}
+XBT_LOG_EXTERNAL_CATEGORY(surf_cpu);
+XBT_LOG_EXTERNAL_CATEGORY(surf_kernel);
+XBT_LOG_EXTERNAL_CATEGORY(surf_lagrange);
+XBT_LOG_EXTERNAL_CATEGORY(surf_lagrange_dichotomy);
+XBT_LOG_EXTERNAL_CATEGORY(surf_maxmin);
+XBT_LOG_EXTERNAL_CATEGORY(surf_network);
+XBT_LOG_EXTERNAL_CATEGORY(surf_parse);
+XBT_LOG_EXTERNAL_CATEGORY(surf_timer);
+XBT_LOG_EXTERNAL_CATEGORY(surf_workstation);
+
+#ifdef HAVE_SDP
+ XBT_LOG_EXTERNAL_CATEGORY(surf_sdp_out);
+ XBT_LOG_EXTERNAL_CATEGORY(surf_sdp);
+#endif
+#ifdef HAVE_GTNETS
+ XBT_LOG_EXTERNAL_CATEGORY(surf_network_gtnets);
+#endif
+
void surf_init(int *argc, char **argv)
{
int i, j;
const char *initial_path;
+ /* Connect our log channels: that must be done manually under windows */
+ XBT_LOG_CONNECT(surf_cpu, surf);
+ XBT_LOG_CONNECT(surf_kernel, surf);
+ XBT_LOG_CONNECT(surf_lagrange, surf);
+ XBT_LOG_CONNECT(surf_lagrange_dichotomy, surf_lagrange);
+ XBT_LOG_CONNECT(surf_maxmin, surf);
+ XBT_LOG_CONNECT(surf_network, surf);
+ XBT_LOG_CONNECT(surf_parse, surf);
+ XBT_LOG_CONNECT(surf_timer, surf);
+ XBT_LOG_CONNECT(surf_workstation, surf);
+
+#ifdef HAVE_SDP
+ XBT_LOG_CONNECT(surf_sdp_out, surf);
+ XBT_LOG_CONNECT(surf_sdp, surf);
+#endif
+#ifdef HAVE_GTNETS
+ XBT_LOG_CONNECT(surf_network_gtnets, surf);
+#endif
+
xbt_init(argc, argv);
if (!surf_path) {
path_name_len = strlen(path) + strlen(name) + 1; /* plus '/' */
path_name = xbt_realloc(path_name, path_name_len + 1);
}
+ #ifdef WIN32
+ sprintf(path_name, "%s\\%s", path, name);
+ #else
sprintf(path_name, "%s/%s", path, name);
+ #endif
file = fopen(path_name, mode);
if (file)
return file;
xbt_exit();
}
-double surf_solve(void)
-{
- static int first_run = 1;
-
- double min = -1.0;
+void surf_presolve(void) {
double next_event_date = -1.0;
- double model_next_action_end = -1.0;
+ tmgr_trace_event_t event = NULL;
double value = -1.0;
surf_model_object_t model_obj = NULL;
surf_model_t model = NULL;
- tmgr_trace_event_t event = NULL;
unsigned int iter;
-
- if (first_run) {
+
DEBUG0
("First Run! Let's \"purge\" events and put models in the right state");
while ((next_event_date = tmgr_history_next_date(history)) != -1.0) {
xbt_dynar_foreach(model_list, iter, model) {
model->common_private->update_actions_state(NOW, 0.0);
}
- first_run = 0;
- return 0.0;
- }
+}
+
+double surf_solve(void)
+{
+ double min = -1.0;
+ double next_event_date = -1.0;
+ double model_next_action_end = -1.0;
+ double value = -1.0;
+ surf_model_object_t model_obj = NULL;
+ surf_model_t model = NULL;
+ tmgr_trace_event_t event = NULL;
+ unsigned int iter;
min = -1.0;