1 #include <xbt/function_types.h>
2 #include <simix/simix.h>
4 #define SMPI_RAND_SEED 5
6 #define MPI_ANY_SOURCE -1
10 #define MPI_ERR_COMM 1
12 #define MPI_ERR_TYPE 3
13 #define MPI_ERR_REQUEST 4
14 #define MPI_ERR_INTERN 5
15 #define MPI_ERR_COUNT 6
16 #define MPI_ERR_RANK 7
20 struct smpi_mpi_communicator_t {
24 smx_process_t *processes;
26 smx_mutex_t barrier_mutex;
27 smx_cond_t barrier_cond;
29 typedef struct smpi_mpi_communicator_t smpi_mpi_communicator_t;
30 typedef smpi_mpi_communicator_t *MPI_Comm;
33 struct smpi_mpi_status_t {
36 typedef struct smpi_mpi_status_t smpi_mpi_status_t;
37 typedef smpi_mpi_status_t MPI_Status;
40 struct smpi_mpi_datatype_t {
43 typedef struct smpi_mpi_datatype_t smpi_mpi_datatype_t;
44 typedef smpi_mpi_datatype_t *MPI_Datatype;
47 struct smpi_mpi_request_t {
48 smpi_mpi_communicator_t *comm;
54 smpi_mpi_datatype_t *datatype;
57 short int completed :1;
61 typedef struct smpi_mpi_request_t smpi_mpi_request_t;
62 typedef smpi_mpi_request_t *MPI_Request;
65 struct smpi_mpi_op_t {
66 void (*func)(void *x, void *y, void *z);
68 typedef struct smpi_mpi_op_t smpi_mpi_op_t;
69 typedef smpi_mpi_op_t *MPI_Op;
71 // global SMPI data structure
72 typedef struct SMPI_MPI_Global {
74 smpi_mpi_communicator_t *mpi_comm_world;
76 smpi_mpi_datatype_t *mpi_byte;
77 smpi_mpi_datatype_t *mpi_int;
78 smpi_mpi_datatype_t *mpi_double;
80 smpi_mpi_op_t *mpi_land;
81 smpi_mpi_op_t *mpi_sum;
83 } s_SMPI_MPI_Global_t, *SMPI_MPI_Global_t;
84 extern SMPI_MPI_Global_t smpi_mpi_global;
86 #define MPI_COMM_WORLD (smpi_mpi_global->mpi_comm_world)
88 #define MPI_STATUS_IGNORE NULL
90 #define MPI_BYTE (smpi_mpi_global->mpi_byte)
91 #define MPI_DOUBLE (smpi_mpi_global->mpi_double)
92 #define MPI_INT (smpi_mpi_global->mpi_int)
94 #define MPI_LAND (smpi_mpi_global->mpi_land)
95 #define MPI_SUM (smpi_mpi_glboal->mpi_sum)
98 int MPI_Init(int *argc, char ***argv);
99 int MPI_Finalize(void);
100 int MPI_Abort(MPI_Comm comm, int errorcode);
101 int MPI_Comm_size(MPI_Comm comm, int *size);
102 int MPI_Comm_rank(MPI_Comm comm, int *rank);
103 int MPI_Type_size(MPI_Datatype datatype, size_t *size);
104 int MPI_Barrier(MPI_Comm comm);
105 int MPI_Irecv(void *buf, int count, MPI_Datatype datatype, int src, int tag, MPI_Comm comm, MPI_Request *request);
106 int MPI_Recv(void *buf, int count, MPI_Datatype datatype, int src, int tag, MPI_Comm comm, MPI_Status *status);
107 int MPI_Isend(void *buf, int count, MPI_Datatype datatype, int dst, int tag, MPI_Comm comm, MPI_Request *request);
108 int MPI_Send(void *buf, int count, MPI_Datatype datatype, int dst, int tag, MPI_Comm comm);
111 XBT_IMPORT_NO_EXPORT(int) smpi_simulated_main(int argc, char **argv);
112 unsigned int smpi_sleep(unsigned int);
114 int smpi_gettimeofday(struct timeval *tv, struct timezone *tz);