git.chise.org Git - chise/xemacs-chise.git-/blob - 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-lower
  30  [nil           ; 0x20
  31   ?\u1eaf       ; 0x21
  32   ?\u1eb1       ; 0x22
  33   ?\u1eb7       ; 0x23
  34   ?\u1ea5       ; 0x24
  35   ?\u1ea7       ; 0x25
  36   ?\u1ea9       ; 0x26
  37   ?\u1ead       ; 0x27
  38   ?\u1ebd       ; 0x28
  39   ?\u1eb9       ; 0x29
  40   ?\u1ebf       ; 0x2a
  41   ?\u1ec1       ; 0x2b
  42   ?\u1ec3       ; 0x2c
  43   ?\u1ec5       ; 0x2d
  44   ?\u1ec7       ; 0x2e
  45   ?\u1ed1       ; 0x2f
  46   ?\u1ed3       ; 0x30
  47   ?\u1ed5       ; 0x31
  48   ?\u1ed7       ; 0x32
  49   nil           ; 0x33
  50   nil           ; 0x34
  51   ?\u1ed9       ; 0x35
  52   ?\u1edd       ; 0x36
  53   ?\u1edf       ; 0x37
  54   ?\u1ecb       ; 0x38
  55   nil           ; 0x39
  56   nil           ; 0x3A
  57   nil           ; 0x3B
  58   nil           ; 0x3C
  59   ?\u01a1       ; 0x3d
  60   ?\u1edb       ; 0x3e
  61   nil           ; 0x3F
  62   nil           ; 0x40
  63   nil           ; 0x41
  64   nil           ; 0x42
  65   nil           ; 0x43
  66   nil           ; 0x44
  67   nil           ; 0x45
  68   ?\u1eb3       ; 0x46
  69   ?\u1eb5       ; 0x47
  70   nil           ; 0x48
  71   nil           ; 0x49
  72   nil           ; 0x4A
  73   nil           ; 0x4B
  74   nil           ; 0x4C
  75   nil           ; 0x4D
  76   nil           ; 0x4E
  77   ?\u1ef3       ; 0x4f
  78   nil           ; 0x50
  79   ?\u1ee9       ; 0x51
  80   nil           ; 0x52
  81   nil           ; 0x53
  82   nil           ; 0x54
  83   ?\u1ea1       ; 0x55
  84   ?\u1ef7       ; 0x56
  85   ?\u1eeb       ; 0x57
  86   ?\u1eed       ; 0x58
  87   nil           ; 0x59
  88   nil           ; 0x5A
  89   ?\u1ef9       ; 0x5b
  90   ?\u1ef5       ; 0x5c
  91   nil           ; 0x5D
  92   ?\u1ee1       ; 0x5e
  93   ?\u01b0       ; 0x5f
  94   ?\u00e0       ; 0x60
  95   ?\u00e1       ; 0x61
  96   ?\u00e2       ; 0x62
  97   ?\u00e3       ; 0x63
  98   ?\u1ea3       ; 0x64
  99   ?\u0103       ; 0x65
 100   ?\u1eef       ; 0x66
 101   ?\u1eab       ; 0x67
 102   ?\u00e8       ; 0x68
 103   ?\u00e9       ; 0x69
 104   ?\u00ea       ; 0x6a
 105   ?\u1ebb       ; 0x6b
 106   ?\u00ec       ; 0x6c
 107   ?\u00ed       ; 0x6d
 108   ?\u0129       ; 0x6e
 109   ?\u1ec9       ; 0x6f
 110   ?\u0111       ; 0x70
 111   ?\u1ef1       ; 0x71
 112   ?\u00f2       ; 0x72
 113   ?\u00f3       ; 0x73
 114   ?\u00f4       ; 0x74
 115   ?\u00f5       ; 0x75
 116   ?\u1ecf       ; 0x76
 117   ?\u1ecd       ; 0x77
 118   ?\u1ee5       ; 0x78
 119   ?\u00f9       ; 0x79
 120   ?\u00fa       ; 0x7a
 121   ?\u0169       ; 0x7b
 122   ?\u1ee7       ; 0x7c
 123   ?\u00fd       ; 0x7d
 124   ?\u1ee3       ; 0x7e
 125   nil           ; 0x7F
 126   ])
 127
 128 (set-charset-mapping-table
 129  'latin-viscii-upper
 130  [nil           ; 0x20
 131   ?\u1eae       ; 0x21
 132   ?\u1eb0       ; 0x22
 133   ?\u1eb6       ; 0x23
 134   ?\u1ea4       ; 0x24
 135   ?\u1ea6       ; 0x25
 136   ?\u1ea8       ; 0x26
 137   ?\u1eac       ; 0x27
 138   ?\u1ebc       ; 0x28
 139   ?\u1eb8       ; 0x29
 140   ?\u1ebe       ; 0x2a
 141   ?\u1ec0       ; 0x2b
 142   ?\u1ec2       ; 0x2c
 143   ?\u1ec4       ; 0x2d
 144   ?\u1ec6       ; 0x2e
 145   ?\u1ed0       ; 0x2f
 146   ?\u1ed2       ; 0x30
 147   ?\u1ed4       ; 0x31
 148   ?\u1ed6       ; 0x32
 149   nil           ; 0x33
 150   nil           ; 0x34
 151   ?\u1ed8       ; 0x35
 152   ?\u1edc       ; 0x36
 153   ?\u1ede       ; 0x37
 154   ?\u1eca       ; 0x38
 155   nil           ; 0x39
 156   nil           ; 0x3a
 157   nil           ; 0x3b
 158   nil           ; 0x3c
 159   ?\u01a0       ; 0x3d
 160   ?\u1eda       ; 0x3e
 161   nil           ; 0x3f
 162   nil           ; 0x40
 163   nil           ; 0x41
 164   nil           ; 0x42
 165   nil           ; 0x43
 166   nil           ; 0x44
 167   nil           ; 0x45
 168   ?\u1eb2       ; 0x46
 169   ?\u1eb4       ; 0x47
 170   nil           ; 0x48
 171   nil           ; 0x49
 172   nil           ; 0x4a
 173   nil           ; 0x4b
 174   nil           ; 0x4c
 175   nil           ; 0x4d
 176   nil           ; 0x4e
 177   ?\u1ef2       ; 0x4f
 178   nil           ; 0x50
 179   ?\u1ee8       ; 0x51
 180   nil           ; 0x52
 181   nil           ; 0x53
 182   nil           ; 0x54
 183   ?\u1ea0       ; 0x55
 184   ?\u1ef6       ; 0x56
 185   ?\u1eea       ; 0x57
 186   ?\u1eec       ; 0x58
 187   nil           ; 0x59
 188   nil           ; 0x5a
 189   ?\u1ef8       ; 0x5b
 190   ?\u1ef4       ; 0x5c
 191   nil           ; 0x5d
 192   ?\u1ee0       ; 0x5e
 193   ?\u01af       ; 0x5f
 194   ?\u00c0       ; 0x60
 195   ?\u00c1       ; 0x61
 196   ?\u00c2       ; 0x62
 197   ?\u00c3       ; 0x63
 198   ?\u1ea2       ; 0x64
 199   ?\u0102       ; 0x65
 200   ?\u1eee       ; 0x66
 201   ?\u1eaa       ; 0x67
 202   ?\u00c8       ; 0x68
 203   ?\u00c9       ; 0x69
 204   ?\u00ca       ; 0x6a
 205   ?\u1eba       ; 0x6b
 206   ?\u00cc       ; 0x6c
 207   ?\u00cd       ; 0x6d
 208   ?\u0128       ; 0x6e
 209   ?\u1ec8       ; 0x6f
 210   ?\u0110       ; 0x70
 211   ?\u1ef0       ; 0x71
 212   ?\u00d2       ; 0x72
 213   ?\u00d3       ; 0x73
 214   ?\u00d4       ; 0x74
 215   ?\u00d5       ; 0x75
 216   ?\u1ece       ; 0x76
 217   ?\u1ecc       ; 0x77
 218   ?\u1ee4       ; 0x78
 219   ?\u00d9       ; 0x79
 220   ?\u00da       ; 0x7a
 221   ?\u0168       ; 0x7b
 222   ?\u1ee6       ; 0x7c
 223   ?\u00dd       ; 0x7d
 224   ?\u1ee2       ; 0x7e
 225   nil           ; 0x7f
 226   ])
 227
 228 ;;; ccs-viscii.el ends here