Annotation of /lisp/ulx-tools.lAnnotation 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 |