Annotation of /trunk/ghostscript-gpl/patches/ghostscript-gpl-8.70-runlibfileifexists.patch
Parent Directory | Revision Log
Revision 907 -
(hide 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 | niro | 907 | 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. |