src/smpi/include/smpi_f2c.hpp

   1 /* Handle Fortan - C conversion for MPI Types*/
   2
   3 /* Copyright (c) 2010-2019. The SimGrid Team.
   4  * All rights reserved.                                                     */
   5
   6 /* This program is free software; you can redistribute it and/or modify it
   7  * under the terms of the license (GNU LGPL) which comes with this package. */
   8
   9 #ifndef SMPI_F2C_HPP_INCLUDED
  10 #define SMPI_F2C_HPP_INCLUDED
  11
  12 #include <unordered_map>
  13
  14 #define KEY_SIZE (sizeof(int) * 2 + 1)
  15
  16 namespace simgrid{
  17 namespace smpi{
  18
  19 class F2C {
  20   private:
  21     // We use a single lookup table for every type.
  22     // Beware of collisions if id in mpif.h is not unique
  23     static std::unordered_map<std::string, F2C*>* f2c_lookup_;
  24     static int f2c_id_;
  25   protected:
  26     static std::unordered_map<std::string, F2C*>* f2c_lookup();
  27     static void set_f2c_lookup(std::unordered_map<std::string, F2C*>* map);
  28     static int f2c_id();
  29     static void f2c_id_increment();
  30     int my_f2c_id_;
  31   public:
  32     char* get_my_key(char* key);
  33     static char* get_key(char* key, int id);
  34     static void delete_lookup();
  35     static std::unordered_map<std::string, F2C*>* lookup();
  36     F2C() : my_f2c_id_(-1){}
  37     virtual ~F2C() = default;
  38
  39     //Override these to handle specific values.
  40     virtual int add_f();
  41     static void free_f(int id);
  42     virtual int c2f();
  43     static void print_f2c_lookup();
  44     // This method should be overridden in all subclasses to avoid casting the result when calling it.
  45     // For the default one, the MPI_*_NULL returned is assumed to be NULL.
  46     static F2C* f2c(int id);
  47 };
  48
  49 }
  50 }
  51
  52 #endif