-/* Copyright (c) 2007-2015. The SimGrid Team.
- * All rights reserved. */
+/* Copyright (c) 2007-2017. 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 "simgrid/msg.h"
+#include "simgrid/plugins/live_migration.h"
XBT_LOG_NEW_DEFAULT_CATEGORY(msg_test, "Messages specific for this msg example");
msg_task_t task = NULL;
msg_error_t res = MSG_task_receive(&task, mbox);
- if (res != MSG_OK) {
- XBT_CRITICAL("MSG_task_get failed");
- DIE_IMPOSSIBLE;
- }
+ xbt_assert(res == MSG_OK, "MSG_task_get failed");
XBT_INFO("%s received task(%s) from mailbox(%s)", pr_name, MSG_task_get_name(task), mbox);
- if (!strcmp(MSG_task_get_name(task), "finalize")) {
+ if (strcmp(MSG_task_get_name(task), "finalize") == 0) {
MSG_task_destroy(task);
break;
}
XBT_INFO("create %s on PM(%s)", vm_name, MSG_host_get_name(pm));
msg_vm_t vm = MSG_vm_create_core(pm, vm_name);
- s_vm_params_t params;
- memset(¶ms, 0, sizeof(params));
- params.ramsize = 1L * 1024 * 1024 * 1024; // 1Gbytes
- MSG_host_set_params(vm, ¶ms);
+ MSG_vm_set_ramsize(vm, 1L * 1024 * 1024 * 1024); // 1GiB
MSG_vm_start(vm);
xbt_dynar_push(vms, &vm);
XBT_INFO("put a process (%s) on %s", pr_name, vm_name);
- MSG_process_create(pr_name, worker_fun, NULL, vm);
+ MSG_process_create(pr_name, worker_fun, NULL, (msg_host_t)vm);
xbt_free(vm_name);
xbt_free(pr_name);
XBT_INFO("# Suspend all VMs");
xbt_dynar_foreach(vms, i, vm) {
- const char *vm_name = MSG_host_get_name(vm);
- XBT_INFO("suspend %s", vm_name);
+ XBT_INFO("suspend %s", MSG_vm_get_name(vm));
MSG_vm_suspend(vm);
}
}
XBT_INFO("# Sleep long enough for everyone to be done with previous batch of work");
- MSG_process_sleep(1000 - MSG_get_clock());
+ MSG_process_sleep(10 - MSG_get_clock());
XBT_INFO("# Add one more process on each VM");
xbt_dynar_foreach(vms, i, vm) {
unsigned int index = i + xbt_dynar_length(vms);
- char *vm_name = bprintf("VM%02d", i);
- char *pr_name = bprintf("WRK%02d", index);
+ char* vm_name = bprintf("VM%02u", i);
+ char* pr_name = bprintf("WRK%02u", index);
XBT_INFO("put a process (%s) on %s", pr_name, vm_name);
- MSG_process_create(pr_name, worker_fun, NULL, vm);
+ MSG_process_create(pr_name, worker_fun, NULL, (msg_host_t)vm);
xbt_free(vm_name);
xbt_free(pr_name);
MSG_vm_migrate(vm, worker_pm1);
}
- XBT_INFO("# Shutdown the half of worker processes gracefuly. The remaining half will be forcibly killed.");
+ XBT_INFO("# Shutdown the half of worker processes gracefully. The remaining half will be forcibly killed.");
for (i = 0; i < nb_workers; i++) {
char mbox[MAXMBOXLEN];
- snprintf(mbox, MAXMBOXLEN, "MBOX:WRK%02d", i);
+ snprintf(mbox, MAXMBOXLEN, "MBOX:WRK%02u", i);
msg_task_t finalize = MSG_task_create("finalize", 0, 0, 0);
MSG_task_send(finalize, mbox);
}
XBT_INFO("# Shutdown and destroy all the VMs. The remaining worker processes will be forcibly killed.");
xbt_dynar_foreach(vms, i, vm) {
- XBT_INFO("shutdown %s", MSG_host_get_name(vm));
+ XBT_INFO("shutdown %s", MSG_vm_get_name(vm));
MSG_vm_shutdown(vm);
- XBT_INFO("destroy %s", MSG_host_get_name(vm));
+ XBT_INFO("destroy %s", MSG_vm_get_name(vm));
MSG_vm_destroy(vm);
}
const int nb_workers = 2;
MSG_init(&argc, argv);
- xbt_assert(argc >1,"Usage: %s example/msg/msg_platform.xml\n", argv[0]);
+ MSG_vm_live_migration_plugin_init();
+
+ xbt_assert(argc >1,"Usage: %s example/platforms/cluster.xml\n", argv[0]);
/* Load the platform file */
MSG_create_environment(argv[1]);
msg_host_t pm = xbt_dynar_get_as(pms, i, msg_host_t);
xbt_dynar_push(worker_pms, &pm);
}
+ xbt_dynar_free(&pms);
/* Start the master process on the master pm. */
MSG_process_create("master", master_fun, worker_pms, master_pm);
XBT_INFO("Bye (simulation time %g)", MSG_get_clock());
xbt_dynar_free(&worker_pms);
- xbt_dynar_free(&pms);
return !(res == MSG_OK);
}