+ int i;
+ simdata_task_t simdata = xbt_new0(s_simdata_task_t, 1);
+ m_task_t task = xbt_new0(s_m_task_t, 1);
+ task->simdata = simdata;
+
+ /* Task structure */
+ task->name = xbt_strdup(name);
+ task->data = data;
+
+ /* Simulator Data */
+ simdata->computation_amount = 0;
+ simdata->message_size = 0;
+ simdata->compute = NULL;
+ simdata->comm = NULL;
+ simdata->rate = -1.0;
+ simdata->isused = 0;
+ simdata->sender = NULL;
+ simdata->receiver = NULL;
+ simdata->source = NULL;
+
+ simdata->host_nb = host_nb;
+ simdata->host_list = xbt_new0(smx_host_t, host_nb);
+ simdata->comp_amount = computation_amount;
+ simdata->comm_amount = communication_amount;
+
+ for (i = 0; i < host_nb; i++)
+ simdata->host_list[i] = host_list[i]->simdata->smx_host;
+
+ return task;
+}
+
+MSG_error_t MSG_parallel_task_execute(m_task_t task)
+{
+ simdata_task_t simdata = NULL;
+ m_process_t self = MSG_process_self();
+ CHECK_HOST();
+
+ simdata = task->simdata;
+
+ xbt_assert0((!simdata->compute)
+ && (task->simdata->isused == 0),
+ "This task is executed somewhere else. Go fix your code!");
+
+ xbt_assert0(simdata->host_nb,
+ "This is not a parallel task. Go to hell.");
+
+ DEBUG1("Parallel computing on %s", MSG_process_self()->simdata->m_host->name);
+
+ simdata->isused=1;
+
+ simdata->compute =
+ SIMIX_req_host_parallel_execute(task->name, simdata->host_nb,
+ simdata->host_list,
+ simdata->comp_amount,
+ simdata->comm_amount, 1.0, -1.0);
+ DEBUG1("Parallel execution action created: %p", simdata->compute);
+
+ self->simdata->waiting_action = simdata->compute;
+ SIMIX_req_host_execution_wait(simdata->compute);
+ self->simdata->waiting_action = NULL;
+
+ DEBUG2("Finished waiting for execution of action %p, state = %d", simdata->compute, SIMIX_req_host_execution_get_state(task->simdata->compute));
+
+ simdata->isused=0;
+
+ if (SIMIX_req_host_execution_get_state(task->simdata->compute) == SIMIX_DONE) {
+ /* action ended, set comm and compute = NULL, the actions is already destroyed in the main function */
+ SIMIX_req_host_execution_destroy(task->simdata->compute);
+ simdata->computation_amount = 0.0;
+ simdata->comm = NULL;
+ simdata->compute = NULL;
+ MSG_RETURN(MSG_OK);
+ } else if (SIMIX_req_host_get_state(SIMIX_host_self()) == 0) {
+ /* action ended, set comm and compute = NULL, the actions is already destroyed in the main function */
+ SIMIX_req_host_execution_destroy(task->simdata->compute);
+ simdata->comm = NULL;
+ simdata->compute = NULL;
+ MSG_RETURN(MSG_HOST_FAILURE);
+ } else {
+ /* action ended, set comm and compute = NULL, the actions is already destroyed in the main function */
+ SIMIX_req_host_execution_destroy(task->simdata->compute);
+ simdata->comm = NULL;
+ simdata->compute = NULL;
+ MSG_RETURN(MSG_TASK_CANCELLED);
+ }
+}
+
+
+/** \ingroup msg_gos_functions
+ * \brief Sleep for the specified number of seconds
+ *
+ * Makes the current process sleep until \a time seconds have elapsed.
+ *
+ * \param nb_sec a number of second
+ */
+MSG_error_t MSG_process_sleep(double nb_sec)
+{
+ e_smx_state_t state;
+ /*m_process_t proc = MSG_process_self();*/
+
+#ifdef HAVE_TRACING
+ TRACE_msg_process_sleep_in(MSG_process_self());
+#endif
+
+ /* create action to sleep */
+ state = SIMIX_req_process_sleep(nb_sec);
+
+ /*proc->simdata->waiting_action = act_sleep;
+
+ FIXME: check if not setting the waiting_action breaks something on msg
+
+ proc->simdata->waiting_action = NULL;*/