Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
Download
2701 views
Tweet
Share
Share
1
;;; ess-sp3-d.el --- S-PLUS 3.x customization

2


3
;; Copyright (C) 1997--2004 A.J. Rossini, Richard M. Heiberger, Martin

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

5


6
;; Author: A.J. Rossini <[email protected]>

7
;; Created: 12 Jun 1997

8
;; Maintainer: ESS-core <[email protected]>

9


10
;; Keywords: languages

11


12
;; This file is part of ESS.

13


14
;; This file is free software; you can redistribute it and/or modify

15
;; it under the terms of the GNU General Public License as published by

16
;; the Free Software Foundation; either version 2, or (at your option)

17
;; any later version.

18


19
;; This file is distributed in the hope that it will be useful,

20
;; but WITHOUT ANY WARRANTY; without even the implied warranty of

21
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

22
;; GNU General Public License for more details.

23


24
;; A copy of the GNU General Public License is available at

25
;; http://www.r-project.org/Licenses/

26


27
;;; Commentary:

28


29
;; This file defines all the S-PLUS 3.x customizations for ess-mode.

30


31
;;; Code:

32


33
(autoload 'inferior-ess "ess-inf" "Run an ESS process.")

34
(autoload 'ess-mode     "ess-mode" "Edit an ESS process.")

35


36
(require 'ess-s-l)

37


38
(defvar S+3-dialect-name "S+3"

39
  "Name of 'dialect' for S-PLUS 3.x.");easily changeable in a user's .emacs

40


41
(defvar S+3-customize-alist

42
  (append

43
   '((ess-local-customize-alist         . 'S+3-customize-alist)

44
     (ess-dialect                       . S+3-dialect-name)

45
     (ess-loop-timeout                  . ess-S-loop-timeout);fixme: dialect spec.

46
     (ess-object-name-db-file           . "ess-s+3-namedb.el" )

47
     (inferior-ess-program              . inferior-S+3-program-name)

48
     (inferior-ess-help-command         . "help(\"%s\", pager=\"cat\", window=FALSE)\n")

49
     (inferior-ess-help-filetype . nil)

50
     (inferior-ess-search-list-command  . "search()\n")

51
     (inferior-ess-start-file           . nil) ;"~/.ess-S+3")

52
     (inferior-ess-start-args       . "")

53
     (ess-STERM  . "iESS")

54
     )

55
   S+common-cust-alist)

56


57
  "Variables to customize for S+3.")

58


59


60
(defun S+3 (&optional proc-name)

61
  "Call 'S-PLUS 3.x', the 'Real Thing'  from StatSci."

62
  (interactive)

63
  (setq ess-customize-alist S+3-customize-alist)

64
  (ess-write-to-dribble-buffer

65
   (format "\n(S+3): ess-dialect=%s, buf=%s\n" ess-dialect (current-buffer)))

66
  (inferior-ess)

67
  (if inferior-ess-language-start

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

69


70
(defun S+3-mode (&optional proc-name)

71
  "Major mode for editing S+3 source.  See `ess-mode' for more help."

72
  (interactive)

73
  (setq ess-customize-alist S+3-customize-alist)

74
  (ess-mode S+3-customize-alist proc-name)

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

76


77
(defun S+3-transcript-mode ()

78
  "S-PLUS 3.x transcript mode."

79
  (interactive)

80
  (ess-transcript-mode S+3-customize-alist))

81


82


83


84
 ; Provide package

85


86
(provide 'ess-sp3-d)

87


88
 ; Local variables section

89


90
;;; This file is automatically placed in Outline minor mode.

91
;;; The file is structured as follows:

92
;;; Chapters:     ^L ;

93
;;; Sections:    ;;*;;

94
;;; Subsections: ;;;*;;;

95
;;; Components:  defuns, defvars, defconsts

96
;;;              Random code beginning with a ;;;;* comment

97


98
;;; Local variables:

99
;;; mode: emacs-lisp

100
;;; outline-minor-mode: nil

101
;;; mode: outline-minor

102
;;; outline-regexp: "\^L\\|\\`;\\|;;\\*\\|;;;\\*\\|(def[cvu]\\|(setq\\|;;;;\\*"

103
;;; End:

104


105
;;; ess-sp3-d.el ends here

106


107