home/ps/UTF.enc

   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