[gs-cvs] rev 7183 - trunk/gs/lib

[alexcher at ghostscript.com]

Author: alexcher
Date: 2006-11-08 18:28:13 -0800 (Wed, 08 Nov 2006)
New Revision: 7183

Modified:
   trunk/gs/lib/gs_dps1.ps
Log:
Trap errors from findfont, etc. and re-throw them as selectfont errors.
Partial fix fot CET 13-16.ps


Modified: trunk/gs/lib/gs_dps1.ps
===================================================================
--- trunk/gs/lib/gs_dps1.ps	2006-11-09 01:54:18 UTC (rev 7182)
+++ trunk/gs/lib/gs_dps1.ps	2006-11-09 02:28:13 UTC (rev 7183)
@@ -68,9 +68,11 @@
 % ------ Fonts ------ %
 
 /selectfont		% <fontname> <size> selectfont -
- { 1 .argindex findfont
-   1 index dup type /arraytype eq { makefont } { scalefont } ifelse
-   setfont pop pop
+ {
+   { 1 .argindex findfont
+     1 index dup type /arraytype eq { makefont } { scalefont } ifelse
+     setfont pop pop
+   } stopped { /selectfont .systemvar $error /errorname get signalerror } if
  } odef
 % undefinefont has to take local/global VM into account.
 /undefinefont		% <fontname> undefinefont -