Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Each process have to run gras_init/exit (one day, they'll have separate log settings)
[simgrid.git] / examples / gras_stub_generator
1 #! /usr/bin/perl
2
3 # gras_stub_generator - creates the main() to use a GRAS program
4
5 # Authors: Martin Quinson
6 # Copyright (C) 2003 the OURAGAN project.
7   
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.
10   
11 use strict;
12 use warnings;
13
14
15 sub usage {
16     my ($msg)=@_;
17     fail ($msg? "gras_stub_generator: $msg\n":"").
18          "gras_stub_generator: USAGE\n".
19          "  gras_stub_generator project_name deployment_file\n"
20 }
21
22 my ($project,$deploy_file)=@ARGV;
23
24 $project && $deploy_file || usage();
25
26 my (%process);
27
28 open (DEPLOY, $deploy_file) || usage("Cannot open $deploy_file: $!");
29 my $linenum=0;
30 while (<DEPLOY>) {
31     $linenum++;
32     /^\W*\w*\W*(\w*)/ || usage("$deploy_file:$linenum: Parse error");
33     $process{$1}=1;
34 }
35
36 my $warn="/***********\n * DO NOT EDIT! THIS FILE WERE AUTOMATICALLY GENERATED FROM $deploy_file BY gras_stub_generator\n ***********/\n";
37
38 #####
39 # Generate the file for the simulator
40 #####
41
42 open (OUT,">_${project}_simulator.c") || die "Cannot open _${project}_simulator,c: $!";
43 print OUT <<EOF
44 $warn
45
46 #include <stdlib.h>
47 #include <stdio.h>
48 #include <msg.h>
49 #include <gras.h>
50
51 EOF
52  ;
53 foreach (keys %process) { print OUT "int $_(int argc,char *argv[]);\n";        }
54 print OUT "\n";
55 foreach (keys %process) { print OUT "int launch_$_(int argc,char *argv[]);\n"; }
56 print OUT "\n$warn\n";
57
58 foreach (keys %process) {
59     print OUT<<EOF
60 int launch_$_(int argc, char *argv[]) {
61     
62   $_(argc,argv);
63   return 0;
64 }
65
66 EOF
67     ;
68 }
69 print OUT "\n$warn\n";
70
71 print OUT <<EOF
72 int main (int argc,char *argv[]) {
73     
74   if (argc < 3) {
75     fprintf(stderr, "Usage: %s platform_file application_description.txt [extra args]\\n",argv[0]);
76     exit(1);
77   }
78
79   /*  Simulation setup */
80   MSG_global_init();
81   MSG_set_verbosity(MSG_SILENT);
82   MSG_set_channel_number(GRAS_MAX_CHANNEL);
83   MSG_create_environment(argv[1]);
84
85   /*  Application deployment */
86 EOF
87 ;
88 foreach (keys %process) {
89     print OUT "  MSG_function_register(\"$_\", launch_$_);\n";
90 }
91 print OUT <<EOF
92
93   MSG_launch_application(argv[2]);
94
95   /*  Run the simulation */
96   MSG_main();
97
98   return 0;
99 }
100 $warn
101 EOF
102     ;
103 close OUT || die "Cannot write _${project}_simulator,c: $!";
104
105 #####
106 # Generate the files for the real life
107 #####
108 foreach my $pname (keys %process) {
109     open (OUT,">_${project}_$pname.c") || die "Cannot open _${project}_$pname,c: $!";
110     print OUT <<EOF
111 $warn
112 #include <stdio.h>
113 #include <signal.h>
114 #include <gras.h>
115
116 /* user code */
117 int $pname(int argc, char *argv[]);
118
119 $warn
120
121 int main(int argc, char *argv[]){
122   int errcode;
123
124   errcode=$pname(argc,argv);
125  
126   return errcode;
127 }
128
129 $warn
130 EOF
131 ;
132     close OUT || die "Cannot write _${project}_$pname,c: $!";
133 }
134
135 #####
136 # Outputs the Makefile.am snippet
137 #####
138
139 print ">>> Files for project '$project' successfully generated.\n";
140 print ">>> Add (and edit) the following to you Makefile.am:\n\n";
141
142 print "# AUTOMAKE variable definition\n";
143 print "INCLUDES= \@CFLAGS_GRAS\@ \@CFLAGS_XML\@ \@CFLAGS_SimGrid\@\n\n";
144 print "PROGRAMS=${project}_simulator ";
145
146 foreach (keys %process) {
147     print "${project}_$_ ";
148 }
149 print "\n\n${project}_simulator_SOURCES=\t_${project}_simulator.c $project.c\n";
150 foreach (keys %process) {
151     print "${project}_${_}_SOURCES=\t_${project}_${_}.c $project.c\n";
152 }
153
154 print "\n\n${project}_simulator_LDADD=\tpath/to/libgrassg.a \@LIBS_SimGrid\@ \@LIBS_XML\@\n";
155 foreach (keys %process) {
156     print "${project}_${_}_LDADD=\tpath/to/libgrasrl.a\n";
157 }
158
159 print "\n# cleanup temps\n";
160 print "CLEANFILES= _${project}_simulator.c ";
161 foreach (keys %process) {
162     print "_${project}_$_.c ";
163 }
164 print "\n";
165
166 print "\n# generate temps\n";
167 # A rule to generate the source file each time the deployment file changes
168 foreach (keys %process) {
169     print "_${project}_$_.c ";
170 }
171 print "_${project}_simulator.c: $deploy_file\n";
172 print "\tgras_stub_generator $project $deploy_file >/dev/null\n";
173
174
175 print "\n>>> Bye.\n"