Revision: 1.1 - (view) (download)
1 : | ktanaka | 1.1 | ;; load.l |
2 : | |||
3 : | (defun exprint (file) | ||
4 : | (print file terminal-output) | ||
5 : | (exfile file)) | ||
6 : | |||
7 : | (mapcar '("pack.l" "lib.l" "disp.l" "yokosort.l" "mincho.l" | ||
8 : | "sym.l" "type1.l" "gothic.l" "newjoint.l" "center.l" | ||
9 : | "limit.l" "unit.l" "transform.l" "naal.l" "hiranew.l" | ||
10 : | "region.l" "out2ps.l" "outline.l") | ||
11 : | #'(lambda (x) (print x)(exfile x))) | ||
12 : | (comment | ||
13 : | (cond ((definedp 'connect-to-server) | ||
14 : | (code-load '("pack.o" "lib.o" "disp.o" "yokosort.o" "mincho.o" | ||
15 : | "sym.o" | ||
16 : | "type1.o" "gothic.o" "newjoint.o" "center.o" | ||
17 : | "limit.o" "unit.o" "transform.o" "naal.o" "hiranew.o" | ||
18 : | "region.o" "out2ps.o" "outline.o"))) | ||
19 : | (t | ||
20 : | (code-load '("window.o" "pack.o" "lib.o" "disp.o" "yokosort.o" | ||
21 : | "sym.o" | ||
22 : | "mincho.o" "type1.o" "gothic.o" "newjoint.o" "center.o" | ||
23 : | "limit.o" "unit.o" "transform.o" "naal.o" "hiranew.o" | ||
24 : | "region.o" "out2ps.o" "outline.o" | ||
25 : | ) "-lX11"))) | ||
26 : | ) | ||
27 : | (exfile "limitrule.l") | ||
28 : | (exfile 'all.l) | ||
29 : | (setq hirawidth 0.6) | ||
30 : | (setq *default-hirawidth* 8) | ||
31 : | (exfile "../primdata/prim-hira.l") | ||
32 : | (exfile "../primdata/prim-kata.l") | ||
33 : | (exfile "../primdata/prim-sym.l") | ||
34 : | (exfile "../primdata/prim-gothic.l") | ||
35 : | (exfile "../primdata/prim-hira-gothic.l") | ||
36 : | (exfile "../primdata/prim-kata-gothic.l") | ||
37 : | (exfile "../jointdata/joint-naal.l") | ||
38 : | (exfile "server.l") | ||
39 : | (exfile "test/jis3ku.l") |
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |