[wadalabfont-kit] / build / skeleton / gothic / makeall.l  

Annotation of /build/skeleton/gothic/makeall.l

Parent Directory | Revision Log

Revision: 1.1 - (view) (download)

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"))))

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help