;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:50:00 1993 ;;; from file /era/era-0.80/editor/lisp/vms/vmsproc.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (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.") (byte-code "!!  # #‡" [boundp subprocess-running nil command-mode-map make-sparse-keymap define-key " " command-send-input "" command-kill-line] 4) (fset 'subprocess-input #[(name str) "\n!p\nqdb cc q)" [display-subprocess-window display-buffer subprocess-buf old-buffer str 10] 2 "\ Handles input from a subprocess. Called by Emacs."]) (fset 'subprocess-exit #[(name) "" [nil subprocess-running] 2 "\ Called by Emacs upon subprocess exit."]) (fset 'start-subprocess #[nil "\"!q!)#\"" [subprocess-running throw --cl-block-nil-- t get-buffer-create "*COMMAND*" subprocess-buf use-local-map command-mode-map spawn-subprocess 1 subprocess-input subprocess-exit send-command-to-subprocess "ON SEVERE_ERROR THEN CONTINUE"] 5 "\ Spawns an asynchronous subprocess with output redirected to the buffer *COMMAND*. Within this buffer, use C-m to send the last line to the subprocess or to bring another line to the end."]) (fset 'subprocess-command-to-buffer #[(command buffer) " \"O \"O\n &*" [nil args cmd command 0 string-match " " call-process buffer "*dcl*"] 7 "\ Execute COMMAND and redirect output into BUFFER."]) (fset 'subprocess-command #[nil "  !db" [subprocess-running start-subprocess pop-to-buffer subprocess-buf] 2 "\ Starts asynchronous subprocess if not running and switches to its window." nil]) (fset 'command-send-input #[nil "y``{m y\n\"yc! !\nGO\nGOc\nc)" [0 nil current-line subprocess-running start-subprocess send-command-to-subprocess 1 command-prefix-string next-line end-of-buffer backward-char] 4 "\ If at last line of buffer, sends the current line to the spawned subprocess. Otherwise brings back current line to the last line for resubmission." nil]) (fset 'command-kill-line #[nil "y " [0 kill-line] 1 "\ Kills the current line. Used in command mode." nil]) (define-key esc-map "$" 'subprocess-command)