3 /* gras_stub_generator - creates the main() to use a GRAS program */
5 /* Copyright (c) 2003,2004,2005 Martin Quinson, Arnaud Legrand.
6 All rights reserved. */
8 /* This program is free software; you can redistribute it and/or modify it
9 * under the terms of the license (GNU LGPL) which comes with this package. */
11 #include"xbt/sysdep.h"
14 #include "surf/surf_parse.h"
15 #include "surf/surf.h"
17 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(stubgen,gras,"Stub generator");
19 #define WARN "/***********\n * DO NOT EDIT! THIS FILE WERE AUTOMATICALLY GENERATED FROM %s BY gras_stub_generator\n ***********/\n"
20 #define SIM_FILENAME "_%s_simulator.c"
21 #define SIM_BINARYNAME "%s_simulator"
22 #define SIM_FILENAME_LDADD "%s_simulator_LDADD"
23 #define SIM_FILENAME_SOURCES "%s_simulator_SOURCES"
24 #define RL_FILENAME "_%s_%s.c"
25 #define RL_BINARYNAME "%s_%s"
26 #define RL_FILENAME_LDADD "%s_%s_LDADD"
27 #define RL_FILENAME_SOURCES "%s_%s_SOURCES"
28 #define MAKEFILE_FILENAME "%s.Makefile.am"
32 /**********************************************/
33 /**** Generate the file for the simulator *****/
34 /**********************************************/
36 const char *SIM_PREEMBULE =
37 "#include <stdlib.h>\n"
38 "#include <stdio.h>\n"
39 "#include \"msg/msg.h\"\n"
42 "char *gras_log=NULL;\n";
45 #define SIM_LAUNCH_FUNC \
46 "int launch_%s(int argc, char **argv) {\n" \
47 " char **myargv=argv;\n" \
48 " int myargc=argc;\n" \
53 " myargv=malloc((argc+1) * sizeof(char**));\n" \
54 " for (i=0; i<argc; i++)\n" \
55 " myargv[i] = argv[i];\n" \
56 " myargv[myargc++] = gras_log;\n" \
58 " retcode = %s(myargc,myargv);\n" \
59 " if (myargv != argv)\n" \
61 " return retcode;\n" \
64 const char* SIM_MAIN_PREEMBULE =
65 "int main (int argc,char *argv[]) {\n"
68 " /* Simulation setup */\n"
69 " MSG_global_init_args(&argc,argv);\n"
71 " fprintf(stderr, \"Usage: %s platform_file application_description.txt [--gras-log=...]\\n\",argv[0]);\n"
75 " MSG_set_channel_number(10); // GRAS_MAX_CHANNEL hardcoded since Alvin killed its definition\n"
76 " MSG_create_environment(argv[1]);\n"
78 " /* Application deployment */\n";
80 const char *SIM_MAIN_POSTEMBULE = "\n"
82 " MSG_launch_application(argv[2]);\n"
84 " /* Run the simulation */\n"
87 " /* cleanup the place */\n"
94 /**********************************************/
95 /**** Generate the file for the real life *****/
96 /**********************************************/
99 "#include <stdio.h>\n" \
100 "#include <signal.h>\n" \
101 "#include <gras.h>\n" \
103 "/* user code */\n" \
104 "int %s(int argc, char *argv[]);\n" \
106 "int main(int argc, char *argv[]){\n" \
109 " errcode=%s(argc,argv);\n"\
111 " return errcode;\n"\
114 /**********************************************/
115 /********* Parse XML deployment file **********/
116 /**********************************************/
117 xbt_dict_t process_function_set = NULL;
119 static void parse_process_init(void)
121 void *p = (void *) 1231;
122 xbt_dict_set(process_function_set, A_process_function, p, NULL);
125 static void generate_sim(char *project)
127 xbt_dict_cursor_t cursor=NULL;
130 char *filename = NULL;
132 filename = xbt_new(char,strlen(project) + strlen(SIM_FILENAME));
133 sprintf(filename,SIM_FILENAME,project);
135 OUT=fopen(filename,"w");
136 xbt_assert1(OUT, "Unable to open %s for writing",filename);
138 fprintf(OUT, "%s\n",warning);
139 fprintf(OUT, "%s", SIM_PREEMBULE);
140 xbt_dict_foreach(process_function_set,cursor,key,data) {
141 fprintf(OUT,"int %s(int argc,char *argv[]);\n",key);
144 xbt_dict_foreach(process_function_set,cursor,key,data) {
145 fprintf(OUT,"int launch_%s(int argc,char *argv[]);\n",key);
147 fprintf(OUT, "\n%s\n",warning);
148 xbt_dict_foreach(process_function_set,cursor,key,data) {
149 fprintf(OUT,SIM_LAUNCH_FUNC,key,key);
151 fprintf(OUT, "\n%s\n",warning);
153 fprintf(OUT, "%s", SIM_MAIN_PREEMBULE);
154 xbt_dict_foreach(process_function_set,cursor,key,data) {
155 fprintf(OUT," MSG_function_register(\"%s\", launch_%s);\n",key,key);
157 fprintf(OUT, "%s", SIM_MAIN_POSTEMBULE);
162 static void generate_rl(char *project)
164 xbt_dict_cursor_t cursor=NULL;
167 char *filename = NULL;
170 xbt_dict_foreach(process_function_set,cursor,key,data) {
171 filename = xbt_new(char,strlen(project) + strlen(RL_FILENAME) + strlen(key));
172 sprintf(filename,RL_FILENAME,project,key);
174 OUT=fopen(filename,"w");
175 xbt_assert1(OUT, "Unable to open %s for writing",filename);
177 fprintf(OUT, "\n%s\n",warning);
178 fprintf(OUT, RL_CODE, key,key);
179 fprintf(OUT, "\n%s\n",warning);
185 static void generate_makefile(char *project, char *deployment)
187 xbt_dict_cursor_t cursor=NULL;
190 char *filename = NULL;
193 filename = xbt_new(char,strlen(project) + strlen(MAKEFILE_FILENAME));
194 sprintf(filename,MAKEFILE_FILENAME, project);
196 OUT=fopen(filename,"w");
197 xbt_assert1(OUT, "Unable to open %s for writing",filename);
199 fprintf(OUT, "# AUTOMAKE variable definition\n");
200 fprintf(OUT, "INCLUDES= @CFLAGS_SimGrid@\n\n");
201 fprintf(OUT, "PROGRAMS=");
202 fprintf(OUT, SIM_BINARYNAME,project);
204 xbt_dict_foreach(process_function_set,cursor,key,data) {
206 fprintf(OUT, RL_BINARYNAME, project, key);
209 fprintf(OUT, "\n\n");
210 fprintf(OUT, SIM_FILENAME_SOURCES,project);
212 fprintf(OUT, SIM_FILENAME,project);
213 fprintf(OUT, " %s.c\n", project);
214 fprintf(OUT, SIM_FILENAME_LDADD, project);
215 fprintf(OUT, "=\tpath/to/libsimgrid.a\n\n");
217 xbt_dict_foreach(process_function_set,cursor,key,data) {
218 fprintf(OUT, RL_FILENAME_SOURCES, project,key);
220 fprintf(OUT, RL_FILENAME, project,key);
221 fprintf(OUT, " %s.c\n", project);
222 fprintf(OUT, RL_FILENAME_LDADD, project, key);
223 fprintf(OUT, "=\tpath/to/libgras.a\n\n");
226 fprintf(OUT, "\n# cleanup temps\n");
227 fprintf(OUT, "CLEANFILES= ");
228 fprintf(OUT, SIM_FILENAME, project);
230 xbt_dict_foreach(process_function_set,cursor,key,data) {
232 fprintf(OUT, RL_FILENAME, project,key);
236 fprintf(OUT, "\n# generate temps\n");
237 fprintf(OUT, "\n# A rule to generate the source file each time the deployment file changes\n");
239 xbt_dict_foreach(process_function_set,cursor,key,data) {
240 fprintf(OUT, RL_FILENAME, project,key);
243 fprintf(OUT, SIM_FILENAME, project);
244 fprintf(OUT, ": %s\n", deployment);
245 fprintf(OUT, "\tstub_generator %s %s >/dev/null\n", project, filename);
248 int main(int argc, char *argv[])
250 char *project_name = NULL;
251 char *deployment_file = NULL;
253 surf_init(&argc, argv);
255 xbt_assert1((argc ==3),"Usage: %s project_name deployment_file\n",argv[0]);
257 project_name = argv[1];
258 deployment_file = argv[2];
260 process_function_set = xbt_dict_new();
262 STag_process_fun = parse_process_init;
263 surf_parse_open(deployment_file);
264 if(surf_parse()) xbt_assert1(0,"Parse error in %s",deployment_file);
267 warning = xbt_new(char,strlen(WARN)+strlen(deployment_file)+10);
268 sprintf(warning,WARN,deployment_file);
270 generate_sim(project_name);
271 generate_rl(project_name);
272 generate_makefile(project_name, deployment_file);