| 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 : |
|
|
(setq source-load t) |
| 7 : |
|
|
; |
| 8 : |
|
|
(defun kanji2skeleton (kanjilist tag outputfile) |
| 9 : |
|
|
(lets |
| 10 : |
|
|
((standard-output (outopen (stream outputfile)))) |
| 11 : |
|
|
(mapc kanjilist |
| 12 : |
|
|
#'(lambda (kanji) |
| 13 : |
|
|
(lets ((skeleton (applykanji kanji tag)) |
| 14 : |
|
|
(normalized |
| 15 : |
|
|
(and skeleton (normkanji (rm-limit skeleton))))) |
| 16 : |
|
|
(prind `(defskeleton ,kanji ,tag ',skeleton))))))) |
| 17 : |
|
|
; |
| 18 : |
|
|
(load-directory "../../../renderer/") |
| 19 : |
|
|
(load-directory "../../../primdata/") |
| 20 : |
|
|
(load-directory "../../../jointdata/") |
| 21 : |
|
|
(load-directory "../../../kanjidata/") |
| 22 : |
|
|
(setq prefix "goth-") |
| 23 : |
|
|
(mapc allku |
| 24 : |
|
|
#'(lambda (ku) |
| 25 : |
|
|
(kanji2skeleton (eval (intern (string-append "jis" ku))) |
| 26 : |
|
|
'gothic |
| 27 : |
|
|
(string-append prefix ku ".l")))) |
Annotation of /build/skeleton/gothic/makeall.l
Parent Directory
| 
Revision Log