X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/d392e12b636f36992f66d04e1ebdd38a440b27c7..6de9090dd8692387ae343c587b26915f9922d7bd:/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl
diff --git a/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl b/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl
index e5c1124f39..1acf037d3f 100755
--- a/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl
+++ b/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl
@@ -1,10 +1,10 @@
#! /usr/bin/perl
# L.Bobelin (Perl newbie) 24th of November
-#Â Quick script to generate hierarchical clusters. Usage : add the special cluster tag (description below) in your "normal" platform file. Then run the script :
+# Quick script to generate hierarchical clusters. Usage : add the special cluster tag (description below) in your "normal" platform file. Then run the script :
# - First arg : the input file where you midified your cluster tag
-#Â - Second one : the output file where all the stuff will be generated.
-#Â Builds a complete tree to access clusters ; each node of the tree is inclosed in an AS, where full routing applies.
+# - Second one : the output file where all the stuff will be generated.
+# Builds a complete tree to access clusters ; each node of the tree is inclosed in an AS, where full routing applies.
#
# Number of cluster per leaf is given by cabinetnodes attr.
#
@@ -13,19 +13,19 @@
# - nbsons : degree of inner
# - height : tree heigth
# - cabinetnodes : cluster per leaf
-#Â
-#Â Each node is numbered by a DFS in the tree. Each cluster is numbered by the DFS number of the leaf it is attached to and the number of cluster for each leaf.
-#Â
-#
+#
+# Each node is numbered by a DFS in the tree. Each cluster is numbered by the DFS number of the leaf it is attached to and the number of cluster for each leaf.
+#
+#
# Example syntax for hierarchical cluster creation :
#
# Other infos :
-#Â - special tag has to be on one line because I don't want to bother with parsing issues
+# - special tag has to be on one line because I don't want to bother with parsing issues
# - Same bb_lat used for any routers inside (not that complicated to modify too)
# - lame perl ? I'm a script kiddie in perl, it may well be my first perl stuff.
# - Don't try to check or validate the modified file with the DTD, of course, as this is not a part of it.
-#Â Counter for giving unique IDs to ASes.
+# Counter for giving unique IDs to ASes.
$ASnumber;
$ASnumber = 0;
@@ -102,14 +102,14 @@ print $infile . " -> " . $outfile . " ... Done.\n";
sub DF_creation {
my($currDepth) = @_;
- #Â Curr AS creation
+ # Curr AS creation
print OUT "\n";
- #Â Curr router AS creation stuff
+ # Curr router AS creation stuff
print OUT "\n";
print OUT " \n";
print OUT "\n";
- #Â Saving my current number to return it to my father
+ # Saving my current number to return it to my father
my $toReturn = $ASnumber;
$ASnumber++;
if ($currDepth<$height)
@@ -167,7 +167,7 @@ sub DF_creation {
print OUT "\n";
}
- #Â Creating links to clusters
+ # Creating links to clusters
for(my $i = 1; $i <= $cabinetnodes; $i++) {
print OUT "\n";
}
@@ -176,7 +176,7 @@ sub DF_creation {
# curr backbone creation
print OUT "\n";
- #Â I must create routes between clusters now
+ # I must create routes between clusters now
for (my $i =1; $i<=$cabinetnodes ; $i++)
{
for (my $j =$i+1; $j<=$cabinetnodes ; $j++)
@@ -199,7 +199,7 @@ sub DF_creation {
{
print OUT "\n";
@@ -208,7 +208,7 @@ sub DF_creation {
print OUT "\n";
}
print OUT "\n";
- #Â Should be done with it...
+ # Should be done with it...
return $toReturn;
}