Import Ghostscript 9.50ghostscript-9.50

Signed-off-by: Thomas Deutschmann <whissi@gentoo.org>

1 files changed, 250 insertions, 0 deletions

diff --git a/toolbin/vgbatch.pl b/toolbin/vgbatch.pl
new file mode 100644
index 00000000..d96321a7
--- /dev/null
+++ b/toolbin/vgbatch.pl
@@ -0,0 +1,250 @@
+#!/usr/bin/perl
+
+# #include <disclaimer.h>
+# If you speak perl, and are offended by the code herein, I apologise.
+# Please feel free to tidy it up.
+
+# Syntax: vgbatch.pl < <input list>
+
+# Setup steps:
+# 1) Build your binaries ("make vg" or "make debugvg" are good ideas)
+# 2) Edit the paths/options here as appropriate.
+# 3) Save the list of changed files from the local cluster regression email
+# here (e.g. as list.txt).
+# 4) Invoke this script. (e.g. "toolbin/vgbatch.pl < list.txt > vg.out 2>&1 &")
+# 5) While that runs, you can see how far it's gone using: "tail -f vg.out"
+# 6) Make tea. Drink tea.
+#
+# list.txt should look like:
+#
+# tests_private/pdf/PDF_2.0_FTS/fts_01_0108.pdf.ppmraw.300.0 gs ...
+# tests_private/pdf/PDF_2.0_FTS/fts_02_0230.pdf.ppmraw.300.0 gs ...
+# ...
+#
+# Basically this mirrors the list of failed jobs given in a cluster test
+# email.
+
+
+########################################################################
+# SETUP SECTION
+
+# The path to the executables.
+#$gsexe     = "gs/bin/gswin32c.exe";
+$gsexe     = "bin/gs";
+$pclexe    = "bin/gpcl6";
+$xpsexe    = "bin/gxps";
+$gpdlexe   = "bin/gpdl";
+
+# Set the following if you want to override all the tests to use a
+# particular output format/device.
+#$format_override="bmp";
+$format_override="";
+
+# The path from your ghostpdl directory to where the test files can be
+# found
+$fileadjust = "/home/marcos/cluster/";
+
+# END SETUP SECTION
+########################################################################
+
+########################################################################
+# EXTERNAL USES
+use Errno qw(EAGAIN);
+
+########################################################################
+
+########################################################################
+# FUNCTIONS
+
+
+# END FUNCTIONS
+########################################################################
+
+########################################################################
+# Here follows todays lesson. Abandon hope all who enter here. Etc. Etc.
+$basedir      = $ARGV[0];
+$ARGV         = shift @ARGV;
+
+# Now run through the list of files
+$images = 0;
+while (<>)
+{
+    ($path,$exe) = /^(\S+)\s+(\S+)/;
+    ($file,$fmt,$res,$band) = ($path =~ /(\S+)\.(\S+)\.(\d+)\.(\d+)$/);
+
+    $file =~ s/__/\//g;
+    
+    if ($file eq "") {
+        next;
+    }
+
+    # Adjust for the local fs layout
+    $file = $fileadjust.$file;
+
+    # Check the file exists
+    $file2 = "";
+    if (!stat($file))
+    {
+        # Before we give up, consider the possibility that we might need to
+        # pdfwrite it.
+        # Someone who speaks perl can do this more nicely.
+        ($file2) = ($file =~ /(\S+).pdf$/);
+        if (stat($file2))
+        {
+            $exe = "pdfw".$exe;
+	}
+        else
+        {
+            ($file2) = ($file =~ /(\S+).ps$/);
+            if (!stat($file2))
+            {
+                print "Unknown file: ".$file." (".$exe.")\n";
+                next;
+            }
+            $exe = "psw".$exe;
+	}
+    }
+
+    # Avoid doing the same thing twice
+    if ($done{"$file:fmt:$res:$band:$exe"})
+    {
+	print "Repeated test: $file:$fmt:$res:$bad:$exe\n";
+        next;
+    }
+    $done{"$file:$fmt:$res:$band:$exe"} = 1;
+    
+    # Map format to device
+    if ($fmt eq "ppmraw") {
+        $devargs="-sDEVICE=ppmraw";
+        $suffix="ppm";
+    } elsif ($fmt eq "pbmraw") {
+        $devargs="-sDEVICE=pbmraw";
+        $suffix="pbm";
+    } elsif ($fmt eq "pam") {
+        $devargs="-sDEVICE=pam";
+        $suffix="pam";
+    } elsif ($fmt eq "pgmraw") {
+        $devargs="-sDEVICE=pgmraw";
+        $suffix="pgm";
+    } elsif ($fmt eq "pnmcmyk") {
+        $devargs="-sDEVICE=pnmcmyk";
+        $suffix="pnm";
+    } elsif ($fmt eq "pkmraw") {
+        $devargs="-sDEVICE=pkmraw";
+        $suffix="pkm";
+    } elsif ($fmt eq "bmp") {
+        $devargs="-sDEVICE=bmp16m";
+        $suffix="bmp";
+    } elsif ($fmt eq "png") {
+        $devargs="-sDEVICE=png16m";
+        $suffix="png";
+    } elsif ($fmt eq "tiffscaled") {
+        $devargs="-sDEVICE=tiffscaled";
+        $suffix="tif";
+    } elsif ($fmt eq "bitrgb") {
+        $devargs="-sDEVICE=bitrgb";
+        $suffix="bit";
+    } elsif ($fmt eq "bitrgbtags") {
+        $devargs="-sDEVICE=bitrgbtags";
+        $suffix="bit";
+    } elsif ($fmt eq "cups") {
+        $devargs="-sDEVICE=cups";
+        $suffix="cups";
+    } elsif ($fmt eq "plank") {
+        $devargs="-sDEVICE=plank";
+        $suffix="plank";
+    } elsif ($fmt eq "psdcmyk") {
+        $devargs="-sDEVICE=psdcmyk";
+        $suffix="psd";
+    } elsif ($fmt eq "psdcmykog") {
+        $devargs="-sDEVICE=psdcmykog";
+        $suffix="psd";
+    } else {
+        print "Unsupported format $fmt - skipping\n";
+        next;
+    }
+    
+    # Output the title
+    print "=====$path:$exe=====\n";
+
+    my $resargs = " -r$res";
+    my $bandargs = " -dMaxBitmap=400000000";
+    if ($band == 1) {
+	$bandargs = " -dMaxBitmap=1000";
+    }
+    my $randargs = " -Z: -dNOPAUSE -dBATCH -K2000000 -dClusterJob";
+
+    my $binargs;
+    my $psargs = "";
+    if ($file =~ m/\.PS$/) { $psargs = " -dCETMODE"; };
+    if ($exe =~ m/gs/)
+    {
+        $binargs = $gsexe;
+    }
+    elsif ($exe =~ m/pcl/)
+    {
+        $binargs = $pclexe;
+    }
+    elsif ($exe =~ m/xps/)
+    {
+        $binargs = $xpsexe;
+    }
+    elsif ($exe =~ m/gpdl/)
+    {
+        $binargs = $gpdlexe;
+    }
+    else
+    {
+	die "$bin not matched; dying";
+    }
+
+    my $dev1args = $devargs;
+    my $out1args = "/dev/null";
+    my $two_stage = 0;
+    if ($exe =~ m/pdfw/)
+    {
+	$dev1args = "-sDEVICE=pdfwrite";
+	$out1args = "out.pdf";
+	$two_stage = 1;
+    }
+    elsif ($exe =~ m/psw/)
+    {
+	$dev1args = "-sDEVICE=ps2write";
+	$out1args = "out.ps";
+	$two_stage = 1;
+    }
+
+    $cmd = "valgrind --track-origins=yes $binargs $psargs -sOutputFile=$out1args $bandargs $dev1args $resargs $randargs $file2";
+    #system("echo $cmd > out.vg");
+    #system("$cmd >>& out.vg");
+    system("echo $cmd");
+    system("$cmd");
+    my $ret = $?;
+    #system("echo return $ret >> out.vg");
+    system("echo return $ret");
+
+    if ($ret == 0 && $two_stage != 0) {
+	#system("echo ----- >> out.vg");
+	system("echo -----");
+        if ($exe =~ m/pdfw/ ||
+            $exe =~ m/psw/)
+        {
+            $binargs = $gsexe;
+        }
+	else
+	{
+	    die "$exe second stage not matchined; dying";
+	}
+
+	$cmd = "valgrind --track-origins=yes $binargs $psargs -sOutputFile=/dev/null $bandargs $devargs $resargs $randargs $out1args";
+	#system("echo $cmd >> out.vg");
+	#system("$cmd >>& out.vg");
+	system("echo $cmd");
+	system("$cmd");
+	$ret = $?;
+        #system("echo return $ret >> out.vg");
+        system("echo return $ret");
+    }
+}
+
+print "TESTING COMPLETED!\n";