Mercurial > emacs
comparison admin/unidata/unidata-gen.el @ 103009:96e8e1d84170
(unidata-get-decomposition): Adjust Hangle decomposition rule to
Unicode.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 17 Apr 2009 02:35:52 +0000 |
| parents | 3c5ac8f47c5d |
| children | 0dd3b08296b6 |
comparison
equal
deleted
inserted
replaced
| 103008:b41af984adfa | 103009:96e8e1d84170 |
|---|---|
| 826 (setq char (- char #xAC00)) | 826 (setq char (- char #xAC00)) |
| 827 (let (;; L = LBase + SIndex / NCount | 827 (let (;; L = LBase + SIndex / NCount |
| 828 (L (+ #x1100 (/ char 588))) | 828 (L (+ #x1100 (/ char 588))) |
| 829 ;; V = VBase + (SIndex % NCount) * TCount | 829 ;; V = VBase + (SIndex % NCount) * TCount |
| 830 (V (+ #x1161 (/ (% char 588) 28))) | 830 (V (+ #x1161 (/ (% char 588) 28))) |
| 831 ;; LV = SBase + (SIndex / NCount) * NCount | |
| 832 (LV (+ #xAC00 (* (/ char 588) 588))) | |
| 831 ;; T = TBase + SIndex % TCount | 833 ;; T = TBase + SIndex % TCount |
| 832 (T (+ #x11A7 (% char 28)))) | 834 (T (+ #x11A7 (% char 28)))) |
| 833 (if (= T #x11A7) | 835 (if (= T #x11A7) |
| 834 (list L V) | 836 (list L V) |
| 835 (list L V T)))) | 837 (list LV T)))) |
| 836 | 838 |
| 837 )) | 839 )) |
| 838 | 840 |
| 839 ;; Store VAL as the decomposition information of CHAR in TABLE. | 841 ;; Store VAL as the decomposition information of CHAR in TABLE. |
| 840 | 842 |