#define sleep(x) smpi_sleep(x)
#define gettimeofday(x, y) smpi_gettimeofday(x, y)
+#ifdef _WIN32
+#define MPI_CALL(type,name,args) \
+ type name args; \
+ type P##name args
+#else
#define MPI_CALL(type,name,args) \
type name args __attribute__((weak)); \
type P##name args
+#endif
SG_BEGIN_DECL()
#define MPI_THREAD_SINGLE 0
#define MPI_BOTTOM (void *)0
#define MPI_PROC_NULL -2
#define MPI_ANY_TAG -1
-#define MPI_UNDEFINED -1
+#define MPI_UNDEFINED -3
// errorcodes
#define MPI_SUCCESS 0
#define MPI_ERR_COMM 1
#define MPI_STATUSES_IGNORE NULL
#define MPI_DATATYPE_NULL NULL
-extern MPI_Datatype MPI_CHAR;
-extern MPI_Datatype MPI_SHORT;
-extern MPI_Datatype MPI_INT;
-extern MPI_Datatype MPI_LONG;
-extern MPI_Datatype MPI_LONG_LONG;
+XBT_PUBLIC( MPI_Datatype ) MPI_CHAR;
+XBT_PUBLIC( MPI_Datatype ) MPI_SHORT;
+XBT_PUBLIC( MPI_Datatype ) MPI_INT;
+XBT_PUBLIC( MPI_Datatype ) MPI_LONG;
+XBT_PUBLIC( MPI_Datatype ) MPI_LONG_LONG;
#define MPI_LONG_LONG_INT MPI_LONG_LONG
-extern MPI_Datatype MPI_SIGNED_CHAR;
-extern MPI_Datatype MPI_UNSIGNED_CHAR;
-extern MPI_Datatype MPI_UNSIGNED_SHORT;
-extern MPI_Datatype MPI_UNSIGNED;
-extern MPI_Datatype MPI_UNSIGNED_LONG;
-extern MPI_Datatype MPI_UNSIGNED_LONG_LONG;
-extern MPI_Datatype MPI_FLOAT;
-extern MPI_Datatype MPI_DOUBLE;
-extern MPI_Datatype MPI_LONG_DOUBLE;
-extern MPI_Datatype MPI_WCHAR;
-extern MPI_Datatype MPI_C_BOOL;
-extern MPI_Datatype MPI_INT8_T;
-extern MPI_Datatype MPI_INT16_T;
-extern MPI_Datatype MPI_INT32_T;
-extern MPI_Datatype MPI_INT64_T;
-extern MPI_Datatype MPI_UINT8_T;
+XBT_PUBLIC( MPI_Datatype ) MPI_SIGNED_CHAR;
+XBT_PUBLIC( MPI_Datatype ) MPI_UNSIGNED_CHAR;
+XBT_PUBLIC( MPI_Datatype ) MPI_UNSIGNED_SHORT;
+XBT_PUBLIC( MPI_Datatype ) MPI_UNSIGNED;
+XBT_PUBLIC( MPI_Datatype ) MPI_UNSIGNED_LONG;
+XBT_PUBLIC( MPI_Datatype ) MPI_UNSIGNED_LONG_LONG;
+XBT_PUBLIC( MPI_Datatype ) MPI_FLOAT;
+XBT_PUBLIC( MPI_Datatype ) MPI_DOUBLE;
+XBT_PUBLIC( MPI_Datatype ) MPI_LONG_DOUBLE;
+XBT_PUBLIC( MPI_Datatype ) MPI_WCHAR;
+XBT_PUBLIC( MPI_Datatype ) MPI_C_BOOL;
+XBT_PUBLIC( MPI_Datatype ) MPI_INT8_T;
+XBT_PUBLIC( MPI_Datatype ) MPI_INT16_T;
+XBT_PUBLIC( MPI_Datatype ) MPI_INT32_T;
+XBT_PUBLIC( MPI_Datatype ) MPI_INT64_T;
+XBT_PUBLIC( MPI_Datatype ) MPI_UINT8_T;
#define MPI_BYTE MPI_UINT8_T
-extern MPI_Datatype MPI_UINT16_T;
-extern MPI_Datatype MPI_UINT32_T;
-extern MPI_Datatype MPI_UINT64_T;
-extern MPI_Datatype MPI_C_FLOAT_COMPLEX;
+XBT_PUBLIC( MPI_Datatype ) MPI_UINT16_T;
+XBT_PUBLIC( MPI_Datatype ) MPI_UINT32_T;
+XBT_PUBLIC( MPI_Datatype ) MPI_UINT64_T;
+XBT_PUBLIC( MPI_Datatype ) MPI_C_FLOAT_COMPLEX;
#define MPI_C_COMPLEX MPI_C_FLOAT_COMPLEX
-extern MPI_Datatype MPI_C_DOUBLE_COMPLEX;
-extern MPI_Datatype MPI_C_LONG_DOUBLE_COMPLEX;
-extern MPI_Datatype MPI_AINT;
-extern MPI_Datatype MPI_OFFSET;
-
+XBT_PUBLIC( MPI_Datatype ) MPI_C_DOUBLE_COMPLEX;
+XBT_PUBLIC( MPI_Datatype ) MPI_C_LONG_DOUBLE_COMPLEX;
+XBT_PUBLIC( MPI_Datatype ) MPI_AINT;
+XBT_PUBLIC( MPI_Datatype ) MPI_OFFSET;
+XBT_PUBLIC( MPI_Datatype ) MPI_LB;
+XBT_PUBLIC( MPI_Datatype ) MPI_UB;
//The following are datatypes for the MPI functions MPI_MAXLOC and MPI_MINLOC.
-extern MPI_Datatype MPI_FLOAT_INT;
-extern MPI_Datatype MPI_LONG_INT;
-extern MPI_Datatype MPI_DOUBLE_INT;
-extern MPI_Datatype MPI_SHORT_INT;
-extern MPI_Datatype MPI_2INT;
-extern MPI_Datatype MPI_LONG_DOUBLE_INT;
+XBT_PUBLIC( MPI_Datatype ) MPI_FLOAT_INT;
+XBT_PUBLIC( MPI_Datatype ) MPI_LONG_INT;
+XBT_PUBLIC( MPI_Datatype ) MPI_DOUBLE_INT;
+XBT_PUBLIC( MPI_Datatype ) MPI_SHORT_INT;
+XBT_PUBLIC( MPI_Datatype ) MPI_2INT;
+XBT_PUBLIC( MPI_Datatype ) MPI_LONG_DOUBLE_INT;
typedef void MPI_User_function(void *invec, void *inoutvec, int *len,
MPI_Datatype * datatype);
typedef struct s_smpi_mpi_op *MPI_Op;
#define MPI_OP_NULL NULL
-extern MPI_Op MPI_MAX;
-extern MPI_Op MPI_MIN;
-extern MPI_Op MPI_MAXLOC;
-extern MPI_Op MPI_MINLOC;
-extern MPI_Op MPI_SUM;
-extern MPI_Op MPI_PROD;
-extern MPI_Op MPI_LAND;
-extern MPI_Op MPI_LOR;
-extern MPI_Op MPI_LXOR;
-extern MPI_Op MPI_BAND;
-extern MPI_Op MPI_BOR;
-extern MPI_Op MPI_BXOR;
+XBT_PUBLIC( MPI_Op ) MPI_MAX;
+XBT_PUBLIC( MPI_Op ) MPI_MIN;
+XBT_PUBLIC( MPI_Op ) MPI_MAXLOC;
+XBT_PUBLIC( MPI_Op ) MPI_MINLOC;
+XBT_PUBLIC( MPI_Op ) MPI_SUM;
+XBT_PUBLIC( MPI_Op ) MPI_PROD;
+XBT_PUBLIC( MPI_Op ) MPI_LAND;
+XBT_PUBLIC( MPI_Op ) MPI_LOR;
+XBT_PUBLIC( MPI_Op ) MPI_LXOR;
+XBT_PUBLIC( MPI_Op ) MPI_BAND;
+XBT_PUBLIC( MPI_Op ) MPI_BOR;
+XBT_PUBLIC( MPI_Op ) MPI_BXOR;
struct s_smpi_mpi_group;
typedef struct s_smpi_mpi_group *MPI_Group;
#define MPI_GROUP_NULL NULL
-extern MPI_Group MPI_GROUP_EMPTY;
+XBT_PUBLIC( MPI_Group ) MPI_GROUP_EMPTY;
struct s_smpi_mpi_communicator;
typedef struct s_smpi_mpi_communicator *MPI_Comm;
#define MPI_COMM_NULL NULL
-extern MPI_Comm MPI_COMM_WORLD;
+XBT_PUBLIC( MPI_Comm ) MPI_COMM_WORLD;
#define MPI_COMM_SELF smpi_process_comm_self()
struct s_smpi_mpi_request;
//FIXME: these are not yet implemented
-#define MPI_UB MPI_CHAR
-
typedef void MPI_Handler_function(MPI_Comm*, int*, ...);
typedef void* MPI_Errhandler;
typedef int MPI_Copy_function(MPI_Comm oldcomm, int keyval, void* extra_state, void* attribute_val_in,
void* attribute_val_out, int* flag);
typedef int MPI_Delete_function(MPI_Comm comm, int keyval, void* attribute_val, void* extra_state);
+XBT_PUBLIC(MPI_Datatype) MPI_PACKED;
MPI_CALL(XBT_PUBLIC(int), MPI_Pack_size, (int incount, MPI_Datatype datatype, MPI_Comm comm, int* size));
MPI_CALL(XBT_PUBLIC(int), MPI_Cart_coords, (MPI_Comm comm, int rank, int maxdims, int* coords));
MPI_CALL(XBT_PUBLIC(int), MPI_Cart_create, (MPI_Comm comm_old, int ndims, int* dims, int* periods, int reorder, MPI_Comm* comm_cart));
