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