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; }