From 4498adc49aaa9b30fa8a3400b3183893d6cb1fe1 Mon Sep 17 00:00:00 2001
From: Frederic Suter <frederic.suter@cc.in2p3.fr>
Date: Wed, 3 Feb 2016 11:03:00 +0100
Subject: [PATCH] we can live without these old and useless scripts

---
 examples/simdag/dax/CMakeLists.txt       |   6 -
 examples/simdag/dax/generate_forkjoin.pl |  36 ----
 examples/simdag/dax/generate_strassen.pl | 219 -----------------------
 3 files changed, 261 deletions(-)
 delete mode 100755 examples/simdag/dax/generate_forkjoin.pl
 delete mode 100755 examples/simdag/dax/generate_strassen.pl

diff --git a/examples/simdag/dax/CMakeLists.txt b/examples/simdag/dax/CMakeLists.txt
index 56c3b75bd9..490a0c9de8 100644
--- a/examples/simdag/dax/CMakeLists.txt
+++ b/examples/simdag/dax/CMakeLists.txt
@@ -27,12 +27,6 @@ set(examples_src
   ${CMAKE_CURRENT_SOURCE_DIR}/dax_test.c
   PARENT_SCOPE
   )
-set(bin_files
-  ${bin_files}
-  ${CMAKE_CURRENT_SOURCE_DIR}/generate_forkjoin.pl
-  ${CMAKE_CURRENT_SOURCE_DIR}/generate_strassen.pl
-  PARENT_SCOPE
-  )
 set(txt_files
   ${txt_files}
   PARENT_SCOPE
diff --git a/examples/simdag/dax/generate_forkjoin.pl b/examples/simdag/dax/generate_forkjoin.pl
deleted file mode 100755
index 545ccf9b23..0000000000
--- a/examples/simdag/dax/generate_forkjoin.pl
+++ /dev/null
@@ -1,36 +0,0 @@
-#! /usr/bin/env perl
-
-# Copyright (c) 2009, 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.
-
-use strict;
-
-my $node_count = int($ARGV[0]) || die "Usage: $0 node_count level_count\n";
-my $level_count = int($ARGV[1]) || die "Usage: $0 node_count level_count\n";
-
-print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
-print "<!-- generated: ".(localtime())." -->\n";
-print "<adag xmlns=\"http://pegasus.isi.edu/schema/DAX\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:schemaLocation=\"http://pegasus.isi.edu/schema/DAX http://pegasus.isi.edu/schema/dax-2.1.xsd\" version=\"2.1\" count=\"1\" index=\"0\" name=\"test\" jobCount=\"25\" fileCount=\"0\" childCount=\"20\">\n";
-
-for (my $level=1;$level<=$level_count;$level++) {
-    for (my $i=1;$i<=$node_count;$i++) {
-	print "<job id=\"node$i\" namespace=\"ForkJoin\" name=\"level$level\" version=\"1.0\" runtime=\"10\">\n";
-	print "  <uses file=\"n${i}_l${level}_in\" link=\"input\" register=\"true\" transfer=\"true\" optional=\"false\" type=\"data\" size=\"1000\"/>\n";
-	print "  <uses file=\"n${i}_l${level}_out\" link=\"output\" register=\"true\" transfer=\"true\" optional=\"false\" type=\"data\" size=\"1000\"/>\n";
-	print "</job>\n";
-    }
-
-    if ($level<$level_count) {
-	print "<job id=\"join$level\" namespace=\"ForkJoin\" name=\"join\" version=\"1.0\" runtime=\"10\">\n";
-	for (my $i=1;$i<=$node_count;$i++) {
-	    print "  <uses file=\"n${i}_l${level}_out\" link=\"input\" register=\"true\" transfer=\"true\" optional=\"false\" type=\"data\" size=\"1000\"/>\n";
-	    print "  <uses file=\"n${i}_l".(${level}+1)."_in\" link=\"output\" register=\"true\" transfer=\"true\" optional=\"false\" type=\"data\" size=\"1000\"/>\n";
-	}
-	print "</job>\n";
-    }
-}
-
-print "</adag>\n";
diff --git a/examples/simdag/dax/generate_strassen.pl b/examples/simdag/dax/generate_strassen.pl
deleted file mode 100755
index 060f8991f4..0000000000
--- a/examples/simdag/dax/generate_strassen.pl
+++ /dev/null
@@ -1,219 +0,0 @@
-#! /usr/bin/env perl
-
-# Copyright (c) 2009, 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.
-
-use strict;
-
-sub job {
-    print "<job id=\"$_[0]\" namespace=\"$_[1]\" name=\"$_[2]\" version=\"1.0\" runtime=\"$_[3]\">\n";
-}
-sub file {
-    print "  <uses file=\"$_[0]\" link=\"$_[1]\" register=\"true\" transfer=\"true\" optional=\"false\" type=\"data\" size=\"$_[2]\"/>\n";
-}
-sub strassen {
-    my $matSize=shift;
-    my $max_level=shift||1;
-    my $level=shift||1;
-    my $A = shift||"A";
-    my $B = shift||"B";
-
-    if ($level<$max_level) {
-      die "Recursive Strassen don't work yet\n";
-    }
-    
-    my $sizeAdd=$matSize*$matSize/4;
-    my $sizeMult=$matSize*$matSize*$matSize/8;
-    my $sizeBlock=$sizeAdd;
-
-    # T1 = A11 + A22
-    job("T1","Strassen","l$level",$sizeAdd);
-    file("${A}11l$level","input",$sizeBlock);
-    file("${A}22l$level","input",$sizeBlock);
-    file("T1l$level","output",$sizeBlock);
-    print("</job>\n");
-
-    # T2 = A21 + A22
-    job("T2","Strassen","l$level",$sizeAdd);
-    file("${A}21l$level","input",$sizeBlock);
-    file("${A}22l$level","input",$sizeBlock);
-    file("T2l$level","output",$sizeBlock);
-    print("</job>\n");
-
-    # T3 = A11 + A12
-    job("T3","Strassen","l$level",$sizeAdd);
-    file("${A}11l$level","input",$sizeBlock);
-    file("${A}12l$level","input",$sizeBlock);
-    file("T3l$level","output",$sizeBlock);
-    print("</job>\n");
-
-    # T4 = A21 − A11
-    job("T4","Strassen","l$level",$sizeAdd);
-    file("${A}21l$level","input",$sizeBlock);
-    file("${A}11l$level","input",$sizeBlock);
-    file("T4l$level","output",$sizeBlock);
-    print("</job>\n");
-
-    # T5 = A12 − A22
-    job("T5","Strassen","l$level",$sizeAdd);
-    file("${A}12l$level","input",$sizeBlock);
-    file("${A}22l$level","input",$sizeBlock);
-    file("T5l$level","output",$sizeBlock);
-    print("</job>\n");
-    
-    # T6 = B11 + B22
-    job("T6","Strassen","l$level",$sizeAdd);
-    file("${B}11l$level","input",$sizeBlock);
-    file("${B}22l$level","input",$sizeBlock);
-    file("T6l$level","output",$sizeBlock);
-    print("</job>\n");
-    
-    # T7 = B12 − B22
-    job("T7","Strassen","l$level",$sizeAdd);
-    file("${B}12l$level","input",$sizeBlock);
-    file("${B}22l$level","input",$sizeBlock);
-    file("T7l$level","output",$sizeBlock);
-    print("</job>\n");
-    
-    # T8 = B21 − B11
-    job("T8","Strassen","l$level",$sizeAdd);
-    file("${B}21l$level","input",$sizeBlock);
-    file("${B}11l$level","input",$sizeBlock);
-    file("T8l$level","output",$sizeBlock);
-    print("</job>\n");
-         
-    # T9 = B11 + B12
-    job("T9","Strassen","l$level",$sizeAdd);
-    file("${B}11l$level","input",$sizeBlock);
-    file("${B}12l$level","input",$sizeBlock);
-    file("T9l$level","output",$sizeBlock);
-    print("</job>\n");
-    
-    # T10 = B21 + B22
-    job("T10","Strassen","l$level",$sizeAdd);
-    file("${B}21l$level","input",$sizeBlock);
-    file("${B}22l$level","input",$sizeBlock);
-    file("T10l$level","output",$sizeBlock);
-    print("</job>\n");
-
-    # Q1 = T1 × T6
-    if ($level<$max_level) {
-	strassen($sizeBlock,$max_level,$level+1,"T1_","T6_");
-    } else {
-	job("Q1","Strassen","l$level",$sizeMult);
-	file("T1l$level","input",$sizeBlock);
-	file("T6l$level","input",$sizeBlock);
-	file("Q1l$level","output",$sizeBlock);
-	print("</job>\n");
-    }
-
-    # Q2 = T2 × B11
-    if ($level<$max_level) {
-	strassen($sizeBlock,$max_level,$level+1,"T2_","B11_");
-    } else {
-	job("Q2","Strassen","l$level",$sizeMult);
-	file("T2l$level","input",$sizeBlock);
-	file("${B}11l$level","input",$sizeBlock);
-	file("Q2l$level","output",$sizeBlock);
-	print("</job>\n");
-    }
-
-    # Q3 = A11 × T7         
-    if ($level<$max_level) {
-	strassen($sizeBlock,$max_level,$level+1,"A11_","T7_");
-    } else {
-	job("Q3","Strassen","l$level",$sizeMult);
-	file("${A}11l$level","input",$sizeBlock);
-	file("T7l$level","input",$sizeBlock);
-	file("Q3l$level","output",$sizeBlock);
-	print("</job>\n");
-    }
-    
-    # Q4 = A22 × T8
-    if ($level<$max_level) {
-	strassen($sizeBlock,$max_level,$level+1,"A22_","T8_");
-    } else {
-	job("Q4","Strassen","l$level",$sizeMult);
-	file("${A}22l$level","input",$sizeBlock);
-	file("T8l$level","input",$sizeBlock);
-	file("Q4l$level","output",$sizeBlock);
-	print("</job>\n");
-    }
-    
-    # Q5 = T3 × B22
-    if ($level<$max_level) {
-	strassen($sizeBlock,$max_level,$level+1,"T3_","B22_");
-    } else {
-	job("Q5","Strassen","l$level",$sizeMult);
-	file("T3l$level","input",$sizeBlock);
-	file("${B}22l$level","input",$sizeBlock);
-	file("Q5l$level","output",$sizeBlock);
-	print("</job>\n");
-    }
-    
-    # Q6 = T4 × T9
-    if ($level<$max_level) {
-	strassen($sizeBlock,$max_level,$level+1,"T4_","T9_");
-    } else {
-	job("Q6","Strassen","l$level",$sizeMult);
-	file("T4l$level","input",$sizeBlock);
-	file("T9l$level","input",$sizeBlock);
-	file("Q6l$level","output",$sizeBlock);
-	print("</job>\n");
-    }
-    
-    # Q7 = T5 × T10
-    if ($level<$max_level) {
-	strassen($sizeBlock,$max_level,$level+1,"T5_","T10_");
-    } else {
-	job("Q7","Strassen","l$level",$sizeMult);
-	file("T5l$level","input",$sizeBlock);
-	file("T10l$level","input",$sizeBlock);
-	file("Q7l$level","output",$sizeBlock);
-	print("</job>\n");
-    }
-    
-    # C11 = Q1 + Q4 − Q5 + Q7
-    job("Q11","Strassen","l$level",$sizeAdd*3);
-    file("Q1l$level","input",$sizeBlock);
-    file("Q4l$level","input",$sizeBlock);
-    file("Q5l$level","input",$sizeBlock);
-    file("Q7l$level","input",$sizeBlock);
-    file("C11l$level","output",$sizeBlock);
-    print("</job>\n");
-
-    # C12 = Q3 + Q5
-    job("C12","Strassen","l$level",$sizeAdd);
-    file("Q3l$level","input",$sizeBlock);
-    file("Q5l$level","input",$sizeBlock);
-    file("C12l$level","output",$sizeBlock);
-    print("</job>\n");
-    
-    # C21 = Q2 + Q4
-    job("C21","Strassen","l$level",$sizeAdd);
-    file("Q2l$level","input",$sizeBlock);
-    file("Q4l$level","input",$sizeBlock);
-    file("C21l$level","output",$sizeBlock);
-    print("</job>\n");
-
-    # C22 = Q1 − Q2 + Q3 + Q6
-    job("C22","Strassen","l$level",$sizeMult);
-    file("Q1l$level","input",$sizeBlock);
-    file("Q2l$level","input",$sizeBlock);
-    file("Q3l$level","input",$sizeBlock);
-    file("Q6l$level","input",$sizeBlock);
-    file("C22l$level","output",$sizeBlock);
-    print("</job>\n");          
-}
-
-print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
-print "<!-- generated: ".(localtime())." -->\n";
-print "<adag xmlns=\"http://pegasus.isi.edu/schema/DAX\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:schemaLocation=\"http://pegasus.isi.edu/schema/DAX http://pegasus.isi.edu/schema/dax-2.1.xsd\" version=\"2.1\" count=\"1\" index=\"0\" name=\"test\" jobCount=\"25\" fileCount=\"0\" childCount=\"20\">\n";
-
-strassen(2000);
-
-print "</adag>\n";
-
-- 
2.20.1