+++ /dev/null
-/* gras_stub_generator - creates the main() to use a GRAS program */
-
-/* Copyright (c) 2005, 2006, 2007, 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. */
-
-/* specific to Borland Compiler */
-#ifdef __BORLANDDC__
-#pragma hdrstop
-#endif
-
-#include <stdio.h>
-#include "xbt/sysdep.h"
-#include "xbt/function_types.h"
-#include "xbt/log.h"
-#include "surf/surfxml_parse.h"
-#include "surf/surf.h"
-#include "portable.h" /* Needed for the time of the SIMIX convertion */
-
-#include "gras_stub_generator.h"
-#include <stdarg.h>
-XBT_PUBLIC(char*)xbt_binary_name;
-
-XBT_LOG_NEW_DEFAULT_SUBCATEGORY(stubgen, gras, "Stub generator");
-
-#ifdef _XBT_WIN32
-#include <windows.h>
-#endif
-
-/* specific to Borland Compiler */
-#ifdef __BORLANDDC__
-#pragma argsused
-#endif
-
-
-/**********************************************/
-/********* Parse XML deployment file **********/
-/**********************************************/
-xbt_dict_t process_function_set = NULL;
-xbt_dynar_t process_list = NULL;
-xbt_dict_t machine_set = NULL;
-char *warning = NULL;
-
-void s_process_free(void *process)
-{
- s_process_t *p = (s_process_t *) process;
- free(p->host);
-}
-
-static s_process_t process;
-
-static void parse_process(sg_platf_process_cbarg_t process_arg)
-{
- xbt_dict_set(process_function_set, process_arg->function, NULL, NULL);
- xbt_dict_set(machine_set, process_arg->host, NULL, NULL);
- process.argc = process_arg->argc;
- process.argv = (char**)(process_arg->argv);
- process.host = strdup(process_arg->host);
- /*XBT_VERB("Function: %s",A_surfxml_process_function); */
- xbt_dynar_push(process_list, &process);
-}
-
-int main(int argc, char *argv[])
-{
- char *project_name = NULL;
- char *deployment_file = NULL;
- int i;
-
- XBT_LOG_CONNECT(stubgen);
-
- xbt_binary_name=xbt_strdup(argv[0]);
-
- surf_init(&argc, argv);
- process_function_set = xbt_dict_new_homogeneous(NULL);
- process_list = xbt_dynar_new(sizeof(s_process_t), s_process_free);
- machine_set = xbt_dict_new_homogeneous(NULL);
-
- for (i = 1; i < argc; i++) {
- int need_removal = 0;
- if (!strncmp("--extra-process=", argv[i], strlen("--extra-process="))) {
- xbt_dict_set(process_function_set,
- argv[i] + strlen("--extra-process="), NULL, NULL);
- need_removal = 1;
- }
-
-
- if (need_removal) { /* remove the handled argument from argv */
- int j;
- for (j = i + 1; j < argc; j++) {
- argv[j - 1] = argv[j];
- }
- argv[j - 1] = NULL;
- argc--;
- i--; /* compensate effect of next loop incrementation */
- }
- }
-
- xbt_assert((argc >= 3),
- "Usage: %s project_name deployment_file [deployment_file...]\n",
- argv[0]);
-
- project_name = argv[1];
-
- surf_parse_reset_callbacks();
- sg_platf_process_add_cb(parse_process);
-
- for (i = 2; i < argc; i++) {
- deployment_file = argv[i];
- surf_parse_open(deployment_file);
- if (surf_parse())
- xbt_die("Parse error in %s", deployment_file);
-
- surf_parse_close();
- }
-
-
- warning = xbt_new(char, strlen(WARN) + strlen(deployment_file) + 10);
- sprintf(warning, WARN, deployment_file);
-
- /*if(XBT_LOG_ISENABLED(stubgen, xbt_log_priority_debug)) {
- xbt_dict_cursor_t cursor=NULL;
- char *key = NULL;
- void *data = NULL;
-
- for (cursor=NULL, xbt_dict_cursor_first((process_function_set),&(cursor)) ;
- xbt_dict_cursor_get_or_free(&(cursor),&(key),(void**)(&data));
- xbt_dict_cursor_step(cursor) ) {
- XBT_DEBUG("Function %s", key);
- }
-
- xbt_dict_dump(process_function_set,print);
- } */
-
- generate_sim(project_name);
- generate_rl(project_name);
- generate_makefile_local(project_name, deployment_file);
-#ifdef __BORLANDC__
- generate_borland_simulation_project(project_name);
- generate_borland_real_life_project(project_name);
- generate_simulation_dsp_file(project_name);
- generate_real_live_dsp_file(project_name);
-
- xbt_free(__gras_path);
-#endif
-
- free(warning);
-
-
- xbt_free(process.argv);
-
- xbt_dict_free(&process_function_set);
- xbt_dynar_free(&process_list);
- xbt_dict_free(&machine_set);
- surf_exit();
-
- return 0;
-}
