X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/22a86e9300bc489906b09bad0e6be79588c4b41c..ba5e8b528ff29715f5a9008137e117a9fbcc24b0:/buildtools/Cmake/Scripts/update_tesh.pl

diff --git a/buildtools/Cmake/Scripts/update_tesh.pl b/buildtools/Cmake/Scripts/update_tesh.pl
deleted file mode 100755
index 7c340b4b5e..0000000000
--- a/buildtools/Cmake/Scripts/update_tesh.pl
+++ /dev/null
@@ -1,63 +0,0 @@
-#!/usr/bin/perl -w
-
-# Copyright (c) 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.
-
-use strict;
-
-if($#ARGV!=1) {
-    die "Usage: perl make_tesh.pl <directory> <old.tesh>\n";
-}
-
-my($directory)=$ARGV[0];
-my($old)=$ARGV[1];
-
-chdir("$directory");
-
-open SH_LIGNE, $old or die "Unable to open $old. $!\n";
-
-my($line);
-my($line_exec);
-my($l);
-my($tmp);
-
-while(defined($line=<SH_LIGNE>))
-{
-	if($line =~ /^\$(.*)$/)
-	{
-		$line_exec = $line;
-		$line =~ s/\$\{srcdir\:\=\.\}/./g;
-		$line =~ s/\(/\\(/g;
-		$line =~ s/\)/\\)/g;
-		$line =~ s/\$SG_TEST_EXENV//g;
-		$line =~ s/\$EXEEXT//g;
-		$line =~ s/^\$\ */.\//g;
-		$line =~ s/^.\/lua/lua/g;
-		$line =~ s/^.\/ruby/ruby/g;
-		$line =~ s/--log=([^ ]*)/--log="$1"/g;
-		print "$line_exec";
-		chomp $line;
-		open (FILE, "$line 2>&1|");
-		while(defined($l=<FILE>))
-		{
-		chomp $l;
-		print "\> $l\n";
-	    	}
-		close(FILE);
-    	}
-	else
-	{
-		if($line =~ /^\>(.*)$/)
-		{
-		}
-		else
-		{
-		print "$line";
-		}
-	}	
-}
-
-close(SH_LIGNE);