suspend/deployment_suspend.xml \
masterslave/deployment_masterslave_forwarder.xml \
masterslave/deployment_masterslave.xml \
+ migration/migration.deploy \
gtnets/r-n200-f50-s4-2-d.xml \
gtnets/onelink-p.xml \
gtnets/onelink-d.xml \
masterslave/masterslave_forwarder.tesh \
masterslave/masterslave_failure.tesh \
masterslave/masterslave_bypass.tesh \
+ migration/migration.tesh \
parallel_task/parallel_task.tesh \
priority/priority.tesh \
properties/msg_prop.tesh
masterslave/masterslave_forwarder \
masterslave/masterslave_failure \
masterslave/masterslave_bypass \
+ migration/migration \
parallel_task/parallel_task \
parallel_task/test_ptask \
priority/priority \
actions_actions_SOURCES = actions/actions.c
actions_actions_LDADD = $(top_builddir)/src/libsimgrid.la
+# migration example
+migration_migration_SOURCES = migration/migration.c
+migration_migration_LDADD = $(top_builddir)/src/libsimgrid.la
+
# sendrecv simple example
sendrecv_sendrecv_SOURCES = sendrecv/sendrecv.c
--- /dev/null
+/* $Id$ */
+
+/* Copyright (c) 2009 The SimGrid team. All rights reserved. */
+
+/* This program is free software; you can redistribute it and/or modify it
+ * under the terms of the license (GNU LGPL) which comes with this package. */
+
+#include "msg/msg.h" /* core library */
+#include "xbt/sysdep.h" /* calloc */
+
+/* Create a log channel to have nice outputs. */
+#include "xbt/log.h"
+XBT_LOG_NEW_DEFAULT_CATEGORY(msg_test,"Messages specific for this msg example");
+
+/** The guy we will move from host to host. It move alone and then is moved by policeman back */
+static int emigrant(int argc, char *argv[])
+{
+ m_task_t task;
+ INFO0("I'll look for a new job on another machine where the grass is greener.");
+ MSG_process_change_host(MSG_get_host_by_name("Boivin"));
+ INFO0("Yeah, found something to do");
+ task = MSG_task_create("job",98095000,0,NULL);
+ MSG_task_execute(task);
+ MSG_task_destroy(task);
+ INFO0("Moving back home after work");
+ MSG_process_change_host(MSG_get_host_by_name("Jacquelin"));
+ INFO0("Uh, nothing to do here. Stopping now");
+ return 0;
+} /* end_of_emigrant */
+
+/* This function would move the emigrant back home, if it were possible to do so in the MSG API.
+ * Nothing for now.
+ */
+static int policeman(int argc, char *argv[])
+{
+ INFO0("No function in the API to move the emigrant back, so do nothing.");
+ return 0;
+} /* end_of_policeman */
+
+
+/** Main function */
+int main(int argc, char *argv[]) {
+ MSG_error_t res = MSG_OK;
+
+ /* Argument checking */
+ MSG_global_init(&argc,argv);
+ if (argc < 3) {
+ CRITICAL1 ("Usage: %s platform_file deployment_file\n",argv[0]);
+ CRITICAL1 ("example: %s msg_platform.xml msg_deployment_suspend.xml\n",argv[0]);
+ exit(1);
+ }
+
+ /* Simulation setting */
+ MSG_create_environment(argv[1]);
+
+ /* Application deployment */
+ MSG_function_register("emigrant", emigrant);
+ MSG_launch_application(argv[2]);
+
+ /* Run the simulation */
+ res = MSG_main();
+ INFO1("Simulation time %g",MSG_get_clock());
+ if (res==MSG_OK)
+ res = MSG_clean();
+
+ if(res==MSG_OK)
+ return 0;
+ else
+ return 1;
+} /* end_of_main */
--- /dev/null
+#! ./tesh
+
+p Testing the migration feature of MSG
+
+$ $SG_TEST_EXENV migration/migration ${srcdir:=.}/msg_platform.xml ${srcdir:=.}/migration/migration.deploy
+> [Jacquelin:emigrant:(1) 0.000000] [msg_test/INFO] I'll look for a new job on another machine where the grass is greener.
+> [Boivin:emigrant:(1) 0.000000] [msg_test/INFO] Yeah, found something to do
+> [Boivin:emigrant:(1) 1.000000] [msg_test/INFO] Moving back home after work
+> [Jacquelin:emigrant:(1) 1.000000] [msg_test/INFO] Uh, nothing to do here. Stopping now
+> [1.000000] [msg_test/INFO] Simulation time 1