From: mquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Tue, 6 Jul 2004 01:01:17 +0000 (+0000)
Subject: Make sure the process get the --gras-log argument in SG mode (where the arguments... 
X-Git-Tag: v3.3~5172
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/e80868b45a605b7c4a5cdfda5ece522a3c2b2bad?hp=b8a24f4bc03d6ae054db7fd55887207ae8da9ab7

Make sure the process get the --gras-log argument in SG mode (where the arguments are usually given by the deployment file)


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@174 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---

diff --git a/examples/gras_stub_generator b/examples/gras_stub_generator
index 1c6376e9a8..9830a96d6a 100755
--- a/examples/gras_stub_generator
+++ b/examples/gras_stub_generator
@@ -48,6 +48,8 @@ $warn
 #include <msg.h>
 #include <gras.h>
 
+char *gras_log=NULL;
+    
 EOF
  ;
 foreach (keys %process) { print OUT "int $_(int argc,char *argv[]);\n";        }
@@ -57,8 +59,12 @@ print OUT "\n$warn\n";
 
 foreach (keys %process) {
     print OUT<<EOF
-int launch_$_(int argc, char *argv[]) {
-    
+int launch_$_(int argc, char **argv) {
+
+  if (gras_log) {
+      argv=realloc(argv,++argc * sizeof(char**));
+      argv[argc-1] = gras_log;
+  }
   $_(argc,argv);
   return 0;
 }
@@ -70,9 +76,23 @@ print OUT "\n$warn\n";
 
 print OUT <<EOF
 int main (int argc,char *argv[]) {
-    
-  if (argc < 3) {
-    fprintf(stderr, "Usage: %s platform_file application_description.txt [extra args]\\n",argv[0]);
+  int i,j;
+
+  /** Save the gras-log argument */
+  for (i=1; i<argc; i++) {
+    if (!strncmp(argv[i],"--gras-log=",strlen("--gras-log="))) {
+      gras_log = argv[i];
+      for (j=i+1; j<argc; j++) {
+	argv[j-1] = argv[j];
+      } 
+      argv[j-1] = NULL;
+      argc--;
+      i--; /* compensate effect of next loop incrementation */
+    }
+  }
+
+  if (argc != 3) {
+    fprintf(stderr, "Usage: %s platform_file application_description.txt [--gras-log=...]\\n",argv[0]);
     exit(1);
   }