X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/f365d61a634d854a3244979c0524de3cf3a74f72..0a4e408d9ec62f6184d591e92b365b2c0377196e:/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl
diff --git a/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl b/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl
index e5c1124f39..654f604f62 100755
--- a/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl
+++ b/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl
@@ -1,10 +1,15 @@
#! /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 :
+# Copyright (c) 2011-2012, 2014. The SimGrid Team.
+# All rights reserved.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the license (GNU LGPL) which comes with this package.
+
+# 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 +18,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 +107,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 +172,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 +181,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 +204,7 @@ sub DF_creation {
{
print OUT "\n";
@@ -208,7 +213,7 @@ sub DF_creation {
print OUT "\n";
}
print OUT "\n";
- #Â Should be done with it...
+ # Should be done with it...
return $toReturn;
}