Return to asirgui.el CVS log

Up to [local] / OpenXM_contrib2 / windows / post-msg-asirgui

Annotation of OpenXM_contrib2/windows/post-msg-asirgui/asirgui.el, Revision 1.1

1.1     ! takayama    1: ;; $OpenXM$
        !             2: (defcustom asir-exec-path '("~/Desktop/asir/bin" "c:/Program Files/asir/bin" "c:/Program Files (x64)/asir/bin" "c:/asir/bin")
        !             3:   "search path for asir binary")
        !             4: 
        !             5: (defun asir-executable-find (command) 
        !             6:   "Search for command in asir-exec-path and exec-path"
        !             7:   (let ((exec-path (append asir-exec-path exec-path)))
        !             8:        (executable-find command)))
        !             9: 
        !            10: (defun execute-current-buffer-on-asir ()
        !            11:   "Execute the current buffer on asir"
        !            12:   (interactive)
        !            13:   (let ((exec-path (append asir-exec-path exec-path)))
        !            14:        (start-process "asir-proc-cmdasir" nil "cmdasir" (buffer-file-name))))
        !            15: 
        !            16: (defun start-asirgui ()
        !            17:   "Execute the current buffer on asir"
        !            18:   (interactive)
        !            19:   (let ((exec-path (append asir-exec-path exec-path)))
        !            20:        (start-process "asir-proc-asirgui" nil "asirgui"))) 
        !            21: 
        !            22: (defun execute-region-on-asir () 
        !            23:   "Execute the region on asir"
        !            24:   (interactive)
        !            25:   (save-excursion
        !            26:        (if (region-active-p)
        !            27:                (let ((exec-path (append asir-exec-path exec-path))
        !            28:                          (temp-file (make-temp-file (format "%s/asir-temp" (getenv "TEMP")))))
        !            29:                  (write-region (region-beginning) (region-end) temp-file)
        !            30:                  (start-process "asir-proc-cmdasir" nil "cmdasir" temp-file)))))
        !            31: 
        !            32: (define-key-after global-map [menu-bar asirgui]
        !            33:   (cons "AsirGUI" (make-sparse-keymap "asirgui..."))
        !            34:   'tools )
        !            35: 
        !            36: (define-key global-map [menu-bar asirgui execute-region]
        !            37:   '("Execute the region on asir" . execute-region-on-asir))
        !            38: 
        !            39: (define-key global-map [menu-bar asirgui execute-buffer]
        !            40:   '("Execute the current buffer on asir" . execute-current-buffer-on-asir))
        !            41: 
        !            42: (define-key global-map [menu-bar asirgui start-asirgui]
        !            43:   '("Start asirgui" . start-asirgui))
        !            44: