[wadalabfont-kit] / lisp / newload.l  

Annotation 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