X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/1b4dc02411d79e4c367d331b85c1b295ec41edff..1ff90bc7103df77877d6860f1f117425afe1a516:/examples/msg/energy-vm/energy-vm.c diff --git a/examples/msg/energy-vm/energy-vm.c b/examples/msg/energy-vm/energy-vm.c deleted file mode 100644 index e4c8ce9be9..0000000000 --- a/examples/msg/energy-vm/energy-vm.c +++ /dev/null @@ -1,75 +0,0 @@ -/* Copyright (c) 2007-2019. 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/energy.h" - -XBT_LOG_NEW_DEFAULT_CATEGORY(energy_vm, "Messages of this example"); - -static int worker_func(int argc, char *argv[]) { - msg_task_t task1 = MSG_task_create("t1", 300E6, 0, NULL); - MSG_task_execute (task1); - MSG_task_destroy(task1); - XBT_INFO("This worker is done."); - return 0; -} - -static int dvfs(int argc, char *argv[]) -{ - msg_host_t host1 = MSG_host_by_name("MyHost1"); - msg_host_t host2 = MSG_host_by_name("MyHost2"); - msg_host_t host3 = MSG_host_by_name("MyHost3"); - - /* Host 1 */ - XBT_INFO("Creating and starting two VMs"); - msg_vm_t vm_host1 = MSG_vm_create_core(host1, "vm_host1"); - MSG_vm_start(vm_host1); - msg_vm_t vm_host2 = MSG_vm_create_core(host2, "vm_host2"); - MSG_vm_start(vm_host2); - - XBT_INFO("Create two tasks on Host1: both inside a VM"); - MSG_process_create("p11", worker_func, NULL, (msg_host_t)vm_host1); - MSG_process_create("p12", worker_func, NULL, (msg_host_t)vm_host1); - - XBT_INFO("Create two tasks on Host2: one inside a VM, the other directly on the host"); - MSG_process_create("p21", worker_func, NULL, (msg_host_t)vm_host2); - MSG_process_create("p22", worker_func, NULL, host2); - - XBT_INFO("Create two tasks on Host3: both directly on the host"); - MSG_process_create("p31", worker_func, NULL, host3); - MSG_process_create("p32", worker_func, NULL, host3); - - XBT_INFO("Wait 5 seconds. The tasks are still running (they run for 3 seconds, but 2 tasks are co-located, " - "so they run for 6 seconds)"); - MSG_process_sleep(5); - XBT_INFO("Wait another 5 seconds. The tasks stop at some point in between"); - MSG_process_sleep(5); - - MSG_vm_destroy(vm_host1); - MSG_vm_destroy(vm_host2); - - return 0; -} - -int main(int argc, char *argv[]) -{ - sg_host_energy_plugin_init(); - MSG_init(&argc, argv); - - xbt_assert(argc > 1, "Usage: %s platform_file\n\tExample: %s msg_platform.xml\n", argv[0], argv[0]); - - MSG_create_environment(argv[1]); - - MSG_process_create("dvfs",dvfs,NULL,MSG_host_by_name("MyHost1")); - - msg_error_t res = MSG_main(); - - XBT_INFO("Total simulation time: %.2f; Host2 and Host3 must have the exact same energy consumption; Host1 is " - "multi-core and will differ.", - MSG_get_clock()); - - return res != MSG_OK; -}