int main(int argc, char *argv[]){ msg_error_t res; MSG_init(&argc, argv); xbt_assert(argc > 3, "Usage: %s description_file platform_file deployment_file\n" "\tExample: %s smpi_multiple_apps msg_platform.xml msg_deployment.xml\n", argv[0], argv[0]); /* Simulation setting */ MSG_create_environment(argv[2]); /* Application deployment: read the description file in order to identify instances to launch */ FILE* fp = fopen(argv[1], "r"); if (fp == NULL) xbt_die("Cannot open %s", argv[1]); char *line = NULL; size_t n = 0; int instance_size = 0; const char* instance_id = NULL; while (xbt_getline(&line, &n, fp) != -1 ){ xbt_dynar_t elems = xbt_str_split_quoted_in_place(line); if(xbt_dynar_length(elems)<3){ xbt_die ("Not enough elements in the line"); } const char** line_char= xbt_dynar_to_array(elems); instance_id = line_char[0]; instance_size = xbt_str_parse_int(line_char[2], "Invalid size: %s"); XBT_INFO("Initializing instance %s of size %d", instance_id, instance_size); SMPI_app_instance_register(instance_id, smpi_replay,instance_size); xbt_free(line_char); } fclose(fp); MSG_launch_application(argv[3]); SMPI_init(); res = MSG_main(); XBT_INFO("Simulation time %g", MSG_get_clock()); SMPI_finalize(); return res != MSG_OK; }
int main(int argc, char *argv[]){ msg_error_t res; const char *platform_file; const char *application_file; const char *description_file; MSG_init(&argc, argv); if (argc < 4) { printf("Usage: %s description_file platform_file deployment_file\n", argv[0]); printf("example: %s smpi_multiple_apps msg_platform.xml msg_deployment.xml\n", argv[0]); exit(1); } description_file = argv[1]; platform_file = argv[2]; application_file = argv[3]; { /* Simulation setting */ MSG_create_environment(platform_file); } { /* Application deployment */ //read the description file in order to identify instances to launch FILE* fp = fopen(description_file, "r"); if (fp == NULL) xbt_die("Cannot open %s", description_file); ssize_t read; char *line = NULL; size_t n = 0; int instance_size = 0; const char* instance_id = NULL; while ((read = xbt_getline(&line, &n, fp)) != -1 ){ xbt_dynar_t elems = xbt_str_split_quoted_in_place(line); if(xbt_dynar_length(elems)<3){ xbt_die ("Not enough elements in the line"); } const char** line_char= xbt_dynar_to_array(elems); instance_id = line_char[0]; instance_size = atoi(line_char[2]); XBT_INFO("Initializing instance %s of size %d", instance_id, instance_size); SMPI_app_instance_register(instance_id, smpi_replay,instance_size); xbt_free(line_char); } MSG_launch_application(application_file); SMPI_init(); } res = MSG_main(); XBT_INFO("Simulation time %g", MSG_get_clock()); SMPI_finalize(); if (res == MSG_OK) return 0; else return 1; }