teshsuite/s4u/pid/pid.cpp

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