-/* $Id$ */
-
-/* Copyright (c) 2002,2003,2004 Arnaud Legrand. All rights reserved. */
+/* Copyright (c) 2004, 2005, 2006, 2007, 2008, 2009, 2010. 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 "private.h"
+#include "msg/private.h"
#include "xbt/sysdep.h"
#include "xbt/log.h"
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(msg_environment, msg,
- "Logging specific to MSG (environment)");
-
+#include "xbt/dict.h"
+#ifdef HAVE_LUA
+#include <lua.h>
+#include <lauxlib.h>
+#include <lualib.h>
+#endif
+//#endif
/** \defgroup msg_easier_life Platform and Application management
* \brief This section describes functions to manage the platform creation
* and the application deployment. You should also have a look at
* \ref MSG_examples to have an overview of their usage.
+ */
+/** @addtogroup msg_easier_life
* \htmlonly <!-- DOXYGEN_NAVBAR_LABEL="Platforms and Applications" --> \endhtmlonly
*
*/
*/
m_host_t MSG_get_host_by_name(const char *name)
{
- xbt_fifo_item_t i = NULL;
- m_host_t host = NULL;
+ smx_host_t simix_h = NULL;
+ simix_h = SIMIX_req_host_get_by_name(name);
- xbt_assert0(((msg_global != NULL)
- && (msg_global->host != NULL)), "Environment not set yet");
+ if (simix_h == NULL)
+ return NULL;
- xbt_fifo_foreach(msg_global->host,i,host,m_host_t) {
- if(strcmp(host->name, name) == 0) return host;
- }
- return NULL;
+ return (m_host_t) SIMIX_req_host_get_data(simix_h);
}
/** \ingroup msg_easier_life
* \param file a filename of a xml description of a platform. This file
* follows this DTD :
*
- * \include surfxml.dtd
+ * \include simgrid.dtd
*
* Here is a small example of such a platform
*
*
* Have a look in the directory examples/msg/ to have a big example.
*/
-void MSG_create_environment(const char *file) {
- xbt_dict_cursor_t cursor = NULL;
- char *name = NULL;
- void *workstation = NULL;
- char *workstation_model_name;
-
- msg_config_init(); /* make sure that our configuration set is created */
- surf_timer_resource_init(file);
+void MSG_create_environment(const char *file)
+{
+ xbt_lib_cursor_t cursor;
+ void **data;
+ char *name;
- /* which model do you want today? */
- workstation_model_name = xbt_cfg_get_string (_msg_cfg_set, "surf_workstation_model");
+ SIMIX_create_environment(file);
- DEBUG1("Model : %s", workstation_model_name);
- if (!strcmp(workstation_model_name,"KCCFLN05")) {
- surf_workstation_resource_init_KCCFLN05(file);
+ /* Initialize MSG hosts */
+ xbt_lib_foreach(host_lib, cursor, name, data) {
+ if(data[SIMIX_HOST_LEVEL])
+ __MSG_host_create((smx_host_t)data[SIMIX_HOST_LEVEL], NULL);
}
- else if (!strcmp(workstation_model_name,"KCCFLN05_proportionnal")) {
- surf_workstation_resource_init_KCCFLN05_proportionnal(file);
- } else if (!strcmp(workstation_model_name,"CLM03")) {
- surf_workstation_resource_init_CLM03(file);
- } else {
- xbt_assert0(0,"The impossible happened (once again)");
- }
- _msg_init_status = 2; /* inited; don't change settings now */
+ return;
+}
- xbt_dict_foreach(workstation_set, cursor, name, workstation) {
- __MSG_host_create(name, workstation, NULL);
- }
+/**
+ * \brief A platform constructor bypassing the parser.
+ *
+ * load lua script file to set up new platform, including hosts,links
+ * and the routing table
+ */
+void MSG_load_platform_script(const char *script_file)
+{
+#ifdef HAVE_LUA
+ lua_State *L = lua_open();
+ luaL_openlibs(L);
+
+ if (luaL_loadfile(L, script_file) || lua_pcall(L, 0, 0, 0)) {
+ printf("error: %s\n", lua_tostring(L, -1));
+ return;
+ }
+#else
+ xbt_die
+ ("Lua is not available!! to call MSG_load_platform_script, lua should be available...");
+#endif
return;
}
-
