;;; essd-els.el --- S-PLUS 3.x at another location customization ;; Copyright (C) 1998 Richard M. Heiberger ;; Copyright (C) 1999--2005 A.J. Rossini, Rich M. Heiberger, Martin ;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. ;; Original Author: Richard M. Heiberger ;; Created: December 1998 ;; Maintainers: ESS-core ;; Keywords: start up, configuration. ;; This file is part of ESS. ;; This file 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. ;; This file 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. ;;; Commentary: ;;; This file defines all the S-PLUS 3.x customizations for ess-mode. ;;; Requires and Autoloads: (require 'essl-s) (autoload 'inferior-ess "ess-inf" "Run an ESS process.") (autoload 'ess-mode "ess-mode" "Edit an ESS process.") ; Code: (defvar S+elsewhere-dialect-name "S+6" "Name of 'dialect' for S-PLUS at another location.") ;easily changeable in a user's .emacs (defvar S+elsewhere-customize-alist (append '((ess-local-customize-alist . 'S+elsewhere-customize-alist) (ess-dialect . S+elsewhere-dialect-name) (ess-loop-timeout . ess-S-loop-timeout);fixme: dialect spec. (ess-object-name-db-file . "ess-spelsewhere-namedb.el" ) (inferior-ess-program . inferior-S-elsewhere-program-name) (inferior-ess-help-command . "help(\"%s\",pager=\"cat\",window=F)\n") (inferior-ess-start-file . nil) ;"~/.ess-S+3") (inferior-ess-start-args . "-i") (ess-STERM . "iESS") ) S+common-cust-alist) "Variables to customize for S+elsewhere") (defun S+elsewhere (&optional proc-name) "Call 'S-PLUS 3.x', the 'Real Thing' from StatSci. This command is obsolete; please use `ess-remote' instead." (interactive) (setq ess-customize-alist S+elsewhere-customize-alist) (ess-write-to-dribble-buffer (format "\n(S+elsewhere): ess-dialect=%s, buf=%s\n" ess-dialect (current-buffer))) (inferior-ess) (if inferior-ess-language-start (ess-eval-linewise inferior-ess-language-start))) (defun S+elsewhere-mode (&optional proc-name) "Major mode for editing S+3 source. See `ess-mode' for more help." (interactive) (setq ess-customize-alist S+elsewhere-customize-alist) (ess-mode S+elsewhere-customize-alist proc-name)) (defun S+elsewhere-transcript-mode () "S-PLUS 3.x transcript mode." (interactive) (ess-transcript-mode S+elsewhere-customize-alist)) ;; This REALLY shouldn't need an editing mode. Just a transcript and ;; an inferior process handler. (defun ess-change-alist (item value alist) "Modify ALIST to set VALUE to ITEM. If there is a pair whose car is ITEM, replace its cdr by VALUE. If there is not such pair, create new pair (ITEM . VALUE) and return new alist whose car is the new pair and cdr is ALIST. \[tomo's ELIS like function]" (let ((pair (assoc item alist))) (if pair (progn (setcdr pair value) alist) (cons (cons item value) alist)))) (defun ess-select-alist-dialect () "Query user for an ESS dialect and return the matching customize-alist." (interactive) (let* ((dialects '("arc" "vst" "omg" "s3" "s4" "stata" "r" "sp3" "sp4" "sqpe4" "sp5" "sp6" "sqpe6" "xls" "sas")) (dialect (completing-read "Dialect (press TAB for choices): " (mapcar '(lambda (x) (cons x 1)) dialects) nil t))) (cond ((string= dialect "arc") ARC-customize-alist) ((string= dialect "vst") VST-customize-alist) ((string= dialect "omg") OMG-customize-alist) ((string= dialect "s3") S3-customize-alist) ((string= dialect "s4") S4-customize-alist) ((string= dialect "stata") STA-customize-alist) ((string= dialect "r") R-customize-alist ) ((string= dialect "sp3") S+3-customize-alist) ((string= dialect "sp4") S+4-customize-alist) ((string= dialect "sqpe4") Sqpe+4-customize-alist) ((string= dialect "sp5") S+5-customize-alist) ((string= dialect "sp6") S+6-customize-alist) ((string= dialect "sqpe6") Sqpe+6-customize-alist) ((string= dialect "xls") XLS-customize-alist) ((string= dialect "sas") SAS-customize-alist);was S+elsewhere-customize-alist? (t S+elsewhere-customize-alist) ))) (defun ESS-elsewhere (&optional proc-name) "Call an inferior process from ELSEWHERE. This command is obsolete; please use `ess-remote' instead." (interactive) ;; Need to select a elsewhere-customize-alist (let ((elsewhere-customize-alist (ess-select-alist-dialect))) (ess-change-alist 'inferior-ess-program inferior-ESS-elsewhere-program-name elsewhere-customize-alist) (setq ess-customize-alist elsewhere-customize-alist) (ess-write-to-dribble-buffer (format "\n(ESS-elsewhere): ess-dialect=%s, buf=%s\n" ess-dialect (current-buffer))) (inferior-ess) (if (equal ess-language "S") (if inferior-ess-language-start (ess-eval-linewise inferior-ess-language-start))))) (defun ess-add-ess-process () "Execute this command from within a buffer running a process to add the process to `ess-process-name-alist' and to make it the `ess-current-process-name'. This command will normally be run in a telnet buffer connected to another computer or in a shell or comint buffer on the local computer." (interactive) (let ((proc (get-buffer-process (buffer-name)))) (if (not proc) (error "No process is associated with this buffer.") (setq ess-current-process-name (process-name proc)) (add-to-list 'ess-process-name-list (list ess-current-process-name))))) ;;; ess-remote is constructed by looking at ess-add-process and ;;; ESS-elsewhere and ess-multi and then simplifying. ;;; (defun ess-remote (&optional proc-name) "Execute this command from within a buffer running a process. It runs `ess-add-ess-process' to add the process to `ess-process-name-alist' and to make it the `ess-current-process-name'. It then prompts the user for an ESS language and sets the editing characteristics appropriately. To use this command, first start a process on a remote computer by manual use of telnet, rlogin, ssh, or some other protocol. Start the relevant program (\"S\" or \"R\" or \"sas -stdio\") in that buffer. Once you are talking to S or R or SAS, then execute `ess-remote' to make the current buffer an inferior-ess buffer with the right behavior for the language you are currently working with. With S and R, use C-c C-n to send lines over. With SAS, use C-c i `ess-eval-line-and-step-invisibly' to send lines over invisibly." (interactive) (ess-add-ess-process) ;; Need to select a remote-customize-alist (let ((ess-customize-alist (ess-select-alist-dialect))) (ess-write-to-dribble-buffer (format "\n(ESS-remote): ess-dialect=%s, buf=%s\n" ess-dialect (current-buffer))) (ess-setq-vars-local ess-customize-alist) (inferior-ess-mode) (setq ess-local-process-name proc-name) (goto-char (point-max)) (if (equal ess-language "S") (if inferior-ess-language-start (progn ;; FIXME hack (not in line with using ess-customize-alist) (setq ess-editor nil) (setq ess-pager nil) (setq inferior-ess-language-start (eval inferior-S-language-start)) (ess-eval-linewise inferior-ess-language-start)))) (if (equal ess-language "SAS") (progn (font-lock-mode 0) (SAS-log-mode) (shell-mode) (toggle-read-only nil) (font-lock-mode 1))))) ; Provide package (provide 'essd-els) ; Local variables section ;;; This file is automatically placed in Outline minor mode. ;;; The file is structured as follows: ;;; Chapters: ^L ; ;;; Sections: ;;*;; ;;; Subsections: ;;;*;;; ;;; Components: defuns, defvars, defconsts ;;; Random code beginning with a ;;;;* comment ;;; Local variables: ;;; mode: emacs-lisp ;;; outline-minor-mode: nil ;;; mode: outline-minor ;;; outline-regexp: "\^L\\|\\`;\\|;;\\*\\|;;;\\*\\|(def[cvu]\\|(setq\\|;;;;\\*" ;;; End: ;;; essd-els.el ends here