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