[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.5 and 1.10

version 1.5, 2013/09/21 06:16:05 version 1.10, 2013/11/27 04:40:25
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.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
 ;; the Free Software Foundation, either version 3 of the License, or  ;; the Free Software Foundation, either version 3 of the License, or
 ;; (at your option) any later version.  ;; (at your option) any later version.
   ;; 1. Install
   ;;
   ;; **(for Windows) Write the following configuration to your .emacs file.
   ;;
   ;; (setq load-path (append load-path '((concat (getenv "ASIR_ROOTDIR") "/share/editor"))))
   ;; (setq auto-mode-alist (cons '("\\.rr$" . asir-mode) auto-mode-alist))
   ;; (autoload 'asir-mode "asir-mode" "Asir mode" t)
   ;;
   ;; **(for unix) Copy this file to your emacs site-lisp folder and
   ;;              write the following configuration to your .emacs file.
   ;;
   ;; (setq auto-mode-alist (cons '("\\.rr$" . asir-mode) auto-mode-alist))
   ;; (autoload 'asir-mode "asir-mode" "Asir mode" t)
   ;;
   ;; Please run byte-compile for speed up.
   ;;
   ;; 2. Use
   ;;
   ;; If you open Risa/Asir source file (*.rr) by emacs, then asir-mode starts up automatically.
   ;; The following key binding can be used:
   ;; C-c s     Asir starts up in another window.
   ;; C-c t     Asir terminates.
   ;; C-c l     The current buffer is loaded to Asir as a file.
   ;; C-c r     Selected region is loaded to Asir as a file.
   ;; C-c p     Selected region is pasted to Asir.
   
   (require 'shell)
   
 ;;;; AsirGUI for Windows  ;;;; AsirGUI for Windows
 (defvar asir-exec-path '("~/Desktop/asir/bin" "c:/Program Files/asir/bin" "c:/Program Files (x64)/asir/bin" "c:/asir/bin")  (defvar asir-exec-path '("~/Desktop/asir/bin" "c:/Program Files/asir/bin" "c:/Program Files (x64)/asir/bin" "c:/asir/bin")
   "Default search path for asir binary in Windows")    "Default search path for asir binary in Windows")
Line 51 
Line 78 
     (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)              (if window-system
                 (select-frame (make-frame)))                  (progn
             (shell (get-buffer-create asir-cmd-buffer-name)) ;; Switch to new buffer automatically                    (select-frame (make-frame))
                     (shell (get-buffer-create asir-cmd-buffer-name)) ;; Switch to new buffer automatically
                     (delete-other-windows))
                 (if (>= emacs-major-version 24)
                     (progn
                       (split-window)
                       (other-window -1)))
                 (shell (get-buffer-create asir-cmd-buffer-name)))
             (sleep-for 1)              (sleep-for 1)
             (goto-char (point-max))              (goto-char (point-max))
             (insert "asir")              (insert "asir")
Line 101 
Line 135 
   "Paste region to asir"    "Paste region to asir"
   (interactive)    (interactive)
   (if mark-active    (if mark-active
       (save-excursion        (if (eq system-type 'windows-nt)
         (let ((buffer (current-buffer))            (let ((temp-file (make-temp-file (format "%s/cmdasir-" (getenv "TEMP"))))
               (start (region-beginning))                  (exec-path (asir-effective-exec-path)))
               (end (region-end)))              (write-region (region-beginning) (region-end) temp-file)
           (set-buffer asir-cmd-buffer-name)              (start-process "asir-proc-cmdasir" nil "cmdasir" "--paste-contents" temp-file))
           (goto-char (point-max))          (save-excursion
           (insert-buffer-substring buffer start end)            (let ((buffer (current-buffer))
           (comint-send-input)))))                  (start (region-beginning))
                   (end (region-end)))
               (set-buffer asir-cmd-buffer-name)
               (goto-char (point-max))
               (insert-buffer-substring buffer start end)
               (comint-send-input))))))
   
 ;;;; Extension for CC-mode.  ;;;; Extension for CC-mode.
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.10
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>