View of /build/skeleton/mincho/makeall.l
Parent Directory
|
Revision Log
Revision:
1.1 -
(
download)
(
annotate)
Wed Jul 2 12:37:44 2003 UTC (21 years, 1 month ago) by
ktanaka
Branch:
MAIN
CVS Tags:
SNAP-20040518, SNAP-20030702, HEAD
*** 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 "min-")
(mapc allku
#'(lambda (ku)
(kanji2skeleton (eval (intern (string-append "jis" ku)))
'mincho
(string-append prefix ku ".l"))))