1 |
blino |
19330 |
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. |