Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
kill two deprecated scripts and an unused tesh file
authorMartin Quinson <martin.quinson@loria.fr>
Mon, 22 Feb 2016 09:41:18 +0000 (10:41 +0100)
committerMartin Quinson <martin.quinson@loria.fr>
Mon, 22 Feb 2016 10:30:34 +0000 (11:30 +0100)
Nobody would use them nowadays

examples/platforms/generation_scripts/create_hierarchical_clusters.pl [deleted file]
examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl [deleted file]
examples/simdag/metaxml/CMakeLists.txt
examples/simdag/metaxml/metaxml_test2.tesh [deleted file]
tools/cmake/DefinePackages.cmake

diff --git a/examples/platforms/generation_scripts/create_hierarchical_clusters.pl b/examples/platforms/generation_scripts/create_hierarchical_clusters.pl
deleted file mode 100755 (executable)
index f655761..0000000
+++ /dev/null
@@ -1,226 +0,0 @@
-#! /usr/bin/env perl
-
-# 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 : <the script> p s d  where :
-# - p : 2^p gives the total number of hosts.
-# - s : cluster size
-# - d : degree of inner nodes.
-#
-# output is the standard one.
-#
-#
-#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. 
-# Other infos : 
-# - Same bb_lat used for any routers inside (not that complicated to modify too).
-# - constants defined in the first part of the script corresponding to classic cluster parameters. links_bw and links_lat added for the inner tree links
-# - bb_lat and bb_bw used in any backbone of the tree.
-# - fails if you set an obviously too small total number of hosts compared to the cluster size (generates a lot of stuff for nothing actually).
-#
-
-use Math::BigInt;
-
-$prefix= ""; 
-$suffix= "";
-$bw= "125000000";
-$power= "1000000000";
-$lat= "5E-5";
-$bb_bw= "2250000000";
-$bb_lat= "5E-4"; 
-$links_bw= "2250000000";
-$links_lat= "5E-5";
-$id= "";
-
-$p = $ARGV[0];
-$s = $ARGV[1];
-$d = $ARGV[2];
-
-$p = Math::BigInt->new($p);
-$d = Math::BigInt->new($d);
-$s = Math::BigInt->new($s);
-
-$cabinetnodes= $d;
-$nbsons= $d;
-$radical= "1-" . $s;
-$last=$s;
-
-# Number of clusters to generate ? Update: I hate this bigInt package, the way it behaves is SO stupid 
-$totalnumberofhosts = Math::BigInt->new("2");
-$totalnumberofhosts->bpow($p);
-
-$totalnumberofCluster= $totalnumberofhosts->copy();
-
-$totalnumberofCluster->bdiv($s);
-
-# checking if we have to have something non homogeneous
-if ($totalnumberofhosts->copy()->bmod($s) != 0 ) 
-       {
-               $totalnumberofCluster++;
-               $last= $totalnumberofhosts->copy()->bmod($s);
-       }
-
-# Calculating height
-
-$height= $totalnumberofCluster->copy();
-$height->broot($d);
-
-# Checking if an exact root exists
-if ( $height->bcmp(Math::BigInt->new("1")) != 0 && ($height->copy()->bpow($d))->bcmp($totalnumberofCluster)) { 
-       
-       $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";
-
-# Counter for giving unique IDs to ASes.
-$ASnumber;
-$ASnumber = 0;
-
-# 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\n";
-
-       
-# Initiate recursion ...
-&DF_creation(0);
-
-# Closing tag, and then back home
-print "</platform>\n"; 
-
-
-# Recursive stuff for depth first Se... Creation
-sub DF_creation {
-       my($currDepth) = @_;
-       
-       # Curr AS creation
-       print "<AS id=\"". $prefix . "AS_" . $ASnumber . $suffix . "\"  routing=\"Full\">\n";   
-       
-       # Curr router AS creation stuff
-       print "<AS id=\"". $prefix . "exitAS_" . $ASnumber . $suffix . "\"  routing=\"Full\">\n";                        
-       print " <router id=\"" . $prefix . "router_" . $ASnumber . $suffix . "\"/>\n";
-       print "</AS>\n";
-       # Saving my current number to return it to my father
-       my $toReturn = $ASnumber;
-       $ASnumber++;
-       if ($currDepth<=$height && $totalnumberofCluster > 0)
-               {               
-               # Creating current AS inner stuff
-               # I should have a table of sons numbers.
-               my @tsons = ();
-               my $createdSons = 0;
-               for (my $i =1; $i<=$nbsons && $totalnumberofCluster > 0 ; $i++)
-               {
-               #saving this son in my tab ...  recursive call to create ASes and cluster underneath
-               push(@tsons, &DF_creation($currDepth + 1)); 
-               $createdSons++;
-               #               
-               # Creating link to this son
-               print "<link id=\"". $prefix . $tsons[$i-1] . $suffix . "\" bandwidth=\"" . $links_bw . "\" latency=\"" . $links_lat . "\"/>\n";        
-               }
-               # curr backbone creation 
-               print "<link id=\"". $prefix . "bb_" . $toReturn . $suffix . "\" bandwidth=\"" . $bb_bw . "\" latency=\"" . $bb_lat . "\"/>\n";
-               # Full routing AS to AS declaration
-               for (my $i =1; $i<=$createdSons ; $i++)
-               {
-                                       for (my $j =$i+1; $j<=$createdSons ; $j++)
-                                       {
-                                               print  "<ASroute src=\"" . $prefix . "AS_" . $tsons[$i-1] . $suffix . "\"\n";
-                                               print " dst=\"" . $prefix . "AS_" . $tsons[$j-1] . $suffix . "\"\n";
-                                               print " gw_src=\"" . $prefix . "router_" . $tsons[$i-1] . $suffix . "\"\n";
-                                               print " gw_dst=\"" . $prefix . "router_" . $tsons[$j-1] . $suffix . "\"\n";
-                                               print " symmetrical=\"YES\">\n";
-                                               
-                                               print "         <link_ctn id=\"" . $prefix . $tsons[$i-1] . $suffix . "\"/>\n";
-                                               print "         <link_ctn id=\"" . $prefix . "bb_" . $toReturn . $suffix . "\"/>\n"; 
-                                               print "         <link_ctn id=\"" . $prefix . $tsons[$j-1] . $suffix . "\"/>\n";
-                                               print "</ASroute>\n";
-                                       }
-               }
-               # Now routes to the exit AS
-               for (my $i =1; $i<=$createdSons ; $i++)
-               {
-                       print  "<ASroute src=\"" . $prefix . "AS_" . $tsons[$i-1] . $suffix . "\"\n";
-                       print " dst=\"" . $prefix . "exitAS_" . $toReturn . $suffix . "\"\n";
-                       print " gw_src=\"" . $prefix . "router_" . $tsons[$i-1] . $suffix . "\"\n";
-                       print " gw_dst=\"" . $prefix . "router_" . $toReturn . $suffix . "\"\n";
-                       print " symmetrical=\"YES\">\n";                                                
-                       print "         <link_ctn id=\"" . $prefix . $tsons[$i-1] . $suffix . "\"/>\n";
-                       print "         <link_ctn id=\"" . $prefix . "bb_" . $toReturn . $suffix . "\"/>\n"; 
-                       print "</ASroute>\n";                   
-               }
-               print "</AS>\n";
-               # DO I have extra stuff to add ? I don't think so.              
-               return $toReturn;
-               }
-       else { # On leaves, 
-               my $lastNumberOfClusterCreated = 0;     
-               #I must create clusters now
-               for(my $i = 1; $i <= $cabinetnodes && $totalnumberofCluster>0 ; $i++) {
-                       $lastNumberOfClusterCreated++;
-                       if ($totalnumberofCluster==1)
-                       {
-                       print "<cluster id=\"". $prefix . "cl_" . $toReturn . "_" . $i . $suffix . "\" prefix=\"" . $prefix . "c_" . $toReturn . "_" . $i . "-\" suffix=\"" . $suffix . "\" radical=\"1-"
-                               . $last . "\" power=\"" . $power . "\" bw=\"" . $bw . "\" lat=\"" . $lat . "\" bb_bw=\"" . $bb_bw . "\" bb_lat=\"" . $bb_lat . "\"/>\n";        
-                       }
-                       else 
-                       {       
-                       print "<cluster id=\"". $prefix . "cl_" . $toReturn . "_" . $i . $suffix . "\" prefix=\"" . $prefix . "c_" . $toReturn . "_" . $i . "-\" suffix=\"" . $suffix . "\" radical=\""
-                               . $radical . "\" power=\"" . $power . "\" bw=\"" . $bw . "\" lat=\"" . $lat . "\" bb_bw=\"" . $bb_bw . "\" bb_lat=\"" . $bb_lat . "\"/>\n";     
-                       }
-                       $totalnumberofCluster--;
-                       }       
-               # Creating links to clusters
-               for(my $i = 1; $i <= $lastNumberOfClusterCreated ; $i++) {
-                       print "<link id=\"". $prefix . $toReturn . "_" . $i . $suffix . "\" bandwidth=\"" . $links_bw . "\" latency=\"" . $links_lat . "\"/>\n";
-               }
-
-               # 
-               # curr backbone creation 
-               print "<link id=\"". $prefix . "bb_" . $toReturn . $suffix . "\" bandwidth=\"" . $bb_bw . "\" latency=\"" . $bb_lat . "\"/>\n";
-       
-               # I must create routes between clusters now 
-               for (my $i =1; $i<=$lastNumberOfClusterCreated ; $i++)
-                       {
-                                       for (my $j =$i+1; $j<=$lastNumberOfClusterCreated ; $j++)
-                                       {
-                                               print  "<ASroute src=\"" . $prefix . "cl_" . $toReturn . "_" . $i . $suffix .  "\"\n";
-                                               print " dst=\"" .  $prefix . "cl_" . $toReturn . "_" . $j . $suffix .  "\"\n";
-
-                                               print " gw_src=\"" . $prefix . "c_" . $toReturn . "_" . $i . "-" . $prefix . "cl_" . $toReturn . "_" . $i . $suffix . "_router" . $suffix  ."\"\n";
-                                               print " gw_dst=\"" . $prefix . "c_" . $toReturn . "_" . $j . "-" . $prefix . "cl_" . $toReturn . "_" . $j . $suffix  . "_router" . $suffix . "\"\n";
-                                               print " symmetrical=\"YES\">\n";
-                                               
-                                               print "         <link_ctn id=\"" . $prefix . $toReturn. "_" . $i . $suffix . "\"/>\n";
-                                               print "         <link_ctn id=\"" . $prefix . "bb_" . $toReturn . $suffix . "\"/>\n"; 
-                                               print "         <link_ctn id=\"" . $prefix . $toReturn . "_" . $j . $suffix . "\"/>\n";
-                                               print "</ASroute>\n";
-                                       }
-                       }
-               # Now routes to the exit AS
-               for (my $i =1; $i<=$lastNumberOfClusterCreated ; $i++)
-               {
-                       print  "<ASroute src=\""  . $prefix . "cl_" . $toReturn . "_" . $i . $suffix  . "\"\n";
-                       print " dst=\"" . $prefix . "exitAS_" . $toReturn . $suffix . "\"\n";
-                       # SAME HERE !!
-                       print " gw_src=\"" . $prefix . "c_" . $toReturn . "_" . $i . "-" . $prefix . "cl_" . $toReturn . "_" . $i . $suffix . "_router" . $suffix  ."\"\n";
-                       print " gw_dst=\"" . $prefix . "router_" . $toReturn . $suffix . "\"\n";
-                       print " symmetrical=\"YES\">\n";                                                
-                       print "         <link_ctn id=\"" . $prefix . $toReturn . "_" . $i . $suffix . "\"/>\n";
-                       print "         <link_ctn id=\"" . $prefix . "bb_" . $toReturn . $suffix . "\"/>\n"; 
-                       print "</ASroute>\n";                   
-               }
-               print "</AS>\n";
-       # Should be done with it...
-       return $toReturn;
-       }
-
-}
diff --git a/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl b/examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl
deleted file mode 100755 (executable)
index dd56ba8..0000000
+++ /dev/null
@@ -1,220 +0,0 @@
-#! /usr/bin/env perl
-
-# 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.
-#
-# Number of cluster per leaf is given by cabinetnodes attr.
-#
-#
-# Choosed to modify a cluster tag to allow to give additional informations : 
-# - 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. 
-#
-#
-# Example syntax for hierarchical cluster creation : 
-# <cluster id="AS_cb1" prefix="cb1-" suffix=".dc1.acloud.com" power="5.2297E9" bw="1.25E8" lat="1.0E-4 bb_bw="1.25E9" bb_lat="1.0E-4" radical="0-99" cabinetnodes="4" height="3" nbsons="2" links_lat="1.0E-4" links_bw="1.25E9"/>
-# Other infos : 
-# - 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.
-$ASnumber;
-$ASnumber = 0;
-
-$infile;
-$outfile; 
-
-$infile = $ARGV[0];
-$outfile = $ARGV[1];
-open IN, "$infile" || die "Cannot parse " . $infile . " ...\n";
-open OUT,">$outfile" || die "Cannot use the output file " . $outfile . " ...\n";
-my $line;
-while ($line = <IN>) {
-# looking for good lines. 
-if ($line =~ / cabinetnodes=/) 
-{ #Retrieving informations
-       ($line=~ /cabinetnodes=\"([^\"]*)/);
-       $cabinetnodes= $1;
-       ($line=~ /height=\"([^\"]*)/);
-       $height= $1;
-       ($line=~ /nbsons=\"([^\"]*)/);
-       $nbsons= $1;
-        ($line=~ /id=\"([^\"]*)/);
-       $id= $1;
-       ($line=~ /prefix=\"([^\"]*)/);
-       $prefix= $1; 
-       ($line=~ /suffix=\"([^\"]*)/);
-       $suffix= $1;
-       ($line=~ /bw=\"([^\"]*)/);
-       $bw= $1;
-       ($line=~ /power=\"([^\"]*)/);
-       $power= $1;
-       ($line=~ /lat=\"([^\"]*)/);
-       $lat= $1;
-       ($line=~ /bb_bw=\"([^\"]*)/);
-       $bb_bw= $1;
-       ($line=~ /bb_lat=\"([^\"]*)/);
-       $bb_lat= $1; 
-       ($line=~ /links_bw=\"([^\"]*)/);
-       $links_bw= $1;
-       ($line=~ /links_lat=\"([^\"]*)/);
-       $links_lat= $1;
-       ($line=~ /radical=\"([^\"]*)/);
-       $radical= $1;
-
-       print "Variables read : \n";
-       print "number of clusters in each cabinet: " . $cabinetnodes . "\n";
-       print "Tree heigth: " . $height . "\n";
-       print "Degree of each node: " . $nbsons . "\n";
-       print "General id: ". $id . "\n";
-       print "General prefix: " . $prefix . "\n";
-       print "General suffix: ". $suffix . "\n";
-       print "Bandwidth for cluster inner links: " . $bw . "\n";
-       print "Power for cluster nodes: " . $power . "\n";
-       print "Latency for clusters inner links :" . $lat . "\n";
-       print "Backbone bandwwidth (used in all backbones, including the tree ones):" . $bb_bw . "\n";
-       print "Backbone latency (used in all backbones, including the tree ones):" . $bb_lat . "\n";
-       print "Tree links bandwidth: " . $links_bw . "\n";
-       print "Tree links latency: " . $links_lat . "\n";
-       print "Radical: " . $radical . "\n";
-
-       
-       
-       &DF_creation(0);
-       }
-else {
-print OUT $line;
-}
-} #End while
-close IN;
-close OUT;
-print $infile . " -> " . $outfile . " ... Done.\n";
-
-# Recursive stuff for depth first Se... Creation
-sub DF_creation {
-       my($currDepth) = @_;
-       
-       # Curr AS creation
-       print OUT "<AS id=\"". $prefix . "AS_" . $ASnumber . $suffix . "\"  routing=\"Full\">\n";       
-       
-       # Curr router AS creation stuff
-       print OUT "<AS id=\"". $prefix . "exitAS_" . $ASnumber . $suffix . "\"  routing=\"Full\">\n";                    
-       print OUT "     <router id=\"" . $prefix . "router_" . $ASnumber . $suffix . "\"/>\n";
-       print OUT "</AS>\n";
-       # Saving my current number to return it to my father
-       my $toReturn = $ASnumber;
-       $ASnumber++;
-       if ($currDepth<$height)
-               {                               
-               # Creating current AS inner stuff
-               # I should have a table of sons numbers.
-               my @tsons = ();
-               for (my $i =1; $i<=$nbsons ; $i++)
-               {
-               #saving this son in my tab ...  recursive call to create ASes and cluster underneath
-               push(@tsons, &DF_creation($currDepth + 1)); 
-               #               
-               # Creating link to this son
-               print OUT "<link id=\"". $prefix . $tsons[$i-1] . $suffix . "\" bandwidth=\"" . $links_bw . "\" latency=\"" . $links_lat . "\"/>\n";    
-               }
-               # curr backbone creation 
-               print OUT "<link id=\"". $prefix . "bb_" . $toReturn . $suffix . "\" bandwidth=\"" . $bb_bw . "\" latency=\"" . $bb_lat . "\"/>\n";
-               # Full routing AS to AS declaration
-               for (my $i =1; $i<=$nbsons ; $i++)
-               {
-                                       for (my $j =$i+1; $j<=$nbsons ; $j++)
-                                       {
-                                               print OUT  "<ASroute src=\"" . $prefix . "AS_" . $tsons[$i-1] . $suffix . "\"\n";
-                                               print OUT "     dst=\"" . $prefix . "AS_" . $tsons[$j-1] . $suffix . "\"\n";
-                                               print OUT "     gw_src=\"" . $prefix . "router_" . $tsons[$i-1] . $suffix . "\"\n";
-                                               print OUT "     gw_dst=\"" . $prefix . "router_" . $tsons[$j-1] . $suffix . "\"\n";
-                                               print OUT "     symmetrical=\"YES\">\n";
-                                               
-                                               print OUT "             <link_ctn id=\"" . $prefix . $tsons[$i-1] . $suffix . "\"/>\n";
-                                               print OUT "             <link_ctn id=\"" . $prefix . "bb_" . $toReturn . $suffix . "\"/>\n"; 
-                                               print OUT "             <link_ctn id=\"" . $prefix . $tsons[$j-1] . $suffix . "\"/>\n";
-                                               print OUT "</ASroute>\n";
-                                       }
-               }
-               # Now routes to the exit AS
-               for (my $i =1; $i<=$nbsons ; $i++)
-               {
-                       print OUT  "<ASroute src=\"" . $prefix . "AS_" . $tsons[$i-1] . $suffix . "\"\n";
-                       print OUT "     dst=\"" . $prefix . "exitAS_" . $toReturn . $suffix . "\"\n";
-                       print OUT "     gw_src=\"" . $prefix . "router_" . $tsons[$i-1] . $suffix . "\"\n";
-                       print OUT "     gw_dst=\"" . $prefix . "router_" . $toReturn . $suffix . "\"\n";
-                       print OUT "     symmetrical=\"YES\">\n";                                                
-                       print OUT "             <link_ctn id=\"" . $prefix . $tsons[$i-1] . $suffix . "\"/>\n";
-                       print OUT "             <link_ctn id=\"" . $prefix . "bb_" . $toReturn . $suffix . "\"/>\n"; 
-                       print OUT "</ASroute>\n";                       
-               }
-               print OUT "</AS>\n";
-               # DO I have extra stuff to add ? I don't think so.              
-               return $toReturn;
-               }
-       else { # On leaves, 
-                       
-               #I must create clusters now
-               for(my $i = 1; $i <= $cabinetnodes; $i++) {
-                       print OUT "<cluster id=\"". $prefix . "cluster_" . $toReturn . $i . $suffix . "\" prefix=\"" . $prefix . "c_" . $toReturn. $i . "-\" suffix=\"" . $suffix . "\" radical=\""
-                               . $radical . "\" power=\"" . $power . "\" bw=\"" . $bw . "\" lat=\"" . $lat . "\" bb_bw=\"" . $bb_bw . "\" bb_lat=\"" . $bb_lat . "\"/>\n";     
-                       }       
-               # Creating links to clusters
-               for(my $i = 1; $i <= $cabinetnodes; $i++) {
-                       print OUT "<link id=\"". $prefix . $toReturn . "_" . $i . $suffix . "\" bandwidth=\"" . $links_bw . "\" latency=\"" . $links_lat . "\"/>\n";
-               }
-
-               # 
-               # curr backbone creation 
-               print OUT "<link id=\"". $prefix . "bb_" . $toReturn . $suffix . "\" bandwidth=\"" . $bb_bw . "\" latency=\"" . $bb_lat . "\"/>\n";
-       
-               # I must create routes between clusters now
-               for (my $i =1; $i<=$cabinetnodes ; $i++)
-                       {
-                                       for (my $j =$i+1; $j<=$cabinetnodes ; $j++)
-                                       {
-                                               print OUT  "<ASroute src=\"" . $prefix . "cluster_" . $toReturn . $i . $suffix .  "\"\n";
-                                               print OUT "     dst=\"" .  $prefix . "cluster_" . $toReturn . $j . $suffix .  "\"\n";
-
-                                               print OUT "     gw_src=\"" . $prefix . "c_" . $toReturn. $i . "-" . $prefix . "cluster_" . $toReturn . $i . $suffix . "_router" . $suffix  ."\"\n";
-                                               print OUT "     gw_dst=\"" . $prefix . "c_" . $toReturn. $j . "-" . $prefix . "cluster_" . $toReturn . $j . $suffix  . "_router" . $suffix . "\"\n";
-                                               print OUT "     symmetrical=\"YES\">\n";
-                                               
-                                               print OUT "             <link_ctn id=\"" . $prefix . $toReturn. "_" . $i . $suffix . "\"/>\n";
-                                               print OUT "             <link_ctn id=\"" . $prefix . "bb_" . $toReturn . $suffix . "\"/>\n"; 
-                                               print OUT "             <link_ctn id=\"" . $prefix . $toReturn . "_" . $j . $suffix . "\"/>\n";
-                                               print OUT "</ASroute>\n";
-                                       }
-                       }
-               # Now routes to the exit AS
-               for (my $i =1; $i<=$cabinetnodes ; $i++)
-               {
-                       print OUT  "<ASroute src=\""  . $prefix . "cluster_" . $toReturn . $i . $suffix  . "\"\n";
-                       print OUT "     dst=\"" . $prefix . "exitAS_" . $toReturn . $suffix . "\"\n";
-                       # SAME HERE !!
-                       print OUT "     gw_src=\"" . $prefix . "c_" . $toReturn. $i . "-" . $prefix . "cluster_" . $toReturn . $i . $suffix . "_router" . $suffix  ."\"\n";
-                       print OUT "     gw_dst=\"" . $prefix . "router_" . $toReturn . $suffix . "\"\n";
-                       print OUT "     symmetrical=\"YES\">\n";                                                
-                       print OUT "             <link_ctn id=\"" . $prefix . $toReturn . "_" . $i . $suffix . "\"/>\n";
-                       print OUT "             <link_ctn id=\"" . $prefix . "bb_" . $toReturn . $suffix . "\"/>\n"; 
-                       print OUT "</ASroute>\n";                       
-               }
-               print OUT "</AS>\n";
-       # Should be done with it...
-       return $toReturn;
-       }
-
-}
index 831b4ca..2175b08 100644 (file)
@@ -12,7 +12,6 @@ endif()
 set(tesh_files
   ${tesh_files}
   ${CMAKE_CURRENT_SOURCE_DIR}/metaxml_test.tesh
-  ${CMAKE_CURRENT_SOURCE_DIR}/metaxml_test2.tesh
   PARENT_SCOPE)
 set(examples_src
   ${examples_src}
diff --git a/examples/simdag/metaxml/metaxml_test2.tesh b/examples/simdag/metaxml/metaxml_test2.tesh
deleted file mode 100644 (file)
index eef6be4..0000000
+++ /dev/null
@@ -1,163 +0,0 @@
-#! ./tesh
-
-p Simple test of simdag with metaxml tags
-
-$ $SG_TEST_EXENV metaxml/sd_meta ${srcdir:=.}/../platforms/metaxml-random.xml
-> [0.000000] [sd_test/INFO] Route between lille_2_host and lille_2_host:
-> [0.000000] [sd_test/INFO]    Link lille_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_2_host and lyon_1_host:
-> [0.000000] [sd_test/INFO]    Link lille_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_2_host and lille_4_host:
-> [0.000000] [sd_test/INFO]    Link lille_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_2_host and lille_1_host:
-> [0.000000] [sd_test/INFO]    Link lille_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_2_host and lyon_0_host:
-> [0.000000] [sd_test/INFO]    Link lille_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_2_host and lille_3_host:
-> [0.000000] [sd_test/INFO]    Link lille_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_2_host and lille_0_host:
-> [0.000000] [sd_test/INFO]    Link lille_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_2_host and lyon_2_host:
-> [0.000000] [sd_test/INFO]    Link lille_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_1_host and lille_2_host:
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_1_host and lyon_1_host:
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_1_host and lille_4_host:
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_4_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_1_host and lille_1_host:
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_1_host and lyon_0_host:
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_1_host and lille_3_host:
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_3_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_1_host and lille_0_host:
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_1_host and lyon_2_host:
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_4_host and lille_2_host:
-> [0.000000] [sd_test/INFO]    Link lille_4_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_4_host and lyon_1_host:
-> [0.000000] [sd_test/INFO]    Link lille_4_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_4_host and lille_4_host:
-> [0.000000] [sd_test/INFO]    Link lille_4_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_4_host and lille_1_host:
-> [0.000000] [sd_test/INFO]    Link lille_4_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_4_host and lyon_0_host:
-> [0.000000] [sd_test/INFO]    Link lille_4_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_4_host and lille_3_host:
-> [0.000000] [sd_test/INFO]    Link lille_4_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_4_host and lille_0_host:
-> [0.000000] [sd_test/INFO]    Link lille_4_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_4_host and lyon_2_host:
-> [0.000000] [sd_test/INFO]    Link lille_4_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_1_host and lille_2_host:
-> [0.000000] [sd_test/INFO]    Link lille_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_1_host and lyon_1_host:
-> [0.000000] [sd_test/INFO]    Link lille_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_1_host and lille_4_host:
-> [0.000000] [sd_test/INFO]    Link lille_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_1_host and lille_1_host:
-> [0.000000] [sd_test/INFO]    Link lille_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_1_host and lyon_0_host:
-> [0.000000] [sd_test/INFO]    Link lille_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_1_host and lille_3_host:
-> [0.000000] [sd_test/INFO]    Link lille_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_1_host and lille_0_host:
-> [0.000000] [sd_test/INFO]    Link lille_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_1_host and lyon_2_host:
-> [0.000000] [sd_test/INFO]    Link lille_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_0_host and lille_2_host:
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_0_host and lyon_1_host:
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_0_host and lille_4_host:
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_4_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_0_host and lille_1_host:
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_0_host and lyon_0_host:
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_0_host and lille_3_host:
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_3_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_0_host and lille_0_host:
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_0_host and lyon_2_host:
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_3_host and lille_2_host:
-> [0.000000] [sd_test/INFO]    Link lille_3_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_3_host and lyon_1_host:
-> [0.000000] [sd_test/INFO]    Link lille_3_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_3_host and lille_4_host:
-> [0.000000] [sd_test/INFO]    Link lille_3_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_3_host and lille_1_host:
-> [0.000000] [sd_test/INFO]    Link lille_3_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_3_host and lyon_0_host:
-> [0.000000] [sd_test/INFO]    Link lille_3_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_3_host and lille_3_host:
-> [0.000000] [sd_test/INFO]    Link lille_3_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_3_host and lille_0_host:
-> [0.000000] [sd_test/INFO]    Link lille_3_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_3_host and lyon_2_host:
-> [0.000000] [sd_test/INFO]    Link lille_3_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_0_host and lille_2_host:
-> [0.000000] [sd_test/INFO]    Link lille_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_0_host and lyon_1_host:
-> [0.000000] [sd_test/INFO]    Link lille_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_0_host and lille_4_host:
-> [0.000000] [sd_test/INFO]    Link lille_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_0_host and lille_1_host:
-> [0.000000] [sd_test/INFO]    Link lille_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_0_host and lyon_0_host:
-> [0.000000] [sd_test/INFO]    Link lille_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_0_host and lille_3_host:
-> [0.000000] [sd_test/INFO]    Link lille_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_0_host and lille_0_host:
-> [0.000000] [sd_test/INFO]    Link lille_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lille_0_host and lyon_2_host:
-> [0.000000] [sd_test/INFO]    Link lille_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_2_host and lille_2_host:
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_2_host and lyon_1_host:
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_2_host and lille_4_host:
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_4_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_2_host and lille_1_host:
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_1_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_2_host and lyon_0_host:
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_2_host and lille_3_host:
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_3_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_2_host and lille_0_host:
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO]    Link lille_0_host: latency = 0.000007, bandwidth = 3297750.000000
-> [0.000000] [sd_test/INFO] Route between lyon_2_host and lyon_2_host:
-> [0.000000] [sd_test/INFO]    Link lyon_2_host: latency = 0.000007, bandwidth = 3297750.000000
index 04fabde..7d2d45f 100644 (file)
@@ -1214,8 +1214,6 @@ set(PLATFORMS_EXAMPLES
   examples/platforms/energy_platform.xml
   examples/platforms/fat_tree_cluster.xml
   examples/platforms/g5k.xml
-  examples/platforms/generation_scripts/create_hierarchical_clusters.pl
-  examples/platforms/generation_scripts/enhancedDTDwithHierarchicalCluster.pl
   examples/platforms/griffon.xml
   examples/platforms/meta_cluster.xml
   examples/platforms/multicore_machine.xml