| % Copyright (C) 1990 Aladdin Enterprises. All rights reserved. |
| % Distributed by Free Software Foundation, Inc. |
| % |
| % This file is part of Ghostscript. |
| % |
| % Ghostscript is distributed in the hope that it will be useful, but |
| % WITHOUT ANY WARRANTY. No author or distributor accepts responsibility |
| % to anyone for the consequences of using it or for whether it serves any |
| % particular purpose or works at all, unless he says so in writing. Refer |
| % to the Ghostscript General Public License for full details. |
| % |
| % Everyone is granted permission to copy, modify and redistribute |
| % Ghostscript, but only under the conditions described in the Ghostscript |
| % General Public License. A copy of this license is supposed to have been |
| % given to you along with Ghostscript so you can know your rights and |
| % responsibilities. It should be in a file named COPYING. Among other |
| % things, the copyright notice and this notice must be preserved on all |
| % copies. |
| |
| % fcutils.ps |
| % Font conversion utilities for Ghostscript. |
| |
| % Look up the output file name in the font map; |
| % close the map file. |
| % <mapfile:file> <psfilename:string> fontmapfind -> |
| % <fontname:name> <encoding:name|null> <uniqueid:int> |
| /fontmapfind |
| { /.psname exch def |
| /.mapfile exch def |
| { .mapfile token not % font name |
| { (File name ) print .psname print |
| ( not found in mapping file.\n) print stop |
| } if |
| .mapfile token pop % file name for comparison |
| .mapfile token pop % encoding name or null |
| .mapfile token pop % unique id |
| { .mapfile token pop /; cvx eq { exit } if } loop % stuff up to ; |
| 3 -1 roll .psname eq |
| { exit } |
| { pop pop pop } |
| ifelse |
| } loop |
| .mapfile closefile |
| (Mapping ) print .psname print ( to ) print 2 index =only |
| (\n) print flush |
| } bind def |