View of /lisp/test/wada.l

Parent Directory

Revision Log

change to CVS wadalab font project

(defun genkanji nil 
  (cond 
    (jis0208 
      (cond 
        ((and (= index0 207) (= index1 211)) 
          (setq index0 208 index1 161) 
          (setq str (string-append (string index0) (string index1)))) 
        ((= index0 244) 
          (cond ((= index1 164) (setq index1 166 str "H005")) 
            ((string-equal str "H005") (setq str "H006")) 
            ((string-equal str "H006") (setq jis0208 nil) (setq x 1601) 
              (setq str "a601")) 
            (t (setq index1 (/1+ index1)) 
              (setq str (string-append (string index0) (string index1)))
              ))) 
        ((= index1 254) (setq index0 (/1+ index0) index1 161) 
          (setq str (string-append (string index0) (string index1)))) 
        (t (setq index1 (/1+ index1)) 
          (setq str (string-append (string index0) (string index1)))))) 
    (t 
      (cond 
        ((= (\ x 100) 94) (setq x (/+ x 7)) 
          (setq image (number-image x)) 
          (sset image 0 (/+ (sref image 0) 48)) image) 
        ((= x 7767) (setq str nil)) 
        (t (setq x (/1+ x)) (setq image (number-image x)) 
          (sset image 0 (/+ (sref image 0) 48)) image)))))
(defun genkanjiinit nil (setq index0 176 index1 160 jis0208 t))