Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Fix generated platform. Right number of clusters
authornavarro <navarro@caraja.(none)>
Tue, 21 Feb 2012 09:25:09 +0000 (10:25 +0100)
committernavarro <navarro@caraja.(none)>
Tue, 21 Feb 2012 09:25:09 +0000 (10:25 +0100)
examples/platforms/generation_scripts/create_hierarchical_clusters.pl

index 5ddfe9c..2378e7e 100755 (executable)
@@ -69,11 +69,11 @@ if ( $height->bcmp(Math::BigInt->new("1")) != 0 && ($height->copy()->bpow($d))->
        $height++; #will have to deal with empty set of clusters.       
        }
 # debug stuff  
-#print "Computed : \n";
-#print STDERR "height: " . $height . "\n";
-#print STDERR "totalnumberofhosts: " . $totalnumberofhosts . "\n";
-#print STDERR "totalnumberofcluster: " .  $totalnumberofCluster . "\n";
-#print STDERR "last cluster size (if equals to cluster size, then all clusters will be homogeneous) : " . $last . "\n";
+# print "Computed : \n";
+# print STDERR "height: " . $height . "\n";
+# print STDERR "totalnumberofhosts: " . $totalnumberofhosts . "\n";
+# print STDERR "totalnumberofcluster: " .  $totalnumberofCluster . "\n";
+# print STDERR "last cluster size (if equals to cluster size, then all clusters will be homogeneous) : " . $last . "\n";
 
 #┬áCounter for giving unique IDs to ASes.
 $ASnumber;
@@ -82,7 +82,7 @@ $ASnumber = 0;
 #┬áPrinting preamble
 print "<?xml version='1.0'?>\n";
 print "<!DOCTYPE platform SYSTEM \"http://simgrid.gforge.inria.fr/simgrid.dtd\">\n";
-print "<platform version=\"3\">\n";
+print "<platform version=\"3\">\n\n";
 
        
 # Initiate recursion ...
@@ -91,6 +91,7 @@ print "<platform version=\"3\">\n";
 # Closing tag, and then back home
 print "</platform>\n"; 
 
+
 # Recursive stuff for depth first Se... Creation
 sub DF_creation {
        my($currDepth) = @_;
@@ -105,7 +106,7 @@ sub DF_creation {
        #┬áSaving my current number to return it to my father
        my $toReturn = $ASnumber;
        $ASnumber++;
-       if ($currDepth<$height && $totalnumberofCluster > 0)
+       if ($currDepth<=$height && $totalnumberofCluster > 0)
                {               
                # Creating current AS inner stuff
                # I should have a table of sons numbers.