2009-02-04 13:11:11 +00:00
|
|
|
diff -up ghostscript-8.64/Resource/Init/gs_init.ps.runlibfileifexists ghostscript-8.64/Resource/Init/gs_init.ps
|
|
|
|
|
--- ghostscript-8.64/Resource/Init/gs_init.ps.runlibfileifexists 2009-01-08 09:17:18.000000000 +0000
|
|
|
|
|
+++ ghostscript-8.64/Resource/Init/gs_init.ps 2009-02-04 11:35:19.000000000 +0000
|
|
|
|
|
@@ -672,6 +672,14 @@ systemdict /internaldict dup .makeintern
|
2007-11-30 09:03:51 +00:00
|
|
|
{ /undefinedfilename signalerror }
|
|
|
|
|
ifelse
|
|
|
|
|
} bind def
|
|
|
|
|
+/runlibfileifexists
|
|
|
|
|
+ { % We don't want to bind 'run' into this procedure,
|
|
|
|
|
+ % since run may get redefined.
|
|
|
|
|
+ findlibfile
|
|
|
|
|
+ { exch pop /run .systemvar exec }
|
|
|
|
|
+ { pop }
|
|
|
|
|
+ ifelse
|
|
|
|
|
+ } bind def
|
|
|
|
|
/selectdevice
|
|
|
|
|
{ finddevice setdevice .setdefaultscreen } bind def
|
|
|
|
|
/signalerror % <object> <errorname> signalerror -
|
2009-02-04 13:11:11 +00:00
|
|
|
@@ -840,6 +848,7 @@ userdict /.currentresourcefile //null pu
|
2007-11-30 09:03:51 +00:00
|
|
|
} bind def
|
|
|
|
|
% Temporarily substitute it for the real runlibfile.
|
|
|
|
|
/.runlibfile /runlibfile load def
|
2007-11-30 11:01:37 +00:00
|
|
|
+/.runlibfileifexists /runlibfileifexists load def
|
2007-11-30 09:03:51 +00:00
|
|
|
/runlibfile /runlibfile0 load def
|
|
|
|
|
|
|
|
|
|
% Create the error handling machinery.
|
