src/s4u/s4u_actor.cpp

   1 /* Copyright (c) 2006-2014. 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 "xbt/log.h"
   8 #include "msg/msg_private.h"
   9 #include "msg/msg_mailbox.h"
  10
  11 #include "simgrid/s4u/actor.hpp"
  12 #include "simgrid/s4u/comm.hpp"
  13 #include "simgrid/s4u/host.hpp"
  14 #include "simgrid/s4u/mailbox.hpp"
  15
  16 XBT_LOG_NEW_DEFAULT_CATEGORY(s4u_actor,"S4U actors");
  17
  18 /* C main function of a actor, running this->main */
  19 static int s4u_actor_runner(int argc, char **argv) {
  20
  21         smx_process_t smx_proc = SIMIX_process_self();
  22         simgrid::s4u::Actor *actor = (simgrid::s4u::Actor*) SIMIX_process_self_get_data(smx_proc);
  23         int res = actor->main(argc,argv);
  24         return res;
  25 }
  26
  27
  28
  29 using namespace simgrid;
  30
  31 s4u::Actor::Actor(const char *name, s4u::Host *host, int argc, char **argv)
  32     : s4u::Actor::Actor(name,host, argc,argv, -1) {
  33 }
  34 s4u::Actor::Actor(const char *name, s4u::Host *host, int argc, char **argv, double killTime) {
  35         p_smx_process = simcall_process_create(name, s4u_actor_runner, this, host->getName(), killTime, argc, argv, NULL/*properties*/,0);
  36
  37         xbt_assert(p_smx_process,"Cannot create the actor");
  38 //      TRACE_msg_process_create(procname, simcall_process_get_PID(p_smx_process), host->getInferior());
  39 //      simcall_process_on_exit(p_smx_process,(int_f_pvoid_pvoid_t)TRACE_msg_process_kill,p_smx_process);
  40 }
  41
  42 s4u::Actor *s4u::Actor::current() {
  43         smx_process_t smx_proc = SIMIX_process_self();
  44         return (simgrid::s4u::Actor*) SIMIX_process_self_get_data(smx_proc);
  45 }
  46 s4u::Actor *s4u::Actor::byPid(int pid) {
  47         return (simgrid::s4u::Actor*) SIMIX_process_self_get_data(SIMIX_process_from_PID(pid));
  48 }
  49
  50 void s4u::Actor::setAutoRestart(bool autorestart) {
  51         simcall_process_auto_restart_set(p_smx_process,autorestart);
  52 }
  53
  54 s4u::Host *s4u::Actor::getHost() {
  55         return s4u::Host::byName(sg_host_name(simcall_process_get_host(p_smx_process)));
  56 }
  57 const char* s4u::Actor::getName() {
  58         return simcall_process_get_name(p_smx_process);
  59 }
  60 int s4u::Actor::getPid(){
  61         return simcall_process_get_PID(p_smx_process);
  62 }
  63
  64 void s4u::Actor::setKillTime(double time) {
  65         simcall_process_set_kill_time(p_smx_process,time);
  66 }
  67 double s4u::Actor::getKillTime() {
  68         return simcall_process_get_kill_time(p_smx_process);
  69 }
  70 void s4u::Actor::killAll() {
  71         simcall_process_killall(1);
  72 }
  73 void s4u::Actor::kill() {
  74         simcall_process_kill(p_smx_process);
  75 }
  76
  77 void s4u::Actor::sleep(double duration) {
  78         simcall_process_sleep(duration);
  79 }
  80
  81 void s4u::Actor::execute(double flops) {
  82         simcall_process_execute(NULL,flops,1.0/*priority*/,0./*bound*/, 0L/*affinity*/);
  83 }
  84
  85 char *s4u::Actor::recvstr(Mailbox &chan) {
  86         void *res=NULL;
  87
  88         Comm c = Comm::recv_init(this, chan);
  89         c.setDstData(&res,sizeof(res));
  90         c.wait();
  91
  92     return (char*)res;
  93 }
  94 void s4u::Actor::sendstr(Mailbox &chan, const char*msg) {
  95         Comm c = Comm::send_init(this,chan);
  96         c.setRemains(strlen(msg));
  97         c.setSrcData(xbt_strdup(msg),sizeof(char*));
  98         c.wait();
  99 }
 100
 101 s4u::Comm &s4u::Actor::send_init(Mailbox &chan) {
 102         return s4u::Comm::send_init(this, chan);
 103 }