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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2008-05-27 10:07:40 -0700 (Tue, 27 May 2008)
New Revision: 8779

Modified:
   trunk/gs/lib/printafm.ps
Log:
Enable printafm to emit a comment with UniqueID, that may be of some use when
investigating versions of fonts used. Thanks to Michail Vidiassov for the
patch. Bug 688610.


Modified: trunk/gs/lib/printafm.ps
===================================================================
--- trunk/gs/lib/printafm.ps	2008-05-26 19:04:05 UTC (rev 8778)
+++ trunk/gs/lib/printafm.ps	2008-05-27 17:07:40 UTC (rev 8779)
@@ -19,7 +19,7 @@
 %     on the command line.
 
 % Altered my master at iaas.msu.ru to work with fonts of more than 256 glyphs
-% and avoid FSType output
+% and avoid FSType output. Also print a comment with UniqueID of the font.
 
 /onechar 1 string def
 
@@ -127,6 +127,15 @@
 /printafm {
 	findfont gsave setfont
 	(StartFontMetrics 2.0) =
+
+		% Print the UniqueID
+
+	currentfont /UniqueID known {
+		(Comment UniqueID ) print
+		currentfont /UniqueID get =only
+		(\n) print
+	} if
+
 	(FontName ) print currentfont /FontName get =
 
 		% Print the FontInfo