[wadalabfont-kit] / renderer / load.l

Annotation of /renderer/load.l

Revision: 1.3 - (view) (download)

1 :	ktanaka	1.1	;; load.l
2 :	ktanaka	1.3	(or (boundp 'base-directory)(setq base-directory "."))
3 :			(or (boundp 'source-load)(setq source-load nil))
4 :			(lets
5 :			((source-files
6 :			'("pack.l"
7 :			"lib.l"
8 :			"yokosort.l"
9 :			"mincho.l"
10 :			"apply.l"
11 :			"sym.l"
12 :			"type1.l"
13 :			"gothic.l"
14 :			"newjoint.l"
15 :			"center.l"
16 :			"limit.l"
17 :			"limitrule.l"
18 :			"unit.l"
19 :			"transform.l"
20 :			"naal.l"
21 :			"hiranew.l"
22 :			"region.l"
23 :			"out2ps.l"
24 :			"outline.l")))
25 :			(cond (source-load
26 :			(mapc source-files
27 :			#'(lambda (file)
28 :			(exfile (string-append base-directory "/" file)))))
29 :			(t
30 :			(code-load
31 :			(mapcar source-files
32 :			#'(lambda (file)
33 :			(string-append
34 :			base-directory "/"
35 :			(substring file 0 (1- (string-length file)))
36 :			"o")))))))