;;; vmsx.el --- run asynchronous VMS subprocesses under Emacs;; Copyright (C) 1986 Free Software Foundation, Inc.;; Author: Mukesh Prasad;; Maintainer: FSF;; Keywords: vms;; This file is part of GNU Emacs.;; GNU Emacs 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 2, or (at your option);; any later version.;; GNU Emacs is distributed in the hope that it will be useful,;; but WITHOUT ANY WARRANTY; without even the implied warranty of;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the;; GNU General Public License for more details.;; You should have received a copy of the GNU General Public License;; along with GNU Emacs; see the file COPYING. If not, write to;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.;;; Code:(defvar display-subprocess-window nil "If non-nil, the suprocess window is displayed whenever input is received.")(defvar command-prefix-string "$ " "String to insert to distinguish commands entered by user.")(defvar subprocess-running nil)(defvar command-mode-map nil)(if command-mode-map nil (setq command-mode-map (make-sparse-keymap)) (define-key command-mode-map "\C-m" 'command-send-input) (define-key command-mode-map "\C-u" 'command-kill-line))(defun subprocess-input (name str) "Handles input from a subprocess. Called by Emacs." (if display-subprocess-window (display-buffer subprocess-buf)) (let ((old-buffer (current-buffer))) (set-buffer subprocess-buf) (goto-char (point-max)) (insert str) (insert ?\n) (set-buffer old-buffer)))(defun subprocess-exit (name) "Called by Emacs upon subprocess exit." (setq subprocess-running nil))(defun start-subprocess () "Spawns an asynchronous subprocess with output redirected tothe buffer *COMMAND*. Within this buffer, use C-m to sendthe last line to the subprocess or to bring another line tothe end." (if subprocess-running (return t)) (setq subprocess-buf (get-buffer-create "*COMMAND*")) (save-excursion (set-buffer subprocess-buf) (use-local-map command-mode-map)) (setq subprocess-running (spawn-subprocess 1 'subprocess-input 'subprocess-exit)) ;; Initialize subprocess so it doesn't panic and die upon ;; encountering the first error. (and subprocess-running (send-command-to-subprocess 1 "ON SEVERE_ERROR THEN CONTINUE")))(defvar subprocess-command-to-buffer-tmpdir "SYS$SCRATCH:" "*Put temporary files from subprocess-command-to-buffer here.")(defun subprocess-command-to-buffer (command buffer) "Execute command and redirect output into buffer.BUGS: only the output up to the end of the first image activation is trapped." (if (not subprocess-running) (start-subprocess)) (save-excursion (set-buffer buffer) (let ((output-filename (concat subprocess-command-to-buffer-tmpdir "OUTPUT-FOR-" (getenv "USER") ".LISTING"))) (while (file-attributes output-filename) (delete-file output-filename)) (send-command-to-subprocess 1 (concat "DEFINE/USER SYS$OUTPUT " output-filename "-NEW")) (send-command-to-subprocess 1 command) (send-command-to-subprocess 1 (concat "RENAME " output-filename "-NEW " output-filename)) (while (not (file-attributes output-filename)) (sleep-for 2)) (insert-file output-filename))))(defun subprocess-command () "Starts asynchronous subprocess if not running and switches to its window." (interactive) (if (not subprocess-running) (start-subprocess)) (and subprocess-running (progn (pop-to-buffer subprocess-buf) (goto-char (point-max)))))(defun command-send-input () "If at last line of buffer, sends the current line tothe spawned subprocess. Otherwise brings back currentline to the last line for resubmission." (interactive) (beginning-of-line) (let ((current-line (buffer-substring (point) (progn (end-of-line) (point))))) (if (eobp) (progn (if (not subprocess-running) (start-subprocess)) (if subprocess-running (progn (beginning-of-line) (send-command-to-subprocess 1 current-line) (if command-prefix-string (progn (beginning-of-line) (insert command-prefix-string))) (next-line 1)))) ;; else -- if not at last line in buffer (end-of-buffer) (backward-char) (next-line 1) (if (string-equal command-prefix-string (substring current-line 0 (length command-prefix-string))) (insert (substring current-line (length command-prefix-string))) (insert current-line)))))(defun command-kill-line() "Kills the current line. Used in command mode." (interactive) (beginning-of-line) (kill-line))(define-key esc-map "$" 'subprocess-command);;; vmsx.el ends here