artdaq  v3_03_02
RoutingMasterCore.cc
1 #include <sys/un.h>
2 #include <sys/time.h>
3 #include <sys/epoll.h>
4 #include <arpa/inet.h>
5 #include <netdb.h>
6 #include <pthread.h>
7 #include <sched.h>
8 #include <algorithm>
9 
10 #include "canvas/Utilities/Exception.h"
11 #include "cetlib_except/exception.h"
12 
13 #define TRACE_NAME (app_name + "_RoutingMasterCore").c_str() // include these 2 first -
14 #include "artdaq/DAQdata/Globals.hh" // to get tracemf.h before trace.h
15 #include "artdaq-core/Data/Fragment.hh"
16 #include "artdaq-core/Utilities/ExceptionHandler.hh"
17 
18 #include "artdaq/Application/RoutingMasterCore.hh"
19 #include "artdaq/Application/Routing/makeRoutingMasterPolicy.hh"
22 
23 const std::string artdaq::RoutingMasterCore::
24 TABLE_UPDATES_STAT_KEY("RoutingMasterCoreTableUpdates");
25 const std::string artdaq::RoutingMasterCore::
26 TOKENS_RECEIVED_STAT_KEY("RoutingMasterCoreTokensReceived");
27 
29  : received_token_counter_()
30  , shutdown_requested_(false)
31  , stop_requested_(true)
32  , pause_requested_(false)
33  , token_socket_(-1)
34  , table_socket_(-1)
35  , ack_socket_(-1)
36 {
37  TLOG(TLVL_DEBUG) << "Constructor" ;
40 }
41 
43 {
44  TLOG(TLVL_DEBUG) << "Destructor" ;
45  if (ev_token_receive_thread_.joinable()) ev_token_receive_thread_.join();
46 }
47 
48 bool artdaq::RoutingMasterCore::initialize(fhicl::ParameterSet const& pset, uint64_t, uint64_t)
49 {
50  TLOG(TLVL_DEBUG) << "initialize method called with "
51  << "ParameterSet = \"" << pset.to_string()
52  << "\"." ;
53 
54  // pull out the relevant parts of the ParameterSet
55  fhicl::ParameterSet daq_pset;
56  try
57  {
58  daq_pset = pset.get<fhicl::ParameterSet>("daq");
59  }
60  catch (...)
61  {
62  TLOG(TLVL_ERROR)
63  << "Unable to find the DAQ parameters in the initialization "
64  << "ParameterSet: \"" + pset.to_string() + "\"." ;
65  return false;
66  }
67 
68  if (daq_pset.has_key("rank"))
69  {
70  if (my_rank >= 0 && daq_pset.get<int>("rank") != my_rank) {
71  TLOG(TLVL_WARNING) << "Routing Master rank specified at startup is different than rank specified at configure! Using rank received at configure!";
72  }
73  my_rank = daq_pset.get<int>("rank");
74  }
75  if (my_rank == -1)
76  {
77  TLOG(TLVL_ERROR) << "Routing Master rank not specified at startup or in configuration! Aborting";
78  exit(1);
79  }
80 
81  try
82  {
83  policy_pset_ = daq_pset.get<fhicl::ParameterSet>("policy");
84  }
85  catch (...)
86  {
87  TLOG(TLVL_ERROR)
88  << "Unable to find the policy parameters in the DAQ initialization ParameterSet: \"" + daq_pset.to_string() + "\"." ;
89  return false;
90  }
91 
92  // pull out the Metric part of the ParameterSet
93  fhicl::ParameterSet metric_pset;
94  try
95  {
96  metric_pset = daq_pset.get<fhicl::ParameterSet>("metrics");
97  }
98  catch (...) {} // OK if there's no metrics table defined in the FHiCL
99 
100  if (metric_pset.is_empty())
101  {
102  TLOG(TLVL_INFO) << "No metric plugins appear to be defined" ;
103  }
104  try
105  {
106  metricMan->initialize(metric_pset, app_name);
107  }
108  catch (...)
109  {
110  ExceptionHandler(ExceptionHandlerRethrow::no,
111  "Error loading metrics in RoutingMasterCore::initialize()");
112  }
113 
114  // create the requested CommandableFragmentGenerator
115  auto policy_plugin_spec = policy_pset_.get<std::string>("policy", "");
116  if (policy_plugin_spec.length() == 0)
117  {
118  TLOG(TLVL_ERROR)
119  << "No fragment generator (parameter name = \"policy\") was "
120  << "specified in the policy ParameterSet. The "
121  << "DAQ initialization PSet was \"" << daq_pset.to_string() << "\"." ;
122  return false;
123  }
124  try
125  {
126  policy_ = artdaq::makeRoutingMasterPolicy(policy_plugin_spec, policy_pset_);
127  }
128  catch (...)
129  {
130  std::stringstream exception_string;
131  exception_string << "Exception thrown during initialization of policy of type \""
132  << policy_plugin_spec << "\"";
133 
134  ExceptionHandler(ExceptionHandlerRethrow::no, exception_string.str());
135 
136  TLOG(TLVL_DEBUG) << "FHiCL parameter set used to initialize the policy which threw an exception: " << policy_pset_.to_string() ;
137 
138  return false;
139  }
140 
141  rt_priority_ = daq_pset.get<int>("rt_priority", 0);
142  sender_ranks_ = daq_pset.get<std::vector<int>>("sender_ranks");
143  num_receivers_ = policy_->GetReceiverCount();
144 
145  receive_ack_events_ = std::vector<epoll_event>(sender_ranks_.size());
146  receive_token_events_ = std::vector<epoll_event>(num_receivers_ + 1);
147 
148  auto mode = daq_pset.get<bool>("senders_send_by_send_count", false);
150  max_table_update_interval_ms_ = daq_pset.get<size_t>("table_update_interval_ms", 1000);
151  current_table_interval_ms_ = max_table_update_interval_ms_;
152  max_ack_cycle_count_ = daq_pset.get<size_t>("table_ack_retry_count", 5);
153  receive_token_port_ = daq_pset.get<int>("routing_token_port", 35555);
154  send_tables_port_ = daq_pset.get<int>("table_update_port", 35556);
155  receive_acks_port_ = daq_pset.get<int>("table_acknowledge_port", 35557);
156  send_tables_address_ = daq_pset.get<std::string>("table_update_address", "227.128.12.28");
157  receive_address_ = daq_pset.get<std::string>("routing_master_hostname", "localhost");
158 
159  // fetch the monitoring parameters and create the MonitoredQuantity instances
160  statsHelper_.createCollectors(daq_pset, 100, 30.0, 60.0, TABLE_UPDATES_STAT_KEY);
161 
162  shutdown_requested_.store(false);
163  start_recieve_token_thread_();
164  return true;
165 }
166 
167 bool artdaq::RoutingMasterCore::start(art::RunID id, uint64_t, uint64_t)
168 {
169  run_id_ = id;
170  stop_requested_.store(false);
171  pause_requested_.store(false);
172 
173  statsHelper_.resetStatistics();
174 
175  metricMan->do_start();
176  table_update_count_ = 0;
177  received_token_count_ = 0;
178 
179  TLOG(TLVL_INFO) << "Started run " << run_id_.run() ;
180  return true;
181 }
182 
183 bool artdaq::RoutingMasterCore::stop(uint64_t, uint64_t)
184 {
185  TLOG(TLVL_INFO) << "Stopping run " << run_id_.run()
186  << " after " << table_update_count_ << " table updates."
187  << " and " << received_token_count_ << " received tokens." ;
188  stop_requested_.store(true);
189  run_id_ = art::RunID::flushRun();
190  return true;
191 }
192 
193 bool artdaq::RoutingMasterCore::pause(uint64_t, uint64_t)
194 {
195  TLOG(TLVL_INFO) << "Pausing run " << run_id_.run()
196  << " after " << table_update_count_ << " table updates."
197  << " and " << received_token_count_ << " received tokens." ;
198  pause_requested_.store(true);
199  return true;
200 }
201 
202 bool artdaq::RoutingMasterCore::resume(uint64_t, uint64_t)
203 {
204  TLOG(TLVL_DEBUG) << "Resuming run " << run_id_.run();
205  pause_requested_.store(false);
206  metricMan->do_start();
207  return true;
208 }
209 
211 {
212  shutdown_requested_.store(true);
213  if (ev_token_receive_thread_.joinable()) ev_token_receive_thread_.join();
214  policy_.reset(nullptr);
215  metricMan->shutdown();
216  return true;
217 }
218 
219 bool artdaq::RoutingMasterCore::soft_initialize(fhicl::ParameterSet const& pset, uint64_t e, uint64_t f)
220 {
221  TLOG(TLVL_INFO) << "soft_initialize method called with "
222  << "ParameterSet = \"" << pset.to_string()
223  << "\"." ;
224  return initialize(pset, e, f);
225 }
226 
227 bool artdaq::RoutingMasterCore::reinitialize(fhicl::ParameterSet const& pset, uint64_t e, uint64_t f)
228 {
229  TLOG(TLVL_INFO) << "reinitialize method called with "
230  << "ParameterSet = \"" << pset.to_string()
231  << "\"." ;
232  return initialize(pset, e, f);
233 }
234 
236 {
237  if (rt_priority_ > 0)
238  {
239 #pragma GCC diagnostic push
240 #pragma GCC diagnostic ignored "-Wmissing-field-initializers"
241  sched_param s_param = {};
242  s_param.sched_priority = rt_priority_;
243  if (pthread_setschedparam(pthread_self(), SCHED_RR, &s_param))
244  TLOG(TLVL_WARNING) << "setting realtime priority failed" ;
245 #pragma GCC diagnostic pop
246  }
247 
248  // try-catch block here?
249 
250  // how to turn RT PRI off?
251  if (rt_priority_ > 0)
252  {
253 #pragma GCC diagnostic push
254 #pragma GCC diagnostic ignored "-Wmissing-field-initializers"
255  sched_param s_param = {};
256  s_param.sched_priority = rt_priority_;
257  int status = pthread_setschedparam(pthread_self(), SCHED_RR, &s_param);
258  if (status != 0)
259  {
260  TLOG(TLVL_ERROR)
261  << "Failed to set realtime priority to " << rt_priority_
262  << ", return code = " << status ;
263  }
264 #pragma GCC diagnostic pop
265  }
266 
267  //MPI_Barrier(local_group_comm_);
268 
269  TLOG(TLVL_DEBUG) << "Sending initial table." ;
270  auto startTime = artdaq::MonitoredQuantity::getCurrentTime();
271  auto nextSendTime = startTime;
272  double delta_time;
273  while (!stop_requested_ && !pause_requested_)
274  {
275  startTime = artdaq::MonitoredQuantity::getCurrentTime();
276 
277  if (startTime >= nextSendTime)
278  {
279  auto table = policy_->GetCurrentTable();
280  if (table.size() > 0)
281  {
282  send_event_table(table);
283  ++table_update_count_;
284  delta_time = artdaq::MonitoredQuantity::getCurrentTime() - startTime;
285  statsHelper_.addSample(TABLE_UPDATES_STAT_KEY, delta_time);
286  TLOG(16) << "process_fragments TABLE_UPDATES_STAT_KEY=" << delta_time ;
287  }
288  else
289  {
290  TLOG(TLVL_DEBUG) << "No tokens received in this update interval (" << current_table_interval_ms_ << " ms)! This most likely means that the receivers are not keeping up!" ;
291  }
292  auto max_tokens = policy_->GetMaxNumberOfTokens();
293  if (max_tokens > 0)
294  {
295  auto frac = table.size() / static_cast<double>(max_tokens);
296  if (frac > 0.75) current_table_interval_ms_ = 9 * current_table_interval_ms_ / 10;
297  if (frac < 0.5) current_table_interval_ms_ = 11 * current_table_interval_ms_ / 10;
298  if (current_table_interval_ms_ > max_table_update_interval_ms_) current_table_interval_ms_ = max_table_update_interval_ms_;
299  if (current_table_interval_ms_ < 1) current_table_interval_ms_ = 1;
300  }
301  nextSendTime = startTime + current_table_interval_ms_ / 1000.0;
302  TLOG(TLVL_DEBUG) << "current_table_interval_ms is now " << current_table_interval_ms_ ;
303  }
304  else
305  {
306  usleep(current_table_interval_ms_ * 10); // 1/100 of the table update interval
307  }
308  }
309 
310  policy_->Reset();
311  metricMan->do_stop();
312 }
313 
315 {
316  // Reconnect table socket, if necessary
317  if (table_socket_ == -1)
318  {
319  table_socket_ = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);
320  if (table_socket_ < 0)
321  {
322  TLOG(TLVL_ERROR) << "I failed to create the socket for sending Data Requests! Errno: " << errno ;
323  exit(1);
324  }
325  auto sts = ResolveHost(send_tables_address_.c_str(), send_tables_port_, send_tables_addr_);
326  if (sts == -1)
327  {
328  TLOG(TLVL_ERROR) << "Unable to resolve table_update_address" ;
329  exit(1);
330  }
331 
332  auto yes = 1;
333  if (receive_address_ != "localhost")
334  {
335  TLOG(TLVL_DEBUG) << "Making sure that multicast sending uses the correct interface for hostname " << receive_address_ ;
336  struct in_addr addr;
337  sts = ResolveHost(receive_address_.c_str(), addr);
338  if (sts == -1)
339  {
340  throw art::Exception(art::errors::Configuration) << "RoutingMasterCore: Unable to resolve routing_master_address" << std::endl;;
341  }
342 
343  if (setsockopt(table_socket_, SOL_SOCKET, SO_REUSEADDR, &yes, sizeof(yes)) < 0)
344  {
345  throw art::Exception(art::errors::Configuration) <<
346  "RoutingMasterCore: Unable to enable port reuse on table update socket" << std::endl;
347  exit(1);
348  }
349 
350  if (setsockopt(table_socket_, IPPROTO_IP, IP_MULTICAST_LOOP, &yes, sizeof(yes)) < 0)
351  {
352  TLOG(TLVL_ERROR) << "Unable to enable multicast loopback on table socket" ;
353  exit(1);
354  }
355  if (setsockopt(table_socket_, IPPROTO_IP, IP_MULTICAST_IF, &addr, sizeof(addr)) == -1)
356  {
357  TLOG(TLVL_ERROR) << "Cannot set outgoing interface. Errno: " << errno ;
358  exit(1);
359  }
360  }
361  if (setsockopt(table_socket_, SOL_SOCKET, SO_BROADCAST, (void*)&yes, sizeof(int)) == -1)
362  {
363  TLOG(TLVL_ERROR) << "Cannot set request socket to broadcast. Errno: " << errno ;
364  exit(1);
365  }
366  }
367 
368  // Reconnect ack socket, if necessary
369  if (ack_socket_ == -1)
370  {
371  ack_socket_ = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);
372  if (ack_socket_ < 0)
373  {
374  throw art::Exception(art::errors::Configuration) << "RoutingMasterCore: Error creating socket for receiving table update acks!" << std::endl;
375  exit(1);
376  }
377 
378  struct sockaddr_in si_me_request;
379 
380  auto yes = 1;
381  if (setsockopt(ack_socket_, SOL_SOCKET, SO_REUSEADDR, &yes, sizeof(yes)) < 0)
382  {
383  throw art::Exception(art::errors::Configuration) <<
384  "RoutingMasterCore: Unable to enable port reuse on ack socket" << std::endl;
385  exit(1);
386  }
387  memset(&si_me_request, 0, sizeof(si_me_request));
388  si_me_request.sin_family = AF_INET;
389  si_me_request.sin_port = htons(receive_acks_port_);
390  si_me_request.sin_addr.s_addr = htonl(INADDR_ANY);
391  if (bind(ack_socket_, reinterpret_cast<struct sockaddr *>(&si_me_request), sizeof(si_me_request)) == -1)
392  {
393  throw art::Exception(art::errors::Configuration) <<
394  "RoutingMasterCore: Cannot bind request socket to port " << receive_acks_port_ << std::endl;
395  exit(1);
396  }
397  TLOG(TLVL_DEBUG) << "Listening for acks on 0.0.0.0 port " << receive_acks_port_ ;
398  }
399 
400  auto acks = std::unordered_map<int, bool>();
401  for (auto& r : sender_ranks_)
402  {
403  acks[r] = false;
404  }
405  auto counter = 0U;
406  auto start_time = std::chrono::steady_clock::now();
407  while (std::count_if(acks.begin(), acks.end(), [](std::pair<int, bool> p) {return !p.second; }) > 0 && !stop_requested_)
408  {
409  // Send table update
410  auto header = detail::RoutingPacketHeader(routing_mode_, packet.size());
411  auto packetSize = sizeof(detail::RoutingPacketEntry) * packet.size();
412 
413  assert(packetSize + sizeof(header) < MAX_ROUTING_TABLE_SIZE);
414  std::vector<uint8_t> buffer(packetSize + sizeof(header));
415  memcpy(&buffer[0], &header, sizeof(detail::RoutingPacketHeader));
416  memcpy(&buffer[sizeof(detail::RoutingPacketHeader)], &packet[0], packetSize);
417 
418  TLOG(TLVL_DEBUG) << "Sending table information for " << header.nEntries << " events to multicast group " << send_tables_address_ << ", port " << send_tables_port_ ;
419  TRACE(16,"headerData:0x%016lx%016lx packetData:0x%016lx%016lx"
420  ,((unsigned long*)&header)[0],((unsigned long*)&header)[1], ((unsigned long*)&packet[0])[0],((unsigned long*)&packet[0])[1] );
421  auto sts = sendto(table_socket_, &buffer[0], buffer.size(), 0, reinterpret_cast<struct sockaddr *>(&send_tables_addr_), sizeof(send_tables_addr_));
422  if (sts != static_cast<ssize_t>(buffer.size()))
423  {
424  TLOG(TLVL_ERROR) << "Error sending routing table. sts=" << sts;
425  }
426 
427  // Collect acks
428 
429  auto first = packet[0].sequence_id;
430  auto last = packet.rbegin()->sequence_id;
431  TLOG(TLVL_DEBUG) << "Sent " << sts << " bytes. Expecting acks to have first= " << first << ", and last= " << last ;
432 
433 
434  auto startTime = std::chrono::steady_clock::now();
435  while (std::count_if(acks.begin(), acks.end(), [](std::pair<int, bool> p) {return !p.second; }) > 0)
436  {
437  auto table_ack_wait_time_ms = current_table_interval_ms_ / max_ack_cycle_count_;
438  if (TimeUtils::GetElapsedTimeMilliseconds(startTime) > table_ack_wait_time_ms)
439  {
440  if (counter > max_ack_cycle_count_ && table_update_count_ > 0)
441  {
442  TLOG(TLVL_ERROR) << "Did not receive acks from all senders after resending table " << counter
443  << " times during the table_update_interval. Check the status of the senders!" ;
444  break;
445  }
446  TLOG(TLVL_WARNING) << "Did not receive acks from all senders within the timeout (" << table_ack_wait_time_ms << " ms). Resending table update" ;
447  break;
448  }
449 
450  TLOG(20) << "send_event_table: Polling Request socket for new requests" ;
451  auto ready = true;
452  while (ready)
453  {
455  if (recvfrom(ack_socket_, &buffer, sizeof(detail::RoutingAckPacket), MSG_DONTWAIT, NULL, NULL) < 0)
456  {
457  if (errno == EWOULDBLOCK || errno == EAGAIN)
458  {
459  TLOG(20) << "send_event_table: No more ack datagrams on ack socket." ;
460  ready = false;
461  }
462  else
463  {
464  TLOG(TLVL_ERROR) << "An unexpected error occurred during ack packet receive" ;
465  exit(2);
466  }
467  }
468  else
469  {
470  TLOG(TLVL_DEBUG) << "Ack packet from rank " << buffer.rank << " has first= " << buffer.first_sequence_id
471  << " and last= " << buffer.last_sequence_id ;
472  if (acks.count(buffer.rank) && buffer.first_sequence_id == first && buffer.last_sequence_id == last)
473  {
474  TLOG(TLVL_DEBUG) << "Received table update acknowledgement from sender with rank " << buffer.rank << "." ;
475  acks[buffer.rank] = true;
476  TLOG(TLVL_DEBUG) << "There are now " << std::count_if(acks.begin(), acks.end(), [](std::pair<int, bool> p) {return !p.second; })
477  << " acks outstanding" ;
478  }
479  else
480  {
481  if (!acks.count(buffer.rank))
482  {
483  TLOG(TLVL_ERROR) << "Received acknowledgement from invalid rank " << buffer.rank << "!"
484  << " Cross-talk between RoutingMasters means there's a configuration error!" ;
485  }
486  else
487  {
488  TLOG(TLVL_WARNING) << "Received acknowledgement from rank " << buffer.rank
489  << " that had incorrect sequence ID information. Discarding."
490  << " Expected first/last=" << first <<"/"<< last
491  << " recvd=" << buffer.first_sequence_id <<"/"<< buffer.last_sequence_id;
492  }
493  }
494  }
495  }
496  usleep(table_ack_wait_time_ms * 1000 / 10);
497  }
498  }
499  if (metricMan)
500  {
501  artdaq::TimeUtils::seconds delta = std::chrono::steady_clock::now() - start_time;
502  metricMan->sendMetric("Avg Table Acknowledge Time", delta.count(), "seconds", 3, MetricMode::Average);
503  }
504 }
505 
506 void artdaq::RoutingMasterCore::receive_tokens_()
507 {
508  while (!shutdown_requested_)
509  {
510  TLOG(TLVL_DEBUG) << "Receive Token loop start" ;
511  if (token_socket_ == -1)
512  {
513  TLOG(TLVL_DEBUG) << "Opening token listener socket" ;
514  token_socket_ = TCP_listen_fd(receive_token_port_, 3 * sizeof(detail::RoutingToken));
515  fcntl(token_socket_, F_SETFL, O_NONBLOCK); // set O_NONBLOCK
516 
517  if (token_epoll_fd_ != -1) close(token_epoll_fd_);
518  struct epoll_event ev;
519  token_epoll_fd_ = epoll_create1(0);
520  ev.events = EPOLLIN | EPOLLPRI;
521  ev.data.fd = token_socket_;
522  if (epoll_ctl(token_epoll_fd_, EPOLL_CTL_ADD, token_socket_, &ev) == -1)
523  {
524  TLOG(TLVL_ERROR) << "Could not register listen socket to epoll fd" ;
525  exit(3);
526  }
527  }
528  if (token_socket_ == -1 || token_epoll_fd_ == -1)
529  {
530  TLOG(TLVL_DEBUG) << "One of the listen sockets was not opened successfully." ;
531  return;
532  }
533 
534  auto nfds = epoll_wait(token_epoll_fd_, &receive_token_events_[0], receive_token_events_.size(), current_table_interval_ms_);
535  if (nfds == -1)
536  {
537  perror("epoll_wait");
538  exit(EXIT_FAILURE);
539  }
540 
541  while (stop_requested_ && !shutdown_requested_)
542  {
543  usleep(10000);
544  }
545 
546  TLOG(TLVL_DEBUG) << "Received " << nfds << " events" ;
547  for (auto n = 0; n < nfds; ++n)
548  {
549  if (receive_token_events_[n].data.fd == token_socket_)
550  {
551  TLOG(TLVL_DEBUG) << "Accepting new connection on token_socket" ;
552  sockaddr_in addr;
553  socklen_t arglen = sizeof(addr);
554  auto conn_sock = accept(token_socket_, (struct sockaddr *)&addr, &arglen);
555  fcntl(conn_sock, F_SETFL, O_NONBLOCK); // set O_NONBLOCK
556 
557  if (conn_sock == -1)
558  {
559  perror("accept");
560  exit(EXIT_FAILURE);
561  }
562 
563  receive_token_addrs_[conn_sock] = std::string(inet_ntoa(addr.sin_addr));
564  TLOG(TLVL_DEBUG) << "New fd is " << conn_sock << " for receiver at " << receive_token_addrs_[conn_sock];
565  struct epoll_event ev;
566  ev.events = EPOLLIN | EPOLLET;
567  ev.data.fd = conn_sock;
568  if (epoll_ctl(token_epoll_fd_, EPOLL_CTL_ADD, conn_sock, &ev) == -1)
569  {
570  perror("epoll_ctl: conn_sock");
571  exit(EXIT_FAILURE);
572  }
573  }
574  else
575  {
576  /*if (receive_token_events_[n].events & (EPOLLRDHUP | EPOLLERR | EPOLLHUP))
577  {
578  TLOG(TLVL_DEBUG) << "Closing connection on fd " << receive_token_events_[n].data.fd << " (" << receive_token_addrs_[receive_token_events_[n].data.fd] << ")";
579  receive_token_addrs_.erase(receive_token_events_[n].data.fd);
580  close(receive_token_events_[n].data.fd);
581  epoll_ctl(token_epoll_fd_, EPOLL_CTL_DEL, receive_token_events_[n].data.fd, NULL);
582  continue;
583  }*/
584 
585  auto startTime = artdaq::MonitoredQuantity::getCurrentTime();
586  bool reading = true;
587  int sts = 0;
588  while(reading)
589  {
590  detail::RoutingToken buff;
591  sts += read(receive_token_events_[n].data.fd, &buff, sizeof(detail::RoutingToken) - sts);
592  if (sts == 0)
593  {
594  TLOG(TLVL_INFO) << "Received 0-size token from " << receive_token_addrs_[receive_token_events_[n].data.fd];
595  reading = false;
596  }
597  else if(sts < 0 && errno == EAGAIN)
598  {
599  TLOG(TLVL_DEBUG) << "No more tokens from this rank. Continuing poll loop.";
600  reading = false;
601  }
602  else if(sts < 0)
603  {
604  TLOG(TLVL_ERROR) << "Error reading from token socket: sts=" << sts << ", errno=" << errno;
605  receive_token_addrs_.erase(receive_token_events_[n].data.fd);
606  close(receive_token_events_[n].data.fd);
607  epoll_ctl(token_epoll_fd_, EPOLL_CTL_DEL, receive_token_events_[n].data.fd, NULL);
608  reading = false;
609  }
610  else if (sts == sizeof(detail::RoutingToken) && buff.header != TOKEN_MAGIC)
611  {
612  TLOG(TLVL_ERROR) << "Received invalid token from " << receive_token_addrs_[receive_token_events_[n].data.fd] << " sts=" << sts;
613  reading = false;
614  }
615  else if(sts == sizeof(detail::RoutingToken))
616  {
617  sts = 0;
618  TLOG(TLVL_DEBUG) << "Received token from " << buff.rank << " indicating " << buff.new_slots_free << " slots are free. (run=" << buff.run_number << ")" ;
619  if (buff.run_number != run_id_.run())
620  {
621  TLOG(TLVL_DEBUG) << "Received token from a different run number! Current = " << run_id_.run() << ", token = " << buff.run_number << ", ignoring (n=" << buff.new_slots_free << ")";
622  }
623  else
624  {
625  received_token_count_ += buff.new_slots_free;
627  {
628  policy_->AddReceiverToken(buff.rank, buff.new_slots_free);
629  }
630  else if (routing_mode_ == detail::RoutingMasterMode::RouteBySendCount)
631  {
632  if (!received_token_counter_.count(buff.rank)) received_token_counter_[buff.rank] = 0;
633  received_token_counter_[buff.rank] += buff.new_slots_free;
634  TLOG(TLVL_DEBUG) << "RoutingMasterMode is RouteBySendCount. I have " << received_token_counter_[buff.rank] << " tokens for rank " << buff.rank << " and I need " << sender_ranks_.size() << "." ;
635  while (received_token_counter_[buff.rank] >= sender_ranks_.size())
636  {
637  TLOG(TLVL_DEBUG) << "RoutingMasterMode is RouteBySendCount. I have " << received_token_counter_[buff.rank] << " tokens for rank " << buff.rank << " and I need " << sender_ranks_.size()
638  << "... Sending token to policy" ;
639  policy_->AddReceiverToken(buff.rank, 1);
640  received_token_counter_[buff.rank] -= sender_ranks_.size();
641  }
642  }
643  }
644  }
645  }
646  auto delta_time = artdaq::MonitoredQuantity::getCurrentTime() - startTime;
647  statsHelper_.addSample(TOKENS_RECEIVED_STAT_KEY, delta_time);
648  bool readyToReport = statsHelper_.readyToReport(delta_time);
649  if (readyToReport)
650  {
651  std::string statString = buildStatisticsString_();
652  TLOG(TLVL_INFO) << statString;
653  sendMetrics_();
654  }
655  }
656 }
657  }
658 }
659 
660 void artdaq::RoutingMasterCore::start_recieve_token_thread_()
661 {
662  if (ev_token_receive_thread_.joinable()) ev_token_receive_thread_.join();
663  boost::thread::attributes attrs;
664  attrs.set_stack_size(4096 * 2000); // 8000 KB
665 
666  TLOG(TLVL_INFO) << "Starting Token Reception Thread" ;
667  try {
668  ev_token_receive_thread_ = boost::thread(attrs, boost::bind(&RoutingMasterCore::receive_tokens_, this));
669  }
670  catch(boost::exception const& e)
671  {
672  std::cerr << "Exception encountered starting Token Reception thread: " << boost::diagnostic_information(e) << ", errno=" << errno << std::endl;
673  exit(3);
674  }
675  TLOG(TLVL_INFO) << "Started Token Reception Thread";
676 }
677 
678 std::string artdaq::RoutingMasterCore::report(std::string const&) const
679 {
680  std::string resultString;
681 
682  // if we haven't been able to come up with any report so far, say so
683  auto tmpString = app_name + " run number = " + std::to_string(run_id_.run())
684  + ", table updates sent = " + std::to_string(table_update_count_)
685  + ", Receiver tokens received = " + std::to_string(received_token_count_);
686  return tmpString;
687 }
688 
689 std::string artdaq::RoutingMasterCore::buildStatisticsString_() const
690 {
691  std::ostringstream oss;
692  oss << app_name << " statistics:" << std::endl;
693 
694  auto mqPtr = artdaq::StatisticsCollection::getInstance().getMonitoredQuantity(TABLE_UPDATES_STAT_KEY);
695  if (mqPtr.get() != nullptr)
696  {
697  artdaq::MonitoredQuantityStats stats;
698  mqPtr->getStats(stats);
699  oss << " Table Update statistics: "
700  << stats.recentSampleCount << " table updates sent at "
701  << stats.recentSampleRate << " table updates/sec, , monitor window = "
702  << stats.recentDuration << " sec" << std::endl;
703  oss << " Average times per table update: ";
704  if (stats.recentSampleRate > 0.0)
705  {
706  oss << " elapsed time = "
707  << (1.0 / stats.recentSampleRate) << " sec";
708  }
709  oss << ", avg table acknowledgement wait time = "
710  << (mqPtr->getRecentValueSum() / sender_ranks_.size()) << " sec" << std::endl;
711  }
712 
713  mqPtr = artdaq::StatisticsCollection::getInstance().getMonitoredQuantity(TOKENS_RECEIVED_STAT_KEY);
714  if (mqPtr.get() != nullptr)
715  {
716  artdaq::MonitoredQuantityStats stats;
717  mqPtr->getStats(stats);
718  oss << " Received Token statistics: "
719  << stats.recentSampleCount << " tokens received at "
720  << stats.recentSampleRate << " tokens/sec, , monitor window = "
721  << stats.recentDuration << " sec" << std::endl;
722  oss << " Average times per token: ";
723  if (stats.recentSampleRate > 0.0)
724  {
725  oss << " elapsed time = "
726  << (1.0 / stats.recentSampleRate) << " sec";
727  }
728  oss << ", input token wait time = "
729  << mqPtr->getRecentValueSum() << " sec" << std::endl;
730  }
731 
732  return oss.str();
733 }
734 
735 void artdaq::RoutingMasterCore::sendMetrics_()
736 {
737  if (metricMan)
738  {
739  auto mqPtr = artdaq::StatisticsCollection::getInstance().getMonitoredQuantity(TABLE_UPDATES_STAT_KEY);
740  if (mqPtr.get() != nullptr)
741  {
742  artdaq::MonitoredQuantityStats stats;
743  mqPtr->getStats(stats);
744  metricMan->sendMetric("Table Update Count", static_cast<unsigned long>(stats.fullSampleCount), "updates", 1, MetricMode::LastPoint);
745  metricMan->sendMetric("Table Update Rate", stats.recentSampleRate, "updates/sec", 1, MetricMode::Average);
746  metricMan->sendMetric("Average Sender Acknowledgement Time", (mqPtr->getRecentValueSum() / sender_ranks_.size()), "seconds", 3, MetricMode::Average);
747  }
748 
749  mqPtr = artdaq::StatisticsCollection::getInstance().getMonitoredQuantity(TOKENS_RECEIVED_STAT_KEY);
750  if (mqPtr.get() != nullptr)
751  {
752  artdaq::MonitoredQuantityStats stats;
753  mqPtr->getStats(stats);
754  metricMan->sendMetric("Receiver Token Count", static_cast<unsigned long>(stats.fullSampleCount), "updates", 1, MetricMode::LastPoint);
755  metricMan->sendMetric("Receiver Token Rate", stats.recentSampleRate, "updates/sec", 1, MetricMode::Average);
756  metricMan->sendMetric("Total Receiver Token Wait Time", mqPtr->getRecentValueSum(), "seconds", 3, MetricMode::Average);
757  }
758  }
759 }
bool resume(uint64_t, uint64_t)
Resumes the RoutingMasterCore.
void addMonitoredQuantityName(std::string const &statKey)
Add a MonitoredQuantity name to the list.
int ResolveHost(char const *host_in, in_addr &addr)
Convert a string hostname to a in_addr suitable for socket communication.
Definition: TCPConnect.cc:33
bool soft_initialize(fhicl::ParameterSet const &pset, uint64_t timeout, uint64_t timestamp)
Soft-Initializes the RoutingMasterCore.
static const std::string TOKENS_RECEIVED_STAT_KEY
Key for the Tokens Received MonitoredQuantity.
A row of the Routing Table.
bool reinitialize(fhicl::ParameterSet const &pset, uint64_t timeout, uint64_t timestamp)
Reinitializes the RoutingMasterCore.
bool start(art::RunID id, uint64_t, uint64_t)
Start the RoutingMasterCore.
A RoutingAckPacket contains the rank of the table receiver, plus the first and last sequence IDs in t...
RoutingMasterCore()
RoutingMasterCore Constructor.
Events should be routed by sequence ID (BR -&gt; EB)
bool initialize(fhicl::ParameterSet const &pset, uint64_t, uint64_t)
Processes the initialize request.
The RoutingToken contains the magic bytes, the rank of the token sender, and the number of slots free...
int TCP_listen_fd(int port, int rcvbuf)
Create a TCP listening socket on the given port and INADDR_ANY, with the given receive buffer...
Fragment::sequence_id_t first_sequence_id
The first sequence ID in the received RoutingPacket.
bool pause(uint64_t, uint64_t)
Pauses the RoutingMasterCore.
The header of the Routing Table, containing the magic bytes and the number of entries.
Fragment::sequence_id_t last_sequence_id
The last sequence ID in the received RoutingPacket.
std::vector< RoutingPacketEntry > RoutingPacket
A RoutingPacket is simply a vector of RoutingPacketEntry objects. It is not suitable for network tran...
bool stop(uint64_t, uint64_t)
Stops the RoutingMasterCore.
int rank
The rank from which the RoutingAckPacket came.
std::unique_ptr< RoutingMasterPolicy > makeRoutingMasterPolicy(std::string const &policy_plugin_spec, fhicl::ParameterSet const &ps)
Load a RoutingMasterPolicy plugin.
std::string report(std::string const &) const
Send a report on the current status of the RoutingMasterCore.
static const std::string TABLE_UPDATES_STAT_KEY
Key for Table Update count MonnitoredQuantity.
bool shutdown(uint64_t)
Shuts Down the RoutingMasterCore.
void process_event_table()
Main loop of the RoutingMasterCore. Determines when to send the next table update, asks the RoutingMasterPolicy for the table to send, and sends it.
void send_event_table(detail::RoutingPacket table)
Sends a detail::RoutingPacket to the table receivers.
Events should be routed by send count (EB -&gt; Agg)