OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el - diff

Return to asir-mode.el CVS log

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.16

version 1.5, 2013/09/21 06:16:05

version 1.16, 2021/03/14 23:21:21

Line 2

;;

;; 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 $

;; $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el,v 1.15 2021/02/24 23:10:32 takayama Exp $

;; 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

;; the Free Software Foundation, either version 3 of the License, or

;; (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 a Abort current calculation.

;; 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)

(require 'cl)

;;;; AsirGUI for Windows

(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")

Line 51

Line 81

(save-excursion

(if (not (get-buffer asir-cmd-buffer-name))

(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)

(goto-char (point-max))

(insert "asir")

(insert "openxm asir")

(comint-send-input)

(select-frame current-frame))))))

Line 101

Line 138

"Paste region to asir"

(interactive)

(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))))))

(defun asir-abort ()

"Abort calculation on asir"

(interactive)

(if (eq system-type 'windows-nt)

;; for Windows

(let ((exec-path (asir-effective-exec-path)))

(start-process "asir-proc-cmdasir" nil "cmdasir" "--abort"))

;; for UNIX

(save-excursion

(if (get-buffer asir-cmd-buffer-name)

(progn

(set-buffer asir-cmd-buffer-name)

(comint-kill-input)

(comint-interrupt-subjob)

(goto-char (point-max))

(insert "t\ny")

(comint-send-input)

)))))

;;;; Extension for CC-mode.

(require 'cc-mode)

Line 148

Line 209

'("----"

["Start Asir" asir-start t]

["Terminate Asir" asir-terminate t]

["Abort calcuration on Asir" asir-abort t]

["Execute Current Buffer on Asir" asir-execute-current-buffer (buffer-file-name)]

["Execute Region on Asir" asir-execute-region mark-active]

["Paste Region to Asir" asir-paste-region mark-active]

Line 186 Each list item should be a regexp matching a single id

Line 248 Each list item should be a regexp matching a single id

;; Key binding for asir-mode

(define-key asir-mode-map (kbd "C-c s") 'asir-start)

(define-key asir-mode-map (kbd "C-c t") 'asir-terminate)

(define-key asir-mode-map (kbd "C-c a") 'asir-abort)

(define-key asir-mode-map (kbd "C-c l") 'asir-execute-current-buffer)

(define-key asir-mode-map (kbd "C-c r") 'asir-execute-region)

(define-key asir-mode-map (kbd "C-c p") 'asir-paste-region)

Line 1190 Key bindings:

Line 1253 Key bindings:

((and (eq char-after-ip ?{)

(progn

(setq placeholder (c-inside-bracelist-p (point)

paren-state))

paren-state nil))

(if placeholder

(setq tmpsymbol '(brace-list-open . inexpr-class))

(setq tmpsymbol '(block-open . inexpr-statement)

Line 1313 Key bindings:

Line 1376 Key bindings:

(save-excursion

(goto-char containing-sexp)

(c-looking-at-special-brace-list)))

(c-inside-bracelist-p containing-sexp paren-state))))

(c-inside-bracelist-p containing-sexp paren-state t))))

(cond

;; CASE 9A: In the middle of a special brace list opener.

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>