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 xbt_dict_t get_properties(void *workstation)
 255 {
 256   return surf_cpu_model->common_public->
 257       get_properties(((workstation_CLM03_t) workstation)->cpu);
 258 }
 259
 260 static surf_action_t execute_parallel_task(int workstation_nb,
 261                                            void **workstation_list,
 262                                            double *computation_amount,
 263                                            double *communication_amount,
 264                                            double amount,
 265                                            double rate)
 266 {
 267   THROW_UNIMPLEMENTED;  /* This model does not implement parallel tasks */
 268 }
 269
 270
 271 /* returns an array of network_link_CM02_t */
 272 static const void **get_route(void *src, void *dst)
 273 {
 274   workstation_CLM03_t workstation_src = (workstation_CLM03_t) src;
 275   workstation_CLM03_t workstation_dst = (workstation_CLM03_t) dst;
 276   return surf_network_model->extension_public->
 277       get_route(workstation_src->network_card,
 278                 workstation_dst->network_card);
 279 }
 280
 281 static int get_route_size(void *src, void *dst)
 282 {
 283   workstation_CLM03_t workstation_src = (workstation_CLM03_t) src;
 284   workstation_CLM03_t workstation_dst = (workstation_CLM03_t) dst;
 285   return surf_network_model->extension_public->
 286       get_route_size(workstation_src->network_card,
 287                      workstation_dst->network_card);
 288 }
 289
 290 static const char *get_link_name(const void *link)
 291 {
 292   return surf_network_model->extension_public->get_link_name(link);
 293 }
 294
 295 static double get_link_bandwidth(const void *link)
 296 {
 297   return surf_network_model->extension_public->get_link_bandwidth(link);
 298 }
 299
 300 static double get_link_latency(const void *link)
 301 {
 302   return surf_network_model->extension_public->get_link_latency(link);
 303 }
 304
 305 static void finalize(void)
 306 {
 307   xbt_dict_free(&workstation_set);
 308   xbt_swag_free(surf_workstation_model->common_public->states.
 309                 ready_action_set);
 310   xbt_swag_free(surf_workstation_model->common_public->states.
 311                 running_action_set);
 312   xbt_swag_free(surf_workstation_model->common_public->states.
 313                 failed_action_set);
 314   xbt_swag_free(surf_workstation_model->common_public->states.
 315                 done_action_set);
 316
 317   free(surf_workstation_model->common_public);
 318   free(surf_workstation_model->common_private);
 319   free(surf_workstation_model->extension_public);
 320
 321   free(surf_workstation_model);
 322   surf_workstation_model = NULL;
 323 }
 324
 325 static void surf_workstation_model_init_internal(void)
 326 {
 327   s_surf_action_t action;
 328
 329   surf_workstation_model = xbt_new0(s_surf_workstation_model_t, 1);
 330
 331   surf_workstation_model->common_private =
 332       xbt_new0(s_surf_model_private_t, 1);
 333   surf_workstation_model->common_public =
 334       xbt_new0(s_surf_model_public_t, 1);
 335 /*   surf_workstation_model->extension_private = xbt_new0(s_surf_workstation_model_extension_private_t,1); */
 336   surf_workstation_model->extension_public =
 337       xbt_new0(s_surf_workstation_model_extension_public_t, 1);
 338
 339   surf_workstation_model->common_public->states.ready_action_set =
 340       xbt_swag_new(xbt_swag_offset(action, state_hookup));
 341   surf_workstation_model->common_public->states.running_action_set =
 342       xbt_swag_new(xbt_swag_offset(action, state_hookup));
 343   surf_workstation_model->common_public->states.failed_action_set =
 344       xbt_swag_new(xbt_swag_offset(action, state_hookup));
 345   surf_workstation_model->common_public->states.done_action_set =
 346       xbt_swag_new(xbt_swag_offset(action, state_hookup));
 347
 348   surf_workstation_model->common_public->name_service = name_service;
 349   surf_workstation_model->common_public->get_resource_name =
 350       get_resource_name;
 351   surf_workstation_model->common_public->action_get_state =
 352       surf_action_get_state;
 353   surf_workstation_model->common_public->action_get_start_time =
 354       surf_action_get_start_time;
 355   surf_workstation_model->common_public->action_get_finish_time =
 356       surf_action_get_finish_time;
 357   surf_workstation_model->common_public->action_free = action_free;
 358   surf_workstation_model->common_public->action_use = action_use;
 359   surf_workstation_model->common_public->action_cancel = action_cancel;
 360   surf_workstation_model->common_public->action_recycle =
 361       action_recycle;
 362   surf_workstation_model->common_public->action_change_state =
 363       action_change_state;
 364   surf_workstation_model->common_public->action_set_data =
 365       surf_action_set_data;
 366   surf_workstation_model->common_public->name = "Workstation";
 367
 368   surf_workstation_model->common_private->resource_used = resource_used;
 369   surf_workstation_model->common_private->share_resources =
 370       share_resources;
 371   surf_workstation_model->common_private->update_actions_state =
 372       update_actions_state;
 373   surf_workstation_model->common_private->update_resource_state =
 374       update_resource_state;
 375   surf_workstation_model->common_private->finalize = finalize;
 376
 377   surf_workstation_model->common_public->suspend = action_suspend;
 378   surf_workstation_model->common_public->resume = action_resume;
 379   surf_workstation_model->common_public->is_suspended =
 380       action_is_suspended;
 381   surf_workstation_model->common_public->set_max_duration =
 382       action_set_max_duration;
 383   surf_workstation_model->common_public->set_priority =
 384       action_set_priority;
 385
 386   surf_workstation_model->extension_public->execute = execute;
 387   surf_workstation_model->extension_public->sleep = action_sleep;
 388   surf_workstation_model->extension_public->get_state = get_state;
 389   surf_workstation_model->extension_public->get_speed = get_speed;
 390   surf_workstation_model->extension_public->get_available_speed =
 391       get_available_speed;
 392
 393   /*manage the properties of the workstation*/
 394   surf_workstation_model->common_public->get_properties = get_properties;
 395
 396   surf_workstation_model->extension_public->communicate = communicate;
 397   surf_workstation_model->extension_public->execute_parallel_task =
 398       execute_parallel_task;
 399   surf_workstation_model->extension_public->get_route = get_route;
 400   surf_workstation_model->extension_public->get_route_size =
 401       get_route_size;
 402   surf_workstation_model->extension_public->get_link_name =
 403       get_link_name;
 404   surf_workstation_model->extension_public->get_link_bandwidth =
 405       get_link_bandwidth;
 406   surf_workstation_model->extension_public->get_link_latency =
 407       get_link_latency;
 408   workstation_set = xbt_dict_new();
 409 }
 410
 411 /********************************************************************/
 412 /* The model used in MSG and presented at CCGrid03                  */
 413 /********************************************************************/
 414 /* @InProceedings{Casanova.CLM_03, */
 415 /*   author = {Henri Casanova and Arnaud Legrand and Loris Marchal}, */
 416 /*   title = {Scheduling Distributed Applications: the SimGrid Simulation Framework}, */
 417 /*   booktitle = {Proceedings of the third IEEE International Symposium on Cluster Computing and the Grid (CCGrid'03)}, */
 418 /*   publisher = {"IEEE Computer Society Press"}, */
 419 /*   month = {may}, */
 420 /*   year = {2003} */
 421 /* } */
 422 void surf_workstation_model_init_CLM03(const char *filename)
 423 {
 424   surf_workstation_model_init_internal();
 425   surf_cpu_model_init_Cas01(filename);
 426   surf_network_model_init_CM02(filename);
 427   create_workstations();
 428   update_model_description(surf_workstation_model_description,
 429                               surf_workstation_model_description_size,
 430                               "CLM03",
 431                               (surf_model_t) surf_workstation_model);
 432   xbt_dynar_push(model_list, &surf_workstation_model);
 433 }
 434
 435 void surf_workstation_model_init_compound(const char *filename)
 436 {
 437
 438   xbt_assert0(surf_cpu_model, "No CPU model defined yet!");
 439   xbt_assert0(surf_network_model, "No network model defined yet!");
 440   surf_workstation_model_init_internal();
 441   create_workstations();
 442
 443   update_model_description(surf_workstation_model_description,
 444                               surf_workstation_model_description_size,
 445                               "compound",
 446                               (surf_model_t) surf_workstation_model);
 447
 448   xbt_dynar_push(model_list, &surf_workstation_model);
 449 }