4 #include "xbt/mallocator.h"
5 #include "xbt/xbt_os_time.h"
7 #include "simix/simix.h"
11 #define SMPI_DEFAULT_SPEED 100
12 #define SMPI_REQUEST_MALLOCATOR_SIZE 100
13 #define SMPI_MESSAGE_MALLOCATOR_SIZE 100
15 // smpi mpi communicator
16 typedef struct smpi_mpi_communicator_t {
19 smx_mutex_t barrier_mutex;
20 smx_cond_t barrier_cond;
22 int *rank_to_index_map;
23 int *index_to_rank_map;
25 } s_smpi_mpi_communicator_t;
28 typedef struct smpi_mpi_datatype_t {
30 } s_smpi_mpi_datatype_t;
33 typedef struct smpi_mpi_request_t {
34 smpi_mpi_communicator_t comm;
41 smpi_mpi_datatype_t datatype;
43 short int completed:1;
44 short int consumed:1; /* for waitany */
52 } s_smpi_mpi_request_t;
55 typedef struct smpi_mpi_op_t {
56 void (*func) (void *a, void *b, int *length, MPI_Datatype * datatype);
59 // smpi received message
60 typedef struct smpi_received_message_t {
61 smpi_mpi_communicator_t comm;
70 } s_smpi_received_message_t;
71 typedef struct smpi_received_message_t *smpi_received_message_t;
73 typedef struct smpi_do_once_duration_node_t {
77 struct smpi_do_once_duration_node_t *next;
78 } s_smpi_do_once_duration_node_t;
79 typedef struct smpi_do_once_duration_node_t *smpi_do_once_duration_node_t;
81 typedef struct smpi_global_t {
84 double reference_speed;
88 xbt_mallocator_t request_mallocator;
89 xbt_mallocator_t message_mallocator;
91 smx_process_t *main_processes;
94 smx_mutex_t timer_mutex;
95 smx_cond_t timer_cond;
97 // keeps track of previous times
98 smpi_do_once_duration_node_t do_once_duration_nodes;
99 smx_mutex_t do_once_mutex;
100 double *do_once_duration;
103 typedef struct smpi_global_t *smpi_global_t;
104 extern smpi_global_t smpi_global;
106 typedef struct smpi_host_data_t {
112 smx_process_t sender;
113 smx_process_t receiver;
115 int finalize; /* so that main process stops its sender&receiver */
117 xbt_fifo_t pending_recv_request_queue;
118 xbt_fifo_t pending_send_request_queue;
119 xbt_fifo_t received_message_queue;
120 } s_smpi_process_data_t;
121 typedef struct smpi_host_data_t *smpi_process_data_t;
123 // function prototypes
124 void smpi_process_init(int *argc,char ***argv);
125 void smpi_process_finalize(void);
126 int smpi_mpi_comm_rank(smpi_mpi_communicator_t comm);
128 int smpi_mpi_barrier(smpi_mpi_communicator_t comm);
129 int smpi_mpi_isend(smpi_mpi_request_t request);
130 int smpi_mpi_irecv(smpi_mpi_request_t request);
131 int smpi_mpi_wait(smpi_mpi_request_t request, smpi_mpi_status_t * status);
132 int smpi_mpi_waitall(int count, smpi_mpi_request_t requests[], smpi_mpi_status_t status[]);
133 int smpi_mpi_waitany(int count, smpi_mpi_request_t requests[], int *index, smpi_mpi_status_t status[]);
135 void smpi_execute(double duration);
136 void smpi_start_timer(void);
137 double smpi_stop_timer(void);
138 void smpi_bench_begin(void);
139 void smpi_bench_end(void);
140 void smpi_bench_skip(void);
142 void smpi_global_init(void);
143 void smpi_global_destroy(void);
144 int smpi_process_index(void);
145 smx_mutex_t smpi_process_mutex(void);
146 smx_cond_t smpi_process_cond(void);
147 int smpi_run_simulation(int *argc, char **argv);
148 int smpi_create_request(void *buf, int count, smpi_mpi_datatype_t datatype,
149 int src, int dst, int tag,
150 smpi_mpi_communicator_t comm,
151 smpi_mpi_request_t * request);
153 int smpi_sender(int argc,char*argv[]);
154 int smpi_receiver(int argc, char*argv[]);