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

Parent Directory

Revision Log

*** empty log message ***

#!/usr/local/bin/utilisp 
(defun load-directory (dir)
  (lets ((base-directory dir))
	(exfile (string-append base-directory "/" "load.l"))))
; コンパイラが通らない時は次の行をコメントアウト
(or (boundp 'source-load )(setq source-load t))
;
(setq oldvalue nil)
(setq backtrace nil)
(setq gc-hook #'(lambda (n) 
		  (setq oldvalue(oldvalue))
		  (setq backtrace (backtrace))))
;
(load-directory "../../../renderer/")
(load-directory "../../../primdata/")
(load-directory "../../../jointdata/")
(load-directory "../../../kanjidata/")
;

(setq minchowidth 8.0)
(setq hirawidth (times minchowidth 0.05))
(setq prefix "min-")

(mapc allku
      #'(lambda (ku)
	  (out-to-ps-all (eval (intern (string-append "jis" ku)))
			 'mincho
			 (string-append prefix ku ".ps"))))