[gs-cvs] rev 8491 - trunk/gs/lib

[alexcher at ghostscript.com]

Author: alexcher
Date: 2008-01-17 22:17:02 -0800 (Thu, 17 Jan 2008)
New Revision: 8491

Modified:
   trunk/gs/lib/ps2epsi
   trunk/gs/lib/ps2epsi.bat
   trunk/gs/lib/ps2epsi.cmd
   trunk/gs/lib/ps2epsi.ps
Log:
Add redefinition of setpagedevice to ps2epsi utility to support PS files
that call setpagedevice. Bug 689650.


Modified: trunk/gs/lib/ps2epsi
===================================================================
--- trunk/gs/lib/ps2epsi	2008-01-17 13:50:43 UTC (rev 8490)
+++ trunk/gs/lib/ps2epsi	2008-01-18 06:17:02 UTC (rev 8491)
@@ -81,7 +81,7 @@
 
 (
 cat << BEGINEPS
-save countdictstack mark newpath /showpage {} def /setpagedevice {pop} def
+save countdictstack mark newpath /showpage {} def /setpagedevice /pop load def
 %%EndProlog
 %%Page 1 1
 BEGINEPS

Modified: trunk/gs/lib/ps2epsi.bat
===================================================================
--- trunk/gs/lib/ps2epsi.bat	2008-01-17 13:50:43 UTC (rev 8490)
+++ trunk/gs/lib/ps2epsi.bat	2008-01-18 06:17:02 UTC (rev 8491)
@@ -15,6 +15,7 @@
 echo %%%%Page: 1 1 >> %outfile%
 echo %%%%BeginDocument: %outfile% >> %outfile%
 echo /InitDictCount countdictstack def gsave save mark newpath >> %outfile%
+echo userdict /setpagedevice /pop load put >> %outfile%
 
 rem Append the original onto the preview header
 copy %outfile% + %infile%

Modified: trunk/gs/lib/ps2epsi.cmd
===================================================================
--- trunk/gs/lib/ps2epsi.cmd	2008-01-17 13:50:43 UTC (rev 8490)
+++ trunk/gs/lib/ps2epsi.cmd	2008-01-18 06:17:02 UTC (rev 8491)
@@ -18,6 +18,7 @@
 echo %%%%Page: 1 1 >> %outfile%
 echo %%%%BeginDocument: %outfile% >> %outfile%
 echo /InitDictCount countdictstack def gsave save mark newpath >> %outfile%
+echo userdict /setpagedevice /pop load put >> %outfile%
 
 rem Append the original onto the preview header
 copy %outfile% + %infile%

Modified: trunk/gs/lib/ps2epsi.ps
===================================================================
--- trunk/gs/lib/ps2epsi.ps	2008-01-17 13:50:43 UTC (rev 8490)
+++ trunk/gs/lib/ps2epsi.ps	2008-01-18 06:17:02 UTC (rev 8491)
@@ -78,6 +78,7 @@
 				% Replace the definition of showpage
      userdict /showpage { ps2edict begin epsipage end } bind put
      userdict /setfont { ps2edict begin epsisetfont end } bind put
+     userdict /setpagedevice /pop load put
      //systemdict /.setsafe known { .setsafe } if
    } bind def