[wadalabfont-kit] / build / outline / wadalab-mincho-0-8 / makeall.l

Annotation of /build/outline/wadalab-mincho-0-8/makeall.l

Revision: 1.2 - (view) (download)

1 :	ktanaka	1.1	#!/usr/local/bin/utilisp
2 :			(defun load-directory (dir)
3 :			(lets ((base-directory dir))
4 :			(exfile (string-append base-directory "/" "load.l"))))
5 :			; コンパイラが通らない時は次の行をコメントアウト
6 :	ktanaka	1.2	(or (boundp 'source-load )(setq source-load t))
7 :			;
8 :			(setq oldvalue nil)
9 :			(setq backtrace nil)
10 :			(setq gc-hook #'(lambda (n)
11 :			(setq oldvalue(oldvalue))
12 :			(setq backtrace (backtrace))))
13 :	ktanaka	1.1	;
14 :			(load-directory "../../../renderer/")
15 :			(load-directory "../../../primdata/")
16 :			(load-directory "../../../jointdata/")
17 :			(load-directory "../../../kanjidata/")
18 :	ktanaka	1.2	;
19 :	ktanaka	1.1
20 :			(setq minchowidth 8.0)
21 :			(setq hirawidth (times minchowidth 0.05))
22 :			(setq prefix "min-")
23 :
24 :			(mapc allku
25 :			#'(lambda (ku)
26 :			(out-to-ps-all (eval (intern (string-append "jis" ku)))
27 :			'mincho
28 :			(string-append prefix ku ".ps"))))
29 :