Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Add an example of process migration in examples/msg/migration
authormquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Thu, 7 May 2009 12:16:23 +0000 (12:16 +0000)
committermquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Thu, 7 May 2009 12:16:23 +0000 (12:16 +0000)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@6275 48e7efb5-ca39-0410-a469-dd3cf9ba447f

.gitignore
ChangeLog
examples/msg/Makefile.am
examples/msg/migration/migration.c [new file with mode: 0644]
examples/msg/migration/migration.deploy [new file with mode: 0644]
examples/msg/migration/migration.tesh [new file with mode: 0644]

index 1bb3338..e7d7fe7 100644 (file)
@@ -71,6 +71,7 @@ examples/msg/masterslave/masterslave_bypass
 examples/msg/masterslave/masterslave_failure
 examples/msg/masterslave/masterslave_forwarder
 examples/msg/masterslave/masterslave_mailbox
 examples/msg/masterslave/masterslave_failure
 examples/msg/masterslave/masterslave_forwarder
 examples/msg/masterslave/masterslave_mailbox
+examples/msg/migration/migration
 examples/msg/parallel_task/parallel_task
 examples/msg/parallel_task/test_ptask
 examples/msg/priority/priority
 examples/msg/parallel_task/parallel_task
 examples/msg/parallel_task/test_ptask
 examples/msg/priority/priority
index 7c70c2e..8acec8d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -14,6 +14,7 @@ SimGrid (3.4-svn) unstable; urgency=high
      kind of action while the second one parses a trace file and
      triggers the corresponding actions within the system.
     For now, only a toy example is provided in examples/msg/actions
      kind of action while the second one parses a trace file and
      triggers the corresponding actions within the system.
     For now, only a toy example is provided in examples/msg/actions
+  * Add an exemple of process migration in examples/msg/migration
     
  SIMIX:
   * Add SIMIX_process_set_name() to change the name of the current
     
  SIMIX:
   * Add SIMIX_process_set_name() to change the name of the current
index 4198ad6..62dc50f 100644 (file)
@@ -17,6 +17,7 @@ EXTRA_DIST = msg_platform.xml \
              suspend/deployment_suspend.xml \
              masterslave/deployment_masterslave_forwarder.xml \
              masterslave/deployment_masterslave.xml \
              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 \
              gtnets/r-n200-f50-s4-2-d.xml \
              gtnets/onelink-p.xml \
              gtnets/onelink-d.xml \
@@ -40,6 +41,7 @@ TESTS = sendrecv/sendrecv_CLM03.tesh \
        masterslave/masterslave_forwarder.tesh \
        masterslave/masterslave_failure.tesh \
         masterslave/masterslave_bypass.tesh \
        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
         parallel_task/parallel_task.tesh \
         priority/priority.tesh \
        properties/msg_prop.tesh
@@ -77,6 +79,7 @@ noinst_PROGRAMS = sendrecv/sendrecv \
                   masterslave/masterslave_forwarder \
                   masterslave/masterslave_failure \
                   masterslave/masterslave_bypass \
                   masterslave/masterslave_forwarder \
                   masterslave/masterslave_failure \
                   masterslave/masterslave_bypass \
+                  migration/migration \
                   parallel_task/parallel_task \
                   parallel_task/test_ptask \
                   priority/priority \
                   parallel_task/parallel_task \
                   parallel_task/test_ptask \
                   priority/priority \
@@ -96,6 +99,10 @@ properties_msg_prop_LDADD   = $(top_builddir)/src/libsimgrid.la
 actions_actions_SOURCES = actions/actions.c
 actions_actions_LDADD   = $(top_builddir)/src/libsimgrid.la
 
 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
 
 # sendrecv simple example
 sendrecv_sendrecv_SOURCES = sendrecv/sendrecv.c
diff --git a/examples/msg/migration/migration.c b/examples/msg/migration/migration.c
new file mode 100644 (file)
index 0000000..8ac3813
--- /dev/null
@@ -0,0 +1,70 @@
+/*     $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 */
diff --git a/examples/msg/migration/migration.deploy b/examples/msg/migration/migration.deploy
new file mode 100644 (file)
index 0000000..e421031
--- /dev/null
@@ -0,0 +1,5 @@
+<?xml version='1.0'?>
+<!DOCTYPE platform SYSTEM "simgrid.dtd">
+<platform version="2">
+  <process host="Jacquelin" function="emigrant"/>
+</platform>
diff --git a/examples/msg/migration/migration.tesh b/examples/msg/migration/migration.tesh
new file mode 100644 (file)
index 0000000..53cda1f
--- /dev/null
@@ -0,0 +1,10 @@
+#! ./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