Contents of /trunk/ghostscript-gpl/patches/ghostscript-gpl-8.70-runlibfileifexists.patch
Parent Directory
| 
Revision Log
Revision 907 -
(show annotations)
(download)
Mon Oct 26 18:29:14 2009 UTC (14 years, 6 months ago) by niro
File size: 1037 byte(s)
Mon Oct 26 18:29:14 2009 UTC (14 years, 6 months ago) by niro
File size: 1037 byte(s)
patchset for ghostscript-gpl
| 1 | diff -up ghostscript-8.64/Resource/Init/gs_init.ps.runlibfileifexists ghostscript-8.64/Resource/Init/gs_init.ps |
| 2 | --- ghostscript-8.64/Resource/Init/gs_init.ps.runlibfileifexists 2009-01-08 09:17:18.000000000 +0000 |
| 3 | +++ ghostscript-8.64/Resource/Init/gs_init.ps 2009-02-04 11:35:19.000000000 +0000 |
| 4 | @@ -672,6 +672,14 @@ systemdict /internaldict dup .makeintern |
| 5 | { /undefinedfilename signalerror } |
| 6 | ifelse |
| 7 | } bind def |
| 8 | +/runlibfileifexists |
| 9 | + { % We don't want to bind 'run' into this procedure, |
| 10 | + % since run may get redefined. |
| 11 | + findlibfile |
| 12 | + { exch pop /run .systemvar exec } |
| 13 | + { pop } |
| 14 | + ifelse |
| 15 | + } bind def |
| 16 | /selectdevice |
| 17 | { finddevice setdevice .setdefaultscreen } bind def |
| 18 | /signalerror % <object> <errorname> signalerror - |
| 19 | @@ -840,6 +848,7 @@ userdict /.currentresourcefile //null pu |
| 20 | } bind def |
| 21 | % Temporarily substitute it for the real runlibfile. |
| 22 | /.runlibfile /runlibfile load def |
| 23 | +/.runlibfileifexists /runlibfileifexists load def |
| 24 | /runlibfile /runlibfile0 load def |
| 25 | |
| 26 | % Create the error handling machinery. |