Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
Download
2701 views
Tweet
Share
Share
1
;;; ess-arc-d.el --- ARC customization

2


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

4
;; Copyright (C) 2001--2004 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: 30 Jun 2000

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


29
;;; Commentary:

30


31
;; This file extends the XLispStat configuration for ARC, the extension of the

32
;; R-Code.

33


34
;;; Code:

35


36
(require 'ess-lsp-l)

37


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

39


40
(defvar ARC-customize-alist

41
  '((ess-customize-alist           .  ARC-customize-alist )

42
    (ess-language                  .  "XLS"               )

43
    (ess-dialect                   .  "ARC"               )

44
    (ess-loop-timeout              .  ess-XLS-loop-timeout)

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

46
    (ess-help-sec-regex            .  " ")

47
    (ess-help-sec-keys-alist       .  " ")

48
    (inferior-ess-primary-prompt   .  "> ?"               )

49
    (comint-use-prompt-regexp      . t)

50
    (inferior-ess-program          .  inferior-ARC-program-name)

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

52
    (inferior-ess-objects-command  .  "(variables)\n"     )

53
    (inferior-ess-exit-command     .  "(exit)\n"          )

54
    ;;(inferior-ess-start-args       . nil)

55
    (inferior-ess-start-file       .  nil)) ; "~/.ess-ARC")

56


57
  "Variables to customize for ARC, a dialect of XLS.")

58


59


60
(defun ARC-mode (&optional proc-name)

61
  "Major mode for editing ARC source.  NOT EVEN STARTED."

62
  (interactive)

63
  (setq ess-customize-alist ARC-customize-alist)

64
  (lisp-mode))

65


66


67
(defun ARC ()

68
  "Call 'ARC', the extend XLispStat statistical system, from Forrest Young."

69


70
  (interactive)

71
  (setq ess-customize-alist ARC-customize-alist)

72
  (ess-write-to-dribble-buffer

73
   (format "(ARC): ess-dialect=%s , buf=%s\n"

74
           ess-dialect (current-buffer)))

75
  (inferior-ess))

76


77
(fset 'arc 'ARC)

78


79
 ; Provide package

80


81
(provide 'ess-arc-d)

82


83
 ; Local variables section

84


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

86
;;; The file is structured as follows:

87
;;; Chapters:     ^L ;

88
;;; Sections:    ;;*;;

89
;;; Subsections: ;;;*;;;

90
;;; Components:  defuns, defvars, defconsts

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

92


93
;;; Local variables:

94
;;; mode: emacs-lisp

95
;;; outline-minor-mode: nil

96
;;; mode: outline-minor

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

98
;;; End:

99


100
;;; ess-arc-d.el ends here

101


102