# HG changeset patch
# User blanchet
# Date 1292541066 -3600
# Node ID da6907b67facda41e8a9ea1d5ad2c17bb32aa896
# Parent  4d11b0de7dd8910ea3cdca98d1aaa41f843e37de
fixed off-by-one and return proper error code -- never underestimate the number of oddities in Perl

diff -r 4d11b0de7dd8 -r da6907b67fac src/HOL/Tools/SMT/lib/scripts/z3_wrapper
--- a/src/HOL/Tools/SMT/lib/scripts/z3_wrapper	Thu Dec 16 22:45:02 2010 +0100
+++ b/src/HOL/Tools/SMT/lib/scripts/z3_wrapper	Fri Dec 17 00:11:06 2010 +0100
@@ -14,16 +14,16 @@
 use warnings;
 use POSIX;
 
-my $in_file = $ARGV[$#ARGV - 1];
+my $in_file = $ARGV[$#ARGV];
 my $out_file = tmpnam();
 my $err_file = tmpnam();
 
-$ENV{'Z3_REAL_SOLVER'} || die "Environment variable \"Z3_REAL_SOLVER\" not set";
+$ENV{'Z3_REAL_SOLVER'} || exit 10;
 
 RUN:
 my $code = system $ENV{'Z3_REAL_SOLVER'} . " " . join(" ", @ARGV) . " >$out_file 2>$err_file";
 
-open(ERR_FILE, "<$err_file") || die "Cannot open file \"$err_file\"";
+open(ERR_FILE, "<$err_file") || exit 11;
 my @err_lines = <ERR_FILE>;
 close(ERR_FILE);
 print STDERR join("", @err_lines);
@@ -33,7 +33,7 @@
     if ($err_line =~ /[lL]ine ([0-9]+)/) {
       my $line_num = $1;
 
-      open(IN_FILE, "<$in_file") || die "Cannot open file \"$in_file\"";
+      open(IN_FILE, "<$in_file") || exit 12;
       my @in_lines = <IN_FILE>;
       close(IN_FILE);
 
@@ -41,7 +41,7 @@
       $in_lines[$line_num - 1] = ";;; " . $err_line . " -- "
                                  . $in_lines[$line_num - 1];
 
-      open(IN_FILE, ">$in_file") || die "Cannot open file \"$in_file\"";
+      open(IN_FILE, ">$in_file") || exit 13;
       print IN_FILE join ("", @in_lines);
       close(IN_FILE);
       goto RUN;
@@ -49,11 +49,11 @@
   }
 }
 
-open(OUT_FILE, "<$out_file") || die "Cannot open file \"$out_file\"";
+open(OUT_FILE, "<$out_file") || exit 14;
 my @out_lines = <OUT_FILE>;
 close(OUT_FILE);
 print join("", @out_lines);
 
 unlink($out_file);
 unlink($err_file);
-exit $code;
+exit(($code >> 8 | $code) & 0xff);