X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/f98d530cc48b4cb1f472284015206d348636b84d..dcbaa4c7c03976524195c472e08fa71f9cc4fc6c:/buildtools/Cmake/update_tesh.pl diff --git a/buildtools/Cmake/update_tesh.pl b/buildtools/Cmake/update_tesh.pl index ae1491cdc8..24d5c25c2b 100755 --- a/buildtools/Cmake/update_tesh.pl +++ b/buildtools/Cmake/update_tesh.pl @@ -17,38 +17,40 @@ my($line_exec); my($l); my($tmp); -print "#! ./tesh\n"; - while(defined($line=)) { - if($line =~ /^p(.*)$/) + if($line =~ /^\$(.*)$/) { - print "$line\n"; - } + $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=)) + { + chomp $l; + print "\> $l\n"; + } + close(FILE); + } else { - if($line =~ /^\$(.*)$/) - { - $line_exec = $line; - $line =~ s/\$\{srcdir\:\=\.\}/./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 "\n$line_exec"; - chomp $line; - open (FILE, "$line 2>&1|"); - while(defined($l=)) - { - chomp $l; - print "\> $l\n"; - } - + if($line =~ /^\>(.*)$/) + { } - close(FILE); - } + else + { + print "$line"; + } + } } close(SH_LIGNE);