src/smpi/smpi_f2c.hpp

   1 /* Handle Fortan - C conversion for MPI Types*/
   2
   3 /* Copyright (c) 2010, 2013-2017. 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 "xbt/dict.h"
  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 xbt_dict_t f2c_lookup_;
  24     static int f2c_id_;
  25   protected:
  26     static xbt_dict_t f2c_lookup();
  27     static void set_f2c_lookup(xbt_dict_t dict);
  28     static int f2c_id();
  29     static void f2c_id_increment();
  30   public:
  31     static char* get_key(char* key, int id);
  32     static char* get_key_id(char* key, int id);
  33     static void delete_lookup();
  34     static xbt_dict_t lookup();
  35
  36     //Override these to handle specific values.
  37     int add_f();
  38     static void free_f(int id);
  39     int c2f();
  40
  41     //This method should be overriden in all subclasses
  42     //to avoid casting the result when calling it.
  43     //For the default one, the MPI_*_NULL returned is assumed to be NULL.
  44     static F2C* f2c(int id);
  45 };
  46
  47 }
  48 }
  49
  50 #endif