diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/cid2code.ps')
| -rw-r--r-- | Master/tlpkg/tlgs/lib/cid2code.ps | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/Master/tlpkg/tlgs/lib/cid2code.ps b/Master/tlpkg/tlgs/lib/cid2code.ps index af7ff22774f..7d26ccf5566 100644 --- a/Master/tlpkg/tlgs/lib/cid2code.ps +++ b/Master/tlpkg/tlgs/lib/cid2code.ps @@ -1,19 +1,19 @@ % Copyright (C) 1998, 2000 Aladdin Enterprises. All rights reserved. -% +% % This software is provided AS-IS with no warranty, either express or % implied. -% +% % This software is distributed under license and may not be copied, % modified or distributed except as expressly authorized under the terms % of the license contained in the file LICENSE in this distribution. -% +% % For more information about licensing, please refer to % http://www.ghostscript.com/licensing/. For information on % commercial licensing, go to http://www.artifex.com/licensing/ or % contact Artifex Software, Inc., 101 Lucas Valley Road #110, % San Rafael, CA 94903, U.S.A., +1(415)492-9861. -% $Id: cid2code.ps 6300 2005-12-28 19:56:24Z giles $ +% $Id$ % Construct an inverse map from CIDs to codes. % Create an inverse map from CIDs to code values. @@ -30,33 +30,33 @@ mark } def /endcmap { - % Stack: mark code_lo1 code_hi1 cid1 ... + % Stack: mark code_lo1 code_hi1 cid1 ... 20 dict begin /depth counttomark 3 sub def - % Do a first pass to determine the maximum CID. + % Do a first pass to determine the maximum CID. 0 0 3 depth { 1 add /d exch def d index d 2 add index 1 get add d 3 add index 1 get sub .max } for 1 add /ncid exch def /map ncid 2 mul string def - % Now fill in the map. + % Now fill in the map. 0 3 depth { /d exch def d index 2 mul /cid2 exch def d 1 add index /hi exch def d 2 add index 2 string copy /lo exch def lo 1 get 1 hi 1 get { - map cid2 lo 0 get put - map cid2 1 add 3 -1 roll put - /cid2 cid2 2 add def + map cid2 lo 0 get put + map cid2 1 add 3 -1 roll put + /cid2 cid2 2 add def } for } for - % Print the map. + % Print the map. (%stdout) (w) file dup (<) print dup /ASCIIHexEncode filter - dup map writestring + dup map writestring closefile () = flush closefile @@ -105,18 +105,18 @@ currentdict end readonly def (r) file /f exch def (%!) = (/CIDInit /ProcSet findresource begin 12 dict begin begincmap) = - % Print the information from the template. + % Print the information from the template. { exch ==only ( ) print dup type /dicttype eq { dup length =only ( dict dup begin) = { - ( ) print exch ===only ( ) print ===only ( def) = + ( ) print exch ===only ( ) print ===only ( def) = } forall (end def) = } { ===only } ifelse ( def) = } forall - % Read the data from the cid2code.txt file. + % Read the data from the cid2code.txt file. { f =string readline pop (CID\t) anchorsearch { pop pop exit } if pop } loop @@ -129,7 +129,7 @@ currentdict end readonly def dup (*) eq { pop (0000) } if (16#) exch concatstrings cvi } loop ] def - % Print the code space range(s). + % Print the code space range(s). /maxcid map length 1 sub def mark maxcid dup 255 and 255 eq { @@ -140,7 +140,7 @@ currentdict end readonly def counttomark 2 idiv dup =only ( begincodespacerange) = { exch .printhex2 .printhex2 () = } repeat (endcodespacerange) = - % Print the map data. + % Print the map data. 0 1 100 maxcid { /lo exch def /hi lo 99 add maxcid .min def @@ -149,11 +149,11 @@ currentdict end readonly def pop } { =only ( begincidchar) = lo 1 hi { - map 1 index get dup 0 eq { pop pop } { exch .printhex2 = } ifelse + map 1 index get dup 0 eq { pop pop } { exch .printhex2 = } ifelse } for (endcidchar) = } ifelse } for - % Wrap up. + % Wrap up. (endcmap CMapName currentdict /CMap defineresource pop end end) = f closefile end |