| 1 : |
ktanaka |
1.1 |
(defun genkanji nil |
| 2 : |
|
|
(cond |
| 3 : |
|
|
(jis0208 |
| 4 : |
|
|
(cond |
| 5 : |
|
|
((and (= index0 207) (= index1 211)) |
| 6 : |
|
|
(setq index0 208 index1 161) |
| 7 : |
|
|
(setq str (string-append (string index0) (string index1)))) |
| 8 : |
|
|
((= index0 244) |
| 9 : |
|
|
(cond ((= index1 164) (setq index1 166 str "H005")) |
| 10 : |
|
|
((string-equal str "H005") (setq str "H006")) |
| 11 : |
|
|
((string-equal str "H006") (setq jis0208 nil) (setq x 1601) |
| 12 : |
|
|
(setq str "a601")) |
| 13 : |
|
|
(t (setq index1 (/1+ index1)) |
| 14 : |
|
|
(setq str (string-append (string index0) (string index1))) |
| 15 : |
|
|
))) |
| 16 : |
|
|
((= index1 254) (setq index0 (/1+ index0) index1 161) |
| 17 : |
|
|
(setq str (string-append (string index0) (string index1)))) |
| 18 : |
|
|
(t (setq index1 (/1+ index1)) |
| 19 : |
|
|
(setq str (string-append (string index0) (string index1)))))) |
| 20 : |
|
|
(t |
| 21 : |
|
|
(cond |
| 22 : |
|
|
((= (\ x 100) 94) (setq x (/+ x 7)) |
| 23 : |
|
|
(setq image (number-image x)) |
| 24 : |
|
|
(sset image 0 (/+ (sref image 0) 48)) image) |
| 25 : |
|
|
((= x 7767) (setq str nil)) |
| 26 : |
|
|
(t (setq x (/1+ x)) (setq image (number-image x)) |
| 27 : |
|
|
(sset image 0 (/+ (sref image 0) 48)) image))))) |
| 28 : |
|
|
(defun genkanjiinit nil (setq index0 176 index1 160 jis0208 t)) |
Annotation of /lisp/test/wada.l
Parent Directory
| 
Revision Log