X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fccs-viscii.el;h=a7dc7394ced501b9207852dca8b2f44899d1f13e;hb=915ba0cb68194b751c28247abd7f62da5f3f83e6;hp=076300bb411f08cff38eeade1e17c2f1a6016685;hpb=d5e4e63d5665c99c6ae51a2a7e8dd6783400fd90;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/ccs-viscii.el b/lisp/utf-2000/ccs-viscii.el
index 076300b..a7dc739 100644
--- a/lisp/utf-2000/ccs-viscii.el
+++ b/lisp/utf-2000/ccs-viscii.el
@@ -26,6 +26,266 @@
 ;;; Code:
 
 (set-charset-mapping-table
+ 'latin-viscii
+ [?\u0000	; 0x00
+  ?\u0001	; 0x01
+  ?\u1EB2	; 0x02 (.2ŽÆ)
+  ?\u0003	; 0x03
+  ?\u0004	; 0x04
+  ?\u1EB4	; 0x05 (ŽÇ)
+  ?\u1EAA	; 0x06 (Žç)
+  ?\u0007	; 0x07
+  ?\u0008	; 0x08
+  ?\u0009	; 0x09
+  ?\u000A	; 0x0A
+  ?\u000B	; 0x0B
+  ?\u000C	; 0x0C
+  ?\u000D	; 0x0D
+  ?\u000E	; 0x0E
+  ?\u000F	; 0x0F
+  ?\u0010	; 0x10
+  ?\u0011	; 0x11
+  ?\u0012	; 0x12
+  ?\u0013	; 0x13
+  ?\u1EF6	; 0x14 (ŽÖ)
+  ?\u0015	; 0x15
+  ?\u0016	; 0x16
+  ?\u0017	; 0x17
+  ?\u0018	; 0x18
+  ?\u1EF8	; 0x19 (ŽÛ)
+  ?\u001A	; 0x1A
+  ?\u001B	; 0x1B
+  ?\u001C	; 0x1C
+  ?\u001D	; 0x1D
+  ?\u1EF4	; 0x1E (ŽÜ)
+  ?\u001F	; 0x1F
+  ?\u0020	; 0x20 ( )
+  ?\u0021	; 0x21 (!)
+  ?\u0022	; 0x22 (")
+  ?\u0023	; 0x23 (#)
+  ?\u0024	; 0x24 ($)
+  ?\u0025	; 0x25 (%)
+  ?\u0026	; 0x26 (&)
+  ?\u0027	; 0x27 (')
+  ?\u0028	; 0x28 (()
+  ?\u0029	; 0x29 ())
+  ?\u002A	; 0x2A (*)
+  ?\u002B	; 0x2B (+)
+  ?\u002C	; 0x2C (,)
+  ?\u002D	; 0x2D (-)
+  ?\u002E	; 0x2E (.)
+  ?\u002F	; 0x2F (/)
+  ?\u0030	; 0x30 (0)
+  ?\u0031	; 0x31 (1)
+  ?\u0032	; 0x32 (2)
+  ?\u0033	; 0x33 (3)
+  ?\u0034	; 0x34 (4)
+  ?\u0035	; 0x35 (5)
+  ?\u0036	; 0x36 (6)
+  ?\u0037	; 0x37 (7)
+  ?\u0038	; 0x38 (8)
+  ?\u0039	; 0x39 (9)
+  ?\u003A	; 0x3A (:)
+  ?\u003B	; 0x3B (;)
+  ?\u003C	; 0x3C (<)
+  ?\u003D	; 0x3D (=)
+  ?\u003E	; 0x3E (>)
+  ?\u003F	; 0x3F (?)
+  ?\u0040	; 0x40 (@)
+  ?\u0041	; 0x41 (A)
+  ?\u0042	; 0x42 (B)
+  ?\u0043	; 0x43 (C)
+  ?\u0044	; 0x44 (D)
+  ?\u0045	; 0x45 (E)
+  ?\u0046	; 0x46 (F)
+  ?\u0047	; 0x47 (G)
+  ?\u0048	; 0x48 (H)
+  ?\u0049	; 0x49 (I)
+  ?\u004A	; 0x4A (J)
+  ?\u004B	; 0x4B (K)
+  ?\u004C	; 0x4C (L)
+  ?\u004D	; 0x4D (M)
+  ?\u004E	; 0x4E (N)
+  ?\u004F	; 0x4F (O)
+  ?\u0050	; 0x50 (P)
+  ?\u0051	; 0x51 (Q)
+  ?\u0052	; 0x52 (R)
+  ?\u0053	; 0x53 (S)
+  ?\u0054	; 0x54 (T)
+  ?\u0055	; 0x55 (U)
+  ?\u0056	; 0x56 (V)
+  ?\u0057	; 0x57 (W)
+  ?\u0058	; 0x58 (X)
+  ?\u0059	; 0x59 (Y)
+  ?\u005A	; 0x5A (Z)
+  ?\u005B	; 0x5B ([)
+  ?\u005C	; 0x5C (\)
+  ?\u005D	; 0x5D (])
+  ?\u005E	; 0x5E (^)
+  ?\u005F	; 0x5F (_)
+  ?\u0060	; 0x60 (`)
+  ?\u0061	; 0x61 (a)
+  ?\u0062	; 0x62 (b)
+  ?\u0063	; 0x63 (c)
+  ?\u0064	; 0x64 (d)
+  ?\u0065	; 0x65 (e)
+  ?\u0066	; 0x66 (f)
+  ?\u0067	; 0x67 (g)
+  ?\u0068	; 0x68 (h)
+  ?\u0069	; 0x69 (i)
+  ?\u006A	; 0x6A (j)
+  ?\u006B	; 0x6B (k)
+  ?\u006C	; 0x6C (l)
+  ?\u006D	; 0x6D (m)
+  ?\u006E	; 0x6E (n)
+  ?\u006F	; 0x6F (o)
+  ?\u0070	; 0x70 (p)
+  ?\u0071	; 0x71 (q)
+  ?\u0072	; 0x72 (r)
+  ?\u0073	; 0x73 (s)
+  ?\u0074	; 0x74 (t)
+  ?\u0075	; 0x75 (u)
+  ?\u0076	; 0x76 (v)
+  ?\u0077	; 0x77 (w)
+  ?\u0078	; 0x78 (x)
+  ?\u0079	; 0x79 (y)
+  ?\u007A	; 0x7A (z)
+  ?\u007B	; 0x7B ({)
+  ?\u007C	; 0x7C (|)
+  ?\u007D	; 0x7D (})
+  ?\u007E	; 0x7E (~)
+  ?\u007F	; 0x7F
+  ?\u1EA0	; 0x80 (ŽÕ)
+  ?\u1EAE	; 0x81 (Ž¡)
+  ?\u1EB0	; 0x82 (Ž¢)
+  ?\u1EB6	; 0x83 (Ž£)
+  ?\u1EA4	; 0x84 (Ž¤)
+  ?\u1EA6	; 0x85 (Ž¥)
+  ?\u1EA8	; 0x86 (Ž¦)
+  ?\u1EAC	; 0x87 (Ž§)
+  ?\u1EBC	; 0x88 (Ž¨)
+  ?\u1EB8	; 0x89 (Ž©)
+  ?\u1EBE	; 0x8A (Žª)
+  ?\u1EC0	; 0x8B (Ž«)
+  ?\u1EC2	; 0x8C (Ž¬)
+  ?\u1EC4	; 0x8D (Ž­)
+  ?\u1EC6	; 0x8E (Ž®)
+  ?\u1ED0	; 0x8F (Ž¯)
+  ?\u1ED2	; 0x90 (Ž°)
+  ?\u1ED4	; 0x91 (Ž±)
+  ?\u1ED6	; 0x92 (Ž²)
+  ?\u1ED8	; 0x93 (Žµ)
+  ?\u1EE2	; 0x94 (Žþ)
+  ?\u1EDA	; 0x95 (Ž¾)
+  ?\u1EDC	; 0x96 (Ž¶)
+  ?\u1EDE	; 0x97 (Ž·)
+  ?\u1ECA	; 0x98 (Ž¸)
+  ?\u1ECE	; 0x99 (Žö)
+  ?\u1ECC	; 0x9A (Ž÷)
+  ?\u1EC8	; 0x9B (Žï)
+  ?\u1EE6	; 0x9C (Žü)
+  ?\u0168	; 0x9D (Žû)
+  ?\u1EE4	; 0x9E (Žø)
+  ?\u1EF2	; 0x9F (ŽÏ)
+  ?\u00D5	; 0xA0 (Žõ)
+  ?\u1EAF	; 0xA1 (.1Ž¡)
+  ?\u1EB1	; 0xA2 (Ž¢)
+  ?\u1EB7	; 0xA3 (Ž£)
+  ?\u1EA5	; 0xA4 (Ž¤)
+  ?\u1EA7	; 0xA5 (Ž¥)
+  ?\u1EA9	; 0xA6 (Ž¦)
+  ?\u1EAD	; 0xA7 (Ž§)
+  ?\u1EBD	; 0xA8 (Ž¨)
+  ?\u1EB9	; 0xA9 (Ž©)
+  ?\u1EBF	; 0xAA (Žª)
+  ?\u1EC1	; 0xAB (Ž«)
+  ?\u1EC3	; 0xAC (Ž¬)
+  ?\u1EC5	; 0xAD (Ž­)
+  ?\u1EC7	; 0xAE (Ž®)
+  ?\u1ED1	; 0xAF (Ž¯)
+  ?\u1ED3	; 0xB0 (Ž°)
+  ?\u1ED5	; 0xB1 (Ž±)
+  ?\u1ED7	; 0xB2 (Ž²)
+  ?\u1EE0	; 0xB3 (.2ŽÞ)
+  ?\u01A0	; 0xB4 (Ž½)
+  ?\u1ED9	; 0xB5 (.1Žµ)
+  ?\u1EDD	; 0xB6 (Ž¶)
+  ?\u1EDF	; 0xB7 (Ž·)
+  ?\u1ECB	; 0xB8 (Ž¸)
+  ?\u1EF0	; 0xB9 (.2Žñ)
+  ?\u1EE8	; 0xBA (ŽÑ)
+  ?\u1EEA	; 0xBB (Ž×)
+  ?\u1EEC	; 0xBC (ŽØ)
+  ?\u01A1	; 0xBD (.1Ž½)
+  ?\u1EDB	; 0xBE (Ž¾)
+  ?\u01AF	; 0xBF (.2Žß)
+  ?\u00C0	; 0xC0 (Žà)
+  ?\u00C1	; 0xC1 (Žá)
+  ?\u00C2	; 0xC2 (Žâ)
+  ?\u00C3	; 0xC3 (Žã)
+  ?\u1EA2	; 0xC4 (Žä)
+  ?\u0102	; 0xC5 (Žå)
+  ?\u1EB3	; 0xC6 (.1ŽÆ)
+  ?\u1EB5	; 0xC7 (ŽÇ)
+  ?\u00C8	; 0xC8 (.2Žè)
+  ?\u00C9	; 0xC9 (Žé)
+  ?\u00CA	; 0xCA (Žê)
+  ?\u1EBA	; 0xCB (Žë)
+  ?\u00CC	; 0xCC (Žì)
+  ?\u00CD	; 0xCD (Ží)
+  ?\u0128	; 0xCE (Žî)
+  ?\u1EF3	; 0xCF (.1ŽÏ)
+  ?\u0110	; 0xD0 (.2Žð)
+  ?\u1EE9	; 0xD1 (.1ŽÑ)
+  ?\u00D2	; 0xD2 (.2Žò)
+  ?\u00D3	; 0xD3 (Žó)
+  ?\u00D4	; 0xD4 (Žô)
+  ?\u1EA1	; 0xD5 (.1ŽÕ)
+  ?\u1EF7	; 0xD6 (ŽÖ)
+  ?\u1EEB	; 0xD7 (Ž×)
+  ?\u1EED	; 0xD8 (ŽØ)
+  ?\u00D9	; 0xD9 (.2Žù)
+  ?\u00DA	; 0xDA (Žú)
+  ?\u1EF9	; 0xDB (.1ŽÛ)
+  ?\u1EF5	; 0xDC (ŽÜ)
+  ?\u00DD	; 0xDD (.2Žý)
+  ?\u1EE1	; 0xDE (.1ŽÞ)
+  ?\u01B0	; 0xDF (Žß)
+  ?\u00E0	; 0xE0 (Žà)
+  ?\u00E1	; 0xE1 (Žá)
+  ?\u00E2	; 0xE2 (Žâ)
+  ?\u00E3	; 0xE3 (Žã)
+  ?\u1EA3	; 0xE4 (Žä)
+  ?\u0103	; 0xE5 (Žå)
+  ?\u1EEF	; 0xE6 (Žæ)
+  ?\u1EAB	; 0xE7 (Žç)
+  ?\u00E8	; 0xE8 (Žè)
+  ?\u00E9	; 0xE9 (Žé)
+  ?\u00EA	; 0xEA (Žê)
+  ?\u1EBB	; 0xEB (Žë)
+  ?\u00EC	; 0xEC (Žì)
+  ?\u00ED	; 0xED (Ží)
+  ?\u0129	; 0xEE (Žî)
+  ?\u1EC9	; 0xEF (Žï)
+  ?\u0111	; 0xF0 (Žð)
+  ?\u1EF1	; 0xF1 (Žñ)
+  ?\u00F2	; 0xF2 (Žò)
+  ?\u00F3	; 0xF3 (Žó)
+  ?\u00F4	; 0xF4 (Žô)
+  ?\u00F5	; 0xF5 (Žõ)
+  ?\u1ECF	; 0xF6 (Žö)
+  ?\u1ECD	; 0xF7 (Ž÷)
+  ?\u1EE5	; 0xF8 (Žø)
+  ?\u00F9	; 0xF9 (Žù)
+  ?\u00FA	; 0xFA (Žú)
+  ?\u0169	; 0xFB (Žû)
+  ?\u1EE7	; 0xFC (Žü)
+  ?\u00FD	; 0xFD (Žý)
+  ?\u1EE3	; 0xFE (Žþ)
+  ?\u1EEE	; 0xFF (.2Žæ)
+  ])
+
+(set-charset-mapping-table
  'latin-viscii-lower
  [nil		; 0x20
   ?\u1eaf	; 0x21