[wadalabfont-kit] / lisp / ulx-tools.l  

Annotation of /lisp/ulx-tools.l

Parent Directory | Revision Log

Revision: 1.2 - (view) (download)

1 : ktanaka 1.1 ;;----------------------;;
2 : ktanaka 1.2 ;; skeleton-edit.l ;;
3 :     ;; for skeleton editor ;;
4 : ktanaka 1.1 ;;----------------------;;
5 :    
6 :     ;; ------ ;;
7 :     ;; reload ;;
8 :     ;; ------ ;;
9 :    
10 :     (defun init_window () 'dummy-function)
11 :    
12 :     (defun current-directory ()
13 :     (let ((tmpfile (string-append "/tmp/ya" (date-time))))
14 :     (call (string-append "echo \""`pwd`\"" > " tmpfile))
15 :     (lets ((s (inopen (stream tmpfile)))
16 :     (ret (read s)))
17 :     (close s)
18 :     (call (string-append "rm " tmpfile))
19 :     ret)))
20 :    
21 : ktanaka 1.2 (defun reload-skeleton ((load-primitive-all t))
22 : ktanaka 1.1 (reload-skeleton load-primitive-all))
23 :    
24 :     (defun reload-skeleton ((load-primitive-all t))
25 :     (let ((curdir (current-directory))
26 :     (source-of-binary-files '(
27 :     "./tools/addhira.l"
28 :     "./tools/addprim.l"
29 :     "./tools/affinprim.l"
30 :     "./tools/aplyknj.l"
31 :     "./tools/delprim.l"
32 :     "./tools/dist.l"
33 :     "./tools/delhirapnt.l"
34 :     "./tools/drag-line.l"
35 :     "./tools/draw.l"
36 :     "./tools/edhira.l"
37 :     "./tools/edjoint.l"
38 :     "./tools/edprim.l"
39 :     "./tools/etc.l"
40 :     "./tools/han2zen.l"
41 :     "./tools/hirapoint.l"
42 :     "./tools/init.l"
43 :     "./tools/loop.l"
44 :     "./tools/message.l"
45 :     "./tools/movebox.l"
46 :     "./tools/nolink.l"
47 :     "./tools/primdef.l"
48 :     "./tools/primdisp.l"
49 :     "./tools/resizebox.l"
50 :     "./tools/skel-lib.l"
51 :     "./tools/slider.l"
52 :     "./tools/whichprim.l"
53 :     "./tools/xyunit.l")))
54 :    
55 :     (cd "/home/misa/kanji/lib")
56 :    
57 :     (cond ((definedp 'connect-to-server)
58 :     nil)
59 :     (t
60 :     (exfile "/usr/local/lib/utilisp/ulx/loadulx.l")))
61 :    
62 :     (cond ((and (boundp 'source-load) (not (null source-load)))
63 :     (mapcar source-of-binary-files #'load))
64 :     (t
65 :     (let ((binary-files
66 :     (mapcar source-of-binary-files
67 :     #'(lambda (name)
68 :     (string-append
69 :     (substring name 0 (1- (string-length name)))
70 :     "o")))))
71 :     (code-load binary-files))))
72 :    
73 :     (load "./tools/skeledit.l")
74 :     (load "./tools/kinput.l")
75 :     (load "./tools/nocompile.l")
76 :     (load "./tools/ulxbug.l")
77 :     (load "./tools/primref.l")
78 :     (load "./tools/askyn.l")
79 :    
80 :     (when load-primitive-all
81 :     (comment setq makekanjilist t)
82 :     (load "./load.l")
83 :     ; (load "./gothic.l")
84 :     ; (load "./startup-hira.l")
85 :     ; (load "./prim-patch.l")
86 :     )
87 :    
88 :     (cd curdir)
89 :     nil))
90 :    
91 : ktanaka 1.2 (defun skeleton-edit-and-save (editee editee-name filename)
92 : ktanaka 1.1 (print editee-name terminal-output)
93 : ktanaka 1.2 (let* ((result (skeleton-edit editee))
94 : ktanaka 1.1 (standard-output (appendopen (stream filename))))
95 :     (prind `(setq ,editee-name ',result))
96 :     (terpri)
97 :     (close standard-output)))
98 :    
99 :     (defun reload-ulx-tools ()
100 : ktanaka 1.2 (reload-skeleton t))
101 : ktanaka 1.1
102 :     (reload-ulx-tools)

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help