View of /lisp/tools/aplyknj.l

Parent Directory

Revision Log

change to CVS wadalab font project

;;-----------;;
;; aplyknj.l ;;
;;-----------;;

;; applykanji が flonum で座標を返すので、fixnum になおす

(defun zahyou-flonum->fixnum (prim)
  (let ((zahyou (car prim))
	(restinfo (cdr prim)))
    (cons (mapcar zahyou
		  #'(lambda (p)
		      (let ((x (first p))
			    (y (second p))
			    (info (cddr p)))
			(cons (fix x) (cons (fix y) info)))))
	  restinfo)))
    

(defun kind-of-info (prims)
  (let ((ret nil))
    (do ((p prims (cdr prims)))
	((null p))
	(let ((info (cddr (applykanji (car p)))))
	  (mapcar info
		  #'(lambda (i)
		      (unless (assq (car i) ret)
			(print i)
			(push i ret))))))
    ret))