Annotation of /skeleton-edit/skeleton-edit.lAnnotation of /skeleton-edit/skeleton-edit.l
Parent Directory
| 
Revision Log
Revision: 1.2 - (view) (download)
| 1 : | ktanaka | 1.1 | ;;----------------------;; |
| 2 : | ;; skeleton-edit.l ;; | ||
| 3 : | ;; for skeleton editor ;; | ||
| 4 : | ;;----------------------;; | ||
| 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 : | (defun reload-skeleton ((load-primitive-all t)) | ||
| 22 : | (reload-skeleton load-primitive-all)) | ||
| 23 : | |||
| 24 : | ktanaka | 1.2 | (defun load-directory (dir) |
| 25 : | (lets ((base-directory dir)) | ||
| 26 : | (exfile (string-append base-directory "/" "load.l")))) | ||
| 27 : | (setq source-load t) | ||
| 28 : | ktanaka | 1.1 | (defun reload-skeleton ((load-primitive-all t)) |
| 29 : | (let ((curdir (current-directory)) | ||
| 30 : | (source-of-binary-files '( | ||
| 31 : | ktanaka | 1.2 | "./addhira.l" |
| 32 : | "./addprim.l" | ||
| 33 : | "./affinprim.l" | ||
| 34 : | "./aplyknj.l" | ||
| 35 : | "./delprim.l" | ||
| 36 : | "./dist.l" | ||
| 37 : | "./delhirapnt.l" | ||
| 38 : | "./drag-line.l" | ||
| 39 : | "./draw.l" | ||
| 40 : | "./edhira.l" | ||
| 41 : | "./edjoint.l" | ||
| 42 : | "./edprim.l" | ||
| 43 : | "./etc.l" | ||
| 44 : | "./han2zen.l" | ||
| 45 : | "./hirapoint.l" | ||
| 46 : | "./init.l" | ||
| 47 : | "./loop.l" | ||
| 48 : | "./message.l" | ||
| 49 : | "./movebox.l" | ||
| 50 : | "./nolink.l" | ||
| 51 : | "./primdef.l" | ||
| 52 : | "./primdisp.l" | ||
| 53 : | "./resizebox.l" | ||
| 54 : | "./skel-lib.l" | ||
| 55 : | "./slider.l" | ||
| 56 : | "./whichprim.l" | ||
| 57 : | "./xyunit.l"))) | ||
| 58 : | ktanaka | 1.1 | |
| 59 : | ktanaka | 1.2 | ; (cd "/home/misa/kanji/lib") |
| 60 : | ktanaka | 1.1 | |
| 61 : | (cond ((definedp 'connect-to-server) | ||
| 62 : | nil) | ||
| 63 : | (t | ||
| 64 : | (exfile "/usr/local/lib/utilisp/ulx/loadulx.l"))) | ||
| 65 : | |||
| 66 : | (cond ((and (boundp 'source-load) (not (null source-load))) | ||
| 67 : | (mapcar source-of-binary-files #'load)) | ||
| 68 : | (t | ||
| 69 : | (let ((binary-files | ||
| 70 : | (mapcar source-of-binary-files | ||
| 71 : | #'(lambda (name) | ||
| 72 : | (string-append | ||
| 73 : | (substring name 0 (1- (string-length name))) | ||
| 74 : | "o"))))) | ||
| 75 : | (code-load binary-files)))) | ||
| 76 : | |||
| 77 : | ktanaka | 1.2 | (load "./skeledit.l") |
| 78 : | (load "./kinput.l") | ||
| 79 : | (load "./nocompile.l") | ||
| 80 : | (load "./ulxbug.l") | ||
| 81 : | (load "./primref.l") | ||
| 82 : | (load "./askyn.l") | ||
| 83 : | ktanaka | 1.1 | |
| 84 : | (when load-primitive-all | ||
| 85 : | (comment setq makekanjilist t) | ||
| 86 : | ktanaka | 1.2 | (load-directory "../renderer/") |
| 87 : | (load-directory "../primdata/") | ||
| 88 : | (load-directory "../jointdata/") | ||
| 89 : | (load-directory "../kanjidata/") | ||
| 90 : | ; (load "./load.l") | ||
| 91 : | ktanaka | 1.1 | ; (load "./gothic.l") |
| 92 : | ; (load "./startup-hira.l") | ||
| 93 : | ; (load "./prim-patch.l") | ||
| 94 : | ) | ||
| 95 : | |||
| 96 : | (cd curdir) | ||
| 97 : | nil)) | ||
| 98 : | |||
| 99 : | (defun skeleton-edit-and-save (editee editee-name filename) | ||
| 100 : | (print editee-name terminal-output) | ||
| 101 : | (let* ((result (skeleton-edit editee)) | ||
| 102 : | (standard-output (appendopen (stream filename)))) | ||
| 103 : | (prind `(setq ,editee-name ',result)) | ||
| 104 : | (terpri) | ||
| 105 : | (close standard-output))) | ||
| 106 : | |||
| 107 : | (defun reload-ulx-tools () | ||
| 108 : | (reload-skeleton t)) | ||
| 109 : | |||
| 110 : | (reload-ulx-tools) |
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |