$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;
# 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 ...
# Closing tag, and then back home
print "</platform>\n";
+
# Recursive stuff for depth first Se... Creation
sub DF_creation {
my($currDepth) = @_;
# 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.