From: alegrand <alegrand@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Wed, 1 Jun 2005 19:19:29 +0000 (+0000)
Subject: Reverting Mt's modifications and making use of the brand new SURF timer.
X-Git-Tag: v3.3~4039
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/937002db594a50d239dc6cebfb5c46c0ba7a5fd9?hp=9b27268d9d9bb2c80b6d5107343665d1df982c6e

Reverting Mt's modifications and making use of the brand new SURF timer.


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@1316 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---

diff --git a/src/msg/deployment.c b/src/msg/deployment.c
index 87649dddae..a69db56b90 100644
--- a/src/msg/deployment.c
+++ b/src/msg/deployment.c
@@ -43,8 +43,31 @@ static void parse_argument(void)
 
 static void parse_process_finalize(void)
 {
-  MSG_process_create_with_arguments(parse_argv[0], parse_code, NULL, parse_host,
-				    parse_argc,parse_argv,start_time,kill_time);
+  process_arg_t arg = NULL;
+  m_process_t process = NULL;
+  if(start_time>MSG_get_clock()) {
+    arg = xbt_new0(s_process_arg_t,1);
+    arg->name = parse_argv[0];
+    arg->code = parse_code;
+    arg->data = NULL;
+    arg->host = parse_host;
+    arg->argc = parse_argc;
+    arg->argv = parse_argv;
+    arg-> kill_time = kill_time;
+
+    surf_timer_resource->extension_public->set(start_time, (void*) &MSG_process_create_with_arguments,
+					       arg);
+  }
+  if(start_time==MSG_get_clock()) {
+    process = MSG_process_create_with_arguments(parse_argv[0], parse_code, 
+						NULL, parse_host,
+						parse_argc,parse_argv);
+    if(kill_time > MSG_getClock()) {
+      surf_timer_resource->extension_public->set(kill_time, 
+						 (void*) &MSG_process_kill,
+						 (void*) process);
+    }
+  }
 }
 
 /** \ingroup msg_easier_life
diff --git a/src/msg/global.c b/src/msg/global.c
index f08dabb5d0..2fbf28887d 100644
--- a/src/msg/global.c
+++ b/src/msg/global.c
@@ -325,22 +325,13 @@ MSG_error_t MSG_main(void)
   while (1) {
     xbt_context_empty_trash();
     while ((process = xbt_fifo_pop(msg_global->process_to_run))) {
-      if (process->simdata->kill_time >= 0.0 &&
-	  process->simdata->kill_time < surf_get_clock()) {
-	INFO3("KILLING %s(%d) on %s (kill_time elapsed; too bad)",
-	       process->name,process->simdata->PID,
-	       process->simdata->host->name);
-	MSG_process_kill(process);
-	 
-      } else {
-	DEBUG3("Scheduling  %s(%d) on %s",	     
-	       process->name,process->simdata->PID,
-	       process->simdata->host->name);
-	msg_global->current_process = process;
-	fflush(NULL);
-	xbt_context_schedule(process->simdata->context);
-	msg_global->current_process = NULL;
-      }
+      DEBUG3("Scheduling  %s(%d) on %s",	     
+	     process->name,process->simdata->PID,
+	     process->simdata->host->name);
+      msg_global->current_process = process;
+      fflush(NULL);
+      xbt_context_schedule(process->simdata->context);
+      msg_global->current_process = NULL;
     }
     DEBUG1("%lg : Calling surf_solve",MSG_getClock());
     elapsed_time = surf_solve();
@@ -359,6 +350,31 @@ MSG_error_t MSG_main(void)
       surf_action_t action = NULL;
       surf_resource_t resource = NULL;
       m_task_t task = NULL;
+
+      void *fun = NULL;
+      void *arg = NULL;
+      while (surf_timer_resource->extension_public->get(&fun,(void*)&arg)) {
+	DEBUG2("got %p %p", fun, arg);
+	if(fun==MSG_process_create_with_arguments) {
+	  process_arg_t args = arg;
+	  DEBUG2("Launching %s on %s", args->name, args->host->name);
+	  process = MSG_process_create_with_arguments(args->name, args->code, 
+						      args->data, args->host,
+						      args->argc,args->argv);
+	  if(args->kill_time > MSG_getClock()) {
+	    surf_timer_resource->extension_public->set(args->kill_time, 
+						       (void*) &MSG_process_kill,
+						       (void*) process);
+	  }
+	  xbt_free(args);
+	}
+	if(fun==MSG_process_kill) {
+	  process = arg;
+	  DEBUG3("Killing %s(%d) on %s", process->name, process->simdata->PID, 
+		 process->simdata->host->name);
+	  MSG_process_kill(process);
+	}
+      }
       
       xbt_dynar_foreach(resource_list, i, resource) {
 	while ((action =