5 die "Usage: perl make_tesh.pl <directory> <old.tesh>\n";
8 my($directory)=$ARGV[0];
13 open SH_LIGNE, $old or die "Unable to open $old. $!\n";
20 while(defined($line=<SH_LIGNE>))
22 if($line =~ /^\$(.*)$/)
25 $line =~ s/\$\{srcdir\:\=\.\}/./g;
28 $line =~ s/\$SG_TEST_EXENV//g;
29 $line =~ s/\$EXEEXT//g;
30 $line =~ s/^\$\ */.\//g;
31 $line =~ s/^.\/lua/lua/g;
32 $line =~ s/^.\/ruby/ruby/g;
33 $line =~ s/--log=([^ ]*)/--log="$1"/g;
36 open (FILE, "$line 2>&1|");
37 while(defined($l=<FILE>))
46 if($line =~ /^\>(.*)$/)