teshsuite/s4u/pid/pid.cpp

   1 /* Copyright (c) 2009-2017. The SimGrid Team. All rights reserved.          */
   2
   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. */
   5
   6 #include "simgrid/s4u.hpp"
   7
   8 XBT_LOG_NEW_DEFAULT_CATEGORY(s4u_test, "Messages specific for this msg example");
   9
  10 static int my_onexit(smx_process_exit_status_t /*status*/, int* pid)
  11 {
  12   XBT_INFO("Process \"%d\" killed.", *pid);
  13   return 0;
  14 }
  15
  16 static void sendpid()
  17 {
  18   simgrid::s4u::MailboxPtr mailbox = simgrid::s4u::Mailbox::byName("mailbox");
  19   int pid                          = simgrid::s4u::this_actor::getPid();
  20   double comm_size                 = 100000;
  21   simgrid::s4u::this_actor::onExit((int_f_pvoid_pvoid_t)my_onexit, &pid);
  22
  23   XBT_INFO("Sending pid of \"%d\".", pid);
  24   mailbox->put(&pid, comm_size);
  25   XBT_INFO("Send of pid \"%d\" done.", pid);
  26
  27   simgrid::s4u::this_actor::suspend();
  28 }
  29
  30 static void killall()
  31 {
  32   simgrid::s4u::MailboxPtr mailbox = simgrid::s4u::Mailbox::byName("mailbox");
  33   for (int i = 0; i < 3; i++) {
  34     int* pid = static_cast<int*>(mailbox->get());
  35     XBT_INFO("Killing process \"%d\".", *pid);
  36     simgrid::s4u::Actor::byPid(*pid)->kill();
  37   }
  38 }
  39
  40 int main(int argc, char* argv[])
  41 {
  42   simgrid::s4u::Engine* e = new simgrid::s4u::Engine(&argc, argv);
  43   e->loadPlatform(argv[1]);
  44
  45   if (argc > 2)
  46     simgrid::s4u::Actor::killAll(atoi(argv[2]));
  47   else
  48     simgrid::s4u::Actor::killAll();
  49
  50   simgrid::s4u::Actor::createActor("sendpid", simgrid::s4u::Host::by_name("Tremblay"), sendpid);
  51   simgrid::s4u::Actor::createActor("sendpid", simgrid::s4u::Host::by_name("Tremblay"), sendpid);
  52   simgrid::s4u::Actor::createActor("sendpid", simgrid::s4u::Host::by_name("Tremblay"), sendpid);
  53   simgrid::s4u::Actor::createActor("killall", simgrid::s4u::Host::by_name("Tremblay"), killall);
  54
  55   e->run();
  56
  57   delete e;
  58   return 0;
  59 }