| ;; load.l |
;; load.l |
| (mapcar '("pack.l" |
(or (boundp 'base-directory)(setq base-directory ".")) |
| |
(or (boundp 'source-load)(setq source-load nil)) |
| |
(lets |
| |
((source-files |
| |
'("pack.l" |
| "lib.l" |
"lib.l" |
| "yokosort.l" |
"yokosort.l" |
| "mincho.l" |
"mincho.l" |
| "hiranew.l" |
"hiranew.l" |
| "region.l" |
"region.l" |
| "out2ps.l" |
"out2ps.l" |
| "outline.l") |
"outline.l"))) |
| #'(lambda (file) (exfile (string-append base-directory "/" file)))) |
(cond (source-load |
| (comment |
(mapc source-files |
| |
#'(lambda (file) |
| (defun exprint (file) |
(exfile (string-append base-directory "/" file))))) |
| (print file terminal-output) |
|
| (exfile file)) |
|
| |
|
| (mapcar '("pack.l" "lib.l" "disp.l" "yokosort.l" "mincho.l" |
|
| "sym.l" "type1.l" "gothic.l" "newjoint.l" "center.l" |
|
| "limit.l" "unit.l" "transform.l" "naal.l" "hiranew.l" |
|
| "region.l" "out2ps.l" "outline.l") |
|
| #'(lambda (x) (print x)(exfile x))) |
|
| (comment |
|
| (cond ((definedp 'connect-to-server) |
|
| (code-load '("pack.o" "lib.o" "disp.o" "yokosort.o" "mincho.o" |
|
| "sym.o" |
|
| "type1.o" "gothic.o" "newjoint.o" "center.o" |
|
| "limit.o" "unit.o" "transform.o" "naal.o" "hiranew.o" |
|
| "region.o" "out2ps.o" "outline.o"))) |
|
| (t |
(t |
| (code-load '("window.o" "pack.o" "lib.o" "disp.o" "yokosort.o" |
(code-load |
| "sym.o" |
(mapcar source-files |
| "mincho.o" "type1.o" "gothic.o" "newjoint.o" "center.o" |
#'(lambda (file) |
| "limit.o" "unit.o" "transform.o" "naal.o" "hiranew.o" |
(string-append |
| "region.o" "out2ps.o" "outline.o" |
base-directory "/" |
| ) "-lX11"))) |
(substring file 0 (1- (string-length file))) |
| ) |
"o"))))))) |
| (exfile "limitrule.l") |
; |
| (exfile "all.l") |
; $B$R$i$,$J$NI}(B |
| (setq hirawidth 0.6) |
; |
| (setq *default-hirawidth* 8) |
(setq *default-hirawidth* 8) |
| (exfile "../primdata/prim-hira.l") |
; |
| (exfile "../primdata/prim-kata.l") |
; $BL@D+BN(B(mincho.l) |
| (exfile "../primdata/prim-sym.l") |
; |
| (exfile "../primdata/prim-gothic.l") |
|
| (exfile "../primdata/prim-hira-gothic.l") |
; $BL@D+BN$N=DK@$NI}(B |
| (exfile "../primdata/prim-kata-gothic.l") |
(setq minchowidth 8) |
| (exfile "../jointdata/joint-naal.l") |
; $BL@D+BN$N=DK@$KBP$9$k2#K@$NHfN((B |
| (exfile "server.l") |
(setq tateyokoratio 0.4) |
| (exfile "test/jis3ku.l") |
; $B%G%6%$%s%5%$%:$KBP$9$kI}$N3HBgN((B |
| ) |
(setq hirawidth 0.6) |
| |
; $B=DK@$N;OE@$N>~$j(B |
| |
(setq tatekazari 1.5) |
| |
; $B2#@~$N;_$a$N=D@~$KBP$9$kHf(B |
| |
(setq tomeheight 1.8) |
| |
; $B=DK@$H2#K@$N8rE@$N>~$j(B |
| |
(setq kazariheight 1.4) |
| |
; $B%G%U%)%k%H$N(Bmeshsize$B$r==J,>.$5$/$9$k$H32$,$J$$(B. |
| |
;(setq meshsize 6.618290) |
| |
(setq meshsize 0.01) |
| |
|
| |
; |
| |
; $B%4%7%C%/BN(B(gothic.l, naal.l) |
| |
; |
| |
(setq gothicwidth 13.0) |
| |
|
Diff of /renderer/load.l
Parent Directory
| 
Revision Log