src/surf/workstation.c

   1 /*      $Id$     */
   2
   3 /* Copyright (c) 2004 Arnaud Legrand. All rights reserved.                  */
   4
   5 /* This program is free software; you can redistribute it and/or modify it
   6  * under the terms of the license (GNU LGPL) which comes with this package. */
   7
   8 #include "xbt/ex.h"
   9 #include "xbt/dict.h"
  10 #include "portable.h"
  11 #include "workstation_private.h"
  12 #include "cpu_private.h"
  13 #include "network_private.h"
  14
  15 surf_workstation_model_t surf_workstation_model = NULL;
  16 xbt_dict_t workstation_set = NULL;
  17
  18 static workstation_CLM03_t workstation_new(const char *name,
  19                                            void *cpu, void *card)
  20 {
  21   workstation_CLM03_t workstation = xbt_new0(s_workstation_CLM03_t, 1);
  22
  23   workstation->model = (surf_model_t) surf_workstation_model;
  24   workstation->name = xbt_strdup(name);
  25   workstation->cpu = cpu;
  26   workstation->network_card = card;
  27
  28   return workstation;
  29 }
  30
  31 static void workstation_free(void *workstation)
  32 {
  33   free(((workstation_CLM03_t) workstation)->name);
  34   free(workstation);
  35 }
  36
  37 static void create_workstations(void)
  38 {
  39   xbt_dict_cursor_t cursor = NULL;
  40   char *name = NULL;
  41   void *cpu = NULL;
  42   void *nw_card = NULL;
  43
  44   xbt_dict_foreach(cpu_set, cursor, name, cpu) {
  45     nw_card = xbt_dict_get_or_null(network_card_set, name);
  46     xbt_assert1(nw_card, "No corresponding card found for %s", name);
  47
  48     xbt_dict_set(workstation_set, name,
  49                  workstation_new(name, cpu, nw_card), workstation_free);
  50   }
  51 }
  52
  53 static void *name_service(const char *name)
  54 {
  55   return xbt_dict_get_or_null(workstation_set, name);
  56 }
  57
  58 static const char *get_resource_name(void *resource_id)
  59 {
  60   return ((workstation_CLM03_t) resource_id)->name;
  61 }
  62
  63 static int resource_used(void *resource_id)
  64 {
  65   THROW_IMPOSSIBLE;  /* This model does not implement parallel tasks */
  66 }
  67
  68 static void parallel_action_cancel(surf_action_t action)
  69 {
  70   THROW_UNIMPLEMENTED;  /* This model does not implement parallel tasks */
  71 }
  72
  73 static int parallel_action_free(surf_action_t action)
  74 {
  75   THROW_UNIMPLEMENTED;  /* This model does not implement parallel tasks */
  76 }
  77
  78 static void parallel_action_use(surf_action_t action)
  79 {
  80   THROW_UNIMPLEMENTED;  /* This model does not implement parallel tasks */
  81 }
  82
  83 static int action_free(surf_action_t action)
  84 {
  85   if (action->model_type == (surf_model_t) surf_network_model)
  86     return surf_network_model->common_public->action_free(action);
  87   else if (action->model_type == (surf_model_t) surf_cpu_model)
  88     return surf_cpu_model->common_public->action_free(action);
  89   else if (action->model_type ==
  90            (surf_model_t) surf_workstation_model)
  91     return parallel_action_free(action);
  92   else
  93     DIE_IMPOSSIBLE;
  94   return 0;
  95 }
  96
  97 static void action_use(surf_action_t action)
  98 {
  99   if (action->model_type == (surf_model_t) surf_network_model)
 100     surf_network_model->common_public->action_use(action);
 101   else if (action->model_type == (surf_model_t) surf_cpu_model)
 102     surf_cpu_model->common_public->action_use(action);
 103   else if (action->model_type ==
 104            (surf_model_t) surf_workstation_model)
 105     parallel_action_use(action);
 106   else
 107     DIE_IMPOSSIBLE;
 108   return;
 109 }
 110
 111 static void action_cancel(surf_action_t action)
 112 {
 113   if (action->model_type == (surf_model_t) surf_network_model)
 114     surf_network_model->common_public->action_cancel(action);
 115   else if (action->model_type == (surf_model_t) surf_cpu_model)
 116     surf_cpu_model->common_public->action_cancel(action);
 117   else if (action->model_type ==
 118            (surf_model_t) surf_workstation_model)
 119     parallel_action_cancel(action);
 120   else
 121     DIE_IMPOSSIBLE;
 122   return;
 123 }
 124
 125 static void action_recycle(surf_action_t action)
 126 {
 127   DIE_IMPOSSIBLE;
 128   return;
 129 }
 130
 131 static void action_change_state(surf_action_t action,
 132                                 e_surf_action_state_t state)
 133 {
 134   if (action->model_type == (surf_model_t) surf_network_model)
 135     surf_network_model->common_public->action_change_state(action,
 136                                                               state);
 137   else if (action->model_type == (surf_model_t) surf_cpu_model)
 138     surf_cpu_model->common_public->action_change_state(action, state);
 139   else if (action->model_type ==
 140            (surf_model_t) surf_workstation_model)
 141     surf_action_change_state(action, state);
 142   else
 143     DIE_IMPOSSIBLE;
 144   return;
 145 }
 146
 147 static double share_resources(double now)
 148 {
 149   return -1.0;
 150 }
 151
 152 static void update_actions_state(double now, double delta)
 153 {
 154   return;
 155 }
 156
 157 static void update_resource_state(void *id,
 158                                   tmgr_trace_event_t event_type,
 159                                   double value)
 160 {
 161   THROW_IMPOSSIBLE; /* This model does not implement parallel tasks */
 162 }
 163
 164 static surf_action_t execute(void *workstation, double size)
 165 {
 166   return surf_cpu_model->extension_public->
 167       execute(((workstation_CLM03_t) workstation)->cpu, size);
 168 }
 169
 170 static surf_action_t action_sleep(void *workstation, double duration)
 171 {
 172   return surf_cpu_model->extension_public->
 173       sleep(((workstation_CLM03_t) workstation)->cpu, duration);
 174 }
 175
 176 static void action_suspend(surf_action_t action)
 177 {
 178   if (action->model_type == (surf_model_t) surf_network_model)
 179     surf_network_model->common_public->suspend(action);
 180   else if (action->model_type == (surf_model_t) surf_cpu_model)
 181     surf_cpu_model->common_public->suspend(action);
 182   else
 183     DIE_IMPOSSIBLE;
 184 }
 185
 186 static void action_resume(surf_action_t action)
 187 {
 188   if (action->model_type == (surf_model_t) surf_network_model)
 189     surf_network_model->common_public->resume(action);
 190   else if (action->model_type == (surf_model_t) surf_cpu_model)
 191     surf_cpu_model->common_public->resume(action);
 192   else
 193     DIE_IMPOSSIBLE;
 194 }
 195
 196 static int action_is_suspended(surf_action_t action)
 197 {
 198   if (action->model_type == (surf_model_t) surf_network_model)
 199     return surf_network_model->common_public->is_suspended(action);
 200   if (action->model_type == (surf_model_t) surf_cpu_model)
 201     return surf_cpu_model->common_public->is_suspended(action);
 202   DIE_IMPOSSIBLE;
 203 }
 204
 205 static void action_set_max_duration(surf_action_t action, double duration)
 206 {
 207   if (action->model_type == (surf_model_t) surf_network_model)
 208     surf_network_model->common_public->set_max_duration(action,
 209                                                            duration);
 210   else if (action->model_type == (surf_model_t) surf_cpu_model)
 211     surf_cpu_model->common_public->set_max_duration(action, duration);
 212   else
 213     DIE_IMPOSSIBLE;
 214 }
 215
 216 static void action_set_priority(surf_action_t action, double priority)
 217 {
 218   if (action->model_type == (surf_model_t) surf_network_model)
 219     surf_network_model->common_public->set_priority(action, priority);
 220   else if (action->model_type == (surf_model_t) surf_cpu_model)
 221     surf_cpu_model->common_public->set_priority(action, priority);
 222   else
 223     DIE_IMPOSSIBLE;
 224 }
 225
 226 static surf_action_t communicate(void *workstation_src,
 227                                  void *workstation_dst, double size,
 228                                  double rate)
 229 {
 230   return surf_network_model->extension_public->
 231       communicate(((workstation_CLM03_t) workstation_src)->network_card,
 232                   ((workstation_CLM03_t) workstation_dst)->network_card,
 233                   size, rate);
 234 }
 235
 236 static e_surf_cpu_state_t get_state(void *workstation)
 237 {
 238   return surf_cpu_model->extension_public->
 239       get_state(((workstation_CLM03_t) workstation)->cpu);
 240 }
 241
 242 static double get_speed(void *workstation, double load)
 243 {
 244   return surf_cpu_model->extension_public->
 245       get_speed(((workstation_CLM03_t) workstation)->cpu, load);
 246 }
 247
 248 static double get_available_speed(void *workstation)
 249 {
 250   return surf_cpu_model->extension_public->
 251       get_available_speed(((workstation_CLM03_t) workstation)->cpu);
 252 }
 253
 254 static surf_action_t execute_parallel_task(int workstation_nb,
 255                                            void **workstation_list,
 256                                            double *computation_amount,
 257                                            double *communication_amount,
 258                                            double amount,
 259                                            double rate)
 260 {
 261   THROW_UNIMPLEMENTED;  /* This model does not implement parallel tasks */
 262 }
 263
 264
 265 /* returns an array of network_link_CM02_t */
 266 static const void **get_route(void *src, void *dst)
 267 {
 268   workstation_CLM03_t workstation_src = (workstation_CLM03_t) src;
 269   workstation_CLM03_t workstation_dst = (workstation_CLM03_t) dst;
 270   return surf_network_model->extension_public->
 271       get_route(workstation_src->network_card,
 272                 workstation_dst->network_card);
 273 }
 274
 275 static int get_route_size(void *src, void *dst)
 276 {
 277   workstation_CLM03_t workstation_src = (workstation_CLM03_t) src;
 278   workstation_CLM03_t workstation_dst = (workstation_CLM03_t) dst;
 279   return surf_network_model->extension_public->
 280       get_route_size(workstation_src->network_card,
 281                      workstation_dst->network_card);
 282 }
 283
 284 static const char *get_link_name(const void *link)
 285 {
 286   return surf_network_model->extension_public->get_link_name(link);
 287 }
 288
 289 static double get_link_bandwidth(const void *link)
 290 {
 291   return surf_network_model->extension_public->get_link_bandwidth(link);
 292 }
 293
 294 static double get_link_latency(const void *link)
 295 {
 296   return surf_network_model->extension_public->get_link_latency(link);
 297 }
 298
 299 static void finalize(void)
 300 {
 301   xbt_dict_free(&workstation_set);
 302   xbt_swag_free(surf_workstation_model->common_public->states.
 303                 ready_action_set);
 304   xbt_swag_free(surf_workstation_model->common_public->states.
 305                 running_action_set);
 306   xbt_swag_free(surf_workstation_model->common_public->states.
 307                 failed_action_set);
 308   xbt_swag_free(surf_workstation_model->common_public->states.
 309                 done_action_set);
 310
 311   free(surf_workstation_model->common_public);
 312   free(surf_workstation_model->common_private);
 313   free(surf_workstation_model->extension_public);
 314
 315   free(surf_workstation_model);
 316   surf_workstation_model = NULL;
 317 }
 318
 319 static void surf_workstation_model_init_internal(void)
 320 {
 321   s_surf_action_t action;
 322
 323   surf_workstation_model = xbt_new0(s_surf_workstation_model_t, 1);
 324
 325   surf_workstation_model->common_private =
 326       xbt_new0(s_surf_model_private_t, 1);
 327   surf_workstation_model->common_public =
 328       xbt_new0(s_surf_model_public_t, 1);
 329 /*   surf_workstation_model->extension_private = xbt_new0(s_surf_workstation_model_extension_private_t,1); */
 330   surf_workstation_model->extension_public =
 331       xbt_new0(s_surf_workstation_model_extension_public_t, 1);
 332
 333   surf_workstation_model->common_public->states.ready_action_set =
 334       xbt_swag_new(xbt_swag_offset(action, state_hookup));
 335   surf_workstation_model->common_public->states.running_action_set =
 336       xbt_swag_new(xbt_swag_offset(action, state_hookup));
 337   surf_workstation_model->common_public->states.failed_action_set =
 338       xbt_swag_new(xbt_swag_offset(action, state_hookup));
 339   surf_workstation_model->common_public->states.done_action_set =
 340       xbt_swag_new(xbt_swag_offset(action, state_hookup));
 341
 342   surf_workstation_model->common_public->name_service = name_service;
 343   surf_workstation_model->common_public->get_resource_name =
 344       get_resource_name;
 345   surf_workstation_model->common_public->action_get_state =
 346       surf_action_get_state;
 347   surf_workstation_model->common_public->action_get_start_time =
 348       surf_action_get_start_time;
 349   surf_workstation_model->common_public->action_get_finish_time =
 350       surf_action_get_finish_time;
 351   surf_workstation_model->common_public->action_free = action_free;
 352   surf_workstation_model->common_public->action_use = action_use;
 353   surf_workstation_model->common_public->action_cancel = action_cancel;
 354   surf_workstation_model->common_public->action_recycle =
 355       action_recycle;
 356   surf_workstation_model->common_public->action_change_state =
 357       action_change_state;
 358   surf_workstation_model->common_public->action_set_data =
 359       surf_action_set_data;
 360   surf_workstation_model->common_public->name = "Workstation";
 361
 362   surf_workstation_model->common_private->resource_used = resource_used;
 363   surf_workstation_model->common_private->share_resources =
 364       share_resources;
 365   surf_workstation_model->common_private->update_actions_state =
 366       update_actions_state;
 367   surf_workstation_model->common_private->update_resource_state =
 368       update_resource_state;
 369   surf_workstation_model->common_private->finalize = finalize;
 370
 371   surf_workstation_model->common_public->suspend = action_suspend;
 372   surf_workstation_model->common_public->resume = action_resume;
 373   surf_workstation_model->common_public->is_suspended =
 374       action_is_suspended;
 375   surf_workstation_model->common_public->set_max_duration =
 376       action_set_max_duration;
 377   surf_workstation_model->common_public->set_priority =
 378       action_set_priority;
 379
 380   surf_workstation_model->extension_public->execute = execute;
 381   surf_workstation_model->extension_public->sleep = action_sleep;
 382   surf_workstation_model->extension_public->get_state = get_state;
 383   surf_workstation_model->extension_public->get_speed = get_speed;
 384   surf_workstation_model->extension_public->get_available_speed =
 385       get_available_speed;
 386   surf_workstation_model->extension_public->communicate = communicate;
 387   surf_workstation_model->extension_public->execute_parallel_task =
 388       execute_parallel_task;
 389   surf_workstation_model->extension_public->get_route = get_route;
 390   surf_workstation_model->extension_public->get_route_size =
 391       get_route_size;
 392   surf_workstation_model->extension_public->get_link_name =
 393       get_link_name;
 394   surf_workstation_model->extension_public->get_link_bandwidth =
 395       get_link_bandwidth;
 396   surf_workstation_model->extension_public->get_link_latency =
 397       get_link_latency;
 398   workstation_set = xbt_dict_new();
 399 }
 400
 401 /********************************************************************/
 402 /* The model used in MSG and presented at CCGrid03                  */
 403 /********************************************************************/
 404 /* @InProceedings{Casanova.CLM_03, */
 405 /*   author = {Henri Casanova and Arnaud Legrand and Loris Marchal}, */
 406 /*   title = {Scheduling Distributed Applications: the SimGrid Simulation Framework}, */
 407 /*   booktitle = {Proceedings of the third IEEE International Symposium on Cluster Computing and the Grid (CCGrid'03)}, */
 408 /*   publisher = {"IEEE Computer Society Press"}, */
 409 /*   month = {may}, */
 410 /*   year = {2003} */
 411 /* } */
 412 void surf_workstation_model_init_CLM03(const char *filename)
 413 {
 414   surf_workstation_model_init_internal();
 415   surf_cpu_model_init_Cas01(filename);
 416   surf_network_model_init_CM02(filename);
 417   create_workstations();
 418   update_model_description(surf_workstation_model_description,
 419                               surf_workstation_model_description_size,
 420                               "CLM03",
 421                               (surf_model_t) surf_workstation_model);
 422   xbt_dynar_push(model_list, &surf_workstation_model);
 423 }
 424
 425 void surf_workstation_model_init_compound(const char *filename)
 426 {
 427
 428   xbt_assert0(surf_cpu_model, "No CPU model defined yet!");
 429   xbt_assert0(surf_network_model, "No network model defined yet!");
 430   surf_workstation_model_init_internal();
 431   create_workstations();
 432
 433   update_model_description(surf_workstation_model_description,
 434                               surf_workstation_model_description_size,
 435                               "compound",
 436                               (surf_model_t) surf_workstation_model);
 437
 438   xbt_dynar_push(model_list, &surf_workstation_model);
 439 }