Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Stick with brutal C-style casts (and fix compilation errors).
[simgrid.git] / src / smpi / include / smpi_f2c.hpp
1 /* Handle Fortran - C conversion for MPI Types*/
2
3 /* Copyright (c) 2010-2020. 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 #include <string>
14
15 #define KEY_SIZE (sizeof(int) * 2 + 1)
16
17 namespace simgrid{
18 namespace smpi{
19
20 class F2C {
21   private:
22     // We use a single lookup table for every type.
23     // Beware of collisions if id in mpif.h is not unique
24     static std::unordered_map<std::string, F2C*>* f2c_lookup_;
25     static int f2c_id_;
26     int my_f2c_id_ = -1;
27
28   protected:
29     static std::unordered_map<std::string, F2C*>* f2c_lookup();
30     static void set_f2c_lookup(std::unordered_map<std::string, F2C*>* map);
31     static int f2c_id();
32     static void f2c_id_increment();
33
34   public:
35     char* get_my_key(char* key);
36     static char* get_key(char* key, int id);
37     static void delete_lookup();
38     static std::unordered_map<std::string, F2C*>* lookup();
39     F2C() {}
40     virtual ~F2C() = default;
41
42     //Override these to handle specific values.
43     virtual int add_f();
44     static void free_f(int id);
45     virtual int c2f();
46     static void print_f2c_lookup();
47     // This method should be overridden in all subclasses to avoid casting the result when calling it.
48     // For the default one, the MPI_*_NULL returned is assumed to be NULL.
49     static F2C* f2c(int id);
50 };
51
52 }
53 }
54
55 #endif