[wadalabfont-kit] / renderer / apply.l  

Diff of /renderer/apply.l

Parent Directory | Revision Log

version 1.1, Thu Jun 19 08:15:19 2003 UTC version 1.4, Mon Jun 30 13:27:02 2003 UTC
Line 70 
Line 70 
   (mapcar list    (mapcar list
     (function (lambda (x) `(,(float (car x)),(float (cadr x)).,(cddr x))))))      (function (lambda (x) `(,(float (car x)),(float (cadr x)).,(cddr x))))))
 (defun appendrev (a b) (append a (reverse b)))  (defun appendrev (a b) (append a (reverse b)))
 (defun skelton2list (l tag)  (defun skeleton2list (l tag)
   (setq l (rm-limit l))    (setq l (rm-limit l))
   (let ((func (get-def 'typehook tag)))    (let ((func (get-def 'typehook tag)))
     (and func (setq l (funcall func l))))      (and func (setq l (funcall func l))))
Line 744 
Line 744 
                    (t (funcall (car l) fonttype (cdr l)))))                     (t (funcall (car l) fonttype (cdr l)))))
             (t (unpackprim l))))))              (t (unpackprim l))))))
 ;  ;
 (defun expandall (list (file))  (defun expandall (list (file)(fonttype 'mincho))
   (let ((standard-output (cond (file (outopen (stream file)))    (let ((standard-output (cond (file (outopen (stream file)))
                                (t standard-output))))                                 (t standard-output))))
     (do ((l list (cdr l))      (do ((l list (cdr l))
Line 757 
Line 757 
             (err:unbound-variable #'(lambda (x (y))(throw 'err)))              (err:unbound-variable #'(lambda (x (y))(throw 'err)))
             (err:zero-division #'(lambda (x (y))(throw 'err))))              (err:zero-division #'(lambda (x (y))(throw 'err))))
         (catch 'err          (catch 'err
           (setq ret (expandkanji (car l)))))            (setq ret (expandkanji (car l) fonttype))))
       (cond ((consp ret)        (cond ((consp ret)
              (prind `(defjoint ,(car l) ',ret)))))))               (prind `(defjoint ,(car l) ',ret)))))))
 ;  ;


Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help