View of /build/outline/wadalab-maru-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"))))
; コンパイラが通らない時は次の行をコメントアウト
(setq source-load t)
;
(load-directory "../../../renderer/")
(load-directory "../../../primdata/")
(load-directory "../../../jointdata/")
(load-directory "../../../kanjidata/")

(setq gothicwidth 8.0)
(setq hirawidth (times gothicwidth 0.05))
(setq prefix "maru-")

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