| (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)))) |
| (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)) |
| (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))))))) |
| ; |
; |
Diff of /renderer/apply.l
Parent Directory
| 
Revision Log