Remove option for pcre from cmake files and from sources.

[simgrid.git] / buildtools / Cmake / generate_g5k_platform.pl

diff --git a/buildtools/Cmake/generate_g5k_platform.pl b/buildtools/Cmake/generate_g5k_platform.pl
index f815c21..b8ba575 100755 (executable)
--- a/buildtools/Cmake/generate_g5k_platform.pl
+++ b/buildtools/Cmake/generate_g5k_platform.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
+use Switch;
 my $toversion=3;
 
 if($#ARGV!=1) {
@@ -71,13 +72,15 @@ while(defined($line=<SITES_LIGNE>))
                {
                        if($line =~ /"uid": "(.*)",/){
                                $cluster = $1;
-                               print "\t\t\t<cluster id=\"AS_$cluster\" prefix=\"$cluster-\" suffix=\".$cluster.grid5000.fr\"\n";
+                               print "\t\t\t<cluster id=\"AS_$cluster\" prefix=\"$cluster-\" suffix=\".$site.grid5000.fr\"\n";
                                `wget https://api.grid5000.fr/2.0/grid5000/sites/$site/clusters/$cluster/nodes --http-user="$ARGV[0]" --http-password="$ARGV[1]" --no-check-certificate --quiet`;
                                open NODES_LIGNE, 'nodes' or die "Unable to open nodes $!\n";
                                while(defined($line=<NODES_LIGNE>))
                                {
                                        if($line =~ /"total": (.*),/){
-                                               print "\t\t\t\tradical=\"1-$1\" power=\"3.542E9\" bw=\"1.25E8\" lat=\"1.0E-4\""."\n";
+                                               print "\t\t\t\tradical=\"1-$1\" power=\"";
+                                               &get_gflops($cluster);
+                                               print "\" bw=\"1.25E8\" lat=\"1.0E-4\""."\n";
                                                print "\t\t\t\tbb_bw=\"1.25E9\" bb_lat=\"1.0E-4\"></cluster>\n";
                                        }
                                }
@@ -96,15 +99,15 @@ while(defined($line=<SITES_LIGNE>))
                print "\n";
                
                print "\t\t\t<ASroute src=\"^AS_(.*)\$\" dst=\"^AS_(.*)\$\"\n";
-               print "\t\t\t\tgw_src=\"\$1src-AS_\$1src_router.\$1src.grid5000.fr\"\n";
-               print "\t\t\t\tgw_dst=\"\$1dst-AS_\$1dst_router.\$1dst.grid5000.fr\"\n";
+               print "\t\t\t\tgw_src=\"\$1src-AS_\$1src_router.$site.grid5000.fr\"\n";
+               print "\t\t\t\tgw_dst=\"\$1dst-AS_\$1dst_router.$site.grid5000.fr\"\n";
                print "\t\t\t\tsymmetrical=\"YES\">\n";
                print "\t\t\t\t\t<link_ctn id=\"link_\$1src\"/>\n";
                print "\t\t\t\t\t<link_ctn id=\"link_\$1dst\"/>\n";
                print "\t\t\t</ASroute>\n\n"; 
 
                print "\t\t\t<ASroute src=\"^AS_(.*)\$\" dst=\"^gw_AS_(.*)\$\"\n";
-               print "\t\t\t\tgw_src=\"\$1src-AS_\$1src_router.\$1src.grid5000.fr\"\n";
+               print "\t\t\t\tgw_src=\"\$1src-AS_\$1src_router.$site.grid5000.fr\"\n";
                print "\t\t\t\tgw_dst=\"gw_\$1dst\"\n";
                print "\t\t\t\tsymmetrical=\"NO\">\n";
                print "\t\t\t\t\t<link_ctn id=\"link_\$1src\"/>\n";
@@ -112,7 +115,7 @@ while(defined($line=<SITES_LIGNE>))
                
                print "\t\t\t<ASroute src=\"^gw_AS_(.*)\$\" dst=\"^AS_(.*)\$\"\n";
                print "\t\t\t\tgw_src=\"gw_\$1src\"\n";
-               print "\t\t\t\tgw_dst=\"\$1dst-AS_\$1dst_router.\$1dst.grid5000.fr\"\n";
+               print "\t\t\t\tgw_dst=\"\$1dst-AS_\$1dst_router.$site.grid5000.fr\"\n";
                print "\t\t\t\tsymmetrical=\"NO\">\n";
                print "\t\t\t\t\t<link_ctn id=\"link_\$1dst\"/>\n";
                print "\t\t\t</ASroute>\n\n"; 
@@ -156,4 +159,46 @@ while(@AS_route)
 print "\t</AS>\n";
 print "</platform>\n";
 `rm sites`;
-close SITES_LIGNE;
\ No newline at end of file
+close SITES_LIGNE;
+
+
+sub get_gflops {
+       switch ($_[0]) {
+               case "bordeplage" { print "5.2297E9" }
+               case "bordereau"  { print "8.8925E9" }
+               case "borderline" { print "13.357E9" }
+               
+               case "chicon"     { print "8.9618E9" }
+               case "chimint"    { print "23.531E9" }
+               case "chinqchint" { print "22.270E9" }
+               case "chirloute"  { print "24.473E9" }
+               
+               case "adonis"     { print "23.681E9" }
+               case "edel"       { print "23.492E9" }
+               case "genepi"     { print "21.175E9" }
+               
+               case "capricorne" { print "4.7233E9" }
+               case "sagittaire" { print "5.6693E9" }
+               
+               case "graphene"   { print "16.673E9" }
+               case "griffon"    { print "20.678E9" }
+               
+               case "gdx"        { print "4.7153E9" }
+               case "netgdx"     { print "4.7144E9" }
+               
+               case "paradent"   { print "21.496E9" }
+               case "paramount"  { print "12.910E9" }
+               case "parapide"   { print "30.130E9" }
+               case "parapluie"  { print "27.391E9" }
+               
+               case "helios"     { print "7.7318E9" }
+               case "sol"        { print "8.9388E9" }
+               case "suno"       { print "23.530E9" }
+               
+               case "pastel"     { print "9.5674E9" }
+               case "violette"   { print "5.1143E9" }
+               
+               case "default"    {     print "3.542E9" }
+               else                      {     print "xxxxxxx" }
+       }
+}
\ No newline at end of file