From: mquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Thu, 8 Jun 2006 17:24:07 +0000 (+0000)
Subject: Bugfix: Do run a broadcast when asked for, and a all2all when the source is not specified
X-Git-Tag: v3.3~3002
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/0882de43a110e5f02b836aef84094ae000d685ca

Bugfix: Do run a broadcast when asked for, and a all2all when the source is not specified


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

diff --git a/examples/gras/all2all/make_deployment.pl b/examples/gras/all2all/make_deployment.pl
index 996331363a..b3f2d6759a 100755
--- a/examples/gras/all2all/make_deployment.pl
+++ b/examples/gras/all2all/make_deployment.pl
@@ -20,7 +20,7 @@ EOH
 
 my $input    = shift @ARGV || usage();
 my $nb_hosts = shift @ARGV || usage();
-my $source   = shift;
+my $source   = shift || "";
 
 my @host;
 
@@ -67,7 +67,7 @@ $it_host=0;
 
 for (my $i=0; $i<$nb_hosts; $i++) {
   print "  <process host=\"".$host[$it_host]."\" function=\"receiver\">\n";
-  print "    <argument value=\"$it_port\"/><argument value=\"".(undef($source)?$nb_hosts:1)."\"/>\n";
+  print "    <argument value=\"$it_port\"/><argument value=\"".(length($source)?1:$nb_hosts)."\"/>\n";
   print "  </process>\n\n";
     
   $it_host ++;
@@ -85,7 +85,7 @@ $it_port=4000;
 $it_host=0;
 
 for (my $i=0; $i<$nb_hosts; $i++) {
-  if (undef($source) || $source == $i) {
+  if (!length($source) || $source == $i) {
       print "  <process host=\"".$host[$it_host]."\" function=\"sender\">\n";
       print $receivers;
       print "  </process>\n";
@@ -99,3 +99,5 @@ for (my $i=0; $i<$nb_hosts; $i++) {
 }
 
 print "</platform_description>\n";
+
+# print "source='$source' nb_hosts=$nb_hosts\n";