Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
Download
2701 views
Tweet
Share
Share
1
;;; ess-s3-d.el ---  S 3 (AT&T version) customization

2


3
;; Copyright (C) 1997 A. J. Rossini

4
;; Copyright (C) 1998--2005 A.J. Rossini, Richard M. Heiberger, Martin

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

6


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

8
;; Created: 12 Jun 1997

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

10


11
;; Keywords: languages

12


13
;; This file is part of ESS.

14


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

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

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

18
;; any later version.

19


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

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

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

23
;; GNU General Public License for more details.

24


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

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

27


28
;;; Commentary:

29


30
;; This file defines all the S 3 customizations for ess-mode.

31


32
;;; Code:

33


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

35


36
(require 'ess-s-l)

37


38
(defvar S3-customize-alist

39
  (append

40
   '((ess-local-customize-alist         . 'S3-customize-alist)

41
     (ess-dialect                       . "S3")

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

43
     (ess-change-sp-regexp              . ess-S-change-sp-regexp)

44
     (ess-help-sec-keys-alist           . ess-help-S3-sec-keys-alist)

45
     (ess-object-name-db-file           . "ess-s3-namedb.el" )

46
     (inferior-ess-program              . inferior-S3-program-name) ;        "S")

47
     (inferior-ess-help-command         . "help(\"%s\")\n")

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

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

50
     (inferior-ess-objects-command      . "objects(%d)\n")

51
     (inferior-ess-start-file           . nil) ;"~/.ess-S3")

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

53
     (ess-STERM  . "iESS")

54
     )

55
   S+common-cust-alist); use S+ ones here; partly overwritten above!!

56


57
  "Variables to customize for S3")

58


59
(defun S3 (&optional proc-name)

60
  "Call 'S 3.x', the version from AT&T."

61
  (interactive)

62
  (setq ess-customize-alist S3-customize-alist)

63
  (ess-write-to-dribble-buffer

64
   (format "\n(S3): ess-dialect=%s, buf=%s\n" ess-dialect (current-buffer)))

65
  (inferior-ess)

66
  (if inferior-ess-language-start

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

68


69


70
(defun S3-mode (&optional proc-name)

71
  "Major mode for editing S3 source.  See `ess-mode' for more help."

72
  (interactive)

73
  (setq ess-customize-alist S3-customize-alist)

74
  (ess-mode S3-customize-alist proc-name)

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

76


77


78
 ; Provide package

79


80
(provide 'ess-s3-d)

81


82
 ; Local variables section

83


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

85
;;; The file is structured as follows:

86
;;; Chapters:     ^L ;

87
;;; Sections:    ;;*;;

88
;;; Subsections: ;;;*;;;

89
;;; Components:  defuns, defvars, defconsts

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

91


92
;;; Local variables:

93
;;; mode: emacs-lisp

94
;;; outline-minor-mode: nil

95
;;; mode: outline-minor

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

97
;;; End:

98


99
;;; ess-s3-d.el ends here

100


101