src/smpi/mpi/smpi_info.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_info.hpp"
   7 #include "smpi_comm.hpp"
   8 #include "simgrid/Exception.hpp"
   9
  10 namespace simgrid {
  11 namespace smpi {
  12
  13 Info::Info(const Info* orig)
  14 {
  15   if (orig != nullptr)
  16     map_ = orig->map_;
  17   this->add_f();
  18 }
  19
  20 void Info::ref()
  21 {
  22   refcount_++;
  23 }
  24
  25 void Info::unref(Info* info){
  26   info->refcount_--;
  27   if(info->refcount_==0){
  28     F2C::free_f(info->f2c_id());
  29     delete info;
  30   }
  31 }
  32
  33 int Info::get(const char* key, int valuelen, char* value, int* flag) const
  34 {
  35   *flag=false;
  36   auto val = map_.find(key);
  37   if (val != map_.end()) {
  38     std::string tmpvalue = val->second;
  39
  40     memset(value, 0, valuelen);
  41     memcpy(value, tmpvalue.c_str(),
  42            (tmpvalue.length() + 1 < static_cast<size_t>(valuelen)) ? tmpvalue.length() + 1 : valuelen);
  43     *flag=true;
  44   }
  45   return MPI_SUCCESS;
  46 }
  47
  48 int Info::remove(const char *key){
  49   if (map_.erase(key) == 0)
  50     return MPI_ERR_INFO_NOKEY;
  51   else
  52     return MPI_SUCCESS;
  53 }
  54
  55 int Info::get_nkeys(int* nkeys) const
  56 {
  57   *nkeys = map_.size();
  58   return MPI_SUCCESS;
  59 }
  60
  61 int Info::get_nthkey(int n, char* key) const
  62 {
  63   int num=0;
  64   for (auto const& elm : map_) {
  65     if (num == n) {
  66       strncpy(key, elm.first.c_str(), elm.first.length() + 1);
  67       return MPI_SUCCESS;
  68     }
  69     num++;
  70   }
  71   return MPI_ERR_ARG;
  72 }
  73
  74 int Info::get_valuelen(const char* key, int* valuelen, int* flag) const
  75 {
  76   *flag=false;
  77   auto val = map_.find(key);
  78   if (val != map_.end()) {
  79     *valuelen = val->second.length();
  80     *flag=true;
  81   }
  82   return MPI_SUCCESS;
  83 }
  84
  85 Info* Info::f2c(int id){
  86   return static_cast<Info*>(F2C::f2c(id));
  87 }
  88
  89 }
  90 }