;;; essd-els.el --- S-PLUS 3.x at another location customization ;; Copyright (C) 1998 Richard M. Heiberger ;; Author: Richard M. Heiberger ;; Maintainer: A.J. Rossini ;; Created: December 1998 ;; Modified: $Date: 2002/05/10 20:24:31 $ ;; Version: $Revision: 1.20 $ ;; RCS: $Id: essd-els.el,v 1.20 2002/05/10 20:24:31 rmh Exp $ ;; ;; 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+3" "Name of 'dialect' for S-PLUS 3.x at another location.") ;easily changeable in a user's .emacs (defvar S+elsewhere-customize-alist '((ess-local-customize-alist . 'S+elsewhere-customize-alist) (ess-language . "S") (ess-dialect . S+elsewhere-dialect-name) (ess-suffix . "S") (ess-dump-filename-template . (concat (user-login-name) ".%s." ess-suffix)) (ess-mode-editing-alist . S-editing-alist) (ess-mode-syntax-table . S-syntax-table) (ess-help-sec-regex . ess-help-S+-sec-regex) (ess-help-sec-keys-alist . S+-help-sec-keys-alist) (ess-loop-timeout . 500000 ) (ess-object-name-db-file . "ess-spelsewhere-namedb.el" ) (ess-retr-lastvalue-command . ".Last.value <- get(\".ess.lvsave\",frame=0)\n") (ess-save-lastvalue-command . "assign(\".ess.lvsave\",.Last.value,frame=0)\n") (inferior-ess-program . inferior-S-elsewhere-program-name) (inferior-ess-objects-command . "objects(%d)\n") (inferior-ess-help-command . "help(\"%s\",pager=\"cat\",window=F)\n") (inferior-ess-exit-command . "q()\n") (inferior-ess-primary-prompt . "[/a-zA-Z0-9() ]*[>$%] ?") (inferior-ess-secondary-prompt . "[+>] ?") (comint-use-prompt-regexp-instead-of-fields . t) ;; emacs 21 and up (inferior-ess-start-file . nil) ;"~/.ess-S+3") (inferior-ess-start-args . "-i") (ess-STERM . "iESS") (ess-editor . S-editor) (ess-pager . S-pager) (inferior-ess-language-start . (eval inferior-S-language-start)) ) "Variables to customize for S+elsewhere") (defun S+elsewhere (&optional proc-name) "Call 'S-PLUS 3.x', the 'Real Thing' from StatSci." (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 ((dialect (read-string "Dialect (enter one of: stata, r, sp3, sp5, sp6, xls, sas)?"))) (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." (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))))) ;;; ess-remote is constructed by looking at ess-add-process and ;;; ESS-elsewhere and ess-multi and then simplifying. ;;; ;;; Start a process on a remote computer by manual use of telnet, ;;; rlogin, ssh, or some other protocol. Start the ESS process ("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. (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. This command will normally be run in a telnet buffer connected to another computer, or a shell buffer running ssh to another computer, or in a shell or comint buffer on the local computer." (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 (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