View of /build/skeleton/gothic/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)
;
(defun kanji2skeleton (kanjilist tag outputfile)
  (lets 
   ((standard-output (outopen (stream outputfile))))
   (mapc kanjilist
	 #'(lambda (kanji)
	     (lets ((skeleton (applykanji kanji tag))
		    (normalized 
		     (and skeleton (normkanji (rm-limit skeleton)))))
		   (prind `(defskeleton ,kanji ,tag ',skeleton)))))))
;
(load-directory "../../../renderer/")
(load-directory "../../../primdata/")
(load-directory "../../../jointdata/")
(load-directory "../../../kanjidata/")
(setq prefix "goth-")
(mapc allku
      #'(lambda (ku)
	  (kanji2skeleton (eval (intern (string-append "jis" ku)))
			 'gothic
			 (string-append prefix ku ".l"))))