1 /* Copyright (c) 2009-2022. The SimGrid Team. All rights reserved. */
3 /* This program is free software; you can redistribute it and/or modify it
4 * under the terms of the license (GNU LGPL) which comes with this package. */
6 #include "simgrid/s4u.hpp"
8 XBT_LOG_NEW_DEFAULT_CATEGORY(s4u_test, "Messages specific for this example");
12 simgrid::s4u::Mailbox* mailbox = simgrid::s4u::Mailbox::by_name("mailbox");
13 aid_t pid = simgrid::s4u::this_actor::get_pid();
14 long comm_size = 100000;
15 simgrid::s4u::this_actor::on_exit([pid](bool /*failed*/) { XBT_INFO("Process \"%ld\" killed.", pid); });
17 XBT_INFO("Sending pid of \"%ld\".", pid);
18 mailbox->put(&pid, comm_size);
19 XBT_INFO("Send of pid \"%ld\" done.", pid);
21 simgrid::s4u::this_actor::suspend();
26 simgrid::s4u::Mailbox* mailbox = simgrid::s4u::Mailbox::by_name("mailbox");
27 for (int i = 0; i < 3; i++) {
28 const auto* pid = mailbox->get<aid_t>();
29 XBT_INFO("Killing process \"%ld\".", *pid);
30 simgrid::s4u::Actor::by_pid(*pid)->kill();
34 int main(int argc, char* argv[])
36 simgrid::s4u::Engine e(&argc, argv);
37 e.load_platform(argv[1]);
39 simgrid::s4u::Actor::kill_all();
41 simgrid::s4u::Actor::create("sendpid", e.host_by_name("Tremblay"), sendpid);
42 simgrid::s4u::Actor::create("sendpid", e.host_by_name("Tremblay"), sendpid);
43 simgrid::s4u::Actor::create("sendpid", e.host_by_name("Tremblay"), sendpid);
44 simgrid::s4u::Actor::create("killall", e.host_by_name("Tremblay"), killall);