/usr/share/emacs/site-lisp/ess/ess-bugs-l.el is in ess 17.11-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 | ;;; ess-bugs-l.el --- ESS[BUGS] languages
;; Copyright (C) 2006-2011 Rodney Sparapani
;; Author: Rodney Sparapani
;; Created: 16 August 2006
;; Maintainer: ESS-help <ess-help@r-project.org>
;; 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.
;;
;; A copy of the GNU General Public License is available at
;; http://www.r-project.org/Licenses/
;;; Code:
(require 'font-lock)
(require 'comint)
(require 'ess-compat)
(defgroup ess-bugs nil
"ESS: BUGS."
:group 'ess
:prefix "ess-")
(defcustom ess-bugs-batch-method
(if ess-microsoft-p (if (w32-shell-dos-semantics) 'dos 'sh) 'sh)
"Method used by `ess-bugs-batch'.
The default is based on the value of the emacs variable `system-type'
and, on Windows machines, the function `w32-shell-dos-semantics'.
'sh if *shell* runs a Bourne-like or a C-like Unix shell
'dos if *shell* runs a DOS-like Windows shell
Unix users will get 'sh by default.
Windows users running a DOS-like *shell* will get 'dos by default,
while those running a Unix-like *shell* will get 'sh by default.
Users whose default is not 'sh, but are accessing a remote machine with
`telnet' or `ssh', should have the following in their init file:
(setq-default ess-bugs-batch-method 'sh)"
:group 'ess-bugs
)
(defcustom ess-bugs-batch-post-command
(if (equal ess-bugs-batch-method 'sh) "&" " ")
"*ESS[BUGS]: Modifiers at the end of the batch BUGS command line."
:group 'ess-bugs
:type 'string
)
(defcustom ess-bugs-batch-pre-command
(if (equal ess-bugs-batch-method 'sh) "nohup nice time"
(if ess-microsoft-p "start"))
"*ESS[BUGS]: Modifiers at the beginning of the batch BUGS command line."
:group 'ess-bugs
:type 'string
)
(defcustom ess-bugs-default-burn-in "500"
"ESS[BUGS]: Burn-in iterations to discard."
:group 'ess-bugs
:type 'string
)
(defcustom ess-bugs-default-update "1000"
"ESS[BUGS]: Iterations to store."
:group 'ess-bugs
:type 'string
)
(defvar ess-bugs-batch-command ";"
"*ESS[BUGS]: The name of the command to run BUGS in batch mode."
)
(defvar ess-bugs-file "."
"ESS[BUGS]: BUGS file with PATH.")
(defvar ess-bugs-file-root "."
"ESS[BUGS]: Root of BUGS file.")
(defvar ess-bugs-file-suffix "."
"ESS[BUGS]: Suffix of BUGS file.")
(defvar ess-bugs-file-dir "."
"ESS[BUGS]: Directory of BUGS file.")
(defvar ess-bugs-file-data "..."
"ESS[BUGS]: BUGS data file.")
(defcustom ess-bugs-inits-suffix ".in"
"ESS[BUGS]: BUGS init file suffix."
:group 'ess-bugs
:type 'string
)
(defcustom ess-bugs-data-suffix ".dat"
"ESS[BUGS]: BUGS data file suffix."
:group 'ess-bugs
:type 'string
)
(defcustom ess-bugs-mode-hook nil
"*ESS[BUGS]: List of functions to call upon entering mode."
:group 'ess-bugs
:type 'hook)
(defvar ess-bugs-monitor-vars " "
"ESS[BUGS]: List of BUGS variables to be written out to a file.")
(defvar ess-bugs-stats-vars " "
"ESS[BUGS]: List of BUGS variables to be summarized with statistics.")
(defvar ess-bugs-mode-map nil
"ESS[BUGS]: Keymap for mode.")
(if ess-bugs-mode-map nil (setq ess-bugs-mode-map (make-keymap)))
(define-key ess-bugs-mode-map (quote [f2]) 'ess-revert-wisely)
;(define-key ess-bugs-mode-map (quote [f12]) 'ess-bugs-next-action)
(define-key ess-bugs-mode-map "\C-c\C-c" 'ess-bugs-next-action)
(define-key ess-bugs-mode-map "=" 'ess-bugs-hot-arrow)
(define-key ess-bugs-mode-map "_" 'ess-bugs-hot-arrow)
(defvar ess-bugs-syntax-table nil
"ESS[BUGS]: Syntax table for mode.")
(if ess-bugs-syntax-table nil (setq ess-bugs-syntax-table (make-syntax-table)))
(modify-syntax-entry ?\\ "." ess-bugs-syntax-table)
(modify-syntax-entry ?# "<" ess-bugs-syntax-table)
(modify-syntax-entry ?\n ">" ess-bugs-syntax-table)
(modify-syntax-entry ?( "()" ess-bugs-syntax-table)
(modify-syntax-entry ?) ")(" ess-bugs-syntax-table)
(modify-syntax-entry ?. "w" ess-bugs-syntax-table)
(defun ess-bugs-file ()
"ESS[BUGS]: Set internal variables dealing with BUGS files.
Set `ess-bugs-file', `ess-bugs-file-root', `ess-bugs-file-suffix'
and `ess-bugs-file-dir'."
(let ((ess-bugs-temp-string (buffer-name)))
(setq ess-bugs-file (expand-file-name ess-bugs-temp-string))
(setq ess-bugs-file-dir
(convert-standard-filename (file-name-directory ess-bugs-file)))
(setq ess-bugs-file-root
(file-name-nondirectory (file-name-sans-extension ess-bugs-file)))
(if (fboundp 'file-name-extension)
(setq ess-bugs-file-suffix (file-name-extension ess-bugs-temp-string))
;;else
(setq ess-bugs-file-suffix (car (last (split-string ess-bugs-temp-string "[.]")))))
(setq ess-bugs-file-suffix
(downcase (car (split-string (concat "." ess-bugs-file-suffix) "[<]"))))
(setq ess-bugs-file (concat ess-bugs-file-dir ess-bugs-file-root ess-bugs-file-suffix))
)
)
(defun ess-bugs-exit-notify-sh (string)
"ESS[BUGS]: Detect completion or failure of submitted job and notify the user."
(let* ((exit-done "\\[[0-9]+\\]\\ *\\+*\\ *\\(Exit\\|Done\\)[^\r\n]*")
(beg (string-match exit-done string)))
(if beg (message (substring string beg (match-end 0))))))
(defun ess-bugs-hot-arrow ()
"*ESS[BUGS]: Substitute <- for = key press"
(interactive)
(insert " <- "))
(defun ess-bugs-next-action ()
"ESS[BUGS/JAGS]: Perform the appropriate next action."
(interactive)
(ess-bugs-file)
(cond ((equal ".bug" ess-bugs-file-suffix) (ess-bugs-na-bug))
((equal ".jag" ess-bugs-file-suffix) (ess-jags-na-bug))
((equal ".bmd" ess-bugs-file-suffix)
(ess-save-and-set-local-variables)
(ess-bugs-na-bmd ess-bugs-command ess-bugs-chains))
((equal ".jmd" ess-bugs-file-suffix)
(ess-save-and-set-local-variables)
(ess-jags-na-jmd ess-jags-command ess-jags-chains)))
)
(defun ess-bugs-sci-to-round-4-dp ()
"ESS[BUGS]: round output from +/-0.000E+/-0 to 4 decimal places."
(interactive)
(setq buffer-read-only nil)
(save-excursion (goto-char 0)
(save-match-data (let ((ess-bugs-replacement-string nil)
(ess-bugs-replacement-9 0)
(ess-bugs-replacement-diff 0))
(while (search-forward-regexp "-?[0-9][.][0-9][0-9][0-9]E[+-][0-9]" nil t)
(setq ess-bugs-replacement-string
(int-to-string (string-to-number (match-string 0))))
(setq ess-bugs-replacement-diff (- (match-end 0) (match-beginning 0)))
(save-match-data
(setq ess-bugs-replacement-9
(string-match "99999999999$" ess-bugs-replacement-string))
(if (not ess-bugs-replacement-9)
(setq ess-bugs-replacement-9
(string-match "000000000001$" ess-bugs-replacement-string))))
(if ess-bugs-replacement-9
(setq ess-bugs-replacement-string
(substring ess-bugs-replacement-string 0 ess-bugs-replacement-9)))
(setq ess-bugs-replacement-diff
(- ess-bugs-replacement-diff (string-width ess-bugs-replacement-string)))
(while (> ess-bugs-replacement-diff 0)
(setq ess-bugs-replacement-string (concat ess-bugs-replacement-string " "))
(setq ess-bugs-replacement-diff (- ess-bugs-replacement-diff 1)))
(replace-match ess-bugs-replacement-string))))))
;;; ESS[BUGS-Shell] for running BUGS interactively
(defgroup ess-bugs-shell nil
"ESS: BUGS-Shell."
:group 'ess-bugs
:prefix "ess-")
(defcustom ess-bugs-shell-buffer-name "BUGS"
"*ESS[BUGS-Shell]: The name of the BUGS-Shell buffer."
:group 'ess-bugs-shell
:type 'string)
(defcustom ess-bugs-shell-command "OpenBUGS"
"*ESS[BUGS-Shell]: The name of the command to run BUGS interactively.
Set to the name of the batch BUGS script that comes with ESS or
to the name of BUGS command. Make sure it is in your PATH or
add path to the command name."
:group 'ess-bugs-shell
:type 'string)
(defcustom ess-bugs-shell-default-output-file-root "bugs"
"*ESS[BUGS-Shell]: Default value for the root of output files."
:group 'ess-bugs-shell
:type 'string)
(defcustom ess-bugs-shell-mode-hook nil
"*ESS[BUGS-Shell]: List of functions to call upon entering mode."
:group 'ess-bugs-shell
:type 'hook)
(defun ess-bugs-shell ()
"Create a buffer with BUGS running as a subprocess."
(interactive)
(require 'shell)
(switch-to-buffer (concat "*" ess-bugs-shell-buffer-name "*"))
(make-comint ess-bugs-shell-buffer-name ess-bugs-shell-command nil
ess-bugs-default-bins ess-bugs-shell-default-output-file-root)
(comint-mode)
(setq shell-dirtrackp t
major-mode 'bugs-shell-mode
mode-name "ESS[BUGS-Shell]"
comint-prompt-regexp "^Bugs> *")
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults '(ess-bugs-font-lock-keywords nil t))
(run-hooks 'ess-bugs-shell-mode-hook)
)
(provide 'ess-bugs-l)
;;; ess-bugs-l.el ends here
|