X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/cf108868b4eeed4d0d9d343bc68557d7814e18c0..6fe803617ce4e98547bf1d8c040a9576cc8e4eac:/examples/simdag/dot/ptg_test.c diff --git a/examples/simdag/dot/ptg_test.c b/examples/simdag/dot/ptg_test.c deleted file mode 100644 index aa0c2c4e95..0000000000 --- a/examples/simdag/dot/ptg_test.c +++ /dev/null @@ -1,70 +0,0 @@ -/* Copyright (c) 2013-2016. The SimGrid Team. - * All rights reserved. */ - -/* This program is free software; you can redistribute it and/or modify it - * under the terms of the license (GNU LGPL) which comes with this package. */ - -#include -#include "simgrid/simdag.h" -#include "xbt/log.h" - -XBT_LOG_NEW_DEFAULT_CATEGORY(test, "Logging specific to this SimDag example"); - -/* simple test trying to load a Parallel Task Graph (PTG) as a DOT file. */ -int main(int argc, char **argv){ - xbt_dynar_t dot; - unsigned int cursor; - SD_task_t task; - - /* initialization of SD */ - SD_init(&argc, argv); - - /* Check our arguments */ - xbt_assert (argc > 1,"Usage: %s platform_file dot_file example: %s ../2clusters.xml ptg.dot", argv[0], argv[0]); - - /* creation of the environment */ - SD_create_environment(argv[1]); - - /* load the DOT file */ - dot = SD_PTG_dotload(argv[2]); - if(dot == NULL){ - SD_exit(); - xbt_die("No dot load may be you have a cycle in your graph"); - } - - /* Display all the tasks */ - XBT_INFO("------------------- Display all tasks of the loaded DAG ---------------------------"); - xbt_dynar_foreach(dot, cursor, task) { - SD_task_dump(task); - } - - FILE *dotout = fopen("dot.dot", "w"); - fprintf(dotout, "digraph A {\n"); - xbt_dynar_foreach(dot, cursor, task) { - SD_task_dotty(task, dotout); - } - fprintf(dotout, "}\n"); - fclose(dotout); - - /* Schedule them all on all the first workstation */ - XBT_INFO("------------------- Schedule tasks ---------------------------"); - const sg_host_t *ws_list = sg_host_list(); - int count = sg_host_count(); - xbt_dynar_foreach(dot, cursor, task) { - if (SD_task_get_kind(task) == SD_TASK_COMP_PAR_AMDAHL) { - SD_task_schedulev(task, count, ws_list); - } - } - - XBT_INFO("------------------- Run the schedule ---------------------------"); - SD_simulate(-1); - XBT_INFO("Makespan: %f", SD_get_clock()); - xbt_dynar_foreach(dot, cursor, task) { - SD_task_destroy(task); - } - xbt_dynar_free_container(&dot); - - /* exit */ - SD_exit(); - return 0; -}