[BACK]Return to asir-mode.el CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / windows / post-msg-asirgui

Diff for /OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el between version 1.4 and 1.5

version 1.4, 2013/09/21 03:52:05 version 1.5, 2013/09/21 06:16:05
Line 2 
Line 2 
 ;;  ;;
 ;; asir-mode.el -- asir mode  ;; asir-mode.el -- asir mode
 ;;  ;;
 ;; $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el,v 1.3 2013/09/19 19:57:32 ohara Exp $  ;; $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el,v 1.4 2013/09/21 03:52:05 ohara Exp $
   
 ;; This program is free software: you can redistribute it and/or modify  ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by  ;; it under the terms of the GNU General Public License as published by
Line 16 
Line 16 
 (defun asir-effective-exec-path ()  (defun asir-effective-exec-path ()
   "Search path for command"    "Search path for command"
   (let* ((dir (getenv "ASIR_ROOTDIR"))    (let* ((dir (getenv "ASIR_ROOTDIR"))
                  (path (append asir-exec-path exec-path)))           (path (append asir-exec-path exec-path)))
         (if dir (cons (concat dir "/bin") path) path)))      (if dir (cons (concat dir "/bin") path) path)))
   
 (defun asir-executable-find (command)  (defun asir-executable-find (command)
   "Search for command"    "Search for command"
   (let* ((exec-path (asir-effective-exec-path)))    (let* ((exec-path (asir-effective-exec-path)))
         (executable-find command)))      (executable-find command)))
   
 ;;;; Asir for UNIX  ;;;; Asir for UNIX
 (defvar asir-cmd-buffer-name "*asir-cmd*")  (defvar asir-cmd-buffer-name "*asir-cmd*")
Line 30 
Line 30 
 (defun asir-cmd-load (filename)  (defun asir-cmd-load (filename)
   "Send `load' command to running asir process"    "Send `load' command to running asir process"
   (if (eq system-type 'windows-nt)    (if (eq system-type 'windows-nt)
           (let ((exec-path (asir-effective-exec-path)))        (let ((exec-path (asir-effective-exec-path)))
                 (start-process "asir-proc-cmdasir" nil "cmdasir" filename))          (start-process "asir-proc-cmdasir" nil "cmdasir" filename))
         (save-excursion      (save-excursion
           (if (get-buffer asir-cmd-buffer-name)        (if (get-buffer asir-cmd-buffer-name)
                   (progn            (progn
                         (set-buffer asir-cmd-buffer-name)              (set-buffer asir-cmd-buffer-name)
                         (goto-char (point-max))              (goto-char (point-max))
                         (insert (format "load(\"%s\");" filename))              (insert (format "load(\"%s\");" filename))
                         (comint-send-input))))))              (comint-send-input))))))
   
 (defun asir-start ()  (defun asir-start ()
   "Start asir process"    "Start asir process"
   (interactive)    (interactive)
   (if (eq system-type 'windows-nt)    (if (eq system-type 'windows-nt)
     ;; for Windows      ;; for Windows
           (let ((exec-path (asir-effective-exec-path)))        (let ((exec-path (asir-effective-exec-path)))
                 (start-process "asir-proc-asirgui" nil "asirgui"))          (start-process "asir-proc-asirgui" nil "asirgui"))
     ;; for UNIX      ;; for UNIX
         (save-excursion      (save-excursion
           (if (not (get-buffer asir-cmd-buffer-name))        (if (not (get-buffer asir-cmd-buffer-name))
                   (let ((current-frame (selected-frame)))            (let ((current-frame (selected-frame)))
                         (or (not window-system)              (or (not window-system)
                                 (select-frame (make-frame)))                  (select-frame (make-frame)))
                         (shell (get-buffer-create asir-cmd-buffer-name)) ;; Switch to new buffer automatically              (shell (get-buffer-create asir-cmd-buffer-name)) ;; Switch to new buffer automatically
                         (sleep-for 1)              (sleep-for 1)
                         (goto-char (point-max))              (goto-char (point-max))
                         (insert "asir")              (insert "asir")
                         (comint-send-input)              (comint-send-input)
                         (select-frame current-frame))))))              (select-frame current-frame))))))
   
 (defun asir-terminate ()  (defun asir-terminate ()
   "Terminate asir process"    "Terminate asir process"
   (interactive)    (interactive)
   (if (eq system-type 'windows-nt)    (if (eq system-type 'windows-nt)
     ;; for Windows      ;; for Windows
           (let ((exec-path (asir-effective-exec-path)))        (let ((exec-path (asir-effective-exec-path)))
                 (start-process "asir-proc-cmdasir" nil "cmdasir" "--quit"))          (start-process "asir-proc-cmdasir" nil "cmdasir" "--quit"))
     ;; for UNIX      ;; for UNIX
         (if (get-buffer asir-cmd-buffer-name)      (if (get-buffer asir-cmd-buffer-name)
                 (if (not window-system)          (if (not window-system)
                         (let ((asir-cmd-window (get-buffer-window asir-cmd-buffer-name)))              (let ((asir-cmd-window (get-buffer-window asir-cmd-buffer-name)))
                           (and (kill-buffer asir-cmd-buffer-name)                (and (kill-buffer asir-cmd-buffer-name)
                                    (or (not asir-cmd-window) (delete-window asir-cmd-window))))                     (or (not asir-cmd-window) (delete-window asir-cmd-window))))
                   (let ((asir-cmd-frame (window-frame (get-buffer-window asir-cmd-buffer-name 0))))            (let ((asir-cmd-frame (window-frame (get-buffer-window asir-cmd-buffer-name 0))))
                         (and (kill-buffer asir-cmd-buffer-name)              (and (kill-buffer asir-cmd-buffer-name)
                                  (delete-frame asir-cmd-frame)))))))                   (delete-frame asir-cmd-frame)))))))
   
 (defun asir-execute-current-buffer ()  (defun asir-execute-current-buffer ()
   "Execute current buffer on asir"    "Execute current buffer on asir"
   (interactive)    (interactive)
   (let ((exec-path (asir-effective-exec-path)))    (let ((exec-path (asir-effective-exec-path)))
         (asir-cmd-load (buffer-file-name))))      (asir-cmd-load (buffer-file-name))))
   
 (defun asir-execute-region ()  (defun asir-execute-region ()
   "Execute region on asir"    "Execute region on asir"
   (interactive)    (interactive)
   (save-excursion    (if mark-active
         (if mark-active        (save-excursion
                 (let ((temp-file (make-temp-file (format "%s/cmdasir-" (or (getenv "TEMP") "/var/tmp"))))          (let ((temp-file (make-temp-file (format "%s/cmdasir-" (or (getenv "TEMP") "/var/tmp"))))
                           (temp-buffer (generate-new-buffer " *asir-temp*")))                (temp-buffer (generate-new-buffer " *asir-temp*")))
                   (write-region (region-beginning) (region-end) temp-file)            (write-region (region-beginning) (region-end) temp-file)
                   (set-buffer temp-buffer)            (set-buffer temp-buffer)
                   (insert " end$")            (insert " end$")
                   (write-region (point-min) (point-max) temp-file t) ;; append            (write-region (point-min) (point-max) temp-file t) ;; append
                   (kill-buffer temp-buffer)            (kill-buffer temp-buffer)
                   (asir-cmd-load temp-file)))))            (asir-cmd-load temp-file)))))
   
 (defun asir-paste-region ()  (defun asir-paste-region ()
   "Paste region to asir"    "Paste region to asir"
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>