+++ /dev/null
-/* Copyright (c) 2006-2021. 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 "simgrid/simdag.h"
-#include "xbt/log.h"
-
-XBT_LOG_NEW_DEFAULT_CATEGORY(sd_typed_tasks_test, "Logging specific to this SimDag example");
-
-int main(int argc, char **argv)
-{
- unsigned int ctr;
- SD_task_t task;
-
- double computation_amount[4];
- double communication_amount[16] = { 0 };
- sg_host_t host_list[4];
-
- SD_init(&argc, argv);
-
- xbt_assert(argc > 1, "Usage: %s platform_file\n\nExample: %s two_clusters.xml", argv[0], argv[0]);
- SD_create_environment(argv[1]);
-
- sg_host_t *hosts = sg_host_list();
-
- /* creation of some typed tasks and their dependencies */
- SD_task_t seq_comp1 = SD_task_create_comp_seq("Seq. comp. 1", NULL, 1e9);
- SD_task_t e2e_comm = SD_task_create_comm_e2e("E2E comm.", NULL, 1e7);
- SD_task_t seq_comp2 = SD_task_create_comp_seq("Seq. comp 2.", NULL, 1e9);
- SD_task_t par_comp1 = SD_task_create_comp_par_amdahl("Par. Comp. 1", NULL, 1e9, 0.2);
- SD_task_t redist = SD_task_create_comm_par_mxn_1d_block("MxN redist", NULL, 1.2e8);
- SD_task_t par_comp2 = SD_task_create_comp_par_amdahl("Par. Comp. 2", NULL, 3e8, 0.5);
- SD_task_t par_comp3 = SD_task_create("Par. Comp. 3", NULL, 1e9);
-
- SD_task_dependency_add(seq_comp1, e2e_comm);
- SD_task_dependency_add(e2e_comm, seq_comp2);
-
- SD_task_dependency_add(par_comp1, redist);
- SD_task_dependency_add(redist, par_comp2);
-
- SD_task_schedulel(seq_comp1, 1, hosts[8]);
- SD_task_schedulel(seq_comp2, 1, hosts[9]);
-
- SD_task_schedulev(par_comp1, 4, hosts);
- SD_task_schedulev(par_comp2, 3, hosts);
-
- /* Let's unschedule these tasks and test the auto-scheduling in the opposite way. */
- SD_task_unschedule(par_comp1);
- SD_task_unschedule(par_comp2);
- SD_task_unschedule(redist); /* yes, it was scheduled too */
-
- SD_task_schedulev(par_comp2, 3, hosts);
- SD_task_schedulev(par_comp1, 4, hosts);
-
- for (int i=0;i<4;i++){
- host_list[i]=hosts[i+4];
- /* Apply Amdahl's law manually assuming a 20% serial part */
- computation_amount[i]=(0.2 + (1 - 0.2)/4) * SD_task_get_amount(par_comp3);
- }
-
- SD_task_schedule(par_comp3, 4, host_list, computation_amount, communication_amount, -1);
-
- xbt_dynar_t changed_tasks = xbt_dynar_new(sizeof(SD_task_t), NULL);
- SD_simulate_with_update(-1.0, changed_tasks);
- xbt_dynar_foreach(changed_tasks, ctr, task) {
- XBT_INFO("Task '%s' start time: %f, finish time: %f", SD_task_get_name(task), SD_task_get_start_time(task),
- SD_task_get_finish_time(task));
- }
-
- xbt_dynar_foreach(changed_tasks, ctr, task)
- SD_task_destroy(task);
- xbt_dynar_free_container(&changed_tasks);
-
- xbt_free(hosts);
- return 0;
-}