;;; isolated-char.el --- Set up isolated-characters.
-;; Copyright (C) 2001,2002 MORIOKA Tomohiko
+;; Copyright (C) 2001,2002,2003 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: UTF-2000, UCS-4, character, CCS, multiscript, multilingual
(with-temp-buffer
(buffer-disable-undo)
- (insert-file-contents "../etc/GT-RS.txt")
+ (insert-file-contents "../etc/char-data/GT-RS.txt")
(goto-char (point-min))
(let (gt-code radical strokes plane code)
(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)
code)
)))
+(with-temp-buffer
+ (buffer-disable-undo)
+ (insert-file-contents "../etc/char-data/GT-fmap-K1.txt")
+ (insert-file-contents "../etc/char-data/GT-fmap-K2.txt")
+ (insert-file-contents "../etc/char-data/GT-fmap-K3.txt")
+ (insert-file-contents "../etc/char-data/GT-fmap-K4.txt")
+ (goto-char (point-min))
+ (let (plane code gt-code)
+ (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)
+ (setq plane (match-string 1)
+ code (string-to-int (match-string 2) 16)
+ gt-code (string-to-int (match-string 3)))
+ (if (eq (aref plane 0) ?0)
+ (setq plane (substring plane 1)))
+ (put-char-attribute (decode-builtin-char 'ideograph-gt-k gt-code)
+ (intern (format "ideograph-gt-pj-%s" plane))
+ (encode-char
+ (decode-shift-jis-char (cons (/ code 256)
+ (% code 256)))
+ 'japanese-jisx0208))
+ )))
+
(define-char
- '((ideograph-gt-pj-4 . #x3844)
- (ideograph-gt . 19655)
+ '((ideograph-gt-pj-4 . #x3844)
+ (ideograph-gt . 19655)
))
(define-char
- '((ideograph-gt-pj-4 . #x3845)
- (ideograph-gt . 19656)
+ '((ideograph-gt-pj-4 . #x3845)
+ (ideograph-gt . 19656)
))
(define-char
- '((ideograph-gt-pj-9 . #x4D7B)
- (ideograph-gt . 19861)
+ '((ideograph-gt-pj-9 . #x4D7B)
+ (ideograph-gt . 19861)
))
(define-char
'((ideograph-gt-pj-4 . #x493C)
(ideograph-gt . 21862)
))
(define-char
+ '((ideograph-gt-pj-4 . #x6D51)
+ (ideograph-gt . 26606)
+ ))
+(define-char
+ '((ideograph-gt-pj-5 . #x4579)
+ (ideograph-gt . 30254)
+ ))
+(define-char
'((ideograph-gt-pj-11 . #x5277)
(ideograph-gt . 40268)
))
(ideograph-gt . 60403)
))
-;;; mime-view.el ends here
+;;; isolated-char.el ends here