;;; ideograph-util.el --- Ideographic Character Database utility
-;; Copyright (C) 1999,2000 MORIOKA Tomohiko.
+;; Copyright (C) 1999,2000,2001 MORIOKA Tomohiko.
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: UTF-2000, ISO/IEC 10646, Unicode, UCS-4, MULE.
3 4 4 4 3 4 4 4 4 4
4 4 4 4 4 4 4 4 4 4
4 4 4 4 4 3 4 4 4 4
- 4 4 4 4 4 5 5 5 5 5
+ 4 4 4 4 3 5 4 5 5 5
;; 100
5 5 5 5 5 5 5 5 5 5
5 5 5 5 5 5 5 5 6 6
6 6 6 6 6 6 6 6 6 6
- 6 6 6 6 6 6 6 6 6 6
+ 4 6 6 6 6 6 6 6 6 6
4 6 6 6 6 6 6 7 7 7
7 7 7 7 7 7 7 7 7 7
- 7 7 4 3 7 7 7 8 8 8
- 8 8 8 8 8 8 9 9 9 9
- 9 9 9 9 9 9 9 10 10 10
+ 7 7 4 3 7 7 7 8 7 8
+ 3 8 8 8 8 8 9 9 9 9
+ 9 9 9 9 8 9 9 10 10 10
10 10 10 10 10 11 11 11 11 11
;; 200
11 12 12 12 12 13 13 13 13 14
14 15 16 16 17])
(defun char-ideographic-strokes (char)
- (or (get-char-attribute char 'ideographic-strokes)
+ (or (get-char-attribute char 'daikanwa-strokes)
+ (get-char-attribute char 'ideographic-strokes)
(let ((strokes
- (or (get-char-attribute char 'daikanwa-strokes)
- (get-char-attribute char 'kangxi-strokes)
+ (or (get-char-attribute char 'kangxi-strokes)
(get-char-attribute char 'japanese-strokes)
(get-char-attribute char 'korean-strokes)
(let ((r (char-ideographic-radical char))
(b-m-m (get-char-attribute b 'ideograph-daikanwa))
a-m-r b-m-r
a-s b-s
- a-u b-u m)
+ a-u b-u m ret)
(if a-m-m
(setq a-s (char-ideographic-strokes a))
(setq a-m-r (get-char-attribute a 'morohashi-daikanwa))
(setq a-m-m (car a-m-r)
a-m-r (cdr a-m-r))
(if (= (car a-m-r) 0)
- (setq a-s (char-ideographic-strokes
- (decode-char 'ideograph-daikanwa a-m-m)))
+ (progn
+ (setq ret (decode-char 'ideograph-daikanwa a-m-m))
+ (if (= (get-char-attribute ret 'ideographic-radical)
+ (get-char-attribute a 'ideographic-radical))
+ (setq a-s (char-ideographic-strokes ret))
+ (setq a-s (char-ideographic-strokes a))))
(if (setq m (get-char-attribute a '->mojikyo))
(setq a-s (char-ideographic-strokes
(decode-char 'mojikyo m)))
(setq b-m-m (car b-m-r)
b-m-r (cdr b-m-r))
(if (= (car b-m-r) 0)
- (setq b-s (char-ideographic-strokes
- (decode-char 'ideograph-daikanwa b-m-m)))
+ (progn
+ (setq ret (decode-char 'ideograph-daikanwa b-m-m))
+ (if (= (get-char-attribute ret 'ideographic-radical)
+ (get-char-attribute b 'ideographic-radical))
+ (setq b-s (char-ideographic-strokes ret))
+ (setq b-s (char-ideographic-strokes b))))
(if (setq m (get-char-attribute b '->mojikyo))
(setq b-s (char-ideographic-strokes
(decode-char 'mojikyo m)))