src/smpi/mpi/smpi_f2c.cpp

   1 /* Copyright (c) 2007-2021. 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 "smpi_f2c.hpp"
   7 #include "private.hpp"
   8 #include "src/smpi/include/smpi_actor.hpp"
   9
  10 int mpi_in_place_;
  11 int mpi_bottom_;
  12 int mpi_status_ignore_;
  13 int mpi_statuses_ignore_;
  14
  15 namespace simgrid{
  16 namespace smpi{
  17
  18 std::unordered_map<unsigned int, F2C*>* F2C::f2c_lookup_ = nullptr;
  19 int F2C::f2c_id_ = 0;
  20 std::unordered_map<unsigned int, F2C*>::size_type F2C::num_default_handles_ = 0;
  21
  22 // Keep it non trivially-constructible, or it will break MC+smpi on FreeBSD with Clang (don't ask why)
  23 F2C::F2C() = default;
  24
  25 int F2C::add_f()
  26 {
  27   if (f2c_lookup_ == nullptr)
  28     f2c_lookup_ = new std::unordered_map<unsigned int, F2C*>();
  29
  30   my_f2c_id_                 = f2c_id();
  31   (*f2c_lookup_)[my_f2c_id_] = this;
  32   f2c_id_increment();
  33   return my_f2c_id_;
  34 }
  35
  36 int F2C::c2f()
  37 {
  38   if (f2c_lookup_ == nullptr) {
  39     f2c_lookup_ = new std::unordered_map<unsigned int, F2C*>();
  40   }
  41
  42   if(my_f2c_id_==-1)
  43     /* this function wasn't found, add it */
  44     return this->add_f();
  45   else
  46     return my_f2c_id_;
  47 }
  48
  49 F2C* F2C::f2c(int id)
  50 {
  51   if (f2c_lookup_ == nullptr)
  52     f2c_lookup_ = new std::unordered_map<unsigned int, F2C*>();
  53
  54   if(id >= 0){
  55     auto comm = f2c_lookup_->find(id);
  56     return comm == f2c_lookup_->end() ? nullptr : comm->second;
  57   }else
  58     return nullptr;
  59 }
  60
  61 }
  62 }