3 #include <xbt/function_types.h>
4 #include <simix/simix.h>
6 #define SMPI_RAND_SEED 5
8 #define MPI_ANY_SOURCE -1
12 #define MPI_ERR_COMM 1
14 #define MPI_ERR_TYPE 3
15 #define MPI_ERR_REQUEST 4
16 #define MPI_ERR_INTERN 5
17 #define MPI_ERR_COUNT 6
18 #define MPI_ERR_RANK 7
22 struct smpi_mpi_communicator_t {
26 smx_process_t *processes;
28 smx_mutex_t barrier_mutex;
29 smx_cond_t barrier_cond;
31 typedef struct smpi_mpi_communicator_t smpi_mpi_communicator_t;
32 typedef smpi_mpi_communicator_t *MPI_Comm;
35 struct smpi_mpi_status_t {
38 typedef struct smpi_mpi_status_t smpi_mpi_status_t;
39 typedef smpi_mpi_status_t MPI_Status;
42 struct smpi_mpi_datatype_t {
45 typedef struct smpi_mpi_datatype_t smpi_mpi_datatype_t;
46 typedef smpi_mpi_datatype_t *MPI_Datatype;
49 struct smpi_mpi_request_t {
50 smpi_mpi_communicator_t *comm;
56 smpi_mpi_datatype_t *datatype;
59 short int completed :1;
63 typedef struct smpi_mpi_request_t smpi_mpi_request_t;
64 typedef smpi_mpi_request_t *MPI_Request;
67 struct smpi_mpi_op_t {
68 void (*func)(void *x, void *y, void *z);
70 typedef struct smpi_mpi_op_t smpi_mpi_op_t;
71 typedef smpi_mpi_op_t *MPI_Op;
73 // global SMPI data structure
74 typedef struct SMPI_MPI_Global {
76 smpi_mpi_communicator_t *mpi_comm_world;
78 smpi_mpi_datatype_t *mpi_byte;
79 smpi_mpi_datatype_t *mpi_int;
80 smpi_mpi_datatype_t *mpi_double;
82 smpi_mpi_op_t *mpi_land;
83 smpi_mpi_op_t *mpi_sum;
85 } s_SMPI_MPI_Global_t, *SMPI_MPI_Global_t;
86 extern SMPI_MPI_Global_t smpi_mpi_global;
88 #define MPI_COMM_WORLD (smpi_mpi_global->mpi_comm_world)
90 #define MPI_STATUS_IGNORE NULL
92 #define MPI_BYTE (smpi_mpi_global->mpi_byte)
93 #define MPI_DOUBLE (smpi_mpi_global->mpi_double)
94 #define MPI_INT (smpi_mpi_global->mpi_int)
96 #define MPI_LAND (smpi_mpi_global->mpi_land)
97 #define MPI_SUM (smpi_mpi_glboal->mpi_sum)
100 int MPI_Init(int *argc, char ***argv);
101 int MPI_Finalize(void);
102 int MPI_Abort(MPI_Comm comm, int errorcode);
103 int MPI_Comm_size(MPI_Comm comm, int *size);
104 int MPI_Comm_rank(MPI_Comm comm, int *rank);
105 int MPI_Type_size(MPI_Datatype datatype, size_t *size);
106 int MPI_Barrier(MPI_Comm comm);
107 int MPI_Irecv(void *buf, int count, MPI_Datatype datatype, int src, int tag, MPI_Comm comm, MPI_Request *request);
108 int MPI_Recv(void *buf, int count, MPI_Datatype datatype, int src, int tag, MPI_Comm comm, MPI_Status *status);
109 int MPI_Isend(void *buf, int count, MPI_Datatype datatype, int dst, int tag, MPI_Comm comm, MPI_Request *request);
110 int MPI_Send(void *buf, int count, MPI_Datatype datatype, int dst, int tag, MPI_Comm comm);
113 XBT_IMPORT_NO_EXPORT(int) smpi_simulated_main(int argc, char **argv);
114 unsigned int smpi_sleep(unsigned int);
116 int smpi_gettimeofday(struct timeval *tv, struct timezone *tz);