From: Takishipp Date: Mon, 4 Sep 2017 15:27:55 +0000 (+0200) Subject: Start to convert async-waitall to s4u X-Git-Tag: v3_17~152^2~6 X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/c3af2ee33be02758e4ca572d87dc8b1f96dfc169?ds=sidebyside Start to convert async-waitall to s4u --- diff --git a/examples/s4u/async-waitall/s4u_async-waitall.cpp b/examples/s4u/async-waitall/s4u_async-waitall.cpp new file mode 100644 index 0000000000..ed4edc5308 --- /dev/null +++ b/examples/s4u/async-waitall/s4u_async-waitall.cpp @@ -0,0 +1,102 @@ +/* Copyright (c) 2010-2016. 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" + +XBT_LOG_NEW_DEFAULT_CATEGORY(msg_async_waitall, "Messages specific for this msg example"); + +class sender { +public: + explicit sender(std::vector args) +{ + xbt_assert(args.size()== 4, "This function expects 5 parameters from the XML deployment file"); + long number_of_tasks = xbt_str_parse_int(args[0].c_str(), "Invalid amount of tasks: %s"); + double task_comp_size = xbt_str_parse_double(args[1].c_str(), "Invalid computational size: %s"); + double task_comm_size = xbt_str_parse_double(args[2].c_str(), "Invalid communication size: %s"); + long receivers_count = xbt_str_parse_int(args[3].c_str(), "Invalid amount of receivers: %s"); + + simgrid::s4u::CommPtr* comms = new simgrid::s4u::CommPtr[number_of_tasks + receivers_count] ; + + for (int i = 0; i < number_of_tasks; i++) { + char mailbox[80]; + char taskname[80]; + snprintf(mailbox,79, "receiver-%ld", i % receivers_count); + snprintf(taskname,79, "Task_%d", i); + comms[i] = mbox->put_async((void*)mailbox, 42.0); + XBT_INFO("Send to receiver-%ld Task_%d", i % receivers_count, i); + } + for (int i = 0; i < receivers_count; i++) { + char mailbox[80]; + snprintf(mailbox,79, "receiver-%ld", i % receivers_count); + + comms[i + number_of_tasks] = mbox->put_async((void*)mailbox, 42.0); + + XBT_INFO("Send to receiver-%ld finalize", i % receivers_count); + } + + /* Here we are waiting for the completion of all communications */ + for (int i = 0; i < number_of_tasks + receivers_count; i++) + comms[i]->wai(); + + delete [] comms; +} +void operator()() +{ + XBT_INFO("Goodbye now!"); +} +}; + +class receiver { +public: + explicit receiver(std::vector args) +{ + xbt_assert(args.size() == 1,"This function expects 1 parameter from the XML deployment file"); + int id = xbt_str_parse_int(args[0].c_str(), "Any process of this example must have a numerical name, not %s"); + void *received; + char mailbox[80]; + snprintf(mailbox,79, "receiver-%d", id); + + simgrid::s4u::this_actor::sleep_for(10.0); + while (1) { + XBT_INFO("Wait to receive a task"); + received = NULL; + comm = mbox->get_async(&received); + comm->wait(); + if (strcmp(MSG_task_get_name(task), "finalize") == 0) { + MSG_task_destroy(task); + break; + } + + XBT_INFO("Processing \"%s\"", MSG_task_get_name(task)); + MSG_task_execute(task); + XBT_INFO("\"%s\" done", MSG_task_get_name(task)); + MSG_task_destroy(task); + } + XBT_INFO("I'm done. See you!"); +} +void operator()() +{ + simgrid::s4u::Mailbox::byName("finalize")->put(nullptr, 1); + XBT_INFO("I'm done. See you!"); +} +}; + +int main(int argc, char *argv[]) +{ + MSG_init(&argc, argv); + xbt_assert(argc > 2, "Usage: %s platform_file deployment_file\n" + "\tExample: %s msg_platform.xml msg_deployment.xml\n", argv[0], argv[0]); + + MSG_create_environment(argv[1]); + MSG_function_register("sender", sender); + MSG_function_register("receiver", receiver); + MSG_launch_application(argv[2]); + + msg_error_t res = MSG_main(); + + XBT_INFO("Simulation time %g", MSG_get_clock()); + + return res != MSG_OK; +} diff --git a/examples/s4u/async-waitall/s4u_async-waitall.tesh b/examples/s4u/async-waitall/s4u_async-waitall.tesh new file mode 100644 index 0000000000..e6d3b38336 --- /dev/null +++ b/examples/s4u/async-waitall/s4u_async-waitall.tesh @@ -0,0 +1,26 @@ +#! ./tesh +p Test1 MSG_comm_waitall() for sender + +! output sort 19 +$ $SG_TEST_EXENV ${bindir:=.}/async-waitall ${srcdir:=.}/small_platform_fatpipe.xml ${srcdir:=.}/../msg/async-waitall/async-waitall_d.xml "--log=root.fmt:[%10.6r]%e(%i:%P@%h)%e%m%n" +> [ 0.000000] (1:sender@Tremblay) Send to receiver-0 Task_0 +> [ 0.000000] (1:sender@Tremblay) Send to receiver-0 Task_1 +> [ 0.000000] (1:sender@Tremblay) Send to receiver-0 Task_2 +> [ 0.000000] (1:sender@Tremblay) Send to receiver-0 finalize +> [ 10.000000] (2:receiver@Ruby) Wait to receive a task +> [ 10.004022] (2:receiver@Ruby) Received "Task_0" +> [ 10.004022] (2:receiver@Ruby) Processing "Task_0" +> [ 10.513732] (2:receiver@Ruby) "Task_0" done +> [ 10.513732] (2:receiver@Ruby) Wait to receive a task +> [ 10.517753] (2:receiver@Ruby) Received "Task_1" +> [ 10.517753] (2:receiver@Ruby) Processing "Task_1" +> [ 11.027463] (2:receiver@Ruby) "Task_1" done +> [ 11.027463] (2:receiver@Ruby) Wait to receive a task +> [ 11.031485] (2:receiver@Ruby) Received "Task_2" +> [ 11.031485] (2:receiver@Ruby) Processing "Task_2" +> [ 11.541195] (2:receiver@Ruby) "Task_2" done +> [ 11.541195] (2:receiver@Ruby) Wait to receive a task +> [ 11.543146] (0:maestro@) Simulation time 11.5431 +> [ 11.543146] (1:sender@Tremblay) Goodbye now! +> [ 11.543146] (2:receiver@Ruby) Received "finalize" +> [ 11.543146] (2:receiver@Ruby) I'm done. See you! diff --git a/examples/s4u/async-waitall/s4u_async-waitall_d.xml b/examples/s4u/async-waitall/s4u_async-waitall_d.xml new file mode 100644 index 0000000000..6f122c2988 --- /dev/null +++ b/examples/s4u/async-waitall/s4u_async-waitall_d.xml @@ -0,0 +1,15 @@ + + + + + + + + + + + + + + +