[gs-cvs] gs/lib

[Ray Johnston]

Update of /cvs/ghostscript/gs/lib
In directory casper2:/tmp/cvs-serv2688/lib

Modified Files:
	gs_ttf.ps 
Log Message:
Font scanning would miss OpenType fonts (OTTO header).


Index: gs_ttf.ps
===================================================================
RCS file: /cvs/ghostscript/gs/lib/gs_ttf.ps,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- gs_ttf.ps	3 Mar 2005 19:05:41 -0000	1.43
+++ gs_ttf.ps	13 Jul 2005 18:18:07 -0000	1.44
@@ -44,7 +44,8 @@
 /.findfontvalue {
   1 index read {
     2 index 1 index unread
-    dup 0 eq exch (t) 0 get eq or {
+    % beginning with binary 0 or 't' (TrueType), or 'O' (OpenType)
+    dup 0 eq 1 index (O) 0 get eq or exch (t) 0 get eq or {
 		% If this is a font at all, it's a TrueType font.
       dup /FontType eq {
         pop closefile 42 true