X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/ecd110f13bd1771203aa63d8bad992f9b77c0b96..693f30b46244c152cd79cdf3ad35d4a79b866c9c:/examples/msg/icomms/peer.c diff --git a/examples/msg/icomms/peer.c b/examples/msg/icomms/peer.c old mode 100755 new mode 100644 index 2271765b56..445a7002e5 --- a/examples/msg/icomms/peer.c +++ b/examples/msg/icomms/peer.c @@ -5,18 +5,31 @@ * under the terms of the license (GNU LGPL) which comes with this package. */ #include -#include "msg/msg.h" /* Yeah! If you want to use msg, you need to include msg/msg.h */ -#include "xbt/sysdep.h" /* calloc, printf */ +#include "msg/msg.h" /* Yeah! If you want to use msg, you need to include msg/msg.h */ +#include "xbt/sysdep.h" /* calloc, printf */ /* Create a log channel to have nice outputs. */ #include "xbt/log.h" #include "xbt/asserts.h" -XBT_LOG_NEW_DEFAULT_CATEGORY(msg_test,"Messages specific for this msg example"); - +XBT_LOG_NEW_DEFAULT_CATEGORY(msg_test, + "Messages specific for this msg example"); + +/** @addtogroup MSG_examples + * + * @section MSG_ex_icomms Asynchronous communications + * + * There is several examples of asynchronous communications coming in + * the archive. In addition to the fully documented example \ref + * MSG_ex_asynchronous_communications, there is several other + * examples in the archive: + * + * - msg/icomms/peer.c: basic example of async functions (@ref MSG_task_isend, @ref MSG_task_irecv, @ref MSG_comm_wait) + */ int sender(int argc, char *argv[]); int receiver(int argc, char *argv[]); -MSG_error_t test_all(const char *platform_file, const char *application_file); +MSG_error_t test_all(const char *platform_file, + const char *application_file); /** Sender function */ int sender(int argc, char *argv[]) @@ -28,135 +41,129 @@ int sender(int argc, char *argv[]) double sleep_start_time = atof(argv[5]); double sleep_test_time = atof(argv[6]); - INFO2("sleep_start_time : %f , sleep_test_time : %f",sleep_start_time,sleep_test_time); + XBT_INFO("sleep_start_time : %f , sleep_test_time : %f", sleep_start_time, + sleep_test_time); msg_comm_t comm = NULL; int i; m_task_t task = NULL; - MSG_process_sleep (sleep_start_time); - for (i = 0; i < number_of_tasks; i++) - { - char mailbox[256]; - char sprintf_buffer[256]; + MSG_process_sleep(sleep_start_time); + for (i = 0; i < number_of_tasks; i++) { + char mailbox[256]; + char sprintf_buffer[256]; - sprintf(mailbox,"receiver-%ld",i % receivers_count); + sprintf(mailbox, "receiver-%ld", i % receivers_count); sprintf(sprintf_buffer, "Task_%d", i); - task = MSG_task_create(sprintf_buffer, task_comp_size, task_comm_size, NULL); - comm=MSG_task_isend(task, mailbox); - INFO2("Send to receiver-%ld Task_%d",i % receivers_count,i); - - if(sleep_test_time == 0) - { - MSG_comm_wait(comm,-1); - } - else - { - while(MSG_comm_test(comm) == 0){ - MSG_process_sleep (sleep_test_time); - }; - MSG_comm_destroy(comm); + task = + MSG_task_create(sprintf_buffer, task_comp_size, task_comm_size, + NULL); + comm = MSG_task_isend(task, mailbox); + XBT_INFO("Send to receiver-%ld Task_%d", i % receivers_count, i); + + if (sleep_test_time == 0) { + MSG_comm_wait(comm, -1); + } else { + while (MSG_comm_test(comm) == 0) { + MSG_process_sleep(sleep_test_time); + }; + MSG_comm_destroy(comm); } } - for (i = 0; i < receivers_count; i++) - { + for (i = 0; i < receivers_count; i++) { char mailbox[80]; - sprintf(mailbox,"receiver-%ld",i % receivers_count); - task = MSG_task_create ("finalize", 0, 0, 0); + sprintf(mailbox, "receiver-%ld", i % receivers_count); + task = MSG_task_create("finalize", 0, 0, 0); comm = MSG_task_isend(task, mailbox); - INFO1("Send to receiver-%ld finalize",i % receivers_count); - if(sleep_test_time == 0) - { - MSG_comm_wait(comm,-1); - } - else - { - while(MSG_comm_test(comm) == 0){ - MSG_process_sleep (sleep_test_time); - }; - MSG_comm_destroy(comm); + XBT_INFO("Send to receiver-%ld finalize", i % receivers_count); + if (sleep_test_time == 0) { + MSG_comm_wait(comm, -1); + } else { + while (MSG_comm_test(comm) == 0) { + MSG_process_sleep(sleep_test_time); + }; + MSG_comm_destroy(comm); } } - INFO0("Goodbye now!"); + XBT_INFO("Goodbye now!"); return 0; -} /* end_of_sender */ +} /* end_of_sender */ /** Receiver function */ int receiver(int argc, char *argv[]) { m_task_t task = NULL; - MSG_error_t res; + _XBT_GNUC_UNUSED MSG_error_t res; int id = -1; char mailbox[80]; msg_comm_t res_irecv; double sleep_start_time = atof(argv[2]); double sleep_test_time = atof(argv[3]); - INFO2("sleep_start_time : %f , sleep_test_time : %f",sleep_start_time,sleep_test_time); - - xbt_assert1(sscanf(argv[1],"%d", &id), - "Invalid argument %s\n",argv[1]); - - MSG_process_sleep (sleep_start_time); - - sprintf(mailbox,"receiver-%d",id); - while(1) { - res_irecv = MSG_task_irecv(&(task), mailbox); - INFO0("Wait to receive a task"); - - if(sleep_test_time == 0) - { - res = MSG_comm_wait(res_irecv,-1); - xbt_assert0(res == MSG_OK, "MSG_task_get failed"); - } - else - { - while(MSG_comm_test(res_irecv) == 0){ - MSG_process_sleep (sleep_test_time); - }; - MSG_comm_destroy(res_irecv); + XBT_INFO("sleep_start_time : %f , sleep_test_time : %f", sleep_start_time, + sleep_test_time); + + _XBT_GNUC_UNUSED int read; + read = sscanf(argv[1], "%d", &id); + xbt_assert(read, + "Invalid argument %s\n", argv[1]); + + MSG_process_sleep(sleep_start_time); + + sprintf(mailbox, "receiver-%d", id); + while (1) { + res_irecv = MSG_task_irecv(&(task), mailbox); + XBT_INFO("Wait to receive a task"); + + if (sleep_test_time == 0) { + res = MSG_comm_wait(res_irecv, -1); + xbt_assert(res == MSG_OK, "MSG_task_get failed"); + } else { + while (MSG_comm_test(res_irecv) == 0) { + MSG_process_sleep(sleep_test_time); + }; + MSG_comm_destroy(res_irecv); } - INFO1("Received \"%s\"", MSG_task_get_name(task)); - if (!strcmp(MSG_task_get_name(task),"finalize")) { - MSG_task_destroy(task); - break; + XBT_INFO("Received \"%s\"", MSG_task_get_name(task)); + if (!strcmp(MSG_task_get_name(task), "finalize")) { + MSG_task_destroy(task); + break; } - INFO1("Processing \"%s\"", MSG_task_get_name(task)); + XBT_INFO("Processing \"%s\"", MSG_task_get_name(task)); MSG_task_execute(task); - INFO1("\"%s\" done", MSG_task_get_name(task)); + XBT_INFO("\"%s\" done", MSG_task_get_name(task)); MSG_task_destroy(task); task = NULL; } - INFO0("I'm done. See you!"); + XBT_INFO("I'm done. See you!"); return 0; -} /* end_of_receiver */ +} /* end_of_receiver */ /** Test function */ MSG_error_t test_all(const char *platform_file, - const char *application_file) + const char *application_file) { MSG_error_t res = MSG_OK; /* MSG_config("workstation/model","KCCFLN05"); */ - { /* Simulation setting */ - MSG_set_channel_number(0); + { /* Simulation setting */ MSG_create_environment(platform_file); } - { /* Application deployment */ + { /* Application deployment */ MSG_function_register("sender", sender); MSG_function_register("receiver", receiver); MSG_launch_application(application_file); } res = MSG_main(); - - INFO1("Simulation time %g",MSG_get_clock()); + + XBT_INFO("Simulation time %g", MSG_get_clock()); return res; -} /* end_of_test_all */ +} /* end_of_test_all */ /** Main function */ @@ -164,18 +171,17 @@ int main(int argc, char *argv[]) { MSG_error_t res = MSG_OK; - MSG_global_init(&argc,argv); + MSG_init(&argc, argv); if (argc < 3) { - printf ("Usage: %s platform_file deployment_file\n",argv[0]); - printf ("example: %s msg_platform.xml msg_deployment.xml\n",argv[0]); - exit(1); + printf("Usage: %s platform_file deployment_file\n", argv[0]); + printf("example: %s msg_platform.xml msg_deployment.xml\n", argv[0]); + exit(1); } - res = test_all(argv[1],argv[2]); - SIMIX_message_sizes_output("toto.txt"); + res = test_all(argv[1], argv[2]); MSG_clean(); - if(res==MSG_OK) + if (res == MSG_OK) return 0; else return 1; -} /* end_of_main */ +} /* end_of_main */