| 2 |
- |
1 |
% Copyright (C) 1993 Aladdin Enterprises. All rights reserved.
|
|
|
2 |
%
|
|
|
3 |
% This software is provided AS-IS with no warranty, either express or
|
|
|
4 |
% implied.
|
|
|
5 |
%
|
|
|
6 |
% This software is distributed under license and may not be copied,
|
|
|
7 |
% modified or distributed except as expressly authorized under the terms
|
|
|
8 |
% of the license contained in the file LICENSE in this distribution.
|
|
|
9 |
%
|
|
|
10 |
% For more information about licensing, please refer to
|
|
|
11 |
% http://www.ghostscript.com/licensing/. For information on
|
|
|
12 |
% commercial licensing, go to http://www.artifex.com/licensing/ or
|
|
|
13 |
% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
|
|
|
14 |
% San Rafael, CA 94903, U.S.A., +1(415)492-9861.
|
|
|
15 |
|
|
|
16 |
% $Id: winmaps.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
|
|
|
17 |
% winmaps.ps - make maps between PostScript encodings and Windows
|
|
|
18 |
% character sets.
|
|
|
19 |
|
|
|
20 |
% Define the two Windows encodings.
|
|
|
21 |
|
|
|
22 |
/ANSIEncoding
|
|
|
23 |
ISOLatin1Encoding 256 array copy
|
|
|
24 |
dup 16#90 /.notdef put
|
|
|
25 |
16#93 1 16#9f { 2 copy /.notdef put pop } for
|
|
|
26 |
def
|
|
|
27 |
|
|
|
28 |
/OEMEncoding [
|
|
|
29 |
/.notdef /.notdef /.notdef /heart /diamond /club /spade /bullet
|
|
|
30 |
8 { /.notdef } repeat
|
|
|
31 |
/.notdef /.notdef /.notdef /.notdef /paragraph /section /.notdef /.notdef
|
|
|
32 |
/arrowup /arrowdown /arrowright /arrowleft /.notdef /arrowboth /.notdef /.notdef
|
|
|
33 |
StandardEncoding 32 96 getinterval aload pop
|
|
|
34 |
/Ccedilla /udieresis /eacute /acircumflex /adieresis /agrave /aring /ccedilla
|
|
|
35 |
/ecircumflex /edieresis /egrave /idieresis /igrave /Adieresis /Aring
|
|
|
36 |
/Eacute /ae /AE /ocircumflex /odieresis /ograve /ucircumflex /ugrave
|
|
|
37 |
/ydieresis /Odieresis /Udieresis /cent /sterling /yen /.notdef /florin
|
|
|
38 |
/aacute /iacute /oacute /uacute /ntilde /Ntilde /ordfeminine /ordmasculine
|
|
|
39 |
/questiondown /.notdef /logicalnot /onehalf /onequarter /exclamdown /guillemotleft /guillemotright
|
|
|
40 |
48 { /.notdef } repeat
|
|
|
41 |
/alpha /beta /Gamma /Pi /Sigma /sigma /mu /tau
|
|
|
42 |
/Phi /Theta /Omega /delta /infinity /phi /element /intersection
|
|
|
43 |
/equivalence /plusminus /greaterequal /lessequal /integraltp /integralbt /divide /.notdef
|
|
|
44 |
/degree /dotmath /periodcentered /radical /.notdef /twosuperior /.notdef /.notdef
|
|
|
45 |
] def
|
|
|
46 |
|
|
|
47 |
% Utility procedures
|
|
|
48 |
|
|
|
49 |
/invertencoding % <array> invertencoding <dict>
|
|
|
50 |
{ 256 dict exch dup length 1 sub -1 0
|
|
|
51 |
{ % stack: dict array index
|
|
|
52 |
2 copy get /.notdef ne
|
|
|
53 |
{ 2 copy get exch 3 index 3 1 roll put }
|
|
|
54 |
{ pop }
|
|
|
55 |
ifelse
|
|
|
56 |
} for
|
|
|
57 |
pop
|
|
|
58 |
} def
|
|
|
59 |
|
|
|
60 |
/pmarray 256 array def
|
|
|
61 |
/printmap % <chars> <decode> printmap -
|
|
|
62 |
{ mark 3 1 roll exch
|
|
|
63 |
{ 2 copy known { 1 index exch get } { pop 0 } ifelse exch
|
|
|
64 |
}
|
|
|
65 |
forall pop
|
|
|
66 |
pmarray 0 counttomark 2 sub getinterval astore
|
|
|
67 |
([) print dup length =only 0 exch (] = {\n ) exch
|
|
|
68 |
{ exch print =only
|
|
|
69 |
1 add 15 and dup 0 eq { (,\n ) } { (, ) } ifelse
|
|
|
70 |
}
|
|
|
71 |
forall pop pop (\n};\n) print pop
|
|
|
72 |
} def
|
|
|
73 |
|
|
|
74 |
/decodeStd StandardEncoding invertencoding def
|
|
|
75 |
/decodeISO ISOLatin1Encoding
|
|
|
76 |
% Remove the redundant characters
|
|
|
77 |
dup length array copy
|
|
|
78 |
[8#222 8#225 8#230 8#233 8#240] { 2 copy /.notdef put pop } forall
|
|
|
79 |
invertencoding def
|
|
|
80 |
/decodeSym SymbolEncoding invertencoding def
|
|
|
81 |
|
|
|
82 |
/decodeANSI ANSIEncoding invertencoding def
|
|
|
83 |
/decodeOEM OEMEncoding invertencoding def
|
|
|
84 |
|
|
|
85 |
% Construct the map from Symbol to OEM.
|
|
|
86 |
|
|
|
87 |
(\nprivate const byte far_data gs_map_symbol_to_oem) print
|
|
|
88 |
SymbolEncoding decodeOEM printmap
|
|
|
89 |
|
|
|
90 |
% Construct the map from ISOLatin1 to OEM.
|
|
|
91 |
|
|
|
92 |
(\nprivate const byte far_data gs_map_iso_to_oem) print
|
|
|
93 |
ISOLatin1Encoding decodeOEM printmap
|
|
|
94 |
|
|
|
95 |
% Construct the map from Standard to ISOLatin1.
|
|
|
96 |
|
|
|
97 |
(\nprivate const byte far_data gs_map_std_to_iso) print
|
|
|
98 |
StandardEncoding decodeISO printmap
|
|
|
99 |
|
|
|
100 |
% Construct the map from ISOLatin1 to Standard.
|
|
|
101 |
% The Windows driver doesn't need this, but the X11 driver does.
|
|
|
102 |
|
|
|
103 |
(\nprivate const byte far_data gs_map_iso_to_std) print
|
|
|
104 |
ISOLatin1Encoding decodeStd printmap
|
|
|
105 |
|
|
|
106 |
quit
|