From: tomo <tomo>
Date: Thu, 19 Dec 2002 11:55:09 +0000 (+0000)
Subject: Add code to read ../etc/char-data/GT-fmap-K[12].txt.
X-Git-Tag: r21-4-10-utf-2000-0_19-pdump~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5332534d03777237dbcecdfef23e776756f0f5ce;p=chise%2Fxemacs-chise.git

Add code to read ../etc/char-data/GT-fmap-K[12].txt.
---

diff --git a/lisp/utf-2000/isolated-char.el b/lisp/utf-2000/isolated-char.el
index 286ca9e..59a6ea3 100644
--- a/lisp/utf-2000/isolated-char.el
+++ b/lisp/utf-2000/isolated-char.el
@@ -185,6 +185,26 @@
 			    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")
+  (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)