[wadalabfont-kit] / lisp / test / wada.l  

Annotation of /lisp/test/wada.l

Parent Directory | Revision Log

Revision: 1.1.1.1 - (view) (download)

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))

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help