~ubuntu-branches/ubuntu/edgy/ess/edgy

 

;;; copied and edited from essd-sp4.el - Richard M. Heiberger, April 2001

;; Copyright (C) 2002--2004 A.J. Rossini, Rich M. Heiberger, Martin

;;      Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen.

;; Original Author: Richard M. Heiberger <rmh@sbm.temple.edu>

;; Maintainers: ESS-core <ESS-core@stat.math.ethz.ch>

 

(defvar inferior-S+6-start-args " "

  "Default is empty.  Can be used for license manager information, for example

`(setq inferior-S+6-start-args \" S_ELMHOST=\\\\\\\\@123.456.789.012  ELMTIMEOUT=60 \")'."

;; (setq inferior-S+6-start-args " S_ELMHOST=\\\\@123.456.789.012  ELMTIMEOUT=60 ")  ;; use this line as the model for your site-start.el

)

 

(defvar inferior-Sqpe-start-args " "

  "Default is empty.  Can be used for license manager information, for example

`(setq inferior-Sqpe-start-args \" S_ELMHOST=@123.456.789.012  ELMTIMEOUT=60 \")'."

;; (setq inferior-Sqpe-start-args " S_ELMHOST=@123.456.789.012  ELMTIMEOUT=60 ")  ;; use this line as the model for your site-start.el

)

 

    (ess-loop-timeout              . ess-S-loop-timeout)

                                      inferior-S+6-start-args

                                      " "

 

    (inferior-ess-start-args       . (concat

                                      "ALWAYS_PROMPT=X"  ;;workaround for bug in S-Plus 6 for Windows

                                      " "

                                      inferior-Sqpe-start-args ;; license manager for example

                                      ))

    (if (not (search-backward-regexp "6.[1-9]" (point-min) t))

`S+6-existing'.  You should consider upgrading to S-Plus 6.1 or higher.")

not point to S-Plus 6.  Please add `splus6?/cmd'

(expand the `?' to match your setup) to your `exec-path' or

  (if ess-imenu-use-S (ess-imenu-R)))

(defun ess-sqpe-versions-create ()

  "Generate the `M-x splusxy' functions for starting other versions of

Sqpe.  See `ess-sqpe-versions' for strings that determine which

functions are created.  This works by creating a temp buffer where the

template function `Sqpe+template' is edited by replacing the string

'Sqpe+template' by the version name.  The list of functions actually

created appears in the *ESS* buffer.

 

The result `ess-sqpe-versions-created' will store a list of the new

Sqpe defuns, if any, that were created.  The defuns will normally be

placed on the menubar upon ESS initialisation."

  (let ((beg)

        (versions)

        (version)

        (eval-buf (get-buffer-create "*ess-temp-sqpe-evals*"))

        (ess-sqpe-versions-created)

        )

    ;;

    (save-excursion

      (set-buffer eval-buf)

      ;; clear the buffer.

      (delete-region (point-min) (point-max))

 

      ;; Find which versions of Sqpe we want.

      (setq versions (ess-uniq-list ess-SHOME-versions))

      ;; Iterate over each string in VERSIONS, creating a new defun each time.

      (while versions

        (setq version (car versions)

              versions (cdr versions))

        (if (file-executable-p version)

            (progn

              (setq beg (point))

              (prin1 (symbol-function 'Sqpe+template) eval-buf)

              (insert "\n\n")

              (goto-char beg)

              (while (search-forward "lambda" nil t 1)

                (replace-match

                 (concat "defun " (file-name-nondirectory version))

                 t t))

              (while (search-forward "ess-SHOME" nil t)

                (replace-match version t t))

              (goto-char (point-max))

              (setq ess-sqpe-versions-created

                    (cons (file-name-nondirectory version)

                          ess-sqpe-versions-created))

              (ess-write-to-dribble-buffer

               (format

                "(Sqpe): ess-sqpe-versions-create making M-x defun %s for %s \n"

                (file-name-nondirectory version) version))

              )))

      ;; buffer has now been created with defuns, so eval them!

      (eval-buffer)

      (kill-buffer eval-buf))

    ess-sqpe-versions-created))

 

;; template function used by ess-sqpe-versions-create

(defun Sqpe+template (&optional proc-name)

  "Call 'Sqpe' from 'S-PLUS for Windows ess-SHOME',

the 'Real Thing'  from StatSci.

This function was generated by `ess-sqpe-versions-create'."

  (interactive)

  (setq ess-customize-alist Sqpe+6-customize-alist)

  (let* ((shome-old (getenv "SHOME"))

         (inferior-Sqpe+6-SHOME-name "ess-SHOME")

         (inferior-Sqpe+6-program-name (concat "ess-SHOME" "/cmd/sqpe.exe")))

    (setenv "SHOME" "ess-SHOME")

    (ess-write-to-dribble-buffer

     (format "\n(Sqpe+template): ess-dialect=%s, buf=%s\n" ess-dialect

             (current-buffer)))

    (setq ess-customize-alist    ; change inferior-ess-primary-prompt

          (append ess-customize-alist

                  '((inferior-ess-primary-prompt   . "^"))))

    (inferior-ess)

    (setq ess-customize-alist Sqpe+6-customize-alist) ; restore i-e-p-p in alist

    (ess-setq-vars-local ess-customize-alist) ; restore i-e-p-p in buffer

    (setq inferior-ess-prompt           ; define with correct i-e-p-p

          ;; Do not anchor to bol with `^'       ; (copied from ess-inf.el)

          (concat "\\("

                  inferior-ess-primary-prompt

                  "\\|"

                  inferior-ess-secondary-prompt

                  "\\)"))

    (setq comint-prompt-regexp (concat "^" inferior-ess-prompt))

                                        ; define with correct i-e-p-p

    (setq comint-input-sender 'inferior-ess-input-sender)

    (add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t)

    (goto-char (point-max))

    (insert "options(interactive=T)")

    (inferior-ess-send-input)

    (setq mode-name "iESS(Sqpe)")

    ;;  (ess-eval-linewise inferior-S+6-editor-pager-command)

    (if inferior-ess-language-start

        (ess-eval-linewise inferior-ess-language-start))

    (setenv "SHOME" shome-old)))