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, 11 months ago) by niro
File size: 1037 byte(s)
Mon Oct 26 18:29:14 2009 UTC (14 years, 11 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. |