![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to UTF.enc CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / post.src / psencoding|
Return to UTF.enc CVS log | Up to [Research Unix] / researchv10no / cmd / post.src / psencoding |
1.1 root 1: %
2: % Encoding vector, operator and procedure redefinitions for Plan 9 UTF
3: % encoding. Prologues are expected to take steps to ensure operator
4: % redefinitions given here are actually used. Current implementation
5: % assumes UTF byte streams that represent ASCII or Latin1 text.
6: %
7:
8: /UTFLatin1Encoding [
9: /.notdef
10: /.notdef
11: /.notdef
12: /.notdef
13: /.notdef
14: /.notdef
15: /.notdef
16: /.notdef
17: /.notdef
18: /.notdef
19: /.notdef
20: /.notdef
21: /.notdef
22: /.notdef
23: /.notdef
24: /.notdef
25: /.notdef
26: /.notdef
27: /.notdef
28: /.notdef
29: /.notdef
30: /.notdef
31: /.notdef
32: /.notdef
33: /.notdef
34: /.notdef
35: /.notdef
36: /.notdef
37: /.notdef
38: /.notdef
39: /.notdef
40: /.notdef
41: /space
42: /exclam
43: /quotedbl
44: /numbersign
45: /dollar
46: /percent
47: /ampersand
48: /quoteright
49: /parenleft
50: /parenright
51: /asterisk
52: /plus
53: /comma
54: /minus
55: /period
56: /slash
57: /zero
58: /one
59: /two
60: /three
61: /four
62: /five
63: /six
64: /seven
65: /eight
66: /nine
67: /colon
68: /semicolon
69: /less
70: /equal
71: /greater
72: /question
73: /at
74: /A
75: /B
76: /C
77: /D
78: /E
79: /F
80: /G
81: /H
82: /I
83: /J
84: /K
85: /L
86: /M
87: /N
88: /O
89: /P
90: /Q
91: /R
92: /S
93: /T
94: /U
95: /V
96: /W
97: /X
98: /Y
99: /Z
100: /bracketleft
101: /backslash
102: /bracketright
103: /asciicircum
104: /underscore
105: /quoteleft
106: /a
107: /b
108: /c
109: /d
110: /e
111: /f
112: /g
113: /h
114: /i
115: /j
116: /k
117: /l
118: /m
119: /n
120: /o
121: /p
122: /q
123: /r
124: /s
125: /t
126: /u
127: /v
128: /w
129: /x
130: /y
131: /z
132: /braceleft
133: /bar
134: /braceright
135: /asciitilde
136: /.notdef
137: /.notdef
138: /.notdef
139: /.notdef
140: /.notdef
141: /.notdef
142: /.notdef
143: /.notdef
144: /.notdef
145: /.notdef
146: /.notdef
147: /.notdef
148: /.notdef
149: /.notdef
150: /.notdef
151: /.notdef
152: /.notdef
153: /dotlessi
154: /grave
155: /acute
156: /circumflex
157: /tilde
158: /macron
159: /breve
160: /dotaccent
161: /dieresis
162: /.notdef
163: /ring
164: /cedilla
165: /.notdef
166: /hungarumlaut
167: /ogonek
168: /caron
169: /.notdef % was space
170: /exclamdown
171: /cent
172: /sterling
173: /currency
174: /yen
175: /brokenbar
176: /section
177: /dieresis
178: /copyright
179: /ordfeminine
180: /guillemotleft
181: /logicalnot
182: /hyphen
183: /registered
184: /macron
185: /degree
186: /plusminus
187: /twosuperior
188: /threesuperior
189: /acute
190: /mu
191: /paragraph
192: /periodcentered
193: /cedilla
194: /onesuperior
195: /ordmasculine
196: /guillemotright
197: /onequarter
198: /onehalf
199: /threequarters
200: /questiondown
201: /Agrave
202: /Aacute
203: /Acircumflex
204: /Atilde
205: /Adieresis
206: /Aring
207: /AE
208: /Ccedilla
209: /Egrave
210: /Eacute
211: /Ecircumflex
212: /Edieresis
213: /Igrave
214: /Iacute
215: /Icircumflex
216: /Idieresis
217: /Eth
218: /Ntilde
219: /Ograve
220: /Oacute
221: /Ocircumflex
222: /Otilde
223: /Odieresis
224: /multiply
225: /Oslash
226: /Ugrave
227: /Uacute
228: /Ucircumflex
229: /Udieresis
230: /Yacute
231: /Thorn
232: /germandbls
233: /agrave
234: /aacute
235: /acircumflex
236: /atilde
237: /adieresis
238: /aring
239: /ae
240: /ccedilla
241: /egrave
242: /eacute
243: /ecircumflex
244: /edieresis
245: /igrave
246: /iacute
247: /icircumflex
248: /idieresis
249: /eth
250: /ntilde
251: /ograve
252: /oacute
253: /ocircumflex
254: /otilde
255: /odieresis
256: /divide
257: /oslash
258: /ugrave
259: /uacute
260: /ucircumflex
261: /udieresis
262: /yacute
263: /thorn
264: /ydieresis
265: ] def
266:
267: /NewFontDirectory FontDirectory maxlength dict def
268:
269: %
270: % Apparently no guarantee findfont is defined in systemdict so the obvious
271: %
272: % systemdict /findfont get exec
273: %
274: % can generate an error. So far the only exception is a VT600 (version 48.0).
275: %
276:
277: userdict /@RealFindfont known not {
278: userdict begin
279: /@RealFindfont systemdict begin /findfont load end def
280: end
281: } if
282:
283: /findfont {
284: dup NewFontDirectory exch known not {
285: dup
286: %dup systemdict /findfont get exec % not always in systemdict
287: dup userdict /@RealFindfont get exec
288: dup /Encoding get StandardEncoding eq {
289: dup length 1 add dict begin
290: {1 index /FID ne {def}{pop pop} ifelse} forall
291: /Encoding UTFLatin1Encoding def
292: /Metrics 1 dict def
293: Metrics /.notdef 0 put
294: currentdict
295: end
296: /DummyFontName exch definefont
297: } if
298: NewFontDirectory 3 1 roll put
299: } if
300: NewFontDirectory exch get
301: } bind def
302:
303: %
304: % Assume A0, except for A0A0 which is replaced by 20A0, can be ignored.
305: % Works with ASCII or Latin1 because A0 has been re-encoded as a zero
306: % width non-printing character.
307: %
308:
309: /UTFstring {
310: dup {
311: (\240\240) search {
312: pop
313: 0 16#20 put
314: }{pop exit} ifelse
315: } loop
316: } bind def
317:
318: /ashow {mark 4 1 roll UTFstring //ashow cvx exec cleartomark} bind def
319: /awidthshow {mark 7 1 roll UTFstring //awidthshow cvx exec cleartomark} bind def
320: /show {mark exch UTFstring //show cvx exec cleartomark} bind def
321: /stringwidth {UTFstring //stringwidth cvx exec} bind def
322: /widthshow {mark 5 1 roll UTFstring //widthshow cvx exec cleartomark} bind def
323:
324: %
325: % kshow is harder - stack can't change because of the procedure.
326: %
327:
328: /kshow dup load type /operatortype eq
329: {{UTFstring kshow} bind}
330: {{UTFstring //kshow cvx exec} bind}
331: ifelse def
332:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.