Move surf testsuite to teshsuite

[simgrid.git] / teshsuite / surf / surf_usage / surf_usage2.c

diff --git a/teshsuite/surf/surf_usage/surf_usage2.c b/teshsuite/surf/surf_usage/surf_usage2.c
new file mode 100644 (file)
index 0000000..2e633a9
--- /dev/null
+++ b/teshsuite/surf/surf_usage/surf_usage2.c
@@ -0,0 +1,119 @@
+/* A few basic tests for the surf library                                   */
+
+/* Copyright (c) 2004-2014. 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. */
+
+#ifdef __BORLANDC__
+#pragma hdrstop
+#endif
+
+#include <stdio.h>
+#include "simgrid/sg_config.h"
+#include "surf/surf.h"
+#include "surf/surf_resource.h"
+#include "surf/surfxml_parse.h" // for reset callback
+
+#include "xbt/log.h"
+XBT_LOG_NEW_DEFAULT_CATEGORY(surf_test,
+                             "Messages specific for surf example");
+
+const char *string_action(e_surf_action_state_t state);
+const char *string_action(e_surf_action_state_t state)
+{
+  switch (state) {
+  case (SURF_ACTION_READY):
+    return "SURF_ACTION_READY";
+  case (SURF_ACTION_RUNNING):
+    return "SURF_ACTION_RUNNING";
+  case (SURF_ACTION_FAILED):
+    return "SURF_ACTION_FAILED";
+  case (SURF_ACTION_DONE):
+    return "SURF_ACTION_DONE";
+  case (SURF_ACTION_NOT_IN_THE_SYSTEM):
+    return "SURF_ACTION_NOT_IN_THE_SYSTEM";
+  default:
+    return "INVALID STATE";
+  }
+}
+
+
+void test(char *platform);
+void test(char *platform)
+{
+  void *workstationA = NULL;
+  void *workstationB = NULL;
+  double now = -1.0;
+  int running;
+
+  xbt_cfg_set_parse(_sg_cfg_set, "network/model:CM02");
+  xbt_cfg_set_parse(_sg_cfg_set, "cpu/model:Cas01");
+  parse_platform_file(platform);
+
+  /*********************** WORKSTATION ***********************************/
+  workstationA =
+      surf_workstation_resource_by_name("Cpu A");
+  workstationB =
+      surf_workstation_resource_by_name("Cpu B");
+
+  /* Let's check that those two processors exist */
+  XBT_DEBUG("%s : %p", surf_resource_name(workstationA), workstationA);
+  XBT_DEBUG("%s : %p", surf_resource_name(workstationB), workstationB);
+
+  /* Let's do something on it */
+  surf_workstation_execute(workstationA, 1000.0);
+  surf_workstation_execute(workstationB, 1000.0);
+  surf_workstation_sleep(workstationB, 7.32);
+
+  surf_workstation_model_communicate(surf_workstation_model, workstationA, workstationB, 150.0, -1.0);
+
+  surf_solve(-1.0);                 /* Takes traces into account. Returns 0.0 */
+  do {
+    surf_action_t action = NULL;
+    unsigned int iter;
+    surf_model_t model = NULL;
+    running = 0;
+
+    now = surf_get_clock();
+    XBT_DEBUG("Next Event : %g", now);
+
+    xbt_dynar_foreach(model_list, iter, model) {
+      XBT_DEBUG("\t %s actions", surf_model_name(model));
+      while ((action = surf_model_extract_failed_action_set((surf_model_t)model))) {
+        XBT_DEBUG("\t * Failed : %p", action);
+        surf_action_unref(action);
+      }
+      while ((action = surf_model_extract_done_action_set((surf_model_t)model))) {
+        XBT_DEBUG("\t * Done : %p", action);
+        surf_action_unref(action);
+      }
+      if (surf_model_running_action_set_size((surf_model_t)model)) {
+        XBT_DEBUG("running %s", surf_model_name(model));
+        running = 1;
+      }
+    }
+  } while (running && surf_solve(-1.0) >= 0.0);
+
+  XBT_DEBUG("Simulation Terminated");
+
+}
+
+#ifdef __BORLANDC__
+#pragma argsused
+#endif
+
+int main(int argc, char **argv)
+{
+  surf_init(&argc, argv);       /* Initialize some common structures */
+  if (argc == 1) {
+    fprintf(stderr, "Usage : %s platform.txt\n", argv[0]);
+    surf_exit();
+    return 1;
+  }
+  test(argv[1]);
+
+  surf_exit();
+  return 0;
+}