examples/simdag/fail/sd_fail.c

   1 /* Copyright (c) 2006-2010, 2012-2016. The SimGrid Team.
   2  * All rights reserved.                                                     */
   3
   4 /* This program is free software; you can redistribute it and/or modify it
   5  * under the terms of the license (GNU LGPL) which comes with this package. */
   6
   7 #include "simgrid/simdag.h"
   8
   9 XBT_LOG_NEW_DEFAULT_CATEGORY(sd_fail, "Logging specific to this SimDag example");
  10
  11 int main(int argc, char **argv)
  12 {
  13   double computation_amount[1];
  14   double communication_amount[2] = { 0 };
  15   sg_host_t hosts[1];
  16
  17   /* initialization of SD */
  18   SD_init(&argc, argv);
  19
  20   /* creation of the environment */
  21   SD_create_environment(argv[1]);
  22
  23   /* creation of a single task that will poorly fail when the workstation will stop */
  24   XBT_INFO("First test: COMP_SEQ task");
  25   SD_task_t task = SD_task_create_comp_seq("Poor task", NULL, 2e10);
  26   SD_task_watch(task, SD_FAILED);
  27   SD_task_watch(task, SD_DONE);
  28
  29   XBT_INFO("Schedule task '%s' on 'Faulty Host'", SD_task_get_name(task));
  30
  31   SD_task_schedulel(task, 1, sg_host_by_name("Faulty Host"));
  32
  33   xbt_dynar_t tasks = SD_simulate(-1.0);
  34   xbt_dynar_free(&tasks);
  35
  36   SD_task_dump(task);
  37
  38   XBT_INFO("Task '%s' has failed. %.f flops remain to be done", SD_task_get_name(task),
  39            SD_task_get_remaining_amount(task));
  40
  41   XBT_INFO("let's unschedule task '%s' and reschedule it on the 'Safe Host'", SD_task_get_name(task));
  42   SD_task_unschedule(task);
  43   SD_task_schedulel(task, 1, sg_host_by_name("Safe Host"));
  44
  45   XBT_INFO("Run the simulation again");
  46   tasks = SD_simulate(-1.0);
  47   xbt_dynar_free(&tasks);
  48
  49   SD_task_dump(task);
  50   XBT_INFO("Task '%s' start time: %f, finish time: %f", SD_task_get_name(task), SD_task_get_start_time(task),
  51            SD_task_get_finish_time(task));
  52
  53   SD_task_destroy(task);
  54   task=NULL;
  55
  56   XBT_INFO("Second test: NON TYPED task");
  57
  58   task = SD_task_create("Poor parallel task", NULL, 2e10);
  59   SD_task_watch(task, SD_FAILED);
  60   SD_task_watch(task, SD_DONE);
  61
  62   computation_amount[0] = 2e10;
  63
  64   XBT_INFO("Schedule task '%s' on 'Faulty Host'", SD_task_get_name(task));
  65
  66   hosts[0] = sg_host_by_name("Faulty Host");
  67   SD_task_schedule(task, 1, hosts, computation_amount, communication_amount,-1);
  68
  69   tasks = SD_simulate(-1.0);
  70   xbt_dynar_free(&tasks);
  71
  72   SD_task_dump(task);
  73
  74   XBT_INFO("Task '%s' has failed. %.f flops remain to be done", SD_task_get_name(task),
  75             SD_task_get_remaining_amount(task));
  76
  77   XBT_INFO("let's unschedule task '%s' and reschedule it on the 'Safe Host'", SD_task_get_name(task));
  78   SD_task_unschedule(task);
  79
  80   hosts[0] = sg_host_by_name("Safe Host");
  81
  82   SD_task_schedule(task, 1, hosts, computation_amount, communication_amount,-1);
  83
  84   XBT_INFO("Run the simulation again");
  85   tasks = SD_simulate(-1.0);
  86   xbt_dynar_free(&tasks);
  87
  88   SD_task_dump(task);
  89   XBT_INFO("Task '%s' start time: %f, finish time: %f", SD_task_get_name(task), SD_task_get_start_time(task),
  90            SD_task_get_finish_time(task));
  91
  92   SD_task_destroy(task);
  93   SD_exit();
  94   return 0;
  95 }