Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
chomp may not be enough in some cases + tell win that we want 2 digits only for exponents
authorAugustin Degomme <degomme@idpann.imag.fr>
Thu, 10 Oct 2013 15:17:35 +0000 (17:17 +0200)
committerAugustin Degomme <degomme@idpann.imag.fr>
Thu, 10 Oct 2013 15:17:35 +0000 (17:17 +0200)
buildtools/Cmake/Scripts/tesh.pl

index 0cc491c..07e609e 100755 (executable)
@@ -38,6 +38,7 @@ if($^O eq "linux"){
 }
 else{
     $OS = "WIN";
 }
 else{
     $OS = "WIN";
+    $ENV{"PRINTF_EXPONENT_DIGITS"} = "2"; 
 }
 
 
 }
 
 
@@ -243,7 +244,7 @@ sub exec_cmd {
 
   ###
   # exec the command line
 
   ###
   # exec the command line
-  ###
+  ###  $line =~ s/\r//g;
   $pid = open3(\*CHILD_IN, \*OUT, \*OUT, $cmd{'cmd'} );
 
   # push all provided input to executing child
   $pid = open3(\*CHILD_IN, \*OUT, \*OUT, $cmd{'cmd'} );
 
   # push all provided input to executing child
@@ -392,6 +393,7 @@ LINE: while (not $finished and not $error) {
 
   $line_num++;
   chomp $line;
 
   $line_num++;
   chomp $line;
+  $line =~ s/\r//g;
   print "[TESH/debug] $line_num: $line\n" if $opts{'debug'};
   my $next;
   # deal with line continuations
   print "[TESH/debug] $line_num: $line\n" if $opts{'debug'};
   my $next;
   # deal with line continuations