| 2 |
- |
1 |
% Copyright (C) 1994, 1996, 1997, 1998, 1999, 2000 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: gs_ciddc.ps,v 1.14 2005/01/20 00:26:06 ray Exp $
|
|
|
17 |
% Define Decoding and CIDDecoding resource categories and related procsets.
|
|
|
18 |
|
|
|
19 |
languagelevel 2 .setlanguagelevel
|
|
|
20 |
currentglobal true setglobal
|
|
|
21 |
|
|
|
22 |
%----------------ParseDecoding procset----------------------------
|
|
|
23 |
|
|
|
24 |
/ParseDecoding <<
|
|
|
25 |
|
|
|
26 |
/Parse % <resource_name> <num_tokens> Parse -
|
|
|
27 |
{ dict begin % /ResName
|
|
|
28 |
|
|
|
29 |
{ currentfile token not {
|
|
|
30 |
exit
|
|
|
31 |
} if % /ResName nCode token
|
|
|
32 |
dup type /integertype eq { % /ResName nCode
|
|
|
33 |
exch pop
|
|
|
34 |
} {
|
|
|
35 |
1 index def % /ResName nCode
|
|
|
36 |
} ifelse
|
|
|
37 |
} loop % /ResName nCode
|
|
|
38 |
pop % /ResName
|
|
|
39 |
currentdict end /Decoding % /ResName <<inst>> /Decoding
|
|
|
40 |
defineresource pop
|
|
|
41 |
} bind
|
|
|
42 |
|
|
|
43 |
>> /ProcSet defineresource pop
|
|
|
44 |
|
|
|
45 |
%----------------Decoding category----------------------------
|
|
|
46 |
|
|
|
47 |
/Generic /Category findresource dup length dict copy
|
|
|
48 |
dup /InstanceType /dicttype put
|
|
|
49 |
/Decoding exch /Category defineresource pop
|
|
|
50 |
|
|
|
51 |
%----------------ParseCMap_Inverse procset----------------------------
|
|
|
52 |
|
|
|
53 |
/ParseCMap_Inverse <<
|
|
|
54 |
/findresource { pop } bind
|
|
|
55 |
/defineresource { pop pop } bind
|
|
|
56 |
/dict {}
|
|
|
57 |
/def { pop pop } bind
|
|
|
58 |
/dup null
|
|
|
59 |
/begin { pop } bind
|
|
|
60 |
/end {}
|
|
|
61 |
/currentdict null
|
|
|
62 |
/CMapName null
|
|
|
63 |
/usecmap { pop } bind
|
|
|
64 |
/begincmap {}
|
|
|
65 |
/endcmap {}
|
|
|
66 |
/begincodespacerange { pop mark } bind
|
|
|
67 |
/endcodespacerange { cleartomark } bind
|
|
|
68 |
/beginnotdefrange { pop mark } bind
|
|
|
69 |
/endnotdefrange { cleartomark } bind
|
|
|
70 |
/beginbfchar { pop mark } bind
|
|
|
71 |
/endbfchar { pop mark } bind
|
|
|
72 |
/beginbfrange { begincidrange }
|
|
|
73 |
/endbfrange { endcidrange }
|
|
|
74 |
/begincidchar { beginbfchar }
|
|
|
75 |
/endcidchar { endbfchar }
|
|
|
76 |
/begincidrange { pop mark } bind
|
|
|
77 |
/endcidrange { cleartomark } bind
|
|
|
78 |
>> % Just keep it on stack for a while.
|
|
|
79 |
|
|
|
80 |
% Now we define another dict for local binding, than merge it with the previous one :
|
|
|
81 |
dup length 5 add dict begin
|
|
|
82 |
|
|
|
83 |
/.Ranges 40 dict def % Key = CID/256, value = array of 256 integer codes.
|
|
|
84 |
//.Ranges /CIDCount 0 put
|
|
|
85 |
|
|
|
86 |
/.StringToInt % <string> .StringToInt <integer>
|
|
|
87 |
{ 0 exch { exch 8 bitshift add } forall
|
|
|
88 |
} bind def
|
|
|
89 |
|
|
|
90 |
/.SetCouple % <I> <b> .SetCouple -
|
|
|
91 |
{ exch % b I
|
|
|
92 |
dup 256 idiv % b I I0
|
|
|
93 |
dup //.Ranges exch known not {
|
|
|
94 |
dup //.Ranges exch 256 array put
|
|
|
95 |
} if % b I I0
|
|
|
96 |
//.Ranges exch get % b I [Range]
|
|
|
97 |
exch 256 mod % b [Range] I1
|
|
|
98 |
3 2 roll put %
|
|
|
99 |
} bind def
|
|
|
100 |
|
|
|
101 |
/endcidrange
|
|
|
102 |
{ % Writes the inversed CMap to .Ranges
|
|
|
103 |
counttomark 3 idiv { % (b) (e) I
|
|
|
104 |
exch .StringToInt % (b) I e
|
|
|
105 |
3 2 roll .StringToInt % I e b
|
|
|
106 |
% Note : this code does't handle multidimentional CID ranges.
|
|
|
107 |
% fixme : optimize below.
|
|
|
108 |
dup 3 2 roll exch sub 1 add % I b d
|
|
|
109 |
{ 2 copy //.SetCouple exec % I b
|
|
|
110 |
1 add exch 1 add exch
|
|
|
111 |
} repeat % I b
|
|
|
112 |
pop % I
|
|
|
113 |
dup //.Ranges /CIDCount get gt { % I
|
|
|
114 |
dup //.Ranges exch /CIDCount exch put
|
|
|
115 |
} if % I
|
|
|
116 |
pop
|
|
|
117 |
} repeat
|
|
|
118 |
pop % mark
|
|
|
119 |
} bind def
|
|
|
120 |
|
|
|
121 |
/.GetCIDDecoding % - .GetCIDDEcoding <dict>
|
|
|
122 |
{ //.Ranges dup length dict copy
|
|
|
123 |
//.Ranges //.PurgeDict exec
|
|
|
124 |
//.Ranges /CIDCount 0 put
|
|
|
125 |
} bind def
|
|
|
126 |
|
|
|
127 |
currentdict end
|
|
|
128 |
exch copy % Merge the dicts - see above.
|
|
|
129 |
/ProcSet defineresource pop
|
|
|
130 |
|
|
|
131 |
%----------------CIDDecoding category----------------------------
|
|
|
132 |
% Note that we put all instances in global memory - see FindResource.
|
|
|
133 |
|
|
|
134 |
/Generic /Category findresource dup length dict copy
|
|
|
135 |
begin
|
|
|
136 |
/Category /CIDDecoding def
|
|
|
137 |
/InstanceType /dicttype def
|
|
|
138 |
|
|
|
139 |
/.CMapChooser <<
|
|
|
140 |
% This lists CMaps to inverse and unite for creating a CIDDecoding.
|
|
|
141 |
% Choose by FAPIcidfmap.Registry concatenated with TrueType encoding ID.
|
|
|
142 |
% Font renderer must provide the glyph substitution internally.
|
|
|
143 |
|
|
|
144 |
/CNS1.Big5 [ /ETen-B5-H /ETen-B5-V ]
|
|
|
145 |
/CNS1.Unicode [ /UniCNS-UCS2-H /UniCNS-UCS2-V]
|
|
|
146 |
/GB1.GB2312 [ /GBK-EUC-H /GBK-EUC-V ]
|
|
|
147 |
/GB1.Unicode [ /UniGB-UCS2-H /UniGB-UCS2-V ]
|
|
|
148 |
/Japan1.ShiftJIS [ /90ms-RKSJ-H /90ms-RKSJ-V ]
|
|
|
149 |
/Japan1.Unicode [ /UniJIS-UCS2-H /UniJIS-UCS2-V]
|
|
|
150 |
/Japan2.ShiftJIS [ /90ms-RKSJ-H /90ms-RKSJ-V ]
|
|
|
151 |
/Japan2.Unicode [ /UniHojo-UCS2-H ]
|
|
|
152 |
/Korea1.Johab [ /KSC-Johab-V /KSC-Johab-H ]
|
|
|
153 |
/Korea1.Wansung [ /KSCms-UHC-V /KSCms-UHC-H ]
|
|
|
154 |
/Korea1.Unicode [ /UniKS-UCS2-H /UniKS-UCS2-V ]
|
|
|
155 |
/Identity.Symbol [ /Identity-H /Identity-V ]
|
|
|
156 |
>> def
|
|
|
157 |
|
|
|
158 |
/.MakeInstance % <name> .MakeInstance <inst>
|
|
|
159 |
{ dup % /Name /Name
|
|
|
160 |
//.CMapChooser exch .knownget not {
|
|
|
161 |
(Can't build /) print =string cvs print ( /CIDDecoding resource. See gs_ciddc.ps . ) =
|
|
|
162 |
/findresource cvx /undefinedresource signalerror
|
|
|
163 |
} if % /Name [CMaps]
|
|
|
164 |
exch pop % [CMaps]
|
|
|
165 |
/CMap /Category findresource % [CMaps] <CMapCategory>
|
|
|
166 |
/ParseCMap_Inverse /ProcSet findresource % [CMaps] <CMapCategory> <PCI>
|
|
|
167 |
3 2 roll { % <CMapCategory> <PCI> /CMapName
|
|
|
168 |
3 2 roll begin % <PCI> /CMapName
|
|
|
169 |
dup .ResourceFile not {
|
|
|
170 |
(Can't find CMap ) print =string cvs print ( building a CIDDecoding resource. ) =
|
|
|
171 |
/findresource cvx /undefinedresource signalerror
|
|
|
172 |
} if
|
|
|
173 |
currentdict end exch % <PCI> /CMapName <CMapCategory> file
|
|
|
174 |
|
|
|
175 |
3 index begin
|
|
|
176 |
cvx exec % <PCI> /CMapName <CMapCategory>
|
|
|
177 |
end
|
|
|
178 |
exch pop exch % <CMapCategory> <PCI>
|
|
|
179 |
} forall
|
|
|
180 |
exch pop begin %
|
|
|
181 |
.GetCIDDecoding
|
|
|
182 |
end
|
|
|
183 |
} bind def
|
|
|
184 |
|
|
|
185 |
/FindResource % <name> FindResource <dict>
|
|
|
186 |
{ currentglobal exch % bGlobal /InstName
|
|
|
187 |
true setglobal
|
|
|
188 |
dup //.MakeInstance exec % bGlobal /InstName <Inst>
|
|
|
189 |
DefineResource % bGlobal <Inst>
|
|
|
190 |
exch setglobal % <Inst>
|
|
|
191 |
} bind def
|
|
|
192 |
|
|
|
193 |
currentdict end
|
|
|
194 |
/CIDDecoding exch /Category defineresource pop
|
|
|
195 |
|
|
|
196 |
setglobal
|
|
|
197 |
.setlanguagelevel
|