Annotation of /lisp/newload.lAnnotation of /lisp/newload.l
Parent Directory
| 
Revision Log
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 : | (cond ((definedp 'connect-to-server) | ||
| 8 : | (code-load '("pack.o" "lib.o" "disp.o" "yokosort.o" "mincho.o" | ||
| 9 : | "sym.o" | ||
| 10 : | "type1.o" "gothic.o" "newjoint.o" "center.o" | ||
| 11 : | "limit.o" "unit.o" "transform.o" "naal.o" "hiranew.o" | ||
| 12 : | "region.o" "out2ps.o" "outline.o"))) | ||
| 13 : | (t | ||
| 14 : | (code-load '("window.o" "pack.o" "lib.o" "disp.o" "yokosort.o" | ||
| 15 : | "sym.o" | ||
| 16 : | "mincho.o" "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 : | ) "-lX11"))) | ||
| 20 : | (exfile "limitrule.l") | ||
| 21 : | (exfile 'all.l) | ||
| 22 : | ;(exfile "hiramin.l") | ||
| 23 : | (setq hirawidth 0.6) | ||
| 24 : | (setq *default-hirawidth* 8) | ||
| 25 : | ;(exfile "hiranew.l") | ||
| 26 : | (exfile "primdata/prim-hira.l") | ||
| 27 : | (exfile "primdata/prim-kata.l") | ||
| 28 : | ;(exfile "primdata/prim-kata.l.new") | ||
| 29 : | (exfile "primdata/prim-sym.l") | ||
| 30 : | (exfile "primdata/prim-gothic.l") | ||
| 31 : | (exfile "primdata/prim-hira-gothic.l") | ||
| 32 : | (exfile "primdata/prim-kata-gothic.l") | ||
| 33 : | ; | ||
| 34 : | (exfile "jointdata/joint-naal.l") | ||
| 35 : | (exfile "server.l") | ||
| 36 : | ;(exfile "gothic.l") | ||
| 37 : | ;(exfile "newjoint.l") | ||
| 38 : | ;(exfile "center.l") | ||
| 39 : | ;(exfile "limit.l") | ||
| 40 : | ;(exfile "unit.l") | ||
| 41 : | |||
| 42 : | (exfile "test/jis3ku.l") |
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |