lisp/utf-2000/ccs-viscii.el

   1 ;;; ccs-viscii.el --- Mapping table for VISCII 1.1.
   2
   3 ;; Copyright (C) 1999 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Author: MORIOKA Tomohiko <tomo@m17n.org>
   7 ;; Keywords: coded character set
   8
   9 ;; This file is part of UTF-2000.
  10
  11 ;; UTF-2000 is free software; you can redistribute it and/or modify it
  12 ;; under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; UTF-2000 is distributed in the hope that it will be useful, but
  17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19 ;; General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with UTF-2000; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25
  26 ;;; Code:
  27
  28 (set-charset-mapping-table
  29  'latin-viscii
  30  [?\u0000       ; 0x00
  31   ?\u0001       ; 0x01
  32   ?\u1EB2       ; 0x02 (\e.2\8eÆ)
  33   ?\u0003       ; 0x03
  34   ?\u0004       ; 0x04
  35   ?\u1EB4       ; 0x05 (\8eÇ)
  36   ?\u1EAA       ; 0x06 (\8eç)
  37   ?\u0007       ; 0x07
  38   ?\u0008       ; 0x08
  39   ?\u0009       ; 0x09
  40   ?\u000A       ; 0x0A
  41   ?\u000B       ; 0x0B
  42   ?\u000C       ; 0x0C
  43   ?\u000D       ; 0x0D
  44   ?\u000E       ; 0x0E
  45   ?\u000F       ; 0x0F
  46   ?\u0010       ; 0x10
  47   ?\u0011       ; 0x11
  48   ?\u0012       ; 0x12
  49   ?\u0013       ; 0x13
  50   ?\u1EF6       ; 0x14 (\8eÖ)
  51   ?\u0015       ; 0x15
  52   ?\u0016       ; 0x16
  53   ?\u0017       ; 0x17
  54   ?\u0018       ; 0x18
  55   ?\u1EF8       ; 0x19 (\8eÛ)
  56   ?\u001A       ; 0x1A
  57   ?\u001B       ; 0x1B
  58   ?\u001C       ; 0x1C
  59   ?\u001D       ; 0x1D
  60   ?\u1EF4       ; 0x1E (\8eÜ)
  61   ?\u001F       ; 0x1F
  62   ?\u0020       ; 0x20 ( )
  63   ?\u0021       ; 0x21 (!)
  64   ?\u0022       ; 0x22 (")
  65   ?\u0023       ; 0x23 (#)
  66   ?\u0024       ; 0x24 ($)
  67   ?\u0025       ; 0x25 (%)
  68   ?\u0026       ; 0x26 (&)
  69   ?\u0027       ; 0x27 (')
  70   ?\u0028       ; 0x28 (()
  71   ?\u0029       ; 0x29 ())
  72   ?\u002A       ; 0x2A (*)
  73   ?\u002B       ; 0x2B (+)
  74   ?\u002C       ; 0x2C (,)
  75   ?\u002D       ; 0x2D (-)
  76   ?\u002E       ; 0x2E (.)
  77   ?\u002F       ; 0x2F (/)
  78   ?\u0030       ; 0x30 (0)
  79   ?\u0031       ; 0x31 (1)
  80   ?\u0032       ; 0x32 (2)
  81   ?\u0033       ; 0x33 (3)
  82   ?\u0034       ; 0x34 (4)
  83   ?\u0035       ; 0x35 (5)
  84   ?\u0036       ; 0x36 (6)
  85   ?\u0037       ; 0x37 (7)
  86   ?\u0038       ; 0x38 (8)
  87   ?\u0039       ; 0x39 (9)
  88   ?\u003A       ; 0x3A (:)
  89   ?\u003B       ; 0x3B (;)
  90   ?\u003C       ; 0x3C (<)
  91   ?\u003D       ; 0x3D (=)
  92   ?\u003E       ; 0x3E (>)
  93   ?\u003F       ; 0x3F (?)
  94   ?\u0040       ; 0x40 (@)
  95   ?\u0041       ; 0x41 (A)
  96   ?\u0042       ; 0x42 (B)
  97   ?\u0043       ; 0x43 (C)
  98   ?\u0044       ; 0x44 (D)
  99   ?\u0045       ; 0x45 (E)
 100   ?\u0046       ; 0x46 (F)
 101   ?\u0047       ; 0x47 (G)
 102   ?\u0048       ; 0x48 (H)
 103   ?\u0049       ; 0x49 (I)
 104   ?\u004A       ; 0x4A (J)
 105   ?\u004B       ; 0x4B (K)
 106   ?\u004C       ; 0x4C (L)
 107   ?\u004D       ; 0x4D (M)
 108   ?\u004E       ; 0x4E (N)
 109   ?\u004F       ; 0x4F (O)
 110   ?\u0050       ; 0x50 (P)
 111   ?\u0051       ; 0x51 (Q)
 112   ?\u0052       ; 0x52 (R)
 113   ?\u0053       ; 0x53 (S)
 114   ?\u0054       ; 0x54 (T)
 115   ?\u0055       ; 0x55 (U)
 116   ?\u0056       ; 0x56 (V)
 117   ?\u0057       ; 0x57 (W)
 118   ?\u0058       ; 0x58 (X)
 119   ?\u0059       ; 0x59 (Y)
 120   ?\u005A       ; 0x5A (Z)
 121   ?\u005B       ; 0x5B ([)
 122   ?\u005C       ; 0x5C (\)
 123   ?\u005D       ; 0x5D (])
 124   ?\u005E       ; 0x5E (^)
 125   ?\u005F       ; 0x5F (_)
 126   ?\u0060       ; 0x60 (`)
 127   ?\u0061       ; 0x61 (a)
 128   ?\u0062       ; 0x62 (b)
 129   ?\u0063       ; 0x63 (c)
 130   ?\u0064       ; 0x64 (d)
 131   ?\u0065       ; 0x65 (e)
 132   ?\u0066       ; 0x66 (f)
 133   ?\u0067       ; 0x67 (g)
 134   ?\u0068       ; 0x68 (h)
 135   ?\u0069       ; 0x69 (i)
 136   ?\u006A       ; 0x6A (j)
 137   ?\u006B       ; 0x6B (k)
 138   ?\u006C       ; 0x6C (l)
 139   ?\u006D       ; 0x6D (m)
 140   ?\u006E       ; 0x6E (n)
 141   ?\u006F       ; 0x6F (o)
 142   ?\u0070       ; 0x70 (p)
 143   ?\u0071       ; 0x71 (q)
 144   ?\u0072       ; 0x72 (r)
 145   ?\u0073       ; 0x73 (s)
 146   ?\u0074       ; 0x74 (t)
 147   ?\u0075       ; 0x75 (u)
 148   ?\u0076       ; 0x76 (v)
 149   ?\u0077       ; 0x77 (w)
 150   ?\u0078       ; 0x78 (x)
 151   ?\u0079       ; 0x79 (y)
 152   ?\u007A       ; 0x7A (z)
 153   ?\u007B       ; 0x7B ({)
 154   ?\u007C       ; 0x7C (|)
 155   ?\u007D       ; 0x7D (})
 156   ?\u007E       ; 0x7E (~)
 157   ?\u007F       ; 0x7F
 158   ?\u1EA0       ; 0x80 (\8eÕ)
 159   ?\u1EAE       ; 0x81 (\8e¡)
 160   ?\u1EB0       ; 0x82 (\8e¢)
 161   ?\u1EB6       ; 0x83 (\8e£)
 162   ?\u1EA4       ; 0x84 (\8e¤)
 163   ?\u1EA6       ; 0x85 (\8e¥)
 164   ?\u1EA8       ; 0x86 (\8e¦)
 165   ?\u1EAC       ; 0x87 (\8e§)
 166   ?\u1EBC       ; 0x88 (\8e¨)
 167   ?\u1EB8       ; 0x89 (\8e©)
 168   ?\u1EBE       ; 0x8A (\8eª)
 169   ?\u1EC0       ; 0x8B (\8e«)
 170   ?\u1EC2       ; 0x8C (\8e¬)
 171   ?\u1EC4       ; 0x8D (\8e)
 172   ?\u1EC6       ; 0x8E (\8e®)
 173   ?\u1ED0       ; 0x8F (\8e¯)
 174   ?\u1ED2       ; 0x90 (\8e°)
 175   ?\u1ED4       ; 0x91 (\8e±)
 176   ?\u1ED6       ; 0x92 (\8e²)
 177   ?\u1ED8       ; 0x93 (\8eµ)
 178   ?\u1EE2       ; 0x94 (\8eþ)
 179   ?\u1EDA       ; 0x95 (\8e¾)
 180   ?\u1EDC       ; 0x96 (\8e¶)
 181   ?\u1EDE       ; 0x97 (\8e·)
 182   ?\u1ECA       ; 0x98 (\8e¸)
 183   ?\u1ECE       ; 0x99 (\8eö)
 184   ?\u1ECC       ; 0x9A (\8e÷)
 185   ?\u1EC8       ; 0x9B (\8eï)
 186   ?\u1EE6       ; 0x9C (\8eü)
 187   ?\u0168       ; 0x9D (\8eû)
 188   ?\u1EE4       ; 0x9E (\8eø)
 189   ?\u1EF2       ; 0x9F (\8eÏ)
 190   ?\u00D5       ; 0xA0 (\8eõ)
 191   ?\u1EAF       ; 0xA1 (\e.1\8e¡)
 192   ?\u1EB1       ; 0xA2 (\8e¢)
 193   ?\u1EB7       ; 0xA3 (\8e£)
 194   ?\u1EA5       ; 0xA4 (\8e¤)
 195   ?\u1EA7       ; 0xA5 (\8e¥)
 196   ?\u1EA9       ; 0xA6 (\8e¦)
 197   ?\u1EAD       ; 0xA7 (\8e§)
 198   ?\u1EBD       ; 0xA8 (\8e¨)
 199   ?\u1EB9       ; 0xA9 (\8e©)
 200   ?\u1EBF       ; 0xAA (\8eª)
 201   ?\u1EC1       ; 0xAB (\8e«)
 202   ?\u1EC3       ; 0xAC (\8e¬)
 203   ?\u1EC5       ; 0xAD (\8e)
 204   ?\u1EC7       ; 0xAE (\8e®)
 205   ?\u1ED1       ; 0xAF (\8e¯)
 206   ?\u1ED3       ; 0xB0 (\8e°)
 207   ?\u1ED5       ; 0xB1 (\8e±)
 208   ?\u1ED7       ; 0xB2 (\8e²)
 209   ?\u1EE0       ; 0xB3 (\e.2\8eÞ)
 210   ?\u01A0       ; 0xB4 (\8e½)
 211   ?\u1ED9       ; 0xB5 (\e.1\8eµ)
 212   ?\u1EDD       ; 0xB6 (\8e¶)
 213   ?\u1EDF       ; 0xB7 (\8e·)
 214   ?\u1ECB       ; 0xB8 (\8e¸)
 215   ?\u1EF0       ; 0xB9 (\e.2\8eñ)
 216   ?\u1EE8       ; 0xBA (\8eÑ)
 217   ?\u1EEA       ; 0xBB (\8e×)
 218   ?\u1EEC       ; 0xBC (\8eØ)
 219   ?\u01A1       ; 0xBD (\e.1\8e½)
 220   ?\u1EDB       ; 0xBE (\8e¾)
 221   ?\u01AF       ; 0xBF (\e.2\8eß)
 222   ?\u00C0       ; 0xC0 (\8eà)
 223   ?\u00C1       ; 0xC1 (\8eá)
 224   ?\u00C2       ; 0xC2 (\8eâ)
 225   ?\u00C3       ; 0xC3 (\8eã)
 226   ?\u1EA2       ; 0xC4 (\8eä)
 227   ?\u0102       ; 0xC5 (\8eå)
 228   ?\u1EB3       ; 0xC6 (\e.1\8eÆ)
 229   ?\u1EB5       ; 0xC7 (\8eÇ)
 230   ?\u00C8       ; 0xC8 (\e.2\8eè)
 231   ?\u00C9       ; 0xC9 (\8eé)
 232   ?\u00CA       ; 0xCA (\8eê)
 233   ?\u1EBA       ; 0xCB (\8eë)
 234   ?\u00CC       ; 0xCC (\8eì)
 235   ?\u00CD       ; 0xCD (\8eí)
 236   ?\u0128       ; 0xCE (\8eî)
 237   ?\u1EF3       ; 0xCF (\e.1\8eÏ)
 238   ?\u0110       ; 0xD0 (\e.2\8eð)
 239   ?\u1EE9       ; 0xD1 (\e.1\8eÑ)
 240   ?\u00D2       ; 0xD2 (\e.2\8eò)
 241   ?\u00D3       ; 0xD3 (\8eó)
 242   ?\u00D4       ; 0xD4 (\8eô)
 243   ?\u1EA1       ; 0xD5 (\e.1\8eÕ)
 244   ?\u1EF7       ; 0xD6 (\8eÖ)
 245   ?\u1EEB       ; 0xD7 (\8e×)
 246   ?\u1EED       ; 0xD8 (\8eØ)
 247   ?\u00D9       ; 0xD9 (\e.2\8eù)
 248   ?\u00DA       ; 0xDA (\8eú)
 249   ?\u1EF9       ; 0xDB (\e.1\8eÛ)
 250   ?\u1EF5       ; 0xDC (\8eÜ)
 251   ?\u00DD       ; 0xDD (\e.2\8eý)
 252   ?\u1EE1       ; 0xDE (\e.1\8eÞ)
 253   ?\u01B0       ; 0xDF (\8eß)
 254   ?\u00E0       ; 0xE0 (\8eà)
 255   ?\u00E1       ; 0xE1 (\8eá)
 256   ?\u00E2       ; 0xE2 (\8eâ)
 257   ?\u00E3       ; 0xE3 (\8eã)
 258   ?\u1EA3       ; 0xE4 (\8eä)
 259   ?\u0103       ; 0xE5 (\8eå)
 260   ?\u1EEF       ; 0xE6 (\8eæ)
 261   ?\u1EAB       ; 0xE7 (\8eç)
 262   ?\u00E8       ; 0xE8 (\8eè)
 263   ?\u00E9       ; 0xE9 (\8eé)
 264   ?\u00EA       ; 0xEA (\8eê)
 265   ?\u1EBB       ; 0xEB (\8eë)
 266   ?\u00EC       ; 0xEC (\8eì)
 267   ?\u00ED       ; 0xED (\8eí)
 268   ?\u0129       ; 0xEE (\8eî)
 269   ?\u1EC9       ; 0xEF (\8eï)
 270   ?\u0111       ; 0xF0 (\8eð)
 271   ?\u1EF1       ; 0xF1 (\8eñ)
 272   ?\u00F2       ; 0xF2 (\8eò)
 273   ?\u00F3       ; 0xF3 (\8eó)
 274   ?\u00F4       ; 0xF4 (\8eô)
 275   ?\u00F5       ; 0xF5 (\8eõ)
 276   ?\u1ECF       ; 0xF6 (\8eö)
 277   ?\u1ECD       ; 0xF7 (\8e÷)
 278   ?\u1EE5       ; 0xF8 (\8eø)
 279   ?\u00F9       ; 0xF9 (\8eù)
 280   ?\u00FA       ; 0xFA (\8eú)
 281   ?\u0169       ; 0xFB (\8eû)
 282   ?\u1EE7       ; 0xFC (\8eü)
 283   ?\u00FD       ; 0xFD (\8eý)
 284   ?\u1EE3       ; 0xFE (\8eþ)
 285   ?\u1EEE       ; 0xFF (\e.2\8eæ)
 286   ])
 287
 288 (set-charset-mapping-table
 289  'latin-viscii-lower
 290  [nil           ; 0x20
 291   ?\u1eaf       ; 0x21
 292   ?\u1eb1       ; 0x22
 293   ?\u1eb7       ; 0x23
 294   ?\u1ea5       ; 0x24
 295   ?\u1ea7       ; 0x25
 296   ?\u1ea9       ; 0x26
 297   ?\u1ead       ; 0x27
 298   ?\u1ebd       ; 0x28
 299   ?\u1eb9       ; 0x29
 300   ?\u1ebf       ; 0x2a
 301   ?\u1ec1       ; 0x2b
 302   ?\u1ec3       ; 0x2c
 303   ?\u1ec5       ; 0x2d
 304   ?\u1ec7       ; 0x2e
 305   ?\u1ed1       ; 0x2f
 306   ?\u1ed3       ; 0x30
 307   ?\u1ed5       ; 0x31
 308   ?\u1ed7       ; 0x32
 309   nil           ; 0x33
 310   nil           ; 0x34
 311   ?\u1ed9       ; 0x35
 312   ?\u1edd       ; 0x36
 313   ?\u1edf       ; 0x37
 314   ?\u1ecb       ; 0x38
 315   nil           ; 0x39
 316   nil           ; 0x3A
 317   nil           ; 0x3B
 318   nil           ; 0x3C
 319   ?\u01a1       ; 0x3d
 320   ?\u1edb       ; 0x3e
 321   nil           ; 0x3F
 322   nil           ; 0x40
 323   nil           ; 0x41
 324   nil           ; 0x42
 325   nil           ; 0x43
 326   nil           ; 0x44
 327   nil           ; 0x45
 328   ?\u1eb3       ; 0x46
 329   ?\u1eb5       ; 0x47
 330   nil           ; 0x48
 331   nil           ; 0x49
 332   nil           ; 0x4A
 333   nil           ; 0x4B
 334   nil           ; 0x4C
 335   nil           ; 0x4D
 336   nil           ; 0x4E
 337   ?\u1ef3       ; 0x4f
 338   nil           ; 0x50
 339   ?\u1ee9       ; 0x51
 340   nil           ; 0x52
 341   nil           ; 0x53
 342   nil           ; 0x54
 343   ?\u1ea1       ; 0x55
 344   ?\u1ef7       ; 0x56
 345   ?\u1eeb       ; 0x57
 346   ?\u1eed       ; 0x58
 347   nil           ; 0x59
 348   nil           ; 0x5A
 349   ?\u1ef9       ; 0x5b
 350   ?\u1ef5       ; 0x5c
 351   nil           ; 0x5D
 352   ?\u1ee1       ; 0x5e
 353   ?\u01b0       ; 0x5f
 354   ?\u00e0       ; 0x60
 355   ?\u00e1       ; 0x61
 356   ?\u00e2       ; 0x62
 357   ?\u00e3       ; 0x63
 358   ?\u1ea3       ; 0x64
 359   ?\u0103       ; 0x65
 360   ?\u1eef       ; 0x66
 361   ?\u1eab       ; 0x67
 362   ?\u00e8       ; 0x68
 363   ?\u00e9       ; 0x69
 364   ?\u00ea       ; 0x6a
 365   ?\u1ebb       ; 0x6b
 366   ?\u00ec       ; 0x6c
 367   ?\u00ed       ; 0x6d
 368   ?\u0129       ; 0x6e
 369   ?\u1ec9       ; 0x6f
 370   ?\u0111       ; 0x70
 371   ?\u1ef1       ; 0x71
 372   ?\u00f2       ; 0x72
 373   ?\u00f3       ; 0x73
 374   ?\u00f4       ; 0x74
 375   ?\u00f5       ; 0x75
 376   ?\u1ecf       ; 0x76
 377   ?\u1ecd       ; 0x77
 378   ?\u1ee5       ; 0x78
 379   ?\u00f9       ; 0x79
 380   ?\u00fa       ; 0x7a
 381   ?\u0169       ; 0x7b
 382   ?\u1ee7       ; 0x7c
 383   ?\u00fd       ; 0x7d
 384   ?\u1ee3       ; 0x7e
 385   nil           ; 0x7F
 386   ])
 387
 388 (set-charset-mapping-table
 389  'latin-viscii-upper
 390  [nil           ; 0x20
 391   ?\u1eae       ; 0x21
 392   ?\u1eb0       ; 0x22
 393   ?\u1eb6       ; 0x23
 394   ?\u1ea4       ; 0x24
 395   ?\u1ea6       ; 0x25
 396   ?\u1ea8       ; 0x26
 397   ?\u1eac       ; 0x27
 398   ?\u1ebc       ; 0x28
 399   ?\u1eb8       ; 0x29
 400   ?\u1ebe       ; 0x2a
 401   ?\u1ec0       ; 0x2b
 402   ?\u1ec2       ; 0x2c
 403   ?\u1ec4       ; 0x2d
 404   ?\u1ec6       ; 0x2e
 405   ?\u1ed0       ; 0x2f
 406   ?\u1ed2       ; 0x30
 407   ?\u1ed4       ; 0x31
 408   ?\u1ed6       ; 0x32
 409   nil           ; 0x33
 410   nil           ; 0x34
 411   ?\u1ed8       ; 0x35
 412   ?\u1edc       ; 0x36
 413   ?\u1ede       ; 0x37
 414   ?\u1eca       ; 0x38
 415   nil           ; 0x39
 416   nil           ; 0x3a
 417   nil           ; 0x3b
 418   nil           ; 0x3c
 419   ?\u01a0       ; 0x3d
 420   ?\u1eda       ; 0x3e
 421   nil           ; 0x3f
 422   nil           ; 0x40
 423   nil           ; 0x41
 424   nil           ; 0x42
 425   nil           ; 0x43
 426   nil           ; 0x44
 427   nil           ; 0x45
 428   ?\u1eb2       ; 0x46
 429   ?\u1eb4       ; 0x47
 430   nil           ; 0x48
 431   nil           ; 0x49
 432   nil           ; 0x4a
 433   nil           ; 0x4b
 434   nil           ; 0x4c
 435   nil           ; 0x4d
 436   nil           ; 0x4e
 437   ?\u1ef2       ; 0x4f
 438   nil           ; 0x50
 439   ?\u1ee8       ; 0x51
 440   nil           ; 0x52
 441   nil           ; 0x53
 442   nil           ; 0x54
 443   ?\u1ea0       ; 0x55
 444   ?\u1ef6       ; 0x56
 445   ?\u1eea       ; 0x57
 446   ?\u1eec       ; 0x58
 447   nil           ; 0x59
 448   nil           ; 0x5a
 449   ?\u1ef8       ; 0x5b
 450   ?\u1ef4       ; 0x5c
 451   nil           ; 0x5d
 452   ?\u1ee0       ; 0x5e
 453   ?\u01af       ; 0x5f
 454   ?\u00c0       ; 0x60
 455   ?\u00c1       ; 0x61
 456   ?\u00c2       ; 0x62
 457   ?\u00c3       ; 0x63
 458   ?\u1ea2       ; 0x64
 459   ?\u0102       ; 0x65
 460   ?\u1eee       ; 0x66
 461   ?\u1eaa       ; 0x67
 462   ?\u00c8       ; 0x68
 463   ?\u00c9       ; 0x69
 464   ?\u00ca       ; 0x6a
 465   ?\u1eba       ; 0x6b
 466   ?\u00cc       ; 0x6c
 467   ?\u00cd       ; 0x6d
 468   ?\u0128       ; 0x6e
 469   ?\u1ec8       ; 0x6f
 470   ?\u0110       ; 0x70
 471   ?\u1ef0       ; 0x71
 472   ?\u00d2       ; 0x72
 473   ?\u00d3       ; 0x73
 474   ?\u00d4       ; 0x74
 475   ?\u00d5       ; 0x75
 476   ?\u1ece       ; 0x76
 477   ?\u1ecc       ; 0x77
 478   ?\u1ee4       ; 0x78
 479   ?\u00d9       ; 0x79
 480   ?\u00da       ; 0x7a
 481   ?\u0168       ; 0x7b
 482   ?\u1ee6       ; 0x7c
 483   ?\u00dd       ; 0x7d
 484   ?\u1ee2       ; 0x7e
 485   nil           ; 0x7f
 486   ])
 487
 488 ;;; ccs-viscii.el ends here