1 ;;; isolated-char.el --- Set up isolated-characters.
3 ;; Copyright (C) 2001,2002,2003 MORIOKA Tomohiko
5 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
6 ;; Keywords: UTF-2000, UCS-4, character, CCS, multiscript, multilingual
8 ;; This file is part of XEmacs UTF-2000.
10 ;; XEmacs UTF-2000 is free software; you can redistribute it and/or
11 ;; modify it under the terms of the GNU General Public License as
12 ;; published by the Free Software Foundation; either version 2, or (at
13 ;; your option) any later version.
15 ;; XEmacs UTF-2000 is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs UTF-2000; see the file COPYING. If not, write to
22 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
32 (put-char-attribute (decode-builtin-char 'latin-viscii-lower i)
36 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA1)
38 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA2)
40 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA3)
42 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA4)
44 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA5)
46 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA6)
48 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA7)
50 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA8)
52 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA9)
54 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAA)
56 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAB)
58 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAC)
60 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAD)
62 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAE)
64 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAF)
66 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB0)
68 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB1)
70 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB2)
72 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB5)
74 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB6)
76 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB7)
78 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB8)
80 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xBD)
82 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xBE)
84 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xC6)
86 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xC7)
88 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xCF)
90 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xD1)
92 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xD5)
94 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xD6)
96 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xD7)
98 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xD8)
100 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xDB)
102 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xDC)
104 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xDE)
106 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xDF)
108 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE0)
110 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE1)
112 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE2)
114 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE3)
116 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE4)
118 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE5)
120 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE6)
122 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE7)
124 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE8)
126 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE9)
128 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xEA)
130 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xEB)
132 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xEC)
134 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xED)
136 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xEE)
138 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xEF)
140 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF0)
142 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF1)
144 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF2)
146 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF3)
148 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF4)
150 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF5)
152 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF6)
154 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF7)
156 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF8)
158 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF9)
160 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xFA)
162 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xFB)
164 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xFC)
166 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xFD)
168 (put-char-attribute (decode-builtin-char 'latin-viscii-upper #xFE)
175 (buffer-disable-undo)
176 (insert-file-contents "../etc/char-data/GT-RS.txt")
177 (goto-char (point-min))
178 (let (gt-code radical strokes plane code)
179 (while (re-search-forward "\\([0-9]+\\),\\([0-9]+\\),\\([0-9]+\\),GT\\([0-9]+\\),....,\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" nil t)
180 (setq gt-code (string-to-int (match-string 1))
181 plane (string-to-int (match-string 4))
182 code (string-to-int (match-string 5) 16))
183 (put-char-attribute (decode-builtin-char 'ideograph-gt gt-code)
184 (intern (format "ideograph-gt-pj-%d" plane))
189 (buffer-disable-undo)
190 (insert-file-contents "../etc/char-data/GT-fmap-K1.txt")
191 (insert-file-contents "../etc/char-data/GT-fmap-K2.txt")
192 (insert-file-contents "../etc/char-data/GT-fmap-K3.txt")
193 (insert-file-contents "../etc/char-data/GT-fmap-K4.txt")
194 (goto-char (point-min))
195 (let (plane code gt-code)
196 (while (re-search-forward "^GTps-\\([0-9k][0-9]\\)-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)\tGT-K\\([0-9]+\\)" nil t)
197 (setq plane (match-string 1)
198 code (string-to-int (match-string 2) 16)
199 gt-code (string-to-int (match-string 3)))
200 (if (eq (aref plane 0) ?0)
201 (setq plane (substring plane 1)))
202 (put-char-attribute (decode-builtin-char 'ideograph-gt-k gt-code)
203 (intern (format "ideograph-gt-pj-%s" plane))
205 (decode-shift-jis-char (cons (/ code 256)
211 '((ideograph-gt-pj-4 . #x3844)
212 (ideograph-gt . 19655)
215 '((ideograph-gt-pj-4 . #x3845)
216 (ideograph-gt . 19656)
219 '((ideograph-gt-pj-9 . #x4D7B)
220 (ideograph-gt . 19861)
223 '((ideograph-gt-pj-4 . #x493C)
224 (ideograph-gt . 21862)
227 '((ideograph-gt-pj-4 . #x6D51)
228 (ideograph-gt . 26606)
231 '((ideograph-gt-pj-5 . #x4579)
232 (ideograph-gt . 30254)
235 '((ideograph-gt-pj-11 . #x5277)
236 (ideograph-gt . 40268)
239 '((ideograph-gt-pj-1 . #x3F6B)
240 (ideograph-gt . 52230)
243 '((ideograph-gt-pj-7 . #x5821)
244 (ideograph-gt . 52349)
247 '((ideograph-gt-pj-11 . #x5A40)
248 (ideograph-gt . 60403)
251 ;;; isolated-char.el ends here