From: Andreas Gerler Date: Tue, 22 Jan 2019 14:53:50 +0000 (+0100) Subject: Updated ess. X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=73a9a5db475d0b5bc5bd365982e4e259f3b0dd23;p=emacsconfig.git Updated ess. Signed-off-by: Andreas Gerler --- diff --git a/elpa/ess-20181109.703/.dir-locals.el b/elpa/ess-20181109.703/.dir-locals.el deleted file mode 100644 index af831399..00000000 --- a/elpa/ess-20181109.703/.dir-locals.el +++ /dev/null @@ -1,10 +0,0 @@ -;;; Directory Local Variables -;;; For more information see (info "(emacs) Directory Variables") - -((nil - (bug-reference-bug-regexp . "#\\(?2:[0-9]+\\)") - (bug-reference-url-format . "https://github.com/emacs-ess/ess/issues/%s") - (sentence-end-double-space)) - (emacs-lisp-mode - (outline-regexp . "\f\\|\\`;\\|;;\\*\\|;;;\\*\\|(def[cvu]\\|(setq\\|;;;;\\*") - (indent-tabs-mode))) diff --git a/elpa/ess-20181109.703/allnews.info b/elpa/ess-20181109.703/allnews.info deleted file mode 100644 index e3674a7a..00000000 --- a/elpa/ess-20181109.703/allnews.info +++ /dev/null @@ -1,1806 +0,0 @@ -This is allnews.info, produced by makeinfo version 6.5 from -allnews.texi. - -Bug Fixes in 18.10.2: - * ESS[R] Fix namespace evaluation in non-installed packages. - Evaluation is directed into GlobalEnv as originally intended. - * 'Makefile' fixes, notably for 'make install' and including full - docs in the tarballs. - - Bug Fixes in 18.10-1: - * New functions 'ess-eval-line-visibly-and-step' ('C-c C-n' and - 'ess-eval-region-or-line-visibly-and-step' ('C-RET') which behave - as the old versions of 'ess-eval-line-and-step' and - 'ess-eval-region-or-line-and-step'. - - Changes and New Features in 18.10: - - * This is the last release to support Emacs older than 25.1. Going - forward, only GNU Emacs 25.1 and newer will be supported. Soon - after this release, support for older Emacs versions will be - dropped from the git master branch. Note that MELPA uses the git - master branch to produce ESS snapshots, so if you are using Emacs < - 25.1 from MELPA and are unable to upgrade, you should switch to - MELPA-stable. - - * ESS now displays the language dialect in the mode-line. So, for - example, R buffers will now show ESS[R] rather than ESS[S]. - - * The ESS manual has been updated and revised. - - * The ESS initialization process has been further streamlined. If - you update the autoloads (which installation from 'package-install' - does), you should not need to '(require 'ess-site)' at all, as - autoloads should automatically load ESS when it is needed (e.g. - the first time an R buffer is opened). In order to defer loading - your ESS config, you may want to do something like - '(with-require-after-load "ess" )' in your Emacs - init file. Users of the popular 'use-package' Emacs package can - now do '(use-package ess :defer t)' to take advantage of this - behavior. *Note (ess)Activating and Loading ESS:: for more - information on this feature. - - * ESS now respects Emacs conventions for keybindings. This means - that The 'C-c [letter]' bindings have been removed. This affects - 'C-c h', which was bound to 'ess-eval-line-and-step-invisibly' in - 'sas-mode-local-map'; 'C-c f', which was bound to - 'ess-insert-function-outline' in 'ess-add-MM-keys'; and 'C-c h', - which was bound to 'ess-handy-commands' in 'Rd-mode-map', - 'ess-noweb-minor-mode-map', and 'ess-help-mode-map' - - * Functions 'ess-eval-line-and-step' and - 'ess-eval-region-or-line-and-step' now behave consistently with - other evaluation function inside a package. - - * ESS[R]: 'ess-r-package-use-dir' now works with any mode. This sets - the working directory to the root of the current package including - for example C or C++ files within '/src'). - - * ESS[R]: Long + + prompts in the inferior no longer offset output. - - * ESS[R]: New option 'strip' for 'inferior-ess-replace-long+'. This - strips the entire + + sequence. - - * ESS modes now inherit from 'prog-mode'. In the next release, ESS - modes will use 'define-derived-mode' so that each mode will have - (for example) its own hooks and keymaps. - - * ESS[R]: Supports flymake in R buffers for Emacs 26 and newer. - Users need to install the 'lintr' package to use it. Customizable - options include 'ess-use-flymake', 'ess-r-flymake-linters', and - 'ess-r-flymake-lintr-cache'. - - * ESS[R]: Gained support for xref in Emacs 25+. *Note (emacs)Xref:: - - * ESS[R]: The startup screen is cleaner. It also displays the - startup directory with an explicit 'setwd()'. - - * ESS[R]: Changing the working directory is now always reflected in - the process buffer. - - * ESS[R]: 'Makevars' files open with 'makefile-mode'. - - * New variable 'ess-write-to-dribble'. This allows users to disable - the dribble ('*ESS*') buffer if they wish. - - * All of the '*-program-name' variables have been renamed to - '*-program'. Users who previously customized e.g. - 'inferior-ess-R-program-name' will need to update their - customization to 'inferior-ess-R-program'. These variables are - treated as risky variables. - - * 'ess-smart-S-assign' was renamed to 'ess-insert-assign'. It - provides similar functionality but for any keybinding, not just - '_'. For instance if you bind it to ';', repeated invokations - cycle through between assignment and inserting ';'. - - * 'C-c C-=' is now bound to 'ess-cycle-assign' by default. See the - documentation for details. New user customization option - 'ess-assign-list' controls which assignment operators are cycled. - - * ESS[R] In remote sessions, the ESSR package is now fetched from - GitHub. - - * Commands that send the region to the inferior process now deal with - rectangular regions. See the documentation of 'ess-eval-region' - for details. This only works on Emacs 25.1 and newer. - - * ESS[R]: Improvements to interacting with iESS in non-R files. - Interaction with inferior process in non-R files within packages - (for instance C or C++ files) has been improved. This is a work in - progress. - - * ESS[R]: Changing the working directory is now always reflected in - the process buffer. - - * ESS[JAGS]: *.jog and *.jmd files no longer automatically open in - JAGS mode. - - Many improvements to fontification: - - * Improved customization for faces. ESS now provides custom faces - for (nearly) all faces used and places face customization options - into their own group. Users can customize these options using 'M-x - customize-group RET ess-faces'. - - * Many new keywords were added to 'ess-R-keywords' and - 'ess-R-modifiers'. See the documentation for details. - - * ESS[R]: 'in' is now only fontified when inside a 'for' construct. - This avoids spurious fontification, especially in the output buffer - where 'in' is a commond English word. - - * ESS: Font-lock keywords are now generated lazily. That means you - can now add or remove keywords from variables like 'ess-R-keywords' - in your Emacs configuration file after loading ESS (i.e. in the - ':config' section for 'use-package' users). - - * ESS[R]: Fontification of roxygen '@param' keywords now supports - comma-separated parameters. - - * ESS[R]: Certain keywords are only fontified if followed by a - parenthesis. Function-like keywords such as 'if ()' or 'stop()' - are no longer fontified as keyword if not followed by an opening - parenthesis. The same holds for search path modifiers like - 'library()' or 'require()'. - - * ESS[R]: Fixed fontification toggling. Especially certain syntactic - elements such as '%op%' operators and backquoted function - definitions. - - * ESS[R]: 'ess-font-lock-toggle-keyword' can be called interactively. - This command asks with completion for a font-lock group to toggle. - This functionality is equivalent to the font-lock menu. - - Notable bug fixes: - - * 'prettify-symbols-mode' no longer breaks indentation. This is - accomplished by having the pretty symbols occupy the same number of - characters as their non-pretty cousins. You may customize the new - variable 'ess-r-prettify-symbols' to control this behavior. - - * ESS: Inferior process buffers are now always displayed on startup. - Additionally, they don't hang Emacs on failures. - - Obsolete libraries, functions, and variables: - - * The 'ess-r-args.el' library has been obsoleted and will be removed - in the next release. Use 'eldoc-mode' instead, which is on by - default. - - * Functions and options dealing with the smart assign key are - obsolete. The following functions have been made obsolete and will - be removed in the next release of ESS: 'ess-smart-S-assign', - 'ess-toggle-S-assign', 'ess-toggle-S-assign-key', - 'ess-disable-smart-S-assign'. - - The variable 'ess-smart-S-assign-key' is now deprecated and will be - removed in the next release. If you would like to continue using - '_' for insterting assign in future releases, please bind - 'ess-insert-assign' in 'ess-mode-map' the normal way. - - * ESS[S]: Variable 'ess-s-versions-list' is obsolete and ignored. - Use 'ess-s-versions' instead. You may pass arguments by starting - the inferior process with the universal argument. - - Changes and New Features in 17.11: - - * The ESS initialisation process has been streamlined. You can now - load the R and Stata modes independently from the rest of ESS. Just - put '(require 'ess-r-mode)' or '(require 'ess-stata-mode)' in your - init file. This is for experienced Emacs users as this requires - setting up autoloads for '.R' files manually. We will keep - maintaining 'ess-site' for easy loading of all ESS features. - - * Reloading and quitting the process is now more robust. If no - process is attached, ESS now switches automatically to one - (prompting you for selection if there are several running). - Reloading and quitting will now work during a debug session or when - R is prompting for input (for instance after a crash). Finally, - the window configuration is saved and restored after reloading to - prevent the buffer of the new process from capturing the cursor. - - * ESS[R]: New command 'ess-r-package-use-dir'. It sets the working - directory of the current process to the current package directory. - - * ESS[R] Lookup for references in inferior buffers has been improved. - New variable 'ess-r-package-source-roots' contains package - sub-directories which are searched recursively during the file - lookup point. Directories in 'ess-tracebug-search-path' are now - also searched recursively. - - * ESS[R] Namespaced evaluation is now automatically enabled only in - the 'R/' directory. This way ESS will not attempt to update - function definitions from a package if you are working from e.g. a - test file. - - Changes and New Features in 16.10: - - * ESS[R]: Syntax highlighting is now more consistent. Backquoted - names are not fontified as strings (since they really are - identifiers). Furthermore they are now correctly recognised when - they are function definitions or function calls. - * ESS[R]: Backquoted names and '%op%' operators are recognised as - sexp. This is useful for code navigation, e.g. with 'C-M-f' and - 'C-M-b'. - * ESS[R]: Integration of outline mode with roxygen examples fields. - You can use outline mode's code folding commands to fold the - examples field. This is especially nice to use with well - documented packages with long examples set. Set - 'ess-roxy-fold-examples' to non-nil to automatically fold the - examples field when you open a buffer. - * ESS[R]: New experimental feature: syntax highlighting in roxygen - examples fields. This is turned off by default. Set - 'ess-roxy-fontify-examples' to non-nil to try it out. - * ESS[R]: New package development command 'ess-r-devtools-ask' bound - to 'C-c C-w C-a'. It asks with completion for any devtools command - that takes 'pkg' as argument. - * ESS[R]: New command 'C-c C-e C-r' to reload the inferior process. - Currently only implemented for R. The R method runs - 'inferior-ess-r-reload-hook' on reloading. - * ESS[R]: 'ess-r-package-mode' is now activated in non-file buffers - as well. - - Bug fixes in 16.10: - * ESS[R]: Fix broken (un)flagging for debugging inside packages - * ESS[R]: Fixes (and improvements) in Package development - * ESS[R]: Completion no longer produces '...=' inside 'list( )'. - * ESS[R]: Better debugging and tracing in packages. - * ESS[R]: Better detection of symbols at point. - * ESS[R]: No more spurious warnings on deletion of temporary files. - * ESS[julia]: help and completion work (better) - * ESS[julia]: available via 'ess-remote' - - Changes and New Features in 16.04: - - * ESS[R]: 'developer' functionality has been refactored. The new - user interface consists of a single command - 'ess-r-set-evaluation-env' bound by default to 'C-c C-t C-s'. Once - an evaluation environment has been set with, all subsequent ESS - evaluation will source the code into that environment. By default, - for file within R packages the evaluation environment is set to the - package environment. Set 'ess-r-package-auto-set-evaluation-env' - to 'nil' to disable this. - * ESS[R]: New 'ess-r-package-mode' This development mode provides - features to make package development easier. Currently, most of - the commands are based on the 'devtools' packages and are - accessible with 'C-c C-w' prefix. See the documentation of - 'ess-r-package-mode' function for all available commands. With - 'C-u' prefix each command asks for extra arguments to the - underlying devtools function. This mode is automatically enabled - in all files within R packages and is indicated with '[pkg:NAME]' - in the mode-line. - * ESS[R]: Help lookup has been improved. It is now possible to get - help for namespaced objects such as pkg::foobar. Furthermore, ESS - recognizes more reliably when you change 'options('html_type')'. - * ESS[R]: New specialized breakpoints for debugging magrittr pipes - * ESS: ESS now implements a simple message passing interface to - communicate between ESS and inferior process. - - Bug fixes in 16.04: - * ESS[R]: Roxygen blocks with backtics are now correctly filled - * ESS[R]: Don't skip breakpoints in magrittr's 'debug_pipe' - * ESS[R]: Error highlighting now understands 'testthat' type errors - * ESS[Julia]: Added getwd and setwd generic commands - - Changes and New Features in 15.09: - - * ESS[R]: The indentation logic has been refactored. It should be - faster, more consistent and more flexible. There are three types - of indentation settings, those starting with 'ess-offset-' give the - actual offsets, those starting with 'ess-indent-' are control - (commonly Boolean) variables, and those starting with 'ess-align-' - are vertical alignment overrides which inhibit default offsets in - specific situations. See 'ess-style-alist' for detailed - description of the new indentation system and provided default - indentation styles. - - * ESS[R]: Deprecation of old indentation settings. As a consequence - of the indentation re-factoring 'ess-brace-imaginary-offset', - 'ess-expression-offset' and all delimiter-specific offsets are - deprecated. The settings for indentation of continued statements - have been replaced by 'ess-offset-continuations'. It can be set to - either 'cascade' or 'straight' (the default). - 'ess-arg-function-offset' has been replaced by - 'ess-indent-from-lhs' and has been generalised to assignments. - This setting now works with both statement blocks and expressions - and only takes effect for offsets set to 'prev-call' and - 'open-delim' in order to produce a consistent indentation. - - * ESS: A test framework has been set up. - - * ESS[R]: A new RStudio style is provided to mimic as closely as - possible R files indented via RStudio. To reproduce the setup of - some of the RStudio users, the RStudio- style with - 'ess-offset-arguments' set to 'prev-line' is also provided. In - addition, the new RRR+ style is equivalent to RRR except it indents - blocks in function calls relatively to the opening delimiter. This - style does not try to save horizontal space and produces more - indentation. - - * ESS[R]: Roxygen fields will now be indented on paragraph refilling - in order to make the documentation more readable. You can also - refill commented lines in the 'examples' field without squashing - the surrounding code in the comments. - - * ESS[R]: ESS can now format your code! This is controlled through - the settings 'ess-fill-calls' and 'ess-fill-continuations'. When - activated, '(fill-paragraph)' formats your calls and your - formulas/continuations while making sure they don't go past - 'fill-column'. Repeated refills cycle through different styles - (see the docstrings for more details). By default, the refilled - region blinks. Set 'ess-blink-filling' to nil to prevent this. - - * ESS[R]: Fix occasional missing error location fontification in - inferior buffers. - - * ESS[R]: ess-developer now correctly assigned the environment of new - functions to the package namespace. - - * ESS[Julia]: ?[topic] now works in the *julia* buffer. Note that - support for editing Julia code now depends on 'julia-mode.el' from - the Julia project. If you install ESS from the official - tarball/zip file, 'julia-mode.el' is already included. Otherwise, - if you install ESS by running 'make', then the latest version of - 'julia-mode.el' is downloaded (and so you need an active internet - connection to install) during the installation process. - Alternatively, if you run ESS without running 'make', then ensure - that you have the 'julia-mode.el', which you can get easily from - MELPA for example. - - * iESS: For naming inferior processes, ESS can use 'projectile''s - project root and it does so when - 'ess-gen-proc-buffer-name-function' is set to - 'ess-gen-proc-buffer-name:projectile-or-simple' as by default, or - to another value beginning with - 'ess-gen-proc-buffer-name:projectile-*'. - - Changes and New Features in 15.03-1: - * ESS[R]: An indentation bug has been fixed (github issue 163) - * ESS[R]: On windows, if 'ess-prefer-higher-bit' is non-nil (the - default), then R-newest will try to run a 64 bit (rather than 32 - bit) version of R. - - Changes and New Features in 15.03: - * ESS[R]: Full native support for 'company-mode'. - * ESS[R]: More efficient caching algorithm for R completion. - * ESS: New offset variable 'ess-close-paren-offset' to control the - indentation of the closing parentheses. - * ESS[R]: Ask for CRAN mirror only once per emacs session. - * ESS[R]: Detect 'library' and 'require' calls for better completion - caching. - * Buffer display is now customizable ('ess-show-buffer-action'). - * Use 'y-or-n-p' instead of 'yes-or-no-p' throughout. - * More support for ODS in ess-sas-graph-view. - * Makefiles are now both UNIX and GNU friendly. - * ESS[R]: Simplify directory lookup in 'ess-developer' (#137). - * Make closed paren indentation consistent - - Bug Fixes in 15.03: - * Fix open brace indentation bug (#27 in ess/R-ESS-bugs.R). - * Fix git version lookup - * Don't check directory modtime in R dialect. - * Declare all ess macros for edebug. - * Add 'ess-smart-comma' to eldoc message functions. - * Inform users when retrieving RDA aliases. - * Line ending in '~' is also a continuation line. - * Filing roxy paragraphs works as expected now. - * In 'ess-developer-add-package', remove incorrect 'wait' argument - from 'ess-get-words-from-vector' call. - * Fix #96, #117, #120, #125, #134, #137. - * Fix ess-quit-r. Call base::q() even if it is masked. - * Fix 'ess-show-buffer' to always display the buffer in another - window. - * Makefile: Fix cd bug for directories with spaces in them - * 'ess-kill-buffer-and-go' modified to not restart R - - Changes / Selected Bug Fixes in 14.09: - * ESS[Julia]: Executable is changed to 'julia'. - * ESS[Julia]: Completion and help system was adjusted to Julia - v.0.3.0. Julia v.0.2.x is no more supported. - * ESS[R]: Running R with 'gdb' debugger now works as expected - * iESS: Inferior ESS buffers are now derived from 'comint-mode' - * ESS[R]: 'ess-execute-screen-options' uses correct screen width in - terminal sessions - * ESS: 'ess-build-tags-for-directory' works when no TAGS file name - was provided - * ESS: 'ess-offset-statement-continued' is now respected everywhere - except inside of the 'if' test condition. - * ESS: New variable 'ess-offset-statement-first-continued' for - indentation of the first line in multiline statements. - * ESSR: Starting ',' in multiline statements indentation is now - ignored to achieve a more pleasant alignment. - * ESSR: Improved behavior of 'RET' in roxygen blocks. - * ESS[R]: command cleaning with 'C-u C-u C-y' was broken with lines - containing " + " - * ESS[R]: fixed "empty watch window bug" - * ESS[R]: don't ask for help location on ac-quick-help (request of - github #81) - * ESS[R]: "importClassesFrom" and "importMethodsFrom" were added to - the list of two-parameter roxygen commands - * ESS[R]: fix vignetes display and hyperlinks (were broken in - 13.09-1) - * ESS[Julia]: recognize function names ending with ! - * ESS[Julia]: fix indentation of "for" comprehension syntax within - brackets. - - Changes / Selected Bug Fixes in 13.09-1: - * ess-remote and TRAMP: R support code is now downloaded in binary - form instead of being injected from local machine. The R code is - stored in '~/.config/ESSR/' directory on the remote machine - * TRAMP: PAGER environment variable is now correctly set to - 'inferior-ess-pager' - * retrieval of help topics on remote machines is fixed - * org-babel: source references of R code executed from org files - correctly point to source references in original org files (version - 8.2.1 or higher of org-mode is required for this feature) - * 'ess-execute' is now bound to 'C-c C-e C-e' in 'ess-extra-map'. - * completion works again in 'ess-execute' - * ESS[R]: 'head' and 'tail' methods were replaced by 'htsummary' in - 'ess-R-describe-object-at-point-commands' - * ESS[roxygen]: evaluation commands now work in roxygen blocks. - Leading comments are automatically removed before the evaluation - * ESS[transcript]: 'Clean Region' now works with multiline - statements; 'ess-transcript-clean-region' etc. correctly treat - multiline statements, i.e., no longer forgets the lines typically - preceded by '+' - * ESS[SAS]: Three features/fixes with special thanks to Matthew - Fidler https://github.com/emacs-ess/ESS/pulls/mlf176f2 - (https://github.com/emacs-ess/ESS/pulls/mlf176f2). Turn on SAS log - mode when appropriate. Indent comments and CARDS statement more - appropriately. - * ESS[SAS]: 'ess-sas-edit-keys-toggle' default returns to 'nil' - * ESS[R]: support for 'prettify-symbols-mode': contribution from - Rudiger Sonderfeld - * ESS[SWV]: knitr now evaluates in the current frame - * ESS[developer]: ess-developer doesn't kill open DESCRIPTION files - anymore - * ESS[roxygen]: 'ess-roxy-preview-HTML' is now on 'C-c C-o C-w' and - 'ess-roxy-preview-text' is now on 'C-c C-o C-t' - * ESS: installation with 'make install' was simplified and should - work out of the box on most *nix systems - * ESS installation instructions simplified - * fixed font-lock bug introduced in 13.09 that was causing very slow - process output - - Changes/New Features in 13.09: - * font-lock in process buffers doesn't "spill" over prompts. Missing - closing string delimiters should not cause wrong fontification of - the following command input. - * ESS[julia]: full features M-TAB completion and auto-complete - support, which now works for modules, structures and data types. - * ESS[julia]: a much better eldoc showing arguments of methods and - data type constructors - * ESS-developer: - - ESS-developer work-flow pattern has been streamlined: - ESS-developer is now automatically activated on per-file basis - if the file is part of a developed package - 'ess-developer-packages'. The old behavior (activation on - per-process basis) is still available on 'M-x ess-developer' - in a process buffer. - - integration with 'devtools' package. New command - 'ess-developer-load-package' calls 'load_all' on the package - containing current file. 'ess-developer-add-package' now - offers IDO menu completions with available loading methods, - currently 'library', and 'load_all'. Loading command can be - customized with 'ess-developer-load-on-add-commands'. - * 'TAB' now indents region if region is active (a contribution of - Matthew Fidler in pull #41) - * 'M-x ess-version' now reports full loading path and recognizes git - and ELPA versions. - * warning and error keyword are now highlighted with - 'font-lock-warning-face' as they should be, (for quite some time - these keywords have been hijacked by compilation mode - fontification). - * eldoc: Eldoc now recognizes multiple processes. If current process - is busy, or current buffer is not associated with a process, eldoc - picks its completions from the first available free process. - * org-babel: evaluation is now org-friendly - * help: new help buffers now try to reuse ess-help buffers. This - behavior is controlled by 'ess-help-reuse-window' custom variable. - * help: ?foo pops IDO menu on multiple help files (so far it worked - only for 'C-c C-v') - * remote evaluation is considerably faster now on slow connections - * ESS[R] tracebug R source references regular expressions are - (mostly) language agnostic. - * 'ess-function-call-face' inherits from - 'font-lock-function-name-face' rather than - 'font-lock-builtin-face'. - * 'ess-inject-source' now accepts 'function-and-buffer' option. - * Documentation: The "New Features" section (and 'NEWS') now - represent recent changes: within the last year or so. All changes - can be found in the new news.html (news.html) (or 'NEWS' and - 'ONEWS'). - * ESS[R] 'ess-rep-regexp' should no longer inf.loop (rarely!), and - hence 'M-x ess-fix-miscellaneous' should neither. - - Changes/New Features in 13.05: - * ESS[gretl]: Support for 'gretl' (both editing and sub-process - interaction). A contribution of Ahmadou Dicko. - * ESS: process output display is 4-10 times faster due to new caching - and only occasional emacs re-display (for the moment this - functionality is available only when 'ess-tracebug' is active). - * ESS: 'C-c `' is now bound to 'ess-show-traceback' and 'C-c ~' is - bound to 'ess-show-call-stack'. - * ESS[R]: ESS stores function in 'ESSR' environment to avoid kludging - users' global environment and accidental deletion. - * ESS[R]: new variable 'ess-swv-processing-command' to control - weaving and tangling. - * ESS[R]: 'ess-default-style' has been changed (from 'DEFAULT') to - 'RRR'. Use something like '(setq ess-default-style 'DEFAULT)' or - '(setq ess-indent-level 2)' in your '~/.emacs' equivalent _before_ - loading ESS, if you do not like this new "incompatible" default - style. - * ESS[julia]: ESS stores its functions in 'ESS' module. - * ESS[julia]: Eldoc is now supported in julia modes - * ESS[julia]: Adjusted error reference detection and interactive help - to julia internal changes - * ESS[R]: 'ess-use-tracebug''s default has been changed to 't'. Set - it to nil if you want to keep the previous behavior. - * ESS[tracebug]: Electric debug keys have been removed [breaking - change] The functionality was replaced with 'ess-debug-minor-mode' - and 'ess-debug-minor-mode-map'. - * ESS[tracebug]: 'ess-tracebug-map' is an alias to 'ess-dev-map' 'C-c - C-t'. - * ESS[tracebug]: 'ess-bp-toggle-state' ('C-c C-t o') can now be used - during the debug session to toggle breakpoints on the fly - (suggestion by Ross Boylan). - * ESS[tracebug]: 'ess-debug-flag-for-debugging' and - 'ess-debug-unflag-for-debugging' work correctly from the debugging - contexts. These commands also recognize non-exported functions for - the packages listed in 'ess-developer-packages' ('C-c C-t C-a'). - - * ESS[R]: Eldoc (activated by 'ess-use-eldoc') has become more - sophisticated, and hence also more intruding in the interface - between the Statistics softare, e.g., R, and the user. - - Note that you can turn off ElDoc, by placing '(setq ess-use-eldoc - nil)' in your '~/.emacs' file, prior to loading ESS, - - * ESS[SAS]: long over-looked 'SAS-mode-hook' appears! - * ESS[SAS]: 'ess-sas-edit-keys-toggle' now defaults to 't' since - 'sas-indent-line' is still broken, i.e. 'TAB' is now bound to - 'ess-sas-tab-to-tab-stop' by default - - Changes/Bug Fixes in 12.09-2: - * ESS: new 'ess-switch-to-end-of-proc-buffer' variable that controls - whether 'C-c C-z' switches to the end of process buffer. The - default is 't'. You can use prefix argument to 'C-c C-z' to toggle - this variable. - * ESS: fix in 'ess-eval-linewise' that was causing emacs to hang - during R debugging with 'ess-eval-visibly' equal to 't'. - * ESS: fix in 'ess-eval-linewise' that was causing emacs to recenter - the prompt in visible window - * ESS[tracebug]: A better handling of "Selection" prompts and debug - related singlekey commands. - * ESS: fix a bug in 'ess-switch-process' that was causing '*new*' - selection to fail. - * ESS[R]: Solve missing 'ess-local-process-name' bug in R-dired. - * ESS[SWV]: 'ess-swv-PDF' doesn't ask for a command to run if there - is only one command in 'ess-swv-pdflatex-commands'. - * ESS[SWV]: 'ess-swv-weave' gained an universal argument to allow for - an interactive choice between available weavers (sweave, knitr). - * ESS: 'ess-eval-*-and-step' functions go to next empty line at eob, - instead of staying at the last line. - - Changes/New Features in 12.09-1: - * ESS _Breaking Changes in Keys_: - - - New keymaps: 'ess-doc-map' bound to 'C-c C-d'; 'ess-extra-map' - bound to 'C-c C-e'; 'ess-dump-object-into-edit-buffer' was - moved on 'C-c C-e C-d' - - roxygen map was moved on 'C-c C-o' and 'ess-roxy-update-entry' - now resides on 'C-c C-o C-o' - - ess-handy-commands is not bound anymore - - 'ess-dev-map' (including 'ess-tracebug' and 'ess-developer') - moved on 'C-c C-t' - - 'C-c C-y' is deprecated in favor of 'C-c C-z C-z' - * ESS[R] new command 'ess-describe-object-at-point' bound to 'C-c C-d - C-e' (repeat 'C-e' or 'e' to cycle). It was inspired by Erik - Iverson's 'ess-R-object-tooltip'. Customize - 'ess-describe-at-point-method' to use tooltip instead of an - electric buffer. - * ESS: New command 'ess-build-tags-for-directory' bound to 'C-c C-e - C-t' for building dialect specific tag tables. After building tags - use 'M-.' to navigate to function and objects definitions. By - default 'C-c C-e C-t' builds tags based on imenu regular - expressions and also include other common languages '.c, .o, .cpp' - etc. But it relies on external 'find' and 'etags' commands. If - 'ess-build-tags-command' is defined (for 'R'), the inferior process - is asked to build tags instead. - * ESS: 'ess-switch-process' offers '*new*' alternative to start a new - process instead of switching to one of the currently running - processes. - * ESS: Switching between processes ('C-c C-s') uses buffer names - instead of the internal process names. Use 'M-x rename-buffer' - command to conveniently rename your process buffers. - * ESS: Process buffers can be automatically named on process creation - according to user specified scheme. Default schemes are *proc*, - *proc:dir* and *proc:abbr-long-dir* where 'proc' stands for the - internal process name and 'dir' stands for the directory where the - process was started in. The default is *proc*. For customization - see 'ess-gen-proc-buffer-name-function'. - * ESS: 'ess-eval-visibly-p' is deprecated in favor of - 'ess-eval-visibly'. - * ESS: New evaluation pattern 'nowait'. In addition to old 'nil' and - 't' values, 'ess-eval-visibly' accepts 'nowait' for a visible - evaluation with no waiting for the process. See 'ess-eval-visibly' - for details on evaluation patterns. - * ESS: New "Process" menu entry with process related commands and - configuration - * iESS: Process buffer is now automatically shown on errors - * ESS: New 'ess-switch-to-inferior-or-script-buffer' command bound to - 'C-c C-z' in both script and process buffers. If invoked form - process buffer it switches to the most recent buffer of the same - dialect. It is a single key command. - * ESSR-help: On multiple help pages with the same name, 'C-c C-v' now - asks for user resolution directly in emacs. - * ESS[R] ess-roxy: new variable 'ess-roxy-re' for fontification of - cases where the number of leading '#' differs from 'ess-roxy-str'. - * ESS[R] Eldoc was considerably enhanced. It now finds hidden - default S3 methods and displays non-default methods' arguments - after trailing ||. - * ESS[R]: New 'ess-display-demos' command bound to 'C-c C-d o' and - 'C-c C-d C-o' - * ESS: New 'ess-help-web-search' command bound to 'C-c C-d w' and - 'C-c C-d C-w' to facilitate interactive search of web resources. - Implemented for 'R', 'Stata' and 'Julia'. See also - 'ess-help-web-search-command'. - * ESS: ess-pdf-viewer-pref accepts now command line arguments - * ESS[Rnw]: Add knitr support. Customize 'ess-swv-processor' for the - default processor. - * ESS[Rnw]: More thorough renaming of remaining 'noweb-*' to - 'ess-noweb-*'. - * ESS[Rnw] new commands 'ess-eval-chunk-and-step' and - 'ess-eval-chunk' bound to 'M-n C-c' and 'M-n C-M-x' to mirror - standard ess commands in C-c map. - * ESS[R] Auto-completion: new variable 'ess-ac-R-argument-suffix' to - customize the insertion of trailing "=". Defaults to " = ". - * ESS[Julia]: Added index, apropos and web-search to julia. - * ESS help: More evaluation commands were added to ess-help mode - ('C-c C-c', 'C-M-x' etc) - - Bug Fixes in 12.09-1: - * iESShelp: Multiple help pages with the same name are properly - handled on 'C-c C-v' - * iESSremote: Evaluation with ESS remote no longer freezes emacs. - * iESS: 'comint-previous-prompt' 'C-c C-p' no longer stops on - secondary prompt "+". - * iESS[R], iESS(Sqpe) [S] on Windows: The 'options("editor")' is now - initialized to 'emacsclient' instead of the previous 'gnuclient'. - The user may need to add the line '(server-start)' to the emacs - initialization file. 'emacsclient' has been included with emacs - since GNU Emacs 22.1. - * ESS[Rnw] Fixed "connection to R" bug (in 12.09 only). - * ESS[Rnw] Explicit 'ess-swv-stangle' and 'ess-swv-sweave' functions. - * ESS[Rnw] Fixed completion and smart underscore problems cause by - unmatched "\"' - * ESS[R] is more careful with the 'R' code injection. It now happens - only once at the start of the session. - * ESS[R]: Fixed auto-scrolling the comint buffer on evaluation. - * ESS[Julia]: Solve several indentation and word navigation problems. - * ESS[Julia]: Help system works again. - - Changes/New Features in 12.09: - - * Due to XEmacs lacking some features that ESS requires, ESS support - of XEmacs ends with ESS 12.04-4. This decision will be re-visited - in the future as XEmacs continues to sync with GNU Emacs. - - * ESS[R]: On Windows, there is now a new customizable variable - (currently called 'ess-directory-containing-R') to tell ESS where - to look for the 'Rterm.exe' executables. The name of the variable - and the values it can take are both in beta and subject to change. - Prior to this variable, ESS searched only in the default - installation directory. Setting this variable now tells ESS how to - find 'Rterm.exe' executables when they are installed somewhere - else. - - * ESS[julia]: _new_ mode for editing julia code ('*.jl'). Start with - 'M-x julia'. - - Full interaction interface, imenu and basic error referencing are - available. - - * ESS[R] noweb: 'noweb-mode' and 'noweb-font-lock-mode' have been - renamed to 'ess-noweb-mode' and 'ess-noweb-font-lock-mode' to avoid - conflicts with the "real" 'noweb-mode'. - - * ESS[R] noweb: The long standing font-lock bug has been solved in - 'ess-noweb' interface. - - * ESS: Basic evaluation keys are now bound to 'ess-eval-region-*-' - functions: - - - 'C-M-x' is bound to 'ess-eval-region-or-function-or-paragraph' - - 'C-c C-c' is bound to - 'ess-eval-region-or-function-or-paragraph-and-step' - - 'C-RET' is bound to 'ess-eval-region-or-line-and-step' - - Each of these functions first evaluates the region whenever the - region is active. - - * ESS: 'C-M-a'/'C-M-e' now step to beginning/end of paragraph if no - function has been detected. - - * ESS: 'ess-eval-*-and-step' family of functions are now smarter, and - don't step to end of buffer or end of chunk code ('@') when at the - end of the code. - - * ESS: 'ess-handy-commands' function is bound to 'C-c h' - - * ESS: ESS is now _blinking_ the evaluated region. Set - 'ess-blink-region' to nil to deactivate; 'ess-blink-delay' gives - the duration of the blink. Evaluated region is "blinked" in - 'highlight' face. - - * ESS[R-help] New key 'a' for "apropos()" in help buffers. Also - available through 'C-c h'. - - * ESS[R-help] All R commands of type foo?bar and foo??bar are - recognized and redirected into appropriate *ESS-help* buffers. - - * ESS[R]: New customization interface for _font-lock_. - - ESS font-lock operates with predefined keywords. Default keywords - are listed in 'ess-R-font-lock-keywords' and - 'inferior-R-font-lock-keywords', which see. The user can easily - customize those by adding new keywords. These variables can also - be interactively accessed and saved through 'ESS/Font-lock' - submenu. - - Several new fontification keywords have been added. Most notably - the keywords for highlighting of function calls, numbers and - operators. - - * ESS[R]: auto-complete is now activated by default whenever - auto-complete package is detected. Set 'ess-use-auto-complete' to - nil to deactivate. - * ESS[R]: R AC sources are no longer auto-starting at 0 characters - but at the default 'ac-auto-start' characters. - * ESS no longer redefines default ac-sources, but only appends - 'ac-source-filename' to it. - * ESS: 'ac-source-R' now concatenates " = " to function arguments. - - * ESS: Menus for ESS and iESS have been reorganized and enriched with - _Tracebug_ and _Developer_ submenus. - - * ESS[R]: 'ess-developer' and 'ess-tracebug' commands are available - by default in 'ess-dev-map' which is bound to 'C-c d' in ESS and - iESS maps. - - * ESS[R]: 'eldoc' truncates long lines whenever - 'eldoc-echo-area-use-multiline-p' is non-nil (the default). Set - this variable to t if you insist on multiline eldoc. See also - 'ess-eldoc-abbreviation-style'. - - * ESS[R]: completion code pre-caches arguments of heavy generics such - as 'plot' and 'print' to eliminated the undesirable delay on first - request. - - * iESS: Prompts in inferior buffers are now highlighted uniformly - with 'comint-highlight-prompt' face. - - * ESS[R]: R process no longer wait for the completion of input in - inferior buffer. Thus, long running commands like 'Sys.sleep(5)' - no longer stall emacs. - - * ESS: [R, S, Stata, Julia] have specialized 'ess-X-post-run-hook's, - which are run at the end of subprocess initialization. - - * ESS[Stata]: All interactive evaluation commands work as expected. - On-line comments are removed before the evaluation and multiline - comments are skipped on 'C-c C-c' and other interactive commands. - - * ESS no longer auto-connects to a subprocess with a different - dialect than the current buffer's one. - - * ESS: 'ess-arg-function-offset-new-line' is now a list for all the - ESS indentation styles, which results in the following indentation - after an open "(": - - a <- some.function(other.function( - arg1, - arg2) - - * ESS[SAS]: Improved MS RTF support for GNU Emacs; try - 'ess-sas-rtf-portrait' and 'ess-sas-rtf-landscape'. - - Changes/Bug Fixes in 12.04-3: - * ESS: basic support for package.el compatibility - * ESS[R]: correct indentation of & and | continuation lines - * 'M-x ess-version' shows the svn revision even after 'make install' - * ESS[SAS]: improved XEmacs support - * iESS[R]: better finding of previous prompt - * ESS[Stata]: adjusted prompt for mata mode - * ESS[R]: resolved name clashes with cl.el - * ESS[R]: removed dependence on obsolete package assoc - * New 'make' target 'lisp', to build the lisp-only part, i.e., not - building the docs. - - Changes/New Features in 12.04-1: - * iESS[Stata]: New interactive help invocation. - * iESS[Stata]: New custom variable 'inferior-STA-start-file'. - * iESS[Stata]: 'inferior-STA-program-name' is now "stata" and can be - customized. - * ESS[Stata] New sections in stata help files Syntax('s-S'), - Remarks('r'), Title('t'). - - Bug Fixes in 12.04-1: - * ESS[R]: Better 'ess-tracebug' error handling. - * ESS[R]: Corrected 'ess-eldoc' help string filtering and improved - argument caching. - * ESS[R]: Indentation of non-block if/else/for/while lines fixed. - * 'M-x ess-version' should work better. - * ESS: Filename completion now again works inside strings. - * iESS[Stata]: Fixed prompt detection issue. - * ESS[Rd]: R is autostarted also from here, when needed. - - Changes/New Features in 12.04: - * ESS: Reverting new behavior of 12.03, 'TAB' in 'ess-mode' no longer - completes by default. If you want smart 'TAB' completion in R and - S scripts, similarly to iESS behavior, set the variable - 'ess-tab-complete-in-script' to 't'. Also see - 'ess-first-tab-never-complete' for how to customize where first - 'TAB' is allowed to complete. - * ESS: completion is consistently bound to 'M-TAB' (aka 'M-C-i') in - both Emacs23 and Emacs24. - * ESS: The variable 'ess-arg-function-offset-new-line' introduced in - ESS(12.03) now accepts a list with the first element a number to - indicate that the offset should be computed from the indent of the - previous line. For example setting it to '(2) results in: - - a <- some.function( - arg1, - arg2) - - Changes/New Features in 12.03: - * ESS indentation: new offset variable - 'ess-arg-function-offset-new-line' controlling for the indentation - of lines immediately following open '('. This is useful to shift - backwards function arguments after a long function call expression: - - a <- some.function( - arg1, - arg2) - - instead of the old - - a <- some.function( - arg1, - arg2) - - If '(' is not followed by new line the behavior is unchanged: - - a <- some.function(arg1, - arg2) - - This variable should be set as part of indentation style lists, or - in ess-mode hook. - * ESS[R]: 'C-c .' sets (indentation) style. - * ESS: In ESS buffers 'yank'('C-y') command accepts double argument - 'C-u C-u' to paste commands only. It deletes any lines not - beginning with a prompt, and then removes the prompt from those - lines that remain. Useful to paste code from emails, - documentation, inferior ESS buffers or transcript files. - * Documentation: ESS user manual has been rearranged and completed - with several new chapters and sections to reflect newly added - features ("Completion", "Developing with ESS", "ESS tracebug", "ESS - developer", "ESS ElDoc", "IDO Completion" and "Evaluating Code") - * RefCard: Reference card was updated to include new features. - * Eldoc: Eldoc was rewritten and is activated by default. See - 'ess-use-eldoc', 'ess-eldoc-show-on-symbol', - 'ess-eldoc-abbreviation-style' variables for how to change the - default behavior. _Note:_ 'skeleton-pair-insert-maybe' prohibits - eldoc display, on '(' insertion. - * ESS[R]: Eldoc shows arguments of a generic function whenever found. - * ESS: 'TAB' in 'ess-mode' now indents and completes, if there is - nothing to indent. Set 'ess-first-tab-never-completes-p' to 't' to - make 'TAB' never complete on first invocation. Completion - mechanism is similar to the completion in the 'inferior-ess-mode' - - a filename expansion is tried, if not found ESS completes the - symbol by querying the process. - * ESS for emacs version 24 or higher: ESS is fully compatible with - the emacs 24 completion scheme, i.e. all the completion is done by - 'completion-at-point'. Also in accordance with emacs conventions, - ESS doesn't bind 'M-TAB' for emacs 24 or higher. 'M-TAB' calls the - default 'complete-symbol'. - - * ESS[R]: Out of the box integration with 'Auto Completion' mode - http://cx4a.org/software/auto-complete - (http://cx4a.org/software/auto-complete) . Three AC sources - 'ac-source-R-args', 'ac-source-R-objects' and 'ac-source-R' are - provided. The last one combines the previous two and makes them - play nicely together. Set 'ess-use-auto-complete' to 't' to start - using it. Refer to documentation string of 'ac-use-auto-complete' - for further information. - * ESS[R]: New unified and fast argument completion system, comprised - of 'ess-funname.start', 'ess-function-arguments', - 'ess-get-object-at-point'. Eldoc and auto-completion integration - are using this system. - * ESS: 'ess-switch-to-end-of-ESS'('C-c C-z'), and - 'ess-switch-to-ESS'('C-c C-y'): Automatically start the process - whenever needed. - * ESS[R]: 'roxy' knows about previewing text version of the - documentation. Bound to 'C-c C-e t'. - * ESS[R]: Solved the "nil filename" bug in roxygen support. - * ESS[R]: 'ess-tracebug' is now part of ESS: - - New Features: - - - Source injection: Tracebug now can inject source references on - the fly during code evaluation, i.e. you don't have to source - your file, but just evaluate your code in normal fashion. - Variable 'ess-tracebug-inject-source-p' controls this behavior - - if t, always inject source reference, if ''function', inject - only for functions (this is the default), if 'nil', never - inject. - - During the source injection the value of 'ess-eval-visibly' is - ignored. - - Org-mode support: Visual debugger is now aware of the - temporary org source editing buffer ('C-c '') and jumps - through this buffers if still alive, or in original org buffer - otherwise. - - New keys in watch mode: '?' and 'd' - - Two new hooks: ess-tracebug-enter-hook and - ess-tracebug-exit-hook - - * ESS[R]: New package 'ess-developer' to evaluate 'R' code directly - in the package environment and namespace. It can be toggled on and - off with 'C-c d t'. When 'ess-developer' is on all ESS evaluation - commands are redefined to evaluate code in appropriate - environments. Add package names to the list of your development - packages with 'C-d a', and remove with 'C-d r'. Source the current - file with 'C-d s'.Evaluation function which depend on - '`ess-eval-region'' ask for the package to source the code into, - 'ess-eval-function' and alternatives search for the function name - in the development packages' environment and namespace and insert - the definition accordingly. See the documentation section - "Developing with ESS/ESS developer" for more details. - - * ESS[R] help system: - - New Features: - - - 'q' quits window instead of calling - 'ess-switch-to-end-of-ESS'. This is consistent with emacs - behavior help and other special buffers (_breaking change_). - - 'k' kills window without asking for the name (pointed by Sam - Steingold) - - Help map inherits from 'special-mode-map' as sugested by Sam - Steingold. - - Package index: new function 'ess-display-index' bound to 'i' - in help mode map. - - Package vignettes: new function 'ess-display-vignettes' bound - to 'v' in help mode map. - - Display help in HTML browser: new function - 'ess-display-help-in-browser' bound to 'w' in help mode map. - It depends on 'R''s 'browser' option. - - New custom variable 'ess-help-pop-to-buffer': if non-nil ESS - help buffers are given focus on display. The default is 't' - (_breaking change_). - - New menu entries for the above functions. - - Bogus help buffers are no longer generated by default, i.e. - buffers of the form "No documentation for 'foo' in specified - packages and libraries: you could try '??foo' ". - 'ess-help-kill-bogus-buffers' now defaults to 't'. Beware, - there may be instances where the default is unsatisfactory - such as debugging and/or during R development. Thanks to Ross - Boylan for making the suggestion, Sam Steingold for reminding - us of this variable and Martin Maechler for the warning. - * ESS now uses 'IDO' completing read functionality for all the - interactive requests. It uses ido completion mechanism whenever - available, and falls back on classical completing-read otherwise. - You can set 'ess-use-ido' to nil if you don't want the IDO - completion. See the documentation string of 'ess-use-ido' for more - information about 'IDO' and ESS configuration. - - * ESS[S]: "','" is bound to ess-smart-comma: If comma is invoked at - the process marker of an ESS inferior buffer, request and execute a - command from '`ess-handy-commands'' list. If - 'ess-R-smart-operators' is t '`ess-smart-comma' also inserts " " - after comma. - * ESS[S], notably 'R': Variable '`ess-handy-commands'' stores an - alist of useful commands which are called by 'ess-smart-comma' in - the inferior buffer. - - Currently containing: - - change-directory - 'ess-change-directory' - help-index - 'ess-display-index' - help-object - 'ess-display-help-on-object' - vignettes - 'ess-display-vignettes' - objects[ls] - 'ess-execute-objects' - search - 'ess-execute-search' - set-width - 'ess-execute-screen-options' - install.packages - 'ess-install.packages' - library - 'ess-library' - setRepos - 'ess-setRepositories' - sos - 'ess-sos' - - Handy commands: 'ess-library', 'ess-install.packages', etc - ask - for item with completion and execute the correspond command. - 'ess-sos' is a interface to 'findFn' function in package 'sos'. If - package 'sos' is not found, ask user for interactive install. - - * ESS: New dynamic mode line indicator: Process status is - automatically reflected in all mode-lines of associated with the - process buffers. Particularly useful for displaying debug status - of 'ess-tracebug' and developer status of 'ess-developer' in all - associated buffers. - - * ESS: New 'ess-completing-read' mechanism: ESS uses 'ido' - completions whenever possible. Variable 'ess-use-ido' controls - whether to use ido completion or not. Active by default. - - * ESS now supports comint fields for output and input detection. - This feature is not used by default, but might be useful in the - future. - - * ESS[S]: New custom variable 'inferior-ess-S-prompt' to customize - prompt detection regular expression in the inferior ESS buffers. - You can customize this variable to enhance comint navigation - ('comint-previous-prompt' and 'comint-next-prompt') the inferior - buffers. - - * ESS[R]: Internal 'R' completion retrieval - ('ess-R-complete-object-name') was rewritten and is faster now. - - * ESS is using process plist to store process specific variables, as - opposed to buffer local variables as it was using before. The use - of buffer local variables to store process variables is - discouraged. - - * ESS: new functions to manipulate process plists: 'ess-process-get' - and 'ess-process-set'. - - * ESS: Internal process waiting mechanism was completely rewritten. - ESS no more relies on prompt regular expressions for the prompt - detection. The only requirement on the primary process prompt is - to end in '> '. This could be overwritten by setting - 'inferor-ess-primary-prompt'. - - * ESS[S], notably 'R': Saved command history: ESS-HISTORY-FILE now - accepts 't' (default), 'nil', or a file name. By setting it to - 'nil' no command line history is saved anymore. - ESS-HISTORY-DIRECTORY now allows to have the history all saved in - one "central" file. - * ESS[R]: more Roxygen improvements. - * ESS[R]: 'C-c .' to set (indentation) style. - - * ESS[R]: Functions with non-standard names (for example - 'aaa-bbb:cc') are properly handled by font-lock and evaluation - routines. - * ESS[R]:Several regexp bugs (described in etc/R-ESS-bugs.el) were - fixed in 'ess-get-words-from-vector' and 'ess-command'. - - Changes/New Features in 5.14: - * ESS[BUGS/JAGS]: Batch BUGS is back! For recent OpenBUGS versions, - 3.0.8+, a batch BUGS script is once again available, but for Linux - only. Therefore, since it seems that BUGS and JAGS must co-exist - (rather than a transition from BUGS to JAGS), .bug files are now in - ESS[BUGS] mode and .jag files are in ESS[JAGS] mode. ESS[BUGS] now - works like ESS[JAGS] rather than the original mode ESS[BUGS] mode - which was difficult to maintain. Although, ESS[BUGS] appears to - work, there still may be some features missing as well as bugs. - - * ESS[R]: New customizable variable 'ess-swv-plug-into-AUCTeX-p' - Commands to Sweave current file and LaTeX the result are now - available to AUCTeX users, if this variable is set to 't'. - - * ESS[S]: 'C-c C-c' ('ess-eval-function-or-paragraph-and-step') is - now skipping over comments as the other paragraph functions do. It - (and similar functions) should no longer wrongly find 'function()' - beginnings inside comments or strings. - - * ESS[SAS]: improved by better support for GNU Emacs - - Changes/New Features in 5.13: - * ESS[R]: On Windows, for R 2.12.0 and later, the Rterm executables - (in subdirectories i386 / x64) now are found as well as for earlier - R versions. - * ESS[S+]: on Windows, both 32- and 64-bit versions of S+ ("S-PLUS") - are found now and made available on the menu. - * ESS[R]: When prompting for a starting directory, the R version is - (always?) correct now. - * ESS[R]: on non-Windows platforms, the 'use-dialog-box' variable is - no longer temporarily changed (to 'nil' for R-x.y.z version - functions and to 't' for 'R' itself), but rather the user - customization is obeyed. - * ESS[R]: more Roxygen improvements. - * 'Rd-preview-help' now generates preview buffers with navigation - facilities the same as regular help buffers. - * ESS: New functions and keys C-c [up] / [down] for evaluating the - buffer "from beginning till here". - - Changes/New Features in 5.12: - * ESS[SAS] Font-locking: update of PROCs keywords (up to SAS 9.22); - error/warnings. - * ESS[R]: Roxygen improvements: S4 classes; also optionally keep - spaces when filling arguments - * ESS[Rd]: support new keywords: section-name \subsection plus a - dozen "new" keywords; should match R 2.12.x now. - * 'ess-display-help-on-object' ('C-c C-v') now _caches_ the list of - topics, thus speeding up the improvement feature introduced in 5.9. - - Changes/New Features in 5.11: - * Filename completion within buffers now adds only trailing - characters to complete the filename, rather than expanding to an - absolute file path. This filename completion is bound to the TAB - key. - - * 'M-n P' in Sweave buffers now prompts for the command to run - instead of using 'pdflatex' unconditionally, offering completion - from customizable collection 'ess-swv-pdflatex-commands', the first - of which is taken as default and that defaults to 'texi2pdf'. - * 'M-RET' is now also bound in S language (R and S+) buffers to - 'ess-use-this-dir'. It sends 'setwd(..)' to the S process to set - the working directory to the one of the source file. - - Changes/New Features in 5.10: - * 'M-RET' in *S* buffers is now bound to 'ess-dirs'. This function - will set Emacs's current directory to be the same as the *S* - process. This is useful if you use 'setwd()' within a *S* process. - - Changes/New Features in 5.9: - * Toolbar: The toolbar now has an icon for starting Splus. - * Indentation: New documentation and code has been added to make it - easier to change how ESS indents code. In particular, see - 'ess-default-style', 'ess-own-style-list' and the documention - subsection "Changing indentation styles". - * 'ess-display-help-on-object' ('C-c C-v') now offers completion - candidates for help file aliases, in addition to object names. - * Font locking: is now turned on even without 'window-system' is - 'nil', whenever ESS-FONT-LOCK-MODE is non-nil, i.e., by default. - * ESS script editing: ess-eval-deactivate-mark default is now t, as - suggested by Leo Alekseyev and subsequent "unanimous" ESS-help - discussion. - * ESS[R]: Editing support for "#!" (Rscript / littler) editing, - thanks to Jeffrey Arnold. - * ESS[R]: Now finds all R versions, both 64-bit and 32-bit, on some - 64-bit Windows machines. Please report back to ess-core success or - failure on your 64-bit Windows machine. - * ESS Manual now more visually pleasing; - - * ESS[R]: Roxygen on XEmacs no longer font locks for now (as it - required missing features and hence broke ESS startup, there). - * ESS[R]: Roxygen has a sub-menu on the [ESS] menu. - * ESS[R]: Function 'ess-rutils-htmldocs' in 'ess-rutils.el' offers an - alternative to 'help.start()' for navigating R documentation, using - the 'browse-url' Emacs function. - - Changes/New Features in 5.8: - * ESS[R]: New 'ess-rutils.el' with utilities for listing, loading, - installing, and updating packages, as well as object manipulation - (listing, viewing, and deleting). It also provides an alternative - to 'RSiteSearch()' that uses the 'browse-url' function, so results - can be viewed in an Emacs web browser. - * ESS[R]: much more extensive Roxygen interface, via ess-roxy.el from - Henning Redestig. Ess-roxy supports filling of roxygen fields, - generation and updating roxygen templates, completion of roxygen - tags, basic navigation (marking and moving between entries), - folding using hs-minor-mode and preview of the Rd file. - * Emacs lisp files have got better names (partly, for now). - - Changes/New Features in 5.7: - * ESS[R]: loading a source file ('C-c C-l') now works in Windows, - similarly to other platforms; (further; it had accidentally been - broken in ESS 5.6 on all platforms) - - Changes/New Features in 5.6: - * ESS[R]: help() calls have to differ from old default, with newer - versions of R; currently via .help.ESS <- function(...) hack. - - Changes/New Features in 5.4: - * ESS[SAS]: The long overdue change from 'make-regexp' to - 'regexp-opt' for font-locking is complete. The new 'regexp-opt' is - now the default since it is better than the old code in many ways - (and especially more maintainable). However, there are certainly - some special cases missed (bug reports and patches welcome!). - Setting 'ess-sas-run-regexp-opt' to 'nil' will result in the old - code being used. - * ESS[BUGS] and ESS[JAGS]: typing '=' now results in '<-'. - * ESS[R] function arguments "show" '(ess-r-args-show)' now uses the - new '(tooltip-show-at-point)' contributed by Erik Iverson. - * Toolbar icons now also work in (beta) Emacs 23. - * ESS[S]: New function 'ess-change-directory' for setting both emacs' - current directory and the directory of an *R* or *S* buffer. - * ESS[S] when transient-mark-mode is true, the mark is now kept, - rather than deactivated, thanks to a patch from David Reitter. - - Changes/New Features in 5.3.11: - * ESS[SAS]: work around bug in Emacs 22.2 & 22.3 which fails to set - case-fold fontification automatically. - * Rd mode: support new keyword 'Rdversion' - * ESS[R]: now again works with Emacs 21.x - - Changes/New Features in 5.3.10: - * Fixed noweb-mode bug accidentally introduced into 5.3.9 - * In noweb-mode, e.g., Rnw-mode, electric "<" also inserts closing - "@". Further, the code chunk boundaries are better kept - up-to-date, such that code[R] <-> text[LaTeX] minor mode switching - should happen more reliably. - * In noweb-mode, fix a buglet in rare [Enter] or [Tab] behavior; - further, by default disable the former '[[' .. ']]' - code-protection-when-filling behavior which has been found to be - buggy. - - Changes/New Features in 5.3.9: - * ESS[SAS]: evince PDF viewer now supported as well; search order: - evince, Xpdf, Adobe/Acrobat Reader - * ESS[R]: added support for Roxygen, potentially to be extended. - * ESS[S] (and R): inferior ('*R*') and transcript modes no longer - fontify language keywords (such as 'for', 'in', etc). - * iESS[Stata]: Customize the 'ess-sta-delimiter-friendly' setting to - 't' to convert embedded semi-colons to newlines for Stata - processing. - * Sweave fix for embedded blanks in PDF reader and PDF files - * Several fixes for Major Mode Convention violations in 'ess-mode' - and 'noweb-mode'. - * ESS[JAGS]: 'M-x comment-region' now available! - * ESS[S] The 'ess-swv-*' commands (and keybindings) are now in a - submenu of the "Noweb" menu, when editing Sweave files. - - Changes/New Features in 5.3.8: - * ESS[JAGS]: more separation from ESS[BUGS] (as much as is currently - planned); now 'C-c C-c' on an empty '.jmd' creates a template as it - should; symbolic links are created for CODA output so BOA is happy: - from 'index.txt' to '.ind' and 'chain#.txt' to '#.out' - * ESS[SAS]: buffer-local 'ess-sas-submit-command' and - 'ess-sas-submit-command-options' now recognized by - 'ess-sas-submit-region' - * ESS[S]: When trying to evaluate code in an S language buffer and - there is no associated process, now start R automatically instead - of signalling an error. Also, restart R if there is an associated - process which is not running. However, do not start R just via the - "electric" '(' ('ess-r-args-auto-show'). - * ESS[S]: For (one-line) functions withOUT '{ .. }' bodys, the end - of function is now correctly found more often. This notably - improves 'C-c C-c' ('ess-eval-function-or-paragraph-and-step'). - * ESS[JAGS]: cleanup/re-organization of elisp code; symbolic links - for CODA output are now only created by the new JAGS 'system' - command in version 1.0.3; specify whether this command is available - via 'ess-jags-system'; if not present, then no links are created so - that the '*shell*' buffer does not become unresponsive during the - batch run - - Changes/New Features in 5.3.7: - * ESS: 'ess-default-style' now *is* customizable, i.e., changing its - value in '~/.emacs' now does have the desired effect. - * ESS: 'ess-font-lock-mode' is a new variable (default: t) which - controls whether font-locking is enabled in ESS buffers. - * ESS[R]: for XEmacs on Windows; another tweak to find R versions - * ESS[SAS]: font-locking updated for ODS and SAS Bayesian Procedures; - a more consistent handling of SAS options by - 'ess-sas-submit-command-options' which is buffer-local; portable - snooze for MS Windows via customize-able 'ess-sleep-for' (floats - welcome); Xpdf now supported as a PDF viewer - * ESS[Rnw]: now also works with "emacs -nw" and Emacs 22. - * ESS[JAGS]: now requires JAGS 1.0 (see the new ESS for JAGS help - section for more information): both need work; suggestions welcome - * ESS[R]: [TAB] completion now uses the R-internal completion - mechanism (for R >= 2.5.0). - * ESS[R] ([S]): interpretation of "_" as assignment has been removed - in 'ess-continued-statement-p' for R and S. - * several internal code cleanups. - * ESS[R]: An experimental version of a new command 'Rgui' on MS - Windows to send lines directly from emacs to 'Rgui' is available in - file 'lisp/essd-rgui.el'. Preliminary documentation is in file - 'doc/rgui-doc.txt'. - - Changes/New Features in 5.3.6: - * ESS: for XEmacs, using "gnuclient" (without a "-q") works for - things like fix() after M-x gnuserv-start has been done. - * ESS[R]: M-x R-newest should now work in more situations on MS - Windows, e.g., when R has been installed in a non-default - "ProgramFiles" directory tree. In these cases, there's no need to - specify the name (and full path) of the R program anymore. - * ESS[R]: For XEmacs, startup (with new tooltip code) works again. - - Changes/New Features in 5.3.5: - * ESS[R] a new defun is available, 'M-x R-newest', which will start - the newest version of R that it can find on your system. - * ESS[R] add Sven Hartenstein's "R function arguments tips" - functionality, via new file '../lisp/essd-r-args.el'. Note that - this includes an "electric "("" behavior inside 'R-mode' which is - _active by default_ and can be customized via - 'ess-r-args-electric-paren'; i.e., use '(setq - ess-r-args-electric-paren nil)' to turn it off. Further, - 'ess-r-args-show-as' allows to switch to the "tooltip" mode. - * ESS: functions 'ess-get-pdf-viewer' and *-ps-viewer; built on new - customizable variables 'ess-pdf-viewer-pref' and - 'ess-ps-viewer-pref'; currently used in 'ess-swv-PDF' and '*-PS'. - * ESS[R] Improved 'ess-swv-PDF' to run pdf viewer only if pdflatex - was ok - * ESS[R] Improved 'ess-swv-weave' to start R automatically if none is - running. - * ESS: Do no longer ask _which_ ESS process to use if there is only - one. - - Changes/New Features in 5.3.4: - * ESS[R] now better work with options(error=recover); and the new - default of CHM help files on windows. - * ESS[R] some more cleanup in the "sweave" functions - * miscellaneous fixes - - Changes/New Features in 5.3.3: - * ESS[S] fix buglet (5.3.2 only) which left command prompt in - "execute buffer" and hence help files. - * new customizable variable 'ess-display-buffer-reuse-frames' set to - true (which changes default behavior) such that execution or help - *frames* are reused. - - Changes/New Features in 5.3.2: - * Classic BUGS now supported by '(require 'essd-bugs)' with ESS[BUGS] - and JAGS by '(require 'essd-jags)' with ESS[JAGS]. But, only one - of them can be used at a time since they don't play nice together. - Also, 'C-c C-c' is now bound to the function 'ess-bugs-next-action' - ('F12' has been retired). And finally, note that 'essl-bug.el' is - deprecated and the replacement is 'essl-bugs.el'. - * ESS[R] Improved some of the "Sweave-make" functions (yet scarcely - documented) in 'ess-swv.el'. - * ESS[S] No longer mess with .Last.value (nor in other "languages"). - - Changes/New Features in 5.3.1: - * See the docs for 2 ways to install ESS for XEmacs - 1. by uncommenting the XEmacs part of Section 1 of 'Makeconf' and - performing 'make install' - 2. by unpacking either 'ess-5.3.1.tgz' or 'ess-5.3.1.zip' into - 'PREFIX/lib/xemacs/site-packages' on unix or - 'PREFIX\XEmacs\site-packages' on windows - * ESS[R]: fixed bugs so that Rterm.exe can be found by XEmacs - * ESS[S]: 'ess-toggle-S-assign-key' is slightly changed; in - particular, the default 'ess-assign-key' is now 'C-x ='. - * ESS[R]: 'M-x R-site-search' is a new (slightly experimental) - utility similar to R's 'RSiteSearch(..)' but with the advantage of - using Emacs' preferred browser, see 'browse-url-browser-function' - - Changes/New Features in 5.3.0: - * ESS[BUGS]: sanely re-format statistical output, '.bog', from - scientific notation to numbers rounded with 4 decimal places with - 'M-x ess-bugs-sci-round-to-4-dp'. - * The keys for navigating among section headings in help buffers - worked, but only for one language per session; they should now work - for multiple languages. (They were also broken on Windows - machines.) - * ESS[S] long standing buglets in the internal logic for loading lisp - code on Windows. Particularly fixed behavior in help mode with - S-plus GUI. - * New variable, 'ess-use-inferior-program-name-in-buffer-name', which - enables using the executable name instead of the dialect name for - R. Feature request. - * ESS[S] 'ess-execute-screen-options' now also works correctly when - there is more than one window *side-by-side* in the same frame and - runs in the correct buffer also when there is more than one S - buffer. - * iESS[S] new functions 'ess-eval-paragraph-and-step' and - 'ess-eval-function-or-paragraph-and-step' are bound to keys 'C-c - C-p' and 'C-c C-c' respectively and to the menu in ESS-mode; also - bound in the help mode (for evaluating examples). - * ESS[S] new function 'ess-toggle-S-assign-key' allows to assign the - " <- " insertion to an arbitrary key. - - Changes/New Features in 5.2.12: - * ESS[SAS]: 'M-;' fixed, but the XEmacs function 'comment-dwim' may - be broken, if so, use 'M-x comment-region' and 'M-x - uncomment-region' instead; only valid PROCs are fontified which is - very helpful finding syntax errors (currently supported: BASE, ETS, - FSP, GRAPH, IML, INSIGHT and STAT); the "feature" where 'F'-keys - take you to an empty buffer when the requested destination is a - file that does not exist has been fixed, now the request results in - a no-op. Further, sas-mode now also works in simple terminals. - * Rterm/Cygwin combination works under Microsoft Windows. - * ESS[R]: internal calls use baseenv() instead of NULL and define - 'baseenv' where needed. - * New experimental support for installing ESS. See the file - 'lisp/ess-install.el'. - - Changes/New Features in 5.2.11: - * ESS Info entry and 'dir' handled more effectively for GNU Emacs - users - * ESS[SAS]: temporary files created for batch submission of a region - are now named based on the current file; see 'ess-sas-file-root' - for details; all 'lag' and 'dif' functions now fontified correctly - * iESS[SAS]: fixed a few nagging bugs, however, still does not appear - to work at this time; please let us know if you have any ideas. - * ESS[S]: Support for running other versions of Splus has been added - for unix. Two new variables, 'ess-s-versions' and - 'ess-s-versions-list', are used to tell ESS what other versions of - Splus you would like to run. - - Changes/New Features in 5.2.10: - * ESS[R]: ess-r-versions can no longer be customized (since the - customization was not taking effect unless customizations were - loaded before ESS). Its value has been changed so that it will also - find R executables beginning "R-devel" and "R-patched". If you - wish to change this variable, it must be set in your '.emacs' - before ESS is loaded. - * Installation with GNU Make enhanced: unix and unix-like operating - systems will now be able to install ESS for all users in either a - GNU Emacs site-lisp or an XEmacs package configuration by editing - 'lisp/ess-site.el' and 'Makeconf' accordingly, then issuing 'make - install' - * ESS[S]: Filename completion (inside strings) now also works in - XEmacs for R and S-plus. - - Changes/New Features in 5.2.9: - * ESS[R] for Windows: the \ directory character bug with respect to - ess-load-file has been eradicated. - * iESS[SAS]: 'C-c C-r' and 'C-c C-b' once again work as intended and - documented. - * ESS[S]: M-x ess-fix-EQ-assign is a bit more agressive. - * ESS[S]: Imenu now also shows setAs(), etc. - * ESS[R]: R function pattern enhanced with underlying code such that - 'M-C-a' ('ess-beginning-of-function') etc now work for many more - cases, including S4 method definitions. - * iESS[R]: myOwnhelp(1) no longer wrongly triggers help(1). - * ESS[R]: Improved detection of bogus help buffers: valid help - buffers containing with the string "no documentation"(e.g. - contour) were being treated as bogus. - * ESS[R]: In R help buffers, if 'options("help.try.all.packages" = - TRUE)' then '?rlm' will list which packages rlm is defined in. - This help buffer is not bogus, but instead is now relabelled - "*help[R](rlm in packages)*". - * ESS[STA]: add "//" as comment starting character to syntax-table. - - Changes/New Features in 5.2.8: - * iESS: [Tab] completes *file* names "inside string" as in earlier - (<= 5.2.3) ESS versions. - - Changes/New Features in 5.2.7: - * If you use Custom to change the variable ess-toolbar-items, the new - toolbar is used in all subsequent ESS buffers. - * ESS[SAS]: new feature: if ess-sas-log-max >0 and your .log grows to - more than ess-sas-log-max bytes, just the first ess-sas-log-max - bytes are refreshed; this is helpful when your .sas program - generates lots of error messages and gets too big for emacs to - display - * ESS[R/S]: 'M-;' in R/S editing modes will now indent with either - one or two hashes depending on context. - * ESS[R]: David Whiting's Sweave extensions (to 'noweb') are now - available (from ess-swv.el loaded by default). - - Changes/New Features in 5.2.6: - * Removed non-ASCII characters in a few files. - * ESS[R]: now works better when UTF-8 locale is active; in - particular, you get correct directional quotes in R's startup - message for R-devel (unstable development version of R 2.1.0) when - using environment variables LANGUAGE=en@quot LC_ALL=en_US.UTF-8 - * ESS[SAS]: toggling of .log mode improved ('F10'); toggling of .lst - mode now also available ('C-F10'); killing all buffers associated - with .sas program no longer bound to 'C-F10' since its a bit - overzealous. - * S-Plus 7 for Windows is now recognized. - * ESS[S] (incl. R): in auto-fill mode, strings are not wrapped - anymore. - * ESS[S] (incl. R): font-lock now correctly differs between R and S, - e.g., for "_"; both now fontify warning(.) and S does terminate() - additionally. - * Support for 'bell' aka 'beep' aka 'ding' aka 'alarm' in all - inferior modes: When \a is output "to the the console" at the - beginning of a line, the bell is rung. - - Changes/New Features in 5.2.5: - * ESS[R]: 'C-c C-q' or 'Quit S' from the menu now should work (again - and less klunkily) and do not append '-exited' to the buffer name. - Further, the behavior of '(ess-cleanup)', called from ess-quit, now - depends on the new customizable variable - 'ess-S-quit-kill-buffers-p' which defaults to 'nil'. Consequently, - the question _"Delete all buffers associated with ..?"_ will not - be asked anymore by default. - * ESS[SAS] - ess-ebcdic-to-ascii-search-and-replace will now work - with the 'recode' application as well which is available on many - platforms - * ESS[S] (incl. R): Name completion for slots of S4 objects now - works! - - Changes/New Features in 5.2.4: - * The documentation now includes an overview of how to use the emacs - TAGS facility for S functions. (The distribution also used to - contain a directory 'etc/other/Tags' where a ~1990 version of - 'etags.c' was distributed; this is no longer relevant and so has - been deleted.) - * ESS[SAS] - When you are working with EBCDIC files on an ASCII - platform, .log NOTEs may display as gibberish since the EBCDIC - characters are not converted to ASCII prior to their display. So, - the function ess-ebcdic-to-ascii-search-and-replace is provided for - convenience and is bound to 'C-F11'. This function requires the - 'dd' command (only available on unix or unix-like platforms). - * ESS: Completion of object names is now always done dynamically - rather than allowing the option of using a pre-computed database - (by 'ess-create-object-name-db') since modern computers seem fast - enough for dynamic completion. (We expect few users, if any, have - been using the pre-computed database method.) - * ESS: object completion in iESS buffers running on Windows was very - slow (for GNU Emacs, but not XEmacs) and has now been fixed. - Further, it was more or less broken for all versions of S-plus 6.x, - and has been fixed to work everywhere but with the Windows' GUI of - S-plus. The list of objects now shows unique names also when an - object appears more than once in the search path. - * ESS[R]: Completion of object names now also includes those starting - with ".". - - Changes/New Features in 5.2.3: - * ESS: When new inferior ESS processes are created, by default they - will replace the current buffer (this restores behavior from pre - 5.2.0). If you wish new ESS processes to start in another window - of the current frame, set inferior-ess-same-window to nil. - * New variables inferior-Splus-args and inferior-R-args provide a way - to pass command line arguments to starting S and R processes. - - Changes/New Features in 5.2.2: - * bug-fixes for 5.2.1 (require 'executable), html docs, etc. - * ess-lisp-directory/../doc/info added to Info-directory-list if - ess-info not found by info - * ESS[R]: If you have other versions of R on your exec-path, such as - "R-1.8.1" with Unix or "rw1081" with Windows, ESS will find them - and create appropriate functions, such as 'M-x R-1.8.1' or 'M-x - rw1081', for calling them. By default only Unix programs beginning - "R-1" and "R-2" and Windows programs parallel to the version of R - in your exec-path will be found, but see ess-r-versions and - ess-rterm-versions for ways to find other versions of R. - * ESS[R]: Other versions of R, such as "R-1.8.1" on Unix and "rw1081" - on Windows, are added to the "ESS / Start Process / Other" menu. - * ESS[S]: If you have other versions of S-Plus on your Windows - computer, such as S-Plus 6.1 or S-Plus 4.5, ESS will find them and - create appropriate functions, such as 'M-x splus61', for calling - the console version (Sqpe) inside an emacs buffer. By default only - programs installed in the default location will be found, but see - ess-SHOME-versions for ways to find other versions of S-Plus. - * ESS[S]: Other versions of Sqpe on Windows, such as "splus61", are - added to the "ESS / Start Process / Other" menu. - * ESS[R]: (bug fix) ess-quit (bound to 'C-c C-q') should now quit the - inferior R process, when issued from either the inferior buffer, or - from a .R buffer. - - Changes/New Features in 5.2.1: - * ESS[S] (R and S-plus): now have toolbar support with icons to - evaluate code in the inferior process or to switch there. This - code is experimental and likely to change as XEmacs/Emacs issues - get resolved. The toolbar should be enabled if your Emacs displays - images, but can be disabled with the variable ess-use-toolbar. - Thanks to David Smith from Insightful for the S-plus logo. - * ESS[SAS]: ess-sas-graph-view ('F12') enhanced; you can specify - external file viewers for each graphics file type via the alist - ess-sas-graph-view-viewer-alist; also .jpg/.gif are now handled by - image-mode on XEmacs, if available, otherwise by graphics - primitives as before - - Changes/New Features in 5.2.0: - * ESS[BUGS]: new info documentation! now supports interactive - processing thanks to Aki Vehtari (mailto:Aki.Vehtari@hut.fi); new - architecture-independent unix support as well as support for BUGS - v. 0.5 - * ESS[SAS]: convert .log to .sas with ess-sas-transcript; info - documentation improved; Local Variable bug fixes; SAS/IML - statements/functions now highlighted; files edited remotely by - ange-ftp/EFS/tramp are recognized and pressing SUBMIT opens a - buffer on the remote host via the local variable - ess-sas-shell-buffer-remote-init which defaults to "ssh"; changed - the definition of the variable ess-sas-edit-keys-toggle to boolean - rather than 0/1; added the function ess-electric-run-semicolon - which automatically reverse indents lines containing only "run;"; - 'C-F1' creates MS RTF portrait from the current buffer; 'C-F2' - creates MS RTF landscape from the current buffer; 'C-F9' opens a - SAS DATASET with PROC INSIGHT rather than PROC FSVIEW; "inferior" - aliases for SAS batch: 'C-c C-r' for submit region, 'C-c C-b' for - submit buffer, 'C-c C-x' for goto .log; 'C-c C-y' for goto .lst - * ESS[S]: Pressing underscore ("_") once inserts " <- " (as before); - pressing underscore twice inserts a literal underscore. To stop - this smart behaviour, add "(ess-toggle-underscore nil)" to your - .emacs after ess-site has been loaded; - ess-dump-filename-template-proto (new name!) now can be customized - successfully (for S language dialects); Support for Imenu has been - improved; set ess-imenu-use-S to non-nil to get an "Imenu-S" item - on your menubar; ess-help: Now using nice underlines (instead of - 'nuke-* ^H_') - * ESS[R]: After (require 'essa-r), 'M-x ess-r-var' allows to load - numbers from any Emacs buffer into an existing *R* process; 'M-x - ess-rdired' gives a "directory editor" of R objects; fixed - ess-retr-lastvalue-command, i.e. .Last.value bug (thanks to David - Brahm) - * ESS: Support for creating new window frames has been added to ESS. - Inferior ESS processes can be created in dedicated frames by - setting inferior-ess-own-frame to t. ESS help buffers can also - open in new frames; see the documentation for ess-help-own-frame - for details. (Thanks to Kevin Rodgers for contributing code.) - - Changes/New Features in 5.1.24: - * The version number is now correct even inside ESS/Emacs - - Changes/New Features in 5.1.23: - * Minor more Makefile clean up. - - Changes/New Features in 5.1.22: - * Besides info documentation, PDF and HTML documentation are also - provided (instead of built using "make") and available on the web - as well; see ESS web page (https://ess.r-project.org/) and StatLib - (http://lib.stat.cmu.edu/general/ESS/doc) - * Now that info documentation is available, the README.* files are no - longer supported. However, they are still distributed for what - it's worth. - * ESS is now an XEmacs package! See XEmacs Installation HOWTO - (https://www.xemacs.org/Install/index.html) for details - (specifically, items 10-15). - * ESS[SAS]: more user-friendly enhancements for remote SAS batch jobs - with Kermit file transfers (LOG and OUTPUT function key features - now supported). Multiple shells now supported so you can run SAS - on different computers from different buffers by setting the - buffer-local variable ess-sas-shell-buffer to unique buffer names. - * Major re-vamping of Makefile/Makeconf. - - Changes/New Features in 5.1.21: - * ESS[SAS]: info documentation now available!, see ESS->Help for SAS; - 'F12' opens GSASFILE nearest point for viewing either within emacs, - when available, or via an external viewer; more syntax highlighting - keywords; more enhancements for remote SAS batch jobs with Kermit; - new framework for remote SAS interactive jobs, see ess-remote - * ESS[S]: info documentation now available!, see ESS->Help for the S - family - * Makefile: tag now independent of rel; info files made by - doc/Makefile and installed in new info sub-directory - - Changes/New Features in 5.1.20: - * New 'options()$STERM' in the S dialects (S, S-Plus, R). The S - program can determine the environment in which it is currently - running. ESS sets the option to 'iESS' or 'ddeESS' when it starts - an S language process. We recommend other specific values for S - language processes that ESS does not start. - * New 'ess-mouse-me' function, assigned to S-mouse-3 by default. - User may click on a word or region and then choose from the menu to - display the item, or a summary, or a plot, etc. This feature is - still under development. - * GNU Emacs 21.1 is now supported (fixed for S dialects, SAS & BUGS), - (some from Stephen Eglen). - * XEmacs 21.x is now supported (fixed w32-using-nt bug) - * XEmacs on Win (NT) is better supported. - * Workaround for bug in Sqpe+6 (S-PLUS 6 for Win). - * should now work even when imenu is not available (for old - XEmacsen). - * ESS[SAS]: XEmacs-Imenu fix; 'C-TAB' is globalized along with your - function-key definitions, if specified; you can specify your SAS - library definitions outside of autoexec.sas for ess-sas-data-view - with SAS code placed in the variable ess-sas-data-view-libname, - also the dataset name is defaulted to the nearest permanent dataset - to point; Speedbar support now works for permanent datasets, please - ignore first./last.; new font-locking is now the default with more - improvements for font-locking PROCs, macro statements, * ; and %* ; - comments; you can toggle sas-log-mode with 'F10' which will - font-lock your .log (if it isn't too big); submit remote .sas files - accessed with ange-ftp, EFS or Tramp (Kermit is experimental) by - setting ess-sas-submit-method to 'sh; ess-sas-submit-command and - ess-sas-submit-command-options are buffer-local so you can have - local file variable sections at the end of your .sas files to - request different executables or specify special options and the - local file variables are re-read at submit instead of only at file - open so that if you make a change it is picked up immediately; - * ESS[BUGS]: font-lock with 'in' fixed. - * for STATA: font-lock bug fixed. - * for Rd mode: 'C-c C-v' and 'switch-process' in menu. further, 'C-c - C-f' prefix (Rd-font) for inserting or surrounding a word by things - such as \code{.}, \code{\link{.}}, \emph{.} etc. - * new functions (ess-directory-function) and (ess-narrow-to-defun) - ess-directory <-> default-directory logic (Jeff Mincy). - * Re-organized Makefile and fixed a few bugs. - - Changes/New Features in 5.1.19: - * S+6 now supported (Tony Rossini (Unix) and Rich Heiberger - (Windows)) - * New BUGS support through ESS[BUGS] mode (Rodney Sparapani) - Templates assist you in writing .bug and .cmd code (.cmd and .log - are replaced by .bmd and .bog to avoid emacs extension collisions). - Substitution" parameters facilitate "automagic" generation of - data...in" and "init...in" filenames, "const N=" from your data - file and "monitor()/stats()" commands. Activated by pressing - 'F12'. - * Fixes for 'ess-smart-underscore' SAS breakage (Rich Heiberger) - * You can change between PC and Unix, local and global SAS - function-key definitions interactively (Rich Heiberger) - * 'C-Submit' a highlighted region to SAS batch (Rodney Sparapani) - * New and improved SAS syntax highlighting (Rodney Sparapani) To get - the new functionality, set ess-sas-run-make-regexp to nil. Also - available in .log files via 'F10'. - * Open a permanent SAS dataset for viewing via 'F9' (Rodney - Sparapani) You must have the library defined in autoexec.sas for it - to work. - * User-friendly defaults for 'sas-program', - 'ess-sas-batch-pre-command' and 'ess-sas-batch-post-command' as - well Customize support for these and other ESS[SAS] variables - (Rodney Sparapani) - * 'ess-sas-suffix-2' now defaults to .dat via 'F11' (Rodney - Sparapani) - * Emacs/XEmacs, Unix/Windows issues collectively handled in - ess-emcs.el - * defadvice solves problem of missing *ESS* (thanks to Jeff Mincy) - * Improved manual a bit by including things that were only in - 'README'. - - Changes/New Features in 5.1.18: - * New 'ess-smart-underscore' function, now assigned to "_" by - default. Inserts 'ess-S-assign' (customizable " <- "), unless - inside string and comments where plain "_" is used instead. (MM) - * Fixes for longstanding interactive SAS breakage (RMH) - - Changes/New Features in 5.1.17: - * Documentation for Windows Installation (Rich Heiberger) - * removal of ess-vars, finalization of customize support (in the - sense that there is no more use of ess-vars, but that we need to - fix ess-cust) (AJ Rossini) - * Many small (and large) fixes/contributions (MMaechler) - * addition of the "S-equal" variable and provide 'M-x - ess-add-MM-keys' a way to remap "_" to 'ess-S-assign', typically " - <- ", but customizable. (MMaechler) - - Changes/New Features in 5.1.16: - * BUG FIXES - * Better SAS support - - Changes/New Features in 5.1.15: - * BUG FIXES - - Changes/New Features in 5.1.14: - * Yet more fixes to SAS mode, (Rich Heiberger and Rodney Sparapani) - * Customize support (for most Emacsen which support it) (AJRossini) - * ARC and ViSta support out of the box, and fixes for XLispStat - (AJRossini) - - Changes/New Features in 5.1.13: - * Version numbering finally all depending on the ./VERSION file, - thanks to Martin Maechler. - * Yet more fixes to SAS mode, thanks to Rich Heiberger. - - Changes/New Features in 5.1.12: - * Splus 5.1 stabilized, thanks to Martin Maechler, Bill Venables, - Chuck Taylor, and others. - * More fixes to SAS mode, thanks to Rodney Sparapani and Rich - Heiberger. - - Changes/New Features in 5.1.11: - * More fixes to Stata mode, thanks to Brendan Halpin - (mailto:brendan@essex.ac.uk). - * fixed bugs in ESS-elsewhere, thanks to many testers - * README.SPLUS4WIN has DETAILED instructions for S-PLUS 2000, thanks - to David Brahm (mailto:brahm@alum.mit.edu). - * Fixes to SAS mode, thanks to Rodney Sparapani - - Changes/New Features in 5.1.10: - * More fixes to Stata mode - * primitive generic version of ESS-elsewhere - * Small fixes to SAS/Stata. - - Changes/New Features in 5.1.9: - * Stata mode works - * Literate Data Analysis using Noweb works - - Changes/New Features in 5.1.8: - * Bug fixes - * R documentation mode defaults changed - - Changes/New Features in 5.1.2: - * able to use inferior iESS mode to communicate directly with a - running S-Plus 4.x process using the Microsoft DDE protocol. We - use the familiar (from Unix ESS) 'C-c C-n' and related key - sequences to send lines from the S-mode file to the inferior S - process. We continue to edit S input files in ESS[S] mode and - transcripts of previous S sessions in ESS Transcript mode. All - three modes know the S language, syntax, and indentation patterns - and provide the syntactic highlighting that eases the programming - tasks. - - - -Tag Table: - -End Tag Table diff --git a/elpa/ess-20181109.703/announc.info b/elpa/ess-20181109.703/announc.info deleted file mode 100644 index d7109458..00000000 --- a/elpa/ess-20181109.703/announc.info +++ /dev/null @@ -1,608 +0,0 @@ -This is announc.info, produced by makeinfo version 6.5 from -announc.texi. - - -File: announc.info, Node: Announce - -1 ANNOUNCING ESS -**************** - -The ESS Developers proudly announce the release of ESS 18.10.2 - - Emacs Speaks Statistics (ESS) provides an intelligent, consistent -interface between the user and the software. ESS interfaces with -R/S-PLUS, SAS, BUGS/JAGS, Stata and other statistical analysis packages -under the UNIX, GNU Linux, Microsoft Windows, macOS and other operating -systems. ESS is a package for the GNU Emacs and XEmacs text editors -whose features ESS uses to streamline the creation and use of -statistical software. ESS knows the syntax and grammar of statistical -analysis packages and provides consistent display and editing features -based on that knowledge. ESS assists in interactive and batch execution -of statements written in these statistical analysis languages. - - ESS is freely available under the GNU General Public License (GPL). -Please read the file COPYING which comes with the distribution, for more -information about the license. For more detailed information, please -read the README files that come with ESS. - -* Menu: - -* Latest Version:: -* Current Features:: -* Requirements:: -* Mailing List:: -* Reporting Bugs:: -* Authors:: -* License:: -* New Features:: - - -File: announc.info, Node: Latest Version, Next: Current Features, Prev: Announce, Up: Announce - -1.1 Getting the Latest Version -============================== - -ESS supports GNU Emacs versions 24.3 and newer. - - ESS is most likely to work with current/recent versions of the -following statistical packages: R/S-PLUS, SAS, Stata, OpenBUGS and JAGS. - - To build the PDF documentation, you will need a version of TeX Live -or texinfo that includes texi2dvi. - - There are two main methods used for installing ESS. You may install -from a third-party repository or from source code. Once you install it, -you must also activate or load ESS in each Emacs session, though -installation from a third-party repository likely takes care of that for -you. See *note Activating and Loading ESS:: for more details. - -* Menu: - -* Installing from a third-party repository:: -* Installing from source:: -* Activating and Loading ESS:: -* Check Installation:: - - -File: announc.info, Node: Installing from a third-party repository, Next: Installing from source - -1.2 Installing from a third-party repository -============================================ - -ESS is packaged by many third party repositories. Many GNU/Linux -distributions package it, usually with the name "emacs-ess" or similar. - - ESS is also available through Milkypostman’s Emacs Lisp Package -Archive (MELPA), a popular repository for Emacs packages. Instructions -on how to do so are found on MELPA's website (https://melpa.org/). -MELPA also hosts MELPA-stable with stable ESS builds. You may choose -between MELPA with the latest and greatest features (and bugs) or -MELPA-stable, which may lag a bit behind but should be more stable. - - After installing, users should make sure ESS is activated or loaded -in each Emacs session. See *note Activating and Loading ESS::. -Depending on install method, this may be taken care of automatically. - - -File: announc.info, Node: Installing from source, Next: Activating and Loading ESS, Prev: Installing from a third-party repository - -1.3 Installing from source -========================== - -Stable versions of ESS are available at the ESS web page -(https://ess.r-project.org) as a .tgz file or .zip file. ESS releases -are GPG-signed, you should check the signature by downloading the -accompanying '.sig' file and doing: - - gpg --verify ess-18.10.tgz.sig - - Alternatively, you may download the git repository. ESS is currently -hosted on Github: . 'git clone -https://github.com/emacs-ess/ESS.git' will download it to a new -directory 'ESS' in the current working directory. - - We will refer to the location of the ESS source files as -'/path/to/ESS/' hereafter. - - After installing, users should make sure they activate or load ESS in -each Emacs session, see *note Activating and Loading ESS:: - - Optionally, compile elisp files, build the documentation, and the -autoloads: - cd /path/to/ESS/ - make - Without this step the documentation, reference card, and autoloads -will not be available. Uncompiled ESS will also run slower. - - Optionally, you may make ESS available to all users of a machine by -installing it site-wide. To do so, run 'make install'. You might need -administrative privileges: - - make install - - The files are installed into '/usr/share/emacs' directory. For this -step to run correctly on macOS, you will need to adjust the 'PREFIX' -path in 'Makeconf'. The necessary code and instructions are commented -in that file. - - -File: announc.info, Node: Activating and Loading ESS, Next: Check Installation, Prev: Installing from source - -1.4 Activating and Loading ESS -============================== - -After installing ESS, you must activate or load it each Emacs session. -ESS can be autoloaded, and if you used a third-party repository (such as -your Linux distribution or MELPA) to install, you can likely skip this -section and proceed directly to *note Check Installation:: - - Otherwise, you may need to add the path to ESS to 'load-path' with: - - (add-to-list 'load-path "/path/to/ESS/lisp") - - You then need to decide whether to take advantage of deferred loading -(which will result in a faster Emacs startup time) or require ESS when -Emacs is loaded. To autoload ESS when needed (note that if installed -from source, you must have run 'make'): - - (load "ess-autoloads") - - To require ESS on startup, you can either put - - (require 'ess-site) - - or - - (require 'ess-r-mode) - - In your configuration file, depending on whether you want all ESS -features or only R related features. - - -File: announc.info, Node: Check Installation, Prev: Activating and Loading ESS - -1.5 Check Installation -====================== - -Restart Emacs and check that ESS was loaded from a correct location with -'M-x ess-version'. - - -File: announc.info, Node: Current Features, Next: Requirements, Prev: Latest Version, Up: Announce - -1.6 Current Features -==================== - - * Languages Supported: - * S family (R, S, and S+ AKA S-PLUS) - * SAS - * BUGS/JAGS - * Stata - * Julia - * Editing source code (S family, SAS, BUGS/JAGS, Stata, Julia) - * Syntactic indentation and highlighting of source code - * Partial evaluation of code - * Loading and error-checking of code - * Source code revision maintenance - * Batch execution (SAS, BUGS/JAGS) - * Use of imenu to provide links to appropriate functions - * Interacting with the process (S family, SAS, Stata, Julia) - * Command-line editing - * Searchable Command history - * Command-line completion of S family object names and file - names - * Quick access to object lists and search lists - * Transcript recording - * Interface to the help system - * Transcript manipulation (S family, Stata) - * Recording and saving transcript files - * Manipulating and editing saved transcripts - * Re-evaluating commands from transcript files - * Interaction with Help Pages and other Documentation (R) - * Fast Navigation - * Sending Examples to running ESS process. - * Fast Transfer to Further Help Pages - * Help File Editing (R) - * Syntactic indentation and highlighting of source code. - * Sending Examples to running ESS process. - * Previewing - - -File: announc.info, Node: Requirements, Next: Mailing List, Prev: Current Features, Up: Announce - -1.7 Requirements -================ - -ESS supports GNU Emacs versions 24.3 and newer. - - ESS is most likely to work with current/recent versions of the -following statistical packages: R/S-PLUS, SAS, Stata, OpenBUGS and JAGS. - - To build the PDF documentation, you will need a version of TeX Live -or texinfo that includes texi2dvi. - - -File: announc.info, Node: Mailing List, Next: Reporting Bugs, Prev: Requirements, Up: Announce - -1.8 Mailing List -================ - -There is a mailing list for discussions and announcements relating to -ESS. Join the list by sending an e-mail with "subscribe ess-help" (or -"help") in the body to ; contributions -to the list may be mailed to . Rest assured, -this is a fairly low-volume mailing list. - - The purposes of the mailing list include - - * helping users of ESS to get along with it. - * discussing aspects of using ESS on Emacs and XEmacs. - * suggestions for improvements. - * announcements of new releases of ESS. - * posting small patches to ESS. - - -File: announc.info, Node: Reporting Bugs, Next: Authors, Prev: Mailing List, Up: Announce - -1.9 Reporting Bugs -================== - -Please send bug reports, suggestions etc. to , -or post them on our github issue tracker -(https://github.com/emacs-ess/ESS/issues) - - The easiest way to do this is within Emacs by typing - - 'M-x ess-submit-bug-report' - - This also gives the maintainers valuable information about your -installation which may help us to identify or even fix the bug. - - If Emacs reports an error, backtraces can help us debug the problem. -Type "M-x set-variable RET debug-on-error RET t RET". Then run the -command that causes the error and you should see a *Backtrace* buffer -containing debug information; send us that buffer. - - Note that comments, suggestions, words of praise and large cash -donations are also more than welcome. - - -File: announc.info, Node: Authors, Next: License, Prev: Reporting Bugs, Up: Announce - -1.10 Authors -============ - - * A.J. Rossini (mailto:blindglobe@gmail.com) - * Richard M. Heiberger (mailto:rmh@temple.edu) - * Kurt Hornik (mailto:Kurt.Hornik@R-project.org) - * Martin Maechler (mailto:maechler@stat.math.ethz.ch) - * Rodney A. Sparapani (mailto:rsparapa@mcw.edu) - * Stephen Eglen (mailto:stephen@gnu.org) - * Sebastian P. Luque (mailto:spluque@gmail.com) - * Henning Redestig (mailto:henning.red@googlemail.com) - * Vitalie Spinu (mailto:spinuvit@gmail.com) - * Lionel Henry (mailto:lionel.hry@gmail.com) - * J. Alexander Branham (mailto:alex.branham@gmail.com) - - -File: announc.info, Node: License, Next: New Features, Prev: Authors, Up: Announce - -1.11 License -============ - -The source and documentation of ESS 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. - - ESS 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 in -the file COPYING in the same directory as this file for more details. - - -File: announc.info, Node: New Features, Prev: License, Up: Announce - -1.12 New Features -================= - -Bug Fixes in 18.10.2: - * ESS[R] Fix namespace evaluation in non-installed packages. - Evaluation is directed into GlobalEnv as originally intended. - * 'Makefile' fixes, notably for 'make install' and including full - docs in the tarballs. - - Bug Fixes in 18.10-1: - * New functions 'ess-eval-line-visibly-and-step' ('C-c C-n' and - 'ess-eval-region-or-line-visibly-and-step' ('C-RET') which behave - as the old versions of 'ess-eval-line-and-step' and - 'ess-eval-region-or-line-and-step'. - - Changes and New Features in 18.10: - - * This is the last release to support Emacs older than 25.1. Going - forward, only GNU Emacs 25.1 and newer will be supported. Soon - after this release, support for older Emacs versions will be - dropped from the git master branch. Note that MELPA uses the git - master branch to produce ESS snapshots, so if you are using Emacs < - 25.1 from MELPA and are unable to upgrade, you should switch to - MELPA-stable. - - * ESS now displays the language dialect in the mode-line. So, for - example, R buffers will now show ESS[R] rather than ESS[S]. - - * The ESS manual has been updated and revised. - - * The ESS initialization process has been further streamlined. If - you update the autoloads (which installation from 'package-install' - does), you should not need to '(require 'ess-site)' at all, as - autoloads should automatically load ESS when it is needed (e.g. - the first time an R buffer is opened). In order to defer loading - your ESS config, you may want to do something like - '(with-require-after-load "ess" )' in your Emacs - init file. Users of the popular 'use-package' Emacs package can - now do '(use-package ess :defer t)' to take advantage of this - behavior. *Note (ess)Activating and Loading ESS:: for more - information on this feature. - - * ESS now respects Emacs conventions for keybindings. This means - that The 'C-c [letter]' bindings have been removed. This affects - 'C-c h', which was bound to 'ess-eval-line-and-step-invisibly' in - 'sas-mode-local-map'; 'C-c f', which was bound to - 'ess-insert-function-outline' in 'ess-add-MM-keys'; and 'C-c h', - which was bound to 'ess-handy-commands' in 'Rd-mode-map', - 'ess-noweb-minor-mode-map', and 'ess-help-mode-map' - - * Functions 'ess-eval-line-and-step' and - 'ess-eval-region-or-line-and-step' now behave consistently with - other evaluation function inside a package. - - * ESS[R]: 'ess-r-package-use-dir' now works with any mode. This sets - the working directory to the root of the current package including - for example C or C++ files within '/src'). - - * ESS[R]: Long + + prompts in the inferior no longer offset output. - - * ESS[R]: New option 'strip' for 'inferior-ess-replace-long+'. This - strips the entire + + sequence. - - * ESS modes now inherit from 'prog-mode'. In the next release, ESS - modes will use 'define-derived-mode' so that each mode will have - (for example) its own hooks and keymaps. - - * ESS[R]: Supports flymake in R buffers for Emacs 26 and newer. - Users need to install the 'lintr' package to use it. Customizable - options include 'ess-use-flymake', 'ess-r-flymake-linters', and - 'ess-r-flymake-lintr-cache'. - - * ESS[R]: Gained support for xref in Emacs 25+. *Note (emacs)Xref:: - - * ESS[R]: The startup screen is cleaner. It also displays the - startup directory with an explicit 'setwd()'. - - * ESS[R]: Changing the working directory is now always reflected in - the process buffer. - - * ESS[R]: 'Makevars' files open with 'makefile-mode'. - - * New variable 'ess-write-to-dribble'. This allows users to disable - the dribble ('*ESS*') buffer if they wish. - - * All of the '*-program-name' variables have been renamed to - '*-program'. Users who previously customized e.g. - 'inferior-ess-R-program-name' will need to update their - customization to 'inferior-ess-R-program'. These variables are - treated as risky variables. - - * 'ess-smart-S-assign' was renamed to 'ess-insert-assign'. It - provides similar functionality but for any keybinding, not just - '_'. For instance if you bind it to ';', repeated invokations - cycle through between assignment and inserting ';'. - - * 'C-c C-=' is now bound to 'ess-cycle-assign' by default. See the - documentation for details. New user customization option - 'ess-assign-list' controls which assignment operators are cycled. - - * ESS[R] In remote sessions, the ESSR package is now fetched from - GitHub. - - * Commands that send the region to the inferior process now deal with - rectangular regions. See the documentation of 'ess-eval-region' - for details. This only works on Emacs 25.1 and newer. - - * ESS[R]: Improvements to interacting with iESS in non-R files. - Interaction with inferior process in non-R files within packages - (for instance C or C++ files) has been improved. This is a work in - progress. - - * ESS[R]: Changing the working directory is now always reflected in - the process buffer. - - * ESS[JAGS]: *.jog and *.jmd files no longer automatically open in - JAGS mode. - - Many improvements to fontification: - - * Improved customization for faces. ESS now provides custom faces - for (nearly) all faces used and places face customization options - into their own group. Users can customize these options using 'M-x - customize-group RET ess-faces'. - - * Many new keywords were added to 'ess-R-keywords' and - 'ess-R-modifiers'. See the documentation for details. - - * ESS[R]: 'in' is now only fontified when inside a 'for' construct. - This avoids spurious fontification, especially in the output buffer - where 'in' is a commond English word. - - * ESS: Font-lock keywords are now generated lazily. That means you - can now add or remove keywords from variables like 'ess-R-keywords' - in your Emacs configuration file after loading ESS (i.e. in the - ':config' section for 'use-package' users). - - * ESS[R]: Fontification of roxygen '@param' keywords now supports - comma-separated parameters. - - * ESS[R]: Certain keywords are only fontified if followed by a - parenthesis. Function-like keywords such as 'if ()' or 'stop()' - are no longer fontified as keyword if not followed by an opening - parenthesis. The same holds for search path modifiers like - 'library()' or 'require()'. - - * ESS[R]: Fixed fontification toggling. Especially certain syntactic - elements such as '%op%' operators and backquoted function - definitions. - - * ESS[R]: 'ess-font-lock-toggle-keyword' can be called interactively. - This command asks with completion for a font-lock group to toggle. - This functionality is equivalent to the font-lock menu. - - Notable bug fixes: - - * 'prettify-symbols-mode' no longer breaks indentation. This is - accomplished by having the pretty symbols occupy the same number of - characters as their non-pretty cousins. You may customize the new - variable 'ess-r-prettify-symbols' to control this behavior. - - * ESS: Inferior process buffers are now always displayed on startup. - Additionally, they don't hang Emacs on failures. - - Obsolete libraries, functions, and variables: - - * The 'ess-r-args.el' library has been obsoleted and will be removed - in the next release. Use 'eldoc-mode' instead, which is on by - default. - - * Functions and options dealing with the smart assign key are - obsolete. The following functions have been made obsolete and will - be removed in the next release of ESS: 'ess-smart-S-assign', - 'ess-toggle-S-assign', 'ess-toggle-S-assign-key', - 'ess-disable-smart-S-assign'. - - The variable 'ess-smart-S-assign-key' is now deprecated and will be - removed in the next release. If you would like to continue using - '_' for insterting assign in future releases, please bind - 'ess-insert-assign' in 'ess-mode-map' the normal way. - - * ESS[S]: Variable 'ess-s-versions-list' is obsolete and ignored. - Use 'ess-s-versions' instead. You may pass arguments by starting - the inferior process with the universal argument. - - Changes and New Features in 17.11: - - * The ESS initialisation process has been streamlined. You can now - load the R and Stata modes independently from the rest of ESS. Just - put '(require 'ess-r-mode)' or '(require 'ess-stata-mode)' in your - init file. This is for experienced Emacs users as this requires - setting up autoloads for '.R' files manually. We will keep - maintaining 'ess-site' for easy loading of all ESS features. - - * Reloading and quitting the process is now more robust. If no - process is attached, ESS now switches automatically to one - (prompting you for selection if there are several running). - Reloading and quitting will now work during a debug session or when - R is prompting for input (for instance after a crash). Finally, - the window configuration is saved and restored after reloading to - prevent the buffer of the new process from capturing the cursor. - - * ESS[R]: New command 'ess-r-package-use-dir'. It sets the working - directory of the current process to the current package directory. - - * ESS[R] Lookup for references in inferior buffers has been improved. - New variable 'ess-r-package-source-roots' contains package - sub-directories which are searched recursively during the file - lookup point. Directories in 'ess-tracebug-search-path' are now - also searched recursively. - - * ESS[R] Namespaced evaluation is now automatically enabled only in - the 'R/' directory. This way ESS will not attempt to update - function definitions from a package if you are working from e.g. a - test file. - - Changes and New Features in 16.10: - - * ESS[R]: Syntax highlighting is now more consistent. Backquoted - names are not fontified as strings (since they really are - identifiers). Furthermore they are now correctly recognised when - they are function definitions or function calls. - * ESS[R]: Backquoted names and '%op%' operators are recognised as - sexp. This is useful for code navigation, e.g. with 'C-M-f' and - 'C-M-b'. - * ESS[R]: Integration of outline mode with roxygen examples fields. - You can use outline mode's code folding commands to fold the - examples field. This is especially nice to use with well - documented packages with long examples set. Set - 'ess-roxy-fold-examples' to non-nil to automatically fold the - examples field when you open a buffer. - * ESS[R]: New experimental feature: syntax highlighting in roxygen - examples fields. This is turned off by default. Set - 'ess-roxy-fontify-examples' to non-nil to try it out. - * ESS[R]: New package development command 'ess-r-devtools-ask' bound - to 'C-c C-w C-a'. It asks with completion for any devtools command - that takes 'pkg' as argument. - * ESS[R]: New command 'C-c C-e C-r' to reload the inferior process. - Currently only implemented for R. The R method runs - 'inferior-ess-r-reload-hook' on reloading. - * ESS[R]: 'ess-r-package-mode' is now activated in non-file buffers - as well. - - Bug fixes in 16.10: - * ESS[R]: Fix broken (un)flagging for debugging inside packages - * ESS[R]: Fixes (and improvements) in Package development - * ESS[R]: Completion no longer produces '...=' inside 'list( )'. - * ESS[R]: Better debugging and tracing in packages. - * ESS[R]: Better detection of symbols at point. - * ESS[R]: No more spurious warnings on deletion of temporary files. - * ESS[julia]: help and completion work (better) - * ESS[julia]: available via 'ess-remote' - - Changes and New Features in 16.04: - - * ESS[R]: 'developer' functionality has been refactored. The new - user interface consists of a single command - 'ess-r-set-evaluation-env' bound by default to 'C-c C-t C-s'. Once - an evaluation environment has been set with, all subsequent ESS - evaluation will source the code into that environment. By default, - for file within R packages the evaluation environment is set to the - package environment. Set 'ess-r-package-auto-set-evaluation-env' - to 'nil' to disable this. - * ESS[R]: New 'ess-r-package-mode' This development mode provides - features to make package development easier. Currently, most of - the commands are based on the 'devtools' packages and are - accessible with 'C-c C-w' prefix. See the documentation of - 'ess-r-package-mode' function for all available commands. With - 'C-u' prefix each command asks for extra arguments to the - underlying devtools function. This mode is automatically enabled - in all files within R packages and is indicated with '[pkg:NAME]' - in the mode-line. - * ESS[R]: Help lookup has been improved. It is now possible to get - help for namespaced objects such as pkg::foobar. Furthermore, ESS - recognizes more reliably when you change 'options('html_type')'. - * ESS[R]: New specialized breakpoints for debugging magrittr pipes - * ESS: ESS now implements a simple message passing interface to - communicate between ESS and inferior process. - - Bug fixes in 16.04: - * ESS[R]: Roxygen blocks with backtics are now correctly filled - * ESS[R]: Don't skip breakpoints in magrittr's 'debug_pipe' - * ESS[R]: Error highlighting now understands 'testthat' type errors - * ESS[Julia]: Added getwd and setwd generic commands - - - -Tag Table: -Node: Announce75 -Node: Latest Version1303 -Node: Installing from a third-party repository2246 -Node: Installing from source3197 -Node: Activating and Loading ESS4793 -Node: Check Installation5871 -Node: Current Features6095 -Node: Requirements7638 -Node: Mailing List8073 -Node: Reporting Bugs8799 -Node: Authors9679 -Node: License10363 -Node: New Features11013 - -End Tag Table diff --git a/elpa/ess-20181109.703/authors.info b/elpa/ess-20181109.703/authors.info deleted file mode 100644 index 9db52814..00000000 --- a/elpa/ess-20181109.703/authors.info +++ /dev/null @@ -1,19 +0,0 @@ -This is authors.info, produced by makeinfo version 6.5 from -authors.texi. - - * A.J. Rossini (mailto:blindglobe@gmail.com) - * Richard M. Heiberger (mailto:rmh@temple.edu) - * Kurt Hornik (mailto:Kurt.Hornik@R-project.org) - * Martin Maechler (mailto:maechler@stat.math.ethz.ch) - * Rodney A. Sparapani (mailto:rsparapa@mcw.edu) - * Stephen Eglen (mailto:stephen@gnu.org) - * Sebastian P. Luque (mailto:spluque@gmail.com) - * Henning Redestig (mailto:henning.red@googlemail.com) - * Vitalie Spinu (mailto:spinuvit@gmail.com) - * Lionel Henry (mailto:lionel.hry@gmail.com) - * J. Alexander Branham (mailto:alex.branham@gmail.com) - - -Tag Table: - -End Tag Table diff --git a/elpa/ess-20181109.703/bugrept.info b/elpa/ess-20181109.703/bugrept.info deleted file mode 100644 index 0da6c159..00000000 --- a/elpa/ess-20181109.703/bugrept.info +++ /dev/null @@ -1,26 +0,0 @@ -This is bugrept.info, produced by makeinfo version 6.5 from -bugrept.texi. - -Please send bug reports, suggestions etc. to , -or post them on our github issue tracker -(https://github.com/emacs-ess/ESS/issues) - - The easiest way to do this is within Emacs by typing - - 'M-x ess-submit-bug-report' - - This also gives the maintainers valuable information about your -installation which may help us to identify or even fix the bug. - - If Emacs reports an error, backtraces can help us debug the problem. -Type "M-x set-variable RET debug-on-error RET t RET". Then run the -command that causes the error and you should see a *Backtrace* buffer -containing debug information; send us that buffer. - - Note that comments, suggestions, words of praise and large cash -donations are also more than welcome. - - -Tag Table: - -End Tag Table diff --git a/elpa/ess-20181109.703/credits.info b/elpa/ess-20181109.703/credits.info deleted file mode 100644 index 254e77f4..00000000 --- a/elpa/ess-20181109.703/credits.info +++ /dev/null @@ -1,81 +0,0 @@ -This is credits.info, produced by makeinfo version 6.5 from -credits.texi. - -The ESS environment is built on the open-source projects of many -contributors, dating back to 1989 where Doug Bates and Ed Kademan wrote -S-mode to edit S and Splus files in GNU Emacs. Frank Ritter and Mike -Meyer added features, creating version 2. Meyer and David Smith made -further contributions, creating version 3. For version 4, David Smith -provided significant enhancements to allow for powerful process -interaction. - - John Sall wrote GNU Emacs macros for SAS source code around 1990. -Tom Cook added functions to submit jobs, review listing and log files, -and produce basic views of a dataset, thus creating a SAS-mode which was -distributed in 1994. - - In 1994, A.J. Rossini extended S-mode to support XEmacs. Together -with extensions written by Martin Maechler, this became version 4.7 and -supported S, Splus, and R. In 1995, Rossini extended SAS-mode to work -with XEmacs. - - In 1997, Rossini merged S-mode and SAS-mode into a single Emacs -package for statistical programming; the product of this marriage was -called ESS version 5. Richard M. Heiberger designed the inferior mode -for interactive SAS and SAS-mode was further integrated into ESS. Thomas -Lumley's Stata mode, written around 1996, was also folded into ESS. More -changes were made to support additional statistical languages, -particularly XLispStat. - - ESS initially worked only with Unix statistics packages that used -standard-input and standard-output for both the command-line interface -and batch processing. ESS could not communicate with statistical -packages that did not use this protocol. This changed in 1998 when -Brian Ripley demonstrated use of the Windows Dynamic Data Exchange (DDE) -protocol with ESS. Heiberger then used DDE to provide interactive -interfaces for Windows versions of Splus. In 1999, Rodney A. Sparapani -and Heiberger implemented SAS batch for ESS relying on files, rather -than standard-input/standard-output, for Unix, Windows and Mac. In -2001, Sparapani added BUGS batch file processing to ESS for Unix and -Windows. - - * The multiple process code, and the idea for - 'ess-eval-line-and-next-line' are by Rod Ball. - - * Thanks to Doug Bates for many useful suggestions. - - * Thanks to Martin Maechler for reporting and fixing bugs, providing - many useful comments and suggestions, and for maintaining the ESS - mailing lists. - - * Thanks to Frank Ritter for updates, particularly the menu code, and - invaluable comments on the manual. - - * Thanks to Ken'ichi Shibayama for his excellent indenting code, and - many comments and suggestions. - - * Thanks to Aki Vehtari for adding interactive BUGS support. - - * Thanks to Brendan Halpin for bug-fixes and updates to Stata-mode. - - * Last, but definitely not least, thanks to the many ESS users and - contributors to the ESS mailing lists. - - _ESS_ is being developed and currently maintained by - - * A.J. Rossini (mailto:blindglobe@gmail.com) - * Richard M. Heiberger (mailto:rmh@temple.edu) - * Kurt Hornik (mailto:Kurt.Hornik@R-project.org) - * Martin Maechler (mailto:maechler@stat.math.ethz.ch) - * Rodney A. Sparapani (mailto:rsparapa@mcw.edu) - * Stephen Eglen (mailto:stephen@gnu.org) - * Sebastian P. Luque (mailto:spluque@gmail.com) - * Henning Redestig (mailto:henning.red@googlemail.com) - * Vitalie Spinu (mailto:spinuvit@gmail.com) - * Lionel Henry (mailto:lionel.hry@gmail.com) - * J. Alexander Branham (mailto:alex.branham@gmail.com) - - -Tag Table: - -End Tag Table diff --git a/elpa/ess-20181109.703/currfeat.info b/elpa/ess-20181109.703/currfeat.info deleted file mode 100644 index 63300d7c..00000000 --- a/elpa/ess-20181109.703/currfeat.info +++ /dev/null @@ -1,42 +0,0 @@ -This is currfeat.info, produced by makeinfo version 6.5 from -currfeat.texi. - - * Languages Supported: - * S family (R, S, and S+ AKA S-PLUS) - * SAS - * BUGS/JAGS - * Stata - * Julia - * Editing source code (S family, SAS, BUGS/JAGS, Stata, Julia) - * Syntactic indentation and highlighting of source code - * Partial evaluation of code - * Loading and error-checking of code - * Source code revision maintenance - * Batch execution (SAS, BUGS/JAGS) - * Use of imenu to provide links to appropriate functions - * Interacting with the process (S family, SAS, Stata, Julia) - * Command-line editing - * Searchable Command history - * Command-line completion of S family object names and file - names - * Quick access to object lists and search lists - * Transcript recording - * Interface to the help system - * Transcript manipulation (S family, Stata) - * Recording and saving transcript files - * Manipulating and editing saved transcripts - * Re-evaluating commands from transcript files - * Interaction with Help Pages and other Documentation (R) - * Fast Navigation - * Sending Examples to running ESS process. - * Fast Transfer to Further Help Pages - * Help File Editing (R) - * Syntactic indentation and highlighting of source code. - * Sending Examples to running ESS process. - * Previewing - - - -Tag Table: - -End Tag Table diff --git a/elpa/ess-20181109.703/dir b/elpa/ess-20181109.703/dir deleted file mode 100644 index 3623cfa5..00000000 --- a/elpa/ess-20181109.703/dir +++ /dev/null @@ -1,19 +0,0 @@ -This is the file .../info/dir, which contains the -topmost node of the Info hierarchy, called (dir)Top. -The first time you invoke Info you start off looking at this node. - -File: dir, Node: Top, This is the top of the INFO tree - - This (the Directory node) gives a menu of major topics. - Typing "q" exits, "?" lists all Info commands, "d" returns here, - "h" gives a primer for first-timers, - "mEmacs" visits the Emacs manual, etc. - - In Emacs, you can click mouse button 2 on a menu item or cross reference - to select it. - -* Menu: - -Emacs -* ESS: (ess). Emacs Speaks Statistics (R/S/S+, SAS, - BUGS/JAGS and Stata). diff --git a/elpa/ess-20181109.703/ess-arc-d.el b/elpa/ess-20181109.703/ess-arc-d.el deleted file mode 100644 index 823e77bb..00000000 --- a/elpa/ess-20181109.703/ess-arc-d.el +++ /dev/null @@ -1,84 +0,0 @@ -;;; ess-arc-d.el --- ARC customization - -;; Copyright (C) 2000 A. J. Rossini -;; Copyright (C) 2001--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 30 Jun 2000 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - - -;;; Commentary: - -;; This file extends the XLispStat configuration for ARC, the extension of the -;; R-Code. - -;;; Code: - -(require 'ess-lsp-l) -(require 'ess-inf) -(declare-function ess-write-to-dribble-buffer "ess-utils") -(defvar ess-customize-alist) -(defvar ess-dialect) - -(defvar ARC-customize-alist - '((ess-customize-alist . ARC-customize-alist ) - (ess-language . "XLS" ) - (ess-dialect . "ARC" ) - (ess-object-name-db-file . "ess-xls-namedb.el" ) - (ess-help-sec-regex . " ") - (ess-help-sec-keys-alist . " ") - (inferior-ess-primary-prompt . "> ?" ) - (comint-use-prompt-regexp . t) - (inferior-ess-program . inferior-ARC-program) - (inferior-ess-help-command . "(help '%s)\n" ) - (inferior-ess-objects-command . "(variables)\n" ) - (inferior-ess-exit-command . "(exit)\n" ) - ;;(inferior-ess-start-args . nil) - (inferior-ess-start-file . nil)) ; "~/.ess-ARC") - - "Variables to customize for ARC, a dialect of XLS.") - - -(defun ARC-mode (&optional proc-name) - "Major mode for editing ARC source. NOT EVEN STARTED." - (interactive) - (setq ess-customize-alist ARC-customize-alist) - (lisp-mode)) - - -(defun ARC () - "Call 'ARC', the extend XLispStat statistical system, from Forrest Young." - - (interactive) - (setq ess-customize-alist ARC-customize-alist) - (ess-write-to-dribble-buffer - (format "(ARC): ess-dialect=%s , buf=%s\n" - ess-dialect (current-buffer))) - (inferior-ess)) - -(fset 'arc 'ARC) - - ; Provide package - -(provide 'ess-arc-d) - -;;; ess-arc-d.el ends here diff --git a/elpa/ess-20181109.703/ess-autoloads.el b/elpa/ess-20181109.703/ess-autoloads.el deleted file mode 100644 index af44f7e1..00000000 --- a/elpa/ess-20181109.703/ess-autoloads.el +++ /dev/null @@ -1,978 +0,0 @@ -;;; ess-autoloads.el --- automatically extracted autoloads -;; -;;; Code: - -(add-to-list 'load-path (directory-file-name - (or (file-name-directory #$) (car load-path)))) - - -;;;### (autoloads nil "ess" "ess.el" (0 0 0 0)) -;;; Generated autoloads from ess.el - -(autoload 'ess-mode "ess" "\ -Major mode for editing ESS source. -Optional arg ALIST describes how to customize the editing mode. -Optional arg PROC-NAME is name of associated inferior process. - -\\{ess-mode-map} - -Extra binding to note: 'ESC C-\\' indent-region. - -Entry to this mode runs the hooks in ess-mode-hook. - -You can send text to the inferior ESS process from other buffers containing -ESS source. - `ess-eval-region' sends the current region to the ESS process. - `ess-eval-buffer' sends the current buffer to the ESS process. - `ess-eval-function' sends the current function to the ESS process. - `ess-eval-line' sends the current line to the ESS process. - `ess-beginning-of-function' and `ess-end-of-function' move the point to - the beginning and end of the current ESS function. - `ess-switch-to-ESS' switches the current buffer to the ESS process buffer. - `ess-switch-to-end-of-ESS' switches the current buffer to the ESS process - buffer and puts point at the end of it. - - `ess-eval-region-and-go', `ess-eval-buffer-and-go', - `ess-eval-function-and-go', and `ess-eval-line-and-go' switch to the S - process buffer after sending their text. - - `ess-load-file' sources a file of commands to the ESS process. - -\\[ess-indent-command] indents for ESS code. -\\[backward-delete-char-untabify] converts tabs to spaces as it moves back. -Comments are indented in a similar way to Emacs-lisp mode: - `###' beginning of line - `##' the same level of indentation as the code - `#' the same column on the right, or to the right of such a - column if that is not possible.(default value 40). - \\[indent-for-comment] command automatically inserts such a - `#' in the right place, or aligns such a comment if it is - already inserted. -\\[ess-indent-exp] command indents each line of the syntactic unit following point. - -Variables controlling indentation style: - `ess-tab-always-indent' - Non-nil means TAB in ESS mode should always reindent the current line, - regardless of where in the line point is when the TAB command is used. - `ess-auto-newline' - Non-nil means automatically newline before and after braces inserted in S - code. - `ess-indent-offset' - Indentation of ESS statements within surrounding block. - The surrounding block's indentation is the indentation of the line on - which the open-brace appears. - `ess-offset-block' - Indentation of blocks opened with curly braces or anonymous parentheses. - `ess-offset-arguments' - Indentation of function arguments or bracket indices. - `ess-offset-arguments-newline' - Indentation of function arguments or bracket indices when the opening - delimiter is immediately followed by a newline. - `ess-offset-continued' - Indentation style for continued statements. - `ess-align-nested-calls' - Functions whose nested calls should be aligned. - `ess-align-arguments-in-calls' - Calls in which arguments should be aligned. - `ess-align-continuations-in-calls' - Whether ignore indentation after an operator in calls - `ess-align-blocks' - Blocks that should always be aligned vertically. - `ess-indent-from-lhs' - Whether function calls given as argument should be indented from the - parameter name. - `ess-indent-from-chain-start' - Whether to indent arguments from the first of several consecutive calls. - `ess-indent-with-fancy-comments' - Non-nil means distinguish between #, ##, and ### for indentation. - -Furthermore, \\[ess-set-style] command enables you to set up predefined ess-mode -indentation style. At present, predefined style are `BSD', `GNU', `K&R', `C++', -`CLB' (quoted from C language style). - -\(fn &optional ALIST PROC-NAME IS-DERIVED)" nil nil) - -(autoload 'ess-dump-object-into-edit-buffer "ess" "\ -Edit an ESS OBJECT in its own buffer. -Without a prefix argument, this simply finds the file pointed to by -`ess-source-directory'. If this file does not exist, or if a -prefix argument is given, a dump() command is sent to the ESS process to -generate the source buffer. - -\(fn OBJECT)" t nil) - -(autoload 'ess-version "ess" "\ -Return a string with ESS version information. - -\(fn)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-arc-d" "ess-arc-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-arc-d.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-arc-d" '("ARC"))) - -;;;*** - -;;;### (autoloads nil "ess-bugs-d" "ess-bugs-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-bugs-d.el - -(autoload 'ess-bugs-mode "ess-bugs-d" "\ -ESS[BUGS]: Major mode for BUGS. - -\(fn)" t nil) - -(add-to-list 'auto-mode-alist '("\\.[Bb][Uu][Gg]\\'" . ess-bugs-mode)) - -(add-to-list 'auto-mode-alist '("\\.[Bb][Oo][Gg]\\'" . ess-bugs-mode)) - -(add-to-list 'auto-mode-alist '("\\.[Bb][Mm][Dd]\\'" . ess-bugs-mode)) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-bugs-d" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-bugs-l" "ess-bugs-l.el" (0 0 0 0)) -;;; Generated autoloads from ess-bugs-l.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-bugs-l" '("ess-bugs-"))) - -;;;*** - -;;;### (autoloads nil "ess-custom" "ess-custom.el" (0 0 0 0)) -;;; Generated autoloads from ess-custom.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-custom" '("ess-" "inferior-" "comint-highlight-prompt" "SAS-mode-hook" "S+" "S-" "Rnw-mode-hook" "R-"))) - -;;;*** - -;;;### (autoloads nil "ess-dde" "ess-dde.el" (0 0 0 0)) -;;; Generated autoloads from ess-dde.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-dde" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-font-lock" "ess-font-lock.el" (0 0 0 0)) -;;; Generated autoloads from ess-font-lock.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-font-lock" '("ess-font-lock-"))) - -;;;*** - -;;;### (autoloads nil "ess-generics" "ess-generics.el" (0 0 0 0)) -;;; Generated autoloads from ess-generics.el - -(autoload 'ess-defgeneric "ess-generics" "\ -Define a new function, as with `defun', which can be overloaded. -NAME is the name of the function to create. ARGS are the -arguments to the function. DOCSTRING is a documentation string to -describe the function. The docstring will automatically have -details about its overload symbol appended to the end. BODY is -code that would be run when there is no override defined. The -default is to signal error if {name}-function is not defined. - -\(fn NAME ARGS DOCSTRING &rest BODY)" nil t) - -(function-put 'ess-defgeneric 'doc-string-elt '3) - -(function-put 'ess-defgeneric 'lisp-indent-function 'defun) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-generics" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-gretl" "ess-gretl.el" (0 0 0 0)) -;;; Generated autoloads from ess-gretl.el - -(autoload 'gretl-mode "ess-gretl" "\ -Major mode for editing gretl source. See `ess-mode' for more help. - -\(fn &optional PROC-NAME)" t nil) - -(autoload 'gretl "ess-gretl" "\ -Call 'gretl', -Optional prefix (C-u) allows to set command line arguments, such as ---vsize. This should be OS agnostic. -If you have certain command line arguments that should always be passed -to gretl, put them in the variable `inferior-gretl-args'. - -\(fn &optional START-ARGS)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-gretl" '("ess-gretl-post-run-hook" "inferior-gretl-args" "gretl-"))) - -;;;*** - -;;;### (autoloads nil "ess-help" "ess-help.el" (0 0 0 0)) -;;; Generated autoloads from ess-help.el - -(autoload 'ess-display-help-on-object "ess-help" "\ -Display documentation for OBJECT in another window. -If prefix arg is given, force an update of the cached help topics -and query the ESS process for the help file instead of reusing an -existing buffer if it exists. Uses the variable -`inferior-ess-help-command' for the actual help command. Prompts -for the object name based on the cursor location for all cases -except the S-Plus GUI. With S-Plus on Windows (both GUI and in an -inferior Emacs buffer) the GUI help window is used. If COMMAND is -suplied, it is used instead of `inferior-ess-help-command'. - -\(fn OBJECT &optional COMMAND)" t nil) - -(defalias 'ess-help 'ess-display-help-on-object) - -(autoload 'ess-helpobjs-at-point "ess-help" "\ -Return a list (def obj fun). -Obj is a name at point, fun is the name of the function call -point is in, and def is either obj or fun (in that order) which -has a a help file, i.e. it is a member of slist (string-list). -nil otherwise. - -\(fn SLIST)" nil nil) - -(autoload 'ess-goto-info "ess-help" "\ -Display node NODE from `ess-mode' info. - -\(fn NODE)" nil nil) - -(autoload 'ess-submit-bug-report "ess-help" "\ -Submit a bug report to the ESS maintainers. - -\(fn)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-help" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-inf" "ess-inf.el" (0 0 0 0)) -;;; Generated autoloads from ess-inf.el - -(autoload 'ess-proc-name "ess-inf" "\ -Return name of process N, as a string, with NAME prepended. -If `ess-plain-first-buffername', then initial process is number-free. - -\(fn N NAME)" nil nil) - -(autoload 'inferior-ess "ess-inf" "\ -Start inferior ESS process. - -Without a prefix argument, starts a new ESS process, or switches -to the ESS process associated with the current buffer. With -ESS-START-ARGS (perhaps specified via \\[universal-argument]), -starts the process with those args. The current buffer is used -if it is an `inferior-ess-mode' or `ess-transcript-mode' buffer. - -If `ess-ask-about-transfile' is non-nil, you will be asked for a -transcript file to use. If there is no transcript file, the -buffer name will be like *R* or *R2*, determined by -`ess-gen-proc-buffer-name-function'. - -Takes the program name from the variable `inferior-ess-program'. -An initialization file (dumped into the process) is specified by -`inferior-ess-start-file', and `inferior-ess-start-args' is used -to accompany the call for `inferior-ess-program'. - -When creating a new process, the process buffer replaces the -current window if `inferior-ess-same-window' is non-nil. -Alternatively, it can appear in its own frame if -`inferior-ess-own-frame' is non-nil. - -\(Type \\[describe-mode] in the process buffer for a list of -commands.) - -CUSTOMIZE-ALIST is the list of dialect-specific variables. When -non-nil, NO-WAIT tells ESS not to wait for the process to finish. -This may be useful for debugging. - -\(fn &optional ESS-START-ARGS CUSTOMIZE-ALIST NO-WAIT)" t nil) - -(ess-defgeneric ess-load-file (&optional filename) "Load a source file into an inferior ESS process.\nThis handles Tramp when working on a remote." (interactive (list (or (and (memq major-mode '(ess-mode ess-julia-mode)) (buffer-file-name)) (expand-file-name (read-file-name "Load source file: " nil nil t))))) (ess-load-file--normalise-buffer filename) (save-selected-window (ess-switch-to-ESS t)) (:override (let ((file (ess-load-file--normalise-file filename))) (let ((command (ess-build-load-command file nil t))) (ess-send-string (ess-get-process) command t))))) - -(autoload 'inferior-ess-mode "ess-inf" "\ -Major mode for interacting with an inferior ESS process. -Runs an S interactive job as a subprocess of Emacs, with I/O through an -Emacs buffer. Variable `inferior-ess-program' controls which S -is run. - -Commands are sent to the ESS process by typing them, and pressing -\\[inferior-ess-send-input]. Pressing \\[complete-dynamic-complete] -completes known object names or filenames, as appropriate. Other -keybindings for this mode are: - -\\{inferior-ess-mode-map} - -When editing S objects, the use of \\[ess-load-file] is advocated. -`ess-load-file' keeps source files (if `ess-keep-dump-files' is non-nil) in -the directory specified by `ess-source-directory', with the -filename chosen according to `ess-dump-filename-template'. When a file is -loaded, `ess-mode' parses error messages and jumps to the appropriate file -if errors occur. The ess-eval- commands do not do this. - -Customization: Entry to this mode runs the hooks on `comint-mode-hook' and -`inferior-ess-mode-hook' (in that order). - -You can send text to the inferior ESS process from other buffers -containing source code. The key bindings of these commands can be -found by typing \\[describe-mode]. - - `ess-eval-region' sends the current region to the ESS process. - `ess-eval-buffer' sends the current buffer to the ESS process. - `ess-eval-function' sends the current function to the ESS process. - `ess-eval-line' sends the current line to the ESS process. - `ess-beginning-of-function' and `ess-end-of-function' move the point to - the beginning and end of the current S function. - `ess-switch-to-ESS' switches the current buffer to the ESS process buffer. - `ess-switch-to-end-of-ESS' switches the current buffer to the ESS process - buffer and puts point at the end of it. - - `ess-eval-region-and-go', `ess-eval-buffer-and-go', - `ess-eval-function-and-go', and `ess-eval-line-and-go' switch to the S - process buffer after sending their text. - `ess-dump-object-into-edit-buffer' moves an S object into a temporary file - and buffer for editing - `ess-load-file' sources a file of commands to the ESS process. - -Commands: -Return after the end of the process' output sends the text from the - end of process to point. -Return before the end of the process' output copies the sexp ending at point - to the end of the process' output, and sends it. -Delete converts tabs to spaces as it moves back. -C-M-q does Tab on each line starting within following expression. -Paragraphs are separated only by blank lines. Crosshatches start comments. -If you accidentally suspend your process, use \\[comint-continue-subjob] -to continue it. - -\(fn)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-inf" '("ess-" "inferior-ess-" "update-ess-process-name-list" "with-ess-process-buffer"))) - -;;;*** - -;;;### (autoloads nil "ess-jags-d" "ess-jags-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-jags-d.el - -(autoload 'ess-jags-mode "ess-jags-d" "\ -ESS[JAGS]: Major mode for JAGS. - -\(fn)" t nil) - -(add-to-list 'auto-mode-alist '("\\.[Jj][Aa][Gg]\\'" . ess-jags-mode)) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-jags-d" '("ess-jags-"))) - -;;;*** - -;;;### (autoloads nil "ess-julia" "ess-julia.el" (0 0 0 0)) -;;; Generated autoloads from ess-julia.el - -(autoload 'ess-julia-mode "ess-julia" "\ -Major mode for editing julia source. See `ess-mode' for more help. - -\(fn)" t nil) - -(autoload 'julia "ess-julia" "\ -Call 'julia'. -Optional prefix (C-u) allows to set command line arguments, such as ---load=. This should be OS agnostic. -If you have certain command line arguments that should always be passed -to julia, put them in the variable `inferior-julia-args'. - -\(fn &optional START-ARGS)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-julia" '("ess-" "company-ess-julia-objects" "ac-source-ess-julia-objects" "inferior-julia-args"))) - -;;;*** - -;;;### (autoloads nil "ess-lsp-l" "ess-lsp-l.el" (0 0 0 0)) -;;; Generated autoloads from ess-lsp-l.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-lsp-l" '("Lisp-editing-alist"))) - -;;;*** - -;;;### (autoloads nil "ess-mouse" "ess-mouse.el" (0 0 0 0)) -;;; Generated autoloads from ess-mouse.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-mouse" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-noweb" "ess-noweb.el" (0 0 0 0)) -;;; Generated autoloads from ess-noweb.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-noweb" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-noweb-font-lock-mode" "ess-noweb-font-lock-mode.el" -;;;;;; (0 0 0 0)) -;;; Generated autoloads from ess-noweb-font-lock-mode.el - -(autoload 'ess-noweb-font-lock-mode "ess-noweb-font-lock-mode" "\ -Minor mode for syntax highlighting when using `ess-noweb-mode' to edit noweb files. -Each chunk is fontified in accordance with its own mode. - -\(fn &optional ARG)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-noweb-font-lock-mode" '("ess-noweb-" "nwfl-donowt"))) - -;;;*** - -;;;### (autoloads nil "ess-noweb-mode" "ess-noweb-mode.el" (0 0 0 -;;;;;; 0)) -;;; Generated autoloads from ess-noweb-mode.el - -(autoload 'ess-noweb-mode "ess-noweb-mode" "\ -Minor meta mode for editing noweb files. -`Meta' refers to the fact that this minor mode is switching major -modes depending on the location of point. - -The following special keystrokes are available in noweb mode: - -Movement: -\\[ess-noweb-next-chunk] goto the next chunk -\\[ess-noweb-previous-chunk] goto the previous chunk -\\[ess-noweb-goto-previous] goto the previous chunk of the same name -\\[ess-noweb-goto-next] goto the next chunk of the same name -\\[ess-noweb-goto-chunk] goto a chunk -\\[ess-noweb-next-code-chunk] goto the next code chunk -\\[ess-noweb-previous-code-chunk] goto the previous code chunk -\\[ess-noweb-next-doc-chunk] goto the next documentation chunk -\\[ess-noweb-previous-doc-chunk] goto the previous documentation chunk - -Copying/Killing/Marking/Narrowing: -\\[ess-noweb-copy-chunk-as-kill] copy the chunk the point is in into the kill ring -\\[ess-noweb-copy-chunk-pair-as-kill] copy the pair of doc/code chunks the point is in -\\[ess-noweb-kill-chunk] kill the chunk the point is in -\\[ess-noweb-kill-chunk-pair] kill the pair of doc/code chunks the point is in -\\[ess-noweb-mark-chunk] mark the chunk the point is in -\\[ess-noweb-mark-chunk-pair] mark the pair of doc/code chunks the point is in -\\[ess-noweb-narrow-to-chunk] narrow to the chunk the point is in -\\[ess-noweb-narrow-to-chunk-pair] narrow to the pair of doc/code chunks the point is in -\\[widen] widen -\\[ess-noweb-toggle-narrowing] toggle auto narrowing - -Filling and Indenting: -\\[ess-noweb-fill-chunk] fill (or indent) the chunk at point according to mode -\\[ess-noweb-fill-paragraph-chunk] fill the paragraph at point, restricted to chunk -\\[ess-noweb-indent-line] indent the line at point according to mode - -Insertion: -\\[ess-noweb-insert-default-mode-line] insert a line to set this file's code mode -\\[ess-noweb-new-chunk] insert a new chunk at point -\\[ess-noweb-complete-chunk] complete the chunk name before point -\\[ess-noweb-electric-@] insert a `@' or start a new doc chunk -\\[ess-noweb-electric-<] insert a `<' or start a new code chunk - -Modes: -\\[ess-noweb-set-doc-mode] set the major mode for editing doc chunks -\\[ess-noweb-set-code-mode] set the major mode for editing code chunks -\\[ess-noweb-set-this-code-mode] set the major mode for editing this code chunk - -Misc: -\\[ess-noweb-occur] find all occurrences of the current chunk -\\[ess-noweb-update-chunk-vector] update the markers for chunks -\\[ess-noweb-describe-mode] describe ess-noweb-mode - -\(fn &optional ARG)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-noweb-mode" '("ess-noweb-"))) - -;;;*** - -;;;### (autoloads nil "ess-omg-d" "ess-omg-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-omg-d.el - -(autoload 'OMG-mode "ess-omg-d" "\ -Major mode for editing Omegahat source. NOT EVEN STARTED. - -\(fn &optional PROC-NAME)" t nil) - -(add-to-list 'auto-mode-alist '("\\.omg\\'" . omegahat-mode)) - -(add-to-list 'auto-mode-alist '("\\.hat\\'" . omegahat-mode)) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-omg-d" '("OMG"))) - -;;;*** - -;;;### (autoloads nil "ess-omg-l" "ess-omg-l.el" (0 0 0 0)) -;;; Generated autoloads from ess-omg-l.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-omg-l" '("ess-" "OMG-"))) - -;;;*** - -;;;### (autoloads nil "ess-r-a" "ess-r-a.el" (0 0 0 0)) -;;; Generated autoloads from ess-r-a.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-a" '("pd::set-up-demo" "ess"))) - -;;;*** - -;;;### (autoloads nil "ess-r-completion" "ess-r-completion.el" (0 -;;;;;; 0 0 0)) -;;; Generated autoloads from ess-r-completion.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-completion" '("ess-" "ac-source-R" "company-R-"))) - -;;;*** - -;;;### (autoloads nil "ess-r-flymake" "ess-r-flymake.el" (0 0 0 0)) -;;; Generated autoloads from ess-r-flymake.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-flymake" '("ess-r-"))) - -;;;*** - -;;;### (autoloads nil "ess-r-gui" "ess-r-gui.el" (0 0 0 0)) -;;; Generated autoloads from ess-r-gui.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-gui" '("Rgui" "ess-" "inferior-"))) - -;;;*** - -;;;### (autoloads nil "ess-r-mode" "ess-r-mode.el" (0 0 0 0)) -;;; Generated autoloads from ess-r-mode.el - -(defvar ess-dev-map (let (ess-dev-map) (define-prefix-command 'ess-dev-map) (define-key ess-dev-map "" 'ess-r-set-evaluation-env) (define-key ess-dev-map "s" 'ess-r-set-evaluation-env) (define-key ess-dev-map "T" 'ess-toggle-tracebug) (define-key ess-dev-map "\f" 'ess-r-devtools-load-package) (define-key ess-dev-map "l" 'ess-r-devtools-load-package) (define-key ess-dev-map "`" 'ess-show-traceback) (define-key ess-dev-map "~" 'ess-show-call-stack) (define-key ess-dev-map "" 'ess-watch) (define-key ess-dev-map "w" 'ess-watch) (define-key ess-dev-map "" 'ess-debug-flag-for-debugging) (define-key ess-dev-map "d" 'ess-debug-flag-for-debugging) (define-key ess-dev-map "" 'ess-debug-unflag-for-debugging) (define-key ess-dev-map "u" 'ess-debug-unflag-for-debugging) (define-key ess-dev-map [(control 68)] 'ess-debug-unflag-for-debugging) (define-key ess-dev-map "" 'ess-bp-set) (define-key ess-dev-map "b" 'ess-bp-set) (define-key ess-dev-map [(control 66)] 'ess-bp-set-conditional) (define-key ess-dev-map "B" 'ess-bp-set-conditional) (define-key ess-dev-map "\f" 'ess-bp-set-logger) (define-key ess-dev-map "L" 'ess-bp-set-logger) (define-key ess-dev-map "" 'ess-bp-toggle-state) (define-key ess-dev-map "o" 'ess-bp-toggle-state) (define-key ess-dev-map " " 'ess-bp-kill) (define-key ess-dev-map "k" 'ess-bp-kill) (define-key ess-dev-map " " 'ess-bp-kill-all) (define-key ess-dev-map "K" 'ess-bp-kill-all) (define-key ess-dev-map "" 'ess-bp-next) (define-key ess-dev-map "n" 'ess-bp-next) (define-key ess-dev-map "i" 'ess-debug-goto-input-event-marker) (define-key ess-dev-map "I" 'ess-debug-goto-input-event-marker) (define-key ess-dev-map "" 'ess-bp-previous) (define-key ess-dev-map "p" 'ess-bp-previous) (define-key ess-dev-map "" 'ess-debug-toggle-error-action) (define-key ess-dev-map "e" 'ess-debug-toggle-error-action) (define-key ess-dev-map "0" 'ess-electric-selection) (define-key ess-dev-map "1" 'ess-electric-selection) (define-key ess-dev-map "2" 'ess-electric-selection) (define-key ess-dev-map "3" 'ess-electric-selection) (define-key ess-dev-map "4" 'ess-electric-selection) (define-key ess-dev-map "5" 'ess-electric-selection) (define-key ess-dev-map "6" 'ess-electric-selection) (define-key ess-dev-map "7" 'ess-electric-selection) (define-key ess-dev-map "8" 'ess-electric-selection) (define-key ess-dev-map "9" 'ess-electric-selection) (define-key ess-dev-map "?" 'ess-tracebug-show-help) ess-dev-map) "\ -Keymap for commands related to development and debugging.") - -(autoload 'run-ess-r "ess-r-mode" "\ -Call 'R', the 'GNU S' system from the R Foundation. -Optional prefix (\\[universal-argument]) allows to set command line arguments, such as ---vsize. This should be OS agnostic. -If you have certain command line arguments that should always be passed -to R, put them in the variable `inferior-R-args'. - -START-ARGS can be a string representing an argument, a list of -such strings, or any other non-nil value. In the latter case, you -will be prompted to enter arguments interactively. - -\(fn &optional START-ARGS)" t nil) - -(defalias 'R #'run-ess-r) - -(autoload 'R-mode "ess-r-mode" "\ -Major mode for editing R source. See `ess-mode' for more help. - -\(fn &optional PROC-NAME)" t nil) - -(defalias 'r-mode #'R-mode) - -(defalias 'ess-r-mode #'R-mode) - -(add-to-list 'auto-mode-alist '("/R/.*\\.q\\'" . R-mode)) - -(add-to-list 'auto-mode-alist '("\\.[rR]\\'" . R-mode)) - -(add-to-list 'auto-mode-alist '("\\.[rR]profile\\'" . R-mode)) - -(add-to-list 'auto-mode-alist '("NAMESPACE\\'" . R-mode)) - -(add-to-list 'auto-mode-alist '("CITATION\\'" . R-mode)) - -(autoload 'Rnw-mode "ess-r-mode" "\ -Major mode for editing Sweave(R) source. -See `ess-noweb-mode' and `R-mode' for more help. - -\(fn)" t nil) - -(add-to-list 'auto-mode-alist '("\\.[rR]nw\\'" . Rnw-mode)) - -(add-to-list 'auto-mode-alist '("\\.[sS]nw\\'" . Snw-mode)) - -(autoload 'R-transcript-mode "ess-r-mode" "\ -Does the right thing. - -\(fn)" t nil) - -(add-to-list 'auto-mode-alist '("\\.[Rr]out" . R-transcript-mode)) - -(add-to-list 'interpreter-mode-alist '("Rscript" . R-mode)) - -(add-to-list 'interpreter-mode-alist '("r" . R-mode)) - -(add-to-list 'auto-mode-alist '("/Makevars\\(\\.win\\)?$" . makefile-mode)) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-mode" '("ess-" "inferior-ess-r-" "R-"))) - -;;;*** - -;;;### (autoloads nil "ess-r-package" "ess-r-package.el" (0 0 0 0)) -;;; Generated autoloads from ess-r-package.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-package" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-r-syntax" "ess-r-syntax.el" (0 0 0 0)) -;;; Generated autoloads from ess-r-syntax.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-syntax" '("ess-" "backward-ess-r-" "forward-ess-r-"))) - -;;;*** - -;;;### (autoloads nil "ess-r-xref" "ess-r-xref.el" (0 0 0 0)) -;;; Generated autoloads from ess-r-xref.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-xref" '("ess-r-xref-"))) - -;;;*** - -;;;### (autoloads nil "ess-rd" "ess-rd.el" (0 0 0 0)) -;;; Generated autoloads from ess-rd.el - -(autoload 'Rd-mode "ess-rd" "\ -Major mode for editing R documentation source files. - -This mode makes it easier to write R documentation by helping with -indentation, doing some of the typing for you (with Abbrev mode) and by -showing keywords, strings, etc. in different faces (with Font Lock mode -on terminals that support it). - -Type \\[list-abbrevs] to display the built-in abbrevs for Rd keywords. - -Keybindings -=========== - -\\{Rd-mode-map} - -Variables you can use to customize Rd mode -========================================== - -`Rd-indent-level' - Indentation of Rd code with respect to containing blocks. - Default is 2. - -Turning on Rd mode runs the hook `Rd-mode-hook'. - -To automatically turn on the abbrev(iate) features, add the -following lines to your `.emacs' file: - - (add-hook 'Rd-mode-hook - (lambda () - (abbrev-mode 1))) - -\(fn)" t nil) - -(add-to-list 'auto-mode-alist '("\\.Rd\\'" . Rd-mode)) - -(autoload 'Rd-preview-help "ess-rd" "\ -Preview the current Rd buffer contents as help. -If optional VIA-SHELL is set, using `Rd-to-help-command'. -If the current buffer is not associated with a file, create a -temporary one in `temporary-file-directory'. - -\(fn &optional VIA-SHELL)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-rd" '("Rd-" "ess"))) - -;;;*** - -;;;### (autoloads nil "ess-rdired" "ess-rdired.el" (0 0 0 0)) -;;; Generated autoloads from ess-rdired.el - -(autoload 'ess-rdired "ess-rdired" "\ -Run dired-like mode on R objects. -This is the main function. See documentation for `ess-rdired-mode' though -for more information! - -\(fn)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-rdired" '("ess-rdired-"))) - -;;;*** - -;;;### (autoloads nil "ess-roxy" "ess-roxy.el" (0 0 0 0)) -;;; Generated autoloads from ess-roxy.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-roxy" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-rutils" "ess-rutils.el" (0 0 0 0)) -;;; Generated autoloads from ess-rutils.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-rutils" '("ess-rutils-"))) - -;;;*** - -;;;### (autoloads nil "ess-s-lang" "ess-s-lang.el" (0 0 0 0)) -;;; Generated autoloads from ess-s-lang.el - -(add-to-list 'auto-mode-alist '("\\.[Ss]t\\'" . S-transcript-mode)) - -(add-to-list 'auto-mode-alist '("\\.Sout" . S-transcript-mode)) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-s-lang" '("ess-" "S+common-cust-alist" "S-" "inferior-S-language-start"))) - -;;;*** - -;;;### (autoloads nil "ess-s3-d" "ess-s3-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-s3-d.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-s3-d" 'nil)) - -;;;*** - -;;;### (autoloads nil "ess-s4-d" "ess-s4-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-s4-d.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-s4-d" 'nil)) - -;;;*** - -;;;### (autoloads nil "ess-sas-a" "ess-sas-a.el" (0 0 0 0)) -;;; Generated autoloads from ess-sas-a.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sas-a" '("ess-" "sas-program"))) - -;;;*** - -;;;### (autoloads nil "ess-sas-d" "ess-sas-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-sas-d.el - -(autoload 'SAS-mode "ess-sas-d" "\ -Major mode for editing SAS source. See ess-mode for more help. - -\(fn &optional PROC-NAME)" t nil) - -(add-to-list 'auto-mode-alist '("\\.[Ss][Aa][Ss]\\'" . SAS-mode)) - -(autoload 'SAS-menu "ess-sas-d" "\ -Start SAS from the menu. - -\(fn)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sas-d" '("ess-" "SAS" "inferior-SAS-args"))) - -;;;*** - -;;;### (autoloads nil "ess-sas-l" "ess-sas-l.el" (0 0 0 0)) -;;; Generated autoloads from ess-sas-l.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sas-l" '("ess-" "set-sas-file-" "submit-sas" "switch-to-" "sas-" "beginning-of-sas-" "backward-page-top-of-window" "fix-page-breaks" "forward-page-top-of-window" "next-sas-proc" "indent-sas-statement" "SAS-"))) - -;;;*** - -;;;### (autoloads nil "ess-site" "ess-site.el" (0 0 0 0)) -;;; Generated autoloads from ess-site.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-site" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-sp3-d" "ess-sp3-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-sp3-d.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sp3-d" '("S+3"))) - -;;;*** - -;;;### (autoloads nil "ess-sp4-d" "ess-sp4-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-sp4-d.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sp4-d" '("Sqpe+4" "S+4" "inferior-S+4-multipleinstances"))) - -;;;*** - -;;;### (autoloads nil "ess-sp5-d" "ess-sp5-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-sp5-d.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sp5-d" '("S+5"))) - -;;;*** - -;;;### (autoloads nil "ess-sp6-d" "ess-sp6-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-sp6-d.el - -(autoload 'S+-mode "ess-sp6-d" "\ -Major mode for editing S+ source. See `ess-mode' for more help. - -\(fn &optional PROC-NAME)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sp6-d" '("ess-" "S+"))) - -;;;*** - -;;;### (autoloads nil "ess-sp6w-d" "ess-sp6w-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-sp6w-d.el - -(add-to-list 'auto-mode-alist '("\\.sp\\'" . S-mode)) - -(add-to-list 'auto-mode-alist '("\\.[qsS]\\'" . S-mode)) - -(add-to-list 'auto-mode-alist '("\\.ssc\\'" . S-mode)) - -(add-to-list 'auto-mode-alist '("\\.SSC\\'" . S-mode)) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sp6w-d" '("S+" "Sqpe+" "ess-sqpe-versions-create" "inferior-S+"))) - -;;;*** - -;;;### (autoloads nil "ess-stata-lang" "ess-stata-lang.el" (0 0 0 -;;;;;; 0)) -;;; Generated autoloads from ess-stata-lang.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-stata-lang" '("ess-" "stata-" "STA-" "ado-set-font-lock-keywords"))) - -;;;*** - -;;;### (autoloads nil "ess-stata-mode" "ess-stata-mode.el" (0 0 0 -;;;;;; 0)) -;;; Generated autoloads from ess-stata-mode.el - -(autoload 'STA-mode "ess-stata-mode" "\ -Major mode for editing Stata source. See `ess-mode' for more help. - -\(fn &optional PROC-NAME)" t nil) - -(add-to-list 'auto-mode-alist '("\\.do\\'" . STA-mode)) - -(add-to-list 'auto-mode-alist '("\\.ado\\'" . STA-mode)) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-stata-mode" '("stata" "ess-" "STA-"))) - -;;;*** - -;;;### (autoloads nil "ess-swv" "ess-swv.el" (0 0 0 0)) -;;; Generated autoloads from ess-swv.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-swv" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-toolbar" "ess-toolbar.el" (0 0 0 0)) -;;; Generated autoloads from ess-toolbar.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-toolbar" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-tracebug" "ess-tracebug.el" (0 0 0 0)) -;;; Generated autoloads from ess-tracebug.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-tracebug" '("ess-" "org-" "inferior-ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-trns" "ess-trns.el" (0 0 0 0)) -;;; Generated autoloads from ess-trns.el - -(autoload 'ess-transcript-mode "ess-trns" "\ -Major mode for manipulating {ESS} transcript files. - -Type \\[ess-transcript-send-command] to send a command in the -transcript to the current S process. \\[ess-transcript-copy-command] -copies the command but does not execute it, allowing you to edit it in -the process buffer first. - -Type \\[ess-transcript-clean-region] to delete all outputs and prompts -in the region, leaving only the S commands. Other keybindings are: - -\\{ess-transcript-mode-map} - -\(fn ALIST &optional PROC)" nil nil) - -(autoload 'ess-transcript-clean-region "ess-trns" "\ -Strip the transcript in the region, leaving only (R/S/Lsp/..) commands. -Deletes any lines not beginning with a prompt, and then removes the -prompt from those lines that remain. Prefix argument means to -clean even if the buffer is \\[read-only]. - -\(fn BEG END EVEN-IF-READ-ONLY)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-trns" '("ess-transcript-"))) - -;;;*** - -;;;### (autoloads nil "ess-utils" "ess-utils.el" (0 0 0 0)) -;;; Generated autoloads from ess-utils.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-utils" '("ess-"))) - -;;;*** - -;;;### (autoloads nil "ess-vst-d" "ess-vst-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-vst-d.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-vst-d" '("VST-" "ViSta"))) - -;;;*** - -;;;### (autoloads nil "ess-xls-d" "ess-xls-d.el" (0 0 0 0)) -;;; Generated autoloads from ess-xls-d.el - -(autoload 'XLS-mode "ess-xls-d" "\ -Major mode for editing XLispStat source. NOT EVEN STARTED. - -\(fn &optional PROC-NAME)" t nil) - -(add-to-list 'auto-mode-alist '("\\.lsp\\'" . XLS-mode)) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-xls-d" '("xls-transcript-mode" "XLS" "ess-help-XLS-sec-keys-alist"))) - -;;;*** - -;;;### (autoloads nil "essd-els" "essd-els.el" (0 0 0 0)) -;;; Generated autoloads from essd-els.el - -(autoload 'ess-remote "essd-els" "\ -Execute this command from within a buffer running a process. It -runs `ess-add-ess-process' to add the process to -`ess-process-name-alist' and to make it the -`ess-current-process-name'. It then prompts the user for an ESS -language and sets the editing characteristics appropriately. - -To use this command, first start a process on a remote computer by -manual use of telnet, rlogin, ssh, or some other protocol. Start the -relevant program (\"S\" or \"R\" or \"sas -stdio\") in that buffer. Once -you are talking to S or R or SAS, then execute `ess-remote' to make -the current buffer an inferior-ess buffer with the right behavior for -the language you are currently working with. With S and R, use C-c -C-n to send lines over. With SAS, use C-c i -`ess-eval-line-and-step-invisibly' to send lines over invisibly. - -DIALECT is the desired ess-dialect. If nil, ask for dialect - -\(fn &optional PROC-NAME DIALECT)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "essd-els" '("ess-" "S+elsewhere" "inferior-ess-remote-pager"))) - -;;;*** - -;;;### (autoloads nil "make-regexp" "make-regexp.el" (0 0 0 0)) -;;; Generated autoloads from make-regexp.el - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "make-regexp" '("make-regexp" "regexp-span"))) - -;;;*** - -;;;### (autoloads nil "mouseme" "mouseme.el" (0 0 0 0)) -;;; Generated autoloads from mouseme.el - -(autoload 'mouse-me "mouseme" "\ -Popup a menu of functions to run on selected string or region. - -\(fn EVENT)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "mouseme" '("mouse-me-"))) - -;;;*** - -;;;### (autoloads nil nil ("ess-mode.el" "ess-pkg.el") (0 0 0 0)) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; coding: utf-8 -;; End: -;;; ess-autoloads.el ends here diff --git a/elpa/ess-20181109.703/ess-bugs-d.el b/elpa/ess-20181109.703/ess-bugs-d.el deleted file mode 100644 index e2021281..00000000 --- a/elpa/ess-20181109.703/ess-bugs-d.el +++ /dev/null @@ -1,310 +0,0 @@ -;;; ess-bugs-d.el --- ESS[BUGS] dialect - -;; Copyright (C) 2008-2011 Rodney Sparapani - -;; Author: Rodney Sparapani -;; Created: 13 March 2008 -;; Maintainer: ESS-help - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Code: - -(require 'ess-bugs-l) -(require 'ess-utils) -(require 'ess-inf) -(require 'ess-custom) -(require 'ess-mode) - -(setq auto-mode-alist - (append '(("\\.[bB][uU][gG]\\'" . ess-bugs-mode)) auto-mode-alist)) - -(defvar ess-bugs-command "OpenBUGS" "Default BUGS program in PATH.") -(make-local-variable 'ess-bugs-command) - -(defvar ess-bugs-monitor '("") "Default list of variables to monitor.") -(make-local-variable 'ess-bugs-monitor) - -(defvar ess-bugs-thin 1 "Default thinning parameter.") -(make-local-variable 'ess-bugs-thin) - -(defvar ess-bugs-chains 1 "Default number of chains.") -(make-local-variable 'ess-bugs-chains) - -(defvar ess-bugs-burnin 10000 "Default burn-in.") -(make-local-variable 'ess-bugs-burnin) - -(defvar ess-bugs-update 10000 "Default number of updates after burnin.") -(make-local-variable 'ess-bugs-update) - -(defvar ess-bugs-system nil "Default whether BUGS recognizes the system command.") - -(defvar ess-bugs-font-lock-keywords - (list - ;; .bug files - (cons "#.*\n" font-lock-comment-face) - - (cons "^[ \t]*\\(model\\|var\\)\\>" - font-lock-keyword-face) - - (cons (concat "\\ " ess-bugs-file-root ".bog 2>&1 " - ;; ess-bugs-batch-post-command "' > " ess-bugs-file-root ".bsh") - ;; (comint-send-input) - - ;; (insert "at -f " ess-bugs-file-root ".bsh now") - - ;; (comint-send-input) - - (insert "echo '" - ess-bugs-batch-pre-command " " bugs-command " < " - ess-bugs-file-root ".bmd > " ess-bugs-file-root ".bog 2>&1 " - ess-bugs-batch-post-command "' | at now") - - (comint-send-input) - )) - -(defun ess-bugs-na-bug () - "ESS[BUGS]: Perform Next-Action for .bug" - - (if (equal 0 (buffer-size)) (ess-bugs-switch-to-suffix ".bug") - ;else - (ess-save-and-set-local-variables) - (ess-bugs-switch-to-suffix ".bmd" - ess-bugs-chains ess-bugs-monitor ess-bugs-thin ess-bugs-burnin ess-bugs-update)) - ) - -;;;###autoload -(defun ess-bugs-mode () - "ESS[BUGS]: Major mode for BUGS." - (interactive) - (kill-all-local-variables) - (ess-setq-vars-local '((comment-start . "#"))) - (setq major-mode 'ess-bugs-mode) - (setq mode-name "ESS[BUGS]") - (use-local-map ess-bugs-mode-map) - (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults '(ess-bugs-font-lock-keywords nil t)) - (setq ess-language "S") ; mimic S for ess-smart-underscore - (run-mode-hooks 'ess-bugs-mode-hook) - - (unless (when (fboundp 'w32-shell-dos-semantics) - (w32-shell-dos-semantics)) - (add-hook 'comint-output-filter-functions 'ess-bugs-exit-notify-sh)) - ) - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[Bb][Uu][Gg]\\'" . ess-bugs-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[Bb][Oo][Gg]\\'" . ess-bugs-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[Bb][Mm][Dd]\\'" . ess-bugs-mode)) - -(defun ess-sci-to-dec () - "For BUGS/S family: Express +/-0.000E+/-0 or +/-0.0e+/-00 as a decimal." - (interactive) - (setq buffer-read-only nil) - (save-excursion (goto-char 0) - (save-match-data (let ((ess-temp-replacement-string nil) - (ess-temp-replacement-9 0) - (ess-temp-replacement-diff 0)) - (while (search-forward-regexp "-?[0-9][.][0-9][0-9]?[0-9]?[Ee][+-][0-9][0-9]?" nil t) - (setq ess-temp-replacement-string - (int-to-string (string-to-number (match-string 0)))) - (setq ess-temp-replacement-diff (- (match-end 0) (match-beginning 0))) - (save-match-data - (setq ess-temp-replacement-9 - (string-match "99999999999$" ess-temp-replacement-string)) - - (if (not ess-temp-replacement-9) - (setq ess-temp-replacement-9 - (string-match "000000000001$" ess-temp-replacement-string)))) - - (if ess-temp-replacement-9 - (setq ess-temp-replacement-string - (substring ess-temp-replacement-string 0 ess-temp-replacement-9))) - - (setq ess-temp-replacement-diff - (- ess-temp-replacement-diff (string-width ess-temp-replacement-string))) - - (while (> ess-temp-replacement-diff 0) - (setq ess-temp-replacement-string (concat ess-temp-replacement-string " ")) - (setq ess-temp-replacement-diff (- ess-temp-replacement-diff 1))) - - (replace-match ess-temp-replacement-string)))))) - -(setq features (delete 'ess-bugs-d features)) -(provide 'ess-bugs-d) - -;;; ess-bugs-d.el ends here diff --git a/elpa/ess-20181109.703/ess-bugs-l.el b/elpa/ess-20181109.703/ess-bugs-l.el deleted file mode 100644 index f2a96f3f..00000000 --- a/elpa/ess-20181109.703/ess-bugs-l.el +++ /dev/null @@ -1,289 +0,0 @@ -;;; ess-bugs-l.el --- ESS[BUGS] languages - -;; Copyright (C) 2006-2011 Rodney Sparapani - -;; Author: Rodney Sparapani -;; Created: 16 August 2006 -;; Maintainer: ESS-help - -;; 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 -;; https://www.r-project.org/Licenses/ - - -;;; Code: - -(require 'font-lock) -(require 'shell) -(require 'comint) -(require 'ess-utils) -(require 'ess-custom) -(defvar ess-bugs-command) -(defvar ess-bugs-chains) -(defvar ess-jags-command) -(defvar ess-jags-chains) -(defvar ess-bugs-default-bins) - -(declare-function ess-bugs-na-bug "ess-bugs-d") -(declare-function ess-jags-na-bug "ess-jags-d") -(declare-function ess-bugs-na-bmd "ess-bugs-d") -(declare-function ess-jags-na-jmd "ess-jags-d") - -(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 - :type '(choice (const 'sh :tag "Bourne/C-like Unix Shell") - (const 'dos :tag "DOS-like Windows shell"))) - -(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) - (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-mode-hooks 'ess-bugs-shell-mode-hook) - ) - -(provide 'ess-bugs-l) - -;;; ess-bugs-l.el ends here diff --git a/elpa/ess-20181109.703/ess-custom.el b/elpa/ess-20181109.703/ess-custom.el deleted file mode 100644 index db05cf3f..00000000 --- a/elpa/ess-20181109.703/ess-custom.el +++ /dev/null @@ -1,2954 +0,0 @@ -;;; ess-custom.el --- Customize variables for ESS - -;; Copyright (C) 1997--2010 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. -;; Copyright (C) 2011--2015 A.J. Rossini, Richard M. Heiberger, Martin Maechler, -;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. - -;; Author: A.J. Rossini -;; Created: 05 June 2000 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Code: -(require 'comint) -(require 'custom) -(require 'executable) -(require 'font-lock) - -;; FIXME: When Emacs is started from Cygwin shell in Windows, -;; we have (equal window-system 'x) -and should use "--ess" in *d-r.el -(defvar ess-microsoft-p (memq system-type '(ms-dos windows-nt)) - "Value is t if the OS is one of Microsoft's, nil otherwise.") - - -;; Customization Groups - -(defgroup ess nil - "ESS: Emacs Speaks Statistics." - :group 'languages - :link '(info-link "(ESS)") - :link '(url-link "https://ess.r-project.org/")) - -(defgroup ess-edit nil - "ESS: editing behavior, including coments/indentation." - :group 'ess - :prefix "ess-") - -(defgroup ess-proc nil - "ESS: process control." - :group 'ess - :prefix "ess-") - -(defgroup ess-command nil - "ESS: Commands for various things." - :group 'ess - :prefix "ess-") - -(defgroup ess-help nil - "ESS: help functions." - :group 'ess - :prefix "ess-") - -(defgroup ess-hooks nil - "ESS: hooks for customization." - :group 'ess - :prefix "ess-") - -(defgroup ess-S nil - "ESS: S Languages." - :group 'ess - :prefix "ess-") - -(defgroup ess-origS nil - "ESS: Original S Dialect from Bell Labs/AT&T." - :group 'ess-S - :prefix "ess-") - -(defgroup ess-SPLUS nil - "ESS: S-PLUS Dialect of S." - :group 'ess-S - :prefix "ess-") - -(defgroup ess-R nil - "ESS: R Dialect of S." - :group 'ess-S - :prefix "ess-") - -(defgroup ess-Julia nil - "ESS: Julia." - :group 'ess - :prefix "julia-") - -(defgroup ess-sas nil - "ESS: SAS." - :group 'ess - :prefix "ess-") - -(defgroup ess-Stata nil - "ESS: Stata." - :group 'ess - :prefix "ess-") - -(defgroup ess-XLS nil - "ESS: XLispStat." - :group 'ess - :prefix "ess-") - -(defgroup ess-OMG nil - "ESS: Omegahat." - :group 'ess - :prefix "ess-") - -(defgroup ess-mouse nil ;; FIXME: this is not used yet <--> ./ess-mous.el - "ESS: Mouse." - :group 'ess - :prefix "ess-") - -(defgroup ess-roxy nil - "Mode for editing in-code Roxygen documentation." - :group 'ess - :group 'convenience - :group 'ess-extras - :prefix "ess-" ;; << -- added for ESS integration FIXME?? - :group 'tools) - -(defgroup ess-sweave nil - "Mode for editing Sweave (*.[SR]nw) files." - :group 'ess-S - :prefix "ess-") - -(defgroup ess-extras nil - "Extra utilities for ESS" - :group 'ess - :prefix "ess-") - -(defgroup ess-faces nil - "Faces and face options for ESS modes." - :group 'ess - :prefix "ess-") - -;; Variables (not user-changeable) - -(defvar ess-version "18.10.2" ;; updated by 'make' - "Version of ESS currently loaded.") - -(defvar ess-revision nil ;; set - "The subversion revision and date of ESS. -Is set by \\[ess-version-string].") - - - ; User changeable variables - -;;*;; Options and Initialization - -;; Menus and pulldowns. - -(defcustom ess-imenu-use-p (fboundp 'imenu) - "Non-nil means use imenu facility. -This value can be overridden by mode-specific variables, such -as `ess-imenu-use-S'." - :group 'ess - :type 'boolean) - -(defcustom ess-imenu-use-S ess-imenu-use-p - "*Non-nil means include an Imenu menu item in S buffers." - :group 'ess - :type 'boolean) - -(defvar ess-imenu-generic-expression nil - "Placeholder for imenu-generic-expression. Dialect specific.") - -(defcustom ess-handy-commands '(("change-directory" . ess-change-directory) - ("install.packages" . ess-install-library) - ("library" . ess-library) - ("objects[ls]" . ess-execute-objects) - ("help-apropos" . ess-display-help-apropos) - ("help-index" . ess-display-package-index) - ("help-object" . ess-display-help-on-object) - ("search" . ess-execute-search) - ("set-width" . ess-execute-screen-options) - ("setRepos" . ess-setRepositories) - ("sos" . ess-sos) - ("vignettes" . ess-display-vignettes) - ) - "An alist of custom ESS commands available for call by -`ess-handy-commands' and `ess-smart-comma' function." - :group 'ess - :type 'alist) - -(defvar ess--local-handy-commands nil - "Store handy commands locally") -(make-variable-buffer-local 'ess--local-handy-commands) - -(defvar ess-install-library-function nil - "Dialect-specific function to install a library.") -(make-variable-buffer-local 'ess-install-library-function) - - -(defcustom ess-describe-at-point-method nil - "Whether `ess-describe-object-at-point' should use a tooltip. -If nil display in an electric buffer. If 'tooltip display in -a tooltip. - -See also `tooltip-hide-delay' and `tooltip-delay'. - " - :group 'ess-utils - :type '(choice (const :tag "buffer" :value nil ) (const tooltip)) - ) - -(defvaralias - 'ess-R-describe-object-at-point-commands - 'ess-r-describe-object-at-point-commands) -(defcustom ess-r-describe-object-at-point-commands - '(("str(%s)") - ("htsummary(%s, hlength = 20, tlength = 20)") - ("summary(%s, maxsum = 20)")) - "A list of commands cycled by `ess-describe-object-at-point'. -%s is substituted with the name at point. - -The value of each element is nil and is not used in current -implementation." - :group 'ess-R - :type 'alist) - -(defcustom ess-S-describe-object-at-point-commands - ess-R-describe-object-at-point-commands - "An alist of commands cycled by `ess-describe-object-at-point'. -%s is substitute with the name at point. The value is not used as - yet." - :group 'S+ - :type 'alist) - - -(defcustom ess-can-eval-in-background t - "If non-nil ESS can perform caching and other background - activities by calling the subprocess on idle time." - :group 'ess - :type 'boolean) - -(defcustom ess-user-full-name (user-full-name) - "The full name of the user." - :group 'ess - :type 'string) - -(defcustom ess-blink-region t - "If t evaluated region is highlighted for a shortwhile. -See also `ess-blink-delay'" - :group 'ess - :type 'boolean) - -(defcustom ess-blink-delay .3 - "Number of seconds to highlight the evaluated region." - :group 'ess - :type 'number) - -(defcustom ess-ask-for-ess-directory t - "Non-nil means request the process directory each time S is run." - :group 'ess - :type 'boolean) - -(defcustom ess-ask-about-transfile nil - "Non-nil means ask about a transcript file before running ESS." - :group 'ess - :type 'boolean) - -(defcustom ess-display-buffer-reuse-frames t - "Non-nil means \\[display-buffer] reuses existing frames; see -`display-buffer-reuse-frames'." - :group 'ess - :type 'boolean) - -(defvar ess-language nil - "Determines the language to use for the current buffer. -See also `ess-dialect'.") -(make-variable-buffer-local 'ess-language) - -(defvar ess-dialect nil - "String version of the dialect being run for the inferior process. -This, plus `ess-language', should be able to determine the exact -version of the statistical package being executed in the particular -buffer.") -(make-variable-buffer-local 'ess-dialect) - -(defcustom ess-directory-function nil - "Function to return the directory that ESS is run from. -If nil or if the function returns nil then you get `ess-startup-directory'." - :group 'ess - :type '(choice (const nil) function)) - -(defcustom ess-setup-directory-function nil - "Function to setup the directory that ESS is run from. -This function can be called to set environment variables or to create -a workspace." - :group 'ess - :type '(choice (const nil) function)) - -(defvaralias 'ess-directory 'ess-startup-directory) -(defcustom ess-startup-directory nil - "The directory ESS is run from. It must end in a slash. -Provided as a default if `ess-ask-for-ess-directory' is non-nil. -A nil value means use the current buffer's default directory." - :group 'ess - :type '(choice (const nil) directory)) - - -(defcustom ess-history-directory nil - "Directory to pick up `ess-history-file' from. -If this is nil, the history file is relative to `ess-directory'." - :group 'ess - :type '(choice (const nil) directory)) - -(defcustom ess-history-file t - "File to pick up history from. nil means *no* history is read or written. -t means something like \".Rhistory\". -If this is a relative file name, it is relative to `ess-history-directory'. -Consequently, if that is set explicitly, you will have one history file -for all projects." - :group 'ess - :type '(choice (const :tag "Off" nil) - (const :tag "On" t) - file)) - -(defcustom ess-plain-first-buffername t - "No fancy process buffname for the first process of each type (novice mode)." - :group 'ess - :type 'boolean) - - -(define-obsolete-variable-alias - 'ess-use-inferior-program-name-in-buffer-name - 'ess-use-inferior-program-in-buffer-name "ESS 18.10") -(defcustom ess-use-inferior-program-in-buffer-name nil - "For R, use e.g., 'R-2.1.0' or 'R-devel' (the program name) for buffer name. -Avoids the plain dialect name." - :group 'ess - :type 'boolean) - -(defcustom ess-use-ido t - "If t ess will try to use ido completion whenever possible. - -By default ESS uses enables IDO flex matching. See -`ido-enable-flex-matching' for details on flex matching and -`ess-ido-flex-matching' on how to disable it for ESS, if you -don't want it. - -Some useful keys for IDO completion: - - - C-s (next) or C-r (previous) to move through the list. - - C-SPC to restrict the list to currently matched items. - - TAB to display possible completion in a buffer - - C-t `ido-toggle-regexp' -" - :group 'ess - :type 'boolean) - - -(defcustom ess-tab-complete-in-script nil - "If non-nil, TAB in script buffers tries to complete if there is nothing to indent. -See also `ess-first-tab-never-complete'." - :group 'ess - :type 'boolean) - -(defvaralias 'ess-first-tab-never-completes-p 'ess-first-tab-never-complete) -(defcustom ess-first-tab-never-complete 'symbol - "If t, first TAB never tries to complete in ess-mode. -If 'symbol first TAB doesn't try to complete if next char is a -valid symbol constituent. - -If 'symbol-or-paren don't complete if next char is closed paren -)}] or symbol character. - -If 'symbol-or-paren-or-punct don't complete if next char is -punctuation +-=% etc, or closed paren or symbol. - -If 'unless-eol - first TAB completes only at end of line. - -If nil first TAB always tries to complete (this might be too -aggressive and dangerous). -" - :group 'ess - :type '(choice (const nil) - (const symbol) - (const symbol-or-paren) - (const symbol-or-paren-or-punct) - (const unless-eol) - (const t))) - -(defcustom ess-use-eldoc t - "If t, activate eldoc in ess-mode and inferior-ess-mode buffers. -If 'script-only activate in ess-mode buffers only. - -See also `ess-eldoc-show-on-symbol'." - :group 'ess-extras - :type '(choice (const t) (const script-only) (const nil))) - - -(defcustom ess-eldoc-show-on-symbol nil - "If non-nil, show help string whenever the point is on a symbol. -If nil show only when the point is in a function call, i.e. after (." - :group 'ess-extras - :type 'boolean) - -(defcustom ess-eldoc-abbreviation-style 'normal - "How ess-eldoc string should be abbreviated when it doesn't fit into one line -A symbol which can be -nil: do nothing -mild: Replace TRUE, FALSE with T,F -normal: Try mild + shorten the default values longer than 10 characters. -strong: Try normal + completely remove default values except =F,=T,=d where d is a digit. -aggressive (or t): Try strong + truncate the doc string to fit into minibuffer. - -The default style is 'normal. - -Ess-eldoc also honors the value of -`eldoc-echo-area-use-multiline-p'. If this variable is not t (the -default), doc strings are truncated to fit into minibufer. This -allows the use of different abbreviation styles with the -truncation." - :group 'ess - :type '(choice (const nil) (const mild) (const normal) (const strong) (const aggressive) (const t))) - -(defcustom ess-use-flymake t - "If non-nil activate flymake in `ess-mode' buffers. -If 'process, only check if the buffer has an inferior process." - :group 'ess - :type '(choice (const :tag "Always" t) - (const :tag "With running inferior process" process) - (const :tag "Never" nil)) - :package-version '(ess . "18.10")) - -(defcustom ess-use-auto-complete t - "If t, activate auto-complete support in ess-mode and inferior-ess-mode buffers. -If 'script-only activate in ess-mode buffers only. - -If non-nil add `ac-source-R' and `ac-source-filename' to the -`ac-sources' buffer local variable. - -ESS defines three AC sources `ac-source-R',`ac-source-R-objects' -and `ac-source-R-args'. See auto-complete package -documentation (http://cx4a.org/software/auto-complete/) for how -to install your custom sources." - :group 'ess-extras - :type '(choice (const t) (const script-only) (const nil))) - -(defcustom ess-use-company t - "If t, activate company support in ess-mode and inferior-ess-mode buffers. -If non-nil add `company-R-args' and `company-R-objects' to the -`company-backends'. If 'script-only activate in ess-mode buffers -only." - :group 'ess-extras - :type '(choice (const t) (const script-only) (const nil))) - -(defcustom ess-company-arg-prefix-length nil - "Minimum prefix for ess company function argument completion." - :group 'ess-extras - :type '(choice (const :tag "Default" nil) - integer)) - -(defcustom ess-use-tracebug t - "If t, load ess-tracebug when R process starts." - :group 'ess-extras - :type 'boolean) - -(defcustom ess-ido-flex-matching t - "If t, ido for ESS completion uses flex matching. -See `ido-enable-flex-matching' for details. -If you have an old computer, or you load lot of packages, you -might want to set this to nil. -" - :group 'ess - :type 'boolean) - - -(defvar ess-ac-sources nil - "Dialect specific, ESS specific list of ac-sources") - -(defvar ess-company-backends nil - "Dialect specific, ESS specific list of `company-backends'") - -(defvar ess--completing-hist nil - "Variable to store completion history. -Used by `ess-completion-read' command.") - -(defvar ess-smart-operators () - "List of smart operators to be used in ESS and IESS modes. -Not to be set by users. It is redefined by mode specific -settings, such as `ess-r-smart-operators'.") -(make-variable-buffer-local 'ess-smart-operators) - -(defvaralias 'ess-R-smart-operators 'ess-r-smart-operators) -(defvar ess-r-smart-operators nil - "If nil, don't use any of smart operators. -If t, use all. If an axplicit list of operators, use only those -operators. - -In current verion of ESS, it controls the behavior of -ess-smart-comma only, but will be enriched in the near future.") - - -(defvar ess-no-skip-regexp "[ \t\n]*\\'" - "If `ess-next-code-line' sees this line, it doesn't jump over. - -Used to avoid annoying jumping by ess-eval.*-and-step to end of -buffer or end chunks etc.") - -(defcustom ess-smart-S-assign-key "_" - "Key used by `ess-smart-S-assign'. -Should be nil or a \"simple\" key, in other words no key -modifiers. - -This variable is deprecated and will be removed in the future. -Please bind `ess-insert-assign' in `ess-mode-map' to your key of -choice with `define-key' or similar." - :group 'ess-S - :type '(choice (const :tag "Nothing" :value nil) string)) -(make-obsolete-variable 'ess-smart-S-assign-key nil "ESS 18.10") - -(defcustom ess-assign-list (cons (if (boundp 'ess-S-assign) ess-S-assign " <- ") - '(" <<- " " = " " -> " " ->> ")) - "List of assignment operators. -`ess-cycle-assign' uses this list. These strings must -contain spaces on either side." - ;; Note that spaces on either side is not strictly true (as in the - ;; function won't error), but matching <-/<<- is broken without - ;; them. - :type '(repeat string) - :group 'ess - :package-version '(ess "18.10")) -(defvar ess-S-assign) -(make-obsolete-variable 'ess-S-assign 'ess-assign-list "ESS 18.10") - -(defcustom ess-r-prettify-symbols - '(("<-" . (?\s (Br . Bl) ?\s (Bc . Bc) ?←)) - ("->" . (?\s (Br . Bl) ?\s (Bc . Bc) ?→)) - ("->>" . (?\s (Br . Bl) ?\s (Br . Bl) ?\s - (Bl . Bl) ?- (Bc . Br) ?- (Bc . Bc) ?> - (Bc . Bl) ?- (Br . Br) ?>)) - ("<<-" . (?\s (Br . Bl) ?\s (Br . Bl) ?\s - (Bl . Bl) ?< (Bc . Br) ?- (Bc . Bc) ?- - (Bc . Bl) ?< (Br . Br) ?-))) - ;; Setup prettify-symbols-alist to show "pretty" arrows, but make - ;; sure that they arrows use the same amount of spacing as <- and - ;; <<- to ensure indentation does not change when - ;; prettify-symbols-mode is turned on/off. - "Alist of symbols prettifications, see `prettify-symbols-alist'. -This gets appended to `prettify-symbols-alist', so set it to nil -if you want to disable R specific prettification." - :group 'ess-R - :type '(alist :key-type string :value-type symbol) - :package-version '(ess . "18.10")) - -;;*;; Variables concerning editing behaviour - -(defcustom ess-filenames-map t - "Declares if the filenames in an attached directory are the same -as objects in that directory (when t). This is not true for DOS and -other OS's with limited filename lengths. Even if this is set -incorrectly, the right things will probably still happen, however." - :group 'ess-edit - :type 'boolean) - -(defcustom ess-keep-dump-files t - "Variable controlling whether to delete dump files after a successful load. -If nil: always delete. If `ask', confirm to delete. If `check', confirm -to delete, except for files created with ess-dump-object-into-edit-buffer. -Anything else, never delete. This variable only affects the behaviour -of `ess-load-file'. Dump files are never deleted if an error occurs -during the load. " - :group 'ess-edit - :type '(choice (const :tag "Check" :value 'check) - (const :tag "Ask" :value 'ask) - (const :tag "Always keep" :value t) - (const :tag "Always delete" :value nil) - )) - -(defcustom ess-delete-dump-files nil - "Non-nil means delete dump files after they are created. -This applies to dump files created with -`ess-dump-object-into-edit-buffer', only. - -Boolean flag which determines what to do with the dump files -generated by \\[ess-dump-object-into-edit-buffer], as follows: - - If non-nil: dump files are deleted after each use, and so appear -only transiently. The one exception to this is when a loading error -occurs, in which case the file is retained until the error is -corrected and the file re-loaded. - - If nil: dump files are not deleted, and backups are kept -as usual. This provides a simple method for keeping an archive of S -functions in text-file form. - -Auto-save is always enabled in dump-file buffers to enable recovery -from crashes. - -This is useful to prevent source files being created for objects -you don't actually modify. Once the buffer is modified and saved -however, the file is not subsequently deleted unless -`ess-keep-dump-files' is nil, and the file is successfully loaded -back into S." - :group 'ess-edit - :type 'boolean) - -(defcustom ess-fill-calls t - "If non-nil, refilling a paragraph inside a function or -indexing call will arrange the arguments according to -`fill-column' as in: - - fun_call(argument1, argument2, - argument3, argument4) - - -Refilling repeatedly cycles through different styles and -eventually to the original formatting. - - The second style formats according to one argument per line: - - fun_call(argument1, - argument2, - argument3, - argument4) - -When `ess-fill-calls-newlines' is t, the second style becomes: - - fun_call( - argument1, - argument2, - argument3, - argument4 - ) - - -Setting `ess-offset-arguments' to `prev-line' or `prev-call' -activates a third style. It keeps one argument per line except -for the first N arguments. N is controlled with a prefix. For -example, calling M-q three times sets N to 1 while calling M-q -twice then C-U 2 M-q sets N to 2. Here what the default produces: - - fun_call(argument1, - argument2, - argument3, - argument4, - argument5 - ) - -This style is useful for refilling R6 or ggproto class -definitions. - - -The blinking of the refilled region can be disabled with -`ess-blink-refilling'." - :group 'ess-edit - :type 'boolean) - -(defcustom ess-fill-continuations t - "If non-nil, refilling a paragraph inside a continuation of -statements (expressions separated by operators) will arrange all -its elements, never going past `fill-column'. - - lm(outcome ~ pred1 + pred2 + - pred3 + pred4, data) - -Refilling repeatedly cycles through different styles and -eventually to the original formatting. - -The second style lay out the statements according to one -expression per line: - - lm(outcome ~ - pred1 + - pred2 + - pred3 + - pred4, data) - -The blinking of the refilled region can be disabled with -`ess-blink-refilling'." - :group 'ess-edit - :type 'boolean) - -(defcustom ess-fill-calls-newlines nil - "When non-nil, the second refilling style produces newlines -after and before the opening and closing delimiters. This is -intended for example for dplyr-style code: - - fun_call( - argument1, - argument2, - argument3, - argument4 - ) - -Note that this setting is temporary and likely to be replaced in -the next ESS version by a more comprehensive and flexible way to -set refill styles." - :group 'ess-edit - :type 'boolean) - -(defcustom ess-blink-refilling t - "When non-nil, refilling a call or a continuation will first -blink the filling region." - :group 'ess-edit - :type 'boolean) - -(defcustom ess-mode-silently-save t - "Non-nil means automatically save ESS source buffers before loading." - :group 'ess-edit - :type 'boolean) - -;;*;; Variables controlling editing - -;;;*;;; Edit buffer processing -(defcustom ess-function-template " <- function( )\n{\n\n}\n" - "If non-nil, function template used when editing nonexistent objects. - -The edit buffer will contain the object name in quotes, followed by -this string. Point will be placed after the first parenthesis or -bracket." - :group 'ess-edit - :type 'string) - -;;;*;;; Indentation parameters - -(defcustom ess-auto-newline nil - "Non-nil means automatically newline before and after braces -inserted in S code." - :type 'boolean - :group 'ess-edit) - -(defcustom ess-tab-always-indent t - "Non-nil means TAB in S mode should always reindent the current line, -regardless of where in the line point is when the TAB command is used." - :type 'boolean - :group 'ess-edit) - -(defvar ess-indent-line-function nil - "Function to be used for the current dialect -nil means to use R/S indentation.") -(make-variable-buffer-local 'ess-indent-line-function) - -(define-obsolete-variable-alias 'ess-indent-level 'ess-indent-offset "15.09") -(defvar ess-indent-offset 2 - "Main indentation offset that is commonly inherited by other offsets. -See `ess-style-alist' for all available offsets.") - -(defvar ess-offset-arguments 'open-delim - "Indent for arguments of function calls or indexing brackets. -This variables has an effect only when the ( or [ are not -directly followed by a new line. See -`ess-offset-arguments-newline' for indentation after closing -newline. - -When set to `open-delim', arguments are indented relative to the -opening parenthesis of the closest function call: - - object <- call(argument, other_call(argument, - other_argument)) - - -When set to `prev-call', arguments are indented relative to the -closest function call: - - object <- call(argument, other_call(argument, - other_argument)) - - -When set to `prev-line', arguments are indented relative to the -preceding line: - - object <- call(argument, other_call(argument, - other_argument)) - -This setting can also be set to a list containing the the offset -type and the offset size, such as `'(prev-call 2)'. Otherwise, -`ess-indent-offset' is used as a default. See `ess-style-alist' -for other offsets controlling indentation.") - -(define-obsolete-variable-alias 'ess-arg-function-offset-new-line 'ess-offset-arguments-newline "15.09") -(defvar ess-offset-arguments-newline 'prev-call - "Indent of arguments when ( or [ is followed by a new line. - -When set to `open-delim', arguments on a new line are indented -relative to the opening parenthesis of the closest function call: - - object <- call(argument, other_call( - argument, - other_argument - )) - - -Wnen set to `prev-call', arguments on a new line are indented relative to -the closest function call: - - object <- call(argument, other_call( - argument, - other_argument - )) - -You can control the details of indentation at `prev-call' with -`ess-indent-from-lhs' and `ess-indent-from-chain-start'. - - -When set to `prev-line', arguments on a new line are indented -relative to the preceding line: - - object <- call(argument, other_call( - argument, - other_argument - )) - -This setting can also be set to a list containing the the offset -type and the offset size, such as `'(prev-call 2)'. Otherwise, -`ess-indent-offset' is used as a default. See `ess-style-alist' -for other offsets controlling indentation.") - -(defvar ess-offset-block 'prev-line - "Indentation for blocks. A block is usually declared with -braces but a statement wrapped in anonymous parentheses is also -considered a block. This offset can be either `prev-call', -`prev-line' or `open-delim'. - -When set to `open-delim', blocks are indented relative to the -opening parenthesis of the closest function call: - - call(argument, other_call(parameter = { - stuff - }, { - stuff - })) - - call(argument, lapply(data, function(x) { - body - })) - - -When set to `prev-call', blocks are indented relative to the -closest function call: - - call(argument, other_call(parameter = { - stuff - }, { - stuff - })) - - call(argument, lapply(data, function(x) { - body - })) - -You can control the details of indentation at `prev-call' with -`ess-indent-from-lhs' and `ess-indent-from-chain-start'. - - -When set to `prev-line', blocks are indented relative to the -preceding line: - - call(argument, other_call(parameter = { - stuff - }, { - stuff - })) - - call(argument, lapply(data, function(x) { - body - })) - -This setting can also be set to a list containing the the offset -type and the offset size, such as `'(prev-call 2)'. Otherwise, -`ess-indent-offset' is used as a default. See `ess-style-alist' -for other offsets controlling indentation.") - -(define-obsolete-variable-alias 'ess-first-continued-statement-offset 'ess-offset-continued "15.09") -(define-obsolete-variable-alias 'ess-continued-statement-offset 'ess-offset-continued "15.09") -(defvar ess-offset-continued 'straight - "This setting controls indentation of continued statements, that is, -consecutive statements separated by operators. - -When set to 'straight, continued statements are indented as follows: - - object %>% - some_function() %>% - other_function() - -When set to 'cascade: - - object %>% - some_function() %>% - other_function() - -The 'straight and 'cascade settings are actually equivalent to -'(straight . t) and '(cascade . t), where `t' represents the -base indent size. More generally, you can supply '(straight . N) -to control the size of indentation. - -See `ess-style-alist' for for an overview of ESS indentation.") - -(defvar ess-align-nested-calls '("ifelse") - "List of strings declaring function calls for which -`ess-offset-arguments-newline' should be ignored. These calls -will be vertically aligned instead. The default is `ifelse', -resulting in the following indentation for nested ifelse calls: - - object <- ifelse(condition1, out1, - ifelse(condition2, out2, out3)) - -See `ess-style-alist' for for an overview of ESS indentation.") - -(defvar ess-align-arguments-in-calls '("function[ \t]*(") - "List of regexes specifying the calls where -`ess-offset-arguments' should have no effect on function -declarations. The arguments of those calls will be aligned from -the opening parenthesis. - -By default, function declarations are overridden. If for example -`ess-offset-arguments' is set to `prev-line', then function calls -are normally indented as in: - - some_function(argument1, - argument2, argument3 - ) - -However, the parameters of function declarations will be -vertically aligned: - - fun <- function(argument1, - argument2 - argument3) { - body - } - -See `ess-style-alist' for further details.") - -(defvar ess-align-continuations-in-calls t - "Whether continuations inside calls should be indented from the -opening delimiter. This produces the following indentation: - - 10 + (1 + 2 + - 3 + 4) - object[variable1 + - variable2] - - if (test1 || test2 || - test3 || test4) { - any(test5 & - test6) - } - -instead of - - 10 + (1 + 2 + - 3 + 4) - object[variable1 + - variable2] - - if (test1 || test2 || - test3 || test4) { - any(test5 & - test6) - } - -Definition operators (`<-', `=', `:=' and `~') still trigger an -indentation in all cases. Also, operators at top level and in -curly brackets are not affected by this setting and always induce -an offset: - - { - var1 + - var2 - } - -See `ess-style-alist' for for an overview of ESS indentation.") - -(defvar ess-align-blocks '(control-flow) - "List of block types for which `ess-offset-blocks' should be -ignored. The overridden blocks are vertically aligned. The list -can contain either or both of the symbols `control-flow' and -`fun-decl'. - -With `control-flow', if, else for and while blocks will always be -aligned vertically. With `fun-decl', the body of a function -declaration will always be aligned with the call to -`function'.") - -(define-obsolete-variable-alias 'ess-arg-function-offset 'ess-indent-from-lhs "15.09") -(defvar ess-indent-from-lhs '(arguments fun-decl-opening) - "List of syntactic elements that should be indented from the -left-hand side of an assignment. The list accepts the symbol -`arguments' and `fun-decl-opening'. - -For arguments, this setting only has an effect for offsets set to -`prev-call'. When set, this indentation is produced: - - some_function(parameter = other_function( - argument - )) - - object <- some_function( - argument1, - argument2 - ) - -instead of: - - some_function(parameter = other_function( - argument - )) - - object <- some_function( - argument1, - argument2 - ) - - -`fun-decl-opening' refers to the opening curly following a function -declaration. Setting it produces: - - object <- - function(argument) - { - body - } - -instead of: - - object <- - function(argument) - { - body - } - -This is useful when (a) you have a long function name and want to -break a line after `<-' so that you have room to lay out the -arguments within `fill-column' characters; (b) you still want to -align the function body from the LHS to save horizontal space. - -See `ess-style-alist' for for an overview of ESS indentation.") - -(defvar ess-indent-from-chain-start t - "When non-nil, chained calls will be treated as if they were -one call and indentation will start from the first one. This -setting only has an effect for offsets set to `prev-call' or -block offsets set to `opening-delim'. - -If `nil': - - some_function(other_function( - argument - )) - -If `t': - - some_function(other_function( - argument - )) - -See `ess-style-alist' for for an overview of ESS indentation.") - -;;added rmh 2Nov97 at request of Terry Therneau -(define-obsolete-variable-alias 'ess-fancy-comments 'ess-indent-with-fancy-comments "15.09") -(defcustom ess-indent-with-fancy-comments t - "Non-nil means distiguish between #, ##, and ### for indentation. -See `ess-style-alist' for for an overview of ESS indentation." - :type 'boolean - :group 'ess-edit) - -;;;*;;; Editing styles - -(defvar ess-style-alist - `((BSD - (ess-indent-offset . 8) - (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) - (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) - (ess-offset-block . prev-call) - (ess-offset-continued . ,(default-value 'ess-offset-continued)) - (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) - (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) - (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) - (ess-align-blocks . ,(default-value 'ess-align-blocks)) - (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) - (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) - (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) - - (C++ - (ess-indent-offset . 4) - (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) - (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) - (ess-offset-block . prev-call) - (ess-offset-continued . ,(default-value 'ess-offset-continued)) - (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) - (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) - (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) - (ess-align-blocks . ,(default-value 'ess-align-blocks)) - (ess-indent-from-lhs . (arguments)) - (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) - (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) - - ;; CLB added rmh 2Nov97 at request of Terry Therneau - (CLB - (ess-indent-offset . ,(default-value 'ess-indent-offset)) - (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) - (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) - (ess-offset-block . ,(default-value 'ess-offset-block)) - (ess-offset-continued . (straight 4)) - (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) - (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) - (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) - (ess-align-blocks . ,(default-value 'ess-align-blocks)) - (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) - (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) - (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) - - (GNU - (ess-indent-offset . ,(default-value 'ess-indent-offset)) - (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) - (ess-offset-arguments-newline . (prev-call 4)) - (ess-offset-block . ,(default-value 'ess-offset-block)) - (ess-offset-continued . ,(default-value 'ess-offset-continued)) - (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) - (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) - (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) - (ess-align-blocks . ,(default-value 'ess-align-blocks)) - (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) - (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) - (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) - - (K&R - (ess-indent-offset . 5) - (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) - (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) - (ess-offset-block . prev-call) - (ess-offset-continued . ,(default-value 'ess-offset-continued)) - (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) - (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) - (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) - (ess-align-blocks . ,(default-value 'ess-align-blocks)) - (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) - (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) - (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) - - ;; added ajr 17.Feb'04 to match "common R" use (== DEFAULT apart from offset = 4) - (RRR - (ess-indent-offset . 4) - (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) - (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) - (ess-offset-block . ,(default-value 'ess-offset-block)) - (ess-offset-continued . ,(default-value 'ess-offset-continued)) - (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) - (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) - (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) - (ess-align-blocks . ,(default-value 'ess-align-blocks)) - (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) - (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) - (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) - - (RRR+ - (ess-indent-offset . 4) - (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) - (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) - (ess-offset-block . open-delim) - (ess-offset-continued . ,(default-value 'ess-offset-continued)) - (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) - (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) - (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) - (ess-align-blocks . ,(default-value 'ess-align-blocks)) - (ess-indent-from-lhs . (arguments)) - (ess-indent-from-chain-start . nil) - (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) - - (RStudio - (ess-indent-offset . ,(default-value 'ess-indent-offset)) - (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) - (ess-offset-arguments-newline . prev-line) - (ess-offset-block . ,(default-value 'ess-offset-block)) - (ess-offset-continued . ,(default-value 'ess-offset-continued)) - (ess-align-nested-calls . nil) - (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) - (ess-align-continuations-in-calls . nil) - (ess-align-blocks . nil) - (ess-indent-from-lhs . (arguments)) - (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) - (ess-indent-with-fancy-comments . nil)) - - (RStudio- - (ess-indent-offset . ,(default-value 'ess-indent-offset)) - (ess-offset-arguments . prev-line) - (ess-offset-arguments-newline . prev-line) - (ess-offset-block . ,(default-value 'ess-offset-block)) - (ess-offset-continued . ,(default-value 'ess-offset-continued)) - (ess-align-nested-calls . nil) - (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) - (ess-align-continuations-in-calls . nil) - (ess-align-blocks . nil) - (ess-indent-from-lhs . (arguments)) - (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) - (ess-indent-with-fancy-comments . nil)) - - (DEFAULT - (ess-indent-offset . ,(default-value 'ess-indent-offset)) - (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) - (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) - (ess-offset-block . ,(default-value 'ess-offset-block)) - (ess-offset-continued . ,(default-value 'ess-offset-continued)) - (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) - (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) - (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) - (ess-align-blocks . ,(default-value 'ess-align-blocks)) - (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) - (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) - (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments)))) - - "Predefined formatting styles for ESS code. Use -`ess-default-style' to apply a style in all R buffers. The values -of all styles except OWN are fixed. To change the value of -variables in the OWN group, customize the variable -`ess-own-style-list'. DEFAULT style picks default (aka global) -values from ESS indentation variables. In addition, ESS provides -many indentation styles, the most important being the RRR and the -RStudio variants. - -RRR is the common R style that adheres closely to R internal -standards. RRR+ is the same except it also aligns blocks in -function calls with the opening delimiter, producing more -indentation. The C++ style (named like this for historical -reasons rather than any resemblance to existing C++ indentation -schemes) is halfway between these two styles and indent block -arguments from the start of the surrounding function's name. - -The RStudio style closely mimics the indentation of the RStudio -editor. RStudio- is the same except it does not align arguments -in function calls, which corresponds to the settings of some -RStudio users. - -ESS indentation is fully specified by the following offsets and -variables. See the documentation of these variables for examples. - -Offsets: - - - `ess-indent-offset': main offset inherited by other settings - - - `ess-offset-arguments': offset type for function and bracket - arguments - - - `ess-offset-arguments-newline': offset type of arguments - when ( or [ is followed by a new line. - - - `ess-offset-block': offset type for brace and anonymous - parenthesis blocks - - - `ess-offset-continued': offset type for continuation lines in - multiline statements - - -Overrides (implies vertical alignment): - - - `ess-align-nested-calls': functions whose nested calls - should be aligned. - - - `ess-align-arguments-in-calls': calls where - `ess-offset-arguments' should be ignored - - - `ess-align-continuations-in-calls': whether to ignore - `ess-offset-continued' in calls. - - - `ess-align-blocks': whether to ignore `ess-offset-blocks' for - function declarations or control flow statements. - - -Control variables: - - - `ess-indent-from-lhs': whether to indent arguments from - left-hand side of an assignment or parameter declaration. - - - `ess-indent-from-chain-start': whether to indent arguments from - the first of several consecutive calls. - - - `ess-indent-with-fancy-comments': whether to indent #, ## and - ### comments distinctly.") - -(defun ess-add-style (key entries) - "Add a new style to `ess-style-list', with the key KEY. -Remove any existing entry with the same KEY before adding the new one." - (setq ess-style-alist (assq-delete-all key ess-style-alist)) - (add-to-list 'ess-style-alist (cons key entries))) - -(defcustom ess-own-style-list (cdr (assoc 'RRR ess-style-alist)) - "Indentation variables for your own style. -Set `ess-default-style' to 'OWN to use these values. To change -these values, use the customize interface. See the documentation -of each variable for its meaning. " - :group 'ess-edit - :type 'alist - :initialize 'custom-initialize-set - :set (lambda (symbol value) - (set symbol value) - (ess-add-style 'OWN value))) - -(defcustom ess-default-style 'RRR - "The default value of `ess-indent-style'. -See the variable `ess-style-alist' for how these groups (RRR, -DEFAULT, GNU, BSD, ...) map onto different settings for -variables. OWN style is defined in `ess-own-style-list' and you -can customize it to your needs. DEFAULT style picks default (aka -global) values from ESS indentation variables." - :type '(choice (const OWN) - (const GNU) - (const BSD) - (const C++) - (const CLB) - (const K&R) - (const RRR) - (const RRR+) - (const RStudio) - (const RStudio-) - (const DEFAULT)) - :group 'ess-edit) - -;; the real setting of this happens via -editing-alist: -(defvar ess-style ess-default-style - "Current ESS indentation style, see `ess-style-alist' for more.") - -;;*;; Variables controlling behaviour of dump files - -(defcustom ess-source-directory - (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") temporary-file-directory) - "Directory in which to place dump files. -This can be a string (an absolute directory name ending in a slash) or -a lambda expression of no arguments which will return a suitable string -value. The lambda expression is evaluated with the process buffer as the -current buffer. - -This always dumps to a sub-directory (\".Src\") of the current ess -working directory (i.e. first elt of search list)." - :group 'ess-edit - :type 'directory - :package-version '(ess . "18.10")) - -(defvar ess-dump-filename-template nil - "Internal. Initialized by dialects") - -(defcustom ess-dump-filename-template-proto (concat (user-login-name) ".%s.S") - "Prototype template for filenames of dumped objects. -The ending `S' is replaced by the current \\[ess-suffix], to give -`ess-dump-filename-template' when an inferior ESS process starts. - -By default, gives filenames like `user.foofun.S', so as not to clash with -other users if you are using a shared directory. Other alternatives: -\"%s.S\" ; Don't bother uniquifying if using your own directory(ies) -\"dumpdir\"; Always dump to a specific filename. This makes it impossible -to edit more than one object at a time, though. - (make-temp-name \"scr.\") ; Another way to uniquify" - ;; MM: The last 3-4 lines above suck (I don't understand them) -- FIXME -- - - :group 'ess-edit - :type 'string) - - -;;*;; Hooks - -(defcustom ess-mode-hook nil - "Hook for customizing ESS each time it is entered." - :group 'ess-hooks - :type 'hook) - -(defcustom ess-pre-run-hook nil - "Hook to call before starting up ESS. -Good for setting up your directory." - :group 'ess-hooks - :type 'hook) - -(defcustom ess-post-run-hook nil - "Hook to call just after the ESS process starts up. -Good for evaluating ESS code." - :group 'ess-hooks - :type 'hook) - -(defcustom inferior-ess-mode-hook nil - "Hook for customizing inferior ESS mode. Called after -`inferior-ess-mode' is entered and variables have been initialised." - :group 'ess-hooks - :type 'hook) - -;;; make it possible to save an inferior-ess-mode buffer without losing -;;; the connection to the running ESS process. -(put 'inferior-ess-mode 'mode-class 'special) -;; FIXME AJR: Should the above be there? I don't think so! -;; MM : the functionality should be, right? Move statement to ./ess.el ? -;; AJR: No, we should move the statement to ./ess-inf.el - -(defcustom ess-help-mode-hook nil - "Functions to call when entering `ess-help-mode'." - :group 'ess-hooks - :type 'hook) - -(defcustom ess-send-input-hook nil - "Hook called just before line input is sent to the process." - :group 'ess-hooks - :type 'hook) - -(defcustom ess-transcript-mode-hook nil - "Hook for customizing ESS transcript mode." - :group 'ess-hooks - :type 'hook) - -(defcustom R-mode-hook nil - "Hook run when entering R mode." - :type 'hook - :group 'ess-R) - -(defcustom Rnw-mode-hook nil - "Hook run when entering Rnw mode." - :type 'hook - :group 'ess-R) - -(defcustom SAS-mode-hook nil - "Hook to run when entering SAS mode." - :type 'hook - :group 'ess-sas) - -(defcustom ess-pdf-viewer-pref nil - "External pdf viewer you like to use from ESS. -Can be a string giving a name of the program or a list with car -giving heprogram and the tail giving the arguments. For example -'(\"okular\" \"--unique\")." - :type '(choice (const nil) (repeat :tag "Command with arguments" string) (string :tag "Command")) - :group 'ess) - -(defcustom ess-ps-viewer-pref nil - "External PostScript viewer you like to use from ESS. -If nil, ESS will try finding one from a list." - :type '(choice (const nil) string) - :group 'ess) - -;; ---- ./ess-roxy.el : ------------ - -(defcustom ess-roxy-package "roxygen2" - "The name of the R package to use for Roxygen." - :group 'ess-roxy - :type 'string) - -(defcustom ess-roxy-tags-noparam '("export" "noRd") - "The tags used in roxygen fields that can be used alone. Used -to decide highlighting and tag completion." - :group 'ess-roxy - :type '(repeat string)) - -(defcustom ess-roxy-tags-param '("author" "aliases" "concept" "details" - "examples" "format" "keywords" - "method" "exportMethod" - "name" "note" "param" - "include" "references" "return" - "seealso" "source" "docType" - "title" "TODO" "usage" "import" - "exportClass" "exportPattern" "S3method" - "inheritParams" - "importFrom" "importClassesFrom" - "importMethodsFrom" "useDynLib" - "rdname" "section" "slot" "description" - "md") - "The tags used in roxygen fields that require a parameter. -Used to decide highlighting and tag completion." - :group 'ess-roxy - :type '(repeat string)) - -(defcustom ess-roxy-template-alist - (list (cons "description" ".. content for \\description{} (no empty lines) ..") - (cons "details" ".. content for \\details{} ..") - (cons "title" "") - (cons "param" "") - (cons "return" "") - (cons "author" ess-user-full-name)) - "The tags and defaults to insert when creating empty templates. -Param is a place holder for where to enter -parameters. Description and details do not use @ tags, but are -instead placed at the beginning of the entry (and should -therefore also be at the beginning of this template to give -syntactically correct roxygen entries)" - :group 'ess-roxy - :type '(alist :key-type string :value-type string)) - -(defcustom ess-roxy-fill-param-p nil - "Non-nil causes parameter descriptions to be filled (word-wrapped) upon `ess-roxy-update-entry'." - :group 'ess-roxy - :type '(choice (const :tag "Off" nil) - (const :tag "On" t))) - -(defcustom ess-roxy-hide-show-p nil - "Non-nil means ess-roxy uses hs-minor-mode for block hiding with TAB." - :group 'ess-roxy - :type '(choice (const :tag "Off" nil) - (const :tag "On" t))) - -(defcustom ess-roxy-start-hidden-p nil - "Non-nil means all blocks should be hidden from start." - :group 'ess-roxy - :type '(choice (const :tag "Off" nil) - (const :tag "On" t))) - -(defcustom ess-roxy-str "##'" - "Prefix string to insert before each line in new roxygen -blocks. In existing roxygen blocks, the prefix is taken from -the line at point" - :group 'ess-roxy - :type 'string) - -(defcustom ess-roxy-re "^#+'" - "Regular expression to recognize roxygen blocks." - :group 'ess-roxy - :type 'string) - -(defcustom ess-swv-pdflatex-commands '("texi2pdf" "pdflatex" "make") - "Commands to run a version of pdflatex in \\[ess-swv-PDF]; -the first entry is the default command." - :group 'ess-sweave - :type '(repeat string)) - -(defcustom ess-swv-plug-into-AUCTeX-p nil - "Non-nil means add commands to AUCTeX's \\[TeX-command-list] -to sweave the current noweb file and latex the result." - :group 'ess-sweave - :type '(choice (const :tag "Off" nil) - (const :tag "On" t))) - -(defvar ess-roxy-insert-prefix-on-newline t - "When non-nil, `ess-newline-and-indent' will make sure the new -line starts with the roxy prefix.") - - ; System variables - -;; SJE -- this should not be defcustom - user does not set it. -(defvaralias 'ess-current-process-name 'ess-local-process-name) -(defvar ess-local-process-name nil - "The name of the ESS process associated with the current buffer.") -(put 'ess-local-process-name 'risky-local-variable t) -(put 'ess-local-process-name 'permanent-local t) -(make-variable-buffer-local 'ess-local-process-name) - -(defcustom ess-switch-to-end-of-proc-buffer t - "If t, `ess-switch-to-inferior-or-script-buffer goes to end of -process buffer." - :group 'ess - :type 'boolean) - -(defcustom ess-gen-proc-buffer-name-function 'ess-gen-proc-buffer-name:projectile-or-simple - "Function used for generation of the buffer name of the newly created ESS process. -It should accept one argument PROC-NAME, a string specifying -internal process name (R, R:2, etc). - -Provided default options are: - - `ess-gen-proc-buffer-name:simple' -- *proc* - `ess-gen-proc-buffer-name:directory' -- *proc:dir* - `ess-gen-proc-buffer-name:abbr-long-directory' -- *proc:abbr-long-dir* - `ess-gen-proc-buffer-name:projectile-or-simple' -- *proc:projectile-root* or *proc*. - `ess-gen-proc-buffer-name:projectile-or-directory' -- *proc:projectile-root* or *proc:dir*. - -Strategies based on projectile default to built-in strategies if -projectile.el is not loaded or there is no project root in the -current directory. -" - :group 'ess - :type '(choice (const :tag "*proc*" ess-gen-proc-buffer-name:simple) - (const :tag "*proc:dir*" ess-gen-proc-buffer-name:directory) - (const :tag "*proc:abbr-long-dir*" ess-gen-proc-buffer-name:abbr-long-directory) - (const :tag "*proc:projectile-root* or *proc*" ess-gen-proc-buffer-name:projectile-or-simple) - (const :tag "*proc:projectile-root* or *proc:dir*" ess-gen-proc-buffer-name:projectile-or-directory) - function)) - - -(defcustom ess-kermit-command "gkermit -T" - "Kermit command invoked by `ess-kermit-get' and `ess-kermit-send'." - :group 'ess - :type 'string) - -(defcustom ess-kermit-prefix "#" - "String files must begin with to use kermit file transfer." - :group 'ess - :type 'string) - -(defcustom ess-kermit-remote-directory "." - "Buffer local variable that designates remote directory of file." - :group 'ess - :type 'string) -(make-variable-buffer-local 'ess-kermit-remote-directory) - -;;*;; Regular expressions - -;; -- Note: Some variables not-to-customize moved to ./ess-mode.el : -;; ess-r-set-function-start - -;; Fixme: the following is just for S dialects : -(defcustom ess-dumped-missing-re - "\\(<-\nDumped\n\\'\\)\\|\\(<-\\(\\s \\|\n\\)*\\'\\)" - "If a dumped object's buffer matches this re, then it is replaced -by `ess-function-template'." - :group 'ess - :type 'regexp) - -(defcustom ess-dump-error-re - (if (string= ess-language "S") "\nDumped\n\\'" - "[Ee]rror") - "Regexp used to detect an error when loading a file." - :group 'ess - :type 'regexp) - - - ; ess-inf: variables for inferior-ess. - -(defcustom inferior-ess-own-frame nil - "Non-nil means that inferior ESS buffers should start in their own frame. -The parameters of this frame are stored in `inferior-ess-frame-alist'." - :group 'ess-proc - :type 'boolean) - -(defcustom inferior-ess-frame-alist default-frame-alist - "Alist of frame parameters used to create new frames for iESS buffers. -This defaults to `default-frame-alist' and is used only when -the variable `inferior-ess-own-frame' is non-nil." - :group 'ess-proc - :type 'alist) - -(defcustom inferior-ess-same-window t - "Non-nil indicates new inferior ESS process appears in current window. -Otherwise, the new inferior ESS buffer is shown in another window in the -current frame. This variable is ignored if `inferior-ess-own-frame' is -non-nil." - :group 'ess-proc - :type 'boolean) - -(defcustom inferior-ess-jit-lock-chunk-size 10000 - "Default for (buffer local) `jit-lock-chunk-size' in inferior ESS buffers." - :group 'ess-proc - :type 'integer) - - -(defvaralias 'inferior-R-program 'inferior-ess-r-program) -(define-obsolete-variable-alias 'inferior-R-program-name - 'inferior-ess-r-program "ESS 18.10") -(define-obsolete-variable-alias 'inferior-ess-r-program-name - 'inferior-ess-r-program "ESS 18.10") -(defcustom inferior-ess-r-program (if ess-microsoft-p - "Rterm" - "R") - "Program name for invoking an inferior ESS with \\[R]." - :group 'ess-R - :type '(choice (string) file)) - -(defcustom inferior-R-args "" - "String of arguments (see 'R --help') used when starting R, -including the versions of R created via variable `ess-r-versions'." - :group 'ess-R - :type 'string) - -(defcustom ess-R-readline nil - "nil indicates that \"--no-readline \" should be used as argument when starting R. -This has been the default since 1998 and may very slightly speedup interaction. -On the other hand, readline is necessary for expansion of \"~username/\" in paths. -Note that readline interprets tabs (tabular characters) in R source files as asking -for file name completion. This can mess up ess evaluation completely." - :group 'ess-R - :type 'boolean) - -(defcustom inferior-STA-start-file nil - "Initialization file for Stata." - :group 'ess-Stata - :type '(choice (const nil) string)) - -(defcustom inferior-STA-start-args "" - "String of switches used when starting stata. -Don't use this to send initialization command to stata, use -`inferior-STA-start-file' instead. Also see -`inferior-STA-program'." - :group 'ess-Stata - :type 'string) - -(defvaralias 'inferior-R-objects-command 'inferior-ess-r-objects-command) -(defcustom inferior-ess-r-objects-command "print(objects(pos=%d, all.names=TRUE), max=1e6)\n" - "Format string for R command to get a list of objects at position %d. -Used in e.g., \\[ess-execute-objects] or \\[ess-display-help-on-object]." - :group 'ess-command - :type 'string) - -(defvar ess-getwd-command nil - "Command string retriving the working directory from the process.") - -(defvar ess-setwd-command nil - "Command string to set working directory. -Should contain a formating %s to be replaced by a -path (as in 'setwd(%s)\\n'.") - -(defcustom ess-program-files ;; 32 bit version - (if ess-microsoft-p - (if (getenv "ProgramW6432") - (w32-short-file-name (getenv "ProgramFiles(x86)"));; always 32 on 64 bit OS - (w32-short-file-name (getenv "ProgramFiles"))) ;; always 32 on 32 bit OS - nil) - "Safe (no embedded blanks) 8.3 name for 32-bit programs that works across internationalization." - :group 'ess - :type '(choice (string) (const nil))) - -(defcustom ess-program-files-64 ;; 64 bit version - (if (and ess-microsoft-p (getenv "ProgramW6432")) - (w32-short-file-name (getenv "ProgramW6432")) - nil) - "Safe (no embedded blanks) 8.3 name for 64-bit programs that works across internationalization." - :group 'ess - :type '(choice (string) (const nil))) - -(defcustom ess-directory-containing-R nil - "nil (the default) means the search for all occurences of R -on the machine will use the default location of the R directory - (inside \"c:/Program Files\" in English locale Windows systems). -Non-nil values mean use the specified location as the -directory in which \"R/\" is located. For example, setting -`ess-directory-containing-R' to \"c:\" will tell ESS to search -for R versions with pathnames of the form \"c:/R/R-x.y.z\". - -Currently only used when `ess-microsoft-p'. If you change the -value of this variable, you need to restart Emacs for it to take -effect. It also needs to be set before you load ess-site as its -value is used once only when ESS is loaded." - - :group 'ess - :type '(choice (directory) (const nil))) - -(defcustom ess-rterm-version-paths nil - "Stores the full path file names of Rterm versions, computed via -\\[ess-find-rterm]. If you have versions of R in locations other than -in ../../R-*/bin/Rterm.exe or ../../rw*/bin/Rterm.exe, relative to the -directory in the `exec-path' variable containing your default location -of Rterm, you will need to redefine this variable with a -`custom-set-variables' statement in your site-start.el or .emacs -file." - :group 'ess-R - :type '(repeat string)) - -(defcustom ess-SHOME-versions - ;; ess-program-files ~= "c:/progra~1" for typical locales/languages - (mapcar - (lambda (ch) (concat ess-program-files ch)) - '("/Insightful/splus62" - "/Insightful/splus61" - "/MathSoft/splus6" - "/spls45se" - "/Insightful/splus62netclient" - "/Insightful/splus62net/server" - "/Insightful/splus61netclient" - "/Insightful/splus61net/server" - "/Insightful/splus6se" - "/Insightful/splus61se" - "/Insightful/splus62se" - "/Insightful/splus70" - "/Insightful/splus71" - "/Insightful/splus8.0.1" - "/Insightful/splus8.0.4" - "/Insightful/splus80" - "/TIBCO/splus81" - "/TIBCO/splus82" - )) - "List of possible values of the environment variable SHOME for recent -releases of S-Plus. These are the default locations for several -current and recent releases of S-Plus. If any of these pathnames -correspond to a directory on your machine, running the function -`ess-sqpe-versions-create' will create a function, for example, -\\[splus70], that will start the corresponding version Sqpe inside an -emacs buffer in iESS[S] mode. If you have versions of S-Plus in -locations other than these default values, redefine this variable with -a `custom-set-variables' statement in your site-start.el or .emacs -file. The list of functions actually created appears in the *ESS* -buffer and should appear in the \"ESS / Start Process / Other\" -menu." - :group 'ess-SPLUS - :type '(repeat string)) - -(defcustom ess-SHOME-versions-64 - ;; ess-program-files-64 ~= "c:/progra~1" for typical locales/languages - (mapcar - (lambda (ch) (concat ess-program-files-64 ch)) - '("/TIBCO/splus82" - )) - "List of possible values of the environment variable SHOME for recent -releases of 64-bit S-Plus. These are the default locations for several -current and recent releases of S-Plus. If any of these pathnames -correspond to a directory on your machine, running the function -`ess-sqpe-versions-create' will create a function, for example, -\\[splus70], that will start the corresponding version Sqpe inside an -emacs buffer in iESS[S] mode. If you have versions of 64-bit S-Plus in -locations other than these default values, redefine this variable with -a `custom-set-variables' statement in your site-start.el or .emacs -file. The list of functions actually created appears in the *ESS* -buffer and should appear in the \"ESS / Start Process / Other\" -menu." - :group 'ess-SPLUS - :type '(repeat string)) - -(define-obsolete-variable-alias 'inferior-S3-program-name - 'inferior-S3-program "ESS 18.10") -(defcustom inferior-S3-program "/disk05/s/S" - "Program name for invoking an inferior ESS with S3()." - :group 'ess-S - :type 'string) - -(define-obsolete-variable-alias 'inferior-S+3-program-name - 'inferior-S+3-program "ESS 18.10") -(define-obsolete-variable-alias 'inferior-S-program-name - 'inferior-S+3-program "ESS 18.10") -(defcustom inferior-S+3-program "Splus" - "Program name for invoking an inferior ESS with S+3()." - :group 'ess-SPLUS - :type '(choice (string) file)) - -(define-obsolete-variable-alias 'inferior-S+4-program-name - 'inferior-S+4-program "ESS 18.10") -(defcustom inferior-S+4-program - (concat ess-program-files "/spls45se/cmd/Splus.exe") - "Program name for invoking an external GUI S+4. -The default value is correct for a default installation of -S-Plus 4.5 Student Edition and with bash as the shell. -For any other version or location, change this value in ess-site.el or -site-start.el. Use the 8.3 version of the pathname. -Use double backslashes if you use the msdos shell." - :group 'ess-SPLUS - :type 'string) - -(defcustom inferior-S+4-print-command "S_PRINT_COMMAND=emacsclientw.exe" - "Destination of print icon in S+4 Commands window." - :group 'ess-SPLUS - :type 'string) - -(defcustom inferior-S+4-editor-pager-command - "options(editor='emacsclient.exe', pager='emacsclientw.exe')" - "Programs called by the editor() and pager() functions -in S+4 Commands window and in Sqpe+4 buffer." - :group 'ess-S - :type 'string) - -(define-obsolete-variable-alias 'inferior-Sqpe+4-program-name - 'inferior-Sqpe+4-program "ESS 18.10") -(defcustom inferior-Sqpe+4-program - (concat ess-program-files "/spls45se/cmd/Sqpe.exe") - "Program name for invoking an inferior ESS with Sqpe+4()." - :group 'ess-SPLUS - :type '(choice (const nil) (string))) - -(defcustom inferior-Sqpe+4-SHOME-name - (if ess-microsoft-p (concat ess-program-files "/spls45se" "")) - "SHOME name for invoking an inferior ESS with Sqpe+4(). -The default value is correct for a default installation of -S-Plus 4.5 Student Edition. For any other version or location, -change this value in ess-site.el or site-start.el. Use the 8.3 -version of the pathname." - :group 'ess-SPLUS - :type '(choice (const nil) (string))) - -(define-obsolete-variable-alias - 'inferior-S-elsewhere-program-name - 'inferior-S-elsewhere-program "ESS 18.10") -(defcustom inferior-S-elsewhere-program "sh" - "Program name to invoke an inferior ESS with S on a different computer." - :group 'ess-proc - :type 'string) - -(define-obsolete-variable-alias - 'inferior-ESS-elsewhere-program-name - 'inferior-ESS-elsewhere-program "ESS 18.10") -(defcustom inferior-ESS-elsewhere-program "sh" - "Program name to invoke an inferior ESS with program on a -different computer." - :group 'ess-proc - :type 'string) - -(define-obsolete-variable-alias 'inferior-S4-program-name - 'inferior-S4-program "ESS 18.10") -(defcustom inferior-S4-program "S4" - "Program name to invoke an inferior ESS with S4()." - :group 'ess-S - :type '(choice (string) (file))) - -(define-obsolete-variable-alias 'inferior-S+5-program-name - 'inferior-S+5-program "ESS 18.10") -(defcustom inferior-S+5-program "Splus5" - "Program name to invoke an inferior ESS with S+5()." - :group 'ess-SPLUS - :type '(choice (string) (file))) - -(defvaralias 'S+6-dialect-name 'S+-dialect-name) -(defcustom S+-dialect-name "S+" - "Name of 'dialect' for S-PLUS 6.x and later. -Easily changeable in a user's `.emacs'." - :group 'ess-SPLUS - :type 'string) - -(defvaralias 'inferior-S+6-program 'inferior-S+-program) -(define-obsolete-variable-alias 'inferior-S+6-program-name - 'inferior-S+-program "ESS 18.10") - -(define-obsolete-variable-alias 'inferior-S+-program-name - 'inferior-S+-program "ESS 18.10") -(defcustom inferior-S+-program - (if ess-microsoft-p - (concat ess-program-files "/TIBCO/splus82/cmd/Splus.exe") - "Splus") - "Program name to invoke S+. -On Unix/Linux, use the Splus executable. On Windows, the default -value is correct for a default installation of S-Plus 8.1 and -with bash as the shell. For any other version or location, -change this value in ess-site.el or site-start.el. Use the 8.3 -version of the pathname. Use double backslashes if you use the -msdos shell." - :group 'ess-SPLUS - :type '(choice (string) (file))) - -(defvaralias 'inferior-S+6-start-args 'inferior-S+-start-args) -(defvaralias 'inferior-Splus-args 'inferior-S+-start-args) -(defcustom inferior-S+-start-args "" - "String of arguments used when starting S. -These arguments are currently passed only to S+6 and higher." - :group 'ess-SPLUS - :type 'string) - - -(defvaralias 'inferior-Sqpe-start-args 'inferior-Sqpe+-start-args) -(defcustom 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 - :group 'ess-SPLUS - :type 'string - ) - - -(defcustom inferior-Splus-objects-command "objects(where=%d)\n" - "Format string for R command to get a list of objects at position %d. -Used in e.g., \\[ess-execute-objects] or \\[ess-display-help-on-object]." - :group 'ess-command - :type 'string) - -(defvaralias 'inferior-S+6-print-command 'inferior-S+-print-command) - -(defcustom inferior-S+-print-command "S_PRINT_COMMAND=emacsclientw.exe" - "Destination of print icon in S+ for Windows Commands window." - :group 'ess-SPLUS - :type 'string) - -(defvaralias 'inferior-S+6-editor-pager-command 'inferior-S+-editor-pager-command) -(defcustom inferior-S+-editor-pager-command - "options(editor='emacsclient.exe', pager='emacsclientw.exe')" - "Programs called by the editor() and pager() functions in S+ -for Windows Commands window and in Sqpe+6 for Windows buffer." - :group 'ess-SPLUS - :type 'string) - -(defvaralias 'inferior-Sqpe+6-program 'inferior-Sqpe+-program) -(define-obsolete-variable-alias 'inferior-Sqpe+-program-name - 'inferior-Sqpe+-program "ESS 18.10") -(defcustom inferior-Sqpe+-program - (concat ess-program-files "/TIBCO/splus82/cmd/Sqpe.exe") - "Program name for invoking an inferior ESS with Sqpe+6() for Windows." - :group 'ess-S - :type '(choice (const nil) (string))) - -(defvaralias 'inferior-Sqpe+6-SHOME-name 'inferior-Sqpe+-SHOME-name) -(defcustom inferior-Sqpe+-SHOME-name - (if ess-microsoft-p (concat ess-program-files "/TIBCO/splus82" "")) - "SHOME name for invoking an inferior ESS with Sqpe+6 and higher for Windows. -The default value is correct for a default installation of -S-Plus 8.1. For any other version or location, -change this value in ess-site.el or site-start.el. Use the 8.3 -version of the pathname." - :group 'ess-SPLUS - :type '(choice (const nil) (string))) - -(defcustom ess-S-quit-kill-buffers-p nil - "Controls whether S buffers should also be killed once a process is killed. -This is used only when an iESS process is killed using C-c C-q. -Possible values: -nil - do not kill any S buffers associated with the process. -t - kill S buffers associated with the process. -ask - ask the user whether the S buffers should be killed." - :group 'ess-S - :type '(choice (const nil) (const t) (const ask))) - -(define-obsolete-variable-alias 'inferior-XLS-program-name - 'inferior-XLS-program "ESS 18.10") -(defcustom inferior-XLS-program "xlispstat" - "Program name for invoking an inferior ESS with \\[XLS]." - :group 'ess-XLS - :type '(choice (string) (file))) - -(define-obsolete-variable-alias 'inferior-VST-program-name - 'inferior-VST-program "ESS 18.10") -(defcustom inferior-VST-program "vista" - "Program name for invoking an inferior ESS with \\[ViSta]." - :group 'ess-XLS - :type '(choice (string) (file))) - -(define-obsolete-variable-alias 'inferior-ARC-program-name - 'inferior-ARC-program "ESS 18.10") -(defcustom inferior-ARC-program "arc" - "Program name for invoking an inferior ESS with \\[ARC]." - :group 'ess-XLS - :type '(choice (string) (file))) - -(define-obsolete-variable-alias 'inferior-SAS-program-name - 'inferior-SAS-program "ESS 18.10") -(defcustom inferior-SAS-program "sas" - "Program name for invoking an inferior ESS with SAS()." - :group 'ess-sas - :type '(choice (string) (file))) - -(define-obsolete-variable-alias 'inferior-STA-program-name - 'inferior-STA-program "ESS 18.10") -(defcustom inferior-STA-program "stata" - "Program name for invoking an inferior ESS with stata(). -This is NOT Stata, because we need to call stata with TERM=emacs in -order for it to work right. And Emacs is too smart for it." - :group 'ess-Stata - :type '(choice (string) (file))) - -(defcustom ess-sta-delimiter-friendly nil - "Non-nil means convert embedded semi-colons to newlines for Stata processing." - :group 'ess-Stata - :type 'boolean) - -(define-obsolete-variable-alias 'inferior-OMG-program-name - 'inferior-OMG-program "ESS 18.10") -(defcustom inferior-OMG-program "omegahat" - "Program name for invoking an inferior ESS with omegahat()." - :group 'ess-OMG - :type '(choice (string) (file))) - -(defvaralias 'R-editor 'ess-r-editor) -(defcustom ess-r-editor "emacsclient" - "Editor called by R process with 'edit()' command." - :group 'ess - :type 'string) - -(defvaralias 'R-pager 'ess-r-pager) -(defcustom ess-r-pager 'nil ; Usually nil is correct as ESS and page() cooperate. - "Pager called by R process with 'page()' command." - :group 'ess - :type '(choice (const nil) string)) - -(defcustom S-editor "emacsclient" - "Editor called by S process with 'edit()' command." - :group 'ess - :type 'string) - -(defcustom S-pager - (if ess-microsoft-p "emacsclientw.exe" "emacsclient") - "Pager called by S process with 'page()' command." - :group 'ess - :type 'string) - -(defvar ess-editor nil - "*Editor by which the process sends information to an emacs buffer -for editing and then to be returned to the process.") - -(defvar ess-pager nil - "*Pager by which the process sends information to an emacs buffer.") - -(defvar inferior-ess-language-start nil - "*Initialization commands sent to the ESS process.") - -(make-variable-buffer-local 'ess-editor) -(make-variable-buffer-local 'ess-pager) -(make-variable-buffer-local 'inferior-ess-language-start) - - - -;;;;; names for S-Plus help files on MS-Windows - -(defcustom inferior-ess-help-filetype nil - "S-Plus and Sqpe for Windows use the \"chm\" (compiled html) filetype -for help files. The default value is nil for other systems." - :group 'ess-proc - :type '(choice (const nil) (string))) -(make-variable-buffer-local 'inferior-ess-help-filetype) - -;;;;; names for communication using MS-Windows 9x/NT ddeclient mechanism - -(defcustom inferior-ess-ddeclient nil - "ddeclient is the intermediary between emacs and the stat program." - :group 'ess-proc - :type '(choice (const nil) (string))) - -(defcustom inferior-ess-client-name nil - "Name of ESS program ddeclient talks to." - :group 'ess-proc - :type '(choice (const nil) (string))) - -(defcustom inferior-ess-client-command nil - "ddeclient command sent to the ESS program." - :group 'ess-proc - :type '(choice (const nil) string)) - -(make-variable-buffer-local 'inferior-ess-client-name) -(make-variable-buffer-local 'inferior-ess-ddeclient) -(make-variable-buffer-local 'inferior-ess-client-command) - -(defvar inferior-S-program inferior-S+3-program - "Program name for invoking an inferior ESS with S.") - -(define-obsolete-variable-alias 'inferior-ess-program-name - 'inferior-ess-program "ESS 18.10") -(defvar inferior-ess-program nil ;inferior-S-program - "Default program name for invoking `inferior-ess'. -The other variables ...-program should be changed, for the -corresponding program.") -(make-variable-buffer-local 'inferior-ess-program) - -(defvar inferior-ess-start-args "" - "String of arguments passed to the ESS process. -If you wish to pass arguments to a process, see e.g. `inferior-R-args'.") - -(defcustom inferior-ess-start-file nil - "File dumped into process, if non-nil." - :group 'ess-proc - :type '(choice (const nil) file)) - -(defcustom inferior-ess-pager (if ess-microsoft-p "console" "cat") - "Pager to use for reporting help files and similar things." - :group 'ess-proc - :type 'string) - -(defvar inferior-ess-primary-prompt "> " - "Regular expression used by `ess-mode' to detect the primary prompt.") -(make-variable-buffer-local 'inferior-ess-primary-prompt) - -(defvar inferior-ess-secondary-prompt nil - "Regular expression used by ess-mode to detect the secondary prompt. -This is issued by S to continue an incomplete expression. -Set to nil if language doesn't support secondary prompt.") -(make-variable-buffer-local 'inferior-ess-secondary-prompt) - -(defvar ess-traceback-command nil - "Command to generate error traceback.") - -;; need this to recognise + + + > > > -;; and "+ . + " in tracebug prompt -;; VS[17-08-2012]: all of the occurrences in the code should should eventually -;; go away, (once we are sure this doesn't break anything) -(defvaralias 'inferior-ess-S-prompt 'inferior-S-prompt) -(defvar inferior-S-prompt "[]a-zA-Z0-9.[]*\\(?:[>+.] \\)+" - "Regexp used in S and R inferior and transcript buffers for prompt navigation. -Must be anchored to BOL.") - -;;*;; Variables controlling interaction with the ESS process - -(defcustom ess-execute-in-process-buffer nil - "Non-nil means the ess-execute- commands output to the process buffer. -Otherwise, they get their own temporary buffer." - :group 'ess-proc - :type 'boolean) - -(defcustom ess-eval-empty nil - "Non-nil means `ess-eval-line*' will send empty lines to the ESS process." - :group 'ess-proc - :type 'boolean) - -(defvaralias 'ess-eval-visibly-p 'ess-eval-visibly) - -(defcustom ess-eval-visibly t - "Non-nil means ess-eval- commands display commands in the process buffer. -If t, ESS waits after each line of the command for the process -output. This results in a nice sequence of input and output but -stalls emacs on long output (like Sys.sleep(5) in R). - -If 'nowait, ESS still shows the input commands, but don't wait -for the process. Thus all the output is printed after the input -lines. - -If nil, ESS doesn't print input commands and doesn't wait for the process. - -This variable also affect the evaluation of input code in -iESS. The effect is similar to the above. If t then ess waits for -the process output, otherwise not. -" - :group 'ess-proc - :type '(choice (const t) (const nowait) (const nil))) - -(defcustom ess-eval-deactivate-mark (fboundp 'deactivate-mark); was nil till 2010-03-22 - "Non-nil means that after ess-eval- commands the mark is deactivated, - (see \\[deactivate-mark])." - :group 'ess-proc - :type 'boolean) - -(defcustom ess-use-R-completion t - "Non-nil means use R-builtin completion mechanism when available." - :group 'ess-proc - :type 'boolean) - -(defcustom ess-eval-ddeclient-sleep 0.06 - "If non-nil, a number specifying *seconds* to wait after certain -\\[ess-eval-linewise-ddeclient] calls, such as those at startup." - ;; i.e this currently only applies to (if microsoft-p ...) ! - :group 'ess-proc - :type '(choice (const nil) number)) - -(defcustom ess-sleep-for-shell (if ess-microsoft-p 5 1) - "*Pause before sending output to the shell." - :group 'ess-proc - :type 'number) - - ; System variables -;; VS[06-04-2016]: fixme: move all inf vars into ess-inf.el. - -;;*;; Variables relating to multiple processes - -(defvar ess--mode-line-process-indicator '("" ess-local-process-name) - "List of ESS mode-line indicators. -Local in process buffers and must start with a string. Changes of -this variable are automatically reflected in mode-lines of the -process and all associated with it buffers. - -Each symbol must evaluate ot one of the standard mode line -objecst. See info node `(elisp)Mode Line Data'). Add a symbol -with `add-to-list' and remove with `delq'. Note that the symbols -which are part of this list should better have -'risky-local-variable property set to t, otherwise the text -properties are not displayed. - -External utilities such as `ess-tracebug' and `ess-developer' -customize this variable to indicate changes in the process -status. -") -(put 'ess--mode-line-process-indicator 'risky-local-variable t) -(make-variable-buffer-local 'ess--mode-line-process-indicator) - -(defvar ess--local-mode-line-process-indicator '("") - "List of local process indicators. -See `ess--mode-line-process-indicator' for how to set it. - -This is an internal varialbe used by tools like `ess-developer' -and `ess-tracebug'.") -(put 'ess--local-mode-line-process-indicator 'risky-local-variable t) -(make-variable-buffer-local 'ess--local-mode-line-process-indicator) - -(defvar ess-process-name-list nil - "Alist of active ESS processes.") - -;;*;; Inferior ESS commands - -(defvar ess-load-command "source('%s')\n" - "Dialect specific format-string for building the ess command to load a file. - -This format string should use %s to substitute a file name and should -result in an ESS expression that will command the inferior ESS to load -that file.") - -(defvar ess-eval-command nil - "Dialect specific format-string for building the command to evaluate a string. - -It is usually faster to send a string to remote processes than a -file. The latter involves Tramp and can be quite slow. When -possible, a dialect should implement that command and use it -preferentially. - -This format string should use %s as a placeholder for the string -to be evaluated and, optionally, %f for the file name to be -reported in the error references. - -The resulting command should not echo code or print any -transitory output. See also `ess-eval-visibly-command' and -`ess-eval-visibly-noecho-command'.") - -(defvar ess-build-eval-message-function nil - "Dialect-specific function for formatting an evaluation message.") - -(make-variable-buffer-local 'ess-eval-command) -(make-variable-buffer-local 'ess-load-command) -(make-variable-buffer-local 'ess-build-eval-message-function) - -(defcustom inferior-ess-dump-command "dump(\"%s\",file=\"%s\")\n" - "Format-string for building the ess command to dump an object into a file. - -Use first %s to substitute an object name -Use second %s to substitute the dump file name." - :group 'ess-command - :type 'string) - -(defvar inferior-ess-help-command "help(\"%s\")\n" - "Format-string for building the ESS command to ask for help on an object. - -This format string should use %s to substitute an object name.") -(make-variable-buffer-local 'inferior-ess-help-command) - -(defcustom inferior-ess-r-help-command ".ess.help('%s')\n" - "Format-string for building the R command to ask for help on an object. - -This format string should use %s to substitute an object name. -If set, changes will take effect when next R session is started." - :group 'ess-command - :type 'string) - -(defvar ess-get-help-topics-function nil - "Dialect specific help topics retrieval") - -(defvar ess-display-help-on-object-function nil - "Dialect specific function for displaying help on object.") - -(defvar ess-find-help-file-function nil - "Dialect specific function for displaying help on object.") - -(defvar ess-build-help-command-function nil - "Dialect specific function for building an help command.") - -(make-variable-buffer-local 'ess-get-help-topics-function) -(make-variable-buffer-local 'ess-display-help-on-object-function) -(make-variable-buffer-local 'ess-find-help-file-function) -(make-variable-buffer-local 'ess-build-help-command-function) - -(defvar-local inferior-ess-exit-command "q()\n" - "Format-string for building the ess command to exit. - -This format string should use %s to substitute an object name.") - -(defvar inferior-ess-search-list-command nil - "`ess-language' command that prints out the search list; -i.e. the list of directories and (recursive) objects that `ess-language' uses -when it searches for objects. - -Really set in -customize-alist in ess[dl]-*.el") -(make-variable-buffer-local 'inferior-ess-search-list-command) - -(defcustom inferior-ess-safe-names-command - "tryCatch(base::print(base::names(%s), max=1e6), error=function(e){})\n" - "Format string for ESS command to extract names from an object *safely*. - -%s is replaced by an \"object name\" -- usually a list or data frame, but in R also - e.g., 'package:stats'." - :group 'ess-command - :type 'string) - -(defcustom inferior-ess-get-prompt-command "options()$prompt\n" - "Command to find the value of the current S prompt." - :group 'ess-command - :type 'string) - -;;*;; Regular expressions -(defvar inferior-ess-prompt nil - "The regular expression used for recognizing prompts. - -It is always used in transcript mode. In inferior ess mode it is -used only if `comint-use-prompt-regexp' is t. - -If not set in language's customise-alist it is constructed at run time -from `inferior-ess-primary-prompt' and `inferior-ess-secondary-prompt'.") - -(make-variable-buffer-local 'inferior-ess-prompt) - -(defvar ess-change-sp-regexp "" - "The regexp for matching the S/R/.. commands that change the search path.") -(make-variable-buffer-local 'ess-change-sp-regexp) - -(defvar ess-S+-change-sp-regexp - "\\(attach(\\([^)]\\|$\\)\\|detach(\\|collection(\\|library(\\|module(\\|source(\\)" - "The regexp for matching the S-plus commands that change the search path.") - -(defvar ess-S-change-sp-regexp - "\\(attach(\\([^)]\\|$\\)\\|detach(\\|library(\\|source(\\)" - "The regexp for matching the S commands that change the search path.") - -(defvaralias 'ess-R-change-sp-regexp 'ess-r-change-sp-regexp) -(defvar ess-r-change-sp-regexp - "\\(attach(\\([^)]\\|$\\)\\|detach(\\|library(\\|require(\\|source(\\)" - "The regexp for matching the R commands that change the search path.") - -;;*;; Process-dependent variables - -(defvar ess-search-list nil - "Deprecated. Use (ess-search-list) or (ess-process-get 'search-list) instead.") -(make-obsolete-variable 'ess-search-list nil "ESS[12.09]") - -(defvar ess-sl-modtime-alist nil - "Alist of modification times for all ess directories accessed this session.") -(make-variable-buffer-local 'ess-sl-modtime-alist) - -(defvar ess-sp-change nil - "Variable not used. Use (ess-process-get 'sp-for-help-changed?) instead.") -(make-obsolete-variable 'ess-sp-change nil "ESS[12.09]") -;; (make-variable-buffer-local 'ess-sp-change) - -(defvar ess-prev-load-dir/file nil - "This symbol saves the (directory . file) pair used in the last -`ess-load-file' command. Used for determining the default in the next one.") - -(make-variable-buffer-local 'ess-prev-load-dir/file) - -(defvar ess-object-list nil - ;; This is a list of the currently known object names. It is - ;; current only for one command entry; it exists under the - ;; assumption that the list of objects doesn't change while entering - ;; a command. - "Cache of object names") - -(make-variable-buffer-local 'ess-object-list) - -(defvar ess-help-topics-list nil - ;; List of currently known help topics. - "Cache of help topics") - -(make-variable-buffer-local 'ess-help-topics-list) - - -;;*;; Miscellaneous system variables - -(defvar ess-temp-point nil - "Variable used to retain a buffer position past let or let*.") - - -;; SJE: Wed 29 Dec 2004 - following 3 ess-object* variables can be removed -;; soon if no-one needs the completion code. -(defvar ess-object-name-db-file "ess-namedb" - "File containing definitions for `ess-object-name-db'.") - -(defvar ess-object-name-db-file-loaded '() - "List of programs whose name-db file has been loaded.") - -(defvar ess-object-name-db nil - "Alist of lists of object names, with directory names as keys. -The file ess-namedb.el is loaded (if it exists) to define this variable. -See also function `ess-create-object-name-db'.") - -(make-variable-buffer-local 'ess-object-name-db) - -;;;*;;; Font-lock support - -;; "Reserved Words" -- part 1 -- -(defvar ess-RS-constants - '("TRUE" "FALSE" "NA" "NULL" "Inf" "NaN")) -(defvar ess-R-constants - (append ess-RS-constants - '("NA_integer_" "NA_real_" "NA_complex_" "NA_character_"))) -(defvar ess-S-constants - (append ess-RS-constants - '("T" "F"))) - -(defvar ess-R-keywords - '("if" "else" "repeat" "while" "function" "for" "in" "next" "break" - "switch" "function" "return" "on.exit" "stop" ".Defunct" "tryCatch" - "withRestarts" "invokeRestart" - "recover" "browser") - "Reserved words or special functions in the R language.") - -(defvar ess-S-keywords - (append ess-R-keywords '("terminate"))) - -;; only some of these keywords "look like functions but are not": -(defvar ess-S-non-functions - '("if" "for" "function" "while")) - -;; first the common ones -(define-obsolete-variable-alias 'ess-S-modifyiers 'ess-S-modifiers "18.10") -(defvar ess-S-modifiers - '("library" "attach" "detach" "source" "module" - "message" "warning")) - -(define-obsolete-variable-alias 'ess-R-modifyiers 'ess-R-modifiers "18.10") -(defvar ess-R-modifiers - '("library" "attach" "detach" "source" "require" - "setwd" "options" "par" "load" "rm" - "message" "warning" ".Deprecated" - "signalCondition" "withCallingHandlers")) - -(defvar ess-R-message-prefixes - '("Error:" "Error in" - "Warning:" "Warning in" - "Warning messages")) -(defvar ess-S-message-prefixes - (append ess-R-message-prefixes - '("Syntax error:" "Dumped"))) - -(defvar ess-R-assign-ops - ;; don't want "=" here which is not only for assign - '("<<-" "<-" "->" "->>")) -(defvar ess-S-assign-ops ess-R-assign-ops) - -(defvar ess-R-function-name-regexp - (concat "\\(" "\\sw+" "\\)" - "[ \t]*" "\\(<-\\)" - "[ \t\n]*" "function\\b")) - -(defvar ess-S-function-name-regexp - ess-R-function-name-regexp) - -(defvar ess-font-lock-keywords nil - "Internal. Holds a name of the dialect sepcific font-lock -keywords in the current buffer. See `ess-R-font-lock-keywords' -for an example.") -(make-variable-buffer-local 'ess-font-lock-keywords) - -(defvar ess-fl-keyword:fun-calls - (cons "\\(\\sw+\\)[\t ]*(" '(1 ess-function-call-face keep)) - "Font lock for function calls.") - -(defvar ess-fl-keyword:numbers - (cons "\\b\\.?[0-9]+[.eEL]?[0-9]*\\b" 'ess-numbers-face) - "Font lock for numbers.") - -(defvar ess-fl-keyword:delimiters - (cons "\\s(\\|\\s)" 'ess-paren-face) - "Font lock for parenthesis.") - -(defvar ess-fl-keyword:= - (cons "=" 'ess-paren-face) - "Font lock for equal sign (=).") - -(defvar ess-fl-keyword:operators - (cons "[-=+> -;; Copyright (C) 2000--2006 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Richard M. Heiberger -;; Created: 9 Dec 1998 -;; Maintainer: ESS-core - -;; 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 -;; https://www.r-project.org/Licenses/ - - -;;; Commentary: - -;; Code for dealing with running external processes on Windows 9x/NT -;; through ddeclient. - -;;; Code: - -(require 'ess-custom) -(require 'ess-mode) -(require 'ess-utils) - -(defun ess-ddeclient-p () - "Returns t iff `ess-local-process-name' is associated with an -inferior-ess-ddeclient, and nil if the ess-process is running as an -ordinary inferior process. Alway nil on Unix machines." - (interactive) - (when ess-microsoft-p - ;; Debug: C-c C-l fails (to start R or give good message) in Windows - (ess-write-to-dribble-buffer - (format "*ddeclient-p: ess-loc-proc-name is '%s'" ess-local-process-name)) - (ess-force-buffer-current "Process to load into: ") - (not (equal (ess-get-process-variable 'inferior-ess-ddeclient) - (default-value 'inferior-ess-ddeclient))))) - -;; C-c C-r -(defun ess-dde-send-region (proc start end &optional visibly message) - "Loop through lines in region and send them to ESS via ddeclient. - -PROC, VISIBLY and MESSAGE are ignored." - (setq ;; set the following variables for the current ddeESS process. - inferior-ess-ddeclient (ess-get-process-variable 'inferior-ess-ddeclient) - inferior-ess-client-name (ess-get-process-variable 'inferior-ess-client-name) - inferior-ess-client-command (ess-get-process-variable 'inferior-ess-client-command)) - (narrow-to-region start end) - (goto-char (point-min)) - (let ((beg)) - (while (or (< (point) (point-max)) - (and (= 1 (point-max)) - (bound-and-true-p ess-dde-even-empty))) - (setq beg (point)) - (end-of-line) - ;; call-process-region won't send over a 0-character line. - ;; We go outside the loop to create a 1-character line " " in the - ;; *ESS-temporary* buffer - (if (= beg (point)) ;; do empty line outside loop - (ess-dde-eval-linewise " " nil 'eob t) - ;;(call-process-region start end - ;; "ddeclient" nil nil nil "S-PLUS" "SCommand") - (call-process-region - beg (point) - inferior-ess-ddeclient nil nil nil - inferior-ess-client-name inferior-ess-client-command)) - (forward-line 1)) - (widen))) - -;; C-c C-n -(defun ess-dde-eval-linewise (text-withtabs &optional invisibly eob - even-empty wait-last-prompt &rest args) - (with-current-buffer (get-buffer-create "*ESS-temporary*") - (ess-setq-vars-local ess-customize-alist (current-buffer)) - (erase-buffer) - (insert text-withtabs) - (let ((ess-dde-even-empty even-empty)) - (ess-dde-send-region nil (point-min) (point-max)))) - (when wait-last-prompt - ess-eval-ddeclient-sleep)) ; in addition to timeout-ms - -;; C-c C-v -(defun ess-dde-display-help-on-object (object &rest args) - "Display the ESS documentation for OBJECT in another window. -If prefix arg is given, forces a query of the ESS process for the help -file. Otherwise just pops to an existing buffer if it exists." - (ess-force-buffer-current "Process to load into: ") - (ess-dde-eval-linewise (concat "help(" object ")"))) - -(defun ess-dde-find-help-file (p-string) - (read-string "Help on: ")) - -;; C-c C-l -(defun ess-dde-load-file (filename) - "Load an S source file into an inferior ESS process; alternate behavior for -`ess-load-file', required with S-Plus GUI for Windows: Sends the S-Plus command -source(\"filename\") to S. This version does not guarantee to save .Last.value, -nor offer alternate buffers or editing capability." - (let ((source-buffer (get-file-buffer filename))) - (if (ess-check-source filename) - (error "Buffer %s has not been saved" (buffer-name source-buffer)) - ;; Find the process to load into - (if source-buffer - (with-current-buffer source-buffer - (ess-force-buffer-current "Process to load into: ") - ;; (ess-check-modifications) ;;; not possible with ddeclient - ;; it calls ess-command which requires two-way communication - ;; with the S-Plus process - ))) - (ess-dde-eval-linewise (format ess-load-command filename))) - (widen)) - - -;; C-c C-d -(defun ess-dde-dump-object (object filename) - "Dump the ESS object OBJECT into file FILENAME." - (ess-force-buffer-current "Process to load into: ") - (ess-dde-eval-linewise (concat "dump('" object "','" filename "')")) - (sleep-for 5) - (find-file filename) - (widen)) - -(defun ess-dde-read-object-name (p-string) - (read-string "Object to edit: ")) - -(defun ess-dput-expression-ddeclient (object filename) - "Dump the ESS object found by evaluating OBJECT into file FILENAME." - (ess-force-buffer-current "Process to load into: ") - (ess-dde-eval-linewise (concat "dput(" object ",'" filename "')")) - (sleep-for 2) - (find-file filename)) - -(defun ess-command-ddeclient-proposed (com &optional buf sleep) - "ddeclient version of real `ess-command'. -Send the ESS process command COM and redirect its output to the -temporary file named BUF. The temporary filename is constructed -in emacs, not in the ESS process. The default name for the -temporary buffer is \"ess-temp.st\". The function waits -SLEEP (which defaults to 1) seconds and then brings the temporary -file into an emacs buffer and displays it." - (let (filename bufname) - (if (not buf) (setq buf "ess-temp.st")) - (if (not sleep) (setq sleep 1)) - (setq filename (concat (file-name-as-directory (getenv "TEMP")) buf)) - (ess-dde-eval-linewise - (concat ".old.Last.value <- .Last.value; sink('" - filename - "'); print(" - com - "); sink(); .Last.value <- .old.Last.value")) - (setq bufname (ess-get-file-or-buffer filename)) ;; must follow the eval - (sleep-for sleep) - (if (not bufname) - (find-file filename) - (switch-to-buffer bufname)) - (revert-buffer t t) ;; this allows the user to reuse the BUF name - )) - -;; previous version (ESS-5.2.12 and earlier) -(defun ess-dde-command (com &optional buf sleep) - "ddeclient bypass of real ess-command" - (ess-eval-linewise com)) - -(provide 'ess-dde) - -;;; ess-dde.el ends here diff --git a/elpa/ess-20181109.703/ess-defs.info b/elpa/ess-20181109.703/ess-defs.info deleted file mode 100644 index a094c828..00000000 --- a/elpa/ess-20181109.703/ess-defs.info +++ /dev/null @@ -1,8 +0,0 @@ -This is ess-defs.info, produced by makeinfo version 6.5 from -ess-defs.texi. - - - -Tag Table: - -End Tag Table diff --git a/elpa/ess-20181109.703/ess-font-lock.el b/elpa/ess-20181109.703/ess-font-lock.el deleted file mode 100644 index 298dfd2f..00000000 --- a/elpa/ess-20181109.703/ess-font-lock.el +++ /dev/null @@ -1,151 +0,0 @@ -;;; ess-font-lock.el --- font-lock color options - -;; Copyright (C) 2000--2006 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Richard M. Heiberger -;; Created: 06 Feb 2000 - -;; Keywords: languages, faces - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; provides syntax highlighting support. - -;;; Code: - - ; Requires and autoloads - -(require 'font-lock) -(require 'paren) - -;; FIXME: What is this doing here!? -(if (fboundp 'show-paren-mode) (show-paren-mode 1)) - -;;; Emacs 20.x notes: - -;; font-lock faces are defined in /emacs/emacs-20.5/lisp/font-lock.el -;; The font-lock faces are applied to ESS buffers by -;; ess-mode.el ess-inf.el ess-trns.el ess-custom.el -;; The keywords for faces are defined in the ess[dl]*.el files. -;; All faces can be looked at, under Emacs 20.x, with -;; [menu-bar] [Edit] [Text Properties] [Display Faces} - -(defun ess-font-lock-rmh () - "Set font-lock colors to Richard Heiberger's usual choice." - ;; FIXME: Turn it into a Custom theme! - (interactive) - - (set-foreground-color "Black") - (set-background-color "lightcyan") - - (set-face-background 'mode-line "lightskyblue") - (set-face-foreground 'mode-line "midnightblue") - - (set-face-foreground 'font-lock-comment-face "Firebrick") - (set-face-foreground 'font-lock-function-name-face "Blue") - (set-face-foreground 'font-lock-keyword-face "Purple") - (set-face-foreground 'font-lock-constant-face "Brown") - (set-face-foreground 'font-lock-string-face "VioletRed") - (set-face-foreground 'font-lock-type-face "Sienna") - (set-face-foreground 'font-lock-variable-name-face "Black")) - -(defun ess-font-lock-blue () - "Set font-lock colors to Richard Heiberger's blue color scheme." - ;; FIXME: Turn it into a Custom theme! - (interactive) - - (set-foreground-color "Black") - (set-background-color "LightBlue") - - (set-face-foreground 'mode-line "LightBlue") - (set-face-background 'mode-line "DarkSlateBlue") - - (set-face-foreground 'font-lock-comment-face "Firebrick") - (set-face-foreground 'font-lock-function-name-face "Blue") - (set-face-foreground 'font-lock-keyword-face "Purple") - (set-face-foreground 'font-lock-constant-face "Brown") - (set-face-foreground 'font-lock-string-face "VioletRed") - (set-face-foreground 'font-lock-type-face "Sienna") - (set-face-foreground 'font-lock-variable-name-face "Black")) - -(defun ess-font-lock-wheat () - "Set font-lock colors to Richard Heiberger's wheat color scheme." - ;; FIXME: Turn it into a Custom theme! - (interactive) - - (set-foreground-color "Black") - (set-background-color "Wheat") - - (set-face-foreground 'mode-line "Wheat") - (set-face-background 'mode-line "Sienna") - - (set-face-foreground 'font-lock-comment-face "Firebrick") - (set-face-foreground 'font-lock-function-name-face "Blue") - (set-face-foreground 'font-lock-keyword-face "Purple") - (set-face-foreground 'font-lock-constant-face "Brown") - (set-face-foreground 'font-lock-string-face "VioletRed") - (set-face-foreground 'font-lock-type-face "Sienna") - (set-face-foreground 'font-lock-variable-name-face "Black")) - - -(defun ess-font-lock-bw () - "Set font-lock colors to Richard Heiberger's black and white color scheme." - ;; FIXME: Turn it into a Custom theme! - (interactive) - - (set-foreground-color "Black") - (set-background-color "white") - - (set-face-foreground 'mode-line "gray10") - (set-face-background 'mode-line "gray90") - - ;; modify-face is an interactive compiled Lisp function in `faces'. - ;; Sample usage: - - ;;(modify-face FACE FOREGROUND BACKGROUND STIPPLE BOLD-P ITALIC-P UNDERLINE-P &optional INVERSE-P FRAME) - - (modify-face 'mode-line "gray10" "gray90" nil nil t nil ) - (modify-face 'font-lock-comment-face "black" "white" nil nil t nil ) - (modify-face 'font-lock-function-name-face "black" "white" nil t nil nil ) - (modify-face 'font-lock-keyword-face "black" "white" nil nil nil t ) - (modify-face 'font-lock-constant-face "black" "white" nil t nil nil ) - (modify-face 'font-lock-string-face "black" "white" nil nil t t ) - (modify-face 'font-lock-type-face "black" "white" nil t t nil ) - (modify-face 'font-lock-variable-name-face "black" "white" nil nil nil nil ) - (modify-face 'font-lock-builtin-face "black" "white" nil t nil nil ) - (modify-face 'font-lock-warning-face "black" "white" nil t nil nil ) - (modify-face 'show-paren-match-face "gray20" "gray80" nil t nil nil ) - (modify-face 'show-paren-mismatch-face "white" "gray40" nil t t nil )) - -(defun ess-font-lock-db () - "Set font-lock colors (leave fore-/back-ground alone) courtesy David Brahm " - ;; FIXME: Turn it into a Custom theme! - (interactive) - (set-face-foreground 'font-lock-comment-face "Firebrick") ; #... %... - (set-face-foreground 'font-lock-string-face "SeaGreen") ; "..." "..." - (set-face-foreground 'font-lock-keyword-face "MediumBlue") ; if \end - (set-face-foreground 'font-lock-function-name-face "VioletRed") ; talk<- {center} - (set-face-foreground 'font-lock-variable-name-face "Blue") ; xv - (set-face-foreground 'font-lock-type-face "Goldenrod") ; T,F ? - (set-face-foreground 'font-lock-constant-face "Magenta") ; <- {eq1} - ) - -(provide 'ess-font-lock) - -;;; ess-font-lock.el ends here diff --git a/elpa/ess-20181109.703/ess-generics.el b/elpa/ess-20181109.703/ess-generics.el deleted file mode 100644 index 772c2868..00000000 --- a/elpa/ess-20181109.703/ess-generics.el +++ /dev/null @@ -1,109 +0,0 @@ -;;; ess-generics.el --- Mode-generic functions -;; -;; Copyright (C) ESS-core -;; Maintainer: ESS-core -;; -;; 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 -;; https://www.r-project.org/Licenses/ -;; -;;; Comment -;; -;; Define generic method with `ess-defgeneric' and dialect specific override with -;; `ess-defmethod`. Current implementation is using `{name}-function' and -;; `ess-customize-alist' as the backbone mechanism. This might change in the -;; future. -;; -;;; Code - -(defun ess-generics--override (name args body) - (let ((funname (intern (format "%s-function" name))) - (arg-list (delq '&rest (delq '&optional (copy-alist args))))) - `(if (fboundp ,funname) - ,(if (memq '&rest args) - `(apply ,funname ,@arg-list) - `(funcall ,funname ,@arg-list)) - ,@(or body - `((error (format "`%s' is not implemented for dialect `%s'" - ',name ess-dialect))))))) - -(defun ess-generics--expand-overrides (name args body) - ;; ripped off from `mode-local--expand-overrides' - (let ((forms body) - (ditto t) - form xbody) - (while forms - (setq form (car forms)) - (cond - ((atom form)) - ((eq (car form) :override) - (setq form (ess-generics--override name args (cdr form)))) - ((eq (car form) :override-with-args) - (setq form (ess-generics--override name (cadr form) (cddr form)))) - ((setq form (ess-generics--expand-overrides name args form)))) - (setq ditto (and ditto (eq (car forms) form)) - xbody (cons form xbody) - forms (cdr forms))) - (if ditto body (nreverse xbody)))) - -;;;###autoload -(defmacro ess-defgeneric (name args docstring &rest body) - "Define a new function, as with `defun', which can be overloaded. -NAME is the name of the function to create. ARGS are the -arguments to the function. DOCSTRING is a documentation string to -describe the function. The docstring will automatically have -details about its overload symbol appended to the end. BODY is -code that would be run when there is no override defined. The -default is to signal error if {name}-function is not defined." - (declare (doc-string 3) (indent defun) (debug defun)) - (let ((funname (intern (format "%s-function" name)))) - `(eval-and-compile - (defvar-local ,funname nil ,(format "When defined this function is called by `%s'." name)) - (defun ,name ,args ,(format "%s\n\nUse `ess-defmethod' to define dialect specific overrides." docstring) - ,@(ess-generics--expand-overrides name args body))))) - -(defmacro ess-defmethod (dialect name args &rest body) - "Define a dialect specific override of the method NAME. -If NAME wasn't created with `ess-defgeneric' signal an -error. DIALECT is the dialect name this override is being defined -for. ARGS are the function arguments, which should match those of -the same named function created with `ess-defgeneric'. BODY is the -implementation of this function." - (declare (indent defun) (debug (&define sexp sexp lambda-list def-body))) - (let ((new-name (intern (format "%s:%s" name dialect))) - (fun-name (intern (format "%s-function" name))) - (alist-name (intern (downcase (format "ess-%s-customize-alist" dialect))))) - `(eval-and-compile - (unless (boundp ',alist-name) - (defvar ,alist-name nil - ,(format "Variables to customize dialect '%s'." dialect))) - (add-to-list ',alist-name - '(,fun-name . ',new-name)) - (defun ,new-name ,args - ,(format "%s\nThis is an override for `%s' for `%s' dialect." - ;; fixme: NAME might be undefined as yet. Look at help-fns-describe-function-functions - (or (and (fboundp name) - (documentation name) - ;; hackish - (replace-regexp-in-string "\nUse.*ess-defmethod.*\\." "" (documentation name))) - "") - name dialect) - ;; The body for this implementation - ,@body) - ;; For find-func to locate the definition of NEW-NAME. - (put ',new-name 'definition-name ',name)))) - - - -(provide 'ess-generics) diff --git a/elpa/ess-20181109.703/ess-gretl.el b/elpa/ess-20181109.703/ess-gretl.el deleted file mode 100644 index b2c04b01..00000000 --- a/elpa/ess-20181109.703/ess-gretl.el +++ /dev/null @@ -1,650 +0,0 @@ -;; ess-gretl.el --- ESS gretl mode and inferior interaction -;; -;; Copyright (C) 2012 Allin Cottrell -;; Copyright (C) 2012 Ahmadou DICKO -;; Copyright (C) 2013 ESS core team -;; -;; Filename: ess-gretl.el -;; Author: Ahmadou DICKO, Spinu Vitalie and Allin Cottrell (based on ess-julia.el and gretl.el) -;; Maintainer: Ahmadou DICKO -;; Created: 01-10-2012 (ESS 12.09) -;; Keywords: ESS, gretl, econometrics -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; - -;; This file is *NOT* part of GNU Emacs. -;; This file is *NOT YET* part of ESS -;; -;; This program 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 3, any later version. -;; -;; This program 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 -;; https://www.r-project.org/Licenses/ -;; -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Commentary: -;; start the inferior with M-x gretl. -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -(require 'compile); for compilation-* below -(require 'ess-r-mode) - - -;;; Code: -(defvar gretl-mode-hook nil) -(add-to-list 'auto-mode-alist '("\\.inp$" . gretl-mode)) - - -(defvar gretl-syntax-table - (let ((table (make-syntax-table))) - (modify-syntax-entry ?_ "w" table) ; underscores in words - (modify-syntax-entry ?@ "w" table) - (modify-syntax-entry ?# "<" table) ; # single-line comment start - (modify-syntax-entry ?\n ">" table) ; \n single-line comment end - (modify-syntax-entry ?\{ "(} " table) - (modify-syntax-entry ?\} "){ " table) - (modify-syntax-entry ?\[ "(] " table) - (modify-syntax-entry ?\] ")[ " table) - (modify-syntax-entry ?\( "() " table) - (modify-syntax-entry ?\) ")( " table) - (modify-syntax-entry ?\r " " table) - (modify-syntax-entry ?+ "." table) - (modify-syntax-entry ?- "." table) - (modify-syntax-entry ?= "." table) - (modify-syntax-entry ?* "." table) - (modify-syntax-entry ?/ "." table) - (modify-syntax-entry ?> "." table) - (modify-syntax-entry ?< "." table) - (modify-syntax-entry ?& "." table) - (modify-syntax-entry ?| "." table) - (modify-syntax-entry ?! "." table) - (modify-syntax-entry ?\\ "\\" table) - (modify-syntax-entry ?\' "." table) - (modify-syntax-entry ?\` "w" table) - (modify-syntax-entry ?\" "\"" table) - (modify-syntax-entry ?. "w" table) - (modify-syntax-entry ?_ "w" table) - (modify-syntax-entry ?\% "." table) - (modify-syntax-entry ?\# "<" table) - (modify-syntax-entry ?\n ">" table) - table) - "Syntax table for `gretl-mode'.") - -;; syntax table that holds within strings -(defvar gretl-mode-string-syntax-table - (let ((table (make-syntax-table))) - table) - "Syntax table for `gretl-mode' that holds within strings.") - -(defcustom gretl-continuation-offset 4 - "*Extra indentation applied to Gretl continuation lines." - :type 'integer - :group 'ess-gretl) - -(defvar gretl-continuation-regexp - "[^#%\n]*\\(\\\\\\|\\.\\.\\.\\)\\s-*\\(\\s<.*\\)?$") - -(defcustom gretl-continuation-string "\\" - "*Character string used for Gretl continuation lines. Normally \\." - :type 'string - :group 'ess-gretl) - -;; (defconst gretl-string-regex -;; "\"[^\"]*?\\(\\(\\\\\\\\\\)*\\\\\"[^\"]*?\\)*\"") - -(defconst gretl-function-header-regexp - (concat "^\\s-*\\<\\(function\\)\\>" - "\\([^=;\n]*=[ \t]*\\|[ \t]*\\)\\(\\w+\\)\\>") - "Regexp to match a Gretl function header. -The string `function' and its name are given by the first and third -parenthetical grouping.") - -;; (defconst ess-function-call-regexp -;; "\\s\"?\\(\\(\\sw\\|\\s_\\)+\\(<-\\)?\\)\\s\"?*\\s-*(" -;; "Regexp for function names") - -(defvar gretl-command-words - '("add" "adf" "anova" "append" "ar" "ar1" "arbond" "arch" - "arima" "biprobit" "break" "boxplot" "chow" "clear" "coeffsum" "coint" - "coint2" "corr" "corrgm" "cusum" "data" "dataset" "delete" "diff" - "difftest" "discrete" "dpanel" "dummify" "duration" "elif" "else" "end" - "endif" "endloop" "eqnprint" "equation" "estimate" "fcast" "foreign" "fractint" - "freq" "function" "funcerr" "garch" "genr" "gmm" "gnuplot" "graphpg" - "hausman" "heckit" "help" "hsk" "hurst" "if" "include" "info" - "intreg" "kalman" "kpss" "labels" "lad" "lags" "ldiff" "leverage" - "levinlin" "logistic" "logit" "logs" "loop" "mahal" "makepkg" "meantest" - "mle" "modeltab" "modprint" "modtest" "mpols" "negbin" "nls" "normtest" - "nulldata" "ols" "omit" "open" "orthdev" "outfile" "panel" "pca" - "pergm" "textplot" "poisson" "print" "printf" "probit" "pvalue" "quantreg" - "qlrtest" "qqplot" "quit" "rename" "reset" "restrict" "rmplot" "run" - "runs" "scatters" "sdiff" "set" "setinfo" "setobs" "setmiss" "shell" - "smpl" "spearman" "sprintf" "square" "sscanf" "store" "summary" "system" - "tabprint" "tobit" "tsls" "var" "varlist" "vartest" "vecm" "vif" - "wls" "xcorrgm" "xtab" "debug" "return" "catch" "for" "foreach" - "funcerr" "return" "while" "elif" "const" "3sls" "liml" "fiml" - "sur" "params" "deriv" "orthog" "weights" "series" "scalar" "genr") - "Commands in Gretl (these names are also reserved).") - -(defvar gretl-genr-functions - '("abs" "sin" "cos" "tan" "asin" "acos" "atan" "sinh" - "cosh" "tanh" "asinh" "acosh" "atanh" "log" "ln" "log10" - "log2" "exp" "sqrt" "diff" "ldiff" "sdiff" "lags" "int" - "round" "ceil" "floor" "sort" "dsort" "sortby" "ranking" "orthdev" - "nobs" "firstobs" "lastobs" "uniform" "normal" "cum" "missing" "ok" - "misszero" "lrvar" "quantile" "median" "gini" "zeromiss" "sum" "mean" - "min" "max" "sd" "var" "sst" "cnorm" "dnorm" "qnorm" - "gammafun" "lngamma" "digamma" "resample" "pnobs" "pmin" "pmax" "pmean" - "psd" "hpfilt" "bkfilt" "bwfilt" "fracdiff" "boxcox" "cov" "corr" - "movavg" "I" "zeros" "ones" "seq" "replace" "muniform" "mnormal" - "sumc" "sumr" "meanc" "meanr" "sdc" "minc" "maxc" "minr" - "maxr" "iminc" "imaxc" "iminr" "imaxr" "fft" "ffti" "cmult" - "cdiv" "mcov" "mcorr" "mxtab" "cdemean" "cholesky" "psdroot" "inv" - "invpd" "ginv" "diag" "transp" "vec" "vech" "unvech" "upper" - "lower" "rows" "cols" "det" "ldet" "tr" "onenorm" "infnorm" - "rcond" "rank" "qform" "mlag" "qrdecomp" "eigensym" "eigengen" "nullspace" - "princomp" "mexp" "fdjac" "BFGSmax" "obsnum" "isseries" "isscalar" "islist" - "isstring" "isnull" "nelem" "pdf" "cdf" "invcdf" "pvalue" "critical" - "randgen" "urcpval" "values" "mshape" "svd" "mols" "mpols" "mrls" - "mread" "mwrite" "selifc" "selifr" "polroots" "dummify" "wmean" "wvar" - "wsd" "xpx" "filter" "kfilter" "ksmooth" "ksimul" "trimr" "getenv" - "argname" "obslabel" "readfile" "grab" "strstr" "strncmp" "strlen" "sscanf" - "varname" "varnum" "tolower" "colnames" "rownames" "ljungbox" "msortby" "lincomb" - "imhof" "toepsolv" "diagcat" "xmin" "xmax" "corrgm" "mcovg" "fcstats" - "bessel" "fraclag" "mreverse" "deseas" "pergm" "irr" "npv" "logistic" - "weekday" "kdensity" "monthlen" "epochday" "setnote" "invmills" "polyfit" "chowlin" - "varsimul" "strsplit" "inlist" "errmsg" "isconst" "irf" "inbundle") - "Builtin functions for Gretl's genr command.") - - -(defvar gretl-option-flags - '("addstats" "all" "anova" "append" - "arch" "arma-init" "asymptotic" "autocorr" "auto" - "autocorr" "auxiliary" "balanced" "bartlett" - "between" "bootstrap" "both" "breusch-pagan" - "byobs" "by" "c" "close" - "coded" "cols" "column" "comfac" - "complete" "conditional" "contiguous" "continue" - "continuous" "control" "covariance" "cross" - "cross-section" "crt" "csv" "ct" - "ctt" "cubes-only" "dat" "database" - "dataset" "db" "degrees" "dhansen" - "difference" "diffuse" "discrete" "dpdstyle" - "drop-empty" "drop-first" "drop-last" "dummy" - "dynamic" "equal" "exit" "exponential" - "fcp" "fixed-effects" "from-file" "full" - "func" "gamma" "geomean" "gls" - "gmm" "gnu-R" "gnu-octave" "gph" - "gzipped" "hausman-reg" "hessian" "hilu" - "impulse-responses" "input" "inst" "integrate" - "intervals" "inverse-fit" "iterate" "jackknife" - "jbera" "jitter" "jmulti" "kendall" - "lags" "lagselect" "lbfgs" "lillie" - "liml" "linear-fit" "list" "loess-fit" - "log" "loglogistic" "lognormal" "logs" - "matrix" "matrix-diff" "medians" "ml" - "model1" "multi" "multinomial" "nc" - "next" "no-corc" "no-dates" "no-df-corr" - "no-gradient-check" "no-header" "no-missing" "no-scaling" - "no-stats" "normal" "normality" "notches" - "numerical" "odbc" "omit-obs" "one-scale" - "opg" "orthdev" "other" "out-of-sample" - "output" "overwrite" "p-values" "panel" - "panel-vars" "plot" "pooled" "preserve" - "print-final" "progress-bar" "progressive" "pwe" - "quadratic-fit" "quiet" "quit" "radians" - "random" "random-effects" "rank-sum" "raw" - "rc" "replace" "restrict" "restructure" - "reverse" "robust" "rolling" "row" - "rtf" "save" "save-all" "save-ehat" - "save-xbeta" "scalars" "seasonals" "send-data" - "sign" "signed-rank" "silent" "simple" - "simple-print" "single-yaxis" "skip-df" "spearman" - "special-time-series" "squares" "squares-only" "stacked-cross-section" - "stacked-time-series" "static" "stdresid" "suppress-fitted" - "swilk" "system" "t-ratios" "tall" - "test-down" "tex" "time-dummies" "time-series" - "to-file" "to_file" "traditional" "trend" - "two-step" "unequal-vars" "uniform" "unit-weights" - "variance-decomp" "vcv" "verbose" "wald" - "weibull" "weights" "white" "white-nocross" - "with-impulses" "with-lines" "write" "www" - "x-12-arima" "y-diff-only" "z-scores" "zeros") - "Gretl option flags.") - -(defvar gretl-internal-vars - '("Fstat" "T" "ahat" "aic" "bic" "chisq" "coeff_ci" - "coeff" "compan" "datatype" "df" "dwpval" "ec" "ehat" - "error" "ess" "fcast" "fcerr" "gmmcrit" "hausman" "hqc" - "h" "jalpha" "jbeta" "jvbeta" "kalman_llt" "kalman_lnl" "kalman_s2" - "kalman_t" "kalman_uhat" "llt" "lnl" "mnlprobs" "ncoeff" "nobs" - "nscan" "nvars" "obs" "pd" "pvalue" "rho" "rlnl" - "rsq" "s00" "s01" "s11" "sample" "sargan" "sigma" - "stderr" "stopwatch" "sysA" "sysB" "sysGamma" "t1" "t2" - "test" "trsq" "uhat" "unit" "vcv" "version" "vma" - "windows" "xlist" "xtxinv" "yhat" ) - "Model- and dataset-related variables.") - -(defconst gretl-block-start-keywords - (list "loop" "foreign" "function" "gmm" "if" "system" "mle" "nls" "restrict")) - -(defconst gretl-block-other-keywords - (list "else" "elif")) - -(defconst gretl-block-end-keywords - (list "end" "endif" "endloop")) - -(defvar gretl-keywords - (append gretl-block-start-keywords - gretl-block-other-keywords - gretl-block-end-keywords - '("break")) - "Reserved words in Gretl.") - - -(defun gretl-at-keyword (kw-list) - ; not a keyword if used as a field name, X.word, or quoted, :word - (and (or (= (point) 1) - (and (not (equal (char-before (point)) ?.)) - (not (equal (char-before (point)) ?:)))) - (not (ess-inside-string-or-comment-p (point))) - (not (ess-inside-brackets-p (point))) - (member (current-word) kw-list))) - - -(defconst gretl-font-lock-keywords - (list - ;; Fontify all builtin keywords. - (cons (concat "\\<\\(" - (mapconcat 'identity gretl-keywords "\\|") - "\\)\\>") - 'font-lock-keyword-face) - ;; Fontify all option flags. - (cons (concat "[ \t]--\\(" - (mapconcat 'identity gretl-option-flags "\\|") - "\\)") - 'font-lock-constant-face) - ;; Fontify all command words. - (cons (concat "\\<\\(" - (mapconcat 'identity gretl-command-words "\\|") - "\\)\\>") - 'font-lock-builtin-face) - ;; Fontify all builtin operators. - (cons "\\(&\\||\\|<=\\|>=\\|==\\|<\\|>\\|!=\\|!\\)" - (if (boundp 'font-lock-builtin-face) - 'font-lock-builtin-face - 'font-lock-preprocessor-face)) - ;; Fontify all internal variables. - (cons (concat "\\$\\(" - (mapconcat 'identity gretl-internal-vars "\\|") - "\\)\\>") - 'font-lock-variable-name-face) - - ;; Fontify all genr functions. - (cons (concat "\\<\\(" - (mapconcat 'identity gretl-genr-functions "\\|") - "\\)\\>") - 'font-lock-variable-name-face) - ;; Fontify all function declarations. - (list gretl-function-header-regexp - '(1 font-lock-keyword-face) - '(3 font-lock-function-name-face nil t))) - "Additional Gretl expressions to highlight.") - - -(defvar gretl-block-begin-regexp - (concat "\\<\\(" - (mapconcat 'identity gretl-block-start-keywords "\\|") - "\\)\\>")) - -(defvar gretl-block-else-regexp - (concat "\\<\\(" - (mapconcat 'identity gretl-block-other-keywords "\\|") - "\\)\\>")) - -(defvar gretl-block-end-regexp - (concat "\\<\\(" - (mapconcat 'identity gretl-block-end-keywords "\\|") - "\\)\\>")) - -(defvar gretl-block-begin-or-end-regexp - (concat gretl-block-begin-regexp "\\|" gretl-block-end-regexp)) - - -(defvar gretl-block-else-or-end-regexp - (concat gretl-block-else-regexp "\\|" gretl-block-end-regexp)) - -(defvar gretl-basic-offset 4) - -(defvar gretl-block-match-alist - '(("loop" . ("endloop")) - ("if" . ("else" "elif" "endif")) - ("nls" . ("end")) - ("mle" . ("end")) - ("gmm" . ("end")) - ("foreign" . ("end")) - ("restrict" . ("end")) - ("kalman" . ("end")) - ("system" . ("end"))) - "Alist with Gretl's matching block keywords. -Has Gretl's begin keywords as keys and a list of the matching else or -end keywords as associated values.") - - - -; get the position of the last open block -(defun gretl-last-open-block-pos (min) - (let ((count 0)) - (while (not (or (> count 0) (<= (point) min))) - (backward-word 1) - (setq count - (cond ((gretl-at-keyword gretl-block-start-keywords) - (+ count 1)) - ((and (zerop (string-match "\\(?:e\\(?:l\\(?:if\\|se\\)\\|nd\\(?:if\\|loop\\)?\\)\\)" (current-word))) - (not (ess-inside-comment-p)) (not (ess-inside-brackets-p))) - (- count 1)) - (t count)))) - (if (> count 0) - (point) - nil))) - - -(defun gretl-last-open-block (min) - (let ((pos (gretl-last-open-block-pos min))) - (and pos - (progn - (goto-char pos) - (+ gretl-basic-offset (current-indentation)))))) - - -; return indent implied by a special form opening on the previous line, if any -(defun gretl-form-indent () - (forward-line -1) - (end-of-line) - (backward-sexp) - (if (gretl-at-keyword gretl-block-other-keywords) - (+ gretl-basic-offset (current-indentation)) - (if (char-equal (char-after (point)) ?\() - (progn - (backward-word 1) - (let ((cur (current-indentation))) - (if (gretl-at-keyword gretl-block-start-keywords) - (+ gretl-basic-offset cur) - nil))) - nil))) - - -(defun gretl-indent-line () - "Indent current line of gretl code" - (interactive) - ; (save-excursion - (end-of-line) - (indent-line-to - (or (and (ess-inside-string-p (point-at-bol)) 0) - (save-excursion (ignore-errors (gretl-form-indent))) - (save-excursion - (let ((endtok (progn - (beginning-of-line) - (forward-to-indentation 0) - (gretl-at-keyword gretl-block-end-keywords)))) - (ignore-errors (+ (gretl-last-open-block (point-min)) - (if endtok (- gretl-basic-offset) 0))))) - ;; previous line ends in = - (save-excursion - (if (and (not (equal (point-min) (line-beginning-position))) - (progn - (forward-line -1) - (end-of-line) (backward-char 1) - (equal (char-after (point)) ?=))) - (+ gretl-basic-offset (current-indentation)) - nil)) - ;; take same indentation as previous line - (save-excursion (forward-line -1) - (current-indentation)) - 0)) - (when (gretl-at-keyword gretl-block-end-keywords) - (forward-word 1))) - - -(defvar gretl-editing-alist - '((paragraph-start . (concat "\\s-*$\\|" page-delimiter)) - (paragraph-separate . (concat "\\s-*$\\|" page-delimiter)) - (paragraph-ignore-fill-prefix . t) - (require-final-newline . mode-require-final-newline) - (comment-start . "# ") - (comment-add . 1) - (comment-start-skip . "\\s<+\\s-*") - (comment-column . 40) - ;;(comment-indent-function . 'S-comment-indent) - ;;(ess-comment-indent . 'S-comment-indent) - ;;(ess-indent-line . 'S-indent-line) - (ess-calculate-indent . 'ess-calculate-indent) - (ess-indent-line-function . 'gretl-indent-line) - (parse-sexp-ignore-comments . t) - (ess-style . ess-default-style) ;; ignored - (ess-local-process-name . nil) - ;;(ess-keep-dump-files . 'ask) - (ess-mode-syntax-table . gretl-syntax-table) - ;; (add-log-current-defun-header-regexp . "^.*function[ \t]*\\([^ \t(]*\\)[ \t]*(") - ) - "General options for gretl source files.") - - -;; (defun gretl-send-string-function (process string visibly) -;; (let ((gretl-process (get-process "gretlcli"))) -;; (process-send-string process (format ess-load-command file))) - - -;; (defun gretl-send-string-function (process string visibly) -;; (let ((file (concat temporary-file-directory "gretl_eval_region.inp"))) -;; (with-temp-file file -;; (insert string)) -;; (process-send-string process (format ess-load-command file)))) - -(defun gretl--get-words-from-command (command start-reg end-reg) - (with-current-buffer (ess-command command) - (goto-char (point-min)) - (let ((beg (or (re-search-forward start-reg nil t) - (point-min))) - (end (progn (goto-char (point-max)) - (or (re-search-backward end-reg) - (point-max)))) - acum) - (goto-char beg) - (skip-chars-forward "\n") - (while (re-search-forward "[^ \t\n]+" end t) - (push (match-string-no-properties 0) acum)) - acum))) - -(defun gretl-get-help-topics-function (name) - (delete-dups - (append gretl-command-words gretl-genr-functions - gretl-block-end-keywords gretl-block-other-keywords - gretl-block-start-keywords - (gretl--get-words-from-command "help\n" "are:" "^For") - (gretl--get-words-from-command "help functions\n" "Accessors:" "^Functions") - (gretl--get-words-from-command "help functions\n" "^Functions" "^For") - ))) - -;; (defvar ess-gretl-error-regexp-alist '(gretl-in gretl-at) -;; "List of symbols which are looked up in `compilation-error-regexp-alist-alist'.") - -;; (add-to-list 'compilation-error-regexp-alist-alist -;; '(gretl-in "^\\s-*in [^ \t\n]* \\(at \\(.*\\):\\([0-9]+\\)\\)" 2 3 nil 2 1)) -;; (add-to-list 'compilation-error-regexp-alist-alist -;; '(gretl-at "^\\s-*\\(at \\(.*\\):\\([0-9]+\\)\\)" 2 3 nil 2 1)) - - -(defvar gretl-customize-alist - '((comint-use-prompt-regexp . t) - (inferior-ess-primary-prompt . "\\? ") - (inferior-ess-secondary-prompt . "\\ ") - (inferior-ess-prompt . "\\? ") - (ess-local-customize-alist . 'gretl-customize-alist) - (inferior-ess-program . "gretlcli") - (ess-get-help-topics-function . 'gretl-get-help-topics-function) - (font-lock-defaults . '(gretl-font-lock-keywords)) - (ess-load-command . "open \"%s\"\n") - ;; (ess-dump-error-re . "in \\w* at \\(.*\\):[0-9]+") - ;; (ess-error-regexp . "\\(^\\s-*at\\s-*\\(?3:.*\\):\\(?2:[0-9]+\\)\\)") - ;; (ess-error-regexp-alist . ess-gretl-error-regexp-alist) - ;; (inferior-ess-objects-command . inferior-gretl-objects-command) - ;; (inferior-ess-search-list-command . "search()\n") - ;; inferior-ess-help-command . gretl-help-command) - (inferior-ess-help-command . "help %s\n") - (ess-language . "gretl") - (ess-dialect . "gretl") - (ess-suffix . "inp") - (ess-dump-filename-template . (replace-regexp-in-string - "S$" ess-suffix ; in the one from custom: - ess-dump-filename-template-proto)) - (ess-mode-syntax-table . gretl-syntax-table) - (ess-mode-editing-alist . gretl-editing-alist) - (ess-change-sp-regexp . nil );ess-r-change-sp-regexp) - (ess-help-sec-regex . ess-help-r-sec-regex) - (ess-help-sec-keys-alist . ess-help-r-sec-keys-alist) - (ess-function-pattern . ess-r-function-pattern) - (ess-object-name-db-file . "ess-r-namedb.el" ) - ;; (ess-imenu-mode-function . nil) - (ess-smart-operators . ess-r-smart-operators) - (inferior-ess-help-filetype . nil) - (inferior-ess-exit-command . "exit\n") - ;;harmful for shell-mode's C-a: -- but "necessary" for ESS-help? - (inferior-ess-start-file . nil) ;; "~/.ess-R" - (inferior-ess-start-args . "") - (inferior-ess-language-start . nil) - (ess-STERM . "iESS") - ) - "Variables to customize for Gretl -- set up later than emacs initialization.") - -;; (defcustom inferior-gretl-program "gretlcli" -;; "*The program to use for running gretl scripts." -;; :type 'string -;; :group 'ess-gretl) - -;; (defvar ess-gretl-versions '("gretcli") -;; "List of partial strings for versions of Julia to access within ESS. -;; Each string specifies the start of a filename. If a filename -;; beginning with one of these strings is found on `exec-path', a M-x -;; command for that version of Julia is made available. ") - -(defcustom inferior-gretl-args "" - "String of arguments used when starting gretl. -These arguments are currently not passed to other versions of gretl that have -been created using the variable `ess-r-versions'." - :group 'ess-gretl - :type 'string) - -;;;###autoload -(defun gretl-mode (&optional proc-name) - "Major mode for editing gretl source. See `ess-mode' for more help." - (interactive "P") - ;; (setq ess-customize-alist gretl-customize-alist) - ;;(setq imenu-generic-expression R-imenu-generic-expression) - (ess-mode gretl-customize-alist proc-name) - ;; for emacs < 24 - ;; (add-hook 'comint-dynamic-complete-functions 'ess-complete-object-name nil 'local) - ;; for emacs >= 24 - ;; (remove-hook 'completion-at-point-functions 'ess-filename-completion 'local) ;; should be first - ;; (add-hook 'completion-at-point-functions 'ess-object-completion nil 'local) - ;; (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local) - (if (fboundp 'ess-add-toolbar) (ess-add-toolbar)) - (set (make-local-variable 'end-of-defun-function) 'ess-end-of-function) - ;; (local-set-key "\t" 'gretl-indent-line) ;; temp workaround - ;; (set (make-local-variable 'indent-line-function) 'gretl-indent-line) - ;; (ess-imenu-gretl) - (run-mode-hooks 'gretl-mode-hook)) - - -(defvar ess-gretl-post-run-hook nil - "Functions run in process buffer after the initialization of - Gretl process.") - - - -;;;###autoload -(defun gretl (&optional start-args) - "Call 'gretl', -Optional prefix (C-u) allows to set command line arguments, such as ---vsize. This should be OS agnostic. -If you have certain command line arguments that should always be passed -to gretl, put them in the variable `inferior-gretl-args'." - (interactive "P") - ;; get settings, notably inferior-ess-r-program : - ;; (if (null inferior-gretl-program) - ;; (error "'inferior-gretl-program' does not point to 'gretl-release-basic' executable") - (setq ess-customize-alist gretl-customize-alist) - (ess-write-to-dribble-buffer ;; for debugging only - (format - "\n(Gretl): ess-dialect=%s, buf=%s" - ess-dialect (current-buffer))) - (let* ((r-start-args - (concat inferior-gretl-args " " ; add space just in case - (if start-args - (read-string - (concat "Starting Args [other than `" - inferior-gretl-args - "'] ? ")) - nil)))) - (inferior-ess r-start-args) - (set (make-local-variable 'indent-line-function) 'gretl-indent-line) - (set (make-local-variable 'gretl-basic-offset) 4) - (setq indent-tabs-mode nil) - (goto-char (point-max)) - ;; (if inferior-ess-language-start - ;; (ess-eval-linewise inferior-ess-language-start - ;; nil nil nil 'wait-prompt))) - (with-ess-process-buffer nil - (run-mode-hooks 'ess-gretl-post-run-hook)) - )) - - -;;;; IMENU - -;; (defvar gretl-imenu-generic-expression -;; '(("Function (_)" "^\\s-*function\\s-+\\(_[^ \t\n]*\\)" 1) -;; ("Function" "^\\s-*function\\s-+\\([^_][^ \t\n]*\\)" 1) -;; ("Const" "^\\s-*const \\([^ \t\n]*\\)" 1) -;; ("Type" "^\\s-*\\w*type\\w* \\([^ \t\n]*\\)" 1) -;; ("Load" " *\\(load\\)(\\([^ \t\n)]*\\)" 2) -;; ;; ("Classes" "^.*setClass(\\(.*\\)," 1) -;; ;; ("Coercions" "^.*setAs(\\([^,]+,[^,]*\\)," 1) ; show from and to -;; ;; ("Generics" "^.*setGeneric(\\([^,]*\\)," 1) -;; ;; ("Methods" "^.*set\\(Group\\|Replace\\)?Method(\"\\(.+\\)\"," 2) -;; ;; ;;[ ]*\\(signature=\\)?(\\(.*,?\\)*\\)," 1) -;; ;; ;; -;; ;; ;;("Other" "^\\(.+\\)\\s-*<-[ \t\n]*[^\\(function\\|read\\|.*data\.frame\\)]" 1) -;; ;; ("Package" "^.*\\(library\\|require\\)(\\(.*\\)," 2) -;; ;; ("Data" "^\\(.+\\)\\s-*<-[ \t\n]*\\(read\\|.*data\.frame\\).*(" 1))) -;; )) - - -;; (defun ess-imenu-gretl (&optional arg) -;; "Gretl Language Imenu support for ESS." -;; (interactive) -;; (setq imenu-generic-expression gretl-imenu-generic-expression) -;; (imenu-add-to-menubar "Imenu-gretl")) - - -;; (defun ess-imenu-gretl (&optional arg) -;; "Gretl Language Imenu support for ESS." -;; (interactive) -;; (setq imenu-generic-expression gretl-imenu-generic-expression) -;; (imenu-add-to-menubar "Imenu-jl")) - - -(provide 'ess-gretl) -;; (provide 'ess-gretl) - -(provide 'ess-gretl) - -;;; ess-gretl.el ends here diff --git a/elpa/ess-20181109.703/ess-help.el b/elpa/ess-20181109.703/ess-help.el deleted file mode 100644 index 70afa2a3..00000000 --- a/elpa/ess-20181109.703/ess-help.el +++ /dev/null @@ -1,999 +0,0 @@ -;;; ess-help.el --- Support for viewing ESS help files - -;; Copyright (C) 1989-1994, 2017 Bates, Kademan, Ritter and Smith -;; Copyright (C) 1997, A.J. Rossini -;; Copyright (C) 1998--2001 A.J. Rossini, Martin Maechler, Kurt Hornik and -;; Richard M. Heiberger . -;; Copyright (C) 2001--2010 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. -;; Copyright (C) 2011--2012 A.J. Rossini, Richard M. Heiberger, Martin Maechler, -;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. - -;; Author: David Smith -;; Created: 7 Jan 1994 -;; Maintainer: ESS-core - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; Code for dealing with ESS help files. See README. where -;; is one of `S', `SAS', `Stata'or `XLispStat'. - -;;; Code: - - ; Requires and autoloads -(require 'cl-lib) -(eval-when-compile - (require 'tramp) - (require 'reporter)) -(require 'info) -(require 'ess-mode) -(require 'ess-inf) -(require 'ess-utils) - -(defvar ess--help-frame nil - "Stores the frame used for displaying R help buffers.") - - ; ess-help-mode -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;;; In this section: -;;;; -;;;; * The function ess-display-help-on-object -;;;; * The major mode ess-help-mode -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(defun ess--help-get-bogus-buffer-substring (buffer &optional nr-first) - "Return non-nil if BUFFER looks like a bogus ESS help buffer. -Return the pair (match-beg. match-end) which can be used in error -message. NR-FIRST is the number of characters at the start of the -buffer to examine when deciding if the buffer if bogus. If nil, -the first 150 characters of the buffer are searched." - (if (not nr-first) (setq nr-first 150)) - (with-current-buffer buffer - (let ((PM (point-min)) - (case-fold-search t) - searching res) - (setq res - (or ;; evaluate up to first non-nil (or end): - (< (- (point-max) PM) 80); buffer less than 80 chars - (not (setq searching t)) - ;; todo: move to customize-alist - (progn (goto-char PM) ;; R: - (re-search-forward "Error in help" nr-first t)) - (progn (goto-char PM) ;; S-plus 5.1 : - (re-search-forward "^cat: .*--" nr-first t)) - (progn (goto-char PM) ;; S version 3 ; R : - (re-search-forward "no documentation .+" nr-first t)) - (progn (goto-char PM) ;; stata - (re-search-forward "^help .*not found" nr-first t)))) - (ess-write-to-dribble-buffer - (format " |--> %s [searching %s]\n" res searching)) - (when res - (if searching - (buffer-substring (match-beginning 0) (match-end 0)) - (buffer-string)))))) - -(defun ess-help-get-local-help-buffers () - (ess-force-buffer-current) - (cl-remove-if-not - (lambda (buffer) - (let* ((pattern (concat "*help[" ess-current-process-name "](")) - (name (buffer-name buffer)) - (candidate (when (> (length name) (length pattern)) - (substring name 0 (length pattern))) )) - (when (string= pattern candidate) - buffer))) - (buffer-list))) - -(defvar ess-help-type nil - "Type of help file, help, index, vingettes etc. -Local in `ess-help' buffers.") -(make-variable-buffer-local 'ess-help-type) - -(defvar ess-help-object nil - "Name of the object the help is displayed for. -Is name of the package for package index. -Local in `ess-help' buffers.") -(make-variable-buffer-local 'ess-help-object) - -;;;###autoload -(defun ess-display-help-on-object (object &optional command) - "Display documentation for OBJECT in another window. -If prefix arg is given, force an update of the cached help topics -and query the ESS process for the help file instead of reusing an -existing buffer if it exists. Uses the variable -`inferior-ess-help-command' for the actual help command. Prompts -for the object name based on the cursor location for all cases -except the S-Plus GUI. With S-Plus on Windows (both GUI and in an -inferior Emacs buffer) the GUI help window is used. If COMMAND is -suplied, it is used instead of `inferior-ess-help-command'." - (interactive - (progn - (ess-force-buffer-current) - (when current-prefix-arg ;update cache if prefix - (ess-process-put 'sp-for-help-changed? t)) - (list (ess-find-help-file "Help on")))) - (if (fboundp ess-display-help-on-object-function) - (funcall ess-display-help-on-object-function object command) - (let* ((hb-name (concat "*help[" ess-current-process-name "](" - (replace-regexp-in-string "^\\?\\|`" "" object) ")*")) - (old-hb-p (get-buffer hb-name)) - (tbuffer (get-buffer-create hb-name))) - (when (or (not old-hb-p) - current-prefix-arg - (ess--help-get-bogus-buffer-substring old-hb-p)) - (ess-with-current-buffer tbuffer - (setq ess-help-object object - ess-help-type 'help) - (setq buffer-read-only t) - (ess--flush-help-into-current-buffer object command))) - (unless (ess--help-kill-bogus-buffer-maybe tbuffer) - (ess--switch-to-help-buffer tbuffer))))) - -;;;###autoload -(defalias 'ess-help 'ess-display-help-on-object) - -(defun ess-build-help-command (object) - (if (fboundp ess-build-help-command-function) - (funcall ess-build-help-command-function object) - ;; TODO-CLEANUP: Remove the inferior- prefix for consistency - (format inferior-ess-help-command object))) - -(defun ess--flush-help-into-current-buffer (object &optional command dont-ask) - (let ((inhibit-modification-hooks t) - (inhibit-read-only t)) - (delete-region (point-min) (point-max)) - (ess-help-mode) - (let ((command (if (and command (string-match-p "%s" command)) - (format command object) - command))) - (ess-command (or command (ess-build-help-command object)) (current-buffer))) - (ess-help-underline) - (unless (string= ess-language "STA") - (ess-nuke-help-bs)) - (goto-char (point-min)) - (set-buffer-modified-p 'nil) - (setq truncate-lines nil))) - -(defun ess--help-kill-bogus-buffer-maybe (buffer) - "Internal, try to kill bogus BUFFER with message. Return t if killed." - (when ess-help-kill-bogus-buffers - (let ((bog-mes (ess--help-get-bogus-buffer-substring buffer))) - (when bog-mes - ;; The following is giving erroneous messages when help is displayed in the browser - ;; (when (< (length bog-mes) 10) ;;no message at all, how to treat this properly? - ;; (setq bog-mes (format "No documentation found; %s" bog-mes))) - (ess-write-to-dribble-buffer - (format "(ess-help: kill bogus buffer %s ..\n" (buffer-name buffer))) - (message "%s" (replace-regexp-in-string "\n" "" bog-mes)) - ;; (ding) ;; don't ding, in julia a lot of doc strings are very short - (kill-buffer buffer))))) - -(defun ess-display-help-in-browser () - "Displaying html help where available, using \\[browse-url]." - (interactive) - ;; Three ways to find html help, 1) ask sub-process 2) get url/file from subproces - ;; 3) call elisp function to get the file path - ;; For 2 and 3 call browse-url on the output - (let (com-html-help ;1) command for sub-process to trigger - ;help, must contain %s for help obj - com-get-file-path ;2) command for sub-process to return a - ; location for the help page, must - ; contain %s for help obj - fun-get-file-path ;3) elisp function to return the - ;location, gets one argument, help topic - not-implemented - ) - (cond - ((string-match "^R" ess-dialect) - (setq com-html-help "help('%s', help_type='html')\n")) - (t (setq not-implemented t)) - ) - (if not-implemented - (message "Sorry, not implemented for %s " ess-dialect) - (if (or (not ess-help-object) - (not (eq ess-help-type 'help))) - (message "No help topic found") - (if com-html-help - (ess-command (format com-html-help ess-help-object)) - (require 'browse-url) - (if com-get-file-path - (browse-url (car (ess-get-words-from-vector - (format com-get-file-path ess-help-object)))) - (when (functionp fun-get-file-path) - (browse-url (funcall fun-get-file-path ess-help-object))))))))) - -(defun ess--button-action (&optional button) - "Provide help on object at the beginning of line. -It's intended to be used in R-index help pages. Load the package -if necessary. It is bound to RET and C-m in R-index pages." - (interactive) - (let* ((string (button-label button)) - (command (when (fboundp ess-build-help-command-function) - (funcall ess-build-help-command-function string)))) - (ess-display-help-on-object string command))) - -(defun ess-display-package-index () - "Prompt for package name and display its index." - (interactive) - (let ((object (buffer-name)) - (alist ess-local-customize-alist) - (pname ess-local-process-name) - pack buff all-packs not-implemented - ;; Available customization for ess languages/dialects: - com-package-for-object ;command to get the package of current help object - com-packages ;command to get a list of available packages (REQUIRED) - com-package-index ;command to get the package index (REQUIRED) - reg-keyword ;regexp used to find keywords for linking in index listing - ; only (1st subexpression is used) - reg-start ;regexp from where to start searching for keywords in index listing - ) - (cond - ((string-match "^R" ess-dialect) - ;; carefully using syntax to be parsed in old R versions (no '::', '_'): - (setq com-package-for-object "sub('package:', '', .ess.findFUN('%s'))\n" - com-packages ".packages(all.available=TRUE)\n" - com-package-index ".ess.help(package='%s', help.type='text')\n" - reg-keyword "^\\([^ \t\n:]+\\)" - reg-start "^Index:")) - ((string-match "julia" ess-dialect) - (setq com-packages "_ess_list_categories()\n" - com-package-index "_ess_print_index(\"%s\")\n" - reg-keyword "^\\(.*+\\):$*" - reg-start ":" - )) - (t (error "Not implemented for %s " ess-dialect))) - (when (and com-package-for-object - ess-help-object - (eq ess-help-type 'help)) - (setq pack (car (ess-get-words-from-vector - (format com-package-for-object ess-help-object))))) - (setq all-packs (ess-get-words-from-vector com-packages)) - (unless pack ;try symbol at point - (setq pack (car (member (ess-read-object-name-default) all-packs)))) - (setq pack (ess-completing-read "Index of" - all-packs nil nil nil nil pack)) - (ess--display-indexed-help-page - (format com-package-index pack) - reg-keyword - (format "*help[%s](index:%s)*" ess-dialect pack) - 'index nil nil reg-start pack))) - -(defalias 'ess-display-index 'ess-display-package-index) -(make-obsolete 'ess-display-index 'ess-display-package-index "ESS[12.09]") - -(defun ess--display-indexed-help-page (command item-regexp title help-type - &optional action help-echo reg-start help-object) - "Internal function to display help pages with linked actions - ;; COMMAND to produce the indexed help page - ;; ITEM-REGEXP -- first subexpression is highlighted - ;; TITLE of the help page - ;; HELP-TYPE to be stored in `ess-help-type' local variable - ;; ACTION is a function with no argument (default is `ess--button-action') - ;; HELP-ECHO - ;; REG-START gives the start location from where to search linkifying" - (interactive) - (let ((inhibit-modification-hooks t) - (object (buffer-name)) - (alist ess-local-customize-alist) - (pname ess-local-process-name) - (buff (get-buffer-create title))) - (with-current-buffer buff - (setq ess-help-object help-object) - (ess-setq-vars-local (eval alist)) - (setq ess-help-sec-regex "\\(^\\s-.*\n\\)\\|\\(^\n\\)" - ess-local-process-name pname) - (setq buffer-read-only nil) - (delete-region (point-min) (point-max)) - (ess-help-mode) - (ess-command command buff) - (ess-help-underline) - (set-buffer-modified-p 'nil) - (goto-char (point-min)) - (when reg-start ;; go to the beginning of listing - (re-search-forward reg-start nil t)) - (when item-regexp - ;;linkify the buffer - (save-excursion - (while (re-search-forward item-regexp nil t) - (make-text-button (match-beginning 1) (match-end 1) - 'mouse-face 'highlight - 'action (or action #'ess--button-action) - 'help-object (buffer-substring-no-properties (match-beginning 1) (match-end 1)) - 'follow-link t - 'help-echo (or help-echo "help on object"))))) - ;; (save-excursion ;; why R places all these spaces? - ;; (goto-char (point-min)) - ;; (while (re-search-forward " \\{10,\\} *" nil t) - ;; (replace-match "\t\t\t"))) - (setq buffer-read-only t) - (setq ess-help-type help-type) - (setq truncate-lines nil)) - (unless (ess--help-kill-bogus-buffer-maybe buff) - (ess--switch-to-help-buffer buff)))) - -(defun ess-display-help-apropos (&optional pattern) - "Create an ess-apropos buffer with a *linked* list of apropos topics." - (interactive "sPattern: ") - (let (com regexp) - (cond ((equal ess-dialect "R") - (setq com "help.search('%s')\n" - regexp "^\\([^ \t\n:]+::[^ \t\n:]+\\)[ \t\n]+")) - ((equal ess-dialect "julia") - (setq com "apropos(\"%s\")\n" - regexp "^\\(\\(\\w\\|\\s_\\)+\\)(")) - ((equal ess-dialect "stata") - (setq com "hsearch %s\n" - regexp "^[\t ]*[0-9]+\\.[\t ]+\\(.+\\)$")) - (t (error "Not implemented for dialect %s" ess-dialect))) - (ess--display-indexed-help-page - (format com pattern) regexp - (format "*ess-apropos[%s](%s)*" ess-current-process-name pattern) - 'appropos))) - -(defun ess-display-demos () - "Create an ess-demos buffer with a *linked* list of available demos." - (interactive) - (let (com regexp) - (cond ((equal ess-dialect "R") - (setq com "demo()\n" - regexp "^\\([^ \n:]+\\) +")) - (t (error "Not implemented for dialect %s" ess-dialect))) - (ess--display-indexed-help-page - com regexp - (format "*ess-demos[%s]*" ess-current-process-name) - 'demos #'ess--action-demo))) - -(defun ess--action-demo (&optional button) - "Provide help on object at the beginning of line. -It's intended to be used in R-index help pages. Load the package -if necessary. It is bound to RET and C-m in R-index pages." - (interactive) - (let* ((string (button-label button)) - (command - (cond ((equal ess-dialect "R") - (format "demo('%s')\n" string)) - (t (error "Not implemented for dialect %s" ess-dialect))))) - (ess-eval-linewise command) - (ess-switch-to-end-of-ESS))) - -(defun ess-display-vignettes (&optional all) - "Display vignettes if available for the current dialect. -With (prefix) ALL non-nil, use `vignette(*, all=TRUE)`, i.e., from all installed - packages, which can be *very* slow." - (interactive "P") - (cond - ((equal ess-dialect "R") (ess-R-display-vignettes all)) - (t (message "Sorry, not implemented for %s" ess-dialect)))) - -(defun ess-R-display-vignettes (&optional all) - "Display R vignettes in ess-help-like buffer.. -With (prefix) ALL non-nil, use `vignette(*, all=TRUE)`, i.e., from all installed - packages, which can be *very* slow." - (interactive "P") - (let* ((vslist (with-current-buffer - (ess-command - (format ".ess_vignettes(%s)\n" (if all "TRUE" ""))) - (goto-char (point-min)) - (when (re-search-forward "(list" nil t) - (goto-char (match-beginning 0)) - (ignore-errors (eval (read (current-buffer))))))) - (proc-name ess-current-process-name) - (alist ess-local-customize-alist) - (remote (file-remote-p default-directory)) - (buff (get-buffer-create (format "*[%s]vignettes*" ess-dialect))) - (inhibit-modification-hooks t)) - (with-current-buffer buff - (setq buffer-read-only nil) - (delete-region (point-min) (point-max)) - (ess-setq-vars-local (eval alist)) - (setq ess-help-sec-regex "^\\w+:$" - ess-help-type 'vignettes - ess-local-process-name proc-name) - (ess-help-mode) - (set-buffer-modified-p 'nil) - (goto-char (point-min)) - (dolist (el vslist) - (let ((pack (car el))) - (insert (format "\n\n%s:\n\n" (propertize pack 'face 'underline))) - (dolist (el2 (cdr el)) - (let ((path (if remote - (with-no-warnings - ;; Have to wrap this in with-no-warnings because - ;; otherwise the byte compiler complains about - ;; calling tramp-make-tramp-file-name with an - ;; incorrect number of arguments on Both 26+ and 25 emacses. - (if (>= emacs-major-version 26) - (with-parsed-tramp-file-name default-directory nil - (tramp-make-tramp-file-name method user domain host port (nth 1 el2))) - (with-parsed-tramp-file-name default-directory nil - (tramp-make-tramp-file-name method user host (nth 1 el2))))) - (nth 1 el2)))) - (insert-text-button "Pdf" - 'mouse-face 'highlight - 'action (if remote - #'ess--action-open-in-emacs - #'ess--action-R-open-vignette) - 'follow-link t - 'vignette (file-name-sans-extension (nth 2 el2)) - 'package pack - 'help-echo (concat path "/doc/" (nth 2 el2))) - (insert " ") - (insert-text-button "Rnw" - 'mouse-face 'highlight - 'action #'ess--action-open-in-emacs - 'follow-link t - 'help-echo (concat path "/doc/" (nth 3 el2))) - (insert " ") - (insert-text-button "R" - 'mouse-face 'highlight - 'action #'ess--action-open-in-emacs - 'follow-link t - 'help-echo (concat path "/doc/" (nth 4 el2))) - (insert (format "\t%s\n" (nth 0 el2))))))) - (goto-char (point-min)) - (insert (propertize "\t\t**** Vignettes ****\n" 'face 'bold-italic)) - (unless (eobp) (delete-char 1)) - (setq buffer-read-only t)) - (ess--switch-to-help-buffer buff))) - -(defun ess--action-open-in-emacs (pos) - (display-buffer (find-file-noselect (get-text-property pos 'help-echo)))) -(defun ess--action-R-open-vignette (pos) - (ess-command (format "vignette('%s', package='%s')\n" - (get-text-property pos 'vignette) - (get-text-property pos 'package)))) - -(defalias 'ess-help-quit 'quit-window) -(make-obsolete 'ess-help-quit 'quit-window "16.04") - -(defun ess--find-displayed-help-window () - (catch 'win - (dolist (f (frame-list)) - (when (frame-visible-p f) - (dolist (w (window-list f)) - (when (eq (buffer-local-value 'major-mode (window-buffer w)) - 'ess-help-mode) - (throw 'win w))))))) - -(defun ess--switch-to-help-buffer (buff) - "Switch to an ESS help BUFF. -For internal use. Take into account variable `ess-help-own-frame'." - (if (eq ess-help-own-frame t) - ;; 0) always pop new frame - (let* ((frame (make-frame ess-help-frame-alist)) - (action `(display-buffer-same-window (reusable-frames . ,frame)))) - (ess--display-help buff frame action)) - (let ((help-win (or - ;; if this doc is already displayed, reuse - (get-buffer-window buff 'all-frames) - ;; if help window visible, reuse - (and ess-help-reuse-window - (ess--find-displayed-help-window))))) - (cond - ;; 1) existent help window lying somewhere; reuse - (help-win - (set-window-buffer help-win buff) - (let ((action '(display-buffer-reuse-window (reusable-frames . t)))) - (ess--display-help buff nil action))) - ;; 2) - ((eq ess-help-own-frame 'one) - (let* ((frame (if (frame-live-p ess--help-frame) - ess--help-frame - (make-frame ess-help-frame-alist))) - (action `(display-buffer-same-window (reusable-frames . ,frame)))) - (setq ess--help-frame frame) - (ess--display-help buff frame action))) - ;; 3) display help in other window - (t - (ess--display-help buff)))))) - -(defun ess--display-help (buff &optional frame action) - (let ((action (or action `(nil (reusable-frames . ,(or frame ess-display-buffer-reuse-frames)))))) - (when (and (framep frame) - (not (eq (selected-frame) frame))) - ;; VS[04-05-2018]: `display-buffer` framework has no satisfactory - ;; functionality to display buffers in selected windows. So, do some extra - ;; frame selection here. - (raise-frame frame) - (if ess-help-pop-to-buffer - (select-frame-set-input-focus frame) - (select-frame frame))) - (if ess-help-pop-to-buffer - (pop-to-buffer buff action) - (display-buffer buff action)))) - -(defun ess-help-web-search () - "Search the web for documentation." - (interactive) - (ess-execute-dialect-specific ess-help-web-search-command "Search for: ")) - -(defun ess-manual-lookup () - "Search manual for topic." - (interactive) - (ess-execute-dialect-specific ess-manual-lookup-command )) - -(defun ess-reference-lookup () - "Search manual for topic." - (interactive) - (ess-execute-dialect-specific ess-reference-lookup-command)) - -(defvar ess-help-sec-map nil "Sub-keymap for ESS help mode.") -;; this breaks "s ?" rather than to fix any (unbroken !) thing: -;; (make-variable-buffer-local 'ess-help-sec-map) - -(defvar ess-doc-map - (let (ess-doc-map) - (define-prefix-command 'ess-doc-map) - (define-key ess-doc-map "\C-e" 'ess-describe-object-at-point) - (define-key ess-doc-map "e" 'ess-describe-object-at-point) - (define-key ess-doc-map "\C-d" 'ess-display-help-on-object) - (define-key ess-doc-map "d" 'ess-display-help-on-object) - (define-key ess-doc-map "\C-i" 'ess-display-package-index) - (define-key ess-doc-map "i" 'ess-display-package-index) - (define-key ess-doc-map "\C-a" 'ess-display-help-apropos) - (define-key ess-doc-map "a" 'ess-display-help-apropos) - (define-key ess-doc-map "\C-v" 'ess-display-vignettes) - (define-key ess-doc-map "v" 'ess-display-vignettes) - (define-key ess-doc-map "\C-o" 'ess-display-demos) - (define-key ess-doc-map "o" 'ess-display-demos) - (define-key ess-doc-map "\C-w" 'ess-help-web-search) - (define-key ess-doc-map "w" 'ess-help-web-search) - (define-key ess-doc-map "\C-m" 'ess-manual-lookup) - (define-key ess-doc-map "m" 'ess-manual-lookup) - (define-key ess-doc-map "\C-r" 'ess-reference-lookup) - (define-key ess-doc-map "r" 'ess-reference-lookup) - ess-doc-map - ) - "ESS documentation map.") - - -(defvar ess-help-mode-map - (let ((map (make-keymap))); Full keymap, in order to - (suppress-keymap map) ; suppress all usual "printing" characters - (when (boundp 'special-mode-map) - (set-keymap-parent map (make-composed-keymap - button-buffer-map - special-mode-map))) - (define-key map "q" 'quit-window) - (define-key map "\C-m" 'next-line) - ;; (define-key map "s" ess-help-sec-map) - (define-key map "h" 'ess-display-help-on-object) - (define-key map "w" 'ess-display-help-in-browser) - (define-key map "i" 'ess-display-package-index) - (define-key map "a" 'ess-display-help-apropos) - (define-key map "v" 'ess-display-vignettes) - ;; TODO: `electric mouse-2' - ;; (define-key map [mouse-2] 'ess-display-help-on-object) - (define-key map "l" 'ess-eval-line-visibly-and-step) - (define-key map "r" 'ess-eval-region-and-go) - (define-key map "f" 'ess-eval-function-or-paragraph-and-step) - (define-key map "n" 'ess-skip-to-next-section) - (define-key map "p" 'ess-skip-to-previous-section) - (define-key map "/" 'isearch-forward) - (define-key map "x" 'ess-kill-buffer-and-go) - (define-key map "k" 'kill-this-buffer) - (define-key map "?" 'ess-describe-help-mode) - ;;-- those should be "inherited" from ess-mode-map ( ./ess-mode.el ) - (define-key map "\C-c\C-s" 'ess-switch-process) - (define-key map "\C-c\C-r" 'ess-eval-region) - (define-key map "\C-c\M-r" 'ess-eval-region-and-go) - (define-key map "\C-c\C-f" 'ess-eval-function) - (define-key map "\M-\C-x" 'ess-eval-function) - (define-key map "\C-c\M-f" 'ess-eval-function-and-go) - (define-key map "\C-c\C-j" 'ess-eval-line) - (define-key map "\C-c\C-n" 'ess-eval-line-visibly-and-step) - (define-key map "\C-c\C-c" 'ess-eval-region-or-function-or-paragraph-and-step) - (define-key map [(control return)] 'ess-eval-region-or-line-visibly-and-step) - (define-key map "\C-c\M-j" 'ess-eval-line-and-go) - (define-key map "\M-\C-a" 'ess-goto-beginning-of-function-or-para) - (define-key map "\M-\C-e" 'ess-goto-end-of-function-or-para) - (define-key map "\C-c\C-y" 'ess-switch-to-ESS) - (define-key map "\C-c\C-z" 'ess-switch-to-end-of-ESS) - (define-key map "\C-c\C-l" 'ess-load-file) - (define-key map "\C-c\M-l" 'ess-load-file); alias, as in 'iESS' where C-c C-l is comint-list-* - (define-key map "\C-c\C-v" 'ess-display-help-on-object) - (define-key map "\C-c\C-k" 'ess-request-a-process) - (define-key map "\C-c\C-d" 'ess-doc-map) - (define-key map "\C-c\C-e" 'ess-extra-map) - (define-key map "\C-c\C-t" 'ess-dev-map) - map) - "Keymap for ESS help mode.") - -;; One reason for the following menu is to the user about key strokes -(defvar ess-help-mode-menu - '("ESS-help" - ["Search Forward" isearch-forward t] - ["Next Section" ess-skip-to-next-section t] - ["Previous Section" ess-skip-to-previous-section t] - ["Help on Section Skipping" ess-describe-sec-map t] - ["Beginning of Buffer" beginning-of-buffer t] - ["End of Buffer" end-of-buffer t] - "-" - ["Help on ..." ess-display-help-on-object t] - ["Apropos of ..." ess-display-help-apropos t] - ["Index of ..." ess-display-package-index t] - ["Vignettes" ess-display-vignettes t] - ["Open in Browser" ess-display-help-in-browser t] - "-" - ["Eval Line" ess-eval-line-and-step t] - ["Eval Paragraph & step" ess-eval-paragraph-and-step t] - ["Eval Region & Go" ess-eval-region-and-go t] - ["Switch to ESS Process" ess-switch-to-ESS t] - ["Switch to End of ESS Proc." ess-switch-to-end-of-ESS t] - ["Switch _the_ Process" ess-switch-process t] - "-" - ["Kill Buffer" kill-this-buffer t] - ["Kill Buffer & Go" ess-kill-buffer-and-go t] - "-" - ["Handy commands" ess-handy-commands t] - ["Describe ESS-help Mode" ess-describe-help-mode t]) - "Menu used in `ess-help-mode'.") - -(defun ess-help-mode () -;;; Largely ripped from more-mode.el, -;;; originally by Wolfgang Rupprecht wolfgang@mgm.mit.edu - "Mode for viewing ESS help files. -Use SPC and DEL to page back and forth through the file. -Use `n' and `p' to move to next and previous section, - `s' to jump to a particular section; `s ?' for help. -Use `q' to return to your ESS session; `x' to kill this buffer first. -The usual commands for evaluating ESS source are available. -Other keybindings are as follows: -\\{ess-help-mode-map}" - (interactive) - (setq major-mode 'ess-help-mode) - (setq mode-name "ESS Help") - (setq font-lock-mode nil) - (use-local-map ess-help-mode-map) - ;;; Keep out of the code. - (make-local-variable 'indent-tabs-mode) - (setq indent-tabs-mode nil) - (if ess-mode-syntax-table ;;set in advance by ess-setq-local - (set-syntax-table ess-mode-syntax-table)) - (require 'easymenu) - (easy-menu-define ess-help-mode-menu-map ess-help-mode-map - "Menu keymap for ess-help mode." ess-help-mode-menu) - ;; Add the keys for navigating among sections; this is done - ;; dynamically since different languages (e.g. S vs R) have different - ;; section headings. - (setq ess-help-sec-map (make-sparse-keymap)) - (setq-local show-trailing-whitespace nil) - (dolist (pair ess-help-sec-keys-alist) - (define-key ess-help-sec-map (char-to-string (car pair)) - 'ess-skip-to-help-section)) - (define-key ess-help-sec-map "?" 'ess-describe-sec-map) - (define-key ess-help-sec-map ">" 'end-of-buffer) - (define-key ess-help-sec-map "<" 'beginning-of-buffer) - (define-key ess-help-mode-map "s" ess-help-sec-map) - (run-mode-hooks 'ess-help-mode-hook)) - - -;;*;; User commands defined in ESS help mode - -(defun ess-skip-to-help-section nil - "Jump to a section heading of a help buffer. -The section selected is determined by the command letter used to -invoke the command, as indicated by `ess-help-sec-keys-alist'. -Use \\[ess-describe-sec-map] to see which keystrokes find which -sections." - (interactive) - (let ((old-point (point)) - (case-fold-search nil)) - (goto-char (point-min)) - (let ((the-sec (cdr (assoc last-command-event ess-help-sec-keys-alist)))) - (if (not the-sec) (error "Invalid section key: %c" - last-command-event) - (if (re-search-forward (concat "^" the-sec) nil t) - (recenter) - (message "No %s section in this help. Sorry." the-sec) - (goto-char old-point)))))) - -(defun ess-skip-to-next-section nil - "Jump to next section in ESS help buffer." - (interactive) - (let ((case-fold-search nil)) - (if (re-search-forward ess-help-sec-regex nil 'no-error) nil - (message "No more sections.")))) - -(defun ess-skip-to-previous-section nil - "Jump to previous section in ESS help buffer." - (interactive) - (let ((case-fold-search nil)) - (if (re-search-backward ess-help-sec-regex nil 'no-error) nil - (message "No previous section.")))) - -(defun ess-describe-help-mode nil - "Display help for `ess-mode'." - (interactive) - (describe-function 'ess-help-mode)) - -(defun ess-kill-buffer-and-go nil - "Kill the current buffer and switch back to the ESS process." - (interactive) - (kill-buffer (current-buffer)) - (when (and ess-current-process-name (get-process ess-current-process-name)) - (ess-switch-to-ESS nil))) - -(defun ess-describe-sec-map nil - "Display help for the `s' key." - (interactive) - (let ((keys-alist ess-help-sec-keys-alist)) - (describe-function 'ess-skip-to-help-section) - - (with-current-buffer "*Help*" - (setq buffer-read-only nil) - (goto-char (point-max)) - (insert "\n\nCurrently defined keys are: - -Keystroke Section ---------- -------\n") - (dolist (cs keys-alist) - (insert " " - (car cs) - " " - (cdr cs) "\n")) - (insert "\nFull list of key definitions:\n" - (substitute-command-keys - "\\{ess-help-sec-map}"))))) - -(defun ess-helpobjs-at-point--read-obj () - (let* ((obj (ess-read-object-name-default))) - ;; Exclude numbers - (unless (and obj (not (string-match "[[:alpha:]]" obj))) - obj))) - -(defun ess-unqualify-symbol (object) - (if (string-match "^[[:alnum:].]+::?" object) - (substring object (match-end 0)) - object)) - -;;;###autoload -(defun ess-helpobjs-at-point (slist) - "Return a list (def obj fun). -Obj is a name at point, fun is the name of the function call -point is in, and def is either obj or fun (in that order) which -has a a help file, i.e. it is a member of slist (string-list). -nil otherwise." - (let* ((obj (ess-helpobjs-at-point--read-obj)) - (unqualified-obj (and obj (ess-unqualify-symbol obj))) - ;; FIXME: probably should use syntactic logic here - (fun (ignore-errors - (save-excursion - (save-restriction - (narrow-to-region (max (point-min) (- (point) 1000)) - (point-max)) - (backward-up-list 1) - (backward-char 1) - (ess-read-object-name-default)))))) - (list (or (car (member obj slist)) - (when (member unqualified-obj slist) - obj) - (car (member fun slist))) - obj fun))) - -(defun ess-find-help-file (p-string) - "Find help, prompting for P-STRING. -Note that we can't search SAS, Stata or XLispStat for additional information." - (ess-make-buffer-current) - (cond - ((fboundp ess-find-help-file-function) - (funcall ess-find-help-file-function p-string)) - ;; Fixme: Are `ess-find-help-file-function' and - ;; `ess-get-help-topics-function' redundant? - ((fboundp ess-get-help-topics-function) - (let* ((help-files-list (funcall ess-get-help-topics-function ess-current-process-name)) - (hlpobjs (ess-helpobjs-at-point help-files-list))) - (ess-completing-read p-string (append (delq nil hlpobjs) help-files-list) - nil nil nil nil (car hlpobjs)))) - (t - (read-string (format "%s: " p-string))))) - - -;;*;; Utility functions - -(defun ess-get-help-files-list () - "Return a list of files which have help available." - (apply 'nconc - (mapcar (lambda (str) - (let ((dirname (concat str "/.Help"))) - (and (file-directory-p dirname) - (directory-files dirname)))) - (ess-search-list)))) - -(defun ess-get-help-aliases-list () - "Return a list of aliases which have help available." - (message "Retrieving RDS aliases...") - ;; ess-command locks display, make sure the above message is visible - (redisplay t) - (ess-write-to-dribble-buffer "Processing RDS files ...\n") - (prog1 (ess-get-words-from-vector ".ess.getHelpAliases()\n") - (message "Retrieving RDS aliases...done"))) - -(defun ess-nuke-help-bs () - "Remove ASCII underlining and overstriking performed by ^H codes." - ;; This function is a modification of nuke-nroff-bs in man.el from the - ;; standard emacs 18 lisp library. - ;; Nuke underlining and overstriking (only by the same letter) - (goto-char (point-min)) - (while (search-forward "\b" nil t) - (let* ((preceding (char-after (- (point) 2))) - (following (following-char))) - (cond ((= preceding following) - ;; x\bx - (delete-char -2)) - ((= preceding ?\_) - ;; _\b - (delete-char -2)) - ((= following ?\_) - ;; \b_ - (delete-region (1- (point)) (1+ (point))))))) - (goto-char (point-min)) - (let ((case-fold-search nil)); 'URL' != 'url' ('libcurl: ' on ?capabilities) - (while (re-search-forward "\\bURL: " nil t); test with ?rtags - ;; quick fix for C-x f confusion (getting into tramp) - (delete-region (match-beginning 0) (match-end 0)))) - ;; Crunch blank lines - (goto-char (point-min)) - (while (re-search-forward "\n\n\n\n*" nil t) - (replace-match "\n\n")) - ;; Nuke blanks lines at start. - (goto-char (point-min)) - (skip-chars-forward "\n") - (delete-region (point-min) (point))) - -(defun ess-help-underline () - "Replace _^H codes with underline face." - (save-excursion - (goto-char (point-min)) - (while (search-forward "_" nil t) - (backward-delete-char 2) - (put-text-property (point) (1+ (point)) 'face 'underline)))) - -;;*;; Link to Info -;;;###autoload -(defun ess-goto-info (node) - "Display node NODE from `ess-mode' info." - (require 'info) - (split-window) - ;;(other-window 1) - (Info-goto-node (concat "(ess)" node))) - - -;; describe object at point - -(defvar ess-describe-object-at-point-commands nil - "Commands cycled by `ess-describe-object-at-point'. -Dialect specific.") -(make-variable-buffer-local 'ess-describe-at-point-commands) - -(defvar ess--descr-o-a-p-commands nil) - -(defun ess-describe-object-at-point () - "Get info for object at point, & display it in an electric buffer or tooltip. -If region is active use it instead of the object at point. - -This is an electric command (`ess--execute-electric-command'), -which means that you can use the last key to cycle through the -action set (in this case `C-e'). After invocation of this command -all standard Emacs commands, except those containing 'window' in -their names, remove the electric *ess-describe* buffer. Use -`other-window' to switch to *ess-describe* window. - -Customize `ess-describe-at-point-method' if you wan to display -the description in a tooltip. See also -`ess-r-describe-object-at-point-commands' (and similar option for -other dialects)." - (interactive) - (if (not ess-describe-object-at-point-commands) - (message "Not implemented for dialect %s" ess-dialect) - (ess-force-buffer-current) - (let ((map (make-sparse-keymap)) - (objname (or (and (use-region-p) - (buffer-substring-no-properties (point) (mark))) - (ess-symbol-at-point))) - bs ess--descr-o-a-p-commands) ;; used in ess--describe-object-at-point - (unless objname (error "No object at point ")) - (define-key map (vector last-command-event) 'ess--describe-object-at-point) - ;; todo: put digits into the map - (let* ((inhibit-quit t) ;; C-g removes the buffer - (buf (ess--execute-electric-command - map (format "Press %s to cycle" - (single-key-description last-command-event)) - nil nil objname)) - ;; read full command - (keys (read-key-sequence-vector "")) - (command (and keys (key-binding keys)))) - (when (and (commandp command) - (bufferp buf) - (or (not (symbolp command)) ;; kill on lambdas - (not (string-match "window" (symbol-name command))))) - (kill-buffer buf)) ;; bury does not work here :( (emacs bug?) - (setq unread-command-events - (append keys unread-command-events)))))) - -(defun ess--describe-object-at-point (ev objname) - (setq ess--descr-o-a-p-commands (or ess--descr-o-a-p-commands - (symbol-value ess-describe-object-at-point-commands))) - (let* ((com (format (car (pop ess--descr-o-a-p-commands)) objname)) - (buf (get-buffer-create "*ess-describe*")) - pos) - (unless (eq ess-describe-at-point-method 'tooltip) - ;; can take some time for the command to execute - (display-buffer buf)) - (sit-for .01) - (ess-command (concat com "\n") buf) ;; erases buf - (with-current-buffer buf - (goto-char (point-min)) - (insert (propertize (format "%s:\n\n" com) 'face 'font-lock-string-face)) - (forward-line -1) - (setq pos (point)) - ;; set the keys that we are used to in help mode - (special-mode) - (local-set-key "k" 'kill-this-buffer)) - (if (eq ess-describe-at-point-method 'tooltip) - (ess-tooltip-show-at-point - (with-current-buffer buf (buffer-string)) 0 30) - (display-buffer buf) - (set-window-point (get-buffer-window buf) pos) ;; don't move window point - buf))) - - -;;; Bug Reporting - -;;;###autoload -(defun ess-submit-bug-report () - "Submit a bug report to the ESS maintainers." - (interactive) - (require 'ess-mode) - (require 'reporter) - (let ((reporter-prompt-for-summary-p 't)) - (reporter-submit-bug-report - "ess-bugs@r-project.org" - (concat "ess-mode " (ess-version-string)) - (list 'ess-language - 'ess-dialect - 'ess-ask-for-ess-directory - 'ess-ask-about-transfile - 'default-directory - 'ess-keep-dump-files - 'ess-source-directory - 'ess-use-ido - 'ess-use-eldoc - 'ess-use-tracebug - 'ess-use-auto-complete - 'ess-use-company - 'ess-eval-visibly-p - 'ess-can-eval-in-background - 'ess-local-process-name) - nil - (lambda () - ;;(goto-char (point-max)) - (rfc822-goto-eoh) - (forward-line 1) - (insert "\n\n-------------------------------------------------------\n") - (insert "This bug report will be sent to the ESS bugs email list\n") - (insert "Press C-c C-c when you are ready to send your message.\n") - (insert "-------------------------------------------------------\n\n") - (insert (with-current-buffer ess-dribble-buffer - (goto-char (point-max)) - (forward-line -100) - (buffer-substring-no-properties (point) (point-max)))))))) - - -(provide 'ess-help) -;;; ess-help.el ends here diff --git a/elpa/ess-20181109.703/ess-inf.el b/elpa/ess-20181109.703/ess-inf.el deleted file mode 100644 index ee18cb50..00000000 --- a/elpa/ess-20181109.703/ess-inf.el +++ /dev/null @@ -1,3252 +0,0 @@ -;;; ess-inf.el --- Support for running S as an inferior Emacs process - -;; Copyright (C) 1989-1994 Bates, Kademan, Ritter and Smith -;; Copyright (C) 1997-1999 A.J. Rossini , -;; Martin Maechler . -;; Copyright (C) 2000--2010 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. -;; Copyright (C) 2011--2012 A.J. Rossini, Richard M. Heiberger, Martin Maechler, -;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. - -;; Author: David Smith -;; Created: 7 Jan 1994 -;; Maintainer: ESS-core - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; Code for handling running ESS processes. - -;;; Code: - - ; Requires and autoloads -(eval-when-compile - (require 'tramp)) -(require 'ess-generics) -(require 'ess-utils) -(require 'newcomment) -(require 'comint) -(require 'overlay) -(require 'compile) -(require 'format-spec) -(require 'ess-tracebug) - -;; Don't require tramp at run time. It's an expensive library to load. -;; Instead, guard calls with (require 'tramp) and silence the byte -;; compiler. -(declare-function tramp-sh-handle-expand-file-name "tramp-sh") -(declare-function tramp-dissect-file-name "tramp") -(declare-function tramp-tramp-file-p "tramp") - -;; TODO: refactor and remove file-local variable -;; byte-compile-warnings. See ess-r-mode.el also -(defvar proc) -(defvar start) -(defvar end) - - ;;*;; Process handling - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; In this section: -;;; -;;; * User commands for starting an ESS process -;;; * Functions called at startup -;;; * Process handling code -;;; * Multiple process implementation -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;;*;; Starting a process -;;;###autoload -(defun ess-proc-name (n name) - "Return name of process N, as a string, with NAME prepended. -If `ess-plain-first-buffername', then initial process is number-free." - (concat name - (if (not (and ess-plain-first-buffername - (= n 1))) ; if not both first and plain-first add number - (concat ":" (number-to-string n))))) - -;;;###autoload -(defun inferior-ess (&optional ess-start-args customize-alist no-wait) - "Start inferior ESS process. - -Without a prefix argument, starts a new ESS process, or switches -to the ESS process associated with the current buffer. With -ESS-START-ARGS (perhaps specified via \\[universal-argument]), -starts the process with those args. The current buffer is used -if it is an `inferior-ess-mode' or `ess-transcript-mode' buffer. - -If `ess-ask-about-transfile' is non-nil, you will be asked for a -transcript file to use. If there is no transcript file, the -buffer name will be like *R* or *R2*, determined by -`ess-gen-proc-buffer-name-function'. - -Takes the program name from the variable `inferior-ess-program'. -An initialization file (dumped into the process) is specified by -`inferior-ess-start-file', and `inferior-ess-start-args' is used -to accompany the call for `inferior-ess-program'. - -When creating a new process, the process buffer replaces the -current window if `inferior-ess-same-window' is non-nil. -Alternatively, it can appear in its own frame if -`inferior-ess-own-frame' is non-nil. - -\(Type \\[describe-mode] in the process buffer for a list of -commands.) - -CUSTOMIZE-ALIST is the list of dialect-specific variables. When -non-nil, NO-WAIT tells ESS not to wait for the process to finish. -This may be useful for debugging." - - ;; Use the current buffer if it is in inferior-ess-mode or ess-trans-mode - ;; If not, maybe ask about starting directory and/or transcript file. - ;; If no transfile, use buffer *S* - ;; - ;; This function is primarily used to figure out the Process and - ;; buffer names to use for inferior-ess. - - ;; Once, long ago, it was used for switching buffers, but we don't - ;; do that any more (at least not from here). - - (interactive) - - (let* ((ess-customize-alist (or customize-alist - ess-customize-alist)) - (temp-ess-dialect (eval (cdr (assoc 'ess-dialect - ess-customize-alist)))) - (temp-ess-lang (eval (cdr (assoc 'ess-language - ess-customize-alist))))) - - (run-hooks 'ess-pre-run-hook) - (ess-write-to-dribble-buffer - (format "(inf-ess 1): lang=%s, dialect=%s, tmp-dialect=%s, buf=%s\n" - ess-language ess-dialect temp-ess-dialect (current-buffer))) - (let* ((process-environment process-environment) - ;; Use temp-ess-dialect if not R, R program name otherwise - (temp-dialect (if ess-use-inferior-program-in-buffer-name ;VS[23-02-2013]: fixme: this should not be here - (if (string-equal temp-ess-dialect "R") - (file-name-nondirectory inferior-ess-r-program) - temp-ess-dialect) - temp-ess-dialect)) - (temp-lang temp-ess-lang) - ;; Find the next non-existent process N (*R:N*) - (procname (let ((ntry 1)) - (while (get-process (ess-proc-name ntry temp-dialect)) - (setq ntry (1+ ntry))) - (ess-proc-name ntry temp-dialect))) - (buf-name-str (funcall ess-gen-proc-buffer-name-function procname)) - (cur-dir (inferior-ess--maybe-prompt-startup-directory procname temp-dialect)) - (default-directory cur-dir) - buf method) - (ess-write-to-dribble-buffer - (format "(inf-ess 1.1): procname=%s temp-dialect=%s, buf-name=%s \n" - procname temp-dialect buf-name-str)) - - (cond - ;; 1) try to use current buffer, if inferior-ess-mode but no process - ((and (not (comint-check-proc (current-buffer))) - (eq major-mode 'inferior-ess-mode)) - (setq buf (current-buffer)) - ;; don't change existing buffer name in this case; It is very - ;; commong to restart the process in the same buffer. - (setq buf-name-str (buffer-name)) - (setq method 1)) - - ;; 2) Take the *R:N* buffer if already exists (and contains dead proc!) - ;; fixme: buffer name might have been changed, iterate over all - ;; inferior-ess buffers - ((get-buffer buf-name-str) - (setq buf (get-buffer buf-name-str)) - (setq method 2)) - - ;; 3) Pick up a transcript file or create a new buffer - (t - (setq buf (if ess-ask-about-transfile - (let ((transfilename (read-file-name "Use transcript file (default none):" - cur-dir - ""))) - (if (string= transfilename "") - (get-buffer-create buf-name-str) - (find-file-noselect (expand-file-name transfilename)))) - (get-buffer-create buf-name-str))) - (setq method 3))) - - (ess-write-to-dribble-buffer - (format "(inf-ess 2.0) Method #%d start=%s buf=%s\n" method cur-dir buf)) - - (set-buffer buf) - (set 'default-directory cur-dir) - (ess-setq-vars-local ess-customize-alist) - - (ess-write-to-dribble-buffer - (format "(inf-ess 2.1): ess-language=%s, ess-dialect=%s buf=%s \n" - ess-language ess-dialect (current-buffer))) - - (let* ((infargs (or ess-start-args - inferior-ess-start-args)) - (proc (get-process procname))) - ;; If ESS process NAME is running, switch to it - (if (and proc (comint-check-proc (process-buffer proc))) - (progn ;; fixme: when does this happen? -> log: - (ess-write-to-dribble-buffer (format "(inf-ess ..): popping to proc\n")) - (pop-to-buffer (process-buffer proc))) - - ;; Otherwise, crank up a new process - (let* ((symbol-string - (concat "inferior-" inferior-ess-program "-args")) - (switches-symbol (intern-soft symbol-string)) - (switches - (when (and switches-symbol (boundp switches-symbol)) - (symbol-value switches-symbol)))) - - (inferior-ess-mode) - (ess-write-to-dribble-buffer - (format "(inf-ess 3.0): prog=%s, start-args=%s, echoes=%s\n" - inferior-ess-program infargs comint-process-echoes)) - (setq ess-local-process-name procname) - (goto-char (point-max)) - - (when ess-history-file - ;; Load past history - (when (eq t ess-history-file) - (setq-local ess-history-file (concat "." ess-dialect "history"))) - (let ((histfile (expand-file-name ess-history-file - (or ess-history-directory cur-dir)))) - (when (file-readable-p histfile) - (setq comint-input-ring-file-name histfile) - (comint-read-input-ring)))) - - (with-current-buffer buf - (rename-buffer buf-name-str t)) - - ;; before the start, display the buffer depending on user settings: - (cond (inferior-ess-own-frame - (progn - (make-frame inferior-ess-frame-alist) - (switch-to-buffer buf))) - (inferior-ess-same-window - (switch-to-buffer buf)) - (t (pop-to-buffer buf))) - - ;; create the process - (setq buf - (if switches - (inferior-ess-make-comint buf-name-str - procname - infargs - switches) - (inferior-ess-make-comint buf-name-str - procname - infargs))) - - (set-buffer buf) - (set 'default-directory cur-dir) - - (setq proc (get-buffer-process buf)) - - ;; set the process sentinel to save the history - (set-process-sentinel proc 'ess-process-sentinel) - ;; add this process to ess-process-name-list, if needed - (let ((conselt (assoc procname ess-process-name-list))) - (unless conselt - (setq ess-process-name-list - (cons (cons procname nil) ess-process-name-list)))) - (ess-make-buffer-current) - (goto-char (point-max)) - (setq ess-sl-modtime-alist nil) - - ;; add the process filter to catch certain output - (set-process-filter proc 'inferior-ess-output-filter) - (inferior-ess-mark-as-busy proc) - - (unless no-wait - (ess-write-to-dribble-buffer "(inferior-ess: waiting for process to start (before hook)\n") - (ess-wait-for-process proc nil 0.01 t)) - - (unless (and proc (eq (process-status proc) 'run)) - (error "Process %s failed to start" procname)) - - ;; don't font-lock strings over process prompt - (set (make-local-variable 'syntax-begin-function) ;; fixme: obsolete in emacs 25.1 - #'inferior-ess-last-prompt-end) - (set (make-local-variable 'font-lock-fontify-region-function) - #'inferior-ess-fontify-region) - - (when ess-setwd-command - (ess-set-working-directory cur-dir)) - - (run-hooks 'ess-post-run-hook) - (ess-load-extras t) - - ;; user initialization can take some time ... - (unless no-wait - (ess-write-to-dribble-buffer "(inferior-ess 3): waiting for process after hook") - (ess-wait-for-process proc)))))))) - -(defun ess--accumulation-buffer (proc) - (let ((abuf (process-get proc :accum-buffer))) - (if (buffer-live-p abuf) - abuf - (let ((abuf (get-buffer-create (format " *%s:accum*" (process-name proc))))) - (process-put proc :accum-buffer abuf) - (with-current-buffer abuf - (buffer-disable-undo) - (setq-local inhibit-modification-hooks t)) - abuf)))) - -(defvar inferior-ess-objects-command nil - "The language/dialect specific command for listing objects. -It is initialized from the corresponding inferior--objects-command -and then made buffer local."); and the *--* ones are customized! -(make-variable-buffer-local 'inferior-ess-objects-command) - -(defvar ess-save-lastvalue-command nil - "The command to save the last value. See S section for more details. -Default depends on the ESS language/dialect and hence made buffer local") -(make-variable-buffer-local 'ess-save-lastvalue-command) - -(defvar ess-retr-lastvalue-command nil - "The command to retrieve the last value. See S section for more details. -Default depends on the ESS language/dialect and hence made buffer local") -(make-variable-buffer-local 'ess-retr-lastvalue-command) - -(defun inferior-ess-last-prompt-end (&optional pos limit) - "Move to the end of last prompt from POS, but not further than LIMIT." - (let ((pos (or pos (point)))) - (goto-char pos) - (end-of-line) - (when (re-search-backward inferior-ess-prompt limit t) - (goto-char (match-end 0))))) - -(defvar compilation--parsed) -(defvar ess--tb-last-input) -(defvar compilation--parsed) -(defun inferior-ess-fontify-region (beg end &optional verbose) - "Fontify output by output to avoid fontification spilling over prompts." - (let* ((buffer-undo-list t) - (inhibit-point-motion-hooks t) - (font-lock-dont-widen t) - (font-lock-extend-region-functions nil) - (buff (current-buffer)) - (pos1 beg) - (pos2)) - (when (< beg end) - (with-silent-modifications - ;; fontify chunks from prompt to prompt - (while (< pos1 end) - (goto-char pos1) - (comint-next-prompt 1) - (setq pos2 (min (point) end)) - (save-restriction - (narrow-to-region pos1 pos2) - (font-lock-default-fontify-region pos1 pos2 verbose)) - (setq pos1 pos2)) - ;; highlight errors - (setq compilation--parsed beg) - `(jit-lock-bounds ,beg . ,end))))) - -(defun ess-gen-proc-buffer-name:simple (proc-name) - "Function to generate buffer name by wrapping PROC-NAME in *proc-name*. -See `ess-gen-proc-buffer-name-function'." - (format "*%s*" proc-name)) - -(defun ess-gen-proc-buffer-name:directory (proc-name) - "Function to generate buffer name by wrapping PROC-NAME in *PROC-NAME:DIR-NAME*. -DIR-NAME is a short directory name. See -`ess-gen-proc-buffer-name-function'." - (format "*%s:%s*" proc-name (file-name-nondirectory - (directory-file-name default-directory)))) - -(defun ess-gen-proc-buffer-name:abbr-long-directory (proc-name) - "Function to generate buffer name in the form *PROC-NAME:ABBREVIATED-LONG-DIR-NAME*. -PROC-NAME is a string representing an internal process -name. ABBREVIATED-LONG-DIR-NAME is an abbreviated full directory -name. Abbreviation is performed by `abbreviate-file-name'. See -`ess-gen-proc-buffer-name-function'." - (format "*%s:%s*" proc-name (abbreviate-file-name default-directory))) - -(defun ess-gen-proc-buffer-name:projectile-or-simple (proc-name) - "Function to generate buffer name in the form *PROC-NAME:PROJECTILE-ROOT*. -PROC-NAME is a string representing an internal process -name. PROJECTILE-ROOT is directory name returned by -`projectile-project-p' if defined. If -`projectile-project-p' is undefined or no project directory -has been found use `ess-gen-proc-buffer-name:simple'. See -`ess-gen-proc-buffer-name-function'." - (let ((proj (and (fboundp 'projectile-project-p) - (projectile-project-p)))) - (if proj - (format "*%s:%s*" proc-name (file-name-nondirectory - (directory-file-name proj))) - (ess-gen-proc-buffer-name:simple proc-name)))) - -(defun ess-gen-proc-buffer-name:projectile-or-directory (proc-name) - "Function to generate buffer name in the form *PROC-NAME:PROJECTILE-ROOT*. -PROC-NAME is a string representing an internal process -name. PROJECTILE-ROOT is directory name returned by -`projectile-project-p' if defined. If -`projectile-project-p' is undefined, or no project directory -has been found, use `ess-gen-proc-buffer-name:directory'. See -`ess-gen-proc-buffer-name-function'." - (let ((proj (and (fboundp 'projectile-project-p) - (projectile-project-p)))) - (if proj - (format "*%s:%s*" proc-name (file-name-nondirectory - (directory-file-name proj))) - (ess-gen-proc-buffer-name:directory proc-name)))) - -(defun inferior-ess-set-status (proc string &optional no-timestamp) - "Internal function to set the satus of the PROC. -If no-timestamp, don't set the last-eval timestamp. -Return the 'busy state." - ;; todo: do it in one search, use starting position, use prog1 - (let ((busy (not (string-match (concat "\\(" inferior-ess-primary-prompt "\\)\\'") string)))) - (process-put proc 'busy-end? (and (not busy) - (process-get proc 'busy))) - (when (not busy) - (process-put proc 'running-async? nil)) - (process-put proc 'busy busy) - (process-put proc 'sec-prompt - (when inferior-ess-secondary-prompt - (string-match (concat "\\(" inferior-ess-secondary-prompt "\\)\\'") string))) - (unless no-timestamp - (process-put proc 'last-eval (current-time))) - busy)) - -(defun inferior-ess-mark-as-busy (proc) - (process-put proc 'busy t) - (process-put proc 'sec-prompt nil)) - -(defun inferior-ess-run-callback (proc string) - ;; callback is stored in 'callbacks proc property. Callbacks is a list that - ;; can contain either functions to be called with two artuments PROC and - ;; STRING, or cons cells of the form (func . suppress). If SUPPRESS is non-nil - ;; next process output will be suppressed. - (unless (process-get proc 'busy) - ;; only one callback is implemented for now - (let* ((cb (car (process-get proc 'callbacks))) - (listp (not (functionp cb))) - (suppress (and listp (consp cb) (cdr cb))) - (cb (if (and listp (consp cb)) - (car cb) - cb))) - (when cb - (when ess-verbose - (ess-write-to-dribble-buffer "executing callback ...\n")) - (when suppress - (process-put proc 'suppress-next-output? t)) - (process-put proc 'callbacks nil) - (condition-case err - (funcall cb proc string) - (error (message "%s" (error-message-string err)))))))) - -(defun ess--if-verbose-write-process-state (proc string &optional filter) - (ess-if-verbose-write - (format "\n%s: - --> busy:%s busy-end:%s sec-prompt:%s interruptable:%s <-- - --> running-async:%s callback:%s suppress-next-output:%s <-- - --> dbg-active:%s is-recover:%s <-- - --> string:%s\n" - (or filter "NORMAL-FILTER") - (process-get proc 'busy) - (process-get proc 'busy-end?) - (process-get proc 'sec-prompt) - (process-get proc 'interruptable?) - (process-get proc 'running-async?) - (if (process-get proc 'callbacks) "yes") - (process-get proc 'suppress-next-output?) - (process-get proc 'dbg-active) - (process-get proc 'is-recover) - (if (> (length string) 150) - (format "%s .... %s" (substring string 0 50) (substring string -50)) - string)))) - -(defun inferior-ess-output-filter (proc string) - "Standard output filter for the inferior ESS process PROC. -Ring Emacs bell if process output starts with an ASCII bell, and pass -the rest to `comint-output-filter'. -Taken from octave-mod.el." - (inferior-ess-set-status proc string) - (ess--if-verbose-write-process-state proc string) - (inferior-ess-run-callback proc string) - (if (process-get proc 'suppress-next-output?) - ;; works only for surpressing short output, for time being is enough (for callbacks) - (process-put proc 'suppress-next-output? nil) - (comint-output-filter proc (inferior-ess-strip-ctrl-g string)))) - -(defun inferior-ess-strip-ctrl-g (string) - "Strip leading `^G' character. -If STRING starts with a `^G', ring the Emacs bell and strip it. -Depending on the value of `visible-bell', either the frame will -flash or you'll hear a beep. Taken from octave-mod.el." - (if (string-match "^\a" string) - (progn - (ding) - (setq string (substring string 1)))) - string) - -(defun ess-process-sentinel (proc message) - "Sentinel for use with ESS processes. -This marks the process with a message, at a particular time point." - (save-excursion - (let ((abuf (process-get proc :accum-buffer))) - (when (buffer-live-p abuf) - (kill-buffer abuf))) - (setq message (substring message 0 -1)) ; strip newline - (set-buffer (process-buffer proc)) - (comint-write-input-ring) - (goto-char (point-max)) - (insert-before-markers - (format "\nProcess %s %s at %s\n" - (process-name proc) message (current-time-string))))) - -(defun inferior-ess-make-comint (bufname procname infargs &rest switches) - "Make an S comint process in buffer BUFNAME with process PROCNAME." -;;; This function is a modification of make-comint from the comint.el -;;; code of Olin Shivers. - (let* ((buffer (get-buffer-create bufname)) - (proc (get-process procname))) - ;; If no process, or nuked process, crank up a new one and put buffer in - ;; comint mode. Otherwise, leave buffer and existing process alone. - (cond ((or (not proc) (not (memq (process-status proc) '(run stop)))) - (with-current-buffer buffer - (if (eq (buffer-size) 0) nil - (goto-char (point-max)) - (insert "\^L\n"))) ; page boundaries = Interactive sessions - (let ((process-environment - (nconc - (list "STATATERM=emacs" - (format "PAGER=%s" inferior-ess-pager)) - process-environment)) - (tramp-remote-process-environment - (nconc ;; it contains a pager already, so append - (when (boundp 'tramp-remote-process-environment) - (copy-sequence tramp-remote-process-environment)) - (list "STATATERM=emacs" - (format "PAGER=%s" inferior-ess-pager))))) - (ess-write-to-dribble-buffer "Making Process...") - (ess-write-to-dribble-buffer - (format "Buf %s, :Proc %s, :Prog %s\n :Args= %s\nStart File=%s\n" - buffer - procname - inferior-ess-program - infargs - inferior-ess-start-file)) - (comint-exec buffer - procname - inferior-ess-program - inferior-ess-start-file - (ess-line-to-list-of-words - infargs))))) - buffer)) - - -;;*;; Requester functions called at startup - -;; FIXME EMACS 25.1: -;; Deprecate `ess-directory-function' in favour of `project-find-functions'? -(defun inferior-ess--get-startup-directory () - (let ((dir (or (and ess--enable-experimental-projects - (fboundp 'project-current) - (cdr (project-current))) - (and ess-directory-function - (funcall ess-directory-function)) - ess-startup-directory - default-directory))) - (directory-file-name dir))) - -(defun inferior-ess--maybe-prompt-startup-directory (procname dialect) - "Possibly prompt for a startup directory. -When `ess-ask-for-ess-directory' is non-nil, prompt. PROCNAME is -the name of the inferior process (e.g. \"R:1\"), and DIALECT is -the language dialect (e.g. \"R\")." - (let ((default-dir (if (fboundp 'inferior-ess-r--adjust-startup-directory) - (inferior-ess-r--adjust-startup-directory - (inferior-ess--get-startup-directory) dialect) - (inferior-ess--get-startup-directory)))) - (if ess-ask-for-ess-directory - (let ((prompt (format "%s starting project directory? " procname))) - (ess-prompt-for-directory default-dir prompt)) - default-dir))) - -(defun ess-prompt-for-directory (default prompt) - "PROMPT for a directory, using DEFAULT as the usual." - (let* ((def-dir (file-name-as-directory default)) - (the-dir (expand-file-name - (file-name-as-directory - (read-directory-name prompt def-dir def-dir t nil))))) - (if (file-directory-p the-dir) nil - (error "%s is not a valid directory" the-dir)) - the-dir)) - - -;;*;; General process handling code -(defmacro with-ess-process-buffer (no-error &rest body) - "Execute BODY in the process buffer of `ess-current-process-name'. -If NO-ERROR is t don't trigger error when there is not current -process. - -Symbol *proc* is bound to the current process during the evaluation of BODY." - (declare (indent 1) (debug t)) - `(let ((*proc* (and ess-local-process-name (get-process ess-local-process-name)))) - (if *proc* - (with-current-buffer (process-buffer *proc*) - ,@body) - (unless ,no-error - (error "No current ESS process"))))) - -(defmacro ess-with-current-buffer (buffer &rest body) - "Like `with-current-buffer' but with transfer of some essential -local ESS vars like `ess-local-process-name'." - (declare (indent 1) (debug t)) - (let ((lpn (make-symbol "lpn")) - (alist (make-symbol "alist"))) - `(let ((,lpn ess-local-process-name) - (,alist ess-local-customize-alist)) - (with-current-buffer ,buffer - (ess-setq-vars-local (eval ,alist)) - (setq ess-local-process-name ,lpn) - ,@body)))) - -(dolist (mode '(emacs-lisp-mode lisp-interaction-mode)) - (font-lock-add-keywords - mode - '(("(\\(ess-with-current-buffer\\)\\s +\\(\\(\\w\\|\\s_\\)+\\)" - (1 font-lock-keyword-face) - (2 font-lock-variable-name-face))))) - -(defun ess-get-process (&optional name use-another) - "Return the ESS process named by NAME. -If USE-ANOTHER is non-nil, and the process NAME is not -running (anymore), try to connect to another if there is one. By -default (USE-ANOTHER is nil), the connection to another process -happens interactively (when possible)." - (setq name (or name ess-local-process-name)) - (if (null name) ; should almost never happen at this point - (error "No ESS process is associated with this buffer now")) - (update-ess-process-name-list) - (if (assoc name ess-process-name-list) - (get-process name) - ;; else : - ;; was (error "Process %s is not running" name) - (ess-write-to-dribble-buffer - (format "ess-get-process: process '%s' not running" name)) - (if (= 0 (length ess-process-name-list)) - (save-current-buffer - (ess-write-to-dribble-buffer - (format " .. restart proc %s for language %s (buf %s)\n" - name ess-language (current-buffer))) - (message "trying to (re)start process %s for language %s ..." - name ess-language) - (ess-start-process-specific ess-language ess-dialect) - ;; and return the process: "call me again" - (ess-get-process name)) - - ;; else: there are other running processes - (if use-another ; connect to another running process : the first one - (let ((other-name (car (elt ess-process-name-list 0)))) - ;; "FIXME": try to find the process name that matches *closest* - (message "associating with *other* process '%s'" other-name) - (ess-get-process other-name)) - ;; else - (ding) - (if (y-or-n-p - (format "Process %s is not running, but others are. Switch? " name)) - (progn - (ess-force-buffer-current - (concat ess-dialect " process to use: ") 'force) - (ess-get-process ess-current-process-name)) - (error "Process %s is not running" name)))))) - -(defun inferior-ess-default-directory () - (ess-get-process-variable 'default-directory)) - -;;--- Unfinished idea (ESS-help / R-help ) -- probably not worth it... -;;- (defun ess-set-inferior-program (filename) -;;- "Allows to set or change `inferior-ess-program', the program (file)name." -;;- (interactive "fR executable (script) file: ") -;;- ;; "f" : existing file {file name completion} ! -;;- (setq inferior-ess-program filename)) -;; the inferior-ess-program is initialized in the customize..alist, -;; e.g. from inferior-ess-r-program ... --> should change rather these. -;; However these really depend on the current ess-language! -;; Plan: 1) must know and use ess-language -;; 2) change the appropriate inferior--program -;; (how?) in R/S : assign(paste("inferior-",ESSlang,"-p...."), filename)) - - -;;*;; Multiple process handling code - -(defun ess-make-buffer-current nil - "Make the process associated with the current buffer the current ESS process. -Returns the name of the process, or nil if the current buffer has none." - (update-ess-process-name-list) - ;; (if ess-local-process-name - ;; (setq ess-current-process-name ess-local-process-name)) - ess-local-process-name) - -(defun ess-get-process-variable (var) - "Return the variable VAR (symbol) local to ESS process called NAME (string)." - (buffer-local-value var (process-buffer (ess-get-process ess-local-process-name)))) - -(defun ess-set-process-variable (var val) - "Set variable VAR (symbol) local to ESS process called NAME (string) to VAL." - (with-current-buffer (process-buffer (ess-get-process ess-local-process-name)) - (set var val))) - -(defun ess-process-live-p () - "Check if the local ess process is alive. -Return nil if current buffer has no associated process, or -process was killed." - (and ess-local-process-name - (let ((proc (get-process ess-local-process-name))) - (and (processp proc) - (process-live-p proc))))) - -(defun ess-process-get (propname) - "Return the variable PROPNAME (symbol) from the plist of the current ESS process." - (process-get (get-process ess-local-process-name) propname)) - -(defun ess-process-put (propname value) - "Set the variable PROPNAME (symbol) to VALUE in the plist of the current ESS process." - (process-put (get-process ess-local-process-name) propname value)) - -(defun ess-start-process-specific (language dialect) - "Start an ESS process. -Typically from a language-specific buffer, using LANGUAGE (and DIALECT)." - (unless dialect - (error "The value of `dialect' is nil")) - (save-current-buffer - (let ((dsymb (intern dialect))) - (ess-write-to-dribble-buffer - (format " ..start-process-specific: lang:dialect= %s:%s, current-buf=%s\n" - language dialect (current-buffer))) - (cond ;; ((string= dialect "R") (R)) - ;; ((string= language "S") ; - ;; (message "ESS process not running, trying to start R, since language = 'S") - ;; (R)) - ;; ((string= dialect STA-dialect-name) (stata)) - ;;general case - ((fboundp dsymb) - (funcall dsymb)) - (t ;; else: ess-dialect is not a function - - ;; Typically triggered from - ;; ess-force-buffer-current("Process to load into: ") - ;; \--> ess-request-a-process("Process to load into: " no-switch) - (error "No ESS processes running; not yet implemented to start (%s,%s)" - language dialect))) - ;; save excursion is not working here !!! bad bad bad !! - ))) - -(defun ess-request-a-process (message &optional noswitch ask-if-1) - "Ask for a process, and make it the current ESS process. -If there is exactly one process, only ask if ASK-IF-1 is non-nil. -Also switches to the process buffer unless NOSWITCH is non-nil. Interactively, -NOSWITCH can be set by giving a prefix argument. -Returns the name of the selected process." - (interactive - (list "Switch to which ESS process? " current-prefix-arg)) - ; prefix sets 'noswitch - (ess-write-to-dribble-buffer "ess-request-a-process: {beginning}\n") - (update-ess-process-name-list) - - (setq ess-dialect (or ess-dialect - (ess-completing-read - "Set `ess-dialect'" - (delete-dups (list "R" "S+" (if (boundp 'S+-dialect-name) S+-dialect-name "S+") - "stata" (if (boundp 'STA-dialect-name) STA-dialect-name "stata") - "julia" "SAS" "XLS" "ViSta"))))) - - (let* ((pname-list (delq nil ;; keep only those mathing dialect - (append - (mapcar (lambda (lproc) - (and (equal ess-dialect - (buffer-local-value - 'ess-dialect - (process-buffer (get-process (car lproc))))) - (not (equal ess-local-process-name (car lproc))) - (car lproc))) - ess-process-name-list) - ;; append local only if running - (when (assoc ess-local-process-name ess-process-name-list) - (list ess-local-process-name))))) - (num-processes (length pname-list)) - (inferior-ess-same-window nil) ;; this should produce the inferior process in other window - (auto-started?)) - (if (or (= 0 num-processes) - (and (= 1 num-processes) - (not (equal ess-dialect ;; don't auto connect if from different dialect - (buffer-local-value - 'ess-dialect - (process-buffer (get-process - (car pname-list)))))))) - ;; try to start "the appropriate" process - (progn - (ess-write-to-dribble-buffer - (concat " ... request-a-process:\n " - (format - "major mode %s; current buff: %s; ess-language: %s, ess-dialect: %s\n" - major-mode (current-buffer) ess-language ess-dialect))) - (ess-start-process-specific ess-language ess-dialect) - (ess-write-to-dribble-buffer - (format " ... request-a-process: buf=%s\n" (current-buffer))) - (setq num-processes 1 - pname-list (car ess-process-name-list) - auto-started? t))) - ;; now num-processes >= 1 : - (let* ((proc-buffers (mapcar (lambda (lproc) - (buffer-name (process-buffer (get-process lproc)))) - pname-list)) - (proc - (if (or auto-started? - (and (not ask-if-1) (= 1 num-processes))) - (progn - (message "using process '%s'" (car proc-buffers)) - (car pname-list)) - ;; else - (unless (and ess-current-process-name - (get-process ess-current-process-name)) - (setq ess-current-process-name nil)) - (when message - (setq message (replace-regexp-in-string ": +\\'" "" message))) ;; <- why is this here?? - ;; ask for buffer name not the *real* process name: - (let ((buf (ess-completing-read message (append proc-buffers (list "*new*")) nil t nil nil))) - (if (equal buf "*new*") - (progn - (ess-start-process-specific ess-language ess-dialect) ;; switches to proc-buff - (caar ess-process-name-list)) - (process-name (get-buffer-process buf)) - )) - ))) - (if noswitch - (pop-to-buffer (current-buffer)) ;; VS: this is weired, but is necessary - (pop-to-buffer (buffer-name (process-buffer (get-process proc))) t)) - proc))) - -(defun ess-force-buffer-current (&optional prompt force no-autostart ask-if-1) - "Make sure the current buffer is attached to an ESS process. -If not, or FORCE (prefix argument) is non-nil, prompt for a -process name with PROMPT. If NO-AUTOSTART is nil starts the new -process if process associated with current buffer has -died. `ess-local-process-name' is set to the name of the process -selected. `ess-dialect' is set to the dialect associated with -the process selected. ASK-IF-1 asks user for the process, even if -there is only one process running." - (interactive - (list (concat ess-dialect " process to use: ") current-prefix-arg nil)) - ;; fixme: why the above interactive is not working in emacs 24? - (setq prompt (or prompt "Process to use: ")) - (let ((proc-name (ess-make-buffer-current))) - (if (and (not force) proc-name (get-process proc-name)) - nil ; do nothing - ;; Make sure the source buffer is attached to a process - (if (and ess-local-process-name (not force) no-autostart) - (error "Process %s has died" ess-local-process-name) - ;; ess-local-process-name is nil -- which process to attach to - (let ((proc (ess-request-a-process prompt 'no-switch ask-if-1)) - temp-ess-help-filetype dialect) - (with-current-buffer (process-buffer (get-process proc)) - (setq temp-ess-help-filetype inferior-ess-help-filetype)) - (setq ess-local-process-name proc) - (setq inferior-ess-help-filetype temp-ess-help-filetype)))))) - -(defalias 'inferior-ess-force #'ess-force-buffer-current) - -(defun ess-switch-process () - "Force a switch to a new underlying process." - (interactive) - (ess-force-buffer-current "Process to use: " 'force nil 'ask-if-1)) - -(defun ess-get-next-available-process (&optional dialect ignore-busy) - "Return first available (aka not busy) process of dialect DIALECT. -DIALECT defaults to the local value of ess-dialect. Return nil if -no such process has been found." - (setq dialect (or dialect ess-dialect)) - (when dialect - (let (proc) - (catch 'found - (dolist (p (cons ess-local-process-name - (mapcar 'car ess-process-name-list))) - (when p - (setq proc (get-process p)) - (when (and proc - (process-live-p proc) - (equal dialect - (buffer-local-value 'ess-dialect (process-buffer proc))) - (or ignore-busy - (not (process-get proc 'busy)))) - (throw 'found proc)))))))) - - -;;*;;; Commands for switching to the process buffer - -(defun ess-switch-to-ESS (eob-p) - "Switch to the current inferior ESS process buffer. -With (prefix) EOB-P non-nil, positions cursor at end of buffer. -This function should follow the description in `ess-show-buffer' -for showing the iESS buffer, except that the iESS buffer is also -made current." - (interactive "P") - (ess-force-buffer-current) - (if (and ess-current-process-name (get-process ess-current-process-name)) - (progn - (ess-show-buffer - (buffer-name (process-buffer (get-process ess-current-process-name))) - t) - (if eob-p (goto-char (point-max)))) - (message "No inferior ESS process") - (ding))) - -(defun ess-switch-to-ESS-deprecated (eob-p) - (interactive "P") - (ess-switch-to-ESS eob-p) - (message "C-c C-y is deprecated, use C-c C-z instead (ess-switch-to-inferior-or-script-buffer)")) - -(defun ess-switch-to-end-of-ESS () - "Switch to the end of the inferior ESS process buffer." - (interactive) - (ess-switch-to-ESS t)) - -(defun ess-switch-to-inferior-or-script-buffer (toggle-eob) - "If in script, switch to the iESS. If in iESS switch to most recent script buffer. -This is a single-key command. Assuming that it is bound to C-c -C-z, you can navigate back and forth between iESS and script -buffer with C-c C-z C-z C-z ... If variable -`ess-switch-to-end-of-proc-buffer' is t (the default) this -function switches to the end of process buffer. If TOGGLE-EOB is -given, the value of `ess-switch-to-end-of-proc-buffer' is -toggled." - (interactive "P") - (let ((map (make-sparse-keymap)) - (EOB (if toggle-eob - (not ess-switch-to-end-of-proc-buffer) - ess-switch-to-end-of-proc-buffer))) - (define-key map (vector last-command-event) - (lambda (ev eob) (interactive) - (if (not (eq major-mode 'inferior-ess-mode)) - (ess-switch-to-ESS eob) - (let ((dialect ess-dialect) - (loc-proc-name ess-local-process-name) - (blist (cdr (buffer-list)))) - (while (and blist - (with-current-buffer (car blist) - (not (or (and - (memq major-mode '(ess-mode ess-julia-mode)) - (equal dialect ess-dialect) - (null ess-local-process-name)) - (and - (memq major-mode '(ess-mode ess-julia-mode)) - (equal loc-proc-name ess-local-process-name)) - )))) - (pop blist)) - (if blist - (ess-show-buffer (car blist) t) - (message "Found no buffers for ess-dialect %s associated with process %s" - dialect loc-proc-name)))))) - (ess--execute-electric-command map nil nil nil EOB))) - - -(defun ess-get-process-buffer (&optional name) - "Return the buffer associated with the ESS process named by NAME." - (process-buffer (ess-get-process (or name ess-local-process-name)))) - -(defun update-ess-process-name-list () - "Remove names with no process." - (let (defunct) - (dolist (conselt ess-process-name-list) - (let ((proc (get-process (car conselt)))) - (unless (and proc (eq (process-status proc) 'run)) - (push conselt defunct)))) - (dolist (pointer defunct) - (setq ess-process-name-list (delq pointer ess-process-name-list)))) - (if (eq (length ess-process-name-list) 0) - (setq ess-current-process-name nil))) - -(defcustom ess-show-buffer-action - '((display-buffer-pop-up-window display-buffer-use-some-window)) - "Actions for `ess-show-buffer', passed to `display-buffer'." - :group 'ess - :type '(list (repeat function))) - -(defun ess-show-buffer (buf &optional visit) - "Ensure the ESS buffer BUF is visible. -The buffer, specified as a string, is typically an iESS (e.g. -*R*) buffer. This handles several cases: - -1. If BUF is visible in the current frame, nothing is done. -2. If BUF is visible in another frame, then we ensure that frame is -visible (it may have been iconified). -3. If buffer is not visible in any frame, simply show it in another window -in the current frame. - -If VISIT is non-nil, as well as making BUF visible, we also select it -as the current buffer." - (let ((frame)) - (if (ess-buffer-visible-this-frame buf) - ;;1. Nothing to do, BUF visible in this frame; just return window - ;; where this buffer is. - t - ;; 2. Maybe BUF visible in another frame. - (setq frame (ess-buffer-visible-other-frame buf)) - (if frame - ;; BUF is visible in frame, so just check frame is raised. - (if (not (eq (frame-visible-p frame) t)) - ;; frame is not yet visible, so raise it. - (raise-frame frame)) - ;; 3. else BUF not visible in any frame, so show it (but do - ;; not select it) in another window in current frame. - (display-buffer buf ess-show-buffer-action))) - ;; At this stage, the buffer should now be visible on screen, - ;; although it won't have been made current. - (when visit - ;; Need to select the buffer. - ;; - ;; First of all, check case 2 if buffer is in another frame - ;; but that frame may not be selected. - (if frame - (ess-select-frame-set-input-focus frame)) - (select-window (get-buffer-window buf 0))))) - -(defvar ess-bufs-in-frame nil) ;silence the compiler. -;; The next few functions are copied from my (SJE) iswitchb library. -(defun ess-get-bufname (win) - "Used by `ess-get-buffers-in-frames' to walk through all windows." - (let ((buf (buffer-name (window-buffer win)))) - (if (not (member buf ess-bufs-in-frame)) - ;; Only add buf if it is not already in list. - ;; This prevents same buf in two different windows being - ;; put into the list twice. - (setq ess-bufs-in-frame - (cons buf ess-bufs-in-frame))))) - -(defun ess-get-buffers-in-frames (&optional current) - "Return the list of buffers that are visible in the current frame. -If optional argument CURRENT is given, restrict searching to the -current frame, rather than all frames." - (let ((ess-bufs-in-frame nil)) - (walk-windows 'ess-get-bufname nil (if current nil 0)) - ess-bufs-in-frame)) - -(defun ess-buffer-visible-this-frame (buf) - "Return t if BUF is visible in current frame." - (member buf (ess-get-buffers-in-frames t))) - -(defun ess-buffer-visible-other-frame (buf) - "Return t if BUF is visible in another frame. -Assumes that buffer has not already been in found in current frame." - (if (member (buffer-name (get-buffer buf)) (ess-get-buffers-in-frames)) - (window-frame (get-buffer-window buf 0)) - nil)) - - - -;;; Functions for evaluating code - -;;*;; Utils for evaluation - -(ess-defgeneric ess-build-eval-command (string &optional visibly output file &rest args) - "Format an evaluation command. -Wrap STRING with `ess-quote-special-chars' and dispatch on the -dialect-specific `ess-build-eval-command' function and -`ess-eval-command', in that order. If none of the above is -defined, return nil." - (setq string (ess-quote-special-chars string)) - (:override - (and ess-eval-command - (format-spec ess-eval-command - `((?s . ,string) - (?f . ,file)))))) - -(ess-defgeneric ess-build-load-command (file &optional visibly output &rest args) - "Format a loading command. -Dispatches on the dialect-specific `ess-build-load-command' -and `ess-load-command', in that order." - (:override - (and ess-load-command - (format ess-load-command file)))) - -(defun ess-wait-for-process (&optional proc sec-prompt wait force-redisplay timeout) - "Wait for 'busy property of the process to become nil. -If SEC-PROMPT is non-nil return if secondary prompt is detected -regardless of whether primary prompt was detected or not. If WAIT -is non-nil wait for WAIT seconds for process output before the -prompt check, default 0.002s. When FORCE-REDISPLAY is non-nil -force redisplay. You better use WAIT >= 0.1 if you need -FORCE-REDISPLAY to avoid excesive redisplay. If TIMEOUT is -non-nil stop waiting for output after TIMEOUT seconds." - (setq proc (or proc (get-process ess-local-process-name))) - (setq wait (or wait 0.005)) - (setq timeout (or timeout most-positive-fixnum)) - (let ((start-time (float-time)) - (elapsed 0)) - (save-excursion - (while (and - (or (eq (process-status proc) 'run) - (progn - (when (process-buffer proc) - (display-buffer (process-buffer proc))) - (error "ESS process has died unexpectedly"))) - (< elapsed timeout) - (or (accept-process-output proc wait) - (unless (and sec-prompt (process-get proc 'sec-prompt)) - (process-get proc 'busy)))) - (when force-redisplay - (redisplay 'force)) - (setq elapsed (- (float-time) start-time)) - (when (> elapsed .3) - (setq wait .3)))))) - -(defun inferior-ess-ordinary-filter (proc string) - (inferior-ess-set-status proc string t) - (ess--if-verbose-write-process-state proc string "ordinary-filter") - (inferior-ess-run-callback proc string) - (with-current-buffer (process-buffer proc) - ;; (princ (format "%s:" string)) - (insert string))) - -(defvar ess-presend-filter-functions nil - "List of functions to call before sending the input string to the process. -Each function gets one argument, a string containing the text to -be send to the subprocess. It should return the string sent, -perhaps the same string that was received, or perhaps a modified -or transformed string. - -The functions on the list are called sequentially, and each one -is given the string returned by the previous one. The string -returned by the last function is the text that is actually sent -to the process. You can use `add-hook' to add functions to this -list either globally or locally. The hook is executed in current -buffer. Before execution, the local value of this hook in the -process buffer is appended to the hook from the current buffer.") - -(defvar ess--inhibit-presend-hooks nil - "If non-nil don't run presend hooks.") - -(defun ess--run-presend-hooks (process string) - ;; run ess-presend-filter-functions and comint-input-filter-functions - (if ess--inhibit-presend-hooks - string - ;;return modified string - (let* ((pbuf (process-buffer process)) - ;; also run proc buffer local hooks - (functions (unless (eq pbuf (current-buffer)) - (buffer-local-value 'ess-presend-filter-functions pbuf)))) - (setq functions (append (delq t (copy-sequence functions)) ;; even in let, delq distructs - ess-presend-filter-functions)) - (while (and functions string) - ;; cannot use run-hook-with-args here because string must be passed from one - ;; function to another - (if (eq (car functions) t) - (let ((functions - (default-value 'ess-presend-filter-functions))) - (while (and functions string) - (setq string (funcall (car functions) string)) - (setq functions (cdr functions)))) - (setq string (funcall (car functions) string))) - (setq functions (cdr functions))) - (with-current-buffer pbuf - (run-hook-with-args 'comint-input-filter-functions string)) - string))) - -(defun ess--concat-new-line-maybe (string) - "Append \\n at the end of STRING if missing." - (if (string-match "\n\\'" string (max (- (length string) 2) 0)) - string - (concat string "\n"))) - -(defvar ess--dbg-del-empty-p t - "Internal variable to control removal of empty lines during the debugging. -Let-bind it to nil before calling `ess-send-string' or -`ess-send-region' if no removal is necessary.") - -(defun inferior-ess--interrupt-subjob-maybe (proc) - "Internal. Interrupt the process if interruptable? process variable is non-nil. -Hide all the junk output in temporary buffer." - (when (process-get proc 'interruptable?) - (let ((cb (cadr (process-get proc 'callbacks))) - (buf (get-buffer-create " *ess-temp-buff*")) - (old-filter (process-filter proc)) - (old-buff (process-buffer proc))) - (unwind-protect - (progn - (ess-if-verbose-write "interrupting subjob ... start") - (process-put proc 'interruptable? nil) - (process-put proc 'callbacks nil) - (process-put proc 'running-async? nil) - ;; this is to avoid putting junk in user's buffer on process - ;; interruption - (set-process-buffer proc buf) - (set-process-filter proc 'inferior-ess-ordinary-filter) - (interrupt-process proc) - (when cb - (ess-if-verbose-write "executing interruption callback ... ") - (funcall cb proc)) - ;; should be very fast as it inputs only the prompt - (ess-wait-for-process proc) - (ess-if-verbose-write "interrupting subjob ... finished") - ) - (set-process-buffer proc old-buff) - (set-process-filter proc old-filter))))) - - -;;*;; Evaluation primitives - -(ess-defgeneric ess-send-string (process string &optional visibly message type) - "ESS wrapper for `process-send-string'. -Run `comint-input-filter-functions' and current buffer's and -PROCESS' `ess-presend-filter-functions' hooks on the input -STRING. VISIBLY can be nil, t, 'nowait or a string. If string -the behavior is as with 'nowait with the differences that -inserted string is VISIBLY instead of STRING (evaluated command -is still STRING). In all other cases the behavior is as -described in `ess-eval-visibly'. STRING need not end with -\\n. TYPE is a symbol indicating type of the string." - ;; No support of `visibly' when there's no secondary prompt - (let ((visibly (if (and (eq visibly t) - (null inferior-ess-secondary-prompt)) - 'nowait - visibly)) - (string (ess--run-presend-hooks process string))) - (inferior-ess--interrupt-subjob-maybe process) - (inferior-ess-mark-as-busy process) - (:override - (cond - ;; Wait after each line - ((eq visibly t) - (let ((ess--inhibit-presend-hooks t)) - (ess-eval-linewise string))) - ;; Insert command and eval invisibly - ((or (stringp visibly) - (eq visibly 'nowait)) - (with-current-buffer (process-buffer process) - (save-excursion - (goto-char (process-mark process)) - (insert-before-markers - (propertize (format "%s\n" - (replace-regexp-in-string - "\n" "\n+ " - (if (stringp visibly) visibly string))) - 'font-lock-face 'comint-highlight-input))) - (process-send-string process (ess--concat-new-line-maybe string)))) - (t - (process-send-string process (ess--concat-new-line-maybe string)))) - (when message - (message "%s" message))))) - -(ess-defgeneric ess-send-region (process start end &optional visibly message type) - "Low level ESS version of `process-send-region'. -If VISIBLY call `ess-eval-linewise', else call -`ess-send-string'. If MESSAGE is supplied, display it at the -end. Run current buffer's and PROCESS' -`ess-presend-filter-functions' hooks. TYPE is a symbol indicating -type of the region." - (cond - ((ess-tracebug-p) - (ess-tracebug-send-region proc start end visibly message type)) - (t (:override - (ess-send-string process (buffer-substring start end) visibly message type))))) - - -;;*;; Evaluation commands - -(defun ess-load-file--normalise-file (file) - "Handle Tramp and system peculiarities." - (require 'tramp) - (let* ((file (if (tramp-tramp-file-p file) - (tramp-file-name-localname (tramp-dissect-file-name file)) - file)) - (file (if ess-microsoft-p - (ess-replace-in-string file "[\\]" "/") - file))) - (abbreviate-file-name file))) - -(defun ess-load-file--normalise-buffer (file) - (when (ess-check-source file) - (error "Buffer %s has not been saved" (buffer-name file))) - (let ((source-buffer (get-file-buffer file))) - (if source-buffer - (with-current-buffer source-buffer - (when (buffer-modified-p) (save-buffer)) - (ess-force-buffer-current "Process to load into: ") - (ess-check-modifications)) - (ess-force-buffer-current "Process to load into: ")))) - -;;;###autoload -(ess-defgeneric ess-load-file (&optional filename) - "Load a source file into an inferior ESS process. -This handles Tramp when working on a remote." - (interactive (list (or (and (memq major-mode '(ess-mode ess-julia-mode)) - (buffer-file-name)) - (expand-file-name - (read-file-name "Load source file: " nil nil t))))) - (ess-load-file--normalise-buffer filename) - ;; Pop up an inferior window - (save-selected-window - (ess-switch-to-ESS t)) - (:override - (let ((file (ess-load-file--normalise-file filename))) - (let ((command (ess-build-load-command file nil t))) - (ess-send-string (ess-get-process) command t))))) - -;; C-c C-l *used to* eval code: -(defun ess-msg-and-comint-dynamic-list-input-ring () - "Display a list of recent inputs entered into the current buffer." - (interactive) - (message "C-c C-l no longer loads a source file in [iESS], rather use C-c M-l instead") - (comint-dynamic-list-input-ring)) - -;; ;;; VS[03-09-2012]: Test Cases: -;; (ess-command "a<-0\n" nil nil nil nil (get-process "R")) -;; (ess-async-command-delayed "Sys.sleep(5);a<-a+1;cat(1:10)\n" nil -;; (get-process "R") (lambda (proc) (message "done"))) -;; (ess-async-command-delayed "Sys.sleep(5)\n" nil (get-process "R") -;; (lambda (proc) (message "done"))) -;; (process-get (get-process "R") 'running-async?) - -(defun ess-command--normalise-proc (proc no-prompt-check) - (let ((proc (cond - (proc - ;; This lets external functions call this command - (unless ess-local-process-name - (setq ess-local-process-name (process-name proc))) - proc) - (t - (ess-get-process ess-local-process-name))))) - (unless no-prompt-check - (when (process-get proc 'busy) - (user-error "ESS process not ready. Finish your command before trying again"))) - proc)) - -(ess-defgeneric ess-command (cmd &optional out-buffer sleep no-prompt-check wait proc force-redisplay) - "Send the ESS process command CMD and delete the output from -the ESS process buffer. If an optional second argument -OUT-BUFFER exists save the output in that buffer. OUT-BUFFER is -erased before use. CMD should have a terminating newline. -Guarantees that the value of `.Last.value' will be preserved. - -SLEEP is deprecated and no longer has any effect. WAIT and -FORCE-REDISPLAY are as in `ess-wait-for-process' and are passed -to `ess-wait-for-process'. - -PROC should be a process, if nil the process name is taken from -`ess-local-process-name'. This command doesn't set 'last-eval -process variable. - -Note: for critical, or error prone code you should consider -wrapping the code into: - - local({ - olderr <- options(error=NULL) - on.exit(options(olderr)) - ... - })" - (:override - (let ((out-buffer (or out-buffer (get-buffer-create " *ess-command-output*"))) - (proc (ess-command--normalise-proc proc no-prompt-check))) - (with-current-buffer (process-buffer proc) - (let ((primary-prompt inferior-ess-primary-prompt) - (oldpb (process-buffer proc)) - (oldpf (process-filter proc)) - (oldpm (marker-position (process-mark proc)))) - (ess-if-verbose-write (format "(ess-command %s ..)" cmd)) - ;; Swap the process buffer with the output buffer before - ;; sending the command - (unwind-protect - (progn - (set-process-buffer proc out-buffer) - (set-process-filter proc 'inferior-ess-ordinary-filter) - (with-current-buffer out-buffer - (setq inferior-ess-primary-prompt primary-prompt) - (setq buffer-read-only nil) - (erase-buffer) - (set-marker (process-mark proc) (point-min)) - (inferior-ess-mark-as-busy proc) - (process-send-string proc cmd) - ;; Need time for ess-create-object-name-db on PC - (if no-prompt-check - (sleep-for 0.02) ; 0.1 is noticeable! - (ess-wait-for-process proc nil wait force-redisplay) - (ess-mpi-handle-messages (current-buffer)) - ;; Remove prompt - ;; If output is cat(..)ed this deletes the output - (goto-char (point-max)) - (delete-region (point-at-bol) (point-max))) - (ess-if-verbose-write " .. ok{ess-command}"))) - (ess-if-verbose-write " .. exiting{ess-command}\n") - ;; Restore the process buffer in its previous state - (set-process-buffer proc oldpb) - (set-process-filter proc oldpf) - (set-marker (process-mark proc) oldpm)))) - out-buffer))) - -(defun ess-boolean-command (com &optional buf wait) - "Like `ess-command' but expects COM to print TRUE or FALSE. -If TRUE (or true) is found return non-nil otherwise nil. -Example (ess-boolean-command \"2>1\n\")" - (with-current-buffer (ess-command com buf nil nil wait) - (goto-char (point-min)) - (let ((case-fold-search t)) - (re-search-forward "true" nil t)))) - -(defun ess-string-command (com &optional buf wait) - "Returns the output of COM as a string." - (with-current-buffer (ess-command com buf nil nil wait) - (ess-kill-last-line) - (buffer-substring (point-min) (point-max)))) - -;; (ess-async-command "{cat(1:5);Sys.sleep(5);cat(2:6)}\n" nil (get-process "R") -;; (lambda (proc) (message "done"))) -;; (ess-async-command "{cat(1:5);Sys.sleep(5);cat(2:6)}\n" nil (get-process "R") -;; (lambda (proc) (message "done")) -;; t) -;; (ess-async-command "{cat(1:5);Sys.sleep(5);cat(2:6)}\n" nil (get-process "R") -;; (lambda (proc) (message "done")) -;; (lambda (proc2) (message "name: %s" (process-name proc2)))) - -(defun ess-async-command (com &optional buf proc callback interrupt-callback ) - "Asynchronous version of `ess-command'. -COM, BUF, WAIT and PROC are as in `ess-command'. - -CALLBACK is a function of two arguments (PROC STRING) to run -after the successful execution. When INTERRUPT-CALLBACK is -non-nil, user evaluation can interrupt the -job. INTERRUPT-CALLBACK should be either t or a function of one -argument (PROC) to be called on interruption. - -NOTE: Currently this function should be used only for background -jobs like caching. ESS tries to suppress any output from the -asynchronous command, but long output of COM will most likely end -up in user's main buffer." - (let ((proc (or proc (get-process ess-local-process-name)))) - (if (not (and proc - (eq (process-status proc) 'run))) - (error "Process %s is dead" ess-local-process-name) - (if (or (process-get proc 'busy) - (process-get proc 'running-async?)) - (error "Process %s is busy or already running an async command" ess-local-process-name) - (when (eq interrupt-callback t) - (setq interrupt-callback (lambda (proc)))) - (process-put proc 'callbacks (list (cons callback 'suppress-output) - interrupt-callback)) - (process-put proc 'interruptable? (and interrupt-callback t)) - (process-put proc 'running-async? t) - (ess-command com buf nil 'no-prompt-check .01 proc))))) - -(defun ess-async-command-delayed (com &optional buf proc callback delay) - "Delayed asynchronous ess-command. -COM and BUF are as in `ess-command'. DELAY is a number of idle -seconds to wait before starting the execution of the COM. On -interruption (by user's evaluation) ESS tries to rerun the job -after next DELAY seconds, and the whole process repeats itself -until the command manages to run completely. DELAY defaults to -`ess-idle-timer-interval' + 3 seconds. You should always provide -PROC for delayed evaluation, as the current process might change, -leading to unpredictable consequences. This function is a wrapper -of `ess-async-command' with an explicit interrupt-callback." - (unless proc - (error "You must provide PROC argument to ess-async-command-delayed")) - (let* ((timer (make-symbol "timer")) - (delay (or delay - (+ ess-idle-timer-interval 3))) - (int-cb `(lambda (proc) - (ess-async-command-delayed ,com ,buf proc ,callback ,delay))) - (com-fun `(lambda () - (when (eq (process-status ,proc) 'run) ; do nothing if not running - (if (or (process-get ,proc 'busy) ; if busy, try later - (process-get ,proc 'running-async?)) - ;; idle timer doesn't work here - (run-with-timer ,delay nil 'ess-async-command-delayed - ,com ,buf ,proc ,callback ,delay)) - (ess-async-command ,com ,buf ,proc ,callback ',int-cb))))) - (run-with-idle-timer delay nil com-fun))) - - -;;*;; Evaluating lines, paragraphs, regions, and buffers. - -(ess-defgeneric ess-eval-linewise - (text &optional invisibly eob even-empty wait-last-prompt sleep-sec wait-sec) - "Evaluate TEXT in the ESS process buffer as if typed in w/o tabs. -Waits for prompt after each line of input, so won't break on large texts. - -If optional second arg INVISIBLY is non-nil, don't echo commands. -If it is a string, just include that string. If optional third -arg EOB is non-nil go to end of ESS process buffer after -evaluation. If optional 4th arg EVEN-EMPTY is non-nil, also send -empty text (e.g. an empty line). If 5th arg WAIT-LAST-PROMPT is -non-nil, also wait for the prompt after the last line; if 6th arg -SLEEP-SEC is a number, ESS will call '(\\[sleep-for] SLEEP-SEC) -at the end of this function. If the 7th arg WAIT-SEC is set, it -will be used instead of the default .001s and be passed to -\\[ess-wait-for-process]. - -Run `comint-input-filter-functions' and -`ess-presend-filter-functions' of the associated PROCESS on the -TEXT." - (unless (numberp wait-sec) - (setq wait-sec 0.001)) - (ess-force-buffer-current "Process to use: ") - (:override - ;; Use this to evaluate some code, but don't wait for output. - (let* ((deactivate-mark) ; keep local {do *not* deactivate wrongly} - (cbuffer (current-buffer)) - (sprocess (ess-get-process ess-current-process-name)) - (sbuffer (process-buffer sprocess)) - (win (get-buffer-window sbuffer t))) - (setq text (ess--concat-new-line-maybe - (ess--run-presend-hooks sprocess text))) - (with-current-buffer sbuffer - (setq text (propertize text 'field 'input 'front-sticky t)) - (goto-char (marker-position (process-mark sprocess))) - (if (stringp invisibly) - (insert-before-markers (concat "*** " invisibly " ***\n"))) - ;; dbg: - ;; dbg (ess-write-to-dribble-buffer - ;; dbg (format "(eval-visibly 2): text[%d]= '%s'\n" (length text) text)) - (while (or (> (length text) 0) even-empty) - (setq even-empty nil) - (let* ((pos (string-match "\n\\|$" text)) - (input (if (= (length text) 0) - "\n" - (concat (substring text 0 pos) "\n")))) - (setq text (substring text (min (length text) (1+ pos)))) - (goto-char (marker-position (process-mark sprocess))) - (if win (set-window-point win (process-mark sprocess))) - (unless invisibly - ;; for consistency with comint :( - (insert (propertize input 'font-lock-face 'comint-highlight-input)) - (set-marker (process-mark sprocess) (point))) - (inferior-ess-mark-as-busy sprocess) - (process-send-string sprocess input)) - (when (or (> (length text) 0) - wait-last-prompt) - (ess-wait-for-process sprocess t wait-sec))) - (if eob (ess-show-buffer (buffer-name sbuffer) nil)) - (goto-char (marker-position (process-mark sprocess))) - (when win - (with-selected-window win - (goto-char (point)) - ;; this is crucial to avoid reseting window-point - (recenter (- -1 scroll-margin))))))) - (if (numberp sleep-sec) - (sleep-for sleep-sec))) - - -;;;*;;; Evaluate only - -(defun ess-eval-region--normalise-region () - "Clean the region for evaluation. -This trims newlines at beginning and end of the region because -they might throw off the debugger." - (save-excursion - (goto-char start) - (skip-chars-forward "\n\t ") - (setq start (point)) - - (unless mark-active - (ess-blink-region start end)) - - (goto-char end) - (skip-chars-backward "\n\t ") - (setq end (point)))) - -(defun ess-eval-region (start end toggle &optional message type) - "Send the region from START to END to the inferior ESS process. -TOGGLE switches the meaning of `ess-eval-visibly'. If given, -MESSAGE is `message'ed. TYPE is a symbol indicating what type of -region this is. If command `rectangle-mark-mode' is active, send -the lines of the rectangle separately to the inferior process." - (interactive "r\nP") - (ess-force-buffer-current "Process to use: ") - (message "Starting evaluation...") - (unless ess-local-customize-alist - ;; External applications might call ess-eval-* functions; make it - ;; easier for them - (ess-setq-vars-local (symbol-value (ess-get-process-variable 'ess-local-customize-alist)))) - (if (and (bound-and-true-p rectangle-mark-mode) - ;; TODO: Remove this check after dropping support for Emacs - ;; 24, replace by putting this at the top of this file: - ;; (declare-function extract-rectangle-bounds "rect") - (fboundp 'extract-rectangle-bounds)) - ;; If we're in rectangle-mark-mode, loop over each line of the - ;; rectangle. Send them separately. - (let ((reclines (extract-rectangle-bounds (min (mark) (point)) (max (mark) (point))))) - (mapc (lambda (l) - (ess--eval-region (car l) (cdr l) toggle message type)) - reclines)) - (ess--eval-region start end toggle message type))) - -(defun ess--eval-region (start end toggle &optional message type) - "Helper function for `ess-eval-region', which see. -START, END, TOGGLE, MESSAGE, and TYPE described there." - (ess-eval-region--normalise-region) - (let ((visibly (if toggle (not ess-eval-visibly) ess-eval-visibly)) - (message (or message "Eval region")) - (proc (ess-get-process))) - (save-excursion - (ess-send-region proc start end visibly message type))) - (when ess-eval-deactivate-mark - (ess-deactivate-mark)) - (list start end)) - -(defun ess-eval-buffer (vis) - "Send the current buffer to the inferior ESS process. -VIS has same meaning as for `ess-eval-region'." - (interactive "P") - (ess-eval-region (point-min) (point-max) vis "Eval buffer" 'buffer)) - -(defun ess-eval-buffer-from-beg-to-here (vis) - "Send region from beginning to point to the inferior ESS process. -VIS has same meaning as for `ess-eval-region'." - (interactive "P") - (ess-eval-region (point-min) (point) vis "Eval buffer till point")) - -(defun ess-eval-buffer-from-here-to-end (vis) - "Send region from point to end of buffer to the inferior ESS process. -VIS has same meaning as for `ess-eval-region'." - (interactive "P") - (ess-eval-region (point) (point-max) vis "Eval buffer till end")) - -(defun ess-eval-function (vis &optional no-error) - "Send the current function to the inferior ESS process. -Prefix argument VIS toggles the meaning of `ess-eval-visibly'. If -NO-ERROR is non-nil and the function was successfully evaluated, -return '(beg end) representing the beginning and end of the -current function, otherwise (in case of an error) return nil." - (interactive "P") - (ess-force-buffer-current "Process to use: ") - (save-excursion - (ignore-errors - ;; Evaluation is forward oriented - (forward-line -1) - (ess-next-code-line 1)) - (let ((beg-end (ess-end-of-function nil no-error))) - (when beg-end - (let* ((beg (nth 0 beg-end)) - (end (nth 1 beg-end)) - (proc (get-process ess-local-process-name)) - ;; FIXME: func names starting with . are not recognized?? - (name (progn (goto-char beg) - (forward-word) - (ess-read-object-name-default))) - (msg (format "Eval function %s" - (propertize (or name "???") - 'face 'font-lock-function-name-face))) - (visibly (if vis (not ess-eval-visibly) ess-eval-visibly))) - (ess-blink-region beg end) - (cond - ((ess-tracebug-p) - (ess-tracebug-send-function proc beg end visibly msg)) - (t - (ess-send-region proc beg end visibly msg))) - beg-end))))) - -;; This is from Mary Lindstrom -;; 31 Aug 1995 14:11:43 To: S-mode@stat.math.ethz.ch -(defun ess-eval-paragraph (vis) - "Send the current paragraph to the inferior ESS process. -Prefix arg VIS toggles visibility of ess-code as for `ess-eval-region'." - (interactive "P") - (save-excursion - (forward-paragraph) - ;; Skip blank code to avoid sending surrounding comments - (ess-skip-blanks-backward 'multiline) - (let ((end (point))) - (backward-paragraph) - (ess-skip-blanks-forward 'multiline) - (ess-eval-region (point) end vis "Eval paragraph")))) - -;; ;; Experimental - after suggestion from Jenny Brian for an 'eval-multiline' -;; ;; 'sentence' is too much : almost like 'paragraph' -;; ;; 'sexp' is close, but too little [when point is inside function call; -;; ;; it moves all the way to the end - which is fine] -;; (defun ess-eval-sexp (vis) -;; "Send the current sexp to the inferior ESS process. -;; Prefix arg VIS toggles visibility of ess-code as for `ess-eval-region'." -;; (interactive "P") -;; (save-excursion -;; (forward-sexp) -;; (let ((end (point))) -;; (backward-sexp) -;; (ess-eval-region (point) end vis "Eval sexp")))) - -(defun ess-eval-function-or-paragraph (vis) - "Send the current function if \\[point] is inside one. -Otherwise send the current paragraph to the inferior ESS process. -Prefix arg VIS toggles visibility of ess-code as for -`ess-eval-region'." - (interactive "P") - (let ((beg-end (ess-eval-function vis 'no-error))) - (if (null beg-end) ; not a function - (ess-eval-paragraph vis)))) - -(defun ess-eval-function-or-paragraph-and-step (vis) - "Send the current function if \\[point] is inside one. -Otherwise send the current paragraph to the inferior ESS process. -Prefix arg VIS toggles visibility of ess-code as for -`ess-eval-region'." - (interactive "P") - (let ((beg-end (ignore-errors (ess-eval-function vis 'no-error)))) ;; ignore-errors is a hack, ess-eval-function gives stupid errors sometimes - (if (null beg-end) ; not a function - (ess-eval-paragraph-and-step vis) - (goto-char (cadr beg-end)) - (if ess-eval-empty - (forward-line 1) - (ess-next-code-line 1))))) - -(defun ess-eval-region-or-function-or-paragraph (vis) - "Send the region, function, or paragraph depending on context. -Send the region if it is active. If not, send function if `point' -is inside one, otherwise the current paragraph. Treats -rectangular regions as `ess-eval-region' does. Prefix arg VIS -toggles visibility of ess-code as for `ess-eval-region'." - (interactive "P") - (if (use-region-p) - (ess-eval-region (region-beginning) (region-end) vis) - (ess-eval-function-or-paragraph vis))) - -(defun ess-eval-region-or-function-or-paragraph-and-step (vis) - "Send the region, function, or paragraph depending on context. -Send the region if it is active. If not, send function if `point' -is inside one, otherwise the current paragraph. Treats -rectangular regions as `ess-eval-region' does. After evaluation -step to the next code line or to the end of region if region was -active. Prefix arg VIS toggles visibility of ess-code as for -`ess-eval-region'." - (interactive "P") - (if (use-region-p) - (let ((end (region-end))) - (ess-eval-region (region-beginning) end vis) - (goto-char end)) - (ess-eval-function-or-paragraph-and-step vis))) - -(defun ess-eval-region-or-line-and-step (&optional vis) - "Evaluate region if active, otherwise the current line and step. -Prefix arg VIS toggles visibility of ess-code when evaluating the -region (as for `ess-eval-region') and has no effect for -evaluation of the line. Treats rectangular regions as -`ess-eval-region' does." - (interactive "P") - (if (use-region-p) - (ess-eval-region (region-beginning) (region-end) vis) - (ess-eval-line-and-step))) - -(defun ess-eval-region-or-line-visibly-and-step () - "Evaluate region if active, otherwise the current line and step. -Evaluation is done visibly. - -Note that when inside a package and namespaced evaluation is in -place (see `ess-r-set-evaluation-env') evaluation of multiline -input will fail." - (interactive) - (ess-force-buffer-current) - (ess-show-buffer (ess-get-process-buffer)) - (let ((ess-eval-visibly t)) - (ess-eval-region-or-line-and-step))) - -(defun ess-eval-line (&optional vis) - "Send the current line to the inferior ESS process. -VIS has same meaning as for `ess-eval-region'." - (interactive "P") - (let* ((beg (point-at-bol)) - (end (point-at-eol)) - (msg (format "Loading line: %s" (buffer-substring beg end)))) - (ess-eval-region beg end vis msg))) - -(defun ess-eval-line-and-step (&optional vis) - "Evaluate the current line and step to the \"next\" line." - (interactive "P") - (ess-eval-line vis) - (ess-next-code-line 1)) - -(defun ess-eval-line-visibly-and-step (&optional simple-next even-empty) - "Evaluate the current line visibly and step to the \"next\" line. -If SIMPLE-NEXT is non-nil, possibly via prefix arg, first skip -empty and commented lines. If 2nd arg EVEN-EMPTY [prefix as -well], also send empty lines. When the variable `ess-eval-empty' -is non-nil both SIMPLE-NEXT and EVEN-EMPTY are interpreted as -true. - -Note that when inside a package and namespaced evaluation is in -place (see `ess-r-set-evaluation-env') evaluation of multiline -input will fail." - (interactive "P\nP"); prefix sets BOTH! - (ess-force-buffer-current) - (ess-show-buffer (ess-get-process-buffer)) - (let ((ess-eval-visibly t)) - (ess-eval-line)) - (if (or simple-next ess-eval-empty even-empty) - (forward-line 1) - (ess-next-code-line 1))) - -(defun ess-eval-line-invisibly-and-step () - "Evaluate the current line invisibly and step to the next line. -Evaluate all comments and empty lines." - (interactive) - (let ((ess-eval-visibly nil)) - (ess-eval-line-and-step))) -(define-obsolete-function-alias 'ess-eval-line-and-step-invisibly 'ess-eval-line-invisibly-and-step "18.10") - -(defun ess-next-code-line (&optional arg skip-to-eob) - "Move ARG lines of code forward (backward if ARG is negative). -Skips past all empty and comment lines. Default for ARG is 1. -Don't skip the last empty and comment lines in the buffer unless -SKIP-TO-EOB is non-nil. On success, return 0. Otherwise, go as -far as possible and return -1." - (interactive "p") - (or arg (setq arg 1)) - (beginning-of-line) - (let ((pos (point)) - (n 0) - (inc (if (> arg 0) 1 -1))) - (while (and (/= arg 0) (= n 0)) - (setq n (forward-line inc)); n=0 is success - (if (not (fboundp 'comment-beginning)) - (while (and (= n 0) - (looking-at "\\s-*\\($\\|\\s<\\)")) - (setq n (forward-line inc))) - (comment-beginning) - (beginning-of-line) - (forward-comment (* inc (buffer-size))) ;; as suggested in info file - ) - (if (or skip-to-eob - (not (looking-at ess-no-skip-regexp))) ;; don't go to eob or whatever - (setq arg (- arg inc)) - (goto-char pos) - (setq arg 0) - (forward-line 1));; stop at next empty line - (setq pos (point))) - (goto-char pos) - n)) - - -;;;*;;; Evaluate and switch to S - -(defun ess-eval-region-and-go (start end vis) - "Send region from START to END to the inferior process buffer. -START and END default to the current region, and rectangular -regions are treated as `ess-eval-region'. VIS has same meaning as -for `ess-eval-region'." - (interactive "r\nP") - (ess-eval-region start end vis) - (ess-switch-to-ESS t)) - -(defun ess-eval-buffer-and-go (vis) - "Send the current buffer to the inferior S and switch to the process buffer. -VIS has same meaning as for `ess-eval-region'." - (interactive "P") - (ess-eval-buffer vis) - (ess-switch-to-ESS t)) - -(defun ess-eval-function-and-go (vis) - "Send the current function, then switch to the inferior process buffer. -VIS has same meaning as for `ess-eval-region'." - (interactive "P") - (ess-eval-function vis) - (ess-switch-to-ESS t)) - -(defun ess-eval-line-and-go (vis) - "Send the current line, then switch to the inferior process buffer. -VIS has same meaning as for `ess-eval-region'." - (interactive "P") - (ess-eval-line vis) - (ess-switch-to-ESS t)) - -(defun ess-eval-paragraph-and-go (vis) - "Send the current paragraph, then switch to the inferior process buffer. -VIS has same meaning as for `ess-eval-region'." - (interactive "P") - (ess-eval-paragraph vis) - (ess-switch-to-ESS t)) - -(defun ess-eval-paragraph-and-step (vis) - "Evaluate the current paragraph and move point to the next line. -If not inside a paragraph, evaluate the next one. VIS has same -meaning as for `ess-eval-region'." - (interactive "P") - (let ((beg-end (ess-eval-paragraph vis))) - (goto-char (cadr beg-end)) - (if ess-eval-empty - (forward-line 1) - (ess-next-code-line 1)))) - - ; Inferior S mode -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;;; In this section: -;;;; -;;;; * The major mode inferior-ess-mode -;;;; * Process handling code -;;;; * Completion code -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;;*;; Major mode definition - -(defvar inferior-ess-mode-map - (let ((map (make-sparse-keymap))) - (set-keymap-parent map comint-mode-map) - (define-key map "\C-y" 'ess-yank) - (define-key map "\r" 'inferior-ess-send-input) - (define-key map "\C-a" 'comint-bol) - ;; 2010-06-03 SJE - ;; disabled this in favour of ess-dirs. Martin was not sure why this - ;; key was defined anyway in this mode. - ;;(define-key map "\M-\r" 'ess-transcript-send-command-and-move) - (define-key map "\C-c\M-l" 'ess-load-file);; no longer overwrites C-c C-l; - ;; but for now the user deserves a message: - (define-key map "\C-c\C-l" 'ess-msg-and-comint-dynamic-list-input-ring) - (define-key map "\C-c`" 'ess-show-traceback) - (define-key map [(control ?c) ?~] 'ess-show-call-stack) - (define-key map "\C-c\C-d" 'ess-dump-object-into-edit-buffer) - (define-key map "\C-c\C-v" 'ess-display-help-on-object) - (define-key map "\C-c\C-q" 'ess-quit) - (define-key map "\C-c\C-s" 'ess-execute-search) - (define-key map "\C-c\C-x" 'ess-execute-objects) - (define-key map "\C-c\034" 'ess-abort) ; \C-c\C-backslash - (define-key map "\C-c\C-z" 'ess-switch-to-inferior-or-script-buffer) ; mask comint map - (define-key map "\C-d" 'delete-char) ; EOF no good in S - (define-key map "\t" 'completion-at-point) - (define-key map "\C-c\t" 'ess-complete-object-name-deprecated) - (define-key map "\M-?" 'ess-list-object-completions) - (define-key map "\C-c\C-k" 'ess-request-a-process) - (define-key map "," 'ess-smart-comma) - (define-key map (kbd "C-c C-=") 'ess-cycle-assign) - (define-key map "\C-c\C-d" 'ess-doc-map) - (define-key map "\C-c\C-e" 'ess-extra-map) - (define-key map "\C-c\C-t" 'ess-dev-map) - (with-no-warnings ; Obsolete key variable - (when ess-smart-S-assign-key - (define-key map ess-smart-S-assign-key 'ess-smart-S-assign))) - map) - "Keymap for `inferior-ess' mode.") - -(easy-menu-define - inferior-ess-mode-menu inferior-ess-mode-map - "Menu for use in Inferior S mode" - '("iESS" - ["What is this? (beta)" ess-mouse-me t] - ["Quit" ess-quit t] - ;; ["Send and move" ess-transcript-send-command-and-move t] - ["Copy command" comint-copy-old-input t] - ["Send command" inferior-ess-send-input t] - ["Switch to Script Buffer" ess-switch-to-inferior-or-script-buffer t] - ["Get help on S object" ess-display-help-on-object t] - "------" - ("Process" - ["Process Echoes" (lambda () (interactive) - (setq comint-process-echoes (not comint-process-echoes))) - :active t - :style toggle - :selected comint-process-echoes] - ("Eval visibly " - :filter ess--generate-eval-visibly-submenu )) - "------" - ("Utils" - ;; need a toggle switch for above, AJR. - ["Attach directory" ess-execute-attach t] - ["Display object list" ess-execute-objects t] - ["Display search list" ess-execute-search t] - ["Edit S Object" ess-dump-object-into-edit-buffer t] - ["Enter S command" ess-execute t] - ["Jump to Error" ess-parse-errors t] - ["Load source file" ess-load-file t] - ["Resynch S completions" ess-resynch t] - ;; ["Recreate R and S versions known to ESS" (ess-r-s-versions-creation+menu) t] - ) - "------" - ("start-dev" :visible nil); <-- ?? - ("end-dev" :visible nil) - "------" - ("Font Lock" - :active inferior-ess-font-lock-keywords - :filter ess--generate-font-lock-submenu) - "------" - ["Describe" describe-mode t] - ["Send bug report" ess-submit-bug-report t] - ["About" (ess-goto-info "Entering Commands") t] - )) - - -(defvar ess-mode-minibuffer-map - (let ((map (make-sparse-keymap))) - (set-keymap-parent map minibuffer-local-map) - (define-key map "\t" 'ess-complete-object-name) - (define-key map "\C-\M-i" 'ess-complete-object-name) ;; doesn't work:( - (define-key map "\C-c\C-s" 'ess-execute-search) - (define-key map "\C-c\C-x" 'ess-execute-objects) - map) - "Keymap used in `ess-execute'.") - -;;;###autoload -(defun inferior-ess-mode () - "Major mode for interacting with an inferior ESS process. -Runs an S interactive job as a subprocess of Emacs, with I/O through an -Emacs buffer. Variable `inferior-ess-program' controls which S -is run. - -Commands are sent to the ESS process by typing them, and pressing -\\[inferior-ess-send-input]. Pressing \\[complete-dynamic-complete] -completes known object names or filenames, as appropriate. Other -keybindings for this mode are: - -\\{inferior-ess-mode-map} - -When editing S objects, the use of \\[ess-load-file] is advocated. -`ess-load-file' keeps source files (if `ess-keep-dump-files' is non-nil) in -the directory specified by `ess-source-directory', with the -filename chosen according to `ess-dump-filename-template'. When a file is -loaded, `ess-mode' parses error messages and jumps to the appropriate file -if errors occur. The ess-eval- commands do not do this. - -Customization: Entry to this mode runs the hooks on `comint-mode-hook' and -`inferior-ess-mode-hook' (in that order). - -You can send text to the inferior ESS process from other buffers -containing source code. The key bindings of these commands can be -found by typing \\[describe-mode]. - - `ess-eval-region' sends the current region to the ESS process. - `ess-eval-buffer' sends the current buffer to the ESS process. - `ess-eval-function' sends the current function to the ESS process. - `ess-eval-line' sends the current line to the ESS process. - `ess-beginning-of-function' and `ess-end-of-function' move the point to - the beginning and end of the current S function. - `ess-switch-to-ESS' switches the current buffer to the ESS process buffer. - `ess-switch-to-end-of-ESS' switches the current buffer to the ESS process - buffer and puts point at the end of it. - - `ess-eval-region-and-go', `ess-eval-buffer-and-go', - `ess-eval-function-and-go', and `ess-eval-line-and-go' switch to the S - process buffer after sending their text. - `ess-dump-object-into-edit-buffer' moves an S object into a temporary file - and buffer for editing - `ess-load-file' sources a file of commands to the ESS process. - -Commands: -Return after the end of the process' output sends the text from the - end of process to point. -Return before the end of the process' output copies the sexp ending at point - to the end of the process' output, and sends it. -Delete converts tabs to spaces as it moves back. -C-M-q does Tab on each line starting within following expression. -Paragraphs are separated only by blank lines. Crosshatches start comments. -If you accidentally suspend your process, use \\[comint-continue-subjob] -to continue it." - (interactive) - (delay-mode-hooks - (comint-mode)) - (set (make-local-variable 'comint-input-sender) 'inferior-ess-input-sender) - (set (make-local-variable 'process-connection-type) t) - ;; initialize all custom vars: - (ess-setq-vars-local ess-customize-alist) ; (current-buffer)) - - ;; If comint-process-echoes is t inferior-ess-input-sender - ;; recopies the input, otherwise not. VS[03-09-2012]: should be in customize-alist - (set (make-local-variable 'comint-process-echoes) - (not (member ess-language '("SAS" "XLS" "OMG" "julia")))) ;; these don't echo - - (when (and (member ess-dialect '("R")) ;; S+ echoes!! - (not (eq ess-eval-visibly t))) - ;; when 'nowait or nil, don't wait for process - (setq comint-process-echoes nil)) - - (when comint-use-prompt-regexp ;; why comint is not setting this? bug? - (set (make-local-variable 'inhibit-field-text-motion) t)) - - (unless inferior-ess-prompt ;; build when unset - (setq inferior-ess-prompt - (concat "\\(" - inferior-ess-primary-prompt - (when inferior-ess-secondary-prompt "\\|") - inferior-ess-secondary-prompt - "\\)"))) - (setq comint-prompt-regexp (concat "^" inferior-ess-prompt)) - (setq comint-get-old-input 'inferior-ess-get-old-input) ;; todo: this is R specific - (add-hook 'comint-input-filter-functions 'ess-search-path-tracker nil 'local) ;; R and S specific - - (setq major-mode 'inferior-ess-mode) - (setq mode-name "iESS") ;(concat "iESS:" ess-dialect)) - (setq mode-line-process - '(" [" - ess--mode-line-process-indicator - ess--local-mode-line-process-indicator - "]: %s")) - (use-local-map inferior-ess-mode-map) - (let ((inf-syntax-table (or inferior-ess-mode-syntax-table - ess-mode-syntax-table))) - (when inf-syntax-table - (set-syntax-table inf-syntax-table))) - - (ess-write-to-dribble-buffer - (format "(i-ess 1): buf=%s, lang=%s, comint..echo=%s, comint..sender=%s,\n" - (current-buffer) ess-language - comint-process-echoes comint-input-sender)) - - (when (string= ess-language "S") ;; todo: what is this doing here? - (local-set-key "\M-\r" 'ess-dirs)) - - ;; SJE 2007-06-28: Emacs 22.1 has a bug in that comint-mode will set - ;; this variable to t, when we need it to be nil. The Emacs 22 - ;; solution to this bug is to use define-derived-mode to derive - ;; inferior-ess-mode from comint-mode. Not sure if we can go down - ;; that route yet. I've used the when condition so that if the var - ;; is nil, don't bother setting it -- as setting it will make a new - ;; local var. - (when font-lock-keywords-only - (setq font-lock-keywords-only nil)) - - ;;; Completion support ---------------- - (remove-hook 'completion-at-point-functions 'comint-completion-at-point t) ;; reset the hook - (add-hook 'completion-at-point-functions 'comint-c-a-p-replace-by-expanded-history nil 'local) - (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local) - ;; (setq comint-completion-addsuffix nil) ; To avoid spaces after filenames - ;; KH: next 2 lines solve. - (set (make-local-variable 'comint-completion-addsuffix) - (cons "/" "")) - (setq comint-input-autoexpand t) ; Only for completion, not on input. - ;; timers - ;; (add-hook 'ess-idle-timer-functions 'ess-cache-search-list nil 'local) - ;; (add-hook 'ess-idle-timer-functions 'ess-synchronize-dirs nil 'local) - ;;; Keep out of the code. - (set (make-local-variable 'indent-tabs-mode) nil) - (set (make-local-variable 'paragraph-start) - (concat inferior-ess-primary-prompt "\\|\^L")) - (set (make-local-variable 'paragraph-separate) "\^L") - (if (featurep 'jit-lock) - (setq-local jit-lock-chunk-size inferior-ess-jit-lock-chunk-size)) - (make-local-variable 'kill-buffer-hook) - (add-hook 'kill-buffer-hook 'ess-kill-buffer-function) - (run-mode-hooks 'inferior-ess-mode-hook) - (ess-write-to-dribble-buffer - (format "(i-ess end): buf=%s, lang=%s, comint..echo=%s, comint..sender=%s,\n" - (current-buffer) ess-language - comint-process-echoes comint-input-sender)) - (message - (concat (substitute-command-keys - "Type \\[describe-mode] for help on ESS version ") - ess-version))) - - -;;*;; Commands used exclusively in inferior-ess-mode - -;;;*;;; Main user commands - -(defun inferior-ess-input-sender (proc string) - (inferior-ess--interrupt-subjob-maybe proc) - (let ((comint-input-filter-functions nil)) ; comint runs them, don't run twise. - (if comint-process-echoes - (ess-eval-linewise string nil nil ess-eval-empty) - (ess-send-string proc string)))) - -(defvar ess-help-arg-regexp "\\(['\"]?\\)\\([^,=)'\"]*\\)\\1" - "Reg(ular) Ex(pression) of help(.) arguments. MUST: 2nd \\(.\\) = arg.") - -(defun inferior-ess-send-input () - "Sends the command on the current line to the ESS process." - (interactive) - (run-hooks 'ess-send-input-hook) - (unless (ess-process-get 'busy) - ;; avoid new line insertion - (ess-process-put 'prev-prompt nil)) - (comint-send-input) - (setq ess-object-list nil)) - -(defun inferior-ess--goto-input-start:field () - "Move point to the begining of input skiping all continuation lines. -If in the output field, goes to the begining of previous input -field. -Note: `inferior-ess-secondary-prompt' should match exactly." - (goto-char (field-beginning)) - ;; move to the begining of non-output field - (while (and (not (= (point) (point-min))) - (eq (field-at-pos (point)) 'output)) - (goto-char (field-beginning nil t))) - ;; skip all secondary prompts - (let ((pos (field-beginning (point) t)) - (secondary-prompt (concat "^" inferior-ess-secondary-prompt))) - (while (and pos - (if (eq (get-text-property pos 'field) 'output) - (string-match secondary-prompt (field-string-no-properties pos)) - t)) - (goto-char pos) - (setq pos (previous-single-property-change pos 'field))))) - -(defun inferior-ess--goto-input-end:field () - "Move point to the end of input skiping all continuation lines. -If in the output field, goes to the begining of previous input -field. NOTE: to be used only with fields, see -`comint-use-prompt-regexp'." - ;; this func is not used but might be useful some day - (goto-char (field-end)) - (let ((pos (point)) - (secondary-prompt (concat "^" inferior-ess-secondary-prompt))) - (while (and pos - (if (eq (get-text-property pos 'field) 'output) - (string-match secondary-prompt (field-string-no-properties pos)) - t)) - (goto-char pos) - (setq pos (next-single-property-change pos 'field))))) - -(defun inferior-ess--get-old-input:field () - "Return the ESS command surrounding point (use with fields)." - (save-excursion - (if (eq (field-at-pos (point)) 'output) - (if (called-interactively-p 'any) - (error "No command on this line") - ;; else, just return "" - "") - (inferior-ess--goto-input-start:field) - (let ((command (field-string-no-properties (point))) - (pos (next-single-property-change (point) 'field )) - (secondary-prompt (concat "^" inferior-ess-secondary-prompt))) - (while (and pos - (cond - ((eq (get-text-property pos 'field) 'input) - (setq command (concat command "\n" (field-string-no-properties pos)))) - ((eq (get-text-property pos 'field) 'output) - (string-match secondary-prompt (field-string-no-properties pos))) - (t)));; just skip if unknown - (setq pos (next-single-property-change pos 'field))) - command)))) - -;; todo: error when entering a multiline function -;; check.integer <- function(N){ -;; is.integer(N) | !length(grep("[^[:digit:]]", as.character(N))) -;; } -(defun inferior-ess--goto-input-start:regexp () - "Move point to the begining of input skiping all continuation lines. -If in the output field, goes to the begining of previous input." - (beginning-of-line) - (unless (looking-at inferior-ess-prompt) - (re-search-backward (concat "^" inferior-ess-prompt) nil t)) - ;; at bol - (when (and inferior-ess-secondary-prompt - (looking-at inferior-ess-secondary-prompt)) - (while (and (> (forward-line -1) -1) - (looking-at inferior-ess-secondary-prompt)))) - (unless (looking-at inferior-ess-prompt) - (error "Beggining of input not found")) - (comint-skip-prompt)) - -(defun inferior-ess--get-old-input:regexp () - "Return the ESS command surrounding point (use regexp)." - ;;VS[03-09-2012]: This should not rise errors!! Troubles comint-interrupt-subjob - (save-excursion - (let* ((inhibit-field-text-motion t) - command) - (beginning-of-line) - (when (and inferior-ess-secondary-prompt - (looking-at inferior-ess-secondary-prompt)) - (inferior-ess--goto-input-start:regexp)) - (beginning-of-line) - (if (looking-at inferior-ess-prompt) ; cust.var, might not include sec-prompt - (progn - (comint-skip-prompt) - (setq command (buffer-substring-no-properties (point) (point-at-eol))) - (when inferior-ess-secondary-prompt - (while (progn (forward-line 1) - (looking-at inferior-ess-secondary-prompt)) - (re-search-forward inferior-ess-secondary-prompt (point-at-eol) t) - (setq command (concat command "\n" - (buffer-substring-no-properties (point) (point-at-eol)))))) - (forward-line -1) - (setq ess-temp-point (point)) ;; this is ugly, used by transcript - command) - (message "No command at this point") - "")))) - -(defun inferior-ess-get-old-input () - "Return the ESS command surrounding point." - (if comint-use-prompt-regexp - (inferior-ess--get-old-input:regexp) - (inferior-ess--get-old-input:field))) - - -;;;*;;; Hot key commands - -(defun ess-execute-objects (posn) - "Send the objects() command to the ESS process. -By default, gives the objects at position 1. -A prefix argument toggles the meaning of `ess-execute-in-process-buffer'. -A prefix argument of 2 or more means get objects for that position. -A negative prefix argument gets the objects for that position - and toggles `ess-execute-in-process-buffer' as well." - (interactive "P") - (ess-make-buffer-current) - (let* ((num-arg (if (listp posn) - (if posn -1 1) - (prefix-numeric-value posn))) - (the-posn (if (< num-arg 0) (- num-arg) num-arg)) - (invert (< num-arg 0)) - (the-command (format inferior-ess-objects-command the-posn ".*")) - (the-message (concat ">>> Position " - (number-to-string the-posn) - " (" - (nth (1- the-posn) (ess-search-list)) - ")\n"))) - (ess-execute the-command invert "S objects" the-message))) - -(defun ess-execute-search (invert) - "Send the `inferior-ess-search-list-command' command to the `ess-language' process. -[search(..) in S]" - (interactive "P") - (ess-execute inferior-ess-search-list-command invert "S search list")) - -;; FIXME --- this *only* works in S / S-plus; not in R -;; ----- ("at least" is not assigned to any key by default) -(defun ess-execute-attach (dir &optional posn) - "Attach a directory in the `ess-language' process with the attach() command. -When used interactively, user is prompted for DIR to attach and -prefix argument is used for POSN (or 2, if absent.) -Doesn't work for data frames." - (interactive "Attach directory: \nP") - (ess-execute (concat "attach(\"" - (directory-file-name (expand-file-name dir)) - "\"" - (if posn (concat "," (number-to-string - (prefix-numeric-value posn)))) - ")") 'buffer) - (ess-process-put 'sp-for-help-changed? t)) - -(defun ess-execute-screen-options (&optional invisibly) - "Cause S to set the \"width\" option to 1 less than the window width. -Also sets the \"length\" option to 99999. When INVISIBLY is -non-nil, don't echo to R subprocess. This is a good thing to put -in `ess-r-post-run-hook' or `ess-S+-post-run-hook'." - (interactive) - (if (null ess-execute-screen-options-command) - (message "Not implemented for '%s'" ess-dialect) - ;; We cannot use (window-width) here because it returns sizes in default - ;; (frame) characters which leads to incorrect sizes with scaled fonts.To - ;; solve this we approximate font width in pixels and use window-pixel-width - ;; to compute the approximate number of characters that fit into line. - (let* ((wedges (window-inside-pixel-edges)) - (wwidth (- (nth 2 wedges) (nth 0 wedges))) - (nchars (if (fboundp 'default-font-width) - (floor (/ wwidth (default-font-width))) - ;; emacs 24 - (if (display-graphic-p) - (let* ((r (/ (float (frame-char-height)) (frame-char-width))) - (charh (aref (font-info (face-font 'default)) 3)) - (charw (/ charh r))) - (- (floor (/ wwidth charw)) 1)) - ;; e.g., no X11 as in 'emacs -nw' - (- (window-width) 2)))) - (command (format ess-execute-screen-options-command nchars))) - (if invisibly - (ess-command command) - (ess-eval-linewise command nil nil nil 'wait-prompt))))) - -(defun ess-execute (command &optional invert buff message) - "Send a command to the ESS process. -A newline is automatically added to COMMAND. Prefix arg (or second arg -INVERT) means invert the meaning of -`ess-execute-in-process-buffer'. If INVERT is 'buffer, output is -forced to go to the process buffer. If the output is going to a -buffer, name it *BUFF*. This buffer is erased before use. Optional -fourth arg MESSAGE is text to print at the top of the buffer (defaults -to the command if BUFF is not given.)" - (interactive (list - ;; simpler way to set proc name in mb? - (let ((enable-recursive-minibuffers t) - (proc-name (progn (ess-force-buffer-current) - ess-local-process-name))) - (with-current-buffer (get-buffer " *Minibuf-1*") ;; fixme: hardcoded name - (setq ess-local-process-name proc-name)) - (read-from-minibuffer "Execute> " nil - ess-mode-minibuffer-map)) - current-prefix-arg)) - (ess-make-buffer-current) - (let ((the-command (concat command "\n")) - (buff-name (concat "*" (or buff "ess-output") "*")) - (in-pbuff (if invert (or (eq invert 'buffer) - (not ess-execute-in-process-buffer)) - ess-execute-in-process-buffer))) - (if in-pbuff - (ess-eval-linewise the-command) - (let ((buff (ess-create-temp-buffer buff-name))) - (ess-command the-command buff);; sleep? - (with-current-buffer buff - (goto-char (point-min)) - (if message (insert message) - (if buff nil - ;; Print the command in the buffer if it has not been - ;; given a special name - (insert "> " the-command))) - (setq ess-local-process-name ess-current-process-name)) - (ess-display-temp-buffer buff))))) - - -;;;*;;; Quitting - -(ess-defgeneric ess-quit (&rest args) - "Issue an exiting command to the inferior process, additionally -also running \\[ess-cleanup]." - (interactive) - (ess-force-buffer-current "Process to quit: " nil 'no-autostart) - (ess-interrupt) - (ess-make-buffer-current) - (:override - (let ((proc (ess-get-process))) - (ess-cleanup) - (goto-char (marker-position (process-mark proc))) - (insert inferior-ess-exit-command) - (process-send-string proc inferior-ess-exit-command)))) - -(defun ess-interrupt () - "Interrupt the inferior process. -This sends an interrupt and quits a debugging session." - (interactive) - (inferior-ess-force) - (let ((proc (ess-get-process))) - ;; Interrupt current task before reloading. Useful if the process is - ;; prompting for input, for instance in R in case of a crash - (interrupt-process proc comint-ptyp) - ;; Workaround for Windows terminals - (unless (memq system-type '(gnu/linux darwin)) - (process-send-string nil "\n")) - (ess-wait-for-process proc) - ;; Quit debugging session before reloading - (when (ess-debug-active-p) - (ess-debug-command-quit) - (ess-wait-for-process proc)))) - -(defun ess-abort () - "Kill the ESS process, without executing .Last or terminating devices. -If you want to finish your session, use \\[ess-quit] instead." -;;; Provided as a safety measure over the default binding of C-c C-z in -;;; comint-mode-map. - (interactive) - (ding) - (message "WARNING: \\[inferior-ess-exit-command] will not be executed and graphics devices won't finish properly!") - (sit-for 2) - (if (y-or-n-p "Still abort? ") - (comint-quit-subjob) - (message "Good move."))) - -(defun ess-cleanup () - "Possibly kill or offer to kill, depending on the value of -`ess-S-quit-kill-buffers-p', all buffers associated with this ESS process. -Leaves you in the ESS process buffer. It's a good idea to run this -before you quit. It is run automatically by \\[ess-quit]." - (interactive) - (let ((the-procname (or (ess-make-buffer-current) ess-local-process-name))) - (unless the-procname - (error "I don't know which ESS process to clean up after!")) - (when - (or (eq ess-S-quit-kill-buffers-p t) - (and - (eq ess-S-quit-kill-buffers-p 'ask) - (y-or-n-p - (format - "Delete all buffers associated with process %s? " the-procname)))) - (dolist (buf (buffer-list)) - (with-current-buffer buf - ;; Consider buffers for which ess-local-process-name is - ;; the same as the-procname - (when (and (not (get-buffer-process buf)) - ess-local-process-name - (equal ess-local-process-name the-procname)) - (kill-buffer buf))))) - (ess-switch-to-ESS nil))) - -(ess-defgeneric inferior-ess-reload (&optional start-args) - "Reload the inferior process." - (interactive) - (inferior-ess-force) - ;; Interrupt early so we can get working directory - (ess-interrupt) - (save-window-excursion - ;; Make sure we don't ask for directory again - ;; Use current working directory as default - (let ((project-find-functions nil) - (ess-directory-function nil) - (ess-startup-directory (ess-get-working-directory)) - (ess-ask-for-ess-directory nil)) - (ess-quit 'no-save) - (inferior-ess--wait-for-exit (ess-get-process)) - (:override - (error "Unimplemented for this dialect"))))) - -(defun inferior-ess--wait-for-exit (proc) - "Wait for process exit. -This should be used instead of `ess-wait-for-process' for waiting -after issuing a quit command as the latter assumes a live process." - (let ((start-time (float-time))) - (while (eq (process-status proc) 'run) - (accept-process-output proc 0.002) - (when (> (- (float-time) start-time) 1) - (error "Timeout while quitting process"))))) - -(defun ess-kill-buffer-function () - "Function run just before an ESS process buffer is killed." - ;; This simply deletes the buffers process to avoid an Emacs bug - ;; where the sentinel is run *after* the buffer is deleted - (let ((proc (get-buffer-process (current-buffer)))) - (if (processp proc) (delete-process proc)))) - - -;;;*;;; Support functions - -(defun ess-extract-onames-from-alist (alist posn &optional force) - "Return the object names in position POSN of ALIST. -ALIST is an alist like `ess-sl-modtime-alist'. POSN should be in 1 .. (length -ALIST). If optional third arg FORCE is t, the corresponding element -of the search list is re-read. Otherwise it is only re-read if it's a -directory and has been modified since it was last read." - (let* ((entry (nth (1- posn) alist)) - (dir (car entry)) - (timestamp (car (cdr entry))) - (new-modtime (and timestamp - (ess-dir-modtime dir)))) - ;; Refresh the object listing if necessary - (if (or force (not (equal new-modtime timestamp))) - (setcdr (cdr entry) (ess-object-names dir posn))) - (cdr (cdr entry)))) - -(defun ess-dir-modtime (dir) - "Return the last modtime if DIR is a directory, and nil otherwise." - (and ess-filenames-map - (file-directory-p dir) - (nth 5 (file-attributes dir)))) - -(defun ess-object-modtime (object) - "Return the modtime of the S object OBJECT (a string). -Searches along the search list for a file named OBJECT and returns its modtime -Returns nil if that file cannot be found, i.e., for R or any non-S language!" - (let ((path (ess-search-list)) - result) - (while (and (not result) path) - (setq result (file-attributes - (concat (file-name-as-directory (car path)) - object))) - (setq path (cdr path))) - (nth 5 result))) - -(defun ess-modtime-gt (mod1 mod2) - "Return t if MOD1 is later than MOD2." - (and mod1 - (or (> (car mod1) (car mod2)) - (and (= (car mod1) (car mod2)) - (> (car (cdr mod1)) (car (cdr mod2))))))) - -(defun ess-get-object-list (name &optional exclude-first) - "Return a list of current S object names associated with process NAME, -using `ess-object-list' if that is non-nil. -If exclude-first is non-nil, don't return objects in first positon (.GlobalEnv)." - (or ess-object-list ;; <<- MM: this is now always(?) nil; we cache the *-modtime-alist - (with-current-buffer (process-buffer (ess-get-process name)) - (ess-make-buffer-current) - (ess-write-to-dribble-buffer (format "(get-object-list %s) .." name)) - (if (or (not ess-sl-modtime-alist) - (ess-process-get 'sp-for-help-changed?)) - (progn (ess-write-to-dribble-buffer "--> (ess-get-modtime-list)\n") - (ess-get-modtime-list)) - ;;else - (ess-write-to-dribble-buffer " using existing ess-sl-modtime-alist\n")) - (let* ((alist ess-sl-modtime-alist) - (i 2) - (n (length alist)) - result) - (ess-write-to-dribble-buffer (format " (length alist) : %d\n" n)) - (unless exclude-first - ;; re-read of position 1 : - (setq result (ess-extract-onames-from-alist alist 1 'force))) - (ess-write-to-dribble-buffer - (format " have re-read pos=1: -> length %d\n" (length result))) - ;; Re-read remaining directories if necessary. - (while (<= i n) - (setq result - (append result - (ess-extract-onames-from-alist alist i))) - (setq i (1+ i))) - (setq ess-object-list (ess-uniq-list result)))))) - -(defun ess-get-words-from-vector (command &optional no-prompt-check wait proc) - "Evaluate the S command COMMAND, which returns a character vector. -Return the elements of the result of COMMAND as an alist of -strings. COMMAND should have a terminating newline. -NO-PROMPT-CHECK, WAIT, and PROC are passed to `ess-command'. -FILTER may be the keyword 'non-... or nil. To avoid truncation of -long vectors, wrap your command (%s) like this, or a version with -explicit options(max.print=1e6): \"local({ out <- try({%s}); -print(out, max=1e6) })\n\"." - (unless proc - (inferior-ess-force)) - (let* ((tbuffer (get-buffer-create - " *ess-get-words*")); initial space: disable-undo - (word-RE - (concat "\\(" - "\\\\\\\"" "\\|" "[^\"]" ; \" or non-"-char - "\\)*")) - (full-word-regexp - (concat "\"" "\\(" word-RE "\\)" - "\"" - "\\( \\|$\\)"; space or end - )) - words) - (ess-if-verbose-write - (format "(ess-get-words-* command=%s full-word-regexp=%S)\n" - command full-word-regexp)) - (ess-command command tbuffer 'sleep no-prompt-check wait proc) - (ess-if-verbose-write " [ok] ..") - (with-current-buffer tbuffer - (goto-char (point-min)) - (while (re-search-forward full-word-regexp nil t) - (setq words (cons (buffer-substring (match-beginning 1) (match-end 1)) - words)))) - (ess-if-verbose-write - (if (> (length words) 5) - (format " |-> (length words)= %d\n" (length words)) - (format " |-> words= '%s'\n" words))) - (reverse words))) - -(defun ess-compiled-dir (dir) - "Return non-nil if DIR is an S object directory with special files. -I.e. if the filenames in DIR are not representative of the objects in DIR." - (or (file-exists-p (concat (file-name-as-directory dir) "___nonfile")) - (file-exists-p (concat (file-name-as-directory dir) "__BIGIN")) - (file-exists-p (concat (file-name-as-directory dir) "___NONFI")))) - -(defun ess-object-names (obj &optional pos) - "Return alist of S object names in directory (or object) OBJ. -If OBJ is a directory name (begins with `/') returns a listing of -that dir. This may use the search list position POS if necessary. -If OBJ is an object name, returns result of the command -`inferior-ess-safe-names-command'. If POS is supplied return the -result of the command in `inferior-ess-objects-command'. If OBJ -is nil or not a directory, POS must be supplied. In all cases, -the value is an list of object names." - (cond ((and (stringp obj) - (string-match-p "ESSR" obj)) - nil) - ;; FIXME: in both cases below, the same fallback "objects(POS)" is used -- merge! - ((and obj (file-accessible-directory-p obj)) - ;; Check the pre-compiled object list in ess-object-name-db first - - ;; FIXME: If used at all, ess-object-name-db should not only - ;; ----- be used in the directory case !! - (or (cdr-safe (assoc obj ess-object-name-db)) - ;; Take a directory listing - (and ess-filenames-map - ;; first try .Data subdirectory: - ;;FIXME: move ".Data" or ``this function'' to ess-sp6-d.el etc: - (let ((dir (concat (file-name-as-directory obj) ".Data"))) - (if (not (file-accessible-directory-p dir)) - (setq dir obj)) - (and (not (ess-compiled-dir dir)) - (directory-files dir)))) - ;; Get objects(pos) instead - (and (or (ess-write-to-dribble-buffer - (format "(ess-object-names ..): directory %s not used\n" obj)) - t) - pos - (ess-get-words-from-vector - (format inferior-ess-objects-command pos))))) - ((and obj ;; want names(obj) - (ess-get-words-from-vector - (format inferior-ess-safe-names-command obj)))) - (pos - (ess-get-words-from-vector - (format inferior-ess-objects-command pos))))) - -(defun ess-slot-names (obj) - "Return alist of S4 slot names of S4 object OBJ." - (ess-get-words-from-vector (format "slotNames(%s)\n" obj))) - -(defun ess-function-arguments (funname &optional proc) - "Get FUNARGS from cache or ask the process for it. -Return FUNARGS - a list with the first element being a -cons (PACKAGE_NAME . TIME_STAMP), second element is a string -giving arguments of the function as they appear in documentation, -third element is a list of arguments of all methods. If PROC is -given, it should be an ESS process. If PACKAGE_NAME is nil, and -TIME_STAMP is less recent than the time of the last user -interaction to the process, then update the entry. PACKAGE_NAME -is also nil when FUNNAME was not found, or FUNNAME is a special -name that contains :,$ or @." - (when (and funname ;; usually returned by ess--fn-name-start (might be nil) - (or proc (ess-process-live-p))) - (let* ((proc (or proc (get-process ess-local-process-name))) - (cache (or (process-get proc 'funargs-cache) - (let ((cache (make-hash-table :test 'equal))) - (process-put proc 'funargs-cache cache) - cache))) - (args (gethash funname cache)) - (pack (caar args)) - (ts (cdar args))) - (when (and args - (and (time-less-p ts (process-get proc 'last-eval)) - (or (null pack) - (equal pack "")))) - ;; reset cache - (setq args nil)) - (or args - (cadr (assoc funname (process-get proc 'funargs-pre-cache))) - (and - (not (process-get proc 'busy)) - (with-current-buffer (ess-command (format ess-funargs-command - (ess-quote-special-chars funname)) - nil nil nil nil proc) - (goto-char (point-min)) - (when (re-search-forward "(list" nil t) - (goto-char (match-beginning 0)) - (setq args (ignore-errors (eval (read (current-buffer))))) - (if args - (setcar args (cons (car args) (current-time))))) - ;; push even if nil - (puthash (substring-no-properties funname) args cache))))))) - -;;; SJE: Wed 29 Dec 2004 --- remove this function. -;;; rmh: Wed 5 Jan 2005 --- bring it back for use on Windows -(defun ess-create-object-name-db () - "Create a database of object names in standard S directories. -This database is saved in the file specified by -`ess-object-name-db-file', and is loaded when `ess-mode' is -loaded. It defines the variable `ess-object-name-db', which is -used for completions. Before you call this function, modify the S -search list so that it contains all the non-changing (i.e. -system) S directories. All positions of the search list except -for position 1 are searched and stored in the database. After -running this command, you should move ess-namedb.el to a -directory in the `load-path'." - (interactive) - (setq ess-object-name-db nil) - (let ((search-list (cdr (ess-search-list))) - (pos 2) - name - (buffer (get-buffer-create " *ess-db*")) - (temp-object-name-db nil) - (temp-object-name-db-file ess-object-name-db-file)) - - (ess-write-to-dribble-buffer - (format "(object db): search-list=%s \n " search-list)) - (while search-list - (message "Searching %s" (car search-list)) - (setq temp-object-name-db (cons (cons (car search-list) - (ess-object-names nil pos)) - temp-object-name-db)) - (setq search-list (cdr search-list)) - (ess-write-to-dribble-buffer - (format "(object db): temp-obj-name-db=%s \n pos=%s" - temp-object-name-db pos)) - (setq pos (1+ pos))) - (with-current-buffer buffer - (erase-buffer) - (insert "(setq ess-object-name-db '") - (prin1 temp-object-name-db (current-buffer)) - (insert ")\n") - (setq name (expand-file-name ess-object-name-db-file)) - (write-region (point-min) (point-max) name) - (message "Wrote %s" name)) - (kill-buffer buffer) - (setq ess-object-name-db temp-object-name-db))) - -(defun ess-resynch nil - "Reread all directories/objects in variable `ess-search-list' to form completions." - (interactive) - (if (ess-make-buffer-current) nil - (error "Not an ESS process buffer")) - (setq ess-sl-modtime-alist nil) - (setq ess-object-list nil) - (setq ess-object-name-db nil) ; perhaps it would be better to reload? - (ess-process-put 'sp-for-help-changed? t) - (ess-get-modtime-list)) - -(defun ess-filename-completion () - ;; > emacs 24 - "Return completion only within string or comment." - (save-restriction ;; explicitely handle inferior-ess - (ignore-errors - (when (and (eq major-mode 'inferior-ess-mode) - (> (point) (process-mark (get-buffer-process (current-buffer))))) - (narrow-to-region (process-mark (get-buffer-process (current-buffer))) - (point-max)))) - (when (ess-inside-string-or-comment-p (point)) - (append (comint-filename-completion) '(:exclusive no))))) - -(defun ess-complete-filename () - "Do file completion only within strings." - (save-restriction ;; explicitely handle inferior-ess - (ignore-errors - (when (and (eq major-mode 'inferior-ess-mode) - (> (point) (process-mark (get-buffer-process (current-buffer))))) - (narrow-to-region (process-mark (get-buffer-process (current-buffer))) - (point-max)))) - (when (or (ess-inside-string-or-comment-p (point))) ;; usable within ess-mode as well - (comint-dynamic-complete-filename)))) - -(defun ess-after-pathname-p nil - ;; Heuristic: after partial pathname if it looks like we're in a - ;; string, and that string looks like a pathname. Not the best for - ;; use with unix() (or it's alias, !). Oh well. - (save-excursion - (save-match-data - (let ((opoint (point))) - (and (re-search-backward "\\(\"\\|'\\)[~/#$.a-zA-Z0-9][^ \t\n\"']*" - nil t) - (eq opoint (match-end 0))))))) - - -;;*;; Functions handling the search list - -(defun ess-search-list (&optional force-update) - "Return the current search list as a list of strings. -Elements which are apparently directories are expanded to full -dirnames. Don't try to use cache if FORCE-UPDATE is non-nil. Is -*NOT* used by \\[ess-execute-search], but by \\[ess-resynch], -\\[ess-get-object-list], \\[ess-get-modtime-list], -\\[ess-execute-objects], \\[ess-object-modtime], -\\[ess-create-object-name-db], and (indirectly) by -\\[ess-get-help-files-list]." - (with-current-buffer - (ess-get-process-buffer ess-current-process-name);to get *its* local vars - (let ((result nil) - (slist (ess-process-get 'search-list)) - (tramp-mode nil)) ;; hack for bogus file-directory-p below - (if (and slist - (not force-update) - (not (ess-process-get 'sp-for-help-changed?))) - slist - ;; else, re-compute: - (ess-write-to-dribble-buffer " (ess-search-list ... ) ") - (let ((tbuffer (get-buffer-create " *search-list*")) - (homedir default-directory) - (my-search-cmd inferior-ess-search-list-command); from ess-buffer - elt) - (ess-command my-search-cmd tbuffer 0.05); <- sleep for dde only; does (erase-buffer) - (with-current-buffer tbuffer - ;; guaranteed by the initial space in its name: (buffer-disable-undo) - (goto-char (point-min)) - (ess-write-to-dribble-buffer - (format "after '%s', point-max=%d\n" my-search-cmd (point-max))) - (while (re-search-forward "\"\\([^\"]*\\)\"" nil t) - (setq elt (buffer-substring (match-beginning 1) (match-end 1))) - ;;Dbg: (ess-write-to-dribble-buffer (format " .. elt= %s \t" elt)) - (if (and (string-match "^[^/]" elt) - (file-directory-p (concat homedir elt))) - (progn - ;;Dbg: (ess-write-to-dribble-buffer "*IS* directory\n") - (setq elt (concat homedir elt))) - ;;else - ;;dbg - ;;- (ess-write-to-dribble-buffer "not dir.\n") - ) - (setq result (append result (list elt)))) - (kill-buffer tbuffer))) - result)))) - -;;; ess-sl-modtime-alist is a list with elements as follows: -;;; * key (directory or object name) -;;; * modtime (list of 2 integers) -;;; * name, name ... (accessible objects in search list posn labeled by key) -;;; It is a buffer-local variable (belonging to e.g. *R*, *S+6*, .. etc) -;;; and has the same number of elements and is in the same order as the -;;; S search list - -(defun ess-get-modtime-list (&optional cache-var-name exclude-first) - "Record directories in the search list, and the objects in those directories. -The result is stored in CACHE-VAR-NAME. If nil, CACHE-VAR-NAME -defaultst to `ess-sl-modtime-alist'. If EXCLUDE-FIRST is non-nil -don't recompile first object in the search list." - ;; Operation applies to process of current buffer - (let* ((searchlist (if exclude-first - (cdr (ess-search-list)) - (ess-search-list))) - (index (if exclude-first 2 1)) - (cache-name (or cache-var-name 'ess-sl-modtime-alist)) - pack newalist) - (while searchlist - (setq pack (car searchlist)) - (setq newalist - (append - newalist - (list (or (assoc pack (symbol-value cache-name)) - (append - (list pack (ess-dir-modtime pack)) - (prog2 - (message "Forming completions for %s..." pack) - (ess-object-names pack index) - (message "Forming completions for %s...done" pack))))))) - (setq index (1+ index)) - (setq searchlist (cdr searchlist))) - ;;DBG: - (ess-write-to-dribble-buffer - (format "(%s): created new alist of length %d\n" - cache-var-name (length newalist))) - (set cache-name newalist))) - - -(defun ess-search-path-tracker (str) - "Check if input STR changed the search path. -This function monitors user input to the inferior ESS process so -that Emacs can keep the process variable 'search-list' up to -date. `ess-completing-read' in \\[ess-read-object-name] uses this -list indirectly when it prompts for help or for an object to -dump. From ESS 12.09 this is not necessary anymore, as the search -path is checked on idle time. It is kept for robustness and -backward compatibility only." - (when ess-change-sp-regexp - (if (string-match ess-change-sp-regexp str) - (ess-process-put 'sp-for-help-changed? t)))) - - -;;; Miscellaneous routines - -;;;*;;; Routines for reading object names -(ess-defgeneric ess-read-object-name (p-string) - "Read an object name from the minibuffer with completion, and return it. -P-STRING is the prompt string." - (:override - (let* ((default (ess-read-object-name-dump)) - (object-list (ess-get-object-list ess-local-process-name)) - (spec (ess-completing-read p-string object-list nil nil nil nil default))) - (list (cond - ((string= spec "") default) - (t spec)))))) - -(defun ess-read-object-name-default () - "Return the object name at point, or nil if none." - (ignore-errors - (save-excursion - ;; The following line circumvents an 18.57 bug in following-char - (if (eobp) (backward-char 1)) ; Hopefully buffer is not empty! - ;; Get onto a symbol - (catch 'nosym ; bail out if there's no symbol at all before point - (while (let ((sc (char-syntax (following-char)))) - (not (or (= sc ?w) (= sc ?_)))) - (if (bobp) (throw 'nosym nil) (backward-char 1)))) - (let* - ((end (progn (forward-sexp 1) (point))) - (beg (progn (backward-sexp 1) (point)))) - (buffer-substring-no-properties beg end))))) - -(defun ess-read-object-name-dump () - "Return the object name at point, or \"Temporary\" if none." - (ignore-errors - (save-excursion - ;; Get onto a symbol - (catch 'nosym ; bail out if there's no symbol at all before point - (while (/= (char-syntax (following-char)) ?w) - (if (bobp) (throw 'nosym nil) (backward-char 1))) - (let* - ((end (progn (forward-sexp 1) (point))) - (beg (progn (backward-sexp 1) (point))) - (object-name (buffer-substring beg end))) - (or object-name "Temporary")))))) - -;;;; start of ess-smart-operators -;;;; inspired by slime repl shortcuts - -(defvar ess--handy-history nil) - -(defun ess-handy-commands () - "Request and execute a command from `ess-handy-commands' list." - (interactive) - (let* ((commands (or ess--local-handy-commands - ess-handy-commands)) - (hist (and (assoc (car ess--handy-history) - commands) - (car ess--handy-history)))) - (call-interactively - (cdr (assoc (ess-completing-read "Execute" - (sort (mapcar 'car commands) - 'string-lessp) - nil t nil 'ess--handy-history hist) - commands))))) - -(defun ess-smart-comma () - "If comma is invoked at the process marker of an ESS inferior -buffer, request and execute a command from `ess-handy-commands' -list." - (interactive) - (let ((proc (get-buffer-process (current-buffer)))) - (if (and proc - (eq (point) (marker-position (process-mark proc)))) - (ess-handy-commands) - (if ess-smart-operators - (progn - (delete-horizontal-space) - (insert ", ") - (unless (eq major-mode 'inferior-ess-mode) - (indent-according-to-mode))) - (insert ","))))) - - ; directories -(defun ess-set-working-directory (path &optional no-error) - "Set the current working to PATH for the ESS buffer and iESS process. -NO-ERROR prevents errors when this has not been implemented for -`ess-dialect'." - (interactive "DChange working directory to: ") - (if ess-setwd-command - (let* ((remote (file-remote-p path)) - (path (if remote - (progn - (require 'tramp-sh) - (tramp-sh-handle-expand-file-name path)) - path)) - (lpath (if remote - (with-parsed-tramp-file-name path v v-localname) - path))) - (ess-eval-linewise (format ess-setwd-command lpath)) - ;; use set instead of setq to take effect even when let bound - (set 'default-directory (file-name-as-directory path))) - (unless no-error - (error "Not implemented for dialect %s" ess-dialect)))) - -(defalias 'ess-change-directory 'ess-set-working-directory) -(define-obsolete-function-alias - 'ess-use-dir 'ess-set-working-directory "ESS 18.10") - -(defun ess-use-this-dir (&optional no-force-current) - "Set the current process directory to the directory of this file. -`default-directory' is used as a fallback. If that buffer has no -associated *R* process, use \\[ess-force-buffer-current], unless -prefix argument NO-FORCE-CURRENT is non-nil." - (interactive "P") - (let ((dir (if buffer-file-name - (file-name-directory buffer-file-name) - default-directory))) - (ess-set-working-directory (abbreviate-file-name dir)))) - -(defun ess-get-working-directory (&optional no-error) - "Retrive the current working directory from the current ess process." - (if ess-getwd-command - (abbreviate-file-name (car (ess-get-words-from-vector ess-getwd-command))) - (unless no-error - (error "Not implemented for dialect %s" ess-dialect)))) - -(defun ess-synchronize-dirs () - "Set Emacs' current directory to be the same as the subprocess directory. -To be used in `ess-idle-timer-functions'." - (when (and ess-can-eval-in-background - ess-getwd-command) - (ess-when-new-input last-sync-dirs - (ess-if-verbose-write "\n(ess-synchronize-dirs)\n") - (setq default-directory - (car (ess-get-words-from-vector ess-getwd-command))) - default-directory))) - -(defun ess-dirs () - "Set Emacs' current directory to be the same as the *R* process." - ;; Note: This function is not necessary anymore. The Emacs - ;; default-directory and subprocess working directory are - ;; synchronized automatically. - (interactive) - (let ((dir (car (ess-get-words-from-vector "getwd()\n")))) - (message "(ESS / default) directory: %s" dir) - (setq default-directory (file-name-as-directory dir)))) - -;; search path -(defun ess--mark-search-list-as-changed () - "Internal. Mark all the search-list related variables as changed." - ;; other guys might track their own - (ess-process-put 'sp-for-help-changed? t) - (ess-process-put 'sp-for-ac-changed? t)) - -(defun ess-cache-search-list () - "To be used in `ess-idle-timer-functions', to set search path related variables." - (when (and ess-can-eval-in-background - inferior-ess-search-list-command) - (ess-when-new-input last-cache-search-list - (let ((path (ess-search-list 'force)) - (old-path (process-get *proc* 'search-list))) - (when (not (equal path old-path)) - (process-put *proc* 'search-list path) - (ess--mark-search-list-as-changed) - path))))) - - -;;*;; Temporary buffer handling - -;; (defun ess-create-temp-buffer (name) -;; "Create an empty buffer called NAME, but doesn't display it." -;; (let ((buff (get-buffer-create name))) -;; (save-excursion -;; (set-buffer buff) -;; (erase-buffer)) -;; buff)) - - -;; Ed Kademan's version: -;; From: Ed Kademan -;; Subject: Re: ess-mode 5.1.16; search list -;; To: rossini@biostat.washington.edu (A.J. Rossini) -;; Cc: Martin Maechler , ess-bugs@stat.math.ethz.ch -;; Date: 26 Jul 2000 16:12:12 -0400 - -;; Dear Tony Rossini, - -;; I was having trouble looking at the search list under ess. When I -;; started up multiple inferior processes---each for a different -;; dialect---ess-mode would issue the wrong variant of the "search" -;; command when I typed C-c C-s. In case it is useful let me tell you -;; what I did to get it to work for me. - -;; I added the component: -;; (inferior-ess-search-list-command . "search()\n") -;; to S+3-customize-alist and ess-r-customize-alist, and then I redefined the -;; ess-create-temp-buffer function as follows: -(defun ess-create-temp-buffer (name) - "Create an empty buffer called NAME." - (let ((buff (get-buffer-create name)) - (elca (eval ess-local-customize-alist))) - (with-current-buffer buff - (erase-buffer) - (ess-setq-vars-local elca buff)) - buff)) -;;These two steps seem to insure that the temporary buffer in which the -;;search results appear has the correct version of the local variables. -;;I am not that well acquainted with the ess code and don't know whether -;;this is a good fundamental way of fixing the problem, or even whether -;;or not this breaks some other feature of ess-mode that I never use. -;;Thanks for listening. -;;Ed K. -;;-- -;;Ed Kademan 508.651.3700 -;;PHZ Capital Partners 508.653.1745 (fax) -;;321 Commonwealth Road -;;Wayland, MA 01778 - -(defun ess-display-temp-buffer (buff) - "Display the buffer BUFF. -Uses `temp-buffer-show-function' and respects -`ess-display-buffer-reuse-frames'." - (if (fboundp temp-buffer-show-function) - (funcall temp-buffer-show-function buff)) - (display-buffer buff '(display-buffer-reuse-window) ess-display-buffer-reuse-frames)) - -(defun ess--inject-code-from-file (file) - ;; this is different from ess-load-file - (let ((content (with-temp-buffer - (insert-file-contents file) - (buffer-string)))) - (when (string= ess-dialect "R") - ;; don't detect intermediate prompts - (setq content (concat "{" content "}\n"))) - (ess-command content))) - -(defun ess-check-modifications nil - "Check whether loading this file would overwrite some ESS objects -which have been modified more recently than this file, and confirm -if this is the case." - ;; FIXME: this should really cycle through all top-level assignments in - ;; the buffer - ;;VS[02-04-2012|ESS 12.03]: this is sooo ugly - (when (> (length ess-change-sp-regexp) 0) - (and (buffer-file-name) ess-filenames-map - (let ((sourcemod (nth 5 (file-attributes (buffer-file-name)))) - (objname)) - (save-excursion - (goto-char (point-min)) - ;; Get name of assigned object, if we can find it - (setq objname - (and - (re-search-forward - "^\\s *\"?\\(\\(\\sw\\|\\s_\\)+\\)\"?\\s *[<_]" - nil - t) - (buffer-substring (match-beginning 1) - (match-end 1))))) - (and - sourcemod ; the file may have been deleted - objname ; may not have been able to - ; find name - (ess-modtime-gt (ess-object-modtime objname) sourcemod) - (not (y-or-n-p - (format - "The ESS object %s is newer than this file. Continue? " - objname))) - (error "Aborted")))))) - -(defun ess-check-source (fname) - "If file FNAME has an unsaved buffer, offer to save it. -Returns t if the buffer existed and was modified, but was not saved." - (let ((buff (get-file-buffer fname))) - ;; RMH: Corrections noted below are needed for C-c C-l to work - ;; correctly when issued from *S* buffer. - ;; The following barfs since - ;; 1. `if' does not accept a buffer argument, `not' does. - ;; 2. (buffer-file-name) is not necessarily defined for *S* - ;;(if buff - ;; (let ((deleted (not (file-exists-p (buffer-file-name))))) - ;; Next 2 lines are RMH's solution: - (if (not (not buff)) - (let ((deleted (not (file-exists-p fname)))) - (if (and deleted (not (buffer-modified-p buff))) - ;; Buffer has been silently deleted, so silently save - (with-current-buffer buff - (set-buffer-modified-p t) - (save-buffer)) - (if (and (buffer-modified-p buff) - (or ess-mode-silently-save - (y-or-n-p - (format "Save buffer %s first? " - (buffer-name buff))))) - (with-current-buffer buff - (save-buffer)))) - (buffer-modified-p buff))))) - - -;;*;; Error messages - -(defun ess-parse-errors (&optional showerr reset) - "Jump to error in last loaded ESS source file. -With prefix argument, only shows the errors ESS reported. RESET -is for compatibility with `next-error' and is ignored." - (interactive "P") - (ess-make-buffer-current) - (let ((errbuff (get-buffer ess-error-buffer-name))) - (when (not errbuff) - (error "You need to do a load first!")) - (set-buffer errbuff) - (goto-char (point-max)) - ;; FIXME: R does not give "useful" error messages by default. We - ;; could try to use a more useful one, via - ;; options(error=essErrorHandler) - (cond ((re-search-backward ess-error-regexp nil t) - (let* ((filename (buffer-substring (match-beginning 3) (match-end 3))) - (fbuffer (get-file-buffer filename)) - (linenum - (string-to-number - (buffer-substring (match-beginning 2) (match-end 2)))) - (errmess (buffer-substring (match-beginning 1) (match-end 1)))) - (if showerr - (ess-display-temp-buffer errbuff) - (if fbuffer nil - (setq fbuffer (find-file-noselect filename)) - (with-current-buffer fbuffer - (ess-mode))) - (pop-to-buffer fbuffer) - (ess-goto-line linenum)) - (princ errmess t))) - (t - (message "Not a syntax error.") - (ess-display-temp-buffer errbuff))))) - -(defun ess-error (msg) - "Something bad has happened. -Display the S buffer, and cause an error displaying MSG." - (display-buffer (process-buffer (get-process ess-local-process-name))) - (error msg)) - -(make-obsolete 'ess-error nil "18.10") - -(provide 'ess-inf) -;;; ess-inf.el ends here - -;; Local Variables: -;; byte-compile-warnings: (not lexical) -;; End: diff --git a/elpa/ess-20181109.703/ess-jags-d.el b/elpa/ess-20181109.703/ess-jags-d.el deleted file mode 100644 index 51da0009..00000000 --- a/elpa/ess-20181109.703/ess-jags-d.el +++ /dev/null @@ -1,269 +0,0 @@ -;;; ess-jags-d.el --- ESS[JAGS] dialect - -;; Copyright (C) 2008-2011 Rodney Sparapani - -;; Author: Rodney Sparapani -;; Created: 13 March 2008 -;; Maintainer: ESS-help - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Code: - -(require 'ess-bugs-l) -(require 'ess-utils) -(require 'ess-inf) -(require 'ess-mode) - -(setq auto-mode-alist - (append '(("\\.[jJ][aA][gG]\\'" . ess-jags-mode)) auto-mode-alist)) - -(defvar ess-jags-command "jags" "Default JAGS program in PATH.") -(make-local-variable 'ess-jags-command) - -(defvar ess-jags-monitor '("") "Default list of variables to monitor.") -(make-local-variable 'ess-jags-monitor) - -(defvar ess-jags-thin 1 "Default thinning parameter.") -(make-local-variable 'ess-jags-thin) - -(defvar ess-jags-chains 1 "Default number of chains.") -(make-local-variable 'ess-jags-chains) - -(defvar ess-jags-burnin 10000 "Default burn-in.") -(make-local-variable 'ess-jags-burnin) - -(defvar ess-jags-update 10000 "Default number of updates after burnin.") -(make-local-variable 'ess-jags-update) - -(defvar ess-jags-system t "Default whether JAGS recognizes the system command.") - -(defvar ess-jags-font-lock-keywords - (list - ;; .jag files - (cons "#.*\n" font-lock-comment-face) - - (cons "^[ \t]*\\(model\\|var\\)\\>" - font-lock-keyword-face) - - (cons (concat "\\& " ess-bugs-file-root ".jog ") - ;else - "> " ess-bugs-file-root ".jog 2>&1 ") - - ; ;.txt not recognized by BOA and impractical to over-ride - ; "&& (rm -f " ess-bugs-file-root ".ind; " - ; "ln -s " ess-bugs-file-root "index.txt " ess-bugs-file-root ".ind; " - ; "for i in " ess-jags-temp-chains "; do; " - ; "rm -f " ess-bugs-file-root "$i.out; " - ; "ln -s " ess-bugs-file-root "chain$i.txt " ess-bugs-file-root "$i.out; done) " - - ess-bugs-batch-post-command) - - (comint-send-input) - )) - -(defun ess-jags-na-bug () - "ESS[JAGS]: Perform Next-Action for .jag" - - (if (equal 0 (buffer-size)) (ess-jags-switch-to-suffix ".jag") - ;else - (ess-save-and-set-local-variables) - (ess-jags-switch-to-suffix ".jmd" - ess-jags-chains ess-jags-monitor ess-jags-thin ess-jags-burnin ess-jags-update)) - ) - -;;;###autoload -(defun ess-jags-mode () - "ESS[JAGS]: Major mode for JAGS." - (interactive) - (kill-all-local-variables) - (ess-setq-vars-local '((comment-start . "#"))) - (setq major-mode 'ess-jags-mode) - (setq mode-name "ESS[JAGS]") - (use-local-map ess-bugs-mode-map) - (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults '(ess-jags-font-lock-keywords nil t)) - (setq ess-language "S") ; mimic S for ess-smart-underscore - (run-mode-hooks 'ess-bugs-mode-hook) - - (unless (and (fboundp 'w32-shell-dos-semantics) - (w32-shell-dos-semantics)) - (add-hook 'comint-output-filter-functions 'ess-bugs-exit-notify-sh)) - ) - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[Jj][Aa][Gg]\\'" . ess-jags-mode)) - -(defvaralias 'ess-jags-mode-hook 'ess-bugs-mode-hook) -(defvaralias 'ess-jags-mode-map 'ess-bugs-mode-map) - -(setq features (delete 'ess-bugs-d features)) -(provide 'ess-jags-d) - -;;; ess-jags-d.el ends here diff --git a/elpa/ess-20181109.703/ess-julia.el b/elpa/ess-20181109.703/ess-julia.el deleted file mode 100644 index 7c944000..00000000 --- a/elpa/ess-20181109.703/ess-julia.el +++ /dev/null @@ -1,435 +0,0 @@ -;; ess-julia.el --- ESS julia mode and inferior interaction -;; -;; Copyright (C) 2012-2015 Vitalie Spinu and the ESS Core team. -;; -;; Author: Vitalie Spinu -;; Maintainer: Vitalie Spinu -;; Created: 02-04-2012 (ESS 12.03) -;; Keywords: ESS, julia -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; This file is *NOT* part of GNU Emacs. -;; This file is part of ESS -;; -;; This program 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 3, 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 -;; https://www.r-project.org/Licenses/ -;; -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Commentary: -;; -;; Customise inferior-julia-program to point to your julia binary -;; and start the inferior with M-x julia. -;; -;; As of Sept 2015, this file depends heavily on julia-mode.el from the Julia -;; sources. If you install ESS using `make', this will work fine, otherwise -;; ensure that julia-mode.el is on your path before loading this file. -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Code: - -(require 'compile) -(require 'ess-utils) -(require 'ess-r-mode) -(require 'julia-mode) - -(defvar ac-prefix) -(declare-function company-in-string-or-comment "company") -(declare-function company-doc-buffer "company") - -(defcustom inferior-julia-args "" - "String of arguments (see 'julia --help') used when starting julia." - :group 'ess-julia - :type 'string) - -(eval-when-compile - (require 'cl-lib)) - -(defun ess-julia-send-string-function (process string visibly) - "Send the Julia STRING to the PROCESS. -VISIBLY is not currently used." - (let ((file (concat temporary-file-directory "julia_eval_region.jl"))) - (with-temp-file file - (insert string)) - (process-send-string process (format ess-load-command file)))) - - -;;; HELP -(defun ess-julia-get-help-topics (&optional proc) - (append (with-current-buffer (ess-command "ESS.all_help_topics()\n") - (split-string (buffer-string) "\n")) - (ess-julia--get-objects proc))) - -(defun ess-julia--retrive-topics (url) - (with-current-buffer (url-retrieve-synchronously url) - (require 'url) - (goto-char (point-min)) - (let (out) - (while (re-search-forward "toctree.*href=\"\\(.+\\)\">\\(.+\\)Introduction - (let* ((pages (or ess-julia--manual-topics - (setq ess-julia--manual-topics - (ess-julia--retrive-topics "https://docs.julialang.org/en/latest/manual/")))) - (page (ess-completing-read "Lookup:" pages nil t))) - (browse-url (get-text-property 1 :manual page)))) - -(defun ess-julia-input-sender (proc string) - (save-current-buffer - (let* ((help-?-regexp "^ *\\(?:\\(?1: *?\\? *\\)\\(?2:.+\\)\\)") - (help-?-match (string-match help-?-regexp string))) - (cond (help-?-match - (ess-display-help-on-object (match-string 2 string)) - (process-send-string proc "\n")) - (t ;; normal command - (inferior-ess-input-sender proc string)))))) - -;; julia 0.3.0 doesn't provide categories. Thus we don't support this anymore. -;; (defun ess-julia-reference-lookup-function (&rest args) ; args are not used -;; (interactive) -;; "Look up reference topics" -;; ;;
  • Introduction
    • -;; (let* ((pages (ess-get-words-from-vector "ESS.help_categories()\n"))) -;; (ess-display-help-on-object -;; (ess-completing-read "Category" pages nil t)))) - - - -;;; COMPLETION -(defun ess-julia-latexsub-completion () - "Complete latex input, and returns in a format required by `completion-at-point-functions'." - (if (julia-latexsub) ; julia-latexsub returns nil if it performed a completion, the point otherwise - nil - (lambda () t) ;; bypass other completion methods - )) - -(defun ess-julia-object-completion () - "Return completions at point in a format required by `completion-at-point-functions'. " - (let ((proc (ess-get-next-available-process ess-dialect t)) - (beg (ess-symbol-start))) - (if proc - (when beg - (let* ((prefix (buffer-substring-no-properties beg (point))) - (obj (and (string-match "\\(.*\\)\\..*$" prefix) - (match-string 1 prefix))) - (beg (if obj - (+ beg 1 (length obj)) - beg))) - (list beg (point) - (nreverse (mapcar 'car (ess-julia--get-objects proc obj))) - :exclusive 'no))) - (when (string-match "complet" (symbol-name last-command)) - (message "No ESS process of dialect %s started" ess-dialect) - nil)))) - -(defun ess-julia-objects (prefix &optional proc) - "Given PREFIX get all cached objects from PROC." - (when prefix - (let ((proc (or proc (ess-get-next-available-process nil t)))) - (if (string-match "\\(.*\\)\\..*$" prefix) - (let ((module (match-string 1 prefix))) - (mapcar (lambda (el) (concat module "." (car el))) - (ess-julia--get-objects proc module))) - (ess-julia--get-objects proc))))) - -(defun ess-julia--get-objects (&optional proc obj) - "Return all available objects. -Local caching might be used. If MODULE is givven, return only -objects from that MODULE." - (setq proc (or proc (ess-get-process))) - (when (stringp proc) - (setq proc (get-process proc))) - (when (process-live-p proc) - (let ((objects (process-get proc 'objects))) - (if (process-get proc 'busy) - (if obj - (assoc obj objects) - (process-get proc 'objects)) - (if obj - (or (cdr (assoc obj objects)) - ;; don't cache composite objects and datatypes - (ess-julia--get-components proc obj)) - ;; this segment is entered when user completon at top level is - ;; requested, either Tab or AC. Hence Main is always updated. - (let ((modules (ess-get-words-from-vector - "ESS.main_modules()\n" nil nil proc)) - (loc (process-get proc 'last-objects-cache)) - (lev (process-get proc 'last-eval))) - (prog1 - (apply #'nconc - (mapcar - (lambda (mod) - ;; we are caching all modules, and reinit Main every - ;; time user enters commands - (copy-sequence - (or (and (or (not (equal mod "Main")) - (ignore-errors (time-less-p lev loc))) - (cdr (assoc mod objects))) - (ess-julia--get-components proc mod t)))) - modules)) - (process-put proc 'last-objects-cache (current-time))))))))) - -(defun ess-julia--get-components (proc obj &optional cache?) - (with-current-buffer (ess-command (format "ESS.components(%s)\n" obj) - nil nil nil nil proc) - (goto-char (point-min)) - (let (list) - (while (re-search-forward - "^\\([^ \t\n]+\\) +\\([^ \t\n]+\\)$" nil t) - (push (cons (match-string 1) (match-string 2)) list)) - (when cache? - (let ((objects (process-get proc 'objects))) - (push (cons obj list) objects) - (process-put proc 'objects objects))) - list))) - -(defun ess-julia-get-object-help-string (sym) - "Help string for ac." - (let ((proc (ess-get-next-available-process nil t))) - (if (null proc) - "No free ESS process found" - (let ((buf (get-buffer-create " *ess-command-output*"))) - (with-current-buffer (process-buffer proc) - (ess-with-current-buffer buf - (ess--flush-help-into-current-buffer sym nil t))) - (with-current-buffer buf - (ess-help-underline) - (goto-char (point-min)) - (buffer-string)))))) - -(defvar ac-source-ess-julia-objects - '((prefix . ess-symbol-start) - (requires . 2) - (candidates . ess-ac-julia-objects) - (document . ess-julia-get-object-help-string)) - "Auto-completion source for julia objects") - -(defun ess-ac-julia-objects () - (require 'auto-complete) - (ess-julia-objects ac-prefix)) - -(declare-function company-begin-backend "company.el") - -(defun company-ess-julia-objects (command &optional arg &rest ignored) - (interactive (list 'interactive)) - (cl-case command - (interactive (company-begin-backend 'company-ess-julia-objects)) - (prefix (unless (company-in-string-or-comment) - (let ((start (ess-symbol-start))) - (when start (buffer-substring-no-properties start (point)))))) - (candidates (let ((proc (ess-get-next-available-process))) - (when proc - (all-completions arg (mapcar (lambda (x) (or (car-safe x) x)) - (ess-julia-objects arg proc)))))) - (doc-buffer (company-doc-buffer (ess-julia-get-object-help-string arg))))) - - -;;; ERRORS -(defvar ess-julia-error-regexp-alist '(ess-julia-in ess-julia-at ess-julia-while-load) - "List of symbols which are looked up in `compilation-error-regexp-alist-alist'.") - -(add-to-list 'compilation-error-regexp-alist-alist - '(ess-julia-in "^\\s-*in [^ \t\n]* \\(at \\(.*\\):\\([0-9]+\\)\\)" 2 3 nil 2 1)) -(add-to-list 'compilation-error-regexp-alist-alist - '(ess-julia-at "^\\S-+\\s-+\\(at \\(.*\\):\\([0-9]+\\)\\)" 2 3 nil 2 1)) -(add-to-list 'compilation-error-regexp-alist-alist - '(ess-julia-while-load "^\\s-*\\(while loading\\s-\\(.*\\), in .* on line +\\([0-9]+\\)\\)" 2 3 nil 2 1)) - - -;;; ELDOC -(defun ess-julia-eldoc-function () - "Return the doc string, or nil. -If an ESS process is not associated with the buffer, do not try -to look up any doc strings." - (interactive) - (when (and ess-can-eval-in-background - (ess-process-live-p) - (not (ess-process-get 'busy))) - (let ((funname (or (and ess-eldoc-show-on-symbol ;; aggressive completion - (symbol-name (ess-symbol-at-point))) - (car (ess--fn-name-start))))) - (when funname - (let* ((args (copy-sequence (nth 2 (ess-function-arguments funname)))) - (W (- (window-width (minibuffer-window)) (+ 4 (length funname)))) - (doc (concat (propertize funname 'face font-lock-function-name-face) ": "))) - (when args - (setq args (sort args (lambda (s1 s2) - (< (length s1) (length s2))))) - (setq doc (concat doc (pop args))) - (while (and args (< (+ (length doc) (length (car args))) W)) - (setq doc (concat doc " " - (pop args)))) - (when (and args (< (length doc) W)) - (setq doc (concat doc " {--}"))) - doc)))))) - - -;;; IMENU -(defvar ess-julia-imenu-generic-expression - ;; don't use syntax classes, screws egrep - '(("Function (_)" "[ \t]*function[ \t]+\\(_[^ \t\n]*\\)" 1) - ("Function" "^[ \t]*function[ \t]+\\([^_][^\t\n]*\\)" 1) - ("Const" "[ \t]*const \\([^ \t\n]*\\)" 1) - ("Type" "^[ \t]*[a-zA-Z0-9_]*type[a-zA-Z0-9_]* \\([^ \t\n]*\\)" 1) - ("Require" " *\\(\\brequire\\)(\\([^ \t\n)]*\\)" 2) - ("Include" " *\\(\\binclude\\)(\\([^ \t\n)]*\\)" 2) - )) - - -;;; CORE -(defvar ess-julia-customize-alist - '((comint-use-prompt-regexp . t) - (ess-eldoc-function . 'ess-julia-eldoc-function) - (inferior-ess-primary-prompt . "a> ") ;; from julia> - (inferior-ess-secondary-prompt . nil) - (inferior-ess-prompt . "\\w*> ") - (ess-local-customize-alist . 'ess-julia-customize-alist) - (inferior-ess-program . inferior-julia-program) - (ess-get-help-topics-function . 'ess-julia-get-help-topics) - (ess-help-web-search-command . "https://docs.julialang.org/en/latest/search/?q=%s") - (ess-manual-lookup-command . 'ess-julia-manual-lookup-function) - ;; (ess-reference-lookup-command . 'ess-julia-reference-lookup-function) - (ess-load-command . "include(expanduser(\"%s\"))\n") - (ess-funargs-command . "ESS.fun_args(\"%s\")\n") - (ess-dump-error-re . "in \\w* at \\(.*\\):[0-9]+") - (ess-error-regexp . "\\(^\\s-*at\\s-*\\(?3:.*\\):\\(?2:[0-9]+\\)\\)") - (ess-error-regexp-alist . ess-julia-error-regexp-alist) - (ess-imenu-generic-expression . ess-julia-imenu-generic-expression) - (ess-mode-syntax-table . julia-mode-syntax-table) - (ess-mode-completion-syntax-table . ess-julia-completion-syntax-table) - ;; (inferior-ess-objects-command . inferior-ess-r-objects-command) - ;; (inferior-ess-search-list-command . "search()\n") - (inferior-ess-help-command . "ESS.help(\"%s\")\n") - ;; (inferior-ess-help-command . "help(\"%s\")\n") - (ess-language . "julia") - (ess-dialect . "julia") - (ess-suffix . "jl") - (ess-ac-sources . '(ac-source-ess-julia-objects)) - (ess-company-backends . '(company-ess-julia-objects)) - (ess-dump-filename-template . (replace-regexp-in-string - "S$" ess-suffix ; in the one from custom: - ess-dump-filename-template-proto)) - (ess-mode-editing-alist . nil) - (ess-change-sp-regexp . nil );ess-r-change-sp-regexp) - (ess-help-sec-regex . ess-help-r-sec-regex) - (ess-help-sec-keys-alist . ess-help-r-sec-keys-alist) - (ess-function-pattern . ess-r-function-pattern) - (ess-object-name-db-file . "ess-jl-namedb.el" ) - (ess-smart-operators . ess-r-smart-operators) - (inferior-ess-help-filetype . nil) - (inferior-ess-exit-command . "exit()\n") - ;;harmful for shell-mode's C-a: -- but "necessary" for ESS-help? - (inferior-ess-start-file . nil) ;; "~/.ess-R" - (inferior-ess-start-args . "") - (inferior-ess-language-start . nil) - (ess-STERM . "iESS") - (ess-editor . ess-r-editor) - (ess-pager . ess-r-pager) - (ess-getwd-command . "pwd()\n") - (ess-setwd-command . "cd(expanduser(\"%s\"))\n") - ) - "Variables to customize for Julia -- set up later than emacs initialization.") - -(defvar ess-julia-completion-syntax-table - (let ((table (make-syntax-table ess-r-syntax-table))) - (modify-syntax-entry ?. "_" table) - ;; (modify-syntax-entry ?: "_" table) - ;; (modify-syntax-entry ?$ "_" table) - (modify-syntax-entry ?@ "_" table) - table) - "Syntax table used for completion and help symbol lookup. -It makes underscores and dots word constituent chars.") - -;;;###autoload -(define-derived-mode ess-julia-mode julia-mode "ESS[julia]" - "Major mode for editing julia source. See `ess-mode' for more help." - (ess-mode ess-julia-customize-alist nil t) - ;; for emacs >= 24 - (remove-hook 'completion-at-point-functions 'ess-filename-completion 'local) ;; should be first - (add-hook 'completion-at-point-functions 'ess-julia-object-completion nil 'local) - (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local) - (if (fboundp 'ess-add-toolbar) (ess-add-toolbar)) - (set (make-local-variable 'end-of-defun-function) 'ess-end-of-function) - (setq imenu-generic-expression ess-julia-imenu-generic-expression) - (imenu-add-to-menubar "Imenu-jl") - (run-mode-hooks 'ess-julia-mode-hook)) - -(defvar ess-julia-mode-hook nil) -(defvar ess-julia-post-run-hook nil - "Functions run in process buffer after starting julia process.") - -;;;###autoload -(defun julia (&optional start-args) - "Call 'julia'. -Optional prefix (C-u) allows to set command line arguments, such as ---load=. This should be OS agnostic. -If you have certain command line arguments that should always be passed -to julia, put them in the variable `inferior-julia-args'." - (interactive "P") - ;; get settings, notably inferior-julia-program : - (if (null inferior-julia-program) - (error "'inferior-julia-program' does not point to 'julia' or 'julia-basic' executable") - (setq ess-customize-alist ess-julia-customize-alist) - (ess-write-to-dribble-buffer ;; for debugging only - (format - "\n(julia): ess-dialect=%s, buf=%s, start-arg=%s\n current-prefix-arg=%s\n" - ess-dialect (current-buffer) start-args current-prefix-arg)) - (let* ((jl-start-args - (concat inferior-julia-args " " ; add space just in case - (if start-args - (read-string - (concat "Starting Args" - (if inferior-julia-args - (concat " [other than '" inferior-julia-args "']")) - " ? ")) - nil)))) - (inferior-ess jl-start-args) - - (remove-hook 'completion-at-point-functions 'ess-filename-completion 'local) ;; should be first - (add-hook 'completion-at-point-functions 'ess-julia-object-completion nil 'local) - (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local) - (add-hook 'completion-at-point-functions 'ess-julia-latexsub-completion nil 'local) - (setq comint-input-sender 'ess-julia-input-sender) - - (ess--tb-start) - ;; remove ` from julia's logo - (goto-char (point-min)) - (while (re-search-forward "`" nil t) - (replace-match "'")) - ;; remove an offending unmatched parenthesis - (goto-char (point-min)) - (forward-line 4) - (when (re-search-forward "(" nil t) - (replace-match "|")) - (goto-char (point-max)) - ;; --> julia helpers from ../etc/ess-julia.jl : - (ess--inject-code-from-file (format "%sess-julia.jl" ess-etc-directory)) - (with-ess-process-buffer nil - (run-mode-hooks 'ess-julia-post-run-hook))))) - -(add-to-list 'auto-mode-alist '("\\.jl\\'" . ess-julia-mode)) - -(provide 'ess-julia) -;;; ess-julia.el ends here diff --git a/elpa/ess-20181109.703/ess-lsp-l.el b/elpa/ess-20181109.703/ess-lsp-l.el deleted file mode 100644 index 179e1fc8..00000000 --- a/elpa/ess-20181109.703/ess-lsp-l.el +++ /dev/null @@ -1,65 +0,0 @@ -;;; ess-lsp-l.el --- Support for editing Lisp source code - -;; Copyright (C) 1997 A.J. Rossini. -;; Copyright (C) 1998--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 1 Sept 1997 -;; Maintainer: ESS-core - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; Configurations for editing XLispStat source code. Contains any underlying -;; changes that need to be made. - -;;; Code: - - ; Requires and autoloads - -;; Contents "translated" from lisp-mode.el -(require 'lisp-mode) - - ; Configuration variables - - - -(defvar Lisp-editing-alist - '((paragraph-start . (concat "^$\\|" page-delimiter)) - (paragraph-separate . (concat "^$\\|" page-delimiter)) - (paragraph-ignore-fill-prefix . t) - (fill-paragraph-function . 'lisp-fill-paragraph) - (adaptive-fill-mode . nil) - (indent-line-function . 'lisp-indent-line) - (indent-region-function . 'lisp-indent-region) - (require-final-newline . mode-require-final-newline) - (comment-start . ";") - (comment-start-skip . "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") - (comment-column . 40) - (comment-indent-function . 'lisp-comment-indent) - (parse-sexp-ignore-comments . t) - (ess-style . ess-default-style) - (ess-local-process-name . nil) - ;;(ess-keep-dump-files . 'ask) - (ess-mode-syntax-table . lisp-mode-syntax-table) - (font-lock-defaults . '(lisp-font-lock-keywords))) - "General options for editing LispStat, XLispStat, and ViSta source files.") - -(provide 'ess-lsp-l) - -;;; ess-lsp-l.el ends here diff --git a/elpa/ess-20181109.703/ess-mode.el b/elpa/ess-20181109.703/ess-mode.el deleted file mode 100644 index 782a9e6b..00000000 --- a/elpa/ess-20181109.703/ess-mode.el +++ /dev/null @@ -1,31 +0,0 @@ -;;; ess-mode.el -- Emacs Speaks Statistics (ESS). -;; -;; Copyright (C) 1994-2018 ESS Core Team -;; Maintainer: ESS-core -;; -;; Keywords: languages -;; -;; 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 -;; https://www.r-project.org/Licenses/ -;; -;;; Commentary: -;; -;; A placeholder required by all other mode files. -;; -;;; Code: - -(require 'ess) - -(provide 'ess-mode) diff --git a/elpa/ess-20181109.703/ess-mouse.el b/elpa/ess-20181109.703/ess-mouse.el deleted file mode 100644 index a33e5322..00000000 --- a/elpa/ess-20181109.703/ess-mouse.el +++ /dev/null @@ -1,234 +0,0 @@ -;;; ess-mouse.el --- Support for mouse- or cursor-sensitive actions - -;; Copyright (C) 2001 Richard M. Heiberger -;; Copyright (C) 2002--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Richard M. Heiberger -;; Created: 25 Mar 2001 -;; Maintainer: ESS-core - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; Support for mouse- or cursor-sensitive actions. This is based on -;; and uses mouseme.el. mouseme.el only does mouse sensititivity. -;; The new functions ess-mouse-me and ess-mouse-me-helper do similar -;; things based on the cursor, not the mouse, and can be bound to a -;; keystroke. - -;;; Code: - - ; Requires and autoloads - -;;*;; Requires -(require 'mouseme) -(require 'ess-dde) -(require 'ess-trns) -;;(if (or (equal window-system 'w32) -;; (equal window-system 'win32) -;; (equal window-system 'mswindows)) -;; (require 'essiw32b)) - -(defun ess-mouse-me () - "Popup a menu of functions to run on selected string or region." - (interactive) - (ess-mouse-me-helper - (lambda (name) - (or (x-popup-menu (list '(0 0) - (get-buffer-window (get-buffer (buffer-name)))) - (funcall mouse-me-build-menu-function name)) - (error "No command to run"))))) - - - -(defun ess-mouse-me-helper (func) - "Determine the string to use to process EVENT and call FUNC to get cmd." - (let (name sp sm mouse beg end cmd mmtype) - ;; temporarily goto where the event occurred, get the name clicked - ;; on and enough info to figure out what to do with it - (save-match-data - (save-excursion - (setq sp (point)) ; saved point - (setq sm (mark t)) ; saved mark -;;; (set-buffer (window-buffer (posn-window (event-start event)))) -;;; (setq mouse (goto-char (posn-point (event-start event)))) - (setq mouse (point)) ;; ess-mouse-me-helper - ;; if there is a region and point is inside it - ;; check for sm first incase (null (mark t)) - ;; set name to either the thing they clicked on or region - (if (and sm - (or (and transient-mark-mode mark-active) - (eq last-command 'mouse-drag-region)) - (>= mouse (setq beg (min sp sm))) - (<= mouse (setq end (max sp sm)))) - (setq name (buffer-substring beg end)) - (setq name (funcall mouse-me-get-string-function)) - (if (listp name) - (setq beg (nth 1 name) - end (nth 2 name) - name (car name)) - (goto-char mouse) - (while (not (looking-at (regexp-quote name))) - (backward-char 1)) - (setq beg (point)) - (setq end (search-forward name)))))) - ;; check if name is null, meaning they clicked on no word - (if (or (null name) - (and (stringp name) (string= name "" ))) - (error "No string to pass to function")) - ;; popup a menu to get a command to run - (setq cmd (funcall func name)) - ;; run the command, eval'ing if it was a list - (if (listp cmd) - (setq cmd (eval cmd))) - (setq mmtype (get cmd 'mouse-me-type)) - (cond ((eq mmtype 'region) - (funcall cmd beg end)) - ((eq mmtype 'string) - (funcall cmd name)) - (t - (funcall cmd name))))) - -(defcustom ess-S-mouse-me-menu-commands-alist - '("S-Plus 4 and 6 GUI under Windows" - ("Edit.data" . ess-mouse-me-Edit.data) - "----" - ("print" . ess-mouse-me-print) - ("summary" . ess-mouse-me-summary) - ("plot" . ess-mouse-me-plot) - ("show" . ess-mouse-me-show) - ("help" . ess-display-help-on-object) - ("args" . ess-mouse-me-args) - "----" - ("Browser on" . ess-mouse-me-browser-on) - ("Browser off" . ess-mouse-me-browser-off)) - "*Command menu used by `mouse-me-build-menu'. -A alist of elements where each element is either a cons cell or a string. -If a cons cell the car is a string to be displayed in the menu and the -cdr is either a function to call passing a string to, or a list which evals -to a function to call passing a string to. If the element is a string -it makes a non-selectable element in the menu. To make a separator line -use a string consisting solely of hyphens. - -The function returned from this menu will be called with one string -argument. Or if the function has the symbol property `mouse-me-type' -and if its value is the symbol `region' it will be called with the -beginning and ending points of the selected string. If the value is -the symbol `string' it will be called with one string argument." - :type '(repeat sexp) - :group 'mouseme) - - -(defun ess-mouse-me-Edit.data (string) - (ess-mouse-me-eval-expanded string "Edit.data(" ")" nil nil nil)) - -(defun ess-mouse-me-print (string) - (ess-mouse-me-eval-expanded string "" "" nil (ess-ddeclient-p) t)) -(defun ess-mouse-me-summary (string) - (ess-mouse-me-eval-expanded string "summary(" ")" nil (ess-ddeclient-p) t)) -(defun ess-mouse-me-plot (string) - (ess-mouse-me-eval-expanded string "plot(" ")") nil nil nil) -(defun ess-mouse-me-show (string) - (ess-mouse-me-eval-expanded string "show(" ")") nil nil nil) -(defun ess-mouse-me-args (string) - (ess-mouse-me-eval-expanded string "args(" ")" nil (ess-ddeclient-p) t)) - -(defun ess-mouse-me-browser-on (string) - (if (equal (substring ess-dialect 0 1) "R") - (ess-eval-linewise (concat "debug(" string ")")) - (ess-mouse-me-eval-expanded string "trace(" ", exit=browser)") nil nil nil)) - -(defun ess-mouse-me-browser-off (string) - (if (equal (substring ess-dialect 0 1) "R") - (ess-eval-linewise (concat "undebug(" string ")")) - (ess-mouse-me-eval-expanded string "untrace(" ")") nil nil nil)) - - - -(defun ess-mouse-me-eval-expanded (string &optional head tail commands-buffer - page value-returned) - "Send the expanded STRING to the inferior-ess process using `ess-command' -after first concating the HEAD and TAIL. Put answer in COMMANDS-BUFFER if -specified and not using ddeclient, otherwise in \"tmp-buffer\". In either -case the buffer containing the answer is renamed to the value of the -constructed command. If PAGE is non-nil and using ddeclient, expand -the string one more time by embedding it in a \"page()\" command." - (interactive) - (let* (scommand - page-scommand - (lproc-name ess-local-process-name) - (ess-mouse-customize-alist ess-local-customize-alist)) - (if (not head) (setq head "summary(")) - (if (not tail) (setq tail ")")) - (if (not commands-buffer) (setq commands-buffer - (get-buffer-create "tmp-buffer"))) - (setq scommand (concat head string tail)) - - (if (ess-ddeclient-p) - (progn - (setq page-scommand (if page - (concat "page(" scommand ")") - scommand)) - (set-buffer-file-coding-system 'undecided-dos) - (ess-command page-scommand commands-buffer) - (if (not value-returned) - nil - (sleep-for 2) - (switch-to-buffer (car (buffer-list))))) - (ess-make-buffer-current) - (switch-to-buffer commands-buffer) - (ess-setq-vars-local (eval ess-mouse-customize-alist) (current-buffer)) - (setq ess-local-process-name lproc-name) - (ess-command (concat scommand "\n") commands-buffer) - (if (not value-returned) (switch-to-buffer (nth 1 (buffer-list))))) - (if (not value-returned) - nil - (if ess-microsoft-p ;; there ought to be a filter - (while (search-forward "\r" nil t) ;; function to keep the ^M - (replace-match "" nil t))) ;; from showing up at all - (ess-transcript-mode (eval ess-mouse-customize-alist)) - (setq ess-local-process-name lproc-name) - (rename-buffer scommand)))) - - - ; Provide package - -(provide 'ess-mouse) - - - -;;;;;;;; STARTUP STUFF ;;;;;;;;;;;; - -(make-variable-buffer-local 'mouse-me-menu-commands) - -(defun ess-S-mouse-me-menu-commands () - (if (equal ess-language "S") - (setq mouse-me-menu-commands ess-S-mouse-me-menu-commands-alist))) - -;; (define-key ess-mode-map [S-mouse-3] 'ess-mouse-me) -;; (define-key inferior-ess-mode-map [S-mouse-3] 'ess-mouse-me) -;; (defun ess-S-mouse-me-ess-transcript-mode () -;; (define-key ess-transcript-mode-map [S-mouse-3] 'ess-mouse-me)) -;; -(add-hook 'ess-mode-hook 'ess-S-mouse-me-menu-commands) -(add-hook 'inferior-ess-mode-hook 'ess-S-mouse-me-menu-commands) -(add-hook 'ess-transcript-mode-hook 'ess-S-mouse-me-menu-commands) -;; (add-hook 'ess-transcript-mode-hook 'ess-S-mouse-me-ess-transcript-mode) - - -;;; ess-mouse.el ends here diff --git a/elpa/ess-20181109.703/ess-noweb-font-lock-mode.el b/elpa/ess-20181109.703/ess-noweb-font-lock-mode.el deleted file mode 100644 index 04d183c8..00000000 --- a/elpa/ess-20181109.703/ess-noweb-font-lock-mode.el +++ /dev/null @@ -1,393 +0,0 @@ -;;; ess-noweb-font-lock-mode.el --- edit noweb files with GNU Emacs - -;; Copyright (C) 1999 by Adnan Yaqub (AYaqub@orga.com) -;; and Mark Lunt (mark.lunt@mrc-bsu.cam.ac.uk -;; Copyright (C) 2002 by A.J. Rossini -;; Copyright (C) 2003--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Maintainer: ESS-core - -;; This program 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 program 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 -;; https://www.r-project.org/Licenses/ -;; - -;;; Commentary: - -;; Code-dependent highlighting -;; ***** -;; -;; Adding highlighting to ess-noweb-mode.el -;; -;; Here is a description of how one can add highlighting via the -;; font-lock package to noweb buffers. It uses the hooks provided by -;; ess-noweb-mode.el. The solution provides the following features: -;; 1) The documentation chunks are highlighted in the ess-noweb-doc-mode -;; (e.g., LaTeX). -;; 2) The code chunks without mode comments (-*- mode -*-) are -;; highlighted in the ess-noweb-code-mode. -;; 3) The code chunks with mode comments (-*- mode -*-) on the first -;; line of the first chunk with this name are highlighted in the mode -;; in the comment. -;; -;; For example, given the file: -;; -;; % -*- mode: Noweb; ess-noweb-code-mode: c-mode -*- -;; -;; \begin{itemize} -;; \item a main routine written in C, -;; \item a log configuration file parser written in YACC, and -;; \item a lexical analyzer written in Lex. -;; \end{itemize} -;; -;; <>= -;; /* DO NOT EDIT ME! */ -;; /* This file was automatically generated from %W% (%G%). */ -;; @ -;; -;; <>= -;; .\" -*- nroff -*- -;; .\" DO NOT EDIT ME! -;; .\" This file was automatically generated from %W% (%G%). -;; @ -;; -;; The LaTeX list is highlighted in latex-mode (the default noweb doc -;; mode), the chunk <> is highlighted in c-mode (the -;; default noweb code mode), and the chunk <> is -;; highlighted in nroff-mode due to the "-*- nroff -*-" comment. -;; -;; Chunks are highlighted each time point moves into them from a -;; different mode. They are also fontified 'on the fly', but this is -;; less reliable, since the syntax can depend on the context. It's as -;; good as you would get outside ess-noweb-mode, though. -;; -;; To use it, you must add -;; (require 'ess-noweb-font-lock-mode) to your .emacs file. -;; Then, if you use either global-font-lock or turn-on-font-lock -;; statements, any ess-noweb-mode buffers will be fontified -;; appropriately. (We have to redefine turn-on-font-lock, but it -;; saves breaking other packages (in particular ESS, which I use a -;; lot), that assume that turn-on-font-lock is the way to turn on -;; font locking. - -;; Alternatively, you can turn ess-noweb-font-lock-mode on and off by -;; using M-x ess-noweb-font-lock-mode. However, turning -;; ess-noweb-font-lock-mode off when global-font-lock-mode is t makes it -;; impossible to use font-locking in that buffer subsequently, other -;; than by turning ess-noweb-font-lock-mode back on. - -;; 2) The highlighting sometimes get confused, but this is no longer -;; a noweb problem. Highlighting should work as well within a chunk -;; as it does without ess-noweb-mode. -;; There are some problems with, for example latex-mode: a `$' in a -;; verbatim environment with throw the font-locking out. -;; One slight blemish is that code-quotes are highlighted as comments -;; as they are being entered. They are only highlighted correctly -;; after `ess-noweb-font-lock-fontify-chunk' has been run, either as a -;; command or through changing to a different chunk and back again -;; (unless they lie on a single line, in which case they are -;; fontified correctly once they are completed). - -;;; Code: - -(require 'ess-noweb-mode) -(require 'font-lock) - -(defvar ess-noweb-font-lock-mode nil - "Buffer local variable, t iff this buffer is using `ess-noweb-font-lock-mode'.") - -(defvar ess-noweb-use-font-lock-mode t - "DO NOT CHANGE THIS VARIABLE -If you use `nw-turn-on-font-lock' to turn on font-locking, then turn it -off again, it would come back on again of its own accord when you -changed major-mode. This variable is used internally to stop it.") - -(defvar ess-noweb-font-lock-mode-hook nil - "Hook that is run after entering ess-noweb-font-lock mode.") - -(defvar ess-noweb-font-lock-max-initial-chunks 30 - "Maximum number of chunks to fontify initially. -If nil, will fontify the entire buffer when -ess-noweb-font-lock-initial-fontify-buffer is called" ) - -;; (defvar old-beginning-of-syntax nil -;; "Stores the function used to find the beginning of syntax in the -;; current major mode. ess-noweb-font-lock-mode needs a different one." ) - -(defvar ess-noweb-font-lock-doc-start-face font-lock-reference-face - "Face to use to highlight the `@' at the start of each doc chunk") - -(defvar ess-noweb-font-lock-brackets-face font-lock-reference-face - "Face to use to highlight `<<', `>>' `[[' and `]]' ") - -(defvar ess-noweb-font-lock-chunk-name-face font-lock-keyword-face - "Face to use to highlight the between `<<' and `>>'") - -(defvar ess-noweb-font-lock-code-quote-face font-lock-keyword-face - "Face to use to highlight the between `[[' and `]]'") - -;; Now we add [[ess-noweb-font-lock-mode]] to the list of existing minor -;; modes. The string ``NWFL'' will be added to the mode-line: ugly, but -;; brief. - -(if (not (assq 'ess-noweb-font-lock-mode minor-mode-alist)) - (setq minor-mode-alist (append minor-mode-alist - (list '(ess-noweb-font-lock-mode " NWFL"))))) - -;; An ugly kludge to get around problems with global-font-lock, which -;; fontifies the entire buffer in the new major mode every time you -;; change mode, which is time-consuming and makes a pigs trotters of -;; it. Trying to stop it looks tricky, but using this function as your -;; `font-lock-fontify-buffer' function stops it wasting your time - -(defalias 'nwfl-donowt #'ignore) - -;; The following function is just a wrapper for ess-noweb-font-lock-mode, -;; enabling it to be called as ess-noweb-font-lock-minor-mode instead. - -(define-obsolete-function-alias 'ess-noweb-font-lock-minor-mode - #'ess-noweb-font-lock-mode "ESS-16.11") - -;; Here we get to the meat of the problem -;;;###autoload -(defun ess-noweb-font-lock-mode ( &optional arg) - ;; FIXME: Don't define a new minor mode. Instead, arrange for normal - ;; font-lock to call our functions such as - ;; ess-noweb-font-lock-fontify-chunk-by-number. - "Minor mode for syntax highlighting when using `ess-noweb-mode' to edit noweb files. -Each chunk is fontified in accordance with its own mode." - (interactive "P") - (if (or ess-noweb-mode ess-noweb-font-lock-mode) - (progn - ;; This bit is tricky: copied almost verbatim from bib-cite-mode.el - ;; It seems to ensure that the variable ess-noweb-font-lock-mode is made - ;; local to this buffer. It then sets ess-noweb-font-lock-mode to `t' if - ;; 1) It was called with a prefix argument greater than 0 - ;; or 2) It was called with no argument, and ess-noweb-font-lock-mode is - ;; currently nil - ;; ess-noweb-font-lock-mode is nil if the prefix argument was <= 0 or there - ;; was no prefix argument and ess-noweb-font-lock-mode is currently `t' - (set (make-local-variable 'ess-noweb-font-lock-mode) - (if arg - (> (prefix-numeric-value arg) 0) - (not ess-noweb-font-lock-mode))) - ;; Now, if ess-noweb-font-lock-mode is true, we want to turn - ;; ess-noweb-font-lock-mode on - (cond - (ess-noweb-font-lock-mode ;Setup the minor-mode - (when (and (boundp 'global-font-lock-mode) global-font-lock-mode) - (mapc #'ess-noweb-make-variable-permanent-local - '(font-lock-fontify-buffer-function - font-lock-unfontify-buffer-function)) - (setq font-lock-fontify-buffer-function #'nwfl-donowt) - (setq font-lock-unfontify-buffer-function #'nwfl-donowt)) - (mapc #'ess-noweb-make-variable-permanent-local - '(ess-noweb-font-lock-mode - font-lock-dont-widen - ;; font-lock-beginning-of-syntax-function - syntax-begin-function - ess-noweb-use-font-lock-mode - after-change-functions)) - (setq ess-noweb-font-lock-mode t - font-lock-dont-widen t) - (add-hook 'after-change-functions - #'font-lock-after-change-function nil t) - ;; FIXME: Why add ess-noweb-font-lock-mode-fn to our own hook, - ;; instead of just calling ess-noweb-font-lock-mode-fn directly? - (add-hook 'ess-noweb-font-lock-mode-hook #'ess-noweb-font-lock-mode-fn) - (add-hook 'ess-noweb-changed-chunk-hook - #'ess-noweb-font-lock-fontify-this-chunk) - (run-hooks 'ess-noweb-font-lock-mode-hook) - (message "ess-noweb-font-lock mode: use `M-x ess-noweb-font-lock-describe-mode' for more info")) - ;; If we didn't do the above, then we want to turn ess-noweb-font-lock-mode - ;; off, no matter what (hence the condition `t') - (t - (when (and (boundp 'global-font-lock-mode) global-font-lock-mode) - ;; (setq font-lock-fontify-buffer-function - ;; 'font-lock-default-fontify-buffer) - ;; Get back our unfontify buffer function - (setq font-lock-unfontify-buffer-function - #'font-lock-default-unfontify-buffer)) - (remove-hook 'ess-noweb-font-lock-mode-hook #'ess-noweb-font-lock-mode-fn) - (remove-hook 'ess-noweb-changed-chunk-hook - #'ess-noweb-font-lock-fontify-this-chunk) - (remove-hook 'after-change-functions - #'font-lock-after-change-function ) - (font-lock-default-unfontify-buffer) - (setq ess-noweb-use-font-lock-mode nil) - (message "ess-noweb-font-lock-mode removed")))) - (message "ess-noweb-font-lock-mode can only be used with ess-noweb-mode"))) - -(defun ess-noweb-start-of-syntax () - "Go to the place to start fontifying from" - (interactive) - (goto-char (car (ess-noweb-chunk-region)))) - -(defvar font-latex-extend-region-functions) -(defvar syntax-begin-function) - -(defun ess-noweb-font-lock-fontify-chunk-by-number ( chunk-num ) - "Fontify chunk CHUNK-NUM based on the current major mode." - (save-excursion - (font-lock-set-defaults) - ;; (setq old-beginning-of-syntax font-lock-beginning-of-syntax-function) - (setq syntax-begin-function #'ess-noweb-start-of-syntax) - (setq font-lock-keywords - ;; (append font-lock-keywords - ;; '(("\\(\\[\\[\\)\\([^]]*\\]*\\)\\(\\]\\]\\|\\$\\)" - ;; (1 ess-noweb-font-lock-brackets-face prepend ) - ;; (2 ess-noweb-font-lock-code-quote-face prepend) - ;; (3 ess-noweb-font-lock-brackets-face prepend)) - ;; ("^[ \t\n]*\\(<<\\)\\([^>]*\\)\\(>>=?\\)" - ;; (1 ess-noweb-font-lock-brackets-face prepend ) - ;; (2 ess-noweb-font-lock-chunk-name-face prepend) - ;; (3 ess-noweb-font-lock-brackets-face prepend)) - ;; ("^@[ \t\n]+" - ;; (0 ess-noweb-font-lock-doc-start-face prepend ))))) - (append font-lock-keywords - '(("^[ \t\n]*\\(<<\\)\\([^>]*\\)\\(>>=?\\)" - ;; FIXME: Why not use ess-noweb-font-lock-brackets-face? - (1 font-lock-reference-face prepend ) - ;; FIXME: Why not use ess-noweb-font-lock-chunk-name-face? - (2 font-lock-keyword-face prepend) - (3 font-lock-reference-face prepend)) - ("^@[ \t\n]+" - (0 font-lock-reference-face prepend ))))) - - - (let ((r (cons (marker-position (cdr (aref ess-noweb-chunk-vector - chunk-num))) - (marker-position (cdr (aref ess-noweb-chunk-vector - (1+ chunk-num)))))) - (font-latex-extend-region-functions nil);; don't extend anything - (font-lock-extend-region-functions nil)) ;; this infloops :( - (save-restriction - (narrow-to-region (car r) (cdr r)) - ;; (sit-for 3) - (font-lock-fontify-region (car r) (cdr r))) - t))) - - -(defun ess-noweb-font-lock-fontify-this-chunk () - "Fontify this chunk according to its own major mode. -Since we are in the chunk, the major mode will already have been set -by ess-noweb-mode.el" - (interactive) - (ess-noweb-font-lock-fontify-chunk-by-number (ess-noweb-find-chunk-index-buffer))) - -(defun ess-noweb-font-lock-initial-fontify-buffer () - "Applies syntax highlighting to some or all chunks in a noweb buffer. -The number of chunks is set by `ess-noweb-font-lock-max-initial-chunks': if -this is nil, the entire buffer is fontified. -It is intended to be called when first entering `ess-noweb-font-lock-mode'. -For other purposes, use `ess-noweb-font-lock-fontify-chunks'." - (interactive) - ;; This will be tricky. It will be very slow to go throught the chunks - ;; in order, switching major modes all the time. - ;; So, we will do the documentation in one pass, the code in a second - ;; pass. This could still be a little slow if we have to swap between - ;; different code modes regularly, but it should be bearable. It should - ;; only happen when the file is first read in, anyway - (save-excursion - (let (start-chunk end-chunk this-chunk) - (setq this-chunk (ess-noweb-find-chunk-index-buffer)) - (if ess-noweb-font-lock-max-initial-chunks - (progn - (setq start-chunk - (max 0 - (- this-chunk - (/ ess-noweb-font-lock-max-initial-chunks 2)))) - ;; Don't you just love hairy lisp syntax ? The above means set the - ;; starting chunk to the current chunk minus half of - ;; ess-noweb-font-lock-max-initial-chunks, unless that is negative in - ;; which case set it to 0 - (setq end-chunk (+ start-chunk ess-noweb-font-lock-max-initial-chunks)) - (if (> end-chunk (- (length ess-noweb-chunk-vector) 2)) - (setq end-chunk (- (length ess-noweb-chunk-vector) 2)))) - ;; If ess-noweb-font-lock-max-initial-chunks is nil, do the whole buffer - (progn - (setq start-chunk 0) - (setq end-chunk (- (length ess-noweb-chunk-vector) 2)))) - (ess-noweb-font-lock-fontify-chunks start-chunk end-chunk)))) - -(defun ess-noweb-font-lock-fontify-buffer () - "This function will fontify each chunk in the buffer appropriately." - (interactive) - (let ((start-chunk 0) - (end-chunk (- (length ess-noweb-chunk-vector) 2))) - (ess-noweb-font-lock-fontify-chunks start-chunk end-chunk))) - -(defun ess-noweb-font-lock-fontify-chunks (start-chunk end-chunk) - "Fontify a noweb file from START-CHUNK to END-CHUNK." - (interactive) - (let ((chunk-counter start-chunk)) - (save-excursion - (message "Fontifying from %d to %d" start-chunk end-chunk) - ;; Want to set DOC mode for the first Doc chunk, not for the others - (while (stringp (car (aref ess-noweb-chunk-vector chunk-counter))) - (setq chunk-counter (+ chunk-counter 1))) - (goto-char (cdr (aref ess-noweb-chunk-vector chunk-counter))) - (ess-noweb-select-mode) - ;; Now go through the chunks, fontifying the documentation ones. - (while (<= chunk-counter end-chunk) - (if (not (stringp (car (aref ess-noweb-chunk-vector chunk-counter)))) - (ess-noweb-font-lock-fontify-chunk-by-number chunk-counter)) - (message "Fontifying documentation chunks: chunk %d" chunk-counter) - (setq chunk-counter (+ 1 chunk-counter))) - ;; Go back to the start and go through the chunks, fontifying the code ones. - (setq chunk-counter start-chunk) - (message "About to do code chunks") - (while (<= chunk-counter end-chunk) - (when (stringp (car (aref ess-noweb-chunk-vector chunk-counter))) - ;; It's a code chunk: goto it to set the correct code mode, then - ;; fontify it. - (message "Fontifying code chunks: chunk %d" chunk-counter) - (goto-char (cdr (aref ess-noweb-chunk-vector chunk-counter))) - (ess-noweb-select-mode) - (ess-noweb-font-lock-fontify-this-chunk)) - (setq chunk-counter (1+ chunk-counter)))) - (ess-noweb-select-mode))) - -(defun ess-noweb-font-lock-mode-fn() - "Function that is intended to be attached to ess-noweb-font-lock-mode-hook." - (ess-noweb-font-lock-initial-fontify-buffer)) - -;; This is a wee bit of a hack. If people attach `turn-on-font-lock' -;; to their major mode hook, it will play hell with -;; ess-noweb-font-lock-mode. I had hoped that providing a replacement -;; `nw-turn-on-font-lock' would solve the problem, but it didn't -;; (sometimes turn-on-font-lock appears in places other than -;; `.emacs', such as in ESS). So rather than have it fall over if -;; turn-on-lock was around, I redefined turn-on-font-lock to do the -;; right thing. - -(define-obsolete-function-alias 'nw-turn-on-font-lock - #'turn-on-font-lock "ESS-16.11") - -(defadvice turn-on-font-lock (around ess-noweb-font-lock activate) - ;; FIXME: An advice on turn-on-font-lock is definitely not sufficient, - ;; since font-lock can be enabled without going through turn-on-font-lock! - (if (not ess-noweb-mode) - ad-do-it - (if (and (not ess-noweb-font-lock-mode) ess-noweb-use-font-lock-mode) - (ess-noweb-font-lock-mode)))) - -(provide 'ess-noweb-font-lock-mode) -;; ***** -;; -;; Adnan Yaqub (AYaqub@orga.com) -;; ORGA Kartensysteme GmbH // An der Kapelle 2 // D-33104 Paderborn // Germany -;; Tel. +49 5254 991-823 //Fax. +49 5254 991-749 - - -;;; ess-noweb-font-lock-mode.el ends here diff --git a/elpa/ess-20181109.703/ess-noweb-mode.el b/elpa/ess-20181109.703/ess-noweb-mode.el deleted file mode 100644 index cd10276a..00000000 --- a/elpa/ess-20181109.703/ess-noweb-mode.el +++ /dev/null @@ -1,1896 +0,0 @@ -;;; ess-noweb-mode.el --- edit noweb files with GNU Emacs - -;; Copyright (C) 1995 by Thorsten.Ohl @ Physik.TH-Darmstadt.de -;; with a little help from Norman Ramsey -;; and Mark Lunt -;; and A.J. Rossini -;; Copyright (C) 1999--2010 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. -;; Copyright (C) 2011--2012 A.J. Rossini, Richard M. Heiberger, Martin Maechler, -;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. - -;; ESS-related Changes first added by Mark Lunt and A.J. Rossini, March, 1999. - -;; Maintainer: ESS-core - -;; This program 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 program 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 -;; https://www.r-project.org/Licenses/ - -;; See bottom of this file for information on language-dependent -;; highlighting, and recent changes. -;; - -;; BASED ON: (from Mark Lunt). -;; -- Id: ess-noweb-mode.el,v 1.11 1999/03/21 20:14:41 root Exp -- - - -;;; NEWS: - -;; * [tho] M-n q, aka: M-x ess-noweb-fill-chunk -;; -;; * [tho] `M-n TAB', aka: `M-x ess-noweb-complete-chunk' -;; -;; * [tho] ess-noweb-occur -;; -;; * [nr] use `M-n' instead of `C-c n' as default command prefix -;; -;; * [nr] don't be fooled by -;; -;; @ -;; <>= -;; int foo; -;; @ %def foo -;; Here starts a new documentation chunk! -;; <>= -;; int bar; -;; -;; * [nr] switch mode changing commands off during isearch-mode -;; -;; * [tho] ess-noweb-goto-chunk proposes a default -;; -;; * commands for tangling, weaving,.. for Sweave: --> ./ess-swv.el -;; - - -;;; TODO: - -;; * _maybe_ replace our `ess-noweb-chunk-vector' by text properties. We -;; could then use highlighting to jazz up the visual appearance. -;; (Highlighting is sorted: `ess-noweb-chunk-vector' can be -;; ditched. It is simple to determine if we are in a doc or code -;; chunk.) -;; -;; * wrapped `ess-noweb-goto-next' and `ess-noweb-goto-previous' -;; -;; * more range checks and error exits -;; -;; * `ess-noweb-hide-code-quotes' should be superfluous now, and could -;; be removed. For ESS 5.3.10, we disable these, using the new variable -;; ess-noweb-code-quote-handling. If nobody misses that code-protecting -;; behavior, all that should be removed entirely. - -;;; Code: - -(require 'ess-custom) -(require 'ess-utils) - -(defvar weave-process) - - -;;; Variables - -;; (defconst ess-noweb-mode-RCS-Id -;; "Imported to ESS Subversion repository and RCS ids not maintained.") - -;; (defconst ess-noweb-mode-RCS-Name -;; " ") - -(defvar ess-noweb-mode-prefix "\M-n" - "*Prefix key to use for noweb mode commands. -The value of this variable is checked as part of loading noweb mode. -After that, changing the prefix key requires manipulating keymaps.") - -(defvar ess-noweb-mode-load-hook nil - "Hook that is run after noweb mode is loaded.") - -(defvar ess-noweb-mode-hook nil - "Hook that is run after entering noweb mode.") - -(defvar ess-noweb-select-code-mode-hook nil - "Hook that is run after the code mode is selected. -This is the place to overwrite keybindings of the ess-noweb-CODE-MODE.") - -(defvar ess-noweb-select-doc-mode-hook nil - "Hook that is run after the documentation mode is selected. -This is the place to overwrite keybindings of the ess-noweb-DOC-MODE.") - -(defvar ess-noweb-select-mode-hook nil - "Hook that is run after the documentation or the code mode is selected. -This is the place to overwrite keybindings of the other modes.") - -(defvar ess-noweb-changed-chunk-hook nil - "Hook that is run every time point moves from one chunk to another. -It will be run whether or not the major-mode changes.") - -(defvar ess-noweb-default-code-mode 'fundamental-mode - "Default major mode for editing code chunks. -This is set to FUNDAMENTAL-MODE by default, but you might want to -change this in the Local Variables section of your file to something -more appropriate, like C-MODE, FORTRAN-MODE, or even -INDENTED-TEXT-MODE.") - -(defvar ess-noweb-code-mode 'c-mode - "Major mode for editing this particular code chunk. -It defaults to ess-noweb-default-code-mode, but can be reset by a comment -on the first line of the chunk containing the string -\"-*- NEWMODE -*-\" or -\"-*- NEWMODE-mode -*-\" or -\"-*- mode: NEWMODE -*- \" or -\"-*- mode: NEWMODE-mode -*- \" -Option three is recommended, as it is the closest to standard emacs usage.") - -(defvar ess-noweb-default-doc-mode 'latex-mode - "Major mode for editing documentation chunks. -Sensible choices would be tex-mode, latex-mode, sgml-mode, or -html-mode. Maybe others will exist someday.") - -(defvar ess-noweb-doc-mode-syntax-table nil - "A syntax-table syntax table that makes quoted code in doc chunks to -behave.") - -(defvar ess-noweb-last-chunk-index 0 - "This keeps track of the chunk we have just been in. If this is not -the same as the current chunk, we have to check if we need to change -major mode.") - -(defvar ess-noweb-chunk-vector nil - "Vector of the chunks in this buffer.") - -(defvar ess-noweb-narrowing nil - "If not NIL, the display will always be narrowed to the -current chunk pair.") - -(defvar ess-noweb-electric-@-and-< t - "If not nil, the keys `@' and `<' will be bound to ess-noweb-ELECTRIC-@ -and ess-noweb-ELECTRIC-<, respectively.") - -(defvar ess-noweb-use-mouse-navigation t - "If not nil, enables moving between chunks using mouse-1. -Clicking on the '<<' at the beginning of a chunk name takes you to the -previous occurence of that chunk name, clicking on the '>>' takes you -to the next. -Assumes mouse-1 is bound to mouse-set-point, so if you have rebound -mouse-1, this will override your binding.") - -(defvar ess-noweb-code-quotes-handling nil - "If not nil, the function pair \\[ess-noweb-hide-code-quotes] and -\\[ess-noweb-restore-code-quotes] are used to \"protect\" code inside -\"[[\" .. \"]]\" pairs. Note that rarely this has been found to be buggy -with the \"catastrophic\" consequence of whole parts of your document being -replaced by sequences of '*'.") - -(defvar ess-noweb-doc-mode ess-noweb-default-doc-mode - "Default major mode for editing noweb documentation chunks. -It is not possible to have more than one doc-mode in a file. -However, this variable is used to determine whether the doc-mode needs -to by added to the mode-line") - -;; The following is apparently broken -- dangling code that was -;; commented out. Need to see if we can get it working? - -(defvar ess-noweb-weave-options "-delay") -(defvar ess-noweb-latex-viewer "xdvi") -(defvar ess-noweb-html-viewer "netscape") - -(defun ess-noweb-weave (&optional name) - (interactive) - (let ((buffer (get-buffer-create "Weave Buffer"))) - (if (not name) - (progn - ;; Assume latex documentation, but set to html if appropriate - (if (eq ess-noweb-doc-mode 'html-mode) - (setq name (concat (substring (buffer-file-name) 0 - (string-match ".nw" name)) - ".html")) - (setq name (concat (substring (buffer-file-name) 0 - (string-match ".nw" name)) - ".tex"))))) - (setq name (concat "> " name)) - (setq ess-noweb-weave-options (concat ess-noweb-weave-options name)) - (start-process weave-process buffer "noweave" ess-noweb-weave-options))) -;;(defun ess-noweb-view ()) - - -;;; Setup -(defvar ess-noweb-mode nil - "Buffer local variable, T iff this buffer is edited in noweb mode.") - -;; For some reason that I do not understand, `newline' does not do the -;; right thing in quoted code. If point is not preceded by whitespace, -;; it moves to the beginning of the current line, not the beginning of -;; the new line. `newline 1' works fine, hence the kludge. I'd love to -;; understand what's going on, though. Try running M-x newline in the -;; middle of a code quote in a doc chunk to see -;; what I mean: its odd. - -(defun ess-noweb-newline (&optional arg) - "A kludge to get round very odd behaviour of newline in quoted code." - (interactive "p") - (if arg (newline arg) (newline 1)) - (ess-noweb-indent-line)) - -(defvar ess-noweb-mode-prefix-map - (let ((map (make-sparse-keymap))) - (define-key map "\C-\M-x" 'ess-eval-chunk) - (define-key map "\C-c" 'ess-eval-chunk-and-step) - (define-key map "\C-n" 'ess-noweb-next-chunk) - (define-key map "\C-p" 'ess-noweb-previous-chunk) - (define-key map "\M-n" 'ess-noweb-goto-next) - (define-key map "\M-m" 'ess-noweb-insert-default-mode-line) - (define-key map "\M-p" 'ess-noweb-goto-previous) - (define-key map "c" 'ess-noweb-next-code-chunk) - (define-key map "C" 'ess-noweb-previous-code-chunk) - (define-key map "d" 'ess-noweb-next-doc-chunk) - (define-key map "D" 'ess-noweb-previous-doc-chunk) - (define-key map "g" 'ess-noweb-goto-chunk) - (define-key map "\C-l" 'ess-noweb-update-chunk-vector) - (define-key map "\M-l" 'ess-noweb-update-chunk-vector) - (define-key map "w" 'ess-noweb-copy-chunk-as-kill) - (define-key map "W" 'ess-noweb-copy-chunk-pair-as-kill) - (define-key map "k" 'ess-noweb-kill-chunk) - (define-key map "K" 'ess-noweb-kill-chunk-pair) - (define-key map "m" 'ess-noweb-mark-chunk) - (define-key map "M" 'ess-noweb-mark-chunk-pair) - (define-key map "n" 'ess-noweb-narrow-to-chunk) - (define-key map "N" 'ess-noweb-narrow-to-chunk-pair) - (define-key map "t" 'ess-noweb-toggle-narrowing) - (define-key map "\t" 'ess-noweb-complete-chunk) - (define-key map "q" 'ess-noweb-fill-chunk) - (define-key map "i" 'ess-noweb-new-chunk) - (define-key map "o" 'ess-noweb-occur) - ;;(define-key map "v" 'ess-noweb-mode-version) - (define-key map "h" 'ess-noweb-describe-mode) - ;; do *NOT* override C-h (give all keybindings startings with M-n! - map) - "noweb minor-mode prefix keymap") - -(defvar ess-noweb-minor-mode-map - (let ((map (make-sparse-keymap))) - (if ess-noweb-electric-@-and-< - (progn - (define-key map "@" 'ess-noweb-electric-@) - (define-key map "<" 'ess-noweb-electric-<))) - (define-key map "\M-q" 'ess-noweb-fill-paragraph-chunk) - (define-key map [(control meta ?\\)] 'ess-noweb-indent-region) - ;;(define-key map "\C-c\C-n" 'ess-noweb-indent-line) ; Override TeX-normal! - (define-key map "\t" 'ess-noweb-indent-line) - ;; (define-key map [tab] 'ess-noweb-indent-line) ;; interferes with ac - (define-key map "\r" 'ess-noweb-newline) - ;; (define-key map [return] 'ess-noweb-newline) ;; interferes with ac - (define-key map [mouse-1] 'ess-noweb-mouse-first-button) - (define-key map ess-noweb-mode-prefix ess-noweb-mode-prefix-map) - map) - "ESS Noweb minor mode keymap") - -(easy-menu-define - ess-noweb-minor-mode-menu ess-noweb-minor-mode-map - "Menu keymap for noweb." - '("Noweb" - ("Movement" - ["Previous chunk" ess-noweb-previous-chunk t] - ["Next chunk" ess-noweb-next-chunk t] - ["Previous chunk of same name" ess-noweb-goto-previous t] - ["Next chunk of same name" ess-noweb-goto-next t] - ["Goto chunk" ess-noweb-goto-chunk t] - ["Previous code chunk" ess-noweb-previous-code-chunk t] - ["Next code chunk" ess-noweb-next-code-chunk t] - ["Previous documentation chunk" ess-noweb-previous-doc-chunk t] - ["Next documentation chunk" ess-noweb-next-doc-chunk t]) - ("Editing" - ["Copy chunk" ess-noweb-copy-chunk-as-kill t] - ["Copy chunk pair" ess-noweb-copy-chunk-pair-as-kill t] - ["Kill chunk" ess-noweb-kill-chunk t] - ["Kill chunk pair" ess-noweb-kill-chunk-pair t] - ["Mark chunk" ess-noweb-mark-chunk t] - ["Mark chunk pair" ess-noweb-mark-chunk-pair t]) - ("Narrowing" - ["Narrow to chunk" ess-noweb-narrow-to-chunk t] - ["Narrow to chunk pair" ess-noweb-narrow-to-chunk-pair t] - ["Toggle auto narrowing" ess-noweb-toggle-narrowing t] - ["Widen" widen t]) - ("Modes" - ["Set documentation mode" ess-noweb-set-doc-mode t] - ["Set default code mode" ess-noweb-set-code-mode t] - ["Set code mode for this chunk" ess-noweb-set-this-code-mode t] - ["Insert default mode line" ess-noweb-insert-default-mode-line t]) - ("Tangling" - ["Tangle current chunk" ess-noweb-tangle-chunk t] - ["Tangle current thread" ess-noweb-tangle-current-thread t] - ["Tangle named thread" ess-noweb-tangle-thread t]) - ("Miscellaneous" - ["Complete chunk name" ess-noweb-complete-chunk t] - ["Fill current chunk" ess-noweb-fill-chunk t] - ["Insert new chunk" ess-noweb-new-chunk t] - ["Update the chunk vector" ess-noweb-update-chunk-vector t] - ["Chunk occurrences" ess-noweb-occur t]) - "--" - ["Help" ess-noweb-describe-mode t] - ;;["Version" ess-noweb-mode-version t] - )) - -;; Add ess-noweb-mode to the list of minor modes -(if (not (assq 'ess-noweb-mode minor-mode-alist)) - (setq minor-mode-alist (append minor-mode-alist - (list '(ess-noweb-mode " Noweb"))))) -;; Add ess-noweb-minor-mode-map to the list of minor-mode keymaps -;; available. Then, whenever ess-noweb-mode is activated, the keymap is -;; automatically activated -(if (not (assq 'ess-noweb-mode minor-mode-map-alist)) - (setq minor-mode-map-alist - (cons (cons 'ess-noweb-mode ess-noweb-minor-mode-map) - minor-mode-map-alist))) - -(defun ess-noweb-minor-mode (&optional arg) - "Minor meta mode for editing noweb files. See ess-noweb-mode." - (interactive) - (ess-noweb-mode arg)) ; this was ess-noweb-minor-mode??? (truly recursive) - -(declare-function ess-noweb-font-lock-mode "ess-noweb-font-lock-mode") - -;;;###autoload -(defun ess-noweb-mode ( &optional arg ) - "Minor meta mode for editing noweb files. -`Meta' refers to the fact that this minor mode is switching major -modes depending on the location of point. - -The following special keystrokes are available in noweb mode: - -Movement: -\\[ess-noweb-next-chunk] \tgoto the next chunk -\\[ess-noweb-previous-chunk] \tgoto the previous chunk -\\[ess-noweb-goto-previous] \tgoto the previous chunk of the same name -\\[ess-noweb-goto-next] \tgoto the next chunk of the same name -\\[ess-noweb-goto-chunk] \t\tgoto a chunk -\\[ess-noweb-next-code-chunk] \t\tgoto the next code chunk -\\[ess-noweb-previous-code-chunk] \t\tgoto the previous code chunk -\\[ess-noweb-next-doc-chunk] \t\tgoto the next documentation chunk -\\[ess-noweb-previous-doc-chunk] \t\tgoto the previous documentation chunk - -Copying/Killing/Marking/Narrowing: -\\[ess-noweb-copy-chunk-as-kill] \t\tcopy the chunk the point is in into the kill ring -\\[ess-noweb-copy-chunk-pair-as-kill] \t\tcopy the pair of doc/code chunks the point is in -\\[ess-noweb-kill-chunk] \t\tkill the chunk the point is in -\\[ess-noweb-kill-chunk-pair] \t\tkill the pair of doc/code chunks the point is in -\\[ess-noweb-mark-chunk] \t\tmark the chunk the point is in -\\[ess-noweb-mark-chunk-pair] \t\tmark the pair of doc/code chunks the point is in -\\[ess-noweb-narrow-to-chunk] \t\tnarrow to the chunk the point is in -\\[ess-noweb-narrow-to-chunk-pair] \t\tnarrow to the pair of doc/code chunks the point is in -\\[widen] \twiden -\\[ess-noweb-toggle-narrowing] \t\ttoggle auto narrowing - -Filling and Indenting: -\\[ess-noweb-fill-chunk] \tfill (or indent) the chunk at point according to mode -\\[ess-noweb-fill-paragraph-chunk] \tfill the paragraph at point, restricted to chunk -\\[ess-noweb-indent-line] \tindent the line at point according to mode - -Insertion: -\\[ess-noweb-insert-default-mode-line] \tinsert a line to set this file's code mode -\\[ess-noweb-new-chunk] \t\tinsert a new chunk at point -\\[ess-noweb-complete-chunk] \tcomplete the chunk name before point -\\[ess-noweb-electric-@] \t\tinsert a `@' or start a new doc chunk -\\[ess-noweb-electric-<] \t\tinsert a `<' or start a new code chunk - -Modes: -\\[ess-noweb-set-doc-mode] \t\tset the major mode for editing doc chunks -\\[ess-noweb-set-code-mode] \tset the major mode for editing code chunks -\\[ess-noweb-set-this-code-mode] \tset the major mode for editing this code chunk - -Misc: -\\[ess-noweb-occur] \t\tfind all occurrences of the current chunk -\\[ess-noweb-update-chunk-vector] \tupdate the markers for chunks -\\[ess-noweb-describe-mode] \tdescribe ess-noweb-mode -" (interactive "P") - ;; This bit is tricky: copied almost verbatim from bib-cite-mode.el - ;; It seems to ensure that the variable ess-noweb-mode is made - ;; local to this buffer. It then sets ess-noweb-mode to `t' if - ;; 1) It was called with an argument greater than 0 - ;; or 2) It was called with no argument, and ess-noweb-mode is - ;; currently nil - ;; ess-noweb-mode is nil if the argument was <= 0 or there - ;; was no argument and ess-noweb-mode is currently `t' - (kill-all-local-variables) - (set (make-local-variable 'ess-noweb-mode) - (if arg - (> (prefix-numeric-value arg) 0) - (not ess-noweb-mode))) - ;; Now, if ess-noweb-mode is true, we want to turn - ;; ess-noweb-mode on - (cond - (ess-noweb-mode ;Setup the minor-mode - (mapc 'ess-noweb-make-variable-permanent-local - '(ess-noweb-mode - ess-local-process-name ;; also made permanent in ess-mode, but let it be - ess-dialect - ess-language - ess-use-flymake - after-change-functions - before-change-functions - ess-noweb-narrowing - ess-noweb-chunk-vector - post-command-hook - isearch-mode-hook - isearch-mode-end-hook - ess-noweb-doc-mode - ess-noweb-code-mode - ess-noweb-default-code-mode - ess-noweb-last-chunk-index)) - (setq-local ess-use-flymake nil) - (ess-noweb-update-chunk-vector) - (setq ess-noweb-last-chunk-index - (if (equal 0 (ess-noweb-find-chunk-index-buffer)) 1 0)) - (if font-lock-mode - (progn - (font-lock-mode -1) - (ess-noweb-font-lock-mode 1))) - (add-hook 'post-command-hook 'ess-noweb-post-command-function) - - (add-hook 'after-change-functions 'ess-noweb-after-change-function nil t) - (add-hook 'before-change-functions 'ess-noweb-before-change-function nil t) - - (add-hook 'ess-noweb-select-doc-mode-hook 'ess-noweb-auto-fill-doc-mode) - (add-hook 'ess-noweb-select-code-mode-hook 'ess-noweb-auto-fill-code-mode) - (add-hook 'isearch-mode-hook 'ess-noweb-note-isearch-mode) - (add-hook 'isearch-mode-end-hook 'ess-noweb-note-isearch-mode-end) - (setq ess-noweb-doc-mode-syntax-table nil) - (run-hooks 'ess-noweb-mode-hook) - (message - "noweb mode: use `M-x ess-noweb-describe-mode' for further information")) - ;; If we didn't do the above, then we want to turn ess-noweb-mode - ;; off, no matter what (hence the condition `t') - (t - (remove-hook 'post-command-hook 'ess-noweb-post-command-function) - - (remove-hook 'after-change-functions 'ess-noweb-after-change-function t) - (remove-hook 'before-change-functions 'ess-noweb-before-change-function t) - - (remove-hook 'ess-noweb-select-doc-mode-hook 'ess-noweb-auto-fill-doc-mode) - (remove-hook 'ess-noweb-select-code-mode-hook 'ess-noweb-auto-fill-code-mode) - (remove-hook 'isearch-mode-hook 'ess-noweb-note-isearch-mode) - (remove-hook 'isearch-mode-end-hook 'ess-noweb-note-isearch-mode-end) - (if (and (boundp 'ess-noweb-font-lock-mode) - ess-noweb-font-lock-mode) - (progn - (ess-noweb-font-lock-mode -1) - (message "ESS-Noweb and ESS-Noweb-Font-Lock Modes Removed")) - (message "ESS-Noweb mode removed"))))) - -(defun ess-noweb-make-variable-permanent-local (var) - "Declare VAR buffer local, but protect it from beeing killed -by major mode changes." - (make-variable-buffer-local var) - (put var 'permanent-local 't)) - -(defun ess-noweb-note-isearch-mode () - "Take note of an incremental search in progress" - (remove-hook 'post-command-hook 'ess-noweb-post-command-function)) - -(defun ess-noweb-note-isearch-mode-end () - "Take note of an incremental search having ended" - (add-hook 'post-command-hook 'ess-noweb-post-command-function)) - -(defun ess-noweb-post-command-function () - "The hook being run after each command in noweb mode." - (ess-noweb-select-mode)) - -(defvar ess-noweb-chunk-boundary-changed nil - "Whether the current change affects a chunk boundary.") - -(defvar ess-noweb-chunk-boundary-regexp "^\\(@[^@]\\)\\|\\(<<\\)") - -(defun ess-noweb-before-change-function (begin end) - "Record changes to chunk boundaries." - (save-excursion - (goto-char begin) - (setq ess-noweb-chunk-boundary-changed - (re-search-forward ess-noweb-chunk-boundary-regexp end t)))) - -(defun ess-noweb-after-change-function (begin end length) - "Function to run after every change in a noweb buffer. -If the changed region contains a chunk boundary, it will update -the chunk vector" - (save-excursion - (goto-char begin) - (when (or ess-noweb-chunk-boundary-changed - (re-search-forward ess-noweb-chunk-boundary-regexp end t)) - (ess-noweb-update-chunk-vector) - (setq ess-noweb-chunk-boundary-changed nil)))) - - -;;; Chunks - -(defun ess-noweb-update-chunk-vector () - "Scan the whole buffer and place a marker at each \"^@\" and \"^<<\". -Record them in ess-noweb-CHUNK-VECTOR." - (interactive) - (save-excursion - (goto-char (point-min)) - (let ((chunk-list (list (cons 'doc (point-marker))))) - (while (re-search-forward "^\\(@\\( \\|$\\|\\( %def\\)\\)\\|<<\\(.*\\)>>=\\)" nil t) - (goto-char (match-beginning 0)) - ;; If the 3rd subexpression matched @ %def, we're still in a code - ;; chunk (sort of), so don't place a marker here. - (if (not (match-beginning 3)) - (setq chunk-list - ;; If the 4th subexpression matched inside <<...>>, - ;; we're seeing a new code chunk. - (cons (cons (if (match-beginning 4) - ;;buffer-substring-no-properties better - ;;than buffer-substring if highlighting - ;;may be used - (buffer-substring-no-properties - (match-beginning 4) (match-end 4)) - 'doc) - (point-marker)) - chunk-list)) - ;; Scan forward either to !/^@ %def/, which will start a docs chunk, - ;; or to /^<<.*>>=$/, which will start a code chunk. - (progn - (forward-line 1) - (while (looking-at "@ %def") - (forward-line 1)) - (setq chunk-list - ;; Now we can tell code vs docs - (cons (cons (if (looking-at "<<\\(.*\\)>>=") - (buffer-substring-no-properties - (match-beginning 1) (match-end 1)) - 'doc) - (point-marker)) - chunk-list)))) - (forward-line 1)) - (setq chunk-list (cons (cons 'doc (point-max-marker)) chunk-list)) - (setq ess-noweb-chunk-vector (vconcat (reverse chunk-list)))))) - -(defun ess-noweb-find-chunk () - "Return a pair consisting of the name (or 'DOC) and the -marker of the current chunk." - (if (not ess-noweb-chunk-vector) - (ess-noweb-update-chunk-vector)) - (aref ess-noweb-chunk-vector (ess-noweb-find-chunk-index-buffer))) - -(defun ess-noweb-chunk-is-code (index) - "Return t if the chunk 'index' is a code chunk, nil otherwise" - (interactive) - (stringp (car (ess-noweb-chunk-vector-aref index)))) - -(defun ess-noweb-in-code-chunk () - "Return t if we are in a code chunk, nil otherwise." - (interactive) - (ess-noweb-chunk-is-code (ess-noweb-find-chunk-index-buffer))) - -(defun ess-noweb-in-mode-line () - "Return the name of the mode to use if we are in a mode line, nil -otherwise." - (interactive) - (let (beg end mode) - (save-excursion - (beginning-of-line 1) - (and (progn - (ess-write-to-dribble-buffer - (format "(n-i-m-l: 1)")) - (search-forward "-*-" - (save-excursion (end-of-line) (point)) - t)) - (progn - (ess-write-to-dribble-buffer - (format "(n-i-m-l: 2)")) - (skip-chars-forward " \t") - (setq beg (point)) - (search-forward "-*-" - (save-excursion (end-of-line) (point)) - t)) - (progn - (ess-write-to-dribble-buffer - (format "(n-i-m-l: 3)")) - (forward-char -3) - (skip-chars-backward " \t") - (setq end (point)) - (goto-char beg) - (setq mode (concat - (downcase (buffer-substring beg end)) - "-mode")) - (if (and (>= (length mode) 11)) - (progn - (if - (equal (substring mode -10 -5) "-mode") - (setq mode (substring mode 0 -5))) - (if - (equal (substring mode 0 5) "mode:") - (setq mode (substring mode 6)))))) - (progn - (ess-write-to-dribble-buffer - (format "(n-i-m-l: 3) mode=%s" mode)) - (intern mode)))))) - -(defun ess-noweb-find-chunk-index-buffer () - "Return the index of the current chunk in ess-noweb-CHUNK-VECTOR." - (ess-noweb-find-chunk-index 0 (1- (length ess-noweb-chunk-vector)))) - -(defun ess-noweb-find-chunk-index (low hi) - (if (= hi (1+ low)) - low - (let ((med (/ (+ low hi) 2))) - (if (< (point) (cdr (aref ess-noweb-chunk-vector med))) - (ess-noweb-find-chunk-index low med) - (ess-noweb-find-chunk-index med hi))))) - -(defun ess-noweb-chunk-region () - "Return a pair consisting of the beginning and end of the current chunk." - (interactive) - (let ((start (ess-noweb-find-chunk-index-buffer))) - (cons (marker-position (cdr (aref ess-noweb-chunk-vector start))) - (marker-position (cdr (aref ess-noweb-chunk-vector (1+ start))))))) - -(defun ess-noweb-copy-code-chunk () - "Copy the current code chunk to the kill ring, excluding the chunk name. -This will be particularly useful when interfacing with ESS." - (interactive) - (let ((r (ess-noweb-chunk-region))) - (save-excursion - (goto-char (car r)) - (if (ess-noweb-in-code-chunk) - (progn - (beginning-of-line 2) - (copy-region-as-kill (point) (cdr r))))))) - -(defun ess-noweb-extract-code-chunk () - "Create a new buffer with the same name as the current code chunk, -and copy all code from chunks of the same name to it." - (interactive) - (save-excursion - (if (ess-noweb-in-code-chunk) - (progn - (let ((chunk-name (car (ess-noweb-find-chunk))) - (chunk-counter 0) - (copy-counter 0) - (this-chunk) (oldbuf (current-buffer))) - (if (get-buffer chunk-name) - (progn - (set-buffer-modified-p nil) - (kill-buffer chunk-name))) - (get-buffer-create chunk-name) - (message "Created buffer %s" chunk-name) - (while (< chunk-counter (- (length ess-noweb-chunk-vector) 2)) - (setq this-chunk (ess-noweb-chunk-vector-aref - chunk-counter)) - (message "Current buffer is %s" (car this-chunk)) - (if (equal chunk-name (car this-chunk)) - (progn - (setq copy-counter (+ copy-counter 1)) - (goto-char (cdr this-chunk)) - (ess-noweb-copy-code-chunk) - (set-buffer chunk-name) - (goto-char (point-max)) - (yank) - (set-buffer oldbuf))) - (setq chunk-counter (+ chunk-counter 1))) - (message "Copied %d bits" copy-counter) - (set-buffer chunk-name) - (copy-region-as-kill (point-min)(point-max))))))) - -(defun ess-noweb-chunk-pair-region () - "Return a pair consisting of the beginning and end of the current pair of -documentation and code chunks." - (interactive) - (let* ((start (ess-noweb-find-chunk-index-buffer)) - (end (1+ start))) - (if (ess-noweb-chunk-is-code start) - (cons (marker-position (cdr (aref ess-noweb-chunk-vector (1- start)))) - (marker-position (cdr (aref ess-noweb-chunk-vector end)))) - (while (not (ess-noweb-chunk-is-code end)) - (setq end (1+ end))) - (cons (marker-position (cdr (aref ess-noweb-chunk-vector start))) - (marker-position (cdr (aref ess-noweb-chunk-vector (1+ end)))))))) - -(defun ess-noweb-chunk-vector-aref (i) - (if (< i 0) - (error "Before first chunk.")) - (if (not ess-noweb-chunk-vector) - (ess-noweb-update-chunk-vector)) - (if (>= i (length ess-noweb-chunk-vector)) - (error "Beyond last chunk.")) - (aref ess-noweb-chunk-vector i)) - -(defun ess-noweb-complete-chunk () - "Complete the chunk name before point, if any." - (interactive) - (if (ess-noweb-in-code-chunk) - (let ((end (point)) - (beg (save-excursion - (if (re-search-backward "<<" - (save-excursion - (beginning-of-line) - (point)) - t) - (match-end 0) - nil)))) - (if beg - (let* ((pattern (buffer-substring beg end)) - (alist (ess-noweb-build-chunk-alist)) - (completion (try-completion pattern alist))) - (cond ((eq completion t)) - ((null completion) - (message "Can't find completion for \"%s\"" pattern) - (ding)) - ((not (string= pattern completion)) - (delete-region beg end) - (insert completion) - (if (not (looking-at ">>")) - (insert ">>"))) - (t - (message "Making completion list...") - (with-output-to-temp-buffer "*Completions*" - (display-completion-list (all-completions pattern alist))) - (message "Making completion list...%s" "done")))) - (message "Not at chunk name..."))) - (message "Not in code chunk..."))) - - -;;; Filling, etc - -(defun ess-noweb-hide-code-quotes () - "Replace all non blank characters in [[...]] code quotes -in the current buffer (you might want to narrow to the interesting -region first) by `*'. Return a list of pairs with the position and -value of the original strings." - (save-excursion - (let ((quote-list nil)) - (goto-char (point-min)) - (while (re-search-forward "\\[\\[" nil 'move) - (let ((beg (match-end 0)) - (end (if (re-search-forward "\\]\\]" nil t) - (match-beginning 0) - (point-max)))) - (goto-char beg) - (while (< (point) end) - ;; Move on to the next word: - (let ((b (progn - (skip-chars-forward " \t\n" end) - (point))) - (e (progn - (skip-chars-forward "^ \t\n" end) - (point)))) - (if (> e b) - ;; Save the string and a marker to the end of the - ;; replacement text. A marker to the beginning is - ;; useless. See ess-noweb-RESTORE-CODE-QUOTES. - (save-excursion - (setq quote-list (cons (cons (copy-marker e) - (buffer-substring b e)) - quote-list)) - (goto-char b) - (insert-char ?* (- e b) t) - (delete-char (- e b)))))))) - (reverse quote-list)))) - -(defun ess-noweb-restore-code-quotes (quote-list) - "Reinsert the strings modified by `ess-noweb-hide-code-quotes'." - (save-excursion - (mapcar (lambda (q) - (let* ((e (marker-position (car q))) - ;; Slightly inefficient, but correct way to find - ;; the beginning of the word to be replaced. - ;; Using the marker at the beginning will loose - ;; if whitespace has been rearranged - (b (save-excursion - (goto-char e) - (skip-chars-backward "*") - (point)))) - (delete-region b e) - (goto-char b) - (insert (cdr q)))) - quote-list))) - -(defun ess-noweb-fill-chunk () - "Fill the current chunk according to mode. -Run `fill-region' on documentation chunks and `indent-region' on code -chunks." - (interactive) - (save-excursion - (save-restriction - (ess-noweb-narrow-to-chunk) - (if (ess-noweb-in-code-chunk) - (progn - ;; Narrow to the code section proper; w/o the first and any - ;; index declaration lines. - (narrow-to-region (progn - (goto-char (point-min)) - (forward-line 1) - (point)) - (progn - (goto-char (point-max)) - (forward-line -1) - (while (looking-at "@") - (forward-line -1)) - (forward-line 1) - (point))) - (if (or indent-region-function indent-line-function) - (indent-region (point-min) (point-max) nil) - (error "No indentation functions defined in %s!" major-mode))) - (if ess-noweb-code-quotes-handling - (let ((quote-list (ess-noweb-hide-code-quotes))) - (fill-region (point-min) (point-max)) - (ess-noweb-restore-code-quotes quote-list)) - (fill-region (point-min) (point-max))))))) - -(defun ess-noweb-indent-region (beg end) - "If region fits inside current chunk, narrow to chunk and then -indent according to mode." - (interactive "r") - (let* ((inx (ess-noweb-find-chunk-index-buffer)) - (ch-beg (marker-position (cdr (aref ess-noweb-chunk-vector inx)))) - (ch-end (marker-position (cdr (aref ess-noweb-chunk-vector (1+ inx)))))) - - (if (and (< ch-beg beg) (> ch-end end)) - (save-excursion - (save-restriction - (setq beg (max beg (progn (goto-char ch-beg) - (forward-line 1) - (point)))) - (setq end (min end (progn (goto-char ch-end) - (forward-line -1) - (point)))) - (narrow-to-region beg end) - (indent-region beg end))) - (indent-region beg end)))) - - -(defun ess-noweb-indent-line () - "Indent the current line according to mode, after narrowing to this chunk." - (interactive) - (ess-noweb-update-chunk-vector) - (save-restriction - (ess-noweb-narrow-to-chunk) - (if (ess-noweb-in-code-chunk) - (progn - ;; Narrow to the code section proper; w/o the first and any - ;; index declaration lines. - (save-excursion - (narrow-to-region (progn - (goto-char (point-min)) - (forward-line 1) - (point)) - (progn - (goto-char (point-max)) - (forward-line -1) - (while (looking-at "@") - (forward-line -1)) - (forward-line 1) - (point)))))) - (indent-according-to-mode))) - -(defun ess-noweb-fill-paragraph-chunk (&optional justify) - "Fill a paragraph in the current chunk." - (interactive "P") - (ess-noweb-update-chunk-vector) - (save-excursion - (save-restriction - (ess-noweb-narrow-to-chunk) - (if (ess-noweb-in-code-chunk) - (progn - ;; Narrow to the code section proper; w/o the first and any - ;; index declaration lines. - (narrow-to-region (progn - (goto-char (point-min)) - (forward-line 1) - (point)) - (progn - (goto-char (point-max)) - (forward-line -1) - (while (looking-at "@") - (forward-line -1)) - (forward-line 1) - (point))) - (fill-paragraph justify)) - (if ess-noweb-code-quotes-handling - (let ((quote-list (ess-noweb-hide-code-quotes))) - (fill-paragraph justify) - (ess-noweb-restore-code-quotes quote-list)) - (fill-paragraph justify)))))) - -(defun ess-noweb-auto-fill-doc-chunk () - "Replacement for `do-auto-fill'." - (save-restriction - (narrow-to-region (car (ess-noweb-chunk-region)) - (save-excursion - (end-of-line) - (point))) - (if ess-noweb-code-quotes-handling - (let ((quote-list (ess-noweb-hide-code-quotes))) - (do-auto-fill) - (ess-noweb-restore-code-quotes quote-list)) - (do-auto-fill)))) - -(defun ess-noweb-auto-fill-doc-mode () - "Install the improved auto fill function, iff necessary." - (if auto-fill-function - (setq auto-fill-function 'ess-noweb-auto-fill-doc-chunk))) - -(defun ess-noweb-auto-fill-code-chunk () - "Replacement for do-auto-fill. Cancel filling in chunk headers" - (unless (save-excursion - (beginning-of-line) - (looking-at "<<")) - (do-auto-fill))) - -(defun ess-noweb-auto-fill-code-mode () - "Install the default auto fill function, iff necessary." - (if auto-fill-function - (setq auto-fill-function 'ess-noweb-auto-fill-code-chunk))) - -;;; Marking - -(defun ess-noweb-mark-chunk () - "Mark the current chunk." - (interactive) - (let ((r (ess-noweb-chunk-region))) - (goto-char (car r)) - (push-mark (cdr r) nil t))) - -(defun ess-noweb-mark-chunk-pair () - "Mark the current pair of documentation and code chunks." - (interactive) - (let ((r (ess-noweb-chunk-pair-region))) - (goto-char (car r)) - (push-mark (cdr r) nil t))) - - -;;; Narrowing - -(defun ess-noweb-toggle-narrowing (&optional arg) - "Toggle if we should narrow the display to the current pair of -documentation and code chunks after each movement. With argument: -switch narrowing on." - (interactive "P") - (if (or arg (not ess-noweb-narrowing)) - (progn - (setq ess-noweb-narrowing t) - (ess-noweb-narrow-to-chunk-pair)) - (setq ess-noweb-narrowing nil) - (widen))) - -(defun ess-noweb-narrow-to-chunk () - "Narrow the display to the current chunk." - (interactive) - (let ((r (ess-noweb-chunk-region))) - (narrow-to-region (car r) (cdr r)))) - -(defun ess-noweb-narrow-to-chunk-pair () - "Narrow the display to the current pair of documentation and code chunks." - (interactive) - (let ((r (ess-noweb-chunk-pair-region))) - (narrow-to-region (car r) (cdr r)))) - - -;;; Killing - -(defun ess-noweb-kill-chunk () - "Kill the current chunk." - (interactive) - (let ((r (ess-noweb-chunk-region))) - (kill-region (car r) (cdr r)))) - -(defun ess-noweb-kill-chunk-pair () - "Kill the current pair of chunks." - (interactive) - (let ((r (ess-noweb-chunk-pair-region))) - (kill-region (car r) (cdr r)))) - -(defun ess-noweb-copy-chunk-as-kill () - "Place the current chunk on the kill ring." - (interactive) - (let ((r (ess-noweb-chunk-region))) - (copy-region-as-kill (car r) (cdr r)))) - -(defun ess-noweb-copy-chunk-pair-as-kill () - "Place the current pair of chunks on the kill ring." - (interactive) - (let ((r (ess-noweb-chunk-pair-region))) - (copy-region-as-kill (car r) (cdr r)))) - - -;;; Movement - -(defun ess-noweb-sign (n) - "Return the sign of N." - (if (< n 0) -1 1)) - -(defun ess-noweb-next-doc-chunk (&optional cnt) - "Goto to the Nth documentation chunk from point." - (interactive "p") - (widen) - (let ((start (ess-noweb-find-chunk-index-buffer)) - (i 1)) - (while (<= i (abs cnt)) - (setq start (+ (ess-noweb-sign cnt) start)) - (while (ess-noweb-chunk-is-code start) - (setq start (+ (ess-noweb-sign cnt) start))) - (setq i (1+ i))) - (goto-char (marker-position (cdr (ess-noweb-chunk-vector-aref start)))) - (forward-char 1)) - (if ess-noweb-narrowing - (ess-noweb-narrow-to-chunk-pair))) - -(defun ess-noweb-previous-doc-chunk (&optional n) - "Goto to the -Nth documentation chunk from point." - (interactive "p") - (ess-noweb-next-doc-chunk (- n))) - -(defun ess-noweb-next-code-chunk (&optional cnt) - "Goto to the Nth code chunk from point." - (interactive "p") - (widen) - (let ((start (ess-noweb-find-chunk-index-buffer)) - (i 1)) - (while (<= i (abs cnt)) - (setq start (+ (ess-noweb-sign cnt) start)) - (while (not (ess-noweb-chunk-is-code start)) - (setq start (+ (ess-noweb-sign cnt) start))) - (setq i (1+ i))) - (goto-char (marker-position (cdr (ess-noweb-chunk-vector-aref start)))) - (forward-line 1)) - (if ess-noweb-narrowing - (ess-noweb-narrow-to-chunk-pair))) - -(defun ess-noweb-previous-code-chunk (&optional n) - "Goto to the -Nth code chunk from point." - (interactive "p") - (ess-noweb-next-code-chunk (- n))) - -(defun ess-noweb-next-chunk (&optional n) - "If in a documentation chunk, goto to the Nth documentation -chunk from point, else goto to the Nth code chunk from point." - (interactive "p") - (if (ess-noweb-in-code-chunk) - (ess-noweb-next-code-chunk n) - (ess-noweb-next-doc-chunk n))) - -(defun ess-noweb-previous-chunk (&optional n) - "If in a documentation chunk, goto to the -Nth documentation -chunk from point, else goto to the -Nth code chunk from point." - (interactive "p") - (ess-noweb-next-chunk (- n))) - -(defvar ess-noweb-chunk-history nil - "") - -(defun ess-noweb-goto-chunk () - "Goto the named chunk." - (interactive) - (widen) - (let* ((completion-ignore-case t) - (alist (ess-noweb-build-chunk-alist)) - (chunk (ess-completing-read - "Chunk" (delete "" (mapcar 'car alist)) nil t nil - ess-noweb-chunk-history (ess-noweb-goto-chunk-default)))) - (goto-char (cdr (assoc chunk alist)))) - (if ess-noweb-narrowing - (ess-noweb-narrow-to-chunk-pair))) - -(defun ess-noweb-goto-chunk-default () - (save-excursion - (if (re-search-backward "<<" - (save-excursion - (beginning-of-line) - (point)) - 'move) - (goto-char (match-beginning 0))) - (if (re-search-forward "<<\\(.*\\)>>" - (save-excursion - (end-of-line) - (point)) - t) - (buffer-substring (match-beginning 1) (match-end 1)) - nil))) - -(defun ess-noweb-build-chunk-alist () - (if (not ess-noweb-chunk-vector) - (ess-noweb-update-chunk-vector)) - ;; The naive recursive solution will exceed MAX-LISP-EVAL-DEPTH in - ;; buffers w/ many chunks. Maybe there is a tail recursivce solution, - ;; but iterative solutions should be acceptable for dealing with vectors. - (let ((alist nil) - (i (1- (length ess-noweb-chunk-vector)))) - (while (>= i 0) - (let* ((chunk (aref ess-noweb-chunk-vector i)) - (name (car chunk)) - (marker (cdr chunk))) - (if (and (stringp name) - (not (assoc name alist))) - (setq alist (cons (cons name marker) alist)))) - (setq i (1- i))) - alist)) - -(defun ess-noweb-goto-next (&optional cnt) - "Goto the continuation of the current chunk." - (interactive "p") - (widen) - (if (not ess-noweb-chunk-vector) - (ess-noweb-update-chunk-vector)) - (let ((start (ess-noweb-find-chunk-index-buffer))) - (if (not (ess-noweb-chunk-is-code start)) - (setq start (1+ start))) - (if (ess-noweb-chunk-is-code start) - (let ((name (car (ess-noweb-chunk-vector-aref start))) - (i 1)) - (while (<= i (abs cnt)) - (setq start (+ (ess-noweb-sign cnt) start)) - (while (not (equal (car (ess-noweb-chunk-vector-aref start)) - name)) - (setq start (+ (ess-noweb-sign cnt) start))) - (setq i (1+ i))) - (goto-char (marker-position - (cdr (ess-noweb-chunk-vector-aref start)))) - (forward-line 1)))) - (if ess-noweb-narrowing - (ess-noweb-narrow-to-chunk-pair))) - -(defun ess-noweb-goto-previous (&optional cnt) - "Goto the previous chunk." - (interactive "p") - (ess-noweb-goto-next (- cnt))) - -(defun ess-noweb-occur (arg) - "Find all occurences of the current chunk. -This function simply runs OCCUR on \"<>\"." - (interactive "P") - (let ((n (if (and arg - (numberp arg)) - arg - 0)) - (idx (ess-noweb-find-chunk-index-buffer))) - (if (ess-noweb-chunk-is-code idx) - (occur (regexp-quote (concat "<<" - (car (aref ess-noweb-chunk-vector idx)) - ">>")) - n) - (setq idx (1+ idx)) - (while (not (ess-noweb-chunk-is-code idx)) - (setq idx (1+ idx))) - (occur (regexp-quote (concat "<<" - (car (aref ess-noweb-chunk-vector idx)) - ">>")) - n)))) - - -;;; Insertion - -(defun ess-noweb-new-chunk (name) - "Insert a new chunk." - (interactive "sChunk name: ") - (insert "@ \n<<" name ">>=\n") - (save-excursion - (insert "@ %def \n")) - (ess-noweb-update-chunk-vector)) - -(defun ess-noweb-at-beginning-of-line () - (equal (save-excursion - (beginning-of-line) - (point)) - (point))) - -(defun ess-noweb-electric-@ (arg) - "Smart incarnation of `@', starting a new documentation chunk, maybe. -If given an numerical argument, it will act just like the dumb `@'. -Otherwise and if at the beginning of a line in a code chunk: -insert \"@ \" and update the chunk vector." - (interactive "P") - (if arg - (self-insert-command (if (numberp arg) arg 1)) - (if (and (ess-noweb-at-beginning-of-line) - (ess-noweb-in-code-chunk)) - (progn - (insert "@ ") - (ess-noweb-update-chunk-vector)) - (self-insert-command 1)))) - -(defun ess-noweb-electric-< (arg) - "Smart incarnation of `<', starting a new code chunk, maybe. -If given an numerical argument, it will act just like the dumb `<'. -Otherwise and if at the beginning of a line in a documentation chunk: -insert \"<<>>=\", a closing \"@\" and a newline if necessary. Leave point -in the middle and and update the chunk vector." - (interactive "P") - (if arg - (self-insert-command (if (numberp arg) arg 1)) - (if (and (ess-noweb-at-beginning-of-line) - (not (ess-noweb-in-code-chunk))) - (progn - (insert "<<") - (save-excursion - (insert ">>=\n@ ") - (if (not (looking-at "\\s *$")) - (newline))) - (ess-noweb-update-chunk-vector)) - (self-insert-command 1)))) - - -;;; Modes - -(defun ess-noweb-set-chunk-code-mode () - "Set the ess-noweb-code-mode for the current chunk" - (interactive) - (if (ess-noweb-in-code-chunk) - (progn - ;; Reset code-mode to default and then check for a mode comment. - (setq ess-noweb-code-mode ess-noweb-default-code-mode) - (let (mode chunk-name) - (save-excursion - (save-restriction - (end-of-line) - (re-search-backward "^[ \t]*<<\\(.*\\)>>=" nil t) - (setq chunk-name (match-string 1)) - (widen) - (goto-char (point-min)) - (re-search-forward (concat "^<<" (regexp-quote chunk-name) ">>=") nil t) - (beginning-of-line 2) - (setq mode (ess-noweb-in-mode-line)) - (if (functionp mode) - (setq ess-noweb-code-mode mode)))))) - (error "This only makes sense in a code chunk"))) - -(defun ess-noweb-set-doc-syntax-table () - "Sets the doc-mode syntax-table to treat code quotes as comments." - (interactive) - (let ((square-bracket-string (char-to-string (char-syntax ?\[)))) - (if (string= square-bracket-string "(") - (progn - (modify-syntax-entry ?\[ "(]12b" ess-noweb-doc-mode-syntax-table) - (modify-syntax-entry ?\] ")[34b" ess-noweb-doc-mode-syntax-table)) - (progn - (modify-syntax-entry ?\[ - (concat square-bracket-string " 12b") - ess-noweb-doc-mode-syntax-table) - (modify-syntax-entry ?\] - (concat square-bracket-string " 34b") - ess-noweb-doc-mode-syntax-table))))) - -(defun ess-noweb-select-mode () - "Select ess-noweb-DOC-MODE or ess-noweb-CODE-MODE, as appropriate." - (interactive) - (let ((this-chunk-index (ess-noweb-find-chunk-index-buffer))) - ;; Has the last change to the buffer taken us into a different - ;; chunk ? - (if (not (equal this-chunk-index ess-noweb-last-chunk-index)) - (progn - (setq ess-noweb-last-chunk-index this-chunk-index) - (if (ess-noweb-in-code-chunk) - ;; Inside a code chunk - (progn - ;; Find out which code mode to use - (ess-noweb-set-chunk-code-mode) - ;; If we aren't already using it, use it. - (if (not (equal major-mode ess-noweb-code-mode)) - (progn - (funcall ess-noweb-code-mode) - (run-hooks 'ess-noweb-select-mode-hook) - (run-hooks 'ess-noweb-select-code-mode-hook)))) - ;; Inside a documentation chunk - (progn - (if (not (equal major-mode ess-noweb-doc-mode)) - (progn - (funcall ess-noweb-doc-mode))) - (if (not ess-noweb-doc-mode-syntax-table) - (progn - (message "Setting up syntax table") - (setq ess-noweb-doc-mode-syntax-table - (make-syntax-table (syntax-table))) - (ess-noweb-set-doc-syntax-table))) - (set-syntax-table ess-noweb-doc-mode-syntax-table) - (run-hooks 'ess-noweb-select-mode-hook) - (run-hooks 'ess-noweb-select-doc-mode-hook))) - (run-hooks 'ess-noweb-changed-chunk-hook))))) - -(defun ess-noweb-set-doc-mode (mode) - "Change the major mode for editing documentation chunks." - (interactive "CNew major mode for documentation chunks: ") - (setq ess-noweb-doc-mode mode) - (setq ess-noweb-doc-mode-syntax-table nil) - ;;Pretend we've changed chunk, so the mode will be reset if necessary - (setq ess-noweb-last-chunk-index (1- ess-noweb-last-chunk-index)) - (ess-noweb-select-mode)) - -(defun ess-noweb-set-code-mode (mode) - "Change the major mode for editing all code chunks." - (interactive "CNew major mode for all code chunks: ") - (setq ess-noweb-default-code-mode mode) - ;;Pretend we've changed chunk, so the mode will be reset if necessary - (setq ess-noweb-last-chunk-index (1- ess-noweb-last-chunk-index)) - (ess-noweb-select-mode)) - -(defun ess-noweb-set-this-code-mode (mode) - "Change the major mode for editing this code chunk. -The only sensible way to do this is to add a mode line to the chunk" - (interactive "CNew major mode for this code chunk: ") - (if (ess-noweb-in-code-chunk) - (progn - (setq ess-noweb-code-mode mode) - (save-excursion - (save-restriction - (let (chunk-name) - (widen) - (end-of-line) - (re-search-backward "^[ \t]*<<\\(.*\\)>>=" nil t) - (setq chunk-name (match-string 1)) - (goto-char (point-min)) - (re-search-forward (concat "^<<" (regexp-quote chunk-name) ">>=") nil t) - (beginning-of-line 2)) - ;; remove mode-line, if there is one - (if (ess-noweb-in-mode-line) - (progn - (kill-line) - (kill-line))) - (if (not (equal ess-noweb-code-mode ess-noweb-default-code-mode)) - (progn - (setq mode (substring (symbol-name mode) 0 -5)) - ;; Need to set major mode so that we can comment out - ;; the mode line - (funcall ess-noweb-code-mode) - (if (not (boundp 'comment-start)) - (setq comment-start "#")) - (insert comment-start - " -*- " mode - " -*- " comment-end "\n"))) - (setq ess-noweb-last-chunk-index (1- ess-noweb-last-chunk-index))))) - (message "This only makes sense in a code chunk."))) - -;;; Misc - -(defun ess-noweb-mode-version () - "Echo the RCS identification of noweb mode." - (interactive) - (message "Thorsten's ess-noweb-mode, now part of ESS version %s" ess-version)) - -(defun ess-noweb-describe-mode () - "Describe noweb mode." - (interactive) - (describe-function 'ess-noweb-mode)) - -(defun ess-noweb-insert-default-mode-line () - "Insert line that will set the noweb mode of this file in emacs. -The file is set to use the current doc and default-code modes, so -ensure they are set correctly (with ess-noweb-set-code-mode and -ess-noweb-set-doc-mode) before calling this function" - (interactive) - (save-excursion - (goto-char 1) - (if (ess-noweb-in-mode-line) - (progn - (kill-line) - (kill-line))) - (if (not (eq major-mode ess-noweb-doc-mode)) - (ess-noweb-select-mode)) - (insert comment-start " -*- mode: noweb; ess-noweb-default-code-mode: " - (symbol-name ess-noweb-default-code-mode) - (if (not (eq ess-noweb-doc-mode ess-noweb-default-doc-mode)) - (concat "; ess-noweb-doc-mode: " (symbol-name - ess-noweb-doc-mode) ";") - ";") - " -*-" comment-end "\n")) - (ess-noweb-select-mode)) - -(defun ess-noweb-mouse-first-button (event) - (interactive "e") - (mouse-set-point event) - (if (and ess-noweb-use-mouse-navigation - (eq (save-excursion - (end-of-line) - (re-search-backward "^[\t ]*\\(<<\\)\\(.*\\)\\(>>\\)" nil t)) - (save-excursion - (beginning-of-line) (point)))) - (progn - (if (< (point) (match-beginning 2)) - (let ((chunk-name (buffer-substring-no-properties - (match-beginning 2) - (match-end 2)))) - (re-search-backward (concat "<<" (regexp-quote chunk-name) ">>") nil t)) - (if (and (<= (match-end 2) (point)) - (> (+ 2 (match-end 2)) (point))) - (let ((chunk-name (buffer-substring-no-properties - (match-beginning 2) - (match-end 2)))) - (re-search-forward (concat "<<" (regexp-quote chunk-name) ">>") nil t))))))) - - -;;; Debugging - -(defun ess-noweb-log (s) - (let ((b (current-buffer))) - (switch-to-buffer (get-buffer-create "*noweb-log*")) - (goto-char (point-max)) - (setq buffer-read-only nil) - (insert s) - (setq buffer-read-only t) - (switch-to-buffer b))) - - - - - -(defvar ess-noweb-thread-alist nil - "A list of threads in the current buffer. -Each entry in the list contains 5 elements: -1) The name of the threads -2) The name of the immdiate parent thread in which it is used (nil if - it is a \"top-level\" thread which is not used anywhere). -3) The name of the top-level parent thread in which it is used (i.e. a - thread in which it is used but which is not itself used anywhere: - nil if this thread is not used anywhere. -4) The format string to use to define line numbers in the output - file of this thread. Should only be set if this thread is not used - anywhere: if a thread is used as part of another thread, the parent - thread's format string should be used. -5) If this is nil, tabs are converted to spaces in the tangled - file. If it is a number, tabs are copied to the tangled file - unchanged, and tabs are also used for indentation, with the number - of spaces per tab defined by this number. This MUST be set in order - to tangle makefiles, which depend on tabs.Should only be set if - this thread is not used anywhere. otherwise set to nil. " - ) - -(defun ess-noweb-update-thread-alist () - "Updates the list of threads in the current buffer. -Each entry in the list contains 5 elements: -1) The name of the thread -2) The name of the immdiate parent thread in which it is used (nil if - it is a \"top-level\" thread which is not used anywhere). -3) The name of the top-level parent thread in which it is used (i.e. a - thread in which it is used but which is not itself used anywhere: - nil if this thread is not used anywhere. -4) The format string to use to define line numbers in the output - file of this thread. Should only be set if this thread is not used - anywhere: if a thread is used as part of another thread, the parent - thread's format string should be used. -5) If this is nil, tabs are converted to spaces in the tangled - file. If it is a number, tabs are copied to the tangled file - unchanged, and tabs are also used for indentation, with the number - of spaces per tab defined by this number. This MUST be set in order - to tangle makefiles, which depend on tabs.Should only be set if - this thread is not used anywhere. otherwise set to nil. " - (interactive) - (save-excursion - (goto-char (point-min)) - (let ((thread-alist) (thread-list-entry) (chunk-use-name) - (current-thread) (new-thread-alist)) - (while (re-search-forward - "^[ \t]*<<\\(.*\\)>>\\(=\\)?" nil t) - (goto-char (match-beginning 0)) - ;; Is this the definition of a chunk ? - (if (match-beginning 2) - ;;We have a chunk definition - (progn - ;; Get the thread name - (setq current-thread - (buffer-substring-no-properties (match-beginning 1) - (match-end 1))) - ;; Is this thread already in our list ? - (if (assoc current-thread thread-alist) - nil - (progn - ;; If not, create an entry with 4 nils at the end - (setq thread-list-entry - (list (cons current-thread - (make-list 4 nil)))) - ;; And add it to the list - (setq thread-alist - (append thread-alist thread-list-entry))))) - - ;; Not a definition but a use - (progn - ;; Get the thread name - (setq chunk-use-name - (buffer-substring-no-properties (match-beginning 1) - (match-end 1))) - ;; Has the thread already been defined before being used ? - (if (setq thread-list-entry (assoc chunk-use-name - thread-alist)) - ;; If it has, set its parent to be the thread we are in at the moment - (setcar (cdr thread-list-entry) current-thread) - ;; If not, add it to the list, with its parent name and 3 nils - (progn - (setq thread-list-entry - (list (cons chunk-use-name - (cons current-thread - (make-list 3 nil))))) - (setq thread-alist (append thread-alist thread-list-entry))))) - ) - ;;Go to the next line - (beginning-of-line 2)) - ;; Now, the second element of each entry points to that thread's - ;; immediate parent. Need to set it to the thread's ultimate - ;; parent. - (let ((thread-counter 0) - (this-thread) - (this-thread-parent)) - (while (<= thread-counter (1- (length thread-alist))) - (setq this-thread (nth thread-counter thread-alist)) - (setq this-thread-parent (assoc - (car (cdr this-thread)) - thread-alist)) - (while (not (equal nil (car (cdr this-thread-parent)))) - (setq this-thread-parent (assoc - (car (cdr this-thread-parent)) - thread-alist))) - (setq this-thread (cons (car this-thread) - (cons (car (cdr this-thread)) - (cons (car this-thread-parent) - (nthcdr 2 this-thread))))) - (setq new-thread-alist (append new-thread-alist (list this-thread))) - (setq thread-counter (1+ thread-counter)))) - - (setq ess-noweb-thread-alist new-thread-alist)))) - - - ; Option setting functions to go here - -(defun ess-noweb-set-thread-line-format ()) - -(defun ess-noweb-set-thread-tabs ()) - - -(defvar ess-noweb-default-line-number-format nil - "The format string to use to define line numbers in this thread. -If nil, do not use line numbers.") - -(defvar ess-noweb-default-line-number-skip-lines 0 - "The number of initial lines to output before the line number. -This may be useful in shell scripts, where the first line (or two) must have a - specific form.") - -(defvar ess-noweb-default-tab-width 8 - "If a number, convert tabs to that number of spaces in the output. If nil, let tabs through to the output unaltered.") - -(defvar ess-noweb-line-number-format ess-noweb-default-line-number-format - "The format string to use to define line numbers in this thread. -If nil, do not use line numbers.") - -(defvar ess-noweb-line-number-skip-lines ess-noweb-default-line-number-skip-lines - "The number of initial lines to output before the line number. -This may be useful in shell scripts, where the first line (or two) must have a - specific form.") - -(defvar ess-noweb-tab-width ess-noweb-default-tab-width - "If a number, convert tabs to that number of spaces in the output. If nil, let tabs through to the output unaltered.") - -(defun ess-noweb-get-thread-local-variables () - "Get the values of the variables that are local to a thread." - (interactive) - (save-excursion - (save-restriction - (end-of-line) - (re-search-backward "^[ \t]*<<\\(.*\\)>>=" nil t) - (let ((chunk-name (match-string 1))) - (widen) - (goto-char (point-min)) - (re-search-forward (concat "^<<" (regexp-quote chunk-name) ">>=") nil t) - (beginning-of-line 2) - (while (looking-at ".*-\*-.*-\*-") - (let ((this-line (buffer-substring-no-properties - (point) - (progn (end-of-line) (point))))) - (if (string-match - "mode:[ \t]*\\([^\t ]*\\)" this-line) - (setq ess-noweb-code-mode - (match-string-no-properties 1 this-line))) - (if (string-match - "ess-noweb-line-number-format:[ \t]*\"\\([^\"]*\\)\"" this-line) - (setq ess-noweb-line-number-format - (match-string-no-properties 1 this-line))) - (if (string-match - "ess-noweb-line-number-skip-lines:[ \t]*\\([^\t ]*\\)" this-line) - (setq ess-noweb-line-number-skip-lines - (string-to-number - (match-string-no-properties 1 this-line)))) - (if (string-match - "ess-noweb-tab-width:[ \t]*\\([^\t ]*\\)" this-line) - (setq ess-noweb-tab-width - (string-to-number - (match-string-no-properties 1 this-line)))) - (beginning-of-line 2))))))) - -(defun ess-noweb-reset-thread-local-variables () - "Resets the thread-local variables to their default values" - (setq ess-noweb-tab-width ess-noweb-default-tab-width) - (setq ess-noweb-line-number-format ess-noweb-default-line-number-format) - (setq ess-noweb-line-number-skip-lines ess-noweb-default-line-number-skip-lines)) - -(defun ess-noweb-write-line-number (line-number-format buffer) - (if line-number-format - (progn - (let ((this-line (count-lines (point-min)(point)))) - (while (string-match ".*\\(%L\\).*" line-number-format) - (setq line-number-format - (replace-match - (format "%d" this-line) t t line-number-format 1))) - (while (string-match ".*\\(%F\\).*" line-number-format) - (setq line-number-format - (replace-match - (format "%s" (buffer-file-name)) t t line-number-format 1))) - (while (string-match ".*\\(%N\\).*" line-number-format) - (setq line-number-format - (replace-match "\n" t t line-number-format 1))) - (with-current-buffer buffer - (insert line-number-format)))))) - - -(defun ess-noweb-tangle-chunk ( &optional buffer prefix-string) - "Generate the code produced by this chunk, & any threads used in this chunk." - (interactive) - (save-excursion - (ess-noweb-reset-thread-local-variables) - (ess-noweb-get-thread-local-variables) - (ess-noweb-update-chunk-vector) - (let* - ((chunk-end (progn - (end-of-line) - (re-search-forward "^@" nil t) - (beginning-of-line) - (point))) - ;;get name and start point of this chunk - (chunk-start (progn - (re-search-backward "^<<\\([^>]*\\)>>=$" nil t) - (beginning-of-line 2) - (point))) - (chunk-name (buffer-substring-no-properties - (match-end 1) - (match-beginning 1))) - ;; get end of this chunk - ;; Get information we need about this thread - (thread-info (assoc chunk-name ess-noweb-thread-alist)) - (thread-tabs (nth 4 thread-info)) - (line-number-format (nth 3 thread-info)) - (thread-name-re) (post-chunk) (pre-chunk) - (first-line t) - (tangle-buffer (generate-new-buffer "Tangle Buffer"))) - - (progn - (goto-char chunk-start) - ;; If this is a mode-line, ignore it - (while (looking-at ".*-\\*-.*-\\*-") - (beginning-of-line 2)) - ;; If we want to include line numbers, write one - (if line-number-format - (while (> ess-noweb-line-number-skip-lines 0) - (append-to-buffer tangle-buffer - (point) - (save-excursion - (progn - (end-of-line) - (point)))) - (beginning-of-line 2) - (1- ess-noweb-line-number-skip-lines)) - (ess-noweb-write-line-number line-number-format buffer)) - (message "Now at %d" (point)) - - (while (< (point) chunk-end) - (untabify (point) (save-excursion (beginning-of-line 2)(point))) - ;; This RE gave me trouble. Without the `\"', it - ;; recognised itself and so could not copy itself - ;; correctly. - (if (looking-at - "\\([^\n\"@]*\\)<<\\(.*\\)\\(>>\\)\\([^\n\"]*\\)$") - (progn - (save-excursion - (save-restriction - (setq thread-name-re - (concat "<<" - (regexp-quote (match-string 2)) - ">>=")) - (setq pre-chunk (match-string 1)) - (if prefix-string - (setq pre-chunk (concat prefix-string - pre-chunk))) - (setq post-chunk (match-string 4)) - (widen) - (goto-char (point-min)) - (while (re-search-forward thread-name-re nil t) - (ess-noweb-tangle-chunk tangle-buffer pre-chunk) - (forward-line 1))) - (if post-chunk - (with-current-buffer tangle-buffer - (backward-char) - (insert post-chunk) - (beginning-of-line 2))))) - - ;; Otherwise, just copy this line - (setq pre-chunk - (buffer-substring - (point) - (save-excursion - (beginning-of-line 2) - (point)))) - ;; Add a prefix if necessary - (if (and prefix-string - (> (length pre-chunk) 1)) - (setq pre-chunk (concat prefix-string - pre-chunk))) - ;; And copy it to the buffer - (with-current-buffer tangle-buffer - (insert pre-chunk))) - ;; If this is the first line of the chunk, we need to change - ;; prefix-string to consist solely of spaces - (if (and first-line - prefix-string) - (progn - (setq prefix-string - (make-string (length prefix-string) ?\ )) - (setq first-line nil))) - ;; Either way, go to the next line - (beginning-of-line 2)) - - (with-current-buffer tangle-buffer - (goto-char (point-min)) - (while (re-search-forward "\@\<<" nil t) - (replace-match "<<" nil nil) - (forward-char 3)) - (if thread-tabs - (progn - (setq tab-width thread-tabs) - (tabify (point-min)(point-max))) - (untabify (point-min)(point-max)))) - - (if buffer - (with-current-buffer buffer - (insert-buffer-substring tangle-buffer) - (kill-buffer tangle-buffer))) - )))) - -(defun ess-noweb-tangle-thread ( name &optional buffer) - "Given the name of a thread, tangles the thread to buffer. -If no buffer is given, create a new one with the same name as the -thread." - (interactive "sWhich thread ? ") - (if (not buffer) - (progn - (setq buffer (get-buffer-create name)) - (with-current-buffer buffer - (erase-buffer)))) - (save-excursion - (goto-char (point-min)) - (let ((chunk-counter 0)) - (while (re-search-forward - "^<<\\(.*\\)>>=[\t ]*" nil t) - (if (string= (match-string 1) - name) - (progn - (setq chunk-counter (1+ chunk-counter)) - (message "Found %d chunks" chunk-counter) - (ess-noweb-tangle-chunk buffer))))))) - -(defun ess-noweb-tangle-current-thread ( &optional buffer) - (interactive) - (save-excursion - (let* ((chunk-start - (progn - (re-search-backward "^<<\\([^>]*\\)>>=[\t ]*$" - nil t) - (beginning-of-line 2) - (point))) - (chunk-name (buffer-substring-no-properties - (match-end 1) - (match-beginning 1)))) - (ess-noweb-tangle-thread chunk-name buffer)))) - ;menu functions - - -;;; Finale - -(run-hooks 'ess-noweb-mode-load-hook) -(provide 'ess-noweb-mode) - -;; Changes made by Mark Lunt (mark.lunt@mrc-bsu.cam.ac.uk) 22/03/1999 - -;; The possibility of having code chunks using more than one language -;; was added. This was first developed by Adnan Yaqub -;; (AYaqub@orga.com) for syntax highlighting, but even people who hate -;; highlighting may like to maintain their Makefile with their code, -;; or test-scripts with their programs, or even user documentation as -;; latex-mode code chunks. -;; This required quite a few changes to ess-noweb-mode: -;; 1) A new variable `ess-noweb-default-code-mode' was create to do the job -;; `ess-noweb-code-mode' used to. -;; 2) ess-noweb-code-mode now contains the code-mode of the current chunk -;; 3) Each chunk can now have its own mode-line to tell emacs what -;; mode to use to edit it. The function `ess-noweb-in-mode-line' -;; recognises such mode-lines, and the function -;; `ess-noweb-set-this-code-mode' sets the code mode for the current -;; chunk and adds a mode-line if necessary. If several chunks have -;; the same name, the mode-line must appear in the first chunk with -;; that name. -;; 4) The mechanism for deciding whether to change mode was altered, -;; since the old method assumed a single code mode. Now, -;; `ess-noweb-last-chunk-index' keeps track of which chunk we were in -;; last. If we have moved to a different chunk, we have to check -;; which mode we should be in, and change if necessary. - -;; The keymap and menu-map handling was changed. Easymenu was used to -;; define the menu, and it the keymap was attached to the 'official' -;; minor-modes-keymaps list. This means that -;; 1) It was automatically loaded when ess-noweb-mode was active and -;; unloaded when it was inactive. -;; 2) There was no need to worry about the major mode map clobbering -;; it , since it takes precedence over the major mode -;; map. `ess-noweb-setup-keymap' is therefore now superfluous -;; The menu was also reorganised to make it less cluttered, so there -;; would be room for adding tangling and weaving commands (one day). - -;; Mouse navigation (at least under Emacs (AJR)) is supported, in so -;; far as clicking mouse-1 on the '<<' of a chunk name moves to the -;; previous instance of that chunk name, and clicking in the '>>' -;; moves to the next instance. They are not mouse-hightlighted, -;; though: too much hassle for zero added functionality. - -;; ess-noweb-doc-mode has been given its own syntax-table. It is the same -;; as the current doc-mode syntax-table, except that [[ is a comment -;; start and ]] a comment end. Fixes some ugliness in LaTeX-mode if -;; `$' or `%' appear in quoted code (or even `<<', which happens often -;; in C++). -;; (This should make ess-noweb-hide-code-quotes and -;; ess-noweb-restore-code-quotes unnecessary, but I have not yet removed -;; them, nor the calls to them). - -;; A new function `ess-noweb-indent-line' was defined and bound by default -;; to the tab key. This should indent the current line correctly in -;; whichever mode we are currently in. Previously, c-mode in -;; particular did not behave well with indentation (although -;; `ess-noweb-fill-chunk' worked fine). Indentation is only accurate -;; within the chunk: it does not know the syntax at the end of the -;; previous chunk, so it does not know where to start indenting in -;; this chunk. However, provided the indentation within each chunk is correct, -;; notangle will correctly indented code. - -;; (I think it would be good to separate filling and indenting, -;; though, since `indent-region' and `fill-region' have completely -;; different meanings in LaTeX-mode (and both are useful)) - -;; ess-noweb-mode and ess-noweb-minor-mode were given an optional argument, so -;; that (ess-noweb-mode -1) turns it off, (ess-noweb-mode 1) turns it on, and -;; (ess-noweb-mode) toggles it. This is considered normal for minor modes. - -;; buffer-substring changed to buffer-substring-no-properties: -;; comparisons with buffer-substring can be unreliable if highlighting -;; is used. - -;; New functions `ess-noweb-in-code-chunk' & `ess-noweb-chunk-is-code' created -;; to replace (if (stringp (car (ess-noweb-find-chunk)))) and -;; (if (stringp (car (ess-noweb-chunk-vector-aref index)))). - -;; `ess-noweb-insert-mode-line' was renamed -;; `ess-noweb-insert-default-mode-line' and modified to put the mode-line -;; at the start of the file and remove any existing mode-line. - -;; a '<=' in `ess-noweb-find-chunk-index' changed to '<', so we get the -;; right answer if point is on the first character in a chunk - -;; The name of `ess-noweb-post-command-hook' changed to -;; `ess-noweb-post-command-function', since it is a function. - -;; All the highlighting code moved to a separate file: -;; (ess-noweb-font-lock-mode.el) - -;; Menu driven tangling is in the process of being added. It can -;; currently tangle a single chunk or a series of chunks with the -;; same name (which I refer to as a thread) into a separate -;; buffer. This buffer can then be saved to a file, sent to an -;; interpreter, whatever. I haven't tested using line-numbers as yet. - -;;; ess-noweb-mode.el ends here diff --git a/elpa/ess-20181109.703/ess-noweb.el b/elpa/ess-20181109.703/ess-noweb.el deleted file mode 100644 index 09fb32ce..00000000 --- a/elpa/ess-20181109.703/ess-noweb.el +++ /dev/null @@ -1,130 +0,0 @@ -;;; ess-noweb.el --- support for Literate Data Analysis - -;; Copyright (C) 1999 Mark Lunt -;; Copyright (C) 1999--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Mark Lunt -;; A.J. Rossini -;; Created: April 18, 1999 -;; Maintainer: ESS-core - -;; Keywords: statistics, languages -;; Summary: Noweb support for ESS - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; Code for ESS and Literate Data Analysis. - -;;; Code: - - ; Requires and autoloads - -(require 'ess-custom) -(require 'ess-inf) -(require 'ess-noweb-mode) - - ; Variables - -(defvar ess-noweb-use-font-lock font-lock-mode - "Set to t if you want to use font-locking in ESS noweb buffers.") - -(if ess-noweb-use-font-lock - (require 'ess-noweb-font-lock-mode)) - - ; Functions - -;;*;; Code Chunk evaluation. - -(defun ess-eval-chunk (vis) - "Tangle the current chunk and send it to the inferior ESS process. -Arg has same meaning as for `ess-eval-region'." - (interactive "P") - (let ((process-name ess-local-process-name) - new-process-name - (cbuf (current-buffer)) - (temp-buffer (ess-create-temp-buffer "Tangle Buffer"))) - (save-excursion - (ess-noweb-tangle-chunk temp-buffer) - (set-buffer temp-buffer) - ;; When the temp buffer is created, it does not inherit any value - ;; of ess-local-process-name from the .Rnw buffer, so we have to set it - ;; here. If ess-local-process-name is not set in the .Rnw buffer, - ;; it will inherit the value that is chosen here. - (set (make-local-variable 'ess-local-process-name) process-name) - (ess-eval-region (point-min) (point-max) vis "Eval Chunk") - (if process-name - (kill-buffer temp-buffer) - ;; if process-name was nil, source buffer did not have a local process - ;; so keep value from temp buffer before killing it. - (setq new-process-name ess-local-process-name) - (kill-buffer temp-buffer) - (set-buffer cbuf) - (set (make-local-variable 'ess-local-process-name) new-process-name))))) - - -(defun ess-eval-chunk-and-step (&optional vis) - "Tangle the current chunk and send it to the inferior ESS process and -step to the next chunk" - (interactive) - (ess-eval-chunk vis) - (ess-noweb-next-code-chunk 1)) - -(defun ess-eval-chunk-and-go (vis) - "Tangle the current chunk, send to the ESS process, and go there. -Arg has same meaning as for `ess-eval-region'." - (interactive "P") - (ess-eval-chunk vis) - (ess-switch-to-ESS t)) - -;;*;; Thread code chunk evaluation - -;; -;; Threads are code chunks which fit into the same "buffer" (I'm (AJR) -;; abusing terminology, but what I mean is things like: -;; <>= -;; code for thing1 -;; @ -;; Documentation -;; <>= -;; continuing code for thing1 -;; @ -;; - -(defun ess-eval-thread (vis) - "Tangle all chunks in the current chunk-thread and send to the ESS process. -Arg has same meaning as for `ess-eval-region'." - (interactive "P") - (let ((temp-buffer (ess-create-temp-buffer "Tangle Buffer"))) - (ess-noweb-tangle-current-thread temp-buffer) - (set-buffer temp-buffer) - (ess-eval-region (point-min) (point-max) vis "Eval buffer") - (kill-buffer temp-buffer))) - -(defun ess-eval-thread-and-go (vis) - "Tangle all chunks in the current chunk-thread, send to ESS process, -and go there. Arg has same meaning as for `ess-eval-region'." - (interactive "P") - (ess-eval-thread vis) - (ess-switch-to-ESS t)) - - ; Provide package - -(provide 'ess-noweb) - -;;; ess-noweb.el ends here diff --git a/elpa/ess-20181109.703/ess-omg-d.el b/elpa/ess-20181109.703/ess-omg-d.el deleted file mode 100644 index a1107cd6..00000000 --- a/elpa/ess-20181109.703/ess-omg-d.el +++ /dev/null @@ -1,113 +0,0 @@ -;;; ess-omg-d.el --- Omega customization - -;; Copyright (C) 1999 A. J. Rossini -;; Copyright (C) 2000--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 15 August 1999 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file defines all the S-PLUS 3.x customizations for ess-mode. - -;;; Code: - -;;; Requires and Autoloads: - -(require 'ess-omg-l) -(require 'ess-trns) - -(defvar OMG-dialect-name "OMG" - "Name of 'dialect' for Omega.") ;easily changeable in a user's .emacs - -(defvar OMG-customize-alist - '((ess-local-customize-alist . 'OMG-customize-alist) - (ess-language . "OMG") - (ess-dialect . "omegahat") - (ess-suffix . "omg") - (ess-loop-timeout . 5000) - (ess-dump-filename-template . (replace-regexp-in-string - "S$" ess-suffix ; in the one from custom: - ess-dump-filename-template-proto)) - (ess-mode-editing-alist . OMG-editing-alist) - (ess-mode-syntax-table . OMG-syntax-table) - (ess-change-sp-regexp . "");fixme (if omegahat ever ..) - (ess-help-sec-regex . ess-help-S+-sec-regex) - (ess-help-sec-keys-alist . ess-help-S+sec-keys-alist) - (ess-object-name-db-file . "ess-omg-namedb.el" ) - (inferior-ess-program . inferior-OMG-program) - (inferior-ess-objects-command . "objects(%d)\n") - (inferior-ess-help-command . "help(\"%s\",pager=\"cat\",window=F)\n") - (inferior-ess-exit-command . "q()\n") - (inferior-ess-primary-prompt . "\\[[0-9]*\\]") - (inferior-ess-secondary-prompt . ".. ?") - (comint-use-prompt-regexp . t) - (inferior-ess-start-file . nil) ;"~/.ess-omg") - (inferior-ess-start-args . "")) - "Variables to customize for OMG (Omegahat)") - - -(defun OMG (&optional start-args) ; proc-name) - "Call Omegahat, from the Omega Group for Statistical Computing." - (interactive "P") - (setq ess-customize-alist OMG-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(OMG): ess-dialect=%s, buf=%s\n" - ess-dialect - (current-buffer))) - (let ((omg-start-args - (concat inferior-ess-start-args - (if start-args (read-string - "Starting Args [possibly -CORBA] ? ") - nil)))) - (inferior-ess omg-start-args))) - - - -(fset 'omegahat 'OMG) - -;;;###autoload -(defun OMG-mode (&optional proc-name) - "Major mode for editing Omegahat source. NOT EVEN STARTED." - (interactive) - (setq ess-customize-alist OMG-customize-alist) - (ess-mode OMG-customize-alist proc-name) - ;;(java-mode) - (setq major-mode 'OMG-mode)) - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.omg\\'" . omegahat-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.hat\\'" . omegahat-mode)) - -(fset 'omegahat-mode 'OMG-mode) - -(defun OMG-transcript-mode () - "Omegahat transcript mode." - (interactive) - (ess-transcript-mode OMG-customize-alist)) - - ; Provide package - -(provide 'ess-omg-d) - -;;; ess-omg-d.el ends here diff --git a/elpa/ess-20181109.703/ess-omg-l.el b/elpa/ess-20181109.703/ess-omg-l.el deleted file mode 100644 index 92f97dc6..00000000 --- a/elpa/ess-20181109.703/ess-omg-l.el +++ /dev/null @@ -1,326 +0,0 @@ -;;; ess-omg-l.el --- Support for editing Omega source code - -;; Copyright (C) 1999--2001 A.J. Rossini. -;; Copyright (C) 2002--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 15 Aug 1999 -;; Maintainer: ESS-core - -;; This file is part of ESS (Emacs Speaks Statistics). - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; Code for general editing Omega source code. This is initially -;; based upon the similarities between Omega and S, but will need to -;; diverge to incorporate the use of Java-style coding. - -;;; Code: - -(require 'ess-s-lang) - - ; Specialized functions - -(defun OMG-comment-indent () - "Indentation for Omega comments." - - (if (looking-at "////") - (current-column) - (if (looking-at "///") - (let ((tem (ess-calculate-indent))) - (if (listp tem) (car tem) tem)) - (skip-chars-backward " \t") - (max (if (bolp) 0 (1+ (current-column))) - comment-column)))) - -;; (defun OMG-indent-line () -;; "Indent current line as Omega code. -;; Return the amount the indentation changed by." -;; (let ((indent (ess-calculate-indent nil)) -;; beg shift-amt -;; (case-fold-search nil) -;; (pos (- (point-max) (point)))) -;; (beginning-of-line) -;; (setq beg (point)) -;; (cond ((eq indent nil) -;; (setq indent (current-indentation))) -;; (t -;; (skip-chars-forward " \t") -;; (if (and ess-indent-with-fancy-comments (looking-at "////")) -;; (setq indent 0)) -;; (if (and ess-indent-with-fancy-comments -;; (looking-at "//") -;; (not (looking-at "///"))) -;; (setq indent comment-column) -;; (if (eq indent t) (setq indent 0)) -;; (if (listp indent) (setq indent (car indent))) -;; (cond ((and (looking-at "else\\b") -;; (not (looking-at "else\\s_"))) -;; (setq indent (save-excursion -;; (ess-backward-to-start-of-if) -;; (+ ess-else-offset -;; (current-indentation))))) -;; ((= (following-char) ?}) -;; (setq indent -;; (+ indent -;; (- ess-close-brace-offset ess-indent-offset)))) -;; ((= (following-char) ?{) -;; (setq indent (+ indent ess-brace-offset))))))) -;; (skip-chars-forward " \t") -;; (setq shift-amt (- indent (current-column))) -;; (if (zerop shift-amt) -;; (if (> (- (point-max) pos) (point)) -;; (goto-char (- (point-max) pos))) -;; (delete-region beg (point)) -;; (indent-to indent) -;; ;; If initial point was within line's indentation, -;; ;; position after the indentation. -;; ;; Else stay at same point in text. -;; (if (> (- (point-max) pos) (point)) -;; (goto-char (- (point-max) pos)))) -;; shift-amt)) - - -;; (defun OMG-calculate-indent (&optional parse-start) -;; "Return appropriate indentation for current line as Omega code. -;; In usual case returns an integer: the column to indent to. -;; Returns nil if line starts inside a string, t if in a comment." -;; (save-excursion -;; (beginning-of-line) -;; (let ((indent-point (point)) -;; (case-fold-search nil) -;; state -;; containing-sexp) -;; (if parse-start -;; (goto-char parse-start) -;; (beginning-of-defun)) -;; (while (< (point) indent-point) -;; (setq parse-start (point)) -;; (setq state (parse-partial-sexp (point) indent-point 0)) -;; (setq containing-sexp (car (cdr state)))) -;; (cond ((or (nth 3 state) (nth 4 state)) -;; ;; return nil or t if should not change this line -;; (nth 4 state)) -;; ((null containing-sexp) -;; ;; Line is at top level. May be data or function definition, -;; (beginning-of-line) -;; (if (and (/= (following-char) ?\{) -;; (save-excursion -;; (ess-backward-to-noncomment (point-min)) -;; (ess-continued-statement-p))) -;; ess-continued-statement-offset -;; 0)) ; Unless it starts a function body -;; ((/= (char-after containing-sexp) ?{) -;; ;; line is expression, not statement: -;; ;; indent to just after the surrounding open. -;; (goto-char containing-sexp) -;; (let ((bol (save-excursion (beginning-of-line) (point)))) - -;; ;; modified by shiba@isac 7.3.1992 -;; (cond ((and (numberp ess-expression-offset) -;; (re-search-backward "[ \t]*expression[ \t]*" bol t)) -;; ;; This regexp match every "expression". -;; ;; modified by shiba -;; ;;(forward-sexp -1) -;; (beginning-of-line) -;; (skip-chars-forward " \t") -;; ;; End -;; (+ (current-column) ess-expression-offset)) -;; ((and (numberp ess-arg-function-offset) -;; (re-search-backward -;; "=[ \t]*\\s\"*\\(\\w\\|\\s_\\)+\\s\"*[ \t]*" -;; bol -;; t)) -;; (forward-sexp -1) -;; (+ (current-column) ess-arg-function-offset)) -;; ;; "expression" is searched before "=". -;; ;; End - -;; (t -;; (progn (goto-char (1+ containing-sexp)) -;; (current-column)))))) -;; (t -;; ;; Statement level. Is it a continuation or a new statement? -;; ;; Find previous non-comment character. -;; (goto-char indent-point) -;; (ess-backward-to-noncomment containing-sexp) -;; ;; Back up over label lines, since they don't -;; ;; affect whether our line is a continuation. -;; (while (eq (preceding-char) ?\,) -;; (ess-backward-to-start-of-continued-exp containing-sexp) -;; (beginning-of-line) -;; (ess-backward-to-noncomment containing-sexp)) -;; ;; Now we get the answer. -;; (if (ess-continued-statement-p) -;; ;; This line is continuation of preceding line's statement; -;; ;; indent ess-continued-statement-offset more than the -;; ;; previous line of the statement. -;; (progn -;; (ess-backward-to-start-of-continued-exp containing-sexp) -;; (+ ess-continued-statement-offset (current-column) -;; (if (save-excursion (goto-char indent-point) -;; (skip-chars-forward " \t") -;; (eq (following-char) ?{)) -;; ess-continued-brace-offset 0))) -;; ;; This line starts a new statement. -;; ;; Position following last unclosed open. -;; (goto-char containing-sexp) -;; ;; Is line first statement after an open-brace? -;; (or -;; ;; If no, find that first statement and indent like it. -;; (save-excursion -;; (forward-char 1) -;; (while (progn (skip-chars-forward " \t\n") -;; (looking-at "//")) -;; ;; Skip over comments following openbrace. -;; (forward-line 1)) -;; ;; The first following code counts -;; ;; if it is before the line we want to indent. -;; (and (< (point) indent-point) -;; (current-column))) -;; ;; If no previous statement, -;; ;; indent it relative to line brace is on. -;; ;; For open brace in column zero, don't let statement -;; ;; start there too. If ess-indent-offset is zero, -;; ;; use ess-brace-offset + ess-continued-statement-offset instead. -;; ;; For open-braces not the first thing in a line, -;; ;; add in ess-brace-imaginary-offset. -;; (+ (if (and (bolp) (zerop ess-indent-offset)) -;; (+ ess-brace-offset ess-continued-statement-offset) -;; ess-indent-offset) -;; ;; Move back over whitespace before the openbrace. -;; ;; If openbrace is not first nonwhite thing on the line, -;; ;; add the ess-brace-imaginary-offset. -;; (progn (skip-chars-backward " \t") -;; (if (bolp) 0 ess-brace-imaginary-offset)) -;; ;; If the openbrace is preceded by a parenthesized exp, -;; ;; move to the beginning of that; -;; ;; possibly a different line -;; (progn -;; (if (eq (preceding-char) ?\)) -;; (forward-sexp -1)) -;; ;; Get initial indentation of the line we are on. -;; (current-indentation)))))))))) - - - - -(defvar OMG-syntax-table nil "Syntax table for Omegahat code.") -(if S-syntax-table - nil - (setq S-syntax-table (make-syntax-table)) - (modify-syntax-entry ?\\ "\\" S-syntax-table) - (modify-syntax-entry ?+ "." S-syntax-table) - (modify-syntax-entry ?- "." S-syntax-table) - (modify-syntax-entry ?= "." S-syntax-table) - (modify-syntax-entry ?% "." S-syntax-table) - (modify-syntax-entry ?< "." S-syntax-table) - (modify-syntax-entry ?> "." S-syntax-table) - (modify-syntax-entry ?& "." S-syntax-table) - (modify-syntax-entry ?| "." S-syntax-table) - (modify-syntax-entry ?\' "\"" S-syntax-table) - ;;FIXME: This fails (warning in compilation): - ;;F "//" are 2 characters; ?// is invalid - ;;F NEXT LINE IS BOGUS IN XEMACS, AJR - ;;F (modify-syntax-entry ?// "<" S-syntax-table) ; open comment - ;;F (modify-syntax-entry ?\n ">" S-syntax-table) ; close comment - ;;(modify-syntax-entry ?. "w" S-syntax-table) ; "." used in S obj names - (modify-syntax-entry ?. "_" S-syntax-table) ; see above/below, - ; plus consider separation. - (modify-syntax-entry ?$ "_" S-syntax-table) ; foo.bar$hack is 1 symbol - (modify-syntax-entry ?_ "." S-syntax-table) - (modify-syntax-entry ?* "." S-syntax-table) - (modify-syntax-entry ?< "." S-syntax-table) - (modify-syntax-entry ?> "." S-syntax-table) - (modify-syntax-entry ?/ "." S-syntax-table)) - - -(defvar OMG-editing-alist - '((paragraph-start . (concat "^$\\|" page-delimiter)) - (paragraph-separate . (concat "^$\\|" page-delimiter)) - (paragraph-ignore-fill-prefix . t) - (require-final-newline . mode-require-final-newline) - (comment-start . "//") - (comment-start-skip . "//+ *") - (comment-column . 40) - ;;(comment-indent-function . 'S-comment-indent) - ;;(ess-comment-indent . 'S-comment-indent) - ;;(ess-indent-line . 'S-indent-line) - ;;(ess-calculate-indent . 'ess-calculate-indent) - (indent-line-function . 'ess-indent-line) - (parse-sexp-ignore-comments . t) - (ess-style . ess-default-style) - (ess-local-process-name . nil) - ;;(ess-keep-dump-files . 'ask) - (ess-mode-syntax-table . S-syntax-table) - (font-lock-defaults . '(ess-OMG-font-lock-defaults - nil nil ((?\. . "w"))))) - "General options for Omegahat source files.") - -(defvar ess-OMG-font-lock-defaults - (append (list - (cons "\\b[0-9]+\\b" 'font-lock-type-face) ; numbers - (cons (regexp-opt ess-S-keywords 'words) 'font-lock-keyword-face)) - (list - (cons (regexp-opt ess-S-assign-ops) - 'font-lock-constant-face) ; assign - (cons (regexp-opt ess-S-constants 'words) - 'font-lock-type-face) ; constants - (cons (regexp-opt ess-S-modifiers 'words) - 'font-lock-constant-face) ; modify search list or source - - (cons ess-S-function-name-regexp - '(1 font-lock-function-name-face keep)) - ; function name - (cons "\\s.\\|\\s(\\|\\s)" 'font-lock-function-name-face) - ;punctuation and parents (same as function not to cause vidual disturbance) - )) ; keywords - "Font-lock patterns used in `OMG' buffers.") - - -;;; Changes from S to S-PLUS 3.x. (standard S3 should be in ess-s-lang.el !). - -(defconst OMG-help-sec-keys-alist - '((?a . "ARGUMENTS:") - (?b . "BACKGROUND:") - (?B . "BUGS:") - (?d . "DESCRIPTION:") - (?D . "DETAILS:") - (?e . "EXAMPLES:") - (?n . "NOTE:") - (?O . "OPTIONAL ARGUMENTS:") - (?R . "REQUIRED ARGUMENTS:") - (?r . "REFERENCES:") - (?s . "SEE ALSO:") - (?S . "SIDE EFFECTS:") - (?u . "USAGE:") - (?v . "VALUE:")) - "Alist of (key . string) pairs for use in section searching.") -;;; `key' indicates the keystroke to use to search for the section heading -;;; `string' in an S help file. `string' is used as part of a -;;; regexp-search, and so specials should be quoted. - -(defconst ess-help-OMG-sec-regex "^[A-Z. ---]+:$" - "Reg(ular) Ex(pression) of section headers in help file") - -;;; S-mode extras of Martin Maechler, Statistik, ETH Zurich. - -;;>> Moved things into --> ./ess-utils.el - -(provide 'ess-omg-l) - -;;; ess-omg-l.el ends here diff --git a/elpa/ess-20181109.703/ess-pkg.el b/elpa/ess-20181109.703/ess-pkg.el deleted file mode 100644 index 5555b949..00000000 --- a/elpa/ess-20181109.703/ess-pkg.el +++ /dev/null @@ -1,20 +0,0 @@ -(define-package "ess" "20181109.703" "Emacs Speaks Statistics" - '((julia-mode "0.3")) - :authors - '(("David Smith" . "dsmith@stats.adelaide.edu.au") - ("A.J. Rossini" . "blindglobe@gmail.com") - ("Richard M. Heiberger" . "rmh@temple.edu") - ("Kurt Hornik" . "Kurt.Hornik@R-project.org") - ("Martin Maechler" . "maechler@stat.math.ethz.ch") - ("Rodney A. Sparapani" . "rsparapa@mcw.edu") - ("Stephen Eglen" . "stephen@gnu.org") - ("Sebastian P. Luque" . "spluque@gmail.com") - ("Henning Redestig" . "henning.red@googlemail.com") - ("Vitalie Spinu" . "spinuvit@gmail.com") - ("Lionel Henry" . "lionel.hry@gmail.com") - ("J. Alexander Branham" . "alex.branham@gmail.com")) - :maintainer - '("ESS Core Team" . "ESS-core@r-project.org")) -;; Local Variables: -;; no-byte-compile: t -;; End: diff --git a/elpa/ess-20181109.703/ess-r-a.el b/elpa/ess-20181109.703/ess-r-a.el deleted file mode 100644 index 02fdadce..00000000 --- a/elpa/ess-20181109.703/ess-r-a.el +++ /dev/null @@ -1,153 +0,0 @@ -;;; ess-r-a.el -- Possible local customizations for R with ESS. - -;; Copyright (C) 1997--2005 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 17 November 1999 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; The purpose of this file is to demonstrate some of the extras that -;; have been constructed for the ESS R mode; if they prove -;; interesting, then they might be migrated to ess-r-mode, the primary -;; ESS R mode tools. - -;;; Code: -(require 'ess-inf) -(require 'ess-r-mode) - -;; you can invoke ESS/R from emacs by typing -;; C-u M-x essr -;; with vsize set to (for example) 40M, and nsize set to 600000. - -;; Undefined on non-apple devices -(declare-function ns-do-applescript "nsfns.m" (script)) -(declare-function do-applescript "ess-r-a" (script)) -(unless (fboundp 'do-applescript) - (defalias 'do-applescript 'ns-do-applescript)) - -(defalias 'essr - (read-kbd-macro - "C-u M-x R RET - - vsize = 40M SPC - - nsize = 600000 2*RET")) - -(defun ess-r-do-region (start end &optional message) - "Send the current region to R via AppleScript." - (interactive "r\nP") - (message "Starting evaluation...") - (do-applescript (concat - "try\n" - "tell application \"R\"\n" - "activate\n" - "with timeout of 0 seconds\n" - "cmd \"" (buffer-substring start end) - "\"\n" - "end timeout\n" - "end tell\n" - "end try\n")) - (message "Finished evaluation")) - -(defun ess-r-do-line () - "Send the current line to R via AppleScript." - (interactive) ;; "r\nP") - (message "Starting evaluation...") - (save-excursion - (let ((end (point))) - (move-to-column 0) - (do-applescript (concat - "try\n" - "tell application \"R\"\n" - "activate\n" - "with timeout of 0 seconds\n" - "cmd \"" (buffer-substring (point) end) - "\"\n" - "end timeout\n" - "end tell\n" - "end try\n")))) - (message "Finished evaluation")) - -(defun ess-r-var (beg end) - "Load the current region of numbers into an R variable. Prompts for -a variable name. If none is given, it uses a default variable name, -e. BEG and END denote the region in the current buffer to be sent." - (interactive "r") - (save-window-excursion - (let ((tmp-file (make-temp-file "ess-r-var")) - cmd - var) - (write-region beg end tmp-file) - - ;; Decide on the variable name to use in R; could use completion. - (setq var (read-string "R Variable name (default e): ")) - (if (equal var "") - (setq var "e")) - - ;; Command to send to the R process. Get R to delete the file - ;; rather than Emacs in case it takes R a long time to run the - ;; scan command. - (setq cmd (concat var " <- scan(\"" tmp-file "\"); " - "unlink(\"" tmp-file "\")" )) - - ;; Put the output from the scan command into the process buffer so - ;; the user has a record of it. - (ess-execute cmd 'buffer)))) - - -;;; Peter Dalgaard's code. -;;; This needs to be cleaned and validated! - -(defun pd::set-up-demo () - (run-ess-r) - (split-window-vertically 6) - (find-file "demos.R") - - ;; Don't need to run this as a function -- ought to be fine if set - ;; just once. - - (defun ajr::scroll-to-end::peterD (emacs) - "Goal: map prompt to bottom of the screen after every command. -Alternatively, use the scroll-in-place package, not sure where that -is)." - (interactive) - (other-buffer 1) - (if (= emacs "emacs") - (setq scroll-up-aggressively t) - (setq scroll-conservatively -4)) ;; <- change this - (other-buffer -1)) - - (defun show-max-other-window () - (interactive) - (other-window 1) - (comint-show-maximum-output) - (other-window -1)) - - ;; call this once - ;; (ajr::scroll-to-end::peterD "emacs") - - (global-set-key [f11] 'show-max-other-window) - (global-set-key [f12] 'ess-eval-line-visibly-and-step)) - - - ; Provide package - -(provide 'ess-r-a) - -;;; ess-r-a.el ends here diff --git a/elpa/ess-20181109.703/ess-r-completion.el b/elpa/ess-20181109.703/ess-r-completion.el deleted file mode 100644 index 55080a20..00000000 --- a/elpa/ess-20181109.703/ess-r-completion.el +++ /dev/null @@ -1,521 +0,0 @@ -;;; ess-r-completion.el --- R completion -;; -;; Copyright (C) 2015 A.J. Rossini, Richard M. Heiberger, Martin Maechler, Kurt -;; Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. -;; -;; Author: Vitalie Spinu -;; Maintainer: ESS-core -;; -;; Keywords: languages, statistics -;; -;; 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 -;; https://www.r-project.org/Licenses/ -;; -;;; Commentary: -;; -;;; Code: - - -;;; ElDoc - -(require 'cl-lib) -(require 'ess-utils) -(require 'ess-inf) -(require 'ess-help) - -(defvar ac-auto-start) -(defvar ac-prefix) -(defvar ac-point) -(defvar ac-use-comphist) -(declare-function company-begin-backend "company") -(declare-function company-doc-buffer "company") - -(defun ess-r-eldoc-function () - "Return the doc string, or nil. -If an ESS process is not associated with the buffer, do not try -to look up any doc strings." - (interactive) - (when (and eldoc-mode ess-can-eval-in-background) - (let* ((proc (ess-get-next-available-process)) - (funname (and proc (or (and ess-eldoc-show-on-symbol ;; Aggressive completion - (thing-at-point 'symbol)) - (car (ess--fn-name-start)))))) - (when funname - (let* ((args (ess-function-arguments funname proc)) - (bargs (cadr args)) - (doc (mapconcat (lambda (el) - (if (equal (car el) "...") - "..." - (concat (car el) "=" (cdr el)))) - bargs ", ")) - (margs (nth 2 args)) - (W (- (window-width (minibuffer-window)) (+ 4 (length funname)))) - doc1) - (when doc - (setq doc (ess-eldoc-docstring-format funname doc)) - (when (and margs (< (length doc1) W)) - (setq doc1 (concat doc (propertize " || " 'face font-lock-function-name-face))) - (while (and margs (< (length doc1) W)) - (let ((head (pop margs))) - (unless (assoc head bargs) - (setq doc doc1 - doc1 (concat doc1 head "=, "))))) - (when (equal (substring doc -2) ", ") - (setq doc (substring doc 0 -2))) - (when (and margs (< (length doc) W)) - (setq doc (concat doc " {--}")))) - doc)))))) - -(defun ess-eldoc-docstring-format (funname doc) - (save-match-data - (let* (;; (name (symbol-name sym)) - (truncate (or (not (eq t eldoc-echo-area-use-multiline-p)) - (eq ess-eldoc-abbreviation-style 'aggressive))) - ;; Subtract 1 from window width since will cause a wraparound and - ;; resize of the echo area. - (W (1- (- (window-width (minibuffer-window)) - (+ 2 (length funname))))) - newdoc) - (setq doc - (if (or (<= (length doc) W) - (null ess-eldoc-abbreviation-style) - (eq 'none ess-eldoc-abbreviation-style)) - doc - ;;MILD filter - (setq doc (replace-regexp-in-string "TRUE" "T" doc)) - (setq doc (replace-regexp-in-string "FALSE" "F" doc)) - (if (or (<= (length doc) W) - (eq 'mild ess-eldoc-abbreviation-style)) - doc - ;;NORMAL filter (deal with long defaults) - (setq doc (replace-regexp-in-string - ;; function calls inside default docs foo(xxxx{..}) - "([^)]\\{8\\}\\([^)]\\{4,\\}\\))" - "{.}" doc nil nil 1)) - (if (<= (length doc) W) - doc - (setq doc (replace-regexp-in-string - " +[^ \t=,\"\]+=[^ \t]\\{10\\}\\([^ \t]\\{4,\\}\\)\\(,\\|\\'\\)" - "{.}," doc nil nil 1)) - (if (<= (length doc) W) - doc - (setq doc (replace-regexp-in-string - " +[^ \t=,\"]+=\\([^ \t]\\{10,\\}\\)\\(,\\|\\'\\)" - "{.}," doc nil nil 1)) - (if (or (<= (length doc) W) - (eq 'normal ess-eldoc-abbreviation-style)) - doc - ;;STRONG filter (replace defaults) - (setq doc (replace-regexp-in-string - " *[^ \t=,\"\\]* = \\([^ \t]\\{4,\\}\\)\\(,\\|\\'\\)" - "{.}," doc nil nil 1)) - (if (<= (length doc) W) - doc - (setq doc (replace-regexp-in-string - "\\(=[^FT0-9].+?\\)\\(, [^ =,\"\\]+=\\|\\'\\)" - "" doc nil nil 1)) - (setq doc (replace-regexp-in-string - "\\(=[^FT0-9].+?\\)\\(, [^ =,\"\\]+,\\|\\'\\)" - "" doc nil nil 1)) - (if (or (<= (length doc) W) - (eq 'strong ess-eldoc-abbreviation-style)) - doc - ;;AGGRESSIVE filter (truncate what is left) - (concat (substring doc 0 (- W 4)) "{--}"))))))))) - (when (and truncate - (> (length doc) W)) - (setq doc (concat (substring doc 0 (- W 4)) "{--}"))) - (format "%s: %s" (propertize funname 'face 'font-lock-function-name-face) doc)))) - - -;;; OBJECTS - -(defun ess-r-object-completion () - "Return completions at point in a format required by `completion-at-point-functions'." - (if (ess-make-buffer-current) - (let* ((funstart (cdr (ess--fn-name-start))) - (completions (ess-r-get-rcompletions funstart)) - (token (pop completions))) - (when completions - (list (- (point) (length token)) (point) - completions))) - (when (string-match "complete" (symbol-name last-command)) - (message "No ESS process associated with current buffer") - nil))) - -(defun ess-complete-object-name () - "Perform completion on `ess-language' object preceding point. -Uses \\[ess-r-complete-object-name] when `ess-use-R-completion' is non-nil, -or \\[ess-internal-complete-object-name] otherwise." - (interactive) - (if (ess-make-buffer-current) - (if ess-use-R-completion - (ess-r-complete-object-name) - (ess-internal-complete-object-name)) - ;; else give a message on second invocation - (when (string-match "complete" (symbol-name last-command)) - (message "No ESS process associated with current buffer") - nil))) - -(defun ess-list-object-completions nil - "List all possible completions of the object name at point." - (interactive) - (ess-complete-object-name)) - -(defun ess-complete-object-name-deprecated () - "Gives a deprecated message." - (interactive) - (ess-complete-object-name) - (message "C-c TAB is deprecated, completions has been moved to [M-TAB] (aka C-M-i)") - (sit-for 2 t)) - -;; This one is needed for R <= 2.6.x -- hence *not* obsoleting it -(defun ess-internal-complete-object-name () - "Perform completion on `ess-language' object preceding point. -The object is compared against those objects known by -`ess-get-object-list' and any additional characters up to ambiguity are -inserted. Completion only works on globally-known objects (including -elements of attached data frames), and thus is most suitable for -interactive `command-line' entry, and not so much for function editing -since local objects (e.g. argument names) aren't known. - -Use \\[ess-resynch] to re-read the names of the attached directories. -This is done automatically (and transparently) if a directory is -modified (S only!), so the most up-to-date list of object names is always -available. However attached dataframes are *not* updated, so this -command may be necessary if you modify an attached dataframe." - (interactive) - (ess-make-buffer-current) - (if (memq (char-syntax (preceding-char)) '(?w ?_)) - (let* ((comint-completion-addsuffix nil) - (bounds (ess-bounds-of-symbol)) - (beg (car bounds)) - (end (cdr bounds)) - (full-prefix (buffer-substring beg end)) - (pattern full-prefix) - ;; See if we're indexing a list with `$' - (listname (if (string-match "\\(.+\\)\\$\\(\\(\\sw\\|\\s_\\)*\\)$" - full-prefix) - (progn - (setq pattern - (if (not (match-beginning 2)) "" - (substring full-prefix - (match-beginning 2) - (match-end 2)))) - (substring full-prefix (match-beginning 1) - (match-end 1))))) - ;; are we trying to get a slot via `@' ? - (classname (if (string-match "\\(.+\\)@\\(\\(\\sw\\|\\s_\\)*\\)$" - full-prefix) - (progn - (setq pattern - (if (not (match-beginning 2)) "" - (substring full-prefix - (match-beginning 2) - (match-end 2)))) - (ess-write-to-dribble-buffer - (format "(ess-C-O-Name : slots..) : patt=%s" - pattern)) - (substring full-prefix (match-beginning 1) - (match-end 1))))) - (components (if listname - (ess-object-names listname) - (if classname - (ess-slot-names classname) - ;; Default case: It hangs here when - ;; options(error=recover) : - (ess-get-object-list ess-current-process-name))))) - ;; always return a non-nil value to prevent history expansions - (or (completion-in-region beg end components) 'none)))) - -(defun ess-r-get-rcompletions (&optional start end prefix allow-3-dots) - "Call R internal completion utilities (rcomp) for possible completions. -Optional START and END delimit the entity to complete, default to -bol and point. If PREFIX is given, perform completion on -PREFIX. First element of the returned list is the completion -token. Needs version of R >= 2.7.0." - (let* ((start (or start - (if prefix - 0 - (save-excursion (comint-bol nil) (point))))) - (end (or end (if prefix (length prefix) (point)))) - (prefix (or prefix (buffer-substring start end))) - ;; (opts1 (if no-args "op<-rc.options(args=FALSE)" "")) - ;; (opts2 (if no-args "rc.options(op)" "")) - (call1 (format ".ess_get_completions(\"%s\", %d)" - (ess-quote-special-chars prefix) - (- end start))) - (cmd (if allow-3-dots - (concat call1 "\n") - (concat "local({ r <- " call1 "; r[r != '...='] })\n")))) - (ess-get-words-from-vector cmd))) - -(defun ess-r-complete-object-name () - "Completion in R via R's completion utilities (formerly 'rcompgen'). -To be used instead of ESS' completion engine for R versions >= 2.7.0." - (interactive) - (let ((possible-completions (ess-r-get-rcompletions)) - token-string) - (when possible-completions - (setq token-string (pop possible-completions)) - (or (completion-in-region (- (point) (length token-string)) - (point) - possible-completions) - 'none)))) - -(defvar ess--cached-sp-objects nil) - -(defun ess--get-cached-completions (prefix &optional point) - (if (string-match-p "[]:$@[]" prefix) - ;; call proc for objects - (cdr (ess-r-get-rcompletions nil nil prefix)) - ;; else, get cached list of objects - (with-ess-process-buffer 'no-error ;; use proc buf alist - (ess-when-new-input last-cached-completions - (if (and ess--cached-sp-objects - (not (process-get *proc* 'sp-for-ac-changed?))) - ;; if global cache is already there, only re-read local .GlobalEnv - (progn - (unless ess-sl-modtime-alist - ;; initialize if empty - (setq ess-sl-modtime-alist '((".GlobalEnv" nil)))) - ;; fixme: Make adaptive. Not on all remotes are slow; For lots of - ;; objects in .GlobalEnv,locals could also be slow. - (unless (file-remote-p default-directory) - (ess-extract-onames-from-alist ess-sl-modtime-alist 1 'force))) - (if ess--cached-sp-objects - (ess-get-modtime-list 'ess--cached-sp-objects 'exclude-first) - (ess-get-modtime-list) - (setq ess--cached-sp-objects (cdr ess-sl-modtime-alist))) - ;; reread new package, but not rda, much faster and not needed anyways - (process-put *proc* 'sp-for-ac-changed? nil))) - (apply 'append - (cddar ess-sl-modtime-alist) ; .GlobalEnv - (mapcar 'cddr ess--cached-sp-objects))))) - - -;;; ARGUMENTS - -(define-obsolete-variable-alias 'ess-ac-R-argument-suffix 'ess-R-argument-suffix "15.3") -(defcustom ess-R-argument-suffix " = " - "Suffix appended by `ac-source-R' and `ac-source-R-args' to candidates." - :group 'R - :type 'string) - -(defvar ess-r--funargs-pre-cache - '(("plot" - (("graphics") - (("x" . "") ("y" . "NULL") ("type" . "p") ("xlim" . "NULL") ("ylim" . "NULL") ("log" . "") ("main" . "NULL") ("sub" . "NULL") ("xlab" . "NULL") ("ylab" . "NULL") - ("ann" . "par(\"ann\")") ("axes" . "TRUE") ("frame.plot" . "axes") ("panel.first" . "NULL") ("panel.last" . "NULL") ("asp" . "NA") ("..." . "")) - ("x" "y" "..." "ci" "type" "xlab" "ylab" "ylim" "main" "ci.col" "ci.type" "max.mfrow" "ask" "mar" "oma" "mgp" "xpd" "cex.main" "verbose" "scale" "xlim" "log" "sub" "ann" "axes" "frame.plot" - "panel.first" "panel.last" "asp" "center" "edge.root" "nodePar" "edgePar" "leaflab" "dLeaf" "xaxt" "yaxt" "horiz" - "zero.line" "verticals" "col.01line" "pch" "legend.text" "formula" "data" "subset" "to" "from" "newpage" "vp" "labels" - "hang" "freq" "density" "angle" "col" "border" "lty" "add" "predicted.values" "intervals" "separator" "col.predicted" - "col.intervals" "col.separator" "lty.predicted" "lty.intervals" "lty.separator" "plot.type" "main2" "par.fit" "grid" - "panel" "cex" "dimen" "abbrev" "which" "caption" "sub.caption" "id.n" "labels.id" "cex.id" "qqline" "cook.levels" - "add.smooth" "label.pos" "cex.caption" "rows" "levels" "conf" "absVal" "ci.lty" "xval" "do.points" "col.points" "cex.points" - "col.hor" "col.vert" "lwd" "set.pars" "range.bars" "col.range" "xy.labels" "xy.lines" "nc" "yax.flip" "mar.multi" "oma.multi"))) - ("print" - (("base") - (("x" . "") ("digits" . "NULL") ("quote" . "TRUE") ("na.print" . "NULL") ("print.gap" . "NULL") ("right" . "FALSE") ("max" . "NULL") ("useSource" . "TRUE") ("..." . "")) - ("x" "..." "digits" "signif.stars" "intercept" "tol" "se" "sort" "verbose" "indent" "style" ".bibstyle" "prefix" "vsep" "minlevel" "quote" "right" "row.names" "max" "na.print" "print.gap" - "useSource" "diag" "upper" "justify" "title" "max.levels" "width" "steps" "showEnv" "newpage" "vp" "cutoff" "max.level" "give.attr" "units" "abbrCollate" "print.x" "deparse" "locale" "symbolic.cor" - "loadings" "zero.print" "calendar")))) - "Alist of cached arguments for time consuming functions.") - - -;;; HELP - -(defun ess-r-get-object-help-string (sym) - "Help string for ac." - (let ((proc (ess-get-next-available-process))) - (if (null proc) - "No free ESS process found" - (let ((buf (get-buffer-create " *ess-command-output*"))) - (when (string-match ":+\\(.*\\)" sym) - (setq sym (match-string 1 sym))) - (with-current-buffer (process-buffer proc) - (ess-with-current-buffer buf - (ess--flush-help-into-current-buffer sym nil t))) - (with-current-buffer buf - (ess-help-underline) - (goto-char (point-min)) - (buffer-string)))))) - -(defun ess-r-get-arg-help-string (sym &optional proc) - "Help string for ac." - (setq sym (replace-regexp-in-string " *= *\\'" "" sym)) - (let ((proc (or proc (ess-get-next-available-process)))) - (if (null proc) - "No free ESS process found" - (let ((fun (car ess--fn-name-start-cache))) - (with-current-buffer (ess-command (format ".ess_arg_help('%s','%s')\n" sym fun) - nil nil nil nil proc) - (goto-char (point-min)) - (forward-line) - (buffer-substring-no-properties (point) (point-max))))))) - - -;;; COMPANY -;;; https://company-mode.github.io/ - -(defun company-R-objects (command &optional arg &rest ignored) - (interactive (list 'interactive)) - (cl-case command - (interactive (company-begin-backend 'company-R-objects)) - (prefix (unless (ess-inside-string-or-comment-p) - (let ((start (ess-symbol-start))) - (when start - (buffer-substring-no-properties start (point)))))) - (candidates (let ((proc (ess-get-next-available-process))) - (when proc - (with-current-buffer (process-buffer proc) - (all-completions arg (ess--get-cached-completions arg)))))) - (doc-buffer (company-doc-buffer (ess-r-get-object-help-string arg))))) - -(defun company-R-args (command &optional arg &rest ignored) - (interactive (list 'interactive)) - (cl-case command - (interactive (company-begin-backend 'company-R-args)) - (prefix (unless (ess-inside-string-or-comment-p) - (let ((start (ess-arg-start))) - (when start - (let ((prefix (buffer-substring-no-properties start (point)))) - (if ess-company-arg-prefix-length - (cons prefix (>= (length prefix) - ess-company-arg-prefix-length)) - prefix)))))) - (candidates (let* ((proc (ess-get-next-available-process)) - (args (delete "..." (nth 2 (ess-function-arguments - (car ess--fn-name-start-cache) proc)))) - (args (mapcar (lambda (a) (concat a ess-R-argument-suffix)) - args))) - (all-completions arg args))) - (meta (let ((proc (ess-get-next-available-process))) - (when (and proc - (with-current-buffer (process-buffer proc) - (not (file-remote-p default-directory)))) - ;; fixme: ideally meta should be fetched with args - (let ((doc (ess-r-get-arg-help-string arg proc))) - (replace-regexp-in-string "^ +\\| +$" "" - (replace-regexp-in-string "[ \t\n]+" " " doc)))))) - (sorted t) - (require-match 'never) - (doc-buffer (company-doc-buffer (ess-r-get-arg-help-string arg))))) - -(defvar-local ess-r--installed-packages-cache nil) - -(defun ess-r-installed-packages () - "Return a list of currently installed R packages. -The value is cached once per session and is not updated if new -packages are installed." - (let ((proc (ess-get-next-available-process))) - (when proc - (with-current-buffer (process-buffer proc) - (or ess-r--installed-packages-cache - (setq ess-r--installed-packages-cache - (ess-get-words-from-vector - "print(unlist(lapply(.libPaths(), dir)), max=1e6)\n"))))))) - -;; completion for library names -- only active within 'library(...)' -(defun company-R-library (command &optional arg &rest ignored) - (interactive (list 'interactive)) - (cl-case command - (interactive (company-begin-backend 'company-R-library)) - (prefix (and (member (car (ess--fn-name-start 'symbol)) - '("library" "require")) - (let ((start (ess-symbol-start))) - (and start (buffer-substring start (point)))))) - (candidates (all-completions arg (ess-r-installed-packages))) - (annotation "") - (duplicates nil) - (sorted t))) - - -;;; AC SOURCES -;;; http://cx4a.org/software/auto-complete/index.html - -(defvar ac-source-R - '((prefix . ess-ac-start) - ;; (requires . 0) ::) - (candidates . ess-ac-candidates) - ;; (action . ess-ac-action-args) ;; interfere with ac-fallback mechanism on RET (which is extremely annoing in inferior buffers) - (document . ess-ac-help)) - "Combined ad-completion source for R function arguments and R objects.") - -(defun ess-ac-start () - (when (ess-process-live-p) - (or (ess-arg-start) - (ess-symbol-start)))) - -(defun ess-ac-candidates () - "OBJECTS + ARGS." - (let ((args (ess-ac-args))) - ;; sort of intrusive but right - (if (and ac-auto-start - (< (length ac-prefix) ac-auto-start)) - args - (if args - (append args (ess-ac-objects t)) - (ess-ac-objects))))) - -(defun ess-ac-help (sym) - (if (string-match-p "= *\\'" sym) - (ess-r-get-arg-help-string sym) - (ess-r-get-object-help-string sym))) - -;; OBJECTS -(defvar ac-source-R-objects - '((prefix . ess-symbol-start) - ;; (requires . 2) - (candidates . ess-ac-objects) - (document . ess-r-get-object-help-string)) - "Auto-completion source for R objects.") - -(defun ess-ac-objects (&optional no-kill) - "Get all cached objects." - (let ((aprf ac-prefix)) - (when (and aprf (ess-process-live-p)) - (unless no-kill ;; workaround - (kill-local-variable 'ac-use-comphist)) - (ess--get-cached-completions aprf ac-point)))) - -;; ARGS -(defvar ac-source-R-args - '((prefix . ess-arg-start) - ;; (requires . 0) - (candidates . ess-ac-args) - ;; (action . ess-ac-action-args) - (document . ess-r-get-arg-help-string)) - "Auto-completion source for R function arguments.") - -(defun ess-ac-args () - "Get the args of the function when inside parentheses." - (when (and ess--fn-name-start-cache ;; set in a call to ess-arg-start - (ess-process-live-p)) - (let ((args (nth 2 (ess-function-arguments (car ess--fn-name-start-cache))))) - (if args - (set (make-local-variable 'ac-use-comphist) nil) - (kill-local-variable 'ac-use-comphist)) - (delete "..." args) - (mapcar (lambda (a) (concat a ess-R-argument-suffix)) - args)))) - -(defvar ess--ac-help-arg-command - "getArgHelp('%s','%s')") - -(provide 'ess-r-completion) - -;;; ess-r-completion.el ends here diff --git a/elpa/ess-20181109.703/ess-r-flymake.el b/elpa/ess-20181109.703/ess-r-flymake.el deleted file mode 100644 index 71b01f0d..00000000 --- a/elpa/ess-20181109.703/ess-r-flymake.el +++ /dev/null @@ -1,243 +0,0 @@ -;;; ess-r-flymake.el --- A ess-r Flymake backend -*- lexical-binding: t; -*- -;; -;; Copyright (C) 2018 J. Alexander Branham (alex DOT branham AT gmail DOT com) -;; Copyright (C) 2018 ESS-core team -;; Maintainer: ESS-core -;; -;; This file is NOT part of GNU Emacs. -;; -;; This 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 3, or (at your option) any later -;; version. -;; -;; This 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. -;; -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, -;; MA 02110-1301 USA. -;; -;;; Commentary: -;; -;; Flymake is the built-in Emacs package that supports on-the-fly -;; syntax checking. This file adds support for this in R-mode by -;; relying on the lintr package, available on CRAN and currently -;; hosted at https://github.com/jimhester/lintr. -;; -;; It is enabled by default. -;; -;;; Code: - -(eval-when-compile (require 'cl-lib)) -(require 'ess-custom) -(require 'ess-inf) -(require 'flymake) -;; TODO: When remove support for Emacs 24, remove the nil t: -(require 'project nil t) - -(defcustom ess-r-flymake-linters - '("closed_curly_linter = NULL" - "commas_linter = NULL" - "commented_code_linter = NULL" - "infix_spaces_linter = NULL" - "line_length_linter = NULL" - "object_length_linter = NULL" - "object_name_linter = NULL" - "object_usage_linter = NULL" - "open_curly_linter = NULL" - "pipe_continuation_linter = NULL" - "single_quotes_linter = NULL" - "spaces_inside_linter = NULL" - "spaces_left_parentheses_linter = NULL" - "trailing_blank_lines_linter = NULL" - "trailing_whitespace_linter = NULL") - "Default linters to use. -Can be either a string with R expression to be used as -is (e.g. 'lintr::default_linters'). Or a list of strings where -each element is passed as argument to 'lintr::with_defaults'." - :group 'ess-R - :type '(choice string (repeat string)) - :package-version '(ess . "18.10")) - -(defcustom ess-r-flymake-lintr-cache t - "If non-nil, cache lintr results." - :group 'ess-R - :type 'boolean - :package-version '(ess . "18.10")) - -(defvar-local ess-r--flymake-proc nil) - -(defvar-local ess-r--lintr-file nil - "Location of the .lintr file for this buffer.") - -(defvar ess-r--flymake-def-linter - (replace-regexp-in-string - "[\n\t ]+" " " - "esslint <- function(str, ...) { - if (!suppressWarnings(require(lintr, quietly=T))) { - cat('@@error: @@`lintr` package not installed') - } else { - if (packageVersion('lintr') <= '1.0.2') { - cat('@@error: @@Need `lintr` version > v1.0.2') - } else { - tryCatch(lintr::lint(commandArgs(TRUE), ...), - error = function(e) { - cat('@@warning: @@', e) - }) - } - } -};")) - -(defun ess-r--find-lintr-file () - "Return the absolute path to the .lintr file. -Check first the current directory, then the project root, then -the user's home directory. Return nil if we couldn't find a .lintr file." - (cond (;; current directory - (file-readable-p (expand-file-name ".lintr" default-directory)) - (expand-file-name ".lintr" default-directory)) - ;; Project root - ((and (fboundp 'ess-r-package-project) - (ess-r-package-project)) (expand-file-name ".lintr" (cdr (ess-r-package-project)))) - ((and (fboundp 'project-roots) ; checking that project-roots is defined can be removed when drop Emacs 24 - (project-current) - (project-roots (project-current))) - (expand-file-name ".lintr" (car (project-roots (project-current))))) - ;; Home directory - ((file-readable-p (expand-file-name ".lintr" (getenv "HOME"))) - (expand-file-name ".lintr" (getenv "HOME"))))) - -(defun ess-r--flymake-linters () - "If `ess-r-flymake-linters' is a string, use that. -Otherwise, construct a string to pass to lintr::with_defaults." - (replace-regexp-in-string - "[\n\t ]+" " " - (if (stringp ess-r-flymake-linters) - ess-r-flymake-linters - (concat "lintr::with_defaults(" - (mapconcat #'identity - ess-r-flymake-linters - ", ") - ")")))) - -(defun ess-r--flymake-msg-type (str) - "Transform STR into log level." - (cond ((string= str "error: ") :error) - ((string= str "warning: ") :warning) - ((string= str "style: ") :note) - (t (error "Invalid msg type %s" str)))) - -(defun ess-r--flymake-check-errors () - "Check for critical errors and return non-nil if such occurred." - (goto-char (point-min)) - (when (re-search-forward "@@\\(\\(error\\|warning\\): \\)@@" nil t) - (let ((type (ess-r--flymake-msg-type (match-string 1))) - (msg (buffer-substring-no-properties (match-end 0) (point-max)))) - (flymake-log type msg) - (eq type :error)))) - -(defun ess-r--flymake-parse-output (msg-buffer src-buffer report-fn) - "Parse the content of MSG-BUFFER for lint locations. -SRC-BUFFER is the original source buffer. Collect all messages -into a list and call REPORT-FN on it." - (with-current-buffer msg-buffer - (if (ess-r--flymake-check-errors) - (with-current-buffer src-buffer - ;; we are in the sentinel here; don't throw but remove our hook instead - (remove-hook 'flymake-diagnostic-functions 'ess-r-flymake t)) - (goto-char (point-min)) - (cl-loop - while (search-forward-regexp - ;; Regex to match the output lint() gives us. - (rx line-start ":" - ;; row - (group-n 1 (one-or-more num)) ":" - ;; column - (group-n 2 (one-or-more num)) ": " - ;; type - (group-n 3 (| "style: " "warning: " "error: ")) - ;; msg - (group-n 4 (one-or-more not-newline)) line-end) - nil t) - for msg = (match-string 4) - for (beg . end) = (let ((line (string-to-number (match-string 1))) - (col (string-to-number (match-string 2)))) - (flymake-diag-region src-buffer line col)) - for type = (ess-r--flymake-msg-type (match-string 3)) - collect (flymake-make-diagnostic src-buffer beg end type msg) - into diags - finally (funcall report-fn diags))))) - -(defun ess-r-flymake (report-fn &rest _args) - "A Flymake backend for ESS-R modes. Relies on the lintr package. -REPORT-FN is flymake's callback function." - (unless (executable-find inferior-ess-r-program) - (error "Cannot find program '%s'" inferior-ess-r-program)) - ;; Kill the process if earlier check was found. The sentinel of the earlier - ;; check will detect this. - (when (process-live-p ess-r--flymake-proc) - (kill-process ess-r--flymake-proc)) - (if (and (eql ess-use-flymake 'process) - (not (ess-process-live-p))) - (progn - (funcall report-fn nil) - (mapc #'delete-overlay (flymake--overlays))) - (let ((src-buffer (current-buffer))) - (setq ess-r--flymake-proc - (make-process - :name "ess-r-flymake" :noquery t :connection-type 'pipe - :buffer (generate-new-buffer " *ess-r-flymake*") - :command (list inferior-R-program - "--no-save" "--no-restore" "--no-site-file" "--no-init-file" "--slave" - "-e" (concat - (when ess-r--lintr-file - (concat "options(lintr.linter_file = \"" ess-r--lintr-file "\");")) - ess-r--flymake-def-linter - ;; commandArgs(TRUE) returns everything after - ;; --args as a character vector - "esslint(commandArgs(TRUE)" - (unless ess-r--lintr-file - (concat ", linters = " (ess-r--flymake-linters))) - (when ess-r-flymake-lintr-cache - ", cache = TRUE") - ")") - "--args" (buffer-substring-no-properties - (point-min) (point-max))) - :sentinel - (lambda (proc _event) - (cond - ((eq 'exit (process-status proc)) - (unwind-protect - (if (eq proc (buffer-local-value 'ess-r--flymake-proc src-buffer)) - (ess-r--flymake-parse-output (process-buffer proc) src-buffer report-fn) - (flymake-log :warning "Canceling obsolete check %s" proc)) - (kill-buffer (process-buffer proc)))) - ((not (eq 'run (process-status proc))) - (kill-buffer (process-buffer proc)))))))))) - -(defun ess-r-setup-flymake () - "Setup flymake for ESS. -Activate flymake only if `ess-use-flymake' is non-nil." - (when ess-use-flymake - (when (< emacs-major-version 26) - (error "ESS-flymake requires Emacs version 26 or later")) - (when (string= "R" ess-dialect) - (setq ess-r--lintr-file (ess-r--find-lintr-file)) - (add-hook 'flymake-diagnostic-functions #'ess-r-flymake nil t) - ;; Try not to enable flymake if flycheck is already running: - (unless (bound-and-true-p flycheck-mode) - (flymake-mode))))) - -;; Enable flymake in Emacs 26+ -(when (<= 26 emacs-major-version) - (if (eval-when-compile (<= 26 emacs-major-version)) - (add-hook 'ess-mode-hook #'ess-r-setup-flymake) - (when ess-use-flymake - (display-warning 'ess "ESS was compiled with older version of emacs;\n `ess-r-flymake' won't be available")))) - -(provide 'ess-r-flymake) - -;;; ess-r-flymake.el ends here diff --git a/elpa/ess-20181109.703/ess-r-gui.el b/elpa/ess-20181109.703/ess-r-gui.el deleted file mode 100644 index cebdc69f..00000000 --- a/elpa/ess-20181109.703/ess-r-gui.el +++ /dev/null @@ -1,207 +0,0 @@ -;;; ess-r-gui.el --- Run Rgui on Windows as an inferior Emacs process - -;; Copyright (C) 2008 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Richard M. Heiberger -;; Created: 10 Mar 2008 -;; Maintainer: ESS-core - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; In Rgui: -;; > library(tcltk2) ## >= 1.0-6 -;; > .ess.command <- function() source("c:/temp/ess-tempfile.R", echo=TRUE) -;; > tclFun(.ess.command) -;; [1] "R_call 0203A04C" - -;;; Code: - -(require 'ess-dde) ;; needed here because we override several definitions -(require 'ess-r-mode) - -(defun ess-ddeclient-p () - "Returns the name of the ddeclient iff `ess-local-process-name' -is associated with an `inferior-ess-ddeclient', and nil if the -ess-process is running as an ordinary inferior process. Alway -nil on Unix machines." - (interactive) - (if ess-microsoft-p - (let ((ess-ddeclient (ess-get-process-variable 'inferior-ess-ddeclient))) - (if (not (equal ess-ddeclient (default-value 'inferior-ess-ddeclient))) - ess-ddeclient)))) - -(defvar ess-command-file "c:/temp/ess-tempfile.R" - "File name for communication with Rgui.") -(defvar inferior-ess-execdde - (concat (getenv "R_HOME") "/site-library/tcltk2/bin/execdde.exe") - "Full pathname to execdde executable.") -(defvar ess-rgui-command " -s TclEval -t R -c .ess.command > NUL" - "Command to `inferior-ess-execdde' that will make Rgui read the command file.") - - -(defun ess-eval-region-execdde (start end even-empty) - "Loop through lines in region and send them to ESS via execdde." - (setq ;; set the following variables for the current ddeESS process. - inferior-ess-ddeclient (ess-get-process-variable 'inferior-ess-ddeclient) - ) - (write-region start end ess-command-file nil nil 'no-message) - (call-process-shell-command - (concat inferior-ess-execdde ess-rgui-command)) - ) - - -(if (not (getenv "R_HOME")) (setenv "R_HOME" "c:/progra~1/R/R-2.6.1")) -;; ^^^^^^^^^ FIXME! do something better -(defvar inferior-Rgui-program "cmd" "Rgui program name") -(defvar Rgui-pager "emacsclientw.exe" "Rgui pager program") -(defvar inferior-ess-language-start-rgui - "options(chmhelp=FALSE, htmlhelp=FALSE, help_type='text'); require(tcltk2)" - "additional arguments to rgui") - -(defun ess-dde-rgui-send-region (proc start end &optional visibly message) - "Loop through lines in region and send them to ESS via ddeclient. - -PROC, VISIBLY and MESSAGE are ignored." - (setq ;; set the following variables for the current ddeESS process. - inferior-ess-ddeclient (ess-get-process-variable 'inferior-ess-ddeclient) - inferior-ess-client-name (ess-get-process-variable 'inferior-ess-client-name) - inferior-ess-client-command (ess-get-process-variable 'inferior-ess-client-command)) - (narrow-to-region start end) - (goto-char (point-min)) - - (if (equal inferior-ess-ddeclient "execdde") - (ess-eval-region-execdde start end 'even-empty) - - (let ((beg)) - (while (or (< (point) (point-max)) - (= 1 (point-max))) - (setq beg (point)) - (end-of-line) - ;; call-process-region won't send over a 0-character line. - ;; We go outside the loop to create a 1-character line " " in the - ;; *ESS-temporary* buffer - (if (= beg (point)) ;; do empty line outside loop - (ess-dde-eval-linewise " " nil 'eob t) - (call-process-region - beg (point) - inferior-ess-ddeclient nil nil nil - inferior-ess-client-name inferior-ess-client-command)) - (forward-line 1)))) - (widen)) - - - -(defvar Rgui-customize-alist - (append - '((ess-local-customize-alist . 'Rgui-customize-alist) - (ess-dialect . "R") - (ess-suffix . "R") - (ess-dump-filename-template . (replace-regexp-in-string - "S$" ess-suffix ; in the one from custom: - ess-dump-filename-template-proto)) - (ess-mode-syntax-table . ess-r-syntax-table) - (ess-mode-editing-alist . ess-r-editing-alist) - (ess-change-sp-regexp . ess-r-change-sp-regexp) - (ess-help-sec-regex . ess-help-r-sec-regex) - (ess-help-sec-keys-alist . ess-help-r-sec-keys-alist) - (ess-function-pattern . ess-r-function-pattern) - (ess-object-name-db-file . "ess-r-namedb.el" ) - (ess-send-region-function . #'ess-dde-rgui-send-region) - (ess-load-file-function . #'ess-dde-load-file) - (ess-command-function . #'ess-dde-command) - (ess-eval-linewise-function . #'ess-dde-eval-linewise) - (ess-dump-object-function . #'ess-dde-dump-object) - (ess-read-object-name-function . #'ess-dde-read-object-name) - (ess-find-help-file-function . #'ess-dde-find-help-file) - (ess-display-help-on-object-function . #'ess-dde-display-help-on-object) - (inferior-ess-program . inferior-Rgui-program) - (inferior-ess-objects-command . inferior-ess-r-objects-command) - (inferior-ess-font-lock-keywords . 'inferior-ess-r-font-lock-keywords) - (inferior-ess-search-list-command . "search()\n") - (inferior-ess-help-command . "help(\"%s\")\n") - (inferior-ess-help-filetype . nil) ;; "chm") ;;? - (inferior-ess-exit-command . "q()") - (inferior-ess-exit-prompt . "Save workspace image? [y/n/c]: ") - (inferior-ess-primary-prompt . "\\([A-Z/][][A-Za-z0-9./]*\\)*[>$] ") - (inferior-ess-secondary-prompt . "+ ?") - ;;harmful for shell-mode's C-a: -- but "necessary" for ESS-help? - (inferior-ess-start-file . nil) ;; "~/.ess-R" - (inferior-ess-start-args . "") - (inferior-ess-ddeclient . "execdde") - (ess-STERM . "ddeSS") - (ess-editor . ess-r-editor) - (ess-pager . Rgui-pager) - ) - S-common-cust-alist) - "Variables to customize for Rgui") - - -(defun Rgui (&optional proc-name) - "Call 'Rgui for Windows'. Put R in an independent MS-Window (R -persists even if the '(ddeESS [R])' window is killed in emacs). -Do this by creating a comint process that calls cmd. This is a -placeholder buffer with mode '(ddeESS [R])'. Commands sent from -an (ESS[S] [R]) buffer to this process will be sourced into the -independent Rgui R Console." - (interactive) - (save-excursion - (setq ess-customize-alist Rgui-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(Rgui): 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 . "^")))) - (when - ;; Silence byte compiler warns about this function - (fboundp 'w32-short-file-name) - (let ((default-ddeclient (default-value 'inferior-ess-ddeclient))) - (cd (w32-short-file-name (directory-file-name default-directory))) - ;; (setenv "S_PROJ" default-directory) - (setq-default inferior-ess-ddeclient "execdde") - (inferior-ess) - (setq-default inferior-ess-ddeclient default-ddeclient) - (sleep-for 2) ; need to wait, else working too fast! - )) - (setq comint-process-echoes nil) - - ;; *R* buffer - (goto-char (point-min)) - (insert - "This is a placeholder buffer. You can't type anything here.\n -You may ignore the 'options' error in this buffer.\n\n") - (goto-char (point-max)) - (set-process-coding-system (get-process ess-local-process-name) 'raw-text-dos 'raw-text-unix) - (setq buffer-read-only t) ; force buffer to be read-only - (setq mode-name "ddeESS") - - ;; initialization - (set-buffer (find-file-noselect ess-command-file 'nowarn)) - (erase-buffer) - (setq ;; set the following variables for the current ddeESS process. - inferior-ess-language-start (ess-get-process-variable 'inferior-ess-language-start)) - (if inferior-ess-language-start - (insert inferior-ess-language-start)) - (if inferior-ess-language-start-rgui - (insert (concat "\n" inferior-ess-language-start-rgui))) - (save-buffer 0) - (call-process-shell-command - (concat inferior-ess-execdde ess-rgui-command)) - )) - -;;; ess-r-gui.el ends here diff --git a/elpa/ess-20181109.703/ess-r-mode.el b/elpa/ess-20181109.703/ess-r-mode.el deleted file mode 100644 index 4016a8c4..00000000 --- a/elpa/ess-20181109.703/ess-r-mode.el +++ /dev/null @@ -1,2269 +0,0 @@ -;;; ess-r-mode.el --- R customization - -;; Copyright (C) 1997--2010 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. -;; Copyright (C) 2011--2017 A.J. Rossini, Richard M. Heiberger, Martin Maechler, -;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. - -;; Author: A.J. Rossini -;; Created: 12 Jun 1997 -;; Maintainer: ESS-core - -;; Keywords: languages, statistics - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file defines all the R customizations for ESS. See ess-s-lang.el -;; for general S language customizations. - -;;; Code: - -(require 'cl-lib) -(require 'compile) -(require 'easymenu) -(require 'eldoc) -(require 'ess-mode) -(require 'ess-help) -(require 'ess-s-lang) -(require 'ess-roxy) -(require 'ess-r-completion) -(require 'ess-r-syntax) -(require 'ess-r-package) -(require 'ess-trns) -(when (>= emacs-major-version 25) (require 'ess-r-xref)) ;; Xref API was added in Emacs 25.1 -;; TODO: Remove when we drop support for Emacs 24: -(declare-function ess-r-xref-backend "ess-r-xref") -(when (>= emacs-major-version 26) (require 'ess-r-flymake)) ; Flymake rewrite in Emacs 26 - -;; TODO: Refactor so as to not rely on dynamic scoping. After that -;; refactor, also remove the file-local-variable byte-compile-warnings -;; (not lexical) at the bottom. -(defvar block) -(defvar containing-sexp) -(defvar indent-point) -(defvar infinite) -(defvar last-newline) -(defvar last-pos) -(defvar offset) -(defvar prefix-break) -(defvar prev-containing-sexp) -(defvar start) -(defvar start-pos) -(defvar style) -(defvar type) - - - -;;*;; Mode definition - -;;;*;;; UI (Keymaps / Menus) -;;;###autoload -(defvar ess-dev-map - (let (ess-dev-map) - (define-prefix-command 'ess-dev-map) - (define-key ess-dev-map "\C-s" 'ess-r-set-evaluation-env) - (define-key ess-dev-map "s" 'ess-r-set-evaluation-env) - (define-key ess-dev-map "T" 'ess-toggle-tracebug) - (define-key ess-dev-map "\C-l" 'ess-r-devtools-load-package) - (define-key ess-dev-map "l" 'ess-r-devtools-load-package) - (define-key ess-dev-map "`" 'ess-show-traceback) - (define-key ess-dev-map "~" 'ess-show-call-stack) - (define-key ess-dev-map "\C-w" 'ess-watch) - (define-key ess-dev-map "w" 'ess-watch) - (define-key ess-dev-map "\C-d" 'ess-debug-flag-for-debugging) - (define-key ess-dev-map "d" 'ess-debug-flag-for-debugging) - (define-key ess-dev-map "\C-u" 'ess-debug-unflag-for-debugging) - (define-key ess-dev-map "u" 'ess-debug-unflag-for-debugging) - (define-key ess-dev-map [(control ?D)] 'ess-debug-unflag-for-debugging) - (define-key ess-dev-map "\C-b" 'ess-bp-set) - (define-key ess-dev-map "b" 'ess-bp-set) - (define-key ess-dev-map [(control ?B)] 'ess-bp-set-conditional) - (define-key ess-dev-map "B" 'ess-bp-set-conditional) - (define-key ess-dev-map "\C-L" 'ess-bp-set-logger) - (define-key ess-dev-map "L" 'ess-bp-set-logger) - (define-key ess-dev-map "\C-o" 'ess-bp-toggle-state) - (define-key ess-dev-map "o" 'ess-bp-toggle-state) - (define-key ess-dev-map "\C-k" 'ess-bp-kill) - (define-key ess-dev-map "k" 'ess-bp-kill) - (define-key ess-dev-map "\C-K" 'ess-bp-kill-all) - (define-key ess-dev-map "K" 'ess-bp-kill-all) - (define-key ess-dev-map "\C-n" 'ess-bp-next) - (define-key ess-dev-map "n" 'ess-bp-next) - (define-key ess-dev-map "i" 'ess-debug-goto-input-event-marker) - (define-key ess-dev-map "I" 'ess-debug-goto-input-event-marker) - (define-key ess-dev-map "\C-p" 'ess-bp-previous) - (define-key ess-dev-map "p" 'ess-bp-previous) - (define-key ess-dev-map "\C-e" 'ess-debug-toggle-error-action) - (define-key ess-dev-map "e" 'ess-debug-toggle-error-action) - (define-key ess-dev-map "0" 'ess-electric-selection) - (define-key ess-dev-map "1" 'ess-electric-selection) - (define-key ess-dev-map "2" 'ess-electric-selection) - (define-key ess-dev-map "3" 'ess-electric-selection) - (define-key ess-dev-map "4" 'ess-electric-selection) - (define-key ess-dev-map "5" 'ess-electric-selection) - (define-key ess-dev-map "6" 'ess-electric-selection) - (define-key ess-dev-map "7" 'ess-electric-selection) - (define-key ess-dev-map "8" 'ess-electric-selection) - (define-key ess-dev-map "9" 'ess-electric-selection) - (define-key ess-dev-map "?" 'ess-tracebug-show-help) - ess-dev-map) - "Keymap for commands related to development and debugging.") - -(defvar ess-r-package-check-map - (let (ess-r-package-check-map) - (define-prefix-command 'ess-r-package-check-map) - (define-key ess-r-package-check-map "\C-c" 'ess-r-devtools-check-package) - (define-key ess-r-package-check-map "c" 'ess-r-devtools-check-package) - (define-key ess-r-package-check-map "\C-w" 'ess-r-devtools-check-with-winbuilder) - (define-key ess-r-package-check-map "w" 'ess-r-devtools-check-with-winbuilder) - (define-key ess-r-package-check-map "h" 'ess-r-rhub-check-package) - ess-r-package-check-map) - "Keymap for R package checks.") - -(defvar ess-r-package-dev-map - (let (ess-r-package-dev-map) - (define-prefix-command 'ess-r-package-dev-map) - (define-key ess-r-package-dev-map "\C-s" 'ess-r-package-set-package) - (define-key ess-r-package-dev-map "s" 'ess-r-package-set-package) - (define-key ess-r-package-dev-map "\C-a" 'ess-r-devtools-ask) - (define-key ess-r-package-dev-map "a" 'ess-r-devtools-ask) - (define-key ess-r-package-dev-map "\C-e" 'ess-r-devtools-execute-command) - (define-key ess-r-package-dev-map "e" 'ess-r-devtools-execute-command) - (define-key ess-r-package-dev-map "\C-b" 'ess-r-devtools-build) - (define-key ess-r-package-dev-map "b" 'ess-r-devtools-build) - (define-key ess-r-package-dev-map "\C-c" 'ess-r-package-check-map) - (define-key ess-r-package-dev-map "c" 'ess-r-package-check-map) - (define-key ess-r-package-dev-map "\C-d" 'ess-r-devtools-document-package) - (define-key ess-r-package-dev-map "d" 'ess-r-devtools-document-package) - (define-key ess-r-package-dev-map "g" 'ess-r-devtools-install-github) - (define-key ess-r-package-dev-map "\C-i" 'ess-r-devtools-install-package) - (define-key ess-r-package-dev-map "i" 'ess-r-devtools-install-package) - (define-key ess-r-package-dev-map "\C-l" 'ess-r-devtools-load-package) - (define-key ess-r-package-dev-map "l" 'ess-r-devtools-load-package) - (define-key ess-r-package-dev-map "\C-t" 'ess-r-devtools-test-package) - (define-key ess-r-package-dev-map "t" 'ess-r-devtools-test-package) - (define-key ess-r-package-dev-map "\C-u" 'ess-r-devtools-unload-package) - (define-key ess-r-package-dev-map "u" 'ess-r-devtools-unload-package) - ess-r-package-dev-map)) - -(easy-menu-define ess-roxygen-menu nil - "Roxygen submenu." - '("Roxygen" - :visible (and ess-dialect (string-match "^R" ess-dialect)) - ["Update/Generate Template" ess-roxy-update-entry t] - ["Preview Rd" ess-roxy-preview-Rd t] - ["Preview HTML" ess-roxy-preview-HTML t] - ["Preview text" ess-roxy-preview-text t] - ["Hide all" ess-roxy-hide-all t] - ["Toggle Roxygen Prefix" ess-roxy-toggle-roxy-region t])) - -(easy-menu-define ess-tracebug-menu nil - "Tracebug submenu." - '("Tracebug" - :visible (and ess-dialect (string-match "^R" ess-dialect)) - ;; :enable ess-local-process-name - ["Active?" ess-toggle-tracebug - :style toggle - :selected (or (and (ess-process-live-p) - (ess-process-get 'tracebug)) - ess-use-tracebug)] - ["Show traceback" ess-show-traceback (ess-process-live-p)] - ["Show call stack" ess-show-call-stack (ess-process-live-p)] - ["Watch" ess-watch (and (ess-process-live-p) - (ess-process-get 'tracebug))] - ["Error action cycle" ess-debug-toggle-error-action (and (ess-process-live-p) - (ess-process-get 'tracebug))] - "----" - ["Flag for debugging" ess-debug-flag-for-debugging ess-local-process-name] - ["Unflag for debugging" ess-debug-unflag-for-debugging ess-local-process-name] - "----" - ["Set BP" ess-bp-set t] - ["Set conditional BP" ess-bp-set-conditional t] - ["Set logger BP" ess-bp-set-logger t] - ["Kill BP" ess-bp-kill t] - ["Kill all BPs" ess-bp-kill-all t] - ["Next BP" ess-bp-next t] - ["Previous BP" ess-bp-previous t] - "-----" - ["About" ess-tracebug-show-help t])) - -(easy-menu-define ess-r-package-menu nil - "Package Development submenu." - '("Package development" - :visible (and ess-dialect (string-match "^R" ess-dialect)) - ["Active?" ess-r-package-mode - :style toggle - :selected ess-r-package-mode] - ["Select package for evaluation" ess-r-set-evaluation-env t])) - -(easy-menu-add-item ess-mode-menu nil ess-roxygen-menu "end-dev") -(easy-menu-add-item ess-mode-menu nil ess-r-package-menu "end-dev") -(easy-menu-add-item ess-mode-menu nil ess-tracebug-menu "end-dev") -(easy-menu-add-item inferior-ess-mode-menu nil ess-r-package-menu "end-dev") -(easy-menu-add-item inferior-ess-mode-menu nil ess-tracebug-menu "end-dev") - - -;; Inherit from the S syntax table: -(defvar ess-r-syntax-table (copy-syntax-table S-syntax-table)) - -;; Letting Emacs treat backquoted names and %ops% as strings solves -;; many problems with regard to nested strings and quotes -(modify-syntax-entry ?` "\"" ess-r-syntax-table) -(modify-syntax-entry ?% "\"" ess-r-syntax-table) - -;; Underscore is valid in R symbols -(modify-syntax-entry ?_ "_" ess-r-syntax-table) -(modify-syntax-entry ?: "." ess-r-syntax-table) -(modify-syntax-entry ?@ "." ess-r-syntax-table) -(modify-syntax-entry ?$ "." ess-r-syntax-table) - -;; TOTHINK: Prevent string delimiting characters from messing up output in the -;; inferior buffer -(defvar inferior-ess-r-syntax-table (copy-syntax-table ess-r-syntax-table)) -(modify-syntax-entry ?\' "." inferior-ess-r-syntax-table) -;; (modify-syntax-entry ?\" "." inferior-ess-r-syntax-table) -;; (modify-syntax-entry ?` "." inferior-ess-r-syntax-table) -(modify-syntax-entry ?% "." inferior-ess-r-syntax-table) - -(defvar ess-r-completion-syntax-table - (let ((table (make-syntax-table ess-r-syntax-table))) - (modify-syntax-entry ?. "_" table) - (modify-syntax-entry ?: "_" table) - (modify-syntax-entry ?$ "_" table) - (modify-syntax-entry ?@ "_" table) - table) - "Syntax table used for completion and help symbol lookup. -It makes underscores and dots word constituent chars.") - -(defvar ess-r-namespaced-load-verbose t - "Whether to display information on namespaced loading. -When t, loading a file into a namespaced will output information -about which objects are exported and which stay hidden in the -namespace.") - -(defun ess-r-font-lock-syntactic-face-function (state) - (let ((string-end (save-excursion - (and (nth 3 state) - (ess-goto-char (nth 8 state)) - (ess-forward-sexp) - (point))))) - (when (eq (nth 3 state) ?`) - (put-text-property (nth 8 state) string-end 'ess-r-backquoted t)) - (cond - ((eq (nth 3 state) ?%) - (if (eq (point) (1- string-end)) - (when (cdr (assq 'ess-fl-keyword:operators ess-R-font-lock-keywords)) - 'ess-operator-face) - (if (cdr (assq 'ess-R-fl-keyword:%op% ess-R-font-lock-keywords)) - 'ess-%op%-face - 'default))) - ((save-excursion - (and (cdr (assq 'ess-R-fl-keyword:fun-defs ess-R-font-lock-keywords)) - (ess-goto-char string-end) - (ess-looking-at "<-") - (ess-goto-char (match-end 0)) - (ess-looking-at "function\\b" t))) - font-lock-function-name-face) - ((save-excursion - (and (cdr (assq 'ess-fl-keyword:fun-calls ess-R-font-lock-keywords)) - (ess-goto-char string-end) - (ess-looking-at "("))) - ess-function-call-face) - ((eq (nth 3 state) ?`) - 'default) - ((nth 3 state) - font-lock-string-face) - (t - font-lock-comment-face)))) - -(defvar ess-r--non-fn-kwds - '("in" "else" "break" "next" "repeat")) - -(defvar-local ess-r--keyword-regexp nil) -(defun ess-r--find-fl-keyword (limit) - "Search for R keyword and set the match data. -To be used as part of `font-lock-defaults' keywords." - (unless ess-r--keyword-regexp - (let (fn-kwds non-fn-kwds) - (dolist (kw ess-R-keywords) - (if (member kw ess-r--non-fn-kwds) - (push kw non-fn-kwds) - (push kw fn-kwds))) - (setq ess-r--keyword-regexp - (concat "\\(" - (regexp-opt non-fn-kwds 'words) - "\\)\\|\\(" - (regexp-opt fn-kwds 'words) - "\\)")))) - (let (out) - (while (and (not out) - (re-search-forward ess-r--keyword-regexp limit t)) - (save-match-data - (setq out (if (match-beginning 1) - ;; Non-function-like keywords: Always fontified - ;; except for `in` for which we check it's part - ;; of a `for` construct. Ideally we'd check that - ;; other keywords like `break` or `next` are - ;; part of the right syntactic construct but - ;; that requires robust and efficient detection - ;; of complete expressions. - (if (string= (match-string 1) "in") - (save-excursion - (goto-char (match-beginning 1)) - (and (ess-backward-up-list) - (forward-word -1) - (looking-at "for\\s-*("))) - t) - ;; Function-like keywords: check if they are - ;; followed by an open paren - (looking-at "\\s-*("))))) - out)) - -(define-obsolete-variable-alias 'R-customize-alist 'ess-r-customize-alist "ESS 18.10.2") -(defvar ess-r-customize-alist - (append - '((ess-local-customize-alist . 'ess-r-customize-alist) - (ess-dialect . "R") - (ess-suffix . "R") - (ess-ac-sources . ess-r-ac-sources) - (ess-company-backends . ess-r-company-backends) - (ess-build-tags-command . ess-r-build-tags-command) - (ess-traceback-command . ess-r-traceback-command) - (ess-call-stack-command . ess-r-call-stack-command) - (ess-mode-completion-syntax-table . ess-r-completion-syntax-table) - (ess-build-eval-message-function . #'ess-r-build-eval-message) - (ess-format-eval-command-function . #'ess-r-format-eval-command) - (ess-format-load-command-function . #'ess-r-format-load-command) - (ess-send-region-function . #'ess-r-send-region) - (ess-load-file-function . #'ess-r-load-file) - (ess-make-source-refd-command-function . #'ess-r-make-source-refd-command) - (ess-format-eval-message-function . #'ess-r-format-eval-message) - (ess-install-library-function . #'ess-r-install-library) - (ess-eldoc-function . #'ess-r-eldoc-function) - (ess-help-web-search-command . #'ess-r-sos) - (ess-build-help-command-function . #'ess-r-build-help-command) - (ess-dump-filename-template . ess-r-dump-filename-template) - (ess-mode-editing-alist . ess-r-editing-alist) - (ess-change-sp-regexp . ess-r-change-sp-regexp) - (ess-help-sec-regex . ess-help-r-sec-regex) - (ess-help-sec-keys-alist . ess-help-r-sec-keys-alist) - (ess-function-pattern . ess-r-function-pattern) - (ess-object-name-db-file . "ess-r-namedb.el") - (ess-smart-operators . ess-r-smart-operators) - (inferior-ess-program . inferior-ess-r-program) - (inferior-ess-objects-command . inferior-ess-r-objects-command) - (inferior-ess-search-list-command . "search()\n") - (inferior-ess-help-command . inferior-ess-r-help-command) - (inferior-ess-help-filetype . nil) - (inferior-ess-exit-command . "q()") - (inferior-ess-exit-prompt . "Save workspace image? [y/n/c]: ") - (inferior-ess-start-file . nil) - (inferior-ess-start-args . "") - (inferior-ess-mode-syntax-table . inferior-ess-r-syntax-table) - (ess-error-regexp-alist . ess-r-error-regexp-alist) - (ess-describe-object-at-point-commands . 'ess-r-describe-object-at-point-commands) - (ess-STERM . "iESS") - (ess-editor . ess-r-editor) - (ess-pager . ess-r-pager) - (ess-mode-syntax-table . ess-r-syntax-table) - (font-lock-syntactic-face-function . #'ess-r-font-lock-syntactic-face-function) - (prettify-symbols-alist . ess-r-prettify-symbols)) - S-common-cust-alist) - "Variables to customize for R -- set up later than Emacs initialization.") - -;; VS[24-08-2018]: FIXME: make initialization of custom-alist tail-to-top and -;; put this into the above alist -(setcdr (assoc 'ess-font-lock-keywords ess-r-customize-alist) - (quote 'ess-R-font-lock-keywords)) -(setcdr (assoc 'inferior-ess-font-lock-keywords ess-r-customize-alist) - (quote 'inferior-ess-r-font-lock-keywords)) - -(defvar ess-r-build-tags-command - "rtags('%s', recursive = TRUE, pattern = '\\\\.[RrSs](rw)?$',ofile = '%s')") - -(defvar ess-r-traceback-command - "local({cat(geterrmessage(), \ -'---------------------------------- \n', \ -fill=TRUE); try(traceback(), silent=TRUE)})\n") - -(defvar ess-r-call-stack-command "traceback(1)\n") - -(defvar ess-r-dump-filename-template - (replace-regexp-in-string - "S$" "R" ess-dump-filename-template-proto)) - -(defvar ess-r-ac-sources - '(ac-source-R)) - -(defvar ess-r-company-backends - '((company-R-library company-R-args company-R-objects :separate))) - -(defvar ess-r-editing-alist - ;; copy the S-alist and modify : - (let ((S-alist (copy-alist S-editing-alist))) - (setcdr (assoc 'ess-mode-syntax-table S-alist) - (quote ess-r-syntax-table)) - S-alist) - "General options for editing R source files.") - -(defconst ess-help-r-sec-regex "^[A-Z][A-Za-z].+:$" - "Reg(ular) Ex(pression) of section headers in help file.") - -(defconst ess-help-r-sec-keys-alist - '((?a . "\\s *Arguments:") - (?d . "\\s *Description:") - (?D . "\\s *Details:") - (?t . "\\s *Details:") - (?e . "\\s *Examples:") - (?n . "\\s *Note:") - (?r . "\\s *References:") - (?s . "\\s *See Also:") - (?u . "\\s *Usage:") - (?v . "\\s *Value[s]?") ; - ) - "Alist of (key . string) pairs for use in help section searching.") - -(defvar ess-r-error-regexp-alist '(R R1 R2 R3 R4 R-recover) - "List of symbols which are looked up in `compilation-error-regexp-alist-alist'.") - -;; Takes precidence over R1 below in english locales, and allows spaces in file path -(add-to-list 'compilation-error-regexp-alist-alist - '(R "\\(\\(?: at \\|(@\\)\\([^#()\n]+\\)[#:]\\([0-9]+\\)\\)" 2 3 nil 2 1)) - -(add-to-list 'compilation-error-regexp-alist-alist - ;; valgrind style (stl_numeric.h:183) - '(R1 "(\\([^ ):\n]+\\):\\([0-9]+\\)?)" 1 2 nil 2)) - -(add-to-list 'compilation-error-regexp-alist-alist - '(R2 "(\\(\\w+ \\([^())\n]+\\)#\\([0-9]+\\)\\))" 2 3 nil 2 1)) - -;; Precedes R4 and allows spaces in file path -(add-to-list 'compilation-error-regexp-alist-alist - ;; Starts at bol or with ": " (patterns 3,4,5,6,9) - '(R3 "\\(?:^ *\\|: ?\\)\\([^-+[:digit:] \t\n]:?[^: \t\n]*\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):\\)?" 1 2 3 2 1)) - -(add-to-list 'compilation-error-regexp-alist-alist - ;; Don't start with digit; no spaces - '(R4 "\\([^-+ [:digit:]][^: \t\n]+\\):\\([0-9]+\\):\\([0-9]+\\):" 1 2 3 2 1)) - -(add-to-list 'compilation-error-regexp-alist-alist - '(R-recover " *[0-9]+: +\\([^:\n\t]+?\\)#\\([0-9]+:\\)" 1 2 nil 2 1)) - -;; gnu C errors -;; (add-to-list 'compilation-error-regexp-alist-alist -;; '(R_C "^\\([^-+ [:digit:]][^: \t\n]+\\):\\([0-9]+\\):\\([0-9]+\\):" 2 3 nil 2 1)) - - -(defvar ess-r-versions - (let ((r-ver '("R-1" "R-2" "R-3" "R-devel" "R-patched"))) - (if (eq system-type 'darwin) (append r-ver '("R32" "R64")) r-ver)) - "List of partial strings for versions of R to access within ESS. -Each string specifies the start of a filename. If a filename -beginning with one of these strings is found on `exec-path', a -command for that version of R is made available. For example, if the -file \"R-1.8.1\" is found and this variable includes the string -\"R-1\", a function called `M-x R-1.8.1' will be available to run that -version of R. -If duplicate versions of the same program are found (which happens if -the same path is listed on `exec-path' more than once), they are -ignored by calling `ess-uniq-list'. -Set this variable to nil to disable searching for other versions of R. -If you set this variable, you need to restart Emacs (and set this variable -before ess-site is loaded) for it to take effect.") - -(define-obsolete-variable-alias 'ess-r-versions-created 'ess-r-created-runners "ESS 18.10") -(defvar ess-r-created-runners nil - "List of R-versions found from `ess-r-versions' on the system.") - - -;;;*;;; Mode init - -(define-obsolete-variable-alias 'ess-R-post-run-hook 'ess-r-post-run-hook "ESS 18.10.2") -(defvar ess-r-post-run-hook nil - "Functions run in process buffer after the initialization of R process.") - -(defun ess-r-mode-p () - "Check whether we have a buffer running in R mode. - -This is to get around the lack of proper derived modes in ESS." - (and (eq major-mode 'ess-mode) - (string= ess-dialect "R"))) - -;;;###autoload -(defun run-ess-r (&optional start-args) - "Call 'R', the 'GNU S' system from the R Foundation. -Optional prefix (\\[universal-argument]) allows to set command line arguments, such as ---vsize. This should be OS agnostic. -If you have certain command line arguments that should always be passed -to R, put them in the variable `inferior-R-args'. - -START-ARGS can be a string representing an argument, a list of -such strings, or any other non-nil value. In the latter case, you -will be prompted to enter arguments interactively." - (interactive "P") - (ess-write-to-dribble-buffer ;; for debugging only - (format - "\n(R): ess-dialect=%s, buf=%s, start-arg=%s\n current-prefix-arg=%s\n" - ess-dialect (current-buffer) start-args current-prefix-arg)) - (let* ((r-always-arg - (if (or ess-microsoft-p (eq system-type 'cygwin)) - "--ess " - ;; else: "unix alike" - (if (not ess-R-readline) "--no-readline "))) - (start-args - (cond ((stringp start-args) - start-args) - ((and start-args - (listp start-args) - (cl-every 'stringp start-args)) - (mapconcat 'identity start-args " ")) - (start-args - (read-string - (concat "Starting Args" - (if r-always-arg - (concat " [other than '" r-always-arg "']")) - " ? "))))) - (r-start-args - (concat r-always-arg - inferior-R-args " " ; add space just in case - start-args)) - (cust-alist (copy-alist ess-r-customize-alist)) - (gdbp (string-match-p "gdb" r-start-args)) - use-dialog-box) - - (when gdbp - (setcdr (assoc 'inferior-ess-secondary-prompt cust-alist) - (format "\\(%s\\)\\|\\((gdb) \\)" - (cdr (assoc 'inferior-ess-secondary-prompt cust-alist))))) - - (when (or ess-microsoft-p - (eq system-type 'cygwin)) - (setq use-dialog-box nil) - (when ess-microsoft-p ;; default-process-coding-system would break UTF locales on Unix - (setq default-process-coding-system '(undecided-dos . undecided-dos)))) - - (inferior-ess r-start-args cust-alist gdbp) - - (ess-process-put 'funargs-pre-cache ess-r--funargs-pre-cache) - - (remove-hook 'completion-at-point-functions 'ess-filename-completion 'local) ;; should be first - (add-hook 'completion-at-point-functions 'ess-r-object-completion nil 'local) - (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local) - (when (>= emacs-major-version 25) - (add-hook 'xref-backend-functions #'ess-r-xref-backend nil 'local)) - (setq comint-input-sender 'inferior-ess-r-input-sender) - - (if gdbp - (progn - ;; We need to use callback, because R might start with a gdb process - (ess-process-put 'callbacks '(R-initialize-on-start)) - ;; trigger the callback - (process-send-string (get-process ess-local-process-name) "\n")) - (ess-wait-for-process) - (R-initialize-on-start) - (comint-goto-process-mark)) - - (ess-write-to-dribble-buffer - (format "(R): inferior-ess-language-start=%s\n" - inferior-ess-language-start)))) - -;;;###autoload -(defalias 'R #'run-ess-r) - -(defun inferior-ess-r--adjust-startup-directory (dir dialect) - "Adjust startup directory DIR if DIALECT is R. -If in a package project, prefer the tests directory but only if -the package directory was selected in the first place." - (if (string= dialect "R") - (let* ((project-dir (cdr (ess-r-package-project))) - (tests-dir (expand-file-name (file-name-as-directory "tests") - project-dir))) - (if (and project-dir - (string= project-dir dir) - (string= default-directory tests-dir)) - tests-dir - dir)) - dir)) - -(defun R-initialize-on-start (&optional proc string) - "This function is run after the first R prompt. -Executed in process buffer." - (interactive) - ;; sometimes needed (MM w/ Emacs 25.1, on F24 where PAGER is 'more'): - ;; carefully set "pager" option "when needed": - (let ((pager-cmd (format - "if(identical(getOption('pager'), - file.path(R.home(), 'bin', 'pager'))) - options(pager='%s')\n" - inferior-ess-pager))) - (ess-command pager-cmd)) - (inferior-ess-r-load-ESSR) - (when inferior-ess-language-start - (ess-command (concat inferior-ess-language-start "\n"))) - (with-ess-process-buffer nil - (add-hook 'ess-presend-filter-functions 'ess-R-scan-for-library-call nil 'local) - (run-mode-hooks 'ess-r-post-run-hook))) - -;;;###autoload -(defun R-mode (&optional proc-name) - "Major mode for editing R source. See `ess-mode' for more help." - (interactive "P") - (setq ess-customize-alist ess-r-customize-alist) - ;;(setq imenu-generic-expression R-imenu-generic-expression) - (ess-mode ess-r-customize-alist proc-name) - ;; for emacs >= 24 - (remove-hook 'completion-at-point-functions 'ess-filename-completion 'local) ;; should be first - (add-hook 'completion-at-point-functions 'ess-r-object-completion nil 'local) - (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local) - (when (>= emacs-major-version 25) - (add-hook 'xref-backend-functions #'ess-r-xref-backend nil 'local)) - - (if (fboundp 'ess-add-toolbar) (ess-add-toolbar)) - (when ess-imenu-use-S - (setq imenu-generic-expression ess-imenu-S-generic-expression) - (imenu-add-to-menubar "Imenu-R")) - - ;; useful for swankr/slime: - (set (make-local-variable 'beginning-of-defun-function) - (lambda (&optional arg) - (skip-chars-backward " \t\n") - (ess-beginning-of-function 'no-error))) - (set (make-local-variable 'end-of-defun-function) - 'ess-end-of-function) - - (ess-roxy-mode t) - (ad-activate 'fill-paragraph) - (ad-activate 'move-beginning-of-line) - (ad-activate 'back-to-indentation) - (ad-activate 'ess-eval-line-and-step) - - ;; FIXME: Why advice our own function? - (when ess-roxy-hide-show-p - (ad-activate 'ess-indent-command)) - - (run-mode-hooks 'R-mode-hook)) - -;;;###autoload -(defalias 'r-mode #'R-mode) -;;;###autoload -(defalias 'ess-r-mode #'R-mode) - -;;;###autoload -(add-to-list 'auto-mode-alist '("/R/.*\\.q\\'" . R-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[rR]\\'" . R-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[rR]profile\\'" . R-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("NAMESPACE\\'" . R-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("CITATION\\'" . R-mode)) - - -;;*;; Miscellaneous - -(defun ess-R-arch-2-bit (arch) - "Translate R's architecture shortcuts/directory names to 'bits'. -ARCH \"32\" or \"64\" (for now)." - (if (string= arch "i386") "32" - ;; else: - "64")) - -(defun ess-rterm-arch-version (long-path &optional give-cons) - "Find a name for LONG-PATH, an absolute path to R on Windows. -Returns either Name, a string, or a (Name . Path) cons, such as - -(\"R-2.12.1-64bit\" . \"C:/Program Files/R/R-2.12.1/bin/x64/Rterm.exe\") - -\"R-x.y.z/bin/Rterm.exe\" will return \"R-x.y.z\", for R-2.11.x and older. -\"R-x.y.z/bin/i386/Rterm.exe\" will return \"R-x.y.z-32bit\", for R-2.12.x and newer. -\"R-x.y.z/bin/x64/Rterm.exe\" will return \"R-x.y.z-64bit\", for R-2.12.x and newer." - (let* ((dir (directory-file-name (file-name-directory long-path))) - (dir2 (directory-file-name (file-name-directory dir))) - (v-1up (file-name-nondirectory dir));; one level up - (v-2up (file-name-nondirectory dir2));; two levels up; don't want "bin" ... - (v-3up (file-name-nondirectory ;; three levels up; no "bin" for i386, x64 ... - (directory-file-name (file-name-directory dir2)))) - (val (if (string= v-2up "bin") - (concat v-3up "-" (ess-R-arch-2-bit v-1up) "bit") - ;; pre R-2.12.x, or when there's no extra arch-specific sub directory: - v-2up))) - (if give-cons - (cons val long-path) - val))) - -(defun ess-r-define-runners () - "Generate functions for starting other versions of R. -See `ess-r-versions' for strings that determine which functions -are created. On MS Windows, this works using -`ess-rterm-version-paths' instead. - -The functions will normally be placed on the menubar and stored -as `ess-r-created-runners' upon ESS initialization." - (when ess-r-versions - ;; try to find R versions in ess-r-versions. - (let ((versions - ;; Find which versions of R we want. Remove the pathname, leaving just - ;; the name of the executable. - (if ess-microsoft-p - (mapcar (lambda (v) (car (ess-rterm-arch-version v 'give-cons))) - ess-rterm-version-paths) - (ess-uniq-list - (mapcar #'file-name-nondirectory - (apply #'nconc - (mapcar #'ess-find-exec-completions - ess-r-versions))))))) - ;; Iterate over each string in VERSIONS, creating a new defun each time. - (setq ess-r-created-runners versions) - (if ess-microsoft-p - (cl-mapcar (lambda (v p) (ess-define-runner v "R" p)) versions ess-rterm-version-paths) - (mapc (lambda (v) (ess-define-runner v "R")) versions)) - ;; Add to menu - (when ess-r-created-runners - ;; new-menu will be a list of 3-vectors, of the form: - ;; ["R-1.8.1" R-1.8.1 t] - (let ((new-menu (mapcar (lambda(x) (vector x (intern x) t)) - ess-r-created-runners))) - (easy-menu-add-item ess-mode-menu '("Start Process") - (cons "Other" new-menu))))))) -(define-obsolete-function-alias - 'ess-r-versions-create 'ess-r-define-runners "ESS 18.10") - -(defvar ess-newest-R nil - "Stores the newest version of R that has been found. -Used as a cache, within `ess-find-newest-R'. Do not use this value -directly, but instead call the function \\[ess-find-newest-R].") - - -(defcustom ess-prefer-higher-bit t - "Non-nil means prefer higher bit architectures of R. -e.g. prefer 64 bit over 32 bit. This is currently used only -by the code on Windows for finding the newest version of R." - :group 'ess-R - :type 'boolean) - -(defun ess-rterm-prefer-higher-bit () - "Optionally remove 32bit Rterms from being candidate for `R-newest'. -Return the list of candidates for being `R-newest'. Filtering is -done iff `ess-prefer-higher-bit' is non-nil. This is used only by -Windows when running `ess-find-newest-R'." - (if ess-prefer-higher-bit - ;; filter out 32 bit elements - (let ((filtered - (delq nil - (mapcar (lambda (x) (unless (string-match "/i386/Rterm.exe" x) x)) - ess-rterm-version-paths)))) - (if (null filtered) - ;; if none survived filtering, keep the original list - ess-rterm-version-paths - filtered)) - ess-rterm-version-paths)) - - -(defun ess-find-newest-R () - "Find the newest version of R on the system. -Once the value is found, cache it in the variable `ess-newest-R' -for future use as finding the newest version of R can be -potentially time-consuming." - (or ess-newest-R - (progn (message "Finding all versions of R on your system...") - ;;(sleep-for 3) - nil) - (setq ess-newest-R - (ess-newest-r - (if ess-microsoft-p - (ess-rterm-prefer-higher-bit) - (add-to-list 'ess-r-created-runners - inferior-ess-r-program)))))) - -(defun ess-check-R-program () - "Check if `inferior-ess-r-program' points to an executable version of R. -If not, try to find the newest version of R elsewhere on the system, and -update `inferior-ess-r-program' accordingly." - (unless (executable-find inferior-ess-r-program) - ;; need to check if we can find another name. - (let ((newest (ess-find-newest-R))) - (if newest - (setq inferior-ess-r-program newest) - (message "Sorry, no version of R could be found on your system."))))) - -(defun R-newest (&optional start-args) - "Find the newest version of R available, and run it. -Subsequent calls to `R-newest' will run that version, rather than searching -again for the newest version. Providing an optional prefix START-ARGS (\\[universal-argument]) will -prompt for command line arguments." - (interactive "P") - (let ((rnewest (ess-find-newest-R))) - (if (not rnewest) - (error "No version of R could be found") - ;; Else: we have a working version of R. - ;; Have to be careful to avoid recursion... - (message (concat "Newest version of R is " rnewest)) - (fset 'R-newest - (intern - (if ess-microsoft-p - (ess-rterm-arch-version rnewest) - rnewest))) - ;;(fset 'R-newest (intern rnewest)) - (R-newest start-args)))) - -;; (ess-r-version-date "R-2.5.1") (ess-r-version-date "R-patched") -;; (ess-r-version-date "R-1.2.1") (ess-r-version-date "R-1.8.1") -;; Windows: -;; (ess-r-version-date "C:/Program Files (x86)/R/R-2.11.1/bin/Rterm.exe") -;; Note that for R-devel, ver-string is something like -;; R version 2.6.0 Under development (unstable) (2007-07-14 r42234) -;; Antique examples are 'R 1.0.1 (April 14, 2000)' or 'R 1.5.1 (2002-06-17).' -(defun ess-r-version-date (rver) - "Return the date of the version of R named RVER. -The date is returned as a date string. If the version of R could -not be found from the output of the RVER program, \"-1\" is -returned." - (let ((date "-1") - (ver-string (shell-command-to-string - ;; here, MS Windows (shell-command) needs a short name: - (concat (if (and ess-microsoft-p - ;; silence byte compiler warns about w32-fns - (fboundp 'w32-short-file-name)) - (w32-short-file-name rver) - rver) - " --version")))) - (when (string-match - "R \\(version \\)?[1-9][^\n]+ (\\(2[0-9-]+\\)\\( r[0-9]+\\)?)" - ver-string) - (setq date (match-string 2 ver-string))) - (cons date rver))) - -(defun ess-current-R-version () - "Get the version of R currently running in the ESS buffer as a string." - (ess-make-buffer-current) - (car (ess-get-words-from-vector "as.character(.ess.Rversion)\n"))) - -(defun ess-current-R-at-least (version) - "Is the version of R (in the ESS buffer) at least (\">=\") VERSION ? -Examples: (ess-current-R-at-least '2.7.0) - or (ess-current-R-at-least \"2.5.1\")" - (ess-make-buffer-current) - (string= "TRUE" - (car (ess-get-words-from-vector - (format "as.character(.ess.Rversion >= \"%s\")\n" version))))) - -(defvar ess-temp-newest nil) - -(defun ess-newest-r (rvers) - "Check all the versions of RVERS to see which is the newest. -Return the name of the newest version of R." - (let ((rtimes (mapcar 'ess-r-version-date rvers))) - ;; SJE: 2007-07-13 -- following line is a temp var to check that - ;; the newest version of R is found correctly. - ;; (nowadays gives a compile warning) - (setq ess-temp-newest rtimes) - (ess-find-newest-date rtimes))) - -(defun ess-find-newest-date (rvers) - "Find the newest version of R given in the a-list RVERS. -Each element of RVERS is a dotted pair (date . R-version), where -date is given as e.g.\"2007-11-30\" so that we can compare dates -as strings. If a date is listed as \"-1\", that version of R -could not be found. - -If the value returned is nil, no valid newest version of R could be found." - (let (new-r this-r - (new-time "0")) - (while rvers - (setq this-r (car rvers) - rvers (cdr rvers)) - (when (string< new-time (car this-r)) - (setq new-time (car this-r) - new-r (cdr this-r)))) - new-r)) - -(defun ess-find-rterm (&optional ess-R-root-dir bin-Rterm-exe) - "Find the full path of all occurences of Rterm.exe under the ESS-R-ROOT-DIR. -If ESS-R-ROOT-DIR is nil, construct it by looking for an -occurence of Rterm.exe in the `exec-path'. If there are no -occurences of Rterm.exe in the `exec-path', then use -`ess-program-files' (which evaluates to something like -\"c:/progra~1/R/\" in English locales) which is the default -location for the R distribution. If BIN-RTERM-EXE is nil, then -use \"bin/Rterm.exe\"." - (if (not ess-R-root-dir) - (let ((Rpath (executable-find "Rterm"))) - (setq ess-R-root-dir - (expand-file-name - (if Rpath - (concat (file-name-directory Rpath) "../../") - (concat ess-program-files "/R/")))) - (ess-write-to-dribble-buffer - (format "(ess-find-rterm): ess-R-root-dir = '%s'\n" ess-R-root-dir)))) - - (if (not bin-Rterm-exe) (setq bin-Rterm-exe "bin/Rterm.exe")) - - (when (file-directory-p ess-R-root-dir) ; otherwise file-name-all-.. errors - (setq ess-R-root-dir - (replace-regexp-in-string "[\\]" "/" ess-R-root-dir)) - (let ((R-ver - (ess-drop-non-directories - (ess-flatten-list - (mapcar (lambda (r-prefix) - (file-name-all-completions r-prefix ess-R-root-dir)) - (append '("rw") ess-r-versions)))))) - (mapcar (lambda (dir) - (let ((R-path - (concat ess-R-root-dir - (replace-regexp-in-string "[\\]" "/" dir) - bin-Rterm-exe))) - (if (file-exists-p R-path) R-path))) - R-ver)))) - -;;;###autoload -(defun Rnw-mode () - "Major mode for editing Sweave(R) source. -See `ess-noweb-mode' and `R-mode' for more help." - (interactive) - (require 'ess-noweb);; << probably someplace else - (setq ess--make-local-vars-permanent t) - (ess-noweb-mode 1); turn it on - (ess-noweb-set-doc-mode 'latex-mode) - (ess-noweb-set-code-mode 'R-mode) - (setq ess--local-handy-commands - (append '(("weave" . ess-swv-weave) - ("tangle" . ess-swv-tangle)) - ess-handy-commands) - ess-dialect "R" - ess-language "S") - (put 'ess--local-handy-commands 'permanent-local t) - (run-mode-hooks 'Rnw-mode-hook)) - -(fset 'Snw-mode 'Rnw-mode); just a synonym (for now or ever) - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[rR]nw\\'" . Rnw-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[sS]nw\\'" . Snw-mode)) - -;;;###autoload -(defun R-transcript-mode () - "Does the right thing." - (interactive) - (ess-transcript-mode ess-r-customize-alist)) - -(fset 'r-transcript-mode 'R-transcript-mode) - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[Rr]out" . R-transcript-mode)) -;;;###autoload -(add-to-list 'interpreter-mode-alist '("Rscript" . R-mode)) -;;;###autoload -(add-to-list 'interpreter-mode-alist '("r" . R-mode)) - -(defun ess-r-fix-T-F (&optional from quietly) - "Change T/F into TRUE and FALSE cautiously. -Do not change in comments and strings. Start at FROM, which -defaults to point, and change to end of buffer. When QUIETLY, do -not issue messages." - (interactive "d\nP"); point and prefix (C-u) - (save-excursion - (goto-char from) - (ess-rep-regexp "\\(\\([][=,()]\\|<-\\) *\\)T\\>" "\\1TRUE" - 'fixcase nil (not quietly)) - (goto-char from) - (ess-rep-regexp "\\(\\([][=,()]\\|<-\\) *\\)F\\>" "\\1FALSE" - 'fixcase nil (not quietly)))) -(define-obsolete-function-alias 'R-fix-T-F 'ess-r-fix-T-F - "ESS 18.10") - -(defvar ess--packages-cache nil - "Cache var to store package names. -Used by `ess-r-install-library'.") - -(defvar ess--CRAN-mirror nil - "CRAN mirror name cache.") - -(defun ess-r-install-library (&optional update pack) - "Prompt and install R package PACK. -With argument UPDATE, update cached packages list." - (interactive "P") - (inferior-ess-r-force) - (when (equal "@CRAN@" (car (ess-get-words-from-vector "getOption('repos')[['CRAN']]\n"))) - (ess-set-CRAN-mirror ess--CRAN-mirror) - (ess-wait-for-process (get-process ess-current-process-name)) - (unless pack (setq update t))) - (when (or update - (not ess--packages-cache)) - (message "Fetching R packages ... ") - (setq ess--packages-cache - (ess-get-words-from-vector "print(rownames(available.packages()), max=1e6)\n"))) - (let* ((ess-eval-visibly-p t) - (pack (or pack - (ess-completing-read "Package to install" ess--packages-cache)))) - (process-send-string (get-process ess-current-process-name) - (format "install.packages('%s')\n" pack)) - (display-buffer (buffer-name (process-buffer (get-process ess-current-process-name)))))) - -(defun ess-setRepositories () - "Call setRepositories()." - (interactive) - (if (not (string-match "^R" ess-dialect)) - (message "Sorry, not available for %s" ess-dialect) - (ess-eval-linewise "setRepositories(FALSE)\n"))) - -(defun ess-set-CRAN-mirror (&optional mirror) - "Set cran MIRROR." - (interactive) - (let ((mirror-cmd "local({r <- getOption('repos'); r['CRAN'] <- '%s';options(repos=r)})\n")) - (if mirror - (ess-command (format mirror-cmd mirror)) - (let* ((M1 (ess-get-words-from-vector "local({out <- getCRANmirrors(local.only=TRUE); print(paste(out$Name,'[',out$URL,']', sep=''))})\n")) - (M2 (mapcar (lambda (el) - (string-match "\\(.*\\)\\[\\(.*\\)\\]$" el) - (propertize (match-string 1 el) 'URL (match-string 2 el))) - M1)) - (mirror (ess-completing-read "Choose CRAN mirror" M2 nil t))) - (when mirror - (setq mirror (get-text-property 0 'URL mirror)) - (setq ess--CRAN-mirror mirror) - (ess-command (format mirror-cmd mirror)))))) - (message "CRAN mirror: %s" (car (ess-get-words-from-vector "getOption('repos')[['CRAN']]\n")))) -(define-obsolete-function-alias 'ess-setCRANMiror 'ess-set-CRAN-mirror "ESS 18.10") - -(defun ess-r-check-install-package (pkg) - "Check if package PKG is installed and offer to install if not." - (unless (ess-boolean-command (format "print(requireNamespace('%s', quietly = TRUE))\n" pkg)) - (if (y-or-n-p (format "Package '%s' is not installed. Install? " pkg)) - (ess-eval-linewise (format "install.packages('%s')\n" pkg)) - (signal 'quit nil)) - (message nil))) - -(defun ess-r-sos (cmd) - "Interface to findFn in the library sos." - (interactive "sfindFn: ") - (ess-r-check-install-package "sos") - (ess-eval-linewise (format "sos::findFn(\"%s\", maxPages=10)" cmd))) - -(defun ess-R-scan-for-library-call (string) - "Detect `library/require' call in STRING and update tracking vars. -Placed into `ess-presend-filter-functions' for R dialects." - (when (string-match-p "\\blibrary(\\|\\brequire(" string) - (ess--mark-search-list-as-changed)) - string) - -(defun ess-load-library () - "Prompt and load dialect specific library/package/module. - -Note that add-ons in R are called 'packages' and the name of this -function has nothing to do with R package mechanism, but it -rather serves a generic, dialect independent purpose. It is also -similar to `load-library' Emacs function." - (interactive) - (if (not (string-match "^R" ess-dialect)) - (message "Sorry, not available for %s" ess-dialect) - (let ((ess-eval-visibly-p t) -;;; FIXME? .packages() does not cache; installed.packages() does but is slower first time - (packs (ess-get-words-from-vector "print(.packages(T), max=1e6)\n")) - pack) - (setq pack (ess-completing-read "Load" packs)) - (ess-eval-linewise (format "library('%s')\n" pack)) - (ess--mark-search-list-as-changed) - (display-buffer (buffer-name (process-buffer (get-process ess-current-process-name))))))) - -(define-obsolete-function-alias 'ess-library 'ess-load-library "ESS[12.09-1]") - -;;; smart-comma was a bad idea -(eval-after-load "eldoc" - '(eldoc-add-command "ess-smart-comma")) - - -;;*;; Interaction with R - -;;;*;;; Evaluation - -(defun ess-r-arg (param value &optional wrap) - (let ((value (if wrap - (concat "'" value "'") - value))) - (concat ", " param " = " value))) - -(defun ess-r-build-args (visibly output namespace) - (let ((visibly (ess-r-arg "visibly" (if visibly "TRUE" "FALSE"))) - (output (ess-r-arg "output" (if output "TRUE" "FALSE"))) - (pkg (when namespace (ess-r-arg "package" namespace t))) - (verbose (when (and namespace - ess-r-namespaced-load-verbose) - (ess-r-arg "verbose" "TRUE")))) - (concat visibly output pkg verbose))) - -(ess-defmethod R ess-build-eval-command (string &optional visibly output file namespace) - (let* ((namespace (unless ess-debug-minor-mode - (or namespace (ess-r-get-evaluation-env)))) - (cmd (if namespace ".ess.ns_eval" ".ess.eval")) - (file (when file (ess-r-arg "file" file t))) - (args (ess-r-build-args visibly output namespace))) - (concat cmd "(\"" string "\"" args file ")\n"))) - -(ess-defmethod R ess-build-load-command (file &optional visibly output namespace) - (let* ((namespace (or namespace (ess-r-get-evaluation-env))) - (cmd (if namespace ".ess.ns_source" ".ess.source")) - (args (ess-r-build-args visibly output namespace))) - (concat cmd "('" file "'" args ")\n"))) - -(defun ess-r-build-eval-message (message) - (let ((env (cond (ess-debug-minor-mode - (substring-no-properties ess-debug-indicator 1)) - ((ess-r-get-evaluation-env))))) - (if env - (format "[%s] %s" env message) - message))) - -(defvar-local ess-r-evaluation-env nil - "Environment into which code should be evaluated. -When this variable is nil, code is evaluated in the current -environment. Currently only packages can be set as evaluation -environments. Use `ess-r-set-evaluation-env' to set this -variable.") - -(defun ess-r-get-evaluation-env () - "Get current evaluation env." - (or ess-r-evaluation-env - (and ess-current-process-name - (ess-get-process-variable 'ess-r-evaluation-env)))) - -(defun ess-r-set-evaluation-env (&optional arg) - "Select a package namespace for evaluation of R code. - -Call interactively with a prefix argument to disable evaluation -in a namespace. When calling from a function, ARG can be a -string giving the package to select, any other non-nil value to -disable, or nil to prompt for a package. - -If `ess-r-prompt-for-attached-pkgs-only' is non-nil, prompt only for -attached packages." - (interactive "P") - (let ((env (cond ((stringp arg) arg) - ((null arg) (ess-r--select-package-name)) - (t "*none*")))) - (if (equal env "*none*") - (let ((cur-env (ess-r-get-evaluation-env))) - ;; fixme: does not work if env is set at process level - (setq ess-r-evaluation-env nil) - (delq 'ess-r--evaluation-env-mode-line ess--local-mode-line-process-indicator) - (message (format "Evaluation in %s disabled" (propertize cur-env 'face font-lock-function-name-face)))) - (setq ess-r-evaluation-env env) - (add-to-list 'ess--local-mode-line-process-indicator 'ess-r--evaluation-env-mode-line t) - (message (format "Evaluating in %s" (propertize env 'face font-lock-function-name-face)))) - (force-mode-line-update))) - -(defvar-local ess-r--evaluation-env-mode-line - '(:eval (let ((env (ess-r-get-evaluation-env))) - (if env - (format " %s" - (propertize (if (equal env (ess-r-package-name)) - "pkg" - env) - 'face 'mode-line-emphasis)) - "")))) -(put 'ess-r--evaluation-env-mode-line 'risky-local-variable t) - -(defvar ess-r-namespaced-load-only-existing t - "Whether to load only objects already existing in a namespace.") - -(ess-defmethod R ess-load-file (file) - (cond - ;; Namespaced evaluation - ((ess-r-get-evaluation-env) - (ess-r-load-file-namespaced file)) - ;; Evaluation into current env via .ess.source() - (t - (let ((command (ess-build-load-command file nil t))) - (ess-send-string (ess-get-process) command))))) - -(defun ess-r-load-file-namespaced (&optional file) - "Load FILE into a package namespace. - -This prompts for a package when no package is currently -selected (see `ess-r-set-evaluation-env')." - (interactive) - (ess-force-buffer-current "R process to use: ") - (let* ((pkg-name (ess-r-get-evaluation-env)) - (command (ess-build-load-command file nil t pkg-name))) - (ess-send-string (ess-get-process) command))) - -(ess-defmethod R ess-send-region (proc start end visibly message type) - (cond - ;; Namespaced evaluation - ((ess-r-get-evaluation-env) - (ess-r-send-region-namespaced proc start end visibly message)) - ;; Evaluation into current env - (t - (ess-send-string proc (buffer-substring start end) visibly message type)))) - -(defun ess-r-send-region-namespaced (proc beg end &optional visibly message) - "Ask for for the package and devSource region into it." - (let* ((pkg-name (or (ess-r-get-evaluation-env) - (ess-r-set-evaluation-env)))) - (message (ess-r-build-eval-message (or message "Eval region")))) - (ess-send-string proc (buffer-substring start end) visibly message)) - - -;;;*;;; Help - -(defun ess-r-namespaced-object-p (object) - (string-match "^[[:alnum:].]+::" object)) - -(defun ess-r-build-help-command--qualified (object) - (when (ess-r-namespaced-object-p object) - (let* ((pkg-name (substring object (match-beginning 0) (- (match-end 0) 2))) - (object (concat "'" (substring object (match-end 0)) "'")) - (pkg (ess-r-arg "package" pkg-name t))) - (concat ".ess.help(" object pkg ")\n")))) - -(defun ess-r-build-help-command--get-package-dir (object dont-ask) - ;; Ugly hack to avoid tcl/tk dialogues - (let ((pkgs (ess-get-words-from-vector - (format "as.character(utils::help('%s'))\n" object)))) - (when (> (length pkgs) 1) - (if dont-ask - (car pkgs) - (ess-completing-read "Choose location" pkgs nil t))))) - -(defun ess-r-build-help-command--unqualified (object dont-ask) - (if (eq ess-help-type 'index) - ;; we are in index page, qualify with namespace - (ess-r-build-help-command--qualified (format "%s::%s" ess-help-object object)) - (let ((pkg-dir (ess-r-build-help-command--get-package-dir object dont-ask)) - (command (format inferior-ess-r-help-command object))) - (if pkg-dir - ;; Invoking `print.help_files_with_topic' - (format "do.call(structure, c('%s', attributes(%s)))\n" pkg-dir command) - command)))) - -(defun ess-r-build-help-command (object &optional dont-ask) - (or (ess-r-build-help-command--qualified object) - (ess-r-build-help-command--unqualified object dont-ask))) - -(defconst inferior-ess-r--input-help (format "^ *help *(%s)" ess-help-arg-regexp)) -(defconst inferior-ess-r--input-?-help-regexp "^ *\\(?:\\(?1:[a-zA-Z ]*?\\?\\{1,2\\}\\) *\\(?2:.+\\)\\)") -(defconst inferior-ess-r--page-regexp (format "^ *page *(%s)" ess-help-arg-regexp)) - -(defvar ess-help-r--last-help-type nil - "Variable holding the last known help type. -If it changes, we flush the cache.") - -(defun ess-help-r--check-last-help-type () - (let ((help-type (ess-string-command "getOption('help_type')\n"))) - (when (not (string= help-type ess-help-r--last-help-type)) - (let ((help-buffers (ess-help-get-local-help-buffers))) - (mapc #'kill-buffer help-buffers)) - (setq ess-help-r--last-help-type help-type)))) - -(defun ess-help-r--process-help-input (proc string) - (let ((help-match (and (string-match inferior-ess-r--input-help string) - (match-string 2 string))) - (help-?-match (and (string-match inferior-ess-r--input-?-help-regexp string) - string)) - (page-match (and (string-match inferior-ess-r--page-regexp string) - (match-string 2 string)))) - (when (or help-match help-?-match page-match) - (ess-help-r--check-last-help-type) - (cond (help-match - (ess-display-help-on-object help-match) - (process-send-string proc "\n")) - (help-?-match - (ess-help-r--display-help-? proc string help-?-match) - (process-send-string proc "\n")) - (page-match - (switch-to-buffer-other-window - (ess-command (concat page-match "\n") - (get-buffer-create (concat page-match ".rt")))) - (R-transcript-mode) - (process-send-string proc "\n"))) - t))) - -(defun ess-help-r--display-help-? (proc string help-?-match) - (cond ((string-match "\\?\\?\\(.+\\)" help-?-match) - (ess--display-indexed-help-page (concat help-?-match "\n") - "^\\([^ \t\n]+::[^ \t\n]+\\)[ \t\n]+" - (format "*ess-apropos[%s](%s)*" - ess-current-process-name (match-string 1 help-?-match)) - 'appropos)) - ((string-match "^ *\\? *\\([^ \t]+\\)$" help-?-match) - (ess-display-help-on-object (match-string 1 help-?-match))) - ;; Anything else we send to process almost unchanged - (t - (let ((help-?-match (and (string-match inferior-ess-r--input-?-help-regexp string) - (format "%s%s" (match-string 1 string) - (ess-help-r--sanitize-topic (match-string 2 string)))))) - (ess-display-help-on-object help-?-match "%s\n"))))) - -(defun ess-help-r--sanitize-topic (string) - "Enclose help topic STRING into `` to avoid ?while ?if etc hangs." - (if (string-match "\\([^:]*:+\\)\\(.*\\)$" string) ; treat foo::bar corectly - (format "%s`%s`" (match-string 1 string) (match-string 2 string)) - (format "`%s`" string))) - - -;;;*;;; Utils for inferior R process - -(defun inferior-ess-r-input-sender (proc string) - (save-current-buffer - (or (ess-help-r--process-help-input proc string) - (inferior-ess-input-sender proc string)))) - -(defun inferior-ess-r-load-ESSR () - "Load/INSTALL/Update ESSR." - (let* ((pkg-dir (expand-file-name "ESSR" ess-etc-directory)) - (src-dir (expand-file-name "R" pkg-dir))) - (if (not (or (and (boundp 'ess-remote) ess-remote) - (file-remote-p (ess-get-process-variable 'default-directory)))) - (inferior-ess-r-load-ESSR--local pkg-dir src-dir) - (inferior-ess-r-load-ESSR--remote pkg-dir src-dir)))) - -(defun inferior-ess-r-load-ESSR--local (pkg-dir src-dir) - (let ((cmd (format "local({ - source('%s/.load.R', local=TRUE) #define load.ESSR - load.ESSR('%s') - })\n" - src-dir src-dir))) - (ess-write-to-dribble-buffer (format "load-ESSR cmd:\n%s\n" cmd)) - (with-current-buffer (ess-command cmd) - (let ((msg (buffer-string))) - (when (> (length msg) 1) - (message (format "load ESSR: %s" msg))))))) - -(defun inferior-ess-r-load-ESSR--remote (pkg-dir src-dir) - (let* ((verfile (expand-file-name "VERSION" pkg-dir)) - (loadremote (expand-file-name "LOADREMOTE" pkg-dir)) - (version (if (file-exists-p verfile) - (with-temp-buffer - (insert-file-contents verfile) - (buffer-string)) - (error "Cannot find ESSR source code"))) - (r-load-code (with-temp-buffer - (insert-file-contents loadremote) - (buffer-string)))) - (ess-write-to-dribble-buffer (format "version file: %s\nloadremote file: %s\n" - verfile loadremote)) - (unless (ess-boolean-command (format r-load-code version) nil 0.1) - (let ((errmsg (with-current-buffer " *ess-command-output*" (buffer-string))) - (files (directory-files src-dir t "\\.R$"))) - (ess-write-to-dribble-buffer (format "error loading ESSR.rda: \n%s\n" errmsg)) - ;; should not happen, unless extrem conditions (ancient R or failed download)) - (message "Failed to download ESSR.rda (see *ESS* buffer). Injecting ESSR code from local machine") - (ess-command (format ".ess.ESSRversion <- '%s'\n" version)) ; cannot do this at R level - (mapc #'ess--inject-code-from-file files))))) - -(ess-defmethod R ess-quit (&optional no-save) - (let (cmd - (sprocess (ess-get-process ess-current-process-name))) - (when (not sprocess) (error "No ESS process running")) - (ess-cleanup) - (setq cmd (format "base::q('%s')\n" (if no-save "no" "default"))) - (goto-char (marker-position (process-mark sprocess))) - (process-send-string sprocess cmd))) - -(defcustom inferior-ess-r-reload-hook nil - "Hook run when reloading the R inferior buffer." - :type 'hook - :group 'ess-R) - -(ess-defmethod R inferior-ess-reload (&optional start-args) - (run-ess-r start-args) - (run-hooks 'inferior-ess-r-reload-hook)) - -(defun inferior-ess-r-force (&optional prompt force no-autostart ask-if-1) - (setq ess-dialect "R") - (ess-force-buffer-current prompt force no-autostart ask-if-1)) - - -;;*;; Editing Tools - -;;;*;;; Indentation Engine - -;; Written by Lionel Henry in mid 2015 - -(defun ess-r-indent-line () - "Indent current line as ESS R code. -Return the amount the indentation changed by." - (let ((indent (ess-calculate-indent nil)) - beg shift-amt - (case-fold-search nil) - (pos (- (point-max) (point)))) - (beginning-of-line) - (setq beg (point)) - (skip-chars-forward " \t") - (setq shift-amt (- indent (current-column))) - (if (zerop shift-amt) - (if (> (- (point-max) pos) (point)) - (goto-char (- (point-max) pos))) - (delete-region beg (point)) - (indent-to indent) - ;; If initial point was within line's indentation, - ;; position after the indentation. - ;; Else stay at same point in text. - (when (> (- (point-max) pos) (point)) - (goto-char (- (point-max) pos)))) - shift-amt)) - -(defun ess-r-indent-exp () - (save-excursion - (when current-prefix-arg - (ess-climb-to-top-level)) - (let* ((bounds (ess-continuations-bounds)) - (end (cadr bounds)) - (beg (if current-prefix-arg - (car bounds) - (forward-line) - (point)))) - (indent-region beg end)))) - -(defun ess-indent-call (&optional start) - (save-excursion - (when (ess-escape-calls) - (setq start (or start (point))) - (skip-chars-forward "^[(") - (forward-char) - (ess-up-list) - (indent-region start (point))))) - -(defun ess-offset (offset) - (setq offset (eval (intern (concat "ess-offset-" (symbol-name offset))))) - (when (and (not (eq offset nil)) - (listp offset) - (or (numberp (cadr offset)) - (eq (cadr offset) t) - (error "Malformed offset"))) - (setq offset (cadr offset))) - (cond ((numberp offset) - offset) - ((null offset) - 0) - (t - ess-indent-offset))) - -(defun ess-offset-type (offset) - (setq offset (eval (intern (concat "ess-offset-" (symbol-name offset))))) - (if (listp offset) - (car offset) - offset)) - -(defun ess-overridden-blocks () - (append (when (memq 'fun-decl ess-align-blocks) - (list (car ess-prefixed-block-patterns))) - (when (memq 'control-flow ess-align-blocks) - (append (cdr ess-prefixed-block-patterns) - '("}?[ \t]*else"))))) - -(defun ess-calculate-indent (&optional parse-start) - "Return appropriate indentation for current line as ESS code. -In usual case returns an integer: the column to indent to. -Returns nil if line starts inside a string, t if in a comment." - (save-excursion - (beginning-of-line) - (let* ((indent-point (point)) - (state (syntax-ppss)) - (containing-sexp (cadr state)) - (prev-containing-sexp (car (last (butlast (nth 9 state)))))) - (ess-back-to-indentation) - (cond - ;; Strings - ((ess-inside-string-p) - (current-indentation)) - ;; Comments - ((ess-calculate-indent--comments)) - ;; Indentation of commas - ((looking-at ",") - (ess-calculate-indent--comma)) - ;; Arguments: Closing - ((ess-call-closing-p) - (ess-calculate-indent--call-closing-delim)) - ;; Block: Contents (easy cases) - ((ess-calculate-indent--block-relatively)) - ;; Block: Prefixed block - ((ess-calculate-indent--prefixed-block-curly)) - ;; Continuations - ((ess-calculate-indent--continued)) - ;; Block: Overridden contents - ((ess-calculate-indent--aligned-block)) - ;; Block: Opening - ((ess-block-opening-p) - (ess-calculate-indent--block-opening)) - ;; Bare line - ((and (null containing-sexp) - (not (ess-unbraced-block-p))) - 0) - ;; Block: Closing - ((ess-block-closing-p) - (ess-calculate-indent--block 0)) - ;; Block: Contents - ((ess-block-p) - (ess-calculate-indent--block)) - ;; Arguments: Nested calls override - ((ess-calculate-indent--nested-calls)) - ;; Arguments: Contents - (t - (ess-calculate-indent--args)))))) - -(defun ess-calculate-indent--comments () - (when ess-indent-with-fancy-comments - (cond - ;; ### or #! - ((or (looking-at "###") - (and (looking-at "#!") - (= 1 (line-number-at-pos)))) - 0) - ;; Single # comment - ((looking-at "#[^#']") - comment-column)))) - -(defun ess-calculate-indent--comma () - (when (ess-inside-call-p) - (let ((indent (save-excursion - (ess-calculate-indent--args))) - (unindent (progn (skip-chars-forward " \t") - ;; return number of skiped chars - (skip-chars-forward ", \t")))) - (- indent unindent)))) - -(defun ess-calculate-indent--call-closing-delim () - (cond ((save-excursion - (ess-skip-blanks-backward t) - (eq (char-before) ?,)) - (ess-calculate-indent--args nil)) - ((save-excursion - (and (ess-ahead-operator-p) - (or (ess-ahead-definition-op-p) - (not ess-align-continuations-in-calls)))) - (ess-calculate-indent--continued)) - (t - (ess-calculate-indent--args 0)))) - -(defun ess-calculate-indent--block-opening () - (cond - ;; Block is an argument in a function call - ((when containing-sexp - (ess-at-containing-sexp - (ess-behind-call-opening-p "[[(]"))) - (ess-calculate-indent--block 0)) - ;; Top-level block - ((null containing-sexp) 0) - ;; Block is embedded in another block - ((ess-at-containing-sexp - (+ (current-indentation) - (ess-offset 'block)))))) - -(defun ess-calculate-indent--aligned-block () - ;; Check for `else' opening - (if (and (memq 'control-flow ess-align-blocks) - (looking-at "else\\b") - (ess-climb-if-else)) - (progn - (when (looking-at "else\\b") - (ess-skip-curly-backward)) - (current-column)) - ;; Check for braced and unbraced blocks - (ess-save-excursion-when-nil - (let ((offset (if (looking-at "[{})]") - 0 (ess-offset 'block)))) - (when (and (cond - ;; Unbraced blocks - ((ess-climb-block-prefix)) - ;; Braced blocks - (containing-sexp - (when (ess-at-containing-sexp - (looking-at "{")) - (ess-escape-prefixed-block)))) - (cl-some 'looking-at - (ess-overridden-blocks))) - (+ (current-column) offset)))))) - -(defun ess-calculate-indent--block-relatively () - (ess-save-excursion-when-nil - (let ((offset (if (looking-at "[})]") 0 (ess-offset 'block))) - (start-line (line-number-at-pos))) - (cond - ;; Braceless block continuations: only when not in a call - ((ess-save-excursion-when-nil - (and (not (looking-at "{")) - (ess-goto-char (ess-unbraced-block-p)) - (not (looking-at "function\\b")) - (or (null containing-sexp) - (ess-at-containing-sexp - (not (looking-at "(")))))) - (ess-maybe-climb-broken-else 'same-line) - (ess-skip-curly-backward) - (+ (current-column) - (ess-offset 'block))) - ;; Don't indent relatively other continuations - ((ess-ahead-continuation-p) - nil) - ;; If a block already contains an indented line, we can indent - ;; relatively from that first line - ((ess-save-excursion-when-nil - (and (not (looking-at "}")) - containing-sexp - (goto-char containing-sexp) - (looking-at "{") - (progn - (forward-line) - (ess-back-to-indentation) - (/= (line-number-at-pos) start-line)) - (not (looking-at "[ \t]*\\(#\\|$\\)")) - (save-excursion - (or (ess-jump-expression) - (ess-jump-continuations)) - (< (line-number-at-pos) start-line)))) - (current-column)) - ;; If a block is not part of a call, we can indent relatively - ;; from the opening {. First check that enclosing { is first - ;; thing on line - ((and containing-sexp - (not (ess-unbraced-block-p)) - (goto-char containing-sexp) - (ess-block-opening-p) - (equal (point) (save-excursion - (ess-back-to-indentation) - (point)))) - (+ (current-column) offset)))))) - -(defun ess-arg-block-p () - (unless (or (null containing-sexp) - ;; Unbraced blocks in a { block are not arg blocks - (and (ess-unbraced-block-p) - (ess-at-containing-sexp - (looking-at "{")))) - (cond - ;; Unbraced body - ((ess-at-indent-point - (and (ess-unbraced-block-p) - (goto-char containing-sexp) - (ess-behind-call-opening-p "[[(]"))) - 'body) - ;; Indentation of opening brace as argument - ((ess-at-containing-sexp - (ess-behind-call-opening-p "[[(]")) - 'opening) - ;; Indentation of body or closing brace as argument - ((ess-at-containing-sexp - (and (or (looking-at "{") - (ess-behind-block-paren-p)) - prev-containing-sexp - (goto-char prev-containing-sexp) - (ess-behind-call-opening-p "[[(]"))) - 'body)))) - -(defun ess-calculate-indent--block (&optional offset) - (let ((arg-block (ess-arg-block-p))) - (cond (arg-block - (ess-calculate-indent--arg-block offset arg-block)) - (t - ;; Block is not part of an arguments list. Climb over any - ;; block opening (function declaration, etc) to indent from - ;; starting indentation. - (or (ess-climb-block-prefix) - (and (goto-char containing-sexp) - (ess-climb-block-prefix))) - (+ (current-indentation) (or offset (ess-offset 'block))))))) - -(defun ess-calculate-indent--arg-block (offset arg-block) - (let* ((block-type (cond ((or (ess-at-containing-sexp - (and (eq arg-block 'body) - (ess-climb-block-prefix "function"))) - (ess-at-indent-point - (and (eq arg-block 'opening) - (ess-backward-sexp 2) - (looking-at "function\\b")))) - 'fun-decl) - ((ess-at-indent-point - (ess-unbraced-block-p)) - 'unbraced) - ((ess-at-containing-sexp - (not (ess-ahead-attached-name-p))) - 'bare-block) - (t))) - (call-pos (if (and (not (eq block-type 'unbraced)) - (not (eq arg-block 'opening))) - (goto-char prev-containing-sexp) - (prog1 containing-sexp - (goto-char indent-point))))) - (ess-calculate-indent--args offset (ess-offset-type 'block) - call-pos indent-point block-type))) - -;; This function is currently the speed bottleneck of the indentation -;; engine. This is due to the need to call (ess-maximum-args-indent) -;; to check if some previous arguments have been pushed off from their -;; natural indentation: we need to check the whole call. This is very -;; inefficient especially when indenting a region containing a large -;; function call (e.g. some dplyr's data cleaning code). Should be -;; solved by implementing a cache as in (syntax-ppss), though it's -;; probably not worth the work. -(defun ess-calculate-indent--args (&optional offset type call-pos to block) - (let* ((call-pos (or call-pos containing-sexp)) - (max-col (prog1 (unless (eq type 'prev-line) - (ess-maximum-args-indent call-pos to)) - (goto-char call-pos))) - (override (and ess-align-arguments-in-calls - (save-excursion - (ess-climb-object) - (cl-some 'looking-at - ess-align-arguments-in-calls)))) - (type-sym (cond (block 'block) - ((looking-at "[[:blank:]]*[([][[:blank:]]*\\($\\|#\\)") - 'arguments-newline) - (t 'arguments))) - (type (or type - (and override 'open-delim) - (ess-offset-type type-sym))) - (offset (or offset - (and (not block) (eq type 'open-delim) 0) - (ess-offset type-sym))) - (indent - (cond - ;; Indent from opening delimiter - ((eq type 'open-delim) - (ess-calculate-indent--args-open-delim)) - ;; Indent from attached name - ((eq type 'prev-call) - (ess-calculate-indent--args-prev-call)) - ;; Indent from previous line indentation - ((eq type 'prev-line) - (ess-calculate-indent--args-prev-line)) - (t - (error "Malformed offset"))))) - (if max-col - (ess-adjust-argument-indent indent offset max-col block) - (+ indent offset)))) - -(defun ess-calculate-indent--args-open-delim () - (forward-char) - (current-column)) - -(defun ess-calculate-indent--args-prev-call () - ;; Handle brackets chains such as ][ (cf data.table) - (ess-climb-chained-delims) - ;; Handle call chains - (if ess-indent-from-chain-start - (while (and (ess-backward-sexp) - (when (looking-back "[[(][ \t,]*" (line-beginning-position)) - (goto-char (match-beginning 0))))) - (ess-backward-sexp)) - (when ess-indent-from-lhs - (ess-climb-lhs)) - (if (and nil - (eq block 'fun-decl) - (not (eq arg-block 'opening)) - (not (eq (ess-offset-type type-sym) 'open-delim))) - (+ (ess-offset 'block) (current-column)) - (current-column))) - -(defun ess-calculate-indent--args-prev-line () - (ess-at-indent-point - (cond - ;; Closing delimiters are actually not indented at - ;; prev-line, but at opening-line - ((looking-at "[]})]") - (ess-up-list -1) - (when (looking-at "{") - (ess-climb-block-prefix)) - (current-indentation)) - ;; Function blocks need special treatment - ((and (eq type 'prev-line) - (eq block 'fun-decl)) - (goto-char containing-sexp) - (ess-climb-block-prefix) - (current-indentation)) - ;; Regular case - (t - ;; Find next non-empty line to indent from - (while (and (= (forward-line -1) 0) - (looking-at "[ \t]*\\($\\|#\\)"))) - (goto-char (ess-code-end-position)) - ;; Climb relevant structures - (unless (ess-climb-block-prefix) - (when (eq (char-before) ?,) - (forward-char -1)) - (ess-climb-expression) - (ess-climb-continuations)) - ;; The following ensures that only the first line - ;; counts. Otherwise consecutive statements would get - ;; increasingly more indented. - (when (and block - containing-sexp - (not (eq block 'unbraced)) - (save-excursion - (/= (line-number-at-pos) - (progn (goto-char containing-sexp) - (line-number-at-pos))))) - (setq offset 0)) - (current-indentation))))) - -;; Indentation of arguments needs to keep track of how previous -;; arguments are indented. If one of those has a smaller indentation, -;; we push off the current line from its natural indentation. For -;; block arguments, we still need to push off this column so we ignore -;; it. -(defun ess-adjust-argument-indent (base offset max-col push) - (if push - (+ (min base max-col) offset) - (min (+ base offset) max-col))) - -;; When previous arguments are shifted to the left (can happen in -;; several situations) compared to their natural indentation, the -;; following lines should not get indented past them. The following -;; function checks the minimum indentation for all arguments of the -;; current function call or bracket indexing. -(defun ess-maximum-args-indent (&optional from to) - (let* ((to (or to (point))) - (to-line (line-number-at-pos to)) - (from-line (progn - (goto-char (1+ (or from containing-sexp))) - (line-number-at-pos))) - (prev-pos (1- (point))) - max-col) - (while (< (line-number-at-pos) to-line) - (forward-line) - (ess-back-to-indentation) - ;; Ignore the line with the function call, the line to be - ;; indented, and empty lines. - (unless (or (>= (line-number-at-pos) to-line) - (looking-at "[ \t]*\\($\\|#\\)")) - (let ((indent (cond - ;; First line: minimum indent is right after ( - ((= (line-number-at-pos) from-line) - (save-excursion - (goto-char (1+ containing-sexp)) - (current-column))) - ;; Handle lines starting with a comma - ((save-excursion - (looking-at ",")) - (+ (current-indentation) 2)) - (t - (current-indentation))))) - (setq max-col (min indent (or max-col indent)))))) - max-col)) - -;; Move to leftmost side of a call (either the first letter of its -;; name or its closing delim) -(defun ess-move-to-leftmost-side () - (when (or (looking-at "[({]") - (ess-behind-call-p)) - (ess-save-excursion-when-nil - (let ((start-col (current-column))) - (skip-chars-forward "^{[(") - (forward-char) - (ess-up-list) - (forward-char -1) - (< (current-column) start-col))))) - -(defun ess-max-col () - (let ((max-col (point))) - (save-excursion - (while (< (point) indent-point) - (unless (and ess-indent-with-fancy-comments - (looking-at "### ")) - (setq max-col (min max-col (current-column)))) - (forward-line) - (ess-back-to-indentation))) - max-col)) - -(defun ess-calculate-indent--prefixed-block-curly () - (when (looking-at "{") - (ess-save-excursion-when-nil - (let ((block-type (ess-climb-block-prefix))) - (cond ((ess-save-excursion-when-nil - (and (memq 'fun-decl-opening ess-indent-from-lhs) - (string= block-type "function") - (ess-climb-operator) - (ess-behind-assignment-op-p) - (ess-climb-expression))) - (current-column)) - ((= (save-excursion - (back-to-indentation) - (point)) - (point)) - (ess-calculate-indent--continued))))))) - -(defun ess-calculate-indent--continued () - "If a continuation line, return an indent of this line, otherwise nil." - (save-excursion - (let* ((start-line (line-number-at-pos)) - (prev-pos 0) - (cascade (eq (ess-offset-type 'continued) 'cascade)) - (climbed (ess-climb-continuations cascade)) - max-col) - (when climbed - (cond - ;; Overridden calls - ((and ess-align-continuations-in-calls - (not (eq climbed 'def-op)) - containing-sexp - (save-excursion - (goto-char containing-sexp) - (looking-at "[[(]"))) - (setq max-col (ess-max-col)) - (ess-move-to-leftmost-side) - (+ (min (current-column) max-col) - (if (eq climbed 'def-op) - (ess-offset 'continued) - 0))) - ;; Regular case - (t - (let ((first-indent (or (eq climbed 'def-op) - (save-excursion - (when (ess-ahead-closing-p) - (ess-climb-expression)) - (not (ess-climb-continuations cascade)))))) - ;; Record all indentation levels between indent-point and - ;; the line we climbed. Some lines may have been pushed off - ;; their natural indentation. These become the new - ;; reference. - (setq max-col (ess-max-col)) - ;; Indenting continuations from the front of closing - ;; delimiters looks better - (when - (ess-ahead-closing-p) - (backward-char)) - (+ (min (current-column) max-col) - (cond - ((eq (ess-offset-type 'continued) 'cascade) - (ess-offset 'continued)) - (first-indent - (ess-offset 'continued)) - (t - 0)))))))))) - -(defun ess-calculate-indent--nested-calls () - (when ess-align-nested-calls - (let ((calls (mapconcat 'identity ess-align-nested-calls "\\|")) - match) - (save-excursion - (and containing-sexp - (looking-at (concat "\\(" calls "\\)(")) - (setq match (match-string 1)) - (goto-char containing-sexp) - (looking-at "(") - (ess-backward-sexp) - (looking-at (concat match "(")) - (current-column)))))) - - -;;;*;;; Call filling engine - -;; Unroll arguments to a single line until closing marker is found. -(defun ess-fill--unroll-lines (bounds &optional jump-cont) - (let* ((last-pos (point-min)) - (containing-sexp (ess-containing-sexp-position)) - prefix-break) - (goto-char (car bounds)) - (goto-char (ess-code-end-position)) - (while (and (/= (point) last-pos) - (< (line-end-position) - (cadr bounds)) - (not prefix-break)) - (setq last-pos (point)) - ;; Check whether we ended up in a sub call. In this case, jump - ;; over it, otherwise, join lines. - (let ((contained-sexp (ess-containing-sexp-position))) - (cond ((and contained-sexp - containing-sexp - (not (= containing-sexp contained-sexp))) - (goto-char (1+ contained-sexp)) - (ess-up-list)) - ;; Jump over continued statements - ((and jump-cont (ess-ahead-operator-p 'strict)) - (ess-climb-token) - (ess-jump-continuations)) - ;; Jump over comments - ((looking-at "#") - (forward-line) - (ess-indent-line)) - (t - (join-line 1)))) - (goto-char (ess-code-end-position))) - (goto-char (car bounds)))) - -(defvar ess-fill--orig-pos nil - "Original position of cursor.") - -(defvar ess-fill--orig-state nil - "Backup of original code to cycle back to original state.") - -(defvar ess-fill--second-state nil - "Backup of code produce by very first cycling. -If this is equal to orig-state, no need to cycle back to original -state.") - -(defvar ess-fill--style-level nil - "Filling style used in last cycle.") - -(defun ess-fill--substring (bounds) - (buffer-substring (car bounds) (marker-position (cadr bounds)))) - -;; Detect repeated commands -(defun ess-fill-style (type bounds) - (let ((max-level - ;; This part will be simpler once we have the style alist - (cond ((eq type 'calls) - ;; No third style either when ess-offset-arguments is - ;; set to 'open-delim, or when ess-fill-calls-newlines - ;; is nil and no numeric prefix is given - (if (and (not (eq (ess-offset-type 'arguments) - 'open-delim)) - (or ess-fill-calls-newlines - (numberp current-prefix-arg))) - 3 - 2)) - ((eq type 'continuations) - 2)))) - (if (not (memq last-command '(fill-paragraph-or-region - fill-paragraph))) - (progn - ;; Record original state on first cycling - (setq ess-fill--orig-state (ess-fill--substring bounds)) - (setq ess-fill--orig-pos (point)) - (setq ess-fill--second-state nil) - (setq ess-fill--style-level 1)) - ;; Also record state on second cycling - (when (and (= ess-fill--style-level 1) - (null ess-fill--second-state)) - (setq ess-fill--second-state (ess-fill--substring bounds))) - (cond ((>= ess-fill--style-level max-level) - (let ((same-last-and-orig (string= (ess-fill--substring bounds) - ess-fill--orig-state)) - (same-2nd-and-orig (string= ess-fill--orig-state - ess-fill--second-state))) - ;; Avoid cycling to the same state twice - (cond ((and same-last-and-orig - same-2nd-and-orig) - (setq ess-fill--style-level 2)) - ((or same-last-and-orig - same-2nd-and-orig) - (setq ess-fill--style-level 1)) - (t - (setq ess-fill--style-level 0))))) - (ess-fill--style-level - (setq ess-fill--style-level (1+ ess-fill--style-level)))))) - ess-fill--style-level) - -(defun ess-fill-args (&optional style) - (let ((start-pos (point-min)) - (orig-col (current-column)) - (orig-line (line-number-at-pos)) - (bounds (ess-args-bounds 'marker)) - ;; Set undo boundaries manually - (undo-inhibit-record-point t) - last-pos last-newline prefix-break - infinite) - (when (not bounds) - (error "Could not find function bounds")) - (setq style (or style (ess-fill-style 'calls bounds))) - (if (= style 0) - (progn - (delete-region (car bounds) (marker-position (cadr bounds))) - (insert ess-fill--orig-state) - ;; Restore the point manually. (save-excursion) wouldn't - ;; work here because we delete the text rather than just - ;; modifying it. - (goto-char ess-fill--orig-pos) - (message "Back to original formatting")) - (when ess-blink-refilling - (ess-blink-region (nth 2 bounds) - (1+ (marker-position (cadr bounds))))) - (undo-boundary) - (save-excursion - (ess-fill--unroll-lines bounds t) - (cond - ;; Some styles start with first argument on a newline - ((and (memq style '(2 4)) - ess-fill-calls-newlines - (not (looking-at "[ \t]*#"))) - (newline-and-indent)) - ;; Third level, start a newline after N arguments - ((and (= style 3) - (not (looking-at "[ \t]*#"))) - (let ((i (if (numberp current-prefix-arg) - current-prefix-arg - 1))) - (while (and (> i 0) - (ess-jump-arg) - (ess-jump-char ",")) - (setq i (1- i)))) - (newline-and-indent))) - (ess-fill-args--roll-lines) - ;; Reindent surrounding context - (ess-indent-call (car bounds))) - ;; Signal marker for garbage collection - (set-marker (cadr bounds) nil) - (undo-boundary)))) - -(defun ess-fill-args--roll-lines () - (while (and (not (looking-at "[])]")) - (/= (point) (or last-pos 1)) - (not infinite)) - (setq prefix-break nil) - ;; Record start-pos as future breaking point to avoid breaking - ;; at `=' sign - (while (looking-at "[ \t]*[\n#]") - (forward-line) - (ess-back-to-indentation)) - (setq start-pos (point)) - (while (and (< (current-column) fill-column) - (not (looking-at "[])]")) - (/= (point) (or last-pos 1)) - ;; Break after one pass if prefix is active - (not prefix-break)) - (when (memq style '(2 3)) - (setq prefix-break t)) - (ess-jump-token ",") - (setq last-pos (point)) - ;; Jump expression and any continuations. Reindent all lines - ;; that were jumped over - (let ((cur-line (line-number-at-pos)) - end-line) - (cond ((ess-jump-arg) - (setq last-newline nil)) - ((ess-token-after= ",") - (setq last-newline nil) - (setq last-pos (1- (point))))) - (save-excursion - (when (< cur-line (line-number-at-pos)) - (setq end-line (line-number-at-pos)) - (ess-goto-line (1+ cur-line)) - (while (and (<= (line-number-at-pos) end-line) - (/= (point) (point-max))) - (ess-indent-line) - (forward-line)))))) - (when (or (>= (current-column) fill-column) - prefix-break - ;; Ensures closing delim on a newline - (and (= style 4) - (looking-at "[ \t]*[])]") - (setq last-pos (point)))) - (if (and last-pos (/= last-pos start-pos)) - (goto-char last-pos) - (ess-jump-char ",")) - (cond ((looking-at "[ \t]*[#\n]") - (forward-line) - (ess-indent-line) - (setq last-newline nil)) - ;; With levels 2 and 3, closing delim goes on a newline - ((looking-at "[ \t]*[])]") - (when (and (memq style '(2 3 4)) - ess-fill-calls-newlines - (not last-newline)) - (newline-and-indent) - ;; Prevent indenting infinitely - (setq last-newline t))) - ((not last-newline) - (newline-and-indent) - (setq last-newline t)) - (t - (setq infinite t)))))) - -(defun ess-fill-continuations (&optional style) - (let ((bounds (ess-continuations-bounds 'marker)) - (undo-inhibit-record-point t) - (last-pos (point-min)) - last-newline infinite) - (when (not bounds) - (error "Could not find statements bounds")) - (setq style (or style (ess-fill-style 'continuations bounds))) - (if (= style 0) - (progn - (delete-region (car bounds) (marker-position (cadr bounds))) - (insert ess-fill--orig-state) - (goto-char ess-fill--orig-pos) - (message "Back to original formatting")) - (when ess-blink-refilling - (ess-blink-region (car bounds) (marker-position (cadr bounds)))) - (undo-boundary) - (save-excursion - (ess-fill--unroll-lines bounds) - (while (and (< (point) (cadr bounds)) - (/= (point) (or last-pos 1)) - (not infinite)) - (setq last-pos (point)) - (when (and (ess-jump-expression) - (indent-according-to-mode) - (not (> (current-column) fill-column))) - (setq last-newline nil)) - (ess-jump-operator) - (if (or (and (> (current-column) fill-column) - (goto-char last-pos)) - (= style 2)) - (progn - (ess-jump-operator) - (unless (= (point) (cadr bounds)) - (when last-newline - (setq infinite t)) - (newline-and-indent) - (setq last-newline t))) - (setq last-newline nil))) - (ess-indent-call (car bounds))) - (set-marker (cadr bounds) nil) - (undo-boundary)))) - - - -;; Create functions that can be called for running different versions -;; of R. -;; FIXME: Should be set in ess-custom -(setq ess-rterm-version-paths - (ess-flatten-list - (ess-uniq-list - (if (not ess-directory-containing-R) - (if (getenv "ProgramW6432") - (let ((P-1 (getenv "ProgramFiles(x86)")) - (P-2 (getenv "ProgramW6432"))) - (nconc - ;; Always 32 on 64 bit OS, nil on 32 bit OS - (ess-find-rterm (concat P-1 "/R/") "bin/Rterm.exe") - (ess-find-rterm (concat P-1 "/R/") "bin/i386/Rterm.exe") - - ;; Keep this both for symmetry and because it can happen: - (ess-find-rterm (concat P-1 "/R/") "bin/x64/Rterm.exe") - - ;; Always 64 on 64 bit OS, nil on 32 bit OS - (ess-find-rterm (concat P-2 "/R/") "bin/Rterm.exe") - (ess-find-rterm (concat P-2 "/R/") "bin/i386/Rterm.exe") - (ess-find-rterm (concat P-2 "/R/") "bin/x64/Rterm.exe"))) - (let ((PF (getenv "ProgramFiles"))) - (nconc - ;; Always 32 on 32 bit OS, depends on 32 or 64 process on 64 bit OS - (ess-find-rterm (concat PF "/R/") "bin/Rterm.exe") - (ess-find-rterm (concat PF "/R/") "bin/i386/Rterm.exe") - (ess-find-rterm (concat PF "/R/") "bin/x64/Rterm.exe")))) - (let ((PF ess-directory-containing-R)) - (nconc - (ess-find-rterm (concat PF "/R/") "bin/Rterm.exe") - (ess-find-rterm (concat PF "/R/") "bin/i386/Rterm.exe") - (ess-find-rterm (concat PF "/R/") "bin/x64/Rterm.exe"))))))) -(ess-r-define-runners) - -;;*;; Provide and auto-loads - -;;;###autoload -(add-to-list 'auto-mode-alist '("/Makevars\\(\\.win\\)?$" . makefile-mode)) - -(provide 'ess-r-mode) - -;;; Local variables: -;;; mode: emacs-lisp -;;; byte-compile-warnings: (not lexical) -;;; End: - -;;; ess-r-mode.el ends here diff --git a/elpa/ess-20181109.703/ess-r-package.el b/elpa/ess-20181109.703/ess-r-package.el deleted file mode 100644 index 77a116b0..00000000 --- a/elpa/ess-20181109.703/ess-r-package.el +++ /dev/null @@ -1,574 +0,0 @@ -;;; ess-r-package.el --- Package development mode for R. - -;; Copyright (C) 2011-2015 Lionel Henry, Vitalie Spinu, A.J. Rossini, Richard -;; M. Heiberger, Martin Maechler, Kurt Hornik, Rodney Sparapani, and -;; Stephen Eglen. - -;; Author: Lionel Henry, Vitalie Spinu -;; Maintainer: ESS-core - -;; Keywords: languages, tools - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; see apropriate documentation section of ESS user manual - -;;; Code: - -(require 'ess-custom) -(require 'ess-inf) -(require 'ess-utils) -;; Silence the byte compiler, OK because this file is only loaded by -;; ess-r-mode and has no autoloads. -(defvar ess-r-customize-alist) -(declare-function inferior-ess-r-force "ess-r-mode") -(declare-function ess-r-get-evaluation-env "ess-r-mode") -(declare-function ess-r-set-evaluation-env "ess-r-mode") - -(defvar ess-r-prompt-for-attached-pkgs-only nil - "If nil provide completion for all installed R packages. -If non-nil, only look for attached packages.") - -(define-obsolete-variable-alias 'ess-r-package-auto-set-evaluation-env 'ess-r-package-auto-enable-namespaced-evaluation "18.04") -(define-obsolete-variable-alias 'ess-r-package-auto-set-evaluation-env 'ess-r-package-auto-enable-namespaced-evaluation "18.04") -(defcustom ess-r-package-auto-enable-namespaced-evaluation t - "If non-nil, evaluation env is set to package env automatically. -See also `ess-r-set-evaluation-env' and `ess-r-evaluation-env'." - :group 'ess-r-package - :type 'boolean) - -(defvar-local ess-r-package--project-cache nil - "Current package info cache. - -Cons cell of two strings. CAR is the package name active in the -current buffer. CDR is the path to its source directory.") - -(define-obsolete-variable-alias 'ess-r-package-library-path 'ess-r-package-library-paths "v18.04") -(defcustom ess-r-package-library-paths nil - "Default path to find user packages. -Can be either a string specifying a directory or a list of directories." - :group 'ess-r-package-library-paths - :type `(choice string (repeat string))) - -(defvar ess-r-package-root-file "DESCRIPTION" - "Presence of this file indicates the project's root.") - -(defvar ess-r-package-dirs - '(("R" . 1) - ("r" . 1) - ("tests" . 1) - ("testthat" . 2) - ("inst" . 1) - ("include" . 2) - ("src" . 1)) - "Alist of directories names and their depth in R package hierarchy. -This list is used to figure out whether the current file belongs -to an R package. If the file specified in `ess-r-package-root-file' -\(DESCRIPTION by default) is found at the presumed root directory -of the package, the current directory is considered to be part of -a R package.") - -(defvar ess-r-package-source-roots - '("R" "src" "tests" "inst/include") - "List of sub-directories within R package where source files are located. -All children of these directories are also considered source -containing directories. Use `ess-r-package-source-dirs' to get -all source dirs recursively within the current package.") - - -;;;*;;; Package Detection - -(defun ess-r-package-project (&optional dir) - "Return the current package as an Emacs project instance. -A project instance is a cons cell of the project name as symbol -and the project path as string. If DIR is provided, the package -is searched from that directory instead of `default-directory'." - (if (car ess-r-package--project-cache) - ess-r-package--project-cache - (let* ((pkg-path (ess-r-package--find-package-path (or dir default-directory))) - (project (when pkg-path - (cons (ess-r-package--find-package-name pkg-path) pkg-path)))) - ;; Cache info for better performance on remotes - (setq-local ess-r-package--project-cache (or project (list nil))) - (when (car project) - (cons 'r-package (cdr project)))))) - -(defun ess-r-package-name (&optional dir) - "Return the name of the current package as a string." - (let ((project (ess-r-package-project dir))) - (when project - (symbol-name (car ess-r-package--project-cache))))) - -(defun ess-r-package-get-info () - "Deprecated function to get package info. -Please use `ess-r-package-project' instead." - (let ((project (ess-r-package-project))) - (if project - (cons (ess-r-package-name) (cdr project)) - (list nil)))) -(make-obsolete 'ess-r-package-get-info 'ess-r-package-project "17.11") - -(defun ess-r-package--all-source-dirs (dir) - (when (file-directory-p dir) - (cl-loop for f in (directory-files-and-attributes dir t "^[^.]") - if (cadr f) - append (cons (car f) (ess-r-package--all-source-dirs (car f)))))) - -(defun ess-r-package-source-dirs () - "Get paths within current R package with source files. -Return nil if not in a package. Search sub-directories listed in -`ess-r-package-source-roots' are searched recursively and -return all physically present directories." - (let ((pkg-root (cdr (ess-r-package-project)))) - (when pkg-root - (let ((files (directory-files-and-attributes pkg-root t "^[^.]"))) - (cl-loop for f in files - if (and (cadr f) - (cl-some (lambda (el) (string-match-p (concat "/" el "$") (car f))) - ess-r-package-source-roots)) - append (cons (car f) - (ess-r-package--all-source-dirs (car f)))))))) - -(defun ess-r--select-package-name () - (inferior-ess-r-force) - (let ((pkgs (ess-get-words-from-vector - (format "print(.packages(%s), max = 1e6)\n" - (if ess-r-prompt-for-attached-pkgs-only "FALSE" "TRUE")))) - (current-pkg (ess-r-package-name))) - (let ((env (ess-r-get-evaluation-env))) - (when env - (setq pkgs (append '("*none*") pkgs)) - (when (equal env current-pkg) - (setq current-pkg "*none*")))) - (ess-completing-read "Package" pkgs nil nil nil nil current-pkg))) - -(defun ess-r-package--find-package-path (&optional dir) - "Get the root of R package that contains current directory. -Root is determined by locating `ess-r-package-root-file'." - (let* ((path (cond - (dir) - ((buffer-file-name) - (file-name-directory (buffer-file-name))) - (t - default-directory))) - (pkg-path - (when path - (or - ;; First check current directory - (and (file-exists-p (expand-file-name ess-r-package-root-file path)) - path) - ;; Check for known directories in current path - (let ((current-dir (file-name-nondirectory (directory-file-name path))) - known-pkg-dir known-path presumptive-path) - (while (and path (not presumptive-path)) - (setq current-dir (file-name-nondirectory (directory-file-name path))) - (if (and (setq known-pkg-dir (assoc current-dir ess-r-package-dirs)) - (setq known-path (ess--parent-dir path (cdr known-pkg-dir))) - (file-exists-p (expand-file-name ess-r-package-root-file known-path))) - (setq presumptive-path known-path) - (setq path (ess--parent-dir path 1)))) - presumptive-path))))) - (when pkg-path - (directory-file-name pkg-path)))) - -(defun ess-r-package--find-package-name (path) - (let ((file (expand-file-name ess-r-package-root-file path)) - (case-fold-search t)) - (when (file-exists-p file) - (with-temp-buffer - (insert-file-contents file) - (goto-char (point-min)) - (when (re-search-forward "package: \\(.*\\)" nil t) - (intern (match-string 1))))))) - - -;;;*;;; UI - -(defun ess-r-package-use-dir () - "Set process directory to current package directory." - (interactive) - (let ((dir (cdr (ess-r-package-project)))) - (ess-set-working-directory (abbreviate-file-name dir)))) - -(defun ess-r-package-set-package () - "Set a package for ESS r-package commands." - (interactive) - (let* ((pkg-path (read-directory-name - "Path: " (or (ess-r-package--find-package-path) - (if (stringp ess-r-package-library-paths) - ess-r-package-library-paths - (car ess-r-package-library-paths))) - nil t)) - (pkg-name (ess-r-package--find-package-name pkg-path)) - (pkg-info (cons pkg-name pkg-path))) - (unless (and pkg-name pkg-path - (file-exists-p (expand-file-name ess-r-package-root-file pkg-path))) - (error "Not a valid package. No '%s' found in `%s'" ess-r-package-root-file pkg-path)) - (message (format "%s selected and added to file-local variables" pkg-name)) - (save-excursion - (add-file-local-variable 'ess-r-package--project-cache pkg-info)) - (setq ess-r-package--project-cache pkg-info))) - - -;;;*;;; Evaluation - -(defun ess-r-package-enable-namespaced-evaluation () - "Enable namespaced evaluation in current buffer. -Namespaced evaluation is enabled if -`ess-r-package-auto-enable-namespaced-evaluation' is non-nil." - (when ess-r-package-auto-enable-namespaced-evaluation - (let ((path (cdr (ess-r-package-project)))) - ;; Check that we are in a file within R/ - (when (and path - default-directory - (> (length default-directory) (1+ (length path))) - (let ((subpath (substring default-directory - (1+ (length path)) - (length default-directory)))) - (string= (directory-file-name subpath) "R"))) - (ess-r-set-evaluation-env (ess-r-package-name)))))) - -(add-hook 'R-mode-hook 'ess-r-package-enable-namespaced-evaluation) - -(defun ess-r-package-eval-linewise (command &optional msg p actions pkg-path) - "Send COMMAND to R process. -COMMAND is a command string with %s placeholder for the -arguments. MSG is the message displayed in minibuffer with %s -placeholder for the package name. P is the value of universal -argument usually received from the upstream command and indicates -which action in ACTIONS list to perform; if 0 or nil, first -action, if 1 or (4) second if 2 or (16) third etc. ACTIONS is a -list of strings (R arguments), or functions which return R -arguments, or expressions which return R arguments." - (inferior-ess-r-force) - (let* ((pkg-info (or (ess-r-package-project) - (ess-r-package-set-package))) - (pkg-name (ess-r-package-name)) - (pkg-path (or pkg-path (concat "'" (abbreviate-file-name (cdr pkg-info)) "'"))) - (args (ess-r-command--build-args p actions))) - (message msg pkg-name) - (with-ess-process-buffer nil - (setq ess-r-package--project-cache ess-r-package--project-cache)) - (ess-show-buffer (ess-get-process-buffer)) - (ess-eval-linewise (format command (concat pkg-path args))))) - -(defun ess-r-command--build-args (ix &optional actions) - (let* ((n (cond ((null ix) 0) - ((listp ix) (round (log (car ix) 4))) - ((integerp ix) ix) - (t (error "Invalid index")))) - (action (nth n actions)) - (args (cond ((null action) "") - ((stringp action) action) - ((functionp action) (funcall action)) - ((listp action) (eval action)) - (t (error "Invalid action"))))) - (if (string= "" args) - args - (concat ", " args)))) - - -;;;*;;; Devtools Integration - -(defun ess-r-devtools-load-package (&optional arg) - "Interface for `devtools::load_all()'. -With prefix ARG ask for extra args." - (interactive "P") - (ess-r-package-eval-linewise - "devtools::load_all(%s)\n" "Loading %s" arg - '("" (read-string "Arguments: " "recompile = TRUE")))) - -(defun ess-r-devtools-unload-package () - "Interface to `devtools::unload()'." - (interactive) - (ess-r-package-eval-linewise - "devtools::unload(%s)\n" "Unloading %s")) - -(defun ess-r-devtools-check-package (&optional arg) - "Interface for `devtools::check()'. -With prefix ARG ask for extra args." - (interactive "P") - (ess-r-package-eval-linewise - "devtools::check(%s)\n" "Checking %s" arg - '("" (read-string "Arguments: " "vignettes = FALSE")))) - -(defun ess-r-devtools-check-with-winbuilder (&optional arg) - "Interface for `devtools::buildwin()'. -With prefix ARG build with R-devel instead of R-patched." - (interactive "P") - (ess-r-package-eval-linewise - "devtools::build_win(%s)\n" "Checking %s on CRAN's Windows server" arg - '("" "version = 'R-devel'"))) - -(defvar ess-r-rhub--history nil) -(declare-function ess-r-check-install-package "ess-r-mode.el") -(defun ess-r-rhub-check-package (&optional arg) - "Interface for `rhub::check()'. -With prefix ARG run with `valgrind = TRUE'." - (interactive "P") - (inferior-ess-r-force) - (ess-r-check-install-package "rhub") - (let* ((platforms (ess-get-words-from-vector "rhub::platforms()$name\n")) - (platform (completing-read "Platform: " platforms nil t nil - ess-r-rhub--history (car ess-r-rhub--history))) - (cmd (format "rhub::check_for_cran(%%s, platform = '%s')\n" platform)) - (msg (format "Checking %%s on RHUB (%s)" platform))) - (ess-r-package-eval-linewise cmd msg arg '("" "valgrind = TRUE")))) - -(defun ess-r-devtools-build (&optional arg) - "Interface for `devtools::build()'. -With prefix ARG, build with 'vignettes = FALSE'." - (interactive "P") - (ess-r-package-eval-linewise - "devtools::build(%s)\n" "Building %s" arg - '("" "vignettes = FALSE"))) - -(defun ess-r-devtools-test-package (&optional arg) - "Interface for `devtools::test()'. -With prefix argument ARG, run tests on current file only." - (interactive "P") - (ess-r-package-eval-linewise - "devtools::test(%s)\n" "Testing %s" arg - '("" ess-r-devtools--cur-file-filter))) - -(defun ess-r-devtools--cur-file-filter () - (let ((file (or (and buffer-file-name - (file-name-nondirectory buffer-file-name)) - (error "Buffer not visiting a file")))) - (format "filter = \"%s\"" - (if (string-match "test-\\([[:alnum:]]+\\)\\.[rR]" file) - (match-string-no-properties 1 file) - (file-name-base buffer-file-name))))) - -(defvar ess-r-devtools-revdep-check-cmd - "local({ - pkg_path <- %s - res <- devtools::revdep_check(pkg_path) - - if (file.exists(file.path(pkg_path, 'revdep'))) { - save_path <- file.path(pkg_path, 'revdep') - } else { - save_path <- file.path(pkg_path, '.metadata', 'revdep') - } - devtools::revdep_check_save_summary(res, save_path) - - logs_path <- file.path(save_path, 'logs') - if (!dir.exists(logs_path)) { - dir.create(logs_path) - } - devtools::revdep_check_save_logs(res, logs_path) -}) -") - -(defun ess-r-devtools-document-package (&optional arg) - "Interface for `devtools::document()'. -With prefix ARG ask for extra arguments." - (interactive "P") - (ess-r-package-eval-linewise - "devtools::document(%s)\n" "Documenting %s" arg - '("" (read-string "Arguments: ")))) - -(defun ess-r-devtools-install-package (&optional arg) - "Interface to `devtools::install()'. -By default the instalation is \"quick\" with arguments quick = -TRUE, upgrade = FALSE, build = FALSE. On prefix ARG -\\[universal-argument] install with the default -`devtools::install()' arguments." - (interactive "P") - (ess-r-package-eval-linewise - "devtools::install(%s)\n" "Installing %s" arg - '("quick = TRUE, build = FALSE, upgrade = FALSE, keep_source = TRUE" - (read-string "Arguments: " "keep_source = TRUE, force = TRUE")))) - -(defvar ess-r-devtools--install-github-history nil) -(defun ess-r-devtools-install-github (&optional arg) - "Interface to `devtools::install_github()'. -Asks for github repository in the form of user/repo. Force -re-installation when called with a prefix ARG." - (interactive "P") - (let ((command "devtools::install_github(%s%s)") - (repo (format "'%s'" - (read-string "User/Repo: " nil - 'ess-r-devtools--install-github-history - (car ess-r-devtools--install-github-history)))) - (args (if arg - (ess-r-command--build-args 0 '((read-string "Arguments: " "force = TRUE"))) - ""))) - (inferior-ess-r-force) - (ess-show-buffer (ess-get-process-buffer)) - (message "Installing %s from github" repo) - (ess-eval-linewise (format command repo args)))) - -(defun ess-r-devtools-create-package () - "Interface to `devtools::create()'. -Default location is determined by the first element of -`ess-r-package-library-paths'." - (interactive) - (let* ((command "devtools::create(\"%s\")") - (default-path (if (stringp ess-r-package-library-paths) - ess-r-package-library-paths - (car ess-r-package-library-paths))) - (path (read-directory-name "Path: " default-path))) - (ess-eval-linewise (format command path)))) - -(defun ess-r-devtools-execute-command (&optional arg) - "Asks with completion for a devtools command. -When called with prefix ARG asks for additional arguments." - (interactive "P") - (inferior-ess-r-force) - (let* ((devtools-funs (ess-get-words-from-vector ".ess_devtools_functions()\n")) - (fun (completing-read "Function: " devtools-funs)) - (command (format "devtools::%s(%%s)\n" fun))) - (ess-r-package-eval-linewise - command (format "Running %s" fun) arg - '("" (read-string "Arguments: "))))) - - -;;;*;;; Minor Mode - -(defcustom ess-r-package-auto-activate t - "If non-nil, `ess-r-package-mode' is turned on within R packages. -If 't' the minor mode auto-activates in R packages. See -`ess-r-package-exclude-modes' if you wish to inhibit -`ess-r-package-mode' in specific buffers." - :group 'ess-r-package - :type 'boolean) - -(defcustom ess-r-package-exclude-modes '(fundamental-mode) - "A list of modes where `ess-r-package' must not be activated. -The check is done with `derived-mode-p'." - :group 'ess-r-package - :type '(repeat symbol) - :package-version '(ess "18.10")) - -(defcustom ess-r-package-enter-hook nil - "Normal hook run on entering `ess-r-package-mode'." - :group 'ess-r-package - :type 'hook) - -(defcustom ess-r-package-exit-hook nil - "Normal hook run on exiting `ess-r-package-mode'." - :group 'ess-r-package - :type 'hook) - -(defcustom ess-r-package-mode-line - ;; FIXME Emacs 25.1: Use `when-let' - '(:eval (let ((pkg-name (ess-r-package-name))) - (when pkg-name - (format " [pkg:%s]" pkg-name)))) - "Mode line for ESS developer. -Set this variable to nil to disable the mode line entirely." - :group 'ess-r-package - :type 'sexp - :risky t) - -(defvar ess-r-package-mode-map - (let ((ess-r-package-mode-map (make-sparse-keymap))) - (define-key ess-r-package-mode-map "\C-c\C-w" 'ess-r-package-dev-map) - ess-r-package-mode-map)) - -(define-minor-mode ess-r-package-mode - "Minor mode for enabling R package development features. - -\\{ess-r-package-mode-map}" - :init-value nil - :keymap ess-r-package-mode-map - :lighter ess-r-package-mode-line - (if ess-r-package-mode - (progn - ;; Forward relevant R settings for interacting with inferior - ;; processes from any mode - (let ((vars '(ess-dialect - ess-setwd-command - ess-getwd-command - ess-quit-function - inferior-ess-reload-function))) - (mapc (lambda (var) (set (make-local-variable var) - (eval (cdr (assq var ess-r-customize-alist))))) - vars)) - (add-hook 'project-find-functions #'ess-r-package-project) - (run-hooks 'ess-r-package-enter-hook)) - (remove-hook 'project-find-functions #'ess-r-package-project) - (run-hooks 'ess-r-package-exit-hook))) - -(add-hook 'after-change-major-mode-hook 'ess-r-package-auto-activate) - - -;;;*;;; Activation - -(defun ess-r-package-auto-activate () - "Activate developer if current file is part of a package." - (when (and ess-r-package-auto-activate - (or (buffer-name) default-directory) - (not (eq major-mode 'minibuffer-inactive-mode)) - (or - ;; users probably have these in fundamental mode - (member (buffer-name) '("DESCRIPTION" "NAMESPACE")) - (if ess-r-package-exclude-modes - (not (apply #'derived-mode-p ess-r-package-exclude-modes)) - t))) - (let ((pkg-info (ess-r-package-project))) - (when pkg-info - (ess-r-package-mode 1))))) - -(defun ess-r-package-re-activate () - "Restart `ess-r-package-mode'. -First, deactivate package mode if active, and activate if in -package mode. Use this function if state of the buffer such as -`default-directory' has changed." - (when ess-r-package-mode - (ess-r-package-mode -1)) - (setq ess-r-package--project-cache nil) - (ess-r-package-auto-activate)) - -(defvar-local ess-r--old-default-dir nil) -(defun ess-r-package-default-directory-tracker (&rest _) - (unless (equal ess-r--old-default-dir default-directory) - (setq ess-r--old-default-dir default-directory) - (ess-r-package-re-activate))) - -(defun ess-r-package-activate-directory-tracker () - (add-hook 'after-change-functions 'ess-r-package-default-directory-tracker t t)) - -(add-hook 'shell-mode-hook 'ess-r-package-activate-directory-tracker t) -(add-hook 'eshell-mode-hook 'ess-r-package-activate-directory-tracker t) -(when (fboundp 'advice-add) - (require 'shell) - (advice-add 'shell-resync-dirs :after 'ess-r-package-re-activate)) - - -;;;*;;; Deprecated variables and functions -(defun ess-developer (&optional val) - (error "As of ESS 16.04, `ess-developer' is deprecated. Use `ess-r-set-evaluation-env' instead")) - -(defalias 'ess-toggle-developer 'ess-developer) -(define-obsolete-function-alias 'ess-r-devtools-check-package-buildwin 'ess-r-devtools-check-with-winbuilder) -(define-obsolete-function-alias 'ess-r-devtools-ask 'ess-r-devtools-execute-command "18.04") - -(make-obsolete-variable 'ess-developer "Please use `ess-developer-select-package' and `ess-r-set-evaluation-env' instead." "16.04") -(make-obsolete-variable 'ess-developer-root-file "Please use `ess-r-package-root-file' instead." "16.04") -(make-obsolete-variable 'ess-developer-packages "Please use `ess-r-package-set-package' and `ess-r-set-evaluation-env' instead." "16.04") -(make-obsolete-variable 'ess-developer-load-on-add-commands "Please use `ess-r-package-set-package' and `ess-r-set-evaluation-env' instead." "16.04") -(make-obsolete-variable 'ess-developer-activate-in-package "Please use `ess-r-package-auto-activate' instead." "16.04") -(make-obsolete-variable 'ess-developer-enter-hook "Please use `ess-r-package-enter-hook' instead." "16.04") -(make-obsolete-variable 'ess-developer-exit-hook "Please use `ess-r-package-exit-hook' instead." "16.04") - - -(provide 'ess-r-package) - -;;; ess-r-package.el ends here diff --git a/elpa/ess-20181109.703/ess-r-syntax.el b/elpa/ess-20181109.703/ess-r-syntax.el deleted file mode 100644 index 576f4d35..00000000 --- a/elpa/ess-20181109.703/ess-r-syntax.el +++ /dev/null @@ -1,1570 +0,0 @@ -;;; ess-r-syntax.el --- Utils to work with R code - -;; Copyright (C) 2015 Lionel Henry - -;; Author: Lionel Henry -;; Created: 12 Oct 2015 -;; Maintainer: ESS-core - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; API is not yet stable. - -;;; Code: - -(require 'ess-utils) -(require 'regexp-opt) - -(eval-when-compile - (require 'cl-lib)) - - -;;*;; Utils - -;; The three following wrappers return t if successful, nil on error -(defun ess-backward-sexp (&optional N) - (ess-forward-sexp (- (or N 1)))) - -(defun ess-forward-sexp (&optional N) - (or N (setq N 1)) - (condition-case nil - (prog1 t - (goto-char (or (scan-sexps (point) N) - (buffer-end N)))) - (error nil))) - -(defun ess-up-list (&optional N) - (condition-case nil - (let (forward-sexp-function) - (progn (up-list N) t)) - (error nil))) - -(defun ess-backward-up-list (&optional N) - (ess-up-list (- (or N 1)))) - -(defun ess-forward-char (&optional N) - (unless (= (point) (point-max)) - (forward-char (or N 1)) - t)) - -(defun ess-backward-char (&optional N) - (unless (= (point) (point-min)) - (forward-char (- (or N 1))) - t)) - -(defun ess-goto-char (pos) - "Go to POS if it is non-nil. -If POS is nil, return nil. Otherwise return position itself." - (when pos - (goto-char pos))) - -(defun ess-looking-at (regex &optional newlines) - "Like `looking-at' but consumes blanks and comments first." - (save-excursion - (ess-skip-blanks-forward newlines) - (looking-at regex))) - -(defun ess-back-to-indentation () - "Move point to the first non-whitespace character on this line. -This non-interactive version of (back-to-indentation) should not -be advised" - (beginning-of-line 1) - (skip-syntax-forward " " (line-end-position)) - ;; Move back over chars that have whitespace syntax but have the p flag. - (backward-prefix-chars)) - -(defmacro ess-save-excursion-when-nil (&rest body) - (declare (indent 0) - (debug (&rest form))) - `(let ((orig-point (point))) - (cond ((progn ,@body)) - (t (prog1 nil - (goto-char orig-point)))))) - -(defmacro ess-while (test &rest body) - "Like `while' for TEST but return t when BODY gets executed once." - (declare (indent 1) - (debug (&rest form))) - `(let (executed) - (while ,test - (setq executed t) - ,@body) - executed)) - -(defmacro ess-at-indent-point (&rest body) - (declare (indent 0) - (debug (&rest form))) - `(save-excursion - (goto-char indent-point) - (ess-back-to-indentation) - (progn ,@body))) - -(defvar containing-sexp) -(defmacro ess-at-containing-sexp (&rest body) - (declare (indent 0) - (debug (&rest form))) - '(when (not (bound-and-true-p containing-sexp)) - (error "Internal error: containing-sexp is nil or undefined")) - `(save-excursion - (goto-char containing-sexp) - (progn ,@body))) - -(defmacro ess-any (&rest forms) - "Evaluate all arguments and return non-nil if one of the arguments is non-nil. -This is useful to trigger side-effects. FORMS follows the same -syntax as arguments to `cond'." - (declare (indent 0) (debug nil)) - `(let ((forms (list ,@(mapcar (lambda (form) `(progn ,@form)) forms)))) - (cl-some 'identity (mapcar 'eval forms)))) - -(defun ess-char-syntax (string) - (char-to-string (char-syntax (string-to-char string)))) - - -;;*;; Tokenisation - -(defun ess-token-type (token) (car (nth 0 token))) -(defun ess-token-value (token) (cdr (nth 0 token))) -(defun ess-token-start (token) (car (nth 1 token))) -(defun ess-token-end (token) (cdr (nth 1 token))) - -(defun ess-token-refined-type (token) - (ess-token-type (ess-refine-token token))) - -(defun ess-token-after (&optional token) - "Return next TOKEN. -Cons cell containing the token type and string representation." - (save-excursion - (when token - (goto-char (ess-token-end token))) - (ess-jump-token))) - -(defun ess-token-before (&optional token) - "Return previous TOKEN. -Cons cell containing the token type and string representation." - (save-excursion - (when token - (goto-char (ess-token-start token))) - (ess-climb-token))) - -(defun ess-climb-token (&optional type string) - (ess-save-excursion-when-nil - (ess-escape-comment) - (ess-skip-blanks-backward t) - (let ((token (or (ess-climb-token--back) - (ess-climb-token--back-and-forth) - (progn (forward-char -1) (ess-token-after))))) - (if (or type string) - (when (ess-token= token type string) - token) - token)))) - -(defun ess-token--cons (type value) - (if (eq type 'self) - (cons value nil) - (cons type value))) - -(defun ess-climb-token--back () - (let* ((token-end (point)) - (token-type (if (= (point) (point-min)) - "buffer-start" - (ess-climb-token--operator))) - (token-value (buffer-substring-no-properties (point) token-end))) - (unless (null token-type) - (list (ess-token--cons token-type token-value) - (cons (point) token-end))))) - -(defsubst ess-climb-token--char (&rest chars) - (ess-while (and chars - (eq (char-before) (car chars)) - (ess-backward-char)) - (setq chars (cdr chars)))) - -;; Difficult to use regexps here because we want to match greedily -;; backward -(defun ess-climb-token--operator () - (when (pcase (char-before) - ((or `?+ `?/ `?^ `?~ `?? `?!) - (ess-backward-char)) - (`?= - (prog1 (ess-backward-char) - (or (ess-climb-token--char ?=) - (ess-climb-token--char ?!) - (ess-climb-token--char ?:) - (ess-climb-token--char ?>) - (ess-climb-token--char ?<)))) - ((or `?& `?| `?* `?@ `?$) - (prog1 (ess-backward-char) - (ess-climb-token--char (char-after)))) - (`?< - (ess-backward-char)) - (`?> - (prog1 (ess-backward-char) - (or (ess-climb-token--char ?-) - (and (looking-back "->" (- (point) 2)) - (goto-char (- (point) 2)))))) - (`?- - (prog1 (ess-backward-char) - (ess-climb-token--char ?< ?<))) - (`?: - (prog1 (ess-backward-char) - (ess-climb-token--char ?: ?:)))) - 'self)) - -(defun ess-climb-token--back-and-forth () - (let ((limit (point))) - (when (ess-skip-token-backward) - (save-restriction - (narrow-to-region (point) limit) - (ess-token-after))))) - -(defun ess-skip-token-backward () - (ess-save-excursion-when-nil - (cond - ;; Punctuation - ((memq (char-before) '(?, ?\;)) - (ess-backward-char)) - ;; Quoting delimiters - ((memq (char-syntax (char-before)) '(?\" ?$)) - (ess-backward-sexp)) - ;; Syntaxic delimiters - ((memq (char-syntax (char-before)) '(?\( ?\))) - (prog1 (ess-backward-char) - ;; Also skip double brackets - (ess-save-excursion-when-nil - (when (let ((current-delim (char-after))) - (ess-skip-blanks-backward) - (and (memq (char-before) '(?\[ ?\])) - (eq current-delim (char-before)))) - (ess-backward-char))))) - ;; Identifiers and numbers - ((/= (skip-syntax-backward "w_") 0))))) - -(defun ess-jump-token (&optional type string) - "Consume a token forward. -Return a cons cell containing the token type and the token string -content. Return nil when the end of the buffer is reached." - (ess-save-excursion-when-nil - (ess-skip-blanks-forward t) - (let* ((token-start (point)) - (token-type (or (ess-jump-token--regexps) - (ess-jump-token--literal) - (ess-jump-token--infix-op) - (ess-jump-token--punctuation) - (progn (forward-char) "unknown"))) - (token-value (buffer-substring-no-properties token-start (point)))) - (let ((token (list (ess-token--cons token-type token-value) - (cons token-start (point))))) - (if (or type string) - (when (ess-token= token type string) - token) - token))))) - -(defun ess-jump-token--literal () - (cond - ;; Simply assume anything starting with a digit is a number. May be - ;; too liberal but takes care of fractional numbers, integers such - ;; as 10L, etc. False positives are not valid R code anyway. - ((looking-at "[0-9]") - (ess-forward-sexp) - "number") - ((or (looking-at "\\sw\\|\\s_") - (eq (char-after) ?`)) - (ess-forward-sexp) - "identifier") - ((memq (char-after) '(?\" ?\')) - (ess-forward-sexp) - "string"))) - -(defun ess-jump-token--punctuation () - (or (when (= (point) (point-max)) - "buffer-end") - (pcase (char-after) - (`?\; - (forward-char) - 'self) - (`?, - (forward-char) - ;; Treat blanks after comma as part of an argument - (ess-skip-blanks-forward t) - ",")))) - -(defvar ess-r-prefix-keywords-list - '("if" "for" "while" "function")) - -(defvar ess-r-keywords-list - (append ess-r-prefix-keywords-list '("else"))) - -(defvar ess-r-delimiters-list - '("(" ")" "{" "}" "[" "]" "[[" "]]")) - -(defvar ess-r-operators-list - '("+" "-" "*" "/" "%%" "**" "^" - "&" "&&" "|" "||" "!" "?" "~" - "==" "!=" "<" "<=" ">=" ">" - "=" "<-" "<<-" "->" "->>" - "$" "@" ":" "::" ":::" ":=")) - -(defvar ess-r-keywords-re - (concat (regexp-opt ess-r-keywords-list) "\\_>")) - -(defvar ess-r-delimiters-re - (regexp-opt ess-r-delimiters-list)) - -(defvar ess-r-operators-re - (regexp-opt ess-r-operators-list)) - -(defun ess-jump-token--regexps () - (when (or (looking-at ess-r-keywords-re) - (looking-at ess-r-delimiters-re) - (looking-at ess-r-operators-re)) - (goto-char (match-end 0)) - 'self)) - -(defun ess-jump-token--infix-op () - (or (when (looking-at ess-r-operators-re) - (goto-char (match-end 0)) - 'self) - (when (eq (char-after) ?%) - (ess-forward-sexp) - "%infix%"))) - -(defun ess-escape-token () - (ess-escape-comment) - (ess-skip-blanks-forward) - (or (ess-escape-string) - (when (ess-token-delimiter-p (ess-token-after)) - (prog1 t - (mapc (lambda (delims) - (while (and (ess-token-after= nil delims) - (eq (char-before) (string-to-char - (car delims)))) - (ess-backward-char))) - '(("[" "[[") ("]" "]]"))))) - (ess-token-after= '("," ";")) - (and (ess-token-after= "identifier") - (not (memq (char-syntax (char-before)) '(?w ?_)))) - (progn (skip-syntax-backward ".") - (ess-token-operator-p (ess-token-after))) - (/= (skip-syntax-backward "w_") 0))) - -(defun ess-refine-token (token) - (let ((refined-type - (pcase (ess-token-type token) - ;; Parameter assignment - (`"=" - (save-excursion - (goto-char (ess-token-start token)) - (let ((containing-sexp (ess-containing-sexp-position))) - (when (and containing-sexp - (ess-at-containing-sexp - (and (ess-token-after= "(") - (ess-token-before= '("identifier" "string")))) - (save-excursion - (and (ess-climb-token) - (ess-token-before= '("," "("))))) - "param-assign")))) - ;; Quoted identifiers - (`"string" - (when (or - ;; Quoted parameter names - (ess-refined-token= (ess-token-after) "param-assign") - ;; Quoted call names - (ess-token-after= "(")) - "identifier")) - ((or `"(" `")") - (or (save-excursion - (if (ess-token-close-delimiter-p token) - (ess-climb-paired-delims nil token) - (goto-char (ess-token-start token))) - (when (ess-token-keyword-p (ess-token-before)) - "prefixed-expr-delimiter")) - ;; Fixme: probably too crude. Better handled in parser - (when (ess-token= token ")") - (save-excursion - (ess-climb-paired-delims ")" token) - (when (ess-token-before= '("identifier" "string" ")" "]" "]]" "}")) - "argslist-delimiter"))))) - ((or `"{" `"}") - (save-excursion - (unless (ess-climb-paired-delims "}" token) - (goto-char (ess-token-start token))) - (when (ess-refined-token= (ess-token-before) "prefixed-expr-delimiter") - "prefixed-expr-delimiter")))))) - (if refined-type - (list (cons refined-type (ess-token-value token)) - (nth 1 token)) - token))) - -(defun ess-token-balancing-delim (token) - (pcase (ess-token-type token) - (`"(" ")") - (`")" "(") - (`"[" "]") - (`"]" "[") - (`"[[" "]]") - (`"]]" "[["))) - - -;;;*;;; Token predicates - -(defun ess-token= (token &optional type string) - (when (and (null type) - (null string)) - (error "No condition supplied")) - (let ((type (if (stringp type) (list type) type)) - (string (if (stringp string) (list string) string))) - (and (if type (member (ess-token-type token) type) t) - (if string (member (ess-token-value token) string) t)))) - -(defun ess-refined-token= (token type &optional string) - (ess-token= (ess-refine-token token) type string)) - -(defun ess-token-after= (type &optional string) - (ess-token= (ess-token-after) type string)) - -(defun ess-token-before= (type &optional string) - (ess-token= (ess-token-before) type string)) - -(defun ess-token-open-delimiter-p (token) - (string= (ess-char-syntax (ess-token-type token)) "(")) - -(defun ess-token-close-delimiter-p (token) - (string= (ess-char-syntax (ess-token-type token)) ")")) - -(defun ess-token-delimiter-p (token) - (or (ess-token-open-delimiter-p token) - (ess-token-close-delimiter-p token))) - -(defun ess-token-operator-p (token &optional strict) - (and (or (member (ess-token-type token) ess-r-operators-list) - (string= (ess-token-type token) "%infix%")) - (or (null strict) - (not (ess-refined-token= token "param-assign"))))) - -(defun ess-token-keyword-p (token) - (member (ess-token-type token) ess-r-keywords-list)) - - -;;;*;;; Tokens properties and accessors - -(defun ess-token-make-hash (&rest specs) - (let ((table (make-hash-table :test #'equal))) - (mapc (lambda (spec) - ;; alist - (if (listp (cdr spec)) - (mapc (lambda (cell) - (puthash (car cell) (cdr cell) table)) - spec) - ;; Cons cell - (mapc (lambda (token) - (puthash token (cdr spec) table)) - (car spec)))) - specs) - table)) - -(defvar ess-token-r-powers-delimiters - '(("(" . 100) - ("[" . 100) - ("[[" . 100))) - -(defvar ess-token-r-powers-operator - '(("?" . 5) - ("else" . 8) - ("<-" . 10) - ("<<-" . 10) - ("=" . 15) - ("->" . 20) - ("->>" . 20) - ("~" . 25) - ("|" . 30) - ("||" . 30) - ("&" . 35) - ("&&" . 35) - ("!" . 40) - ("<" . 45) - (">" . 45) - ("<=" . 45) - (">=" . 45) - ("==" . 45) - ("+" . 50) - ("-" . 50) - ("*" . 55) - ("/" . 55) - ("%infix%" . 60) - (":" . 65) - ("^" . 70) - ("$" . 75) - ("@" . 75) - ("::" . 80) - (":::" . 80))) - -(defvar ess-token-r-power-table - (ess-token-make-hash ess-token-r-powers-operator - ess-token-r-powers-delimiters)) - -(defvar ess-token-r-right-powers-operator - '((")" . 1))) - -(defvar ess-token-r-right-power-table - (ess-token-make-hash ess-token-r-powers-operator - ess-token-r-right-powers-operator)) - -(defvar ess-token-r-nud-table - (ess-token-make-hash - '(("identifier" . identity) - ("literal" . identity) - ("number" . identity) - ("function" . identity) - ("if" . identity) - ("while" . identity) - ("for" . identity)) - '(("(" . ess-parser-nud-block) - ("{" . ess-parser-nud-block)))) - -(defvar ess-token-r-rnud-table - (ess-token-make-hash - '(("identifier" . identity) - ("literal" . identity) - ("number" . identity)) - '((")" . ess-parser-rnud-paren) - ("}" . ess-parser-nud-block)))) - -(defvar ess-token-r-leds-operator - (let ((operators-list (append '("%infix%" "else") ess-r-operators-list))) - (cons operators-list #'ess-parser-led-lassoc))) - -(defvar ess-token-r-leds-delimiter - '(("(" . ess-parser-led-funcall) - ("[" . ess-parser-led-funcall) - ("[[" . ess-parser-led-funcall))) - -(defvar ess-token-r-led-table - (ess-token-make-hash ess-token-r-leds-operator - ess-token-r-leds-delimiter)) - -(defvar ess-token-r-rid-table - (ess-token-make-hash - '((")" . ess-parser-rid-expr-prefix)))) - - -;;;*;;; Nud, led and rid functions - -(defun ess-parser-nud-block (prefix-token) - (let ((right (list (cons "TODO" nil)))) - (ess-parser-advance-pair nil prefix-token) - (ess-node (cons "block" nil) - (cons (ess-token-start prefix-token) (point)) - (list prefix-token right)))) - -(defun ess-parser-led-lassoc (start infix-token) - (let* ((power (ess-parser-power infix-token)) - (end (ess-parse-expression power))) - (ess-node (cons "binary-op" nil) - (cons (ess-parser-token-start start) (point)) - (list start infix-token end)))) - -(defun ess-parser-led-funcall (left infix-token) - (when (ess-token= left (append '("identifier" "string" "node") - ess-r-prefix-keywords-list)) - (let* ((power (ess-parser-power infix-token)) - (right (ess-parse-arglist power infix-token)) - (type (if (ess-token= left ess-r-prefix-keywords-list) - "prefixed-expr" - "funcall"))) - (when (string= type "prefixed-expr") - (setq right (list right (ess-parse-expression 0)))) - (ess-node (cons type nil) - (cons (ess-parser-token-start left) (point)) - (list left right))))) - -(defun ess-parser-rid-expr-prefix (right suffix-token) - (when (ess-refined-token= suffix-token "prefixed-expr-delimiter") - (ess-parser-rnud-paren suffix-token right))) - -(defun ess-parser-rnud-paren (suffix-token &optional prefixed-expr) - (let* ((infix-token (save-excursion - (ess-parser-advance-pair nil suffix-token))) - (power (ess-parser-power infix-token)) - (args (ess-parse-arglist power suffix-token)) - (left (if prefixed-expr - (ess-parser-advance) - (ess-parse-expression power))) - (type (cond (prefixed-expr "prefixed-expr") - (left "funcall") - (t "enclosed-expr")))) - (when prefixed-expr - (setcdr (car prefixed-expr) (list infix-token suffix-token))) - (ess-node (cons type nil) - (cons (ess-parser-token-start suffix-token) (point)) - (if prefixed-expr - (list prefixed-expr args left) - (list args left))))) - - -;;;*;;; Parsing - -(defun ess-parser-advance (&optional type value) - (if (bound-and-true-p ess-parser--backward) - (ess-climb-token type value) - (ess-jump-token type value))) - -(defun ess-parser-advance-pair (&optional type token) - (if (bound-and-true-p ess-parser--backward) - (ess-climb-paired-delims type token) - (ess-jump-paired-delims type token))) - -(defun ess-parser-next-token () - (if (bound-and-true-p ess-parser--backward) - (ess-token-before) - (ess-token-after))) - -(defun ess-parser-token-start (token) - (if (bound-and-true-p ess-parser--backward) - (ess-token-end token) - (ess-token-start token))) - -(defun ess-parser-power (token) - (or (if (bound-and-true-p ess-parser--backward) - (gethash (ess-token-type token) ess-token-r-right-power-table) - (gethash (ess-token-type token) ess-token-r-power-table)) - 0)) - -(defun ess-node (type pos contents) - (let ((pos (if (bound-and-true-p ess-parser--backward) - (cons (cdr pos) (car pos)) - pos)) - (contents (if (bound-and-true-p ess-parser--backward) - (nreverse contents) - contents))) - (list type pos contents))) - -(defalias 'ess-node-start #'ess-token-start) -(defalias 'ess-node-end #'ess-token-end) - -(defun ess-parse-start-token (token) - (let* ((table (if (bound-and-true-p ess-parser--backward) - ess-token-r-rnud-table - ess-token-r-nud-table)) - (nud (gethash (ess-token-type token) table))) - (when (fboundp nud) - (funcall nud token)))) - -(defun ess-parse-infix-token (infix-token left) - (let ((infix-power (ess-parser-power infix-token)) - (led (or (when (bound-and-true-p ess-parser--backward) - (gethash (ess-token-type infix-token) ess-token-r-rid-table)) - (gethash (ess-token-type infix-token) ess-token-r-led-table)))) - (funcall led left infix-token))) - -(defun ess-parse-expression (&optional power) - (let ((current (ess-parse-start-token (ess-parser-advance))) - (power (or power 0)) - (next (ess-parser-next-token)) - (last-sucessful-pos (point)) - last-success) - (setq last-success current) - (while (and current (< power (ess-parser-power next))) - (ess-parser-advance) - (when (setq current (ess-parse-infix-token next current)) - (setq last-sucessful-pos (point)) - (setq last-success current)) - (setq next (ess-parser-next-token))) - (goto-char last-sucessful-pos) - last-success)) - -(defun ess-parse-arglist (power start-token) - (let ((start-pos (point)) - (arg-start-pos (point)) - (arglist (list start-token)) - (closing-delim (ess-token-balancing-delim start-token)) - expr) - (while (and (setq expr (ess-parse-expression)) - (push (ess-node (cons "arg" nil) - (cons arg-start-pos (point)) - (list expr)) - arglist) - (ess-parser-advance ",")) - (setq arg-start-pos (point))) - (push (ess-parser-advance closing-delim) arglist) - (ess-node (cons "arglist" nil) - (cons start-pos (1- (point))) - (nreverse arglist)))) - -(defun forward-ess-r-expr () - (interactive) - (ess-save-excursion-when-nil - (ess-escape-token) - (ess-parse-expression))) - -(defun forward-ess-r-sexp () - (interactive) - (ess-save-excursion-when-nil - (ess-escape-token) - (let* ((orig-token (ess-token-after)) - (tree (ess-parse-expression)) - (sexp-node (ess-parser-tree-assoc orig-token tree))) - (when sexp-node - (goto-char (ess-token-end sexp-node)) - sexp-node)))) - -(defun backward-ess-r-expr () - (interactive) - (let ((ess-parser--backward t)) - (ess-parse-expression))) - -(defun backward-ess-r-sexp () - (interactive) - (error "Todo")) - -(defun ess-parser-tree-assoc (key tree) - (let ((next tree) - stack last-node result) - (while (and next (null result)) - (cond ((eq next 'node-end) - (pop last-node)) - ((nth 2 next) - (push 'node-end stack) - (dolist (node (nth 2 next)) - (push node stack)) - (push next last-node)) - ((equal next key) - (setq result (car last-node)))) - (setq next (pop stack))) - result)) - - -;;*;; Point predicates - -(defun ess-inside-call-p (&optional call) - "Return non-nil if point is in a function or indexing call." - (let ((containing-sexp (or (bound-and-true-p containing-sexp) - (ess-containing-sexp-position)))) - (save-excursion - (and (prog1 (ess-goto-char containing-sexp) - (ess-climb-chained-delims)) - (save-excursion - (forward-char) - (ess-up-list)) - (or (ess-behind-call-opening-p "(") - (looking-at "\\[")) - (ess-inside-call-name-p call))))) - -(defun ess-inside-continuation-p () - (unless (or (looking-at ",") - (ess-behind-call-opening-p "[[(]")) - (or (save-excursion - (ess-jump-object) - (and (not (ess-ahead-param-assign-p)) - (ess-behind-operator-p))) - (save-excursion - (ess-climb-object) - (ess-climb-operator) - (and (ess-behind-operator-p) - (not (ess-ahead-param-assign-p))))))) - -(defun ess-inside-call-name-p (&optional call) - (save-excursion - (ess-climb-call-name call))) - -(defun ess-inside-prefixed-block-p (&optional call) - "Return non-nil if point is in a prefixed block. -Prefixed blocks refer to the blocks following function -declarations, control flow statements, etc. - -If CALL is not nil, check if the prefix corresponds to CALL. If -nil, return the prefix." - (save-excursion - (ess-escape-prefixed-block call))) - - -;;*;; Syntactic Travellers and Predicates - -;;;*;;; Blanks, Characters, Comments and Delimiters - -(defun ess-skip-blanks-backward (&optional newlines) - "Skip blanks and newlines backward, taking end-of-line comments into account." - (ess-any ((ess-skip-blanks-backward-1)) - ((when newlines - (ess-while (and (/= (point) (point-min)) - (= (point) (line-beginning-position))) - (forward-line -1) - (goto-char (ess-code-end-position)) - (ess-skip-blanks-backward-1)))))) - -(defun ess-skip-blanks-backward-1 () - (and (/= (point) (point-min)) - (/= 0 (skip-syntax-backward " ")))) - -(defun ess-skip-blanks-forward (&optional newlines) - "Skip blanks and newlines forward, taking end-of-line comments into account." - (ess-any ((/= 0 (skip-syntax-forward " "))) - ((ess-while (and newlines - (= (point) (ess-code-end-position)) - (when (ess-save-excursion-when-nil - ;; Handles corner cases such as point being on last line - (let ((orig-point (point))) - (forward-line) - (ess-back-to-indentation) - (> (point) orig-point))) - (skip-chars-forward " \t") - t)))))) - -(defun ess-jump-char (char) - (ess-save-excursion-when-nil - (ess-skip-blanks-forward t) - (when (looking-at char) - (goto-char (match-end 0))))) - -(defun ess-escape-comment () - (when (ess-inside-comment-p) - (prog1 (comment-beginning) - (skip-chars-backward "#+[ \t]*")))) - -(defun ess-ahead-closing-p () - (memq (char-before) '(?\] ?\} ?\)))) - -(defun ess-ahead-boundary-p () - (looking-back "[][ \t\n(){},]" (1- (point)))) - -(defun ess-escape-string () - (and (nth 3 (syntax-ppss)) - (ess-goto-char (nth 8 (syntax-ppss))))) - -(defun ess-climb-paired-delims (&optional type token) - (ess-save-excursion-when-nil - (let ((token (or token (ess-token-before)))) - (goto-char (ess-token-end token)) - (when (if type - (ess-token= token type) - (ess-token-delimiter-p token)) - (and (ess-backward-sexp) - (ess-token-after)))))) - -(defun ess-jump-paired-delims (&optional type token) - (ess-save-excursion-when-nil - (let ((token (or token (ess-token-after)))) - (goto-char (ess-token-start token)) - (when (if type - (ess-token= token type) - (ess-token-delimiter-p token)) - (and (ess-forward-sexp) - (ess-token-before)))))) - - -;;;*;;; Blocks - -(defun ess-block-opening-p () - (save-excursion - (cond - ((looking-at "{")) - ;; Opening parenthesis not attached to a function opens up a - ;; block too. Only pick up those that are last on their line - ((ess-behind-block-paren-p))))) - -(defun ess-block-closing-p () - (save-excursion - (cond - ((looking-at "}")) - ((looking-at ")") - (forward-char) - (backward-sexp) - (not (looking-back - (concat ess-r-name-pattern "[[:blank:]]*") - (line-beginning-position))))))) - -(defun ess-block-p () - (or (save-excursion - (when containing-sexp - (goto-char containing-sexp) - (ess-block-opening-p))) - (ess-unbraced-block-p))) - -;; Parenthesised expressions -(defun ess-behind-block-paren-p () - (and (looking-at "(") - (not (ess-ahead-attached-name-p)))) - -(defun ess-climb-block (&optional ignore-ifelse) - (ess-save-excursion-when-nil - (cond - ((and (not ignore-ifelse) - (ess-climb-if-else 'to-start))) - ((and (eq (char-before) ?\}) - (prog2 - (forward-char -1) - (ess-up-list -1) - (ess-climb-block-prefix))))))) - -(defvar ess-prefixed-block-patterns - (mapcar (lambda (fun) (concat fun "[ \t\n]*(")) - '("function" "if" "for" "while"))) - -(defun ess-behind-prefixed-block-p (&optional call) - (if call - (looking-at (concat call "[ \t]*(")) - (cl-some 'looking-at ess-prefixed-block-patterns))) - -(defun ess-unbraced-block-p (&optional ignore-ifelse) - "This indicates whether point is in front of an unbraced -prefixed block following a control flow statement. Returns -position of the control flow function (if, for, while, etc)." - (save-excursion - (and (ess-backward-sexp) - (or (and (looking-at "else\\b") - (not ignore-ifelse)) - (and (looking-at "(") - (ess-backward-sexp) - (cl-some 'looking-at ess-prefixed-block-patterns) - (if ignore-ifelse - (not (looking-at "if\\b")) - t))) - (point)))) - -(defun ess-climb-block-prefix (&optional call ignore-ifelse) - "Climb the prefix of a prefixed block. -Prefixed blocks refer to the blocks following function -declarations, control flow statements, etc. - -Should be called either in front of a naked block or in front -of the curly brackets of a braced block. - -If CALL not nil, check if the prefix corresponds to CALL. If nil, -return the prefix." - (ess-save-excursion-when-nil - (or (and (not ignore-ifelse) - (prog1 (and (ess-climb-if-else-call) - (or (null call) - (looking-at call))) - (when (ess-token-after= "else") - (ess-climb-token "}")))) - (let ((pos (ess-unbraced-block-p ignore-ifelse))) - (and (ess-goto-char pos) - (if call - (looking-at call) - (cond ((looking-at "function") - "function") - ((looking-at "for") - "for") - ((looking-at "if") - "if") - ((looking-at "else") - "else")))))))) - -(defun ess-escape-prefixed-block (&optional call) - "Climb outside of a prefixed block." - (let ((containing-sexp (or (bound-and-true-p containing-sexp) - (ess-containing-sexp-position)))) - (or (ess-save-excursion-when-nil - (and (ess-goto-char containing-sexp) - (looking-at "{") - (ess-climb-block-prefix call))) - (ess-escape-unbraced-block call)))) - -(defun ess-escape-unbraced-block (&optional call) - (ess-save-excursion-when-nil - (while (and (not (ess-unbraced-block-p)) - (or (ess-escape-continuations) - (ess-escape-call)))) - (ess-climb-block-prefix call))) - -(defun ess-jump-block () - (cond - ;; if-else blocks - ((ess-jump-if-else)) - ;; Prefixed blocks such as `function() {}' - ((ess-behind-prefixed-block-p) - (ess-jump-prefixed-block)) - ;; Naked blocks - ((and (or (looking-at "{") - (ess-behind-block-paren-p)) - (ess-forward-sexp))))) - -(defun ess-jump-prefixed-block (&optional call) - (ess-save-excursion-when-nil - (when (ess-behind-prefixed-block-p call) - (ess-forward-sexp 2) - (ess-skip-blanks-forward t) - (if (looking-at "{") - (ess-forward-sexp) - (prog1 (ess-jump-expression) - (ess-jump-continuations)))))) - - -;;;*;;; Calls - -(defun ess-call-closing-p () - (save-excursion - (when (cond ((looking-at ")") - (ess-up-list -1)) - ((looking-at "]") - (when (ess-up-list -1) - (prog1 t (ess-climb-chained-delims))))) - (ess-ahead-attached-name-p)))) - -(defun ess-behind-call-opening-p (pattern) - (and (looking-at pattern) - (ess-ahead-attached-name-p))) - -;; Should be called just before the opening brace -(defun ess-ahead-attached-name-p () - (save-excursion - (ess-climb-object))) - -(defun ess-ahead-param-assign-p () - "Return non-nil if looking at a function argument. -To be called just before the `=' sign." - (ess-refined-token= (ess-token-before) "param-assign")) - -(defun ess-behind-arg-p () - (save-excursion - (ess-jump-arg))) - -(defun ess-behind-parameter-p () - (save-excursion - (ess-jump-parameter))) - -(defun ess-jump-parameter () - (ess-save-excursion-when-nil - (and (ess-jump-name) - (when (looking-at "[ \t]*=\\([^=]\\)") - (goto-char (match-beginning 1)) - (ess-skip-blanks-forward) - t)))) - -(defun ess-jump-arg () - (ess-save-excursion-when-nil - (ess-skip-blanks-forward t) - (ess-any ((ess-jump-parameter)) - ((ess-jump-expression)) - ((ess-jump-continuations))))) - -(defun ess-arg-bounds () - "Should be called in front of the argument." - (save-excursion - (let ((beg (point))) - (and (ess-jump-arg) - (list beg (point)))))) - -(defun ess-climb-call (&optional call) - "Climb functions (e.g. ggplot) and parenthesised expressions." - (or (ess-while (ess-save-excursion-when-nil - (ess-climb-name) - (and (ess-climb-chained-delims ?\]) - ;; (ess-climb-expression) - (if (eq (char-before) ?\)) - (ess-climb-call) - (ess-climb-name)) - ))) - (ess-save-excursion-when-nil - (when (and (memq (char-before) '(?\] ?\) ?\})) - (ess-backward-sexp)) - (if call - (and (ess-climb-name) - (looking-at call))) - (prog1 t - (ess-climb-name)))))) - -(defun ess-climb-call-name (&optional call) - (ess-save-excursion-when-nil - (ess-jump-name) - (ess-skip-blanks-forward) - (and (ess-behind-call-opening-p "[[(]") - (ess-climb-name) - (or (null call) - (looking-at call))))) - -(defun ess-step-to-first-arg () - (let ((containing-sexp (ess-containing-sexp-position))) - (cond ((ess-inside-call-p) - (goto-char containing-sexp) - (forward-char) - t) - ((ess-inside-call-name-p) - (ess-jump-name) - (ess-skip-blanks-forward) - (forward-char) - t)))) - -(defun ess-jump-to-next-arg () - (and (ess-jump-arg) - (prog1 (ess-jump-char ",") - (ess-skip-blanks-forward t)))) - -(defun ess-jump-call () - (ess-save-excursion-when-nil - (or (and (ess-jump-object) - (cond ((eq (char-before) ?\))) - ((looking-at "\\[") - (ess-jump-chained-brackets)) - ((looking-at "(") - (ess-forward-sexp)))) - (and (looking-at "[ \t]*(") - (ess-forward-sexp))))) - -(defun ess-behind-call-p () - (save-excursion - (ess-jump-object) - (ess-skip-blanks-forward) - (looking-at "[[(]"))) - -(defun ess-climb-chained-delims (&optional delim) - "Should be called with point between delims, e.g. `]|['." - (setq delim (if delim - (list delim) - '(?\] ?\)))) - (ess-while (ess-save-excursion-when-nil - (when (memq (char-before) delim) - (ess-backward-sexp))))) - -(defun ess-jump-chained-brackets () - (ess-while (ess-save-excursion-when-nil - (when (eq (char-after) ?\[) - (ess-forward-sexp))))) - -(defun ess-escape-call (&optional call) - (let ((containing-sexp (ess-containing-sexp-position))) - (if (ess-inside-call-p) - (ess-save-excursion-when-nil - (goto-char containing-sexp) - (ess-climb-chained-delims) - (and (ess-climb-name) - (or (null call) - (looking-at call)))) - ;; At top level or inside a block, check if point is on the - ;; function name. - (ess-save-excursion-when-nil - (let ((orig-pos (point))) - (and (ess-jump-name) - (looking-at "[[(]") - (ess-climb-name) - (or (null call) - (looking-at call)) - (/= (point) orig-pos))))))) - -(defun ess-escape-calls () - (ess-while (ess-escape-call))) - -(defun ess-jump-inside-call () - (ess-save-excursion-when-nil - (when (ess-jump-name) - (ess-skip-blanks-forward) - (when (looking-at "(") - (forward-char) - t)))) - -(defun ess-args-bounds (&optional marker) - (let ((containing-sexp (ess-containing-sexp-position))) - (when (ess-inside-call-p) - (save-excursion - (let ((beg (1+ containing-sexp)) - (call-beg (ess-at-containing-sexp - (ess-climb-name) - (point)))) - ;; (ess-up-list) can't find its way when point is on a - ;; backquoted name, so start from `beg'. - (and (goto-char beg) - (ess-up-list) - (prog1 t - (forward-char -1)) - (let ((end (if marker - (point-marker) - (point)))) - (list beg end call-beg)))))))) - -(defun ess-args-alist () - "Return all arguments as an alist with cars set to argument -names and cdrs set to the expressions given as argument. Both -cars and cdrs are returned as strings." - (save-excursion - (when (ess-step-to-first-arg) - (let (args current-arg) - (while (and (setq current-arg (ess-cons-arg)) - (setq args (nconc args (list current-arg))) - (ess-jump-to-next-arg))) - args)))) - -(defun ess-cons-arg () - "Return a cons cell of the current argument with car set to the -parameter name (nil if not specified) and cdr set to the argument -expression." - (save-excursion - (ess-skip-blanks-forward t) - (let ((param (when (ess-behind-parameter-p) - (buffer-substring-no-properties - (point) - (prog2 - (ess-jump-name) - (point) - (ess-jump-char "=") - (ess-skip-blanks-forward))))) - (arg (buffer-substring-no-properties - (point) - (progn - (ess-jump-arg) - (point))))) - (cons param arg)))) - - -;;;*;;; Statements - -(defun ess-behind-operator-p (&optional strict) - (ess-token-operator-p (ess-token-after) strict)) - -(defun ess-ahead-operator-p (&optional strict) - (ess-token-operator-p (ess-token-before) strict)) - -(defun ess-climb-lhs (&optional no-fun-arg climb-line) - (ess-save-excursion-when-nil - (let ((start-line (line-number-at-pos))) - (ess-climb-operator) - (when (and (or climb-line (equal (line-number-at-pos) start-line)) - (ess-behind-definition-op-p no-fun-arg)) - (prog1 t - (ess-climb-expression)))))) - -(defun ess-jump-lhs () - (ess-save-excursion-when-nil - (and (ess-jump-name) - (ess-behind-definition-op-p) - (ess-jump-operator)))) - -(defun ess-climb-operator () - (when (ess-token-operator-p (ess-token-before)) - (prog1 (ess-climb-token) - (ess-skip-blanks-backward)))) - -;; Currently doesn't check that the operator is not binary -(defun ess-climb-unary-operator () - (ess-save-excursion-when-nil - (let ((token (ess-climb-token))) - (member (ess-token-type token) '("+" "-" "!" "?" "~"))))) - -;; Currently returns t if we climbed lines, nil otherwise. -(defun ess-climb-continuations (&optional cascade ignore-ifelse) - (let* ((start-line (line-number-at-pos)) - (state (list :start-line start-line - :last-line start-line - :moved 0 - :last-pos (point) - :prev-point nil - :def-op nil - :expr nil))) - (when (ess-while (and (<= (plist-get state :moved) 1) - (or (ess-save-excursion-when-nil - (and (ess-climb-operator) - (ess-climb-continuations--update-state state cascade 'op) - (ess-climb-expression ignore-ifelse))) - (ess-climb-unary-operator)) - (/= (plist-get state :last-pos) (point))) - (ess-climb-continuations--update-state state cascade nil) - (plist-put state :last-pos (point))) - (when (and (plist-get state :prev-point) - (or (= (plist-get state :moved) 3) - (not (plist-get state :expr)))) - (goto-char (plist-get state :prev-point))) - (if (plist-get state :def-op) - 'def-op - (< (line-number-at-pos) (plist-get state :start-line)))))) - -(defun ess-climb-continuations--update-state (state cascade &optional op) - ;; Climbing multi-line expressions should not count as moving up - (when op - (plist-put state :expr (ess-ahead-closing-p))) - (let ((cur-line (line-number-at-pos))) - (when (and (plist-get state :last-line) - (< cur-line (plist-get state :last-line)) - (or cascade (not (plist-get state :expr)))) - (plist-put state :moved (1+ (plist-get state :moved))) - (plist-put state :last-line cur-line))) - ;; Don't update counter after climbing operator or climbing too high - (when (and (not op) - (<= (plist-get state :moved) 1)) - (plist-put state :prev-point (point))) - (when (and (ess-behind-definition-op-p) - (<= (plist-get state :moved) 1)) - (plist-put state :def-op t)) - t) - -(defun ess-jump-operator () - (when (ess-behind-operator-p) - (ess-jump-token) - (ess-skip-blanks-forward t) - t)) - -(defun ess-jump-continuation () - (and (ess-jump-operator) - (ess-jump-expression))) - -(defun ess-jump-continuations () - (let (last-pos) - (when (ess-while (and (or (null last-pos) - (/= (point) last-pos)) - (setq last-pos (point)) - (ess-jump-continuation))) - ;; In calls, operators can start on newlines - (let ((start-line (line-number-at-pos))) - (when (ess-save-excursion-when-nil - (and (ess-inside-call-p) - (ess-skip-blanks-forward t) - (/= (line-number-at-pos) start-line) - (ess-behind-operator-p))) - (ess-jump-continuations))) - t))) - -(defun ess-ahead-continuation-p (&optional or-parameter) - (or (ess-token-operator-p (ess-token-before) (not or-parameter)) - (save-excursion - (ess-climb-block-prefix)) - (ess-token-after= "else") - (save-excursion - (ess-climb-if-else-call)))) - -(defun ess-token-definition-op-p (token strict) - (and (ess-token= token '("<-" "<<-" ":=" "~" "=")) - (if strict - (not (ess-refined-token= token "param-assign")) - t))) - -(defun ess-behind-definition-op-p (&optional strict) - (ess-token-definition-op-p (ess-token-after) strict)) - -(defun ess-ahead-definition-op-p (&optional strict) - (ess-token-definition-op-p (ess-token-before) strict)) - -(defun ess-behind-assignment-op-p () - (let ((token (ess-token-after))) - (and (ess-token= token '("<-" "=")) - (not (ess-refined-token= token "param-assign"))))) - -(defun ess-escape-continuations () - (ess-any ((unless (ess-ahead-boundary-p) - (ess-climb-expression))) - ((ess-while (ess-climb-continuations))))) - -(defun ess-continuations-bounds (&optional marker) - (save-excursion - (let ((orig-point (point)) - (beg (progn - (ess-escape-continuations) - (point)))) - (when beg - (ess-jump-expression) - (ess-jump-continuations) - (let ((end (if marker - (point-marker) - (point)))) - (list beg end)))))) - -(defun ess-climb-to-top-level () - (while (ess-goto-char (ess-containing-sexp-position))) - (ess-escape-continuations)) - - -;;;*;;; Statements: Control Flow - -(defun ess-climb-if-else-call (&optional multi-line) - "Climb if, else, and if else calls." - (ess-save-excursion-when-nil - (cond ((ess-climb-paired-delims ")") - (when (ess-climb-token "if") - ;; Check for `else if' - (prog1 t - (ess-save-excursion-when-nil - (let ((orig-line (line-number-at-pos))) - (and (ess-climb-token "else") - (or multi-line - (eq orig-line (line-number-at-pos))))))))) - ((ess-climb-token "else"))))) - - -(defun ess-climb-if-else-body (&optional from-else) - (cond - ;; Climb braced body - ((ess-save-excursion-when-nil - (and (when (progn (ess-skip-blanks-backward t) - (eq (char-before) ?\})) - (prog1 t (forward-char -1))) - (ess-up-list -1)))) - ;; Climb unbraced body - ((when from-else - (ess-save-excursion-when-nil - (ess-skip-blanks-backward t) - (prog1 (ess-climb-expression 'ignore-ifelse) - (or (ess-climb-continuations nil 'ignore-ifelse) - (ess-climb-block-prefix nil 'ignore-ifelse)))))))) - -(defun ess-climb-if-else (&optional to-start) - "Climb horizontal as well as vertical if-else chains, with or -without curly braces." - ;; Don't climb if we're atop the current chain of if-else - (unless (ess-token-after= "if") - (ess-save-excursion-when-nil - (let ((from-else (ess-token-after= "else"))) - (when (and (ess-climb-if-else-body from-else) - (ess-climb-if-else-call to-start)) - ;; If we start from a final else and climb to another else, we - ;; are in the wrong chain of if-else. In that case, - ;; climb-recurse to the top of the current chain and climb - ;; again to step in the outer chain. - (when (save-excursion (and from-else - (ess-jump-token "else") - (not (ess-jump-token "if")))) - (ess-climb-if-else 'to-start) - (ess-climb-continuations) - (ess-climb-block-prefix nil 'ignore-ifelse) - (ess-climb-if-else-call nil)) - (ess-maybe-climb-broken-else) - (when to-start - (ess-climb-if-else to-start)) - t))))) - -;; Broken else: if \n else -(defun ess-maybe-climb-broken-else (&optional same-line) - (ess-save-excursion-when-nil - ;; Don't record current line if not needed (expensive operation) - (let ((cur-line (when same-line (line-number-at-pos)))) - (and (ess-climb-token "else") - (if same-line - (= cur-line (line-number-at-pos)) - t))))) - -(defun ess-skip-curly-backward () - (re-search-backward "}[ \t]*" (line-beginning-position) t)) - -(defun ess-jump-if-else () - (let (from) - (ess-while (ess-save-excursion-when-nil - (ess-skip-blanks-forward t) - (cond - ((and (not (eq from 'if)) - (ess-jump-if) - (setq from 'if))) - ((looking-at "else") - (ess-forward-sexp) - (or (ess-jump-if) - (progn - (ess-skip-blanks-forward t) - (ess-jump-expression))) - (setq from 'else)) - (t - nil)))))) - -(defun ess-jump-if () - (ess-save-excursion-when-nil - (ess-skip-blanks-forward t) - (and (looking-at "if[ \t\n]*(") - (ess-forward-sexp 2) - (progn - (ess-skip-blanks-forward t) - (ess-jump-expression))))) - - -;;;*;;; Function Declarations - -(defun ess-behind-defun-p () - (or (looking-at "function[ \t]*(") - (ess-behind-enclosed-defun-p))) - -(defun ess-behind-enclosed-defun-p () - (save-excursion - (and (ess-behind-call-p) - (ess-jump-inside-call) - (cl-some (lambda (arg) - (string-match "^function\\b" - (cdr arg))) - (ess-args-alist))))) - - -;;;*;;; Names / Objects / Expressions - -;; Should climb any names, including backquoted ones or those -;; containing `@' or `$'. Difficult to achieve with regexps, but -;; skipping chars is faster anyway. -(defun ess-climb-object () - (ess-save-excursion-when-nil - (let (climbed) - (ess-skip-blanks-backward) - ;; Backquoted names can contain any character - (if (and (memq (char-before) '(?` ?\" ?\')) - (ess-backward-sexp)) - (setq climbed t) - (while (cl-some (apply-partially '/= 0) - `(,(skip-syntax-backward "w_") - ,(skip-chars-backward "\"'"))) - (setq climbed t))) - ;; Recurse if we find an indexing char - (when (memq (char-before) '(?$ ?@)) - (forward-char -1) - (ess-climb-object)) - climbed))) - -;; Todo: split name and object climbing -(defun ess-climb-name () - (ess-climb-object)) - -;; This jumps both object names and atomic objects like strings or -;; numbers. -(defun ess-jump-object () - (cond - ;; Jump over object names - ((ess-jump-name)) - ;; Jump over strings)) - ((ess-save-excursion-when-nil - (skip-chars-forward " \t") - (memq (char-after) '(?\" ?\'))) - (ess-forward-sexp)))) - -(defun ess-jump-name () - (ess-save-excursion-when-nil - (let (climbed quote-char) - (skip-chars-forward " \t") - ;; Jump over backquoted names - (cond ((and (eq (char-after) ?`) - (looking-back ess-r-symbol-pattern - (1- (point)))) - (forward-char) - (setq climbed t)) - ((eq (char-after) ?`) - (forward-char) - (when (ess-while (not (memq (char-after) '(?` ?\C-J))) - (forward-char)) - (setq climbed t) - (forward-char))) - ;; Jump over regular names - ((when (/= 0 (skip-syntax-forward "w_")) - ;; Maybe point was inside backticks - (when (eq (char-after) ?`) - (forward-char)) - (setq climbed t)))) - climbed))) - -(defun ess-climb-expression (&optional ignore-ifelse) - (ess-save-excursion-when-nil - (or (ess-climb-block ignore-ifelse) - (ess-climb-call) - (ess-climb-object)))) - -(defun ess-jump-expression () - (or (ess-jump-block) - (ess-jump-call) - (ess-jump-object))) - -(provide 'ess-r-syntax) - -;;; ess-r-syntax.el ends here diff --git a/elpa/ess-20181109.703/ess-r-xref.el b/elpa/ess-20181109.703/ess-r-xref.el deleted file mode 100644 index 08ccdaa4..00000000 --- a/elpa/ess-20181109.703/ess-r-xref.el +++ /dev/null @@ -1,139 +0,0 @@ -;;; ess-r-xref.el --- An xref backend for R. -*- lexical-binding: t -*- -;; -;; Author: Aaron Jacobs -;; Created: 21 January 2018 -;; Maintainer: ESS-core -;; -;; Keywords: languages, statistics, xref -;; Package-Requires: ((emacs "25")) -;; -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file contains an xref backend for `R-mode'. - -;;; Code: - -(when (>= emacs-major-version 25) - (require 'subr-x) - (require 'xref)) -;; Cludge to silence the byte compiler until we drop support for Emacs 24. -(declare-function xref-make "xref") -(declare-function xref-make-buffer-location "xref") -(declare-function xref-make-file-location "xref") -(require 'ess-inf) -(require 'ess-utils) -(require 'ess-r-package) -(require 'ess-tracebug) - -;; Silence the byte compiler. OK because this file is only loaded by ess-r-mode. -(declare-function inferior-ess-r-force "ess-r-mode") - - -(defvar ess-r-xref-pkg-sources nil - "Alist of R package->directory associations. -This variable is used as a cache of package->directory -associations, but could be used by the users for a more refined -control of package locations than `ess-r-package-library-paths'.") - -(defun ess-r-xref-backend () - "An `xref-backend-functions' implementation for `R-mode'. -R's xref backend searches for `ess-r-package-library-paths' when -srcrefs point to temporary locations." - 'ess-r) - -(cl-defmethod xref-backend-identifier-at-point ((_backend (eql ess-r))) - (let ((sym (ess-symbol-at-point))) - (when sym - (symbol-name sym)))) - -(cl-defmethod xref-backend-definitions ((_backend (eql ess-r)) symbol) - (let ((xref (ess-r-xref--xref symbol))) - (when xref - (list xref)))) - -(cl-defmethod xref-backend-apropos ((_backend (eql ess-r))) - ;; Not yet supported. - nil) - -(cl-defmethod xref-backend-identifier-completion-table ((_backend (eql ess-r))) - (inferior-ess-r-force) - (ess-get-words-from-vector ".ess_all_functions()\n")) - -(defun ess-r-xref--srcref (symbol) - (inferior-ess-r-force) - ;; Look for `symbol' inside the package namespace - (let* ((pkg (ess-r-package-name)) - (pkg (if pkg - (concat "\"" pkg "\"") - "NULL"))) - (with-current-buffer (ess-command (format ".ess_srcref(\"%s\", %s)\n" symbol pkg)) - (goto-char (point-min)) - (when (re-search-forward "(" nil 'noerror) - (goto-char (match-beginning 0)) - (read (current-buffer)))))) - -(defun ess-r-xref--pkg-srcfile (symbol r-src-file) - "Look in the source directory of the R package containing symbol SYMBOL for R-SRC-FILE." - (let* ((env-name (ess-string-command (format ".ess_fn_pkg(\"%s\")\n" symbol))) - (pkg (if (string-equal env-name "") - (error "Can't find package for symbol %s" symbol) - env-name)) - (dir (or (assoc-default pkg ess-r-xref-pkg-sources) - (cond ((stringp ess-r-package-library-paths) - (expand-file-name pkg ess-r-package-library-paths)) - ((listp ess-r-package-library-paths) - (cl-loop for d in ess-r-package-library-paths - for p = (expand-file-name pkg d) - when (file-exists-p p) return p)) - (t (error "Invalid value of `ess-r-package-library-paths'"))))) - (file (when dir (expand-file-name r-src-file dir)))) - (when file - (unless (file-readable-p file) - (error "Can't read %s" file)) - ;; Cache package's source directory. - (unless (assoc pkg ess-r-xref-pkg-sources) - (push `(,pkg . ,dir) ess-r-xref-pkg-sources)) - file))) - -(defun ess-r-xref--xref (symbol) - "Create an xref for the source file reference of R symbol SYMBOL." - (let ((ref (ess-r-xref--srcref symbol))) - (when ref - (let ((file (nth 0 ref)) - (line (nth 1 ref)) - (col (nth 2 ref))) - (or - ;; 1) Result of ESS evaluation - (let* ((ess-ref (gethash file ess--srcrefs)) - (ess-buff (when ess-ref (ess--dbg-find-buffer (car ess-ref))))) - (when ess-buff - ;; FIXME: this breaks when eval is on larger spans than function - (xref-make symbol (xref-make-buffer-location ess-buff (nth 2 ess-ref))))) - ;; 2) Actual file location - (when (file-readable-p file) - (xref-make symbol (xref-make-file-location file line col))) - ;; 3) Temporary sources - truncate and locate in ess-r-package-library-paths - (when (string-match "/\\(R/.*\\)$" file) - (let ((pkg-file (ess-r-xref--pkg-srcfile symbol (match-string 1 file)))) - (when pkg-file - (xref-make symbol (xref-make-file-location - (expand-file-name pkg-file) line col)))))))))) - -(provide 'ess-r-xref) - -;;; ess-r-xref.el ends here diff --git a/elpa/ess-20181109.703/ess-rd.el b/elpa/ess-20181109.703/ess-rd.el deleted file mode 100644 index a3e5c81b..00000000 --- a/elpa/ess-20181109.703/ess-rd.el +++ /dev/null @@ -1,542 +0,0 @@ -;; ess-rd.el --- Support for editing R documentation (Rd) source - -;; Copyright (C) 1997--2005 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: KH -;; Created: 25 July 1997 -;; Maintainer: ESS-core - -;; This file is part of ESS (Emacs Speaks Statistics). - -;; This file is free software; you may 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 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 on the World -;; Wide Web at https://www.gnu.org/copyleft/gpl.html. You can also -;; obtain it by writing to the Free Software Foundation, Inc., 675 Mass -;; Ave, Cambridge, MA 02139, USA. - - -;;; Commentary: -;; - -;;; Code: -(require 'ess-custom) -(require 'ess-utils) -(require 'ess-help) -(require 'ess-inf) -;; Silence the byte compiler, see TODO below; can we remove these? -(defvar ess-help-r-sec-regex) -(defvar ess-help-r-sec-keys-alist) - -(defvar ess-r-customize-alist) - -(defvar essddr-version "0.9-1" - "Current version of ess-rd.el.") - -(defvar essddr-maintainer-address - "ESS Core Team " - "Current maintainer of ess-rd.el.") - -(defvar Rd-mode-abbrev-table nil - "Abbrev table for R documentation keywords. -All Rd mode abbrevs start with a grave accent (`).") -(if Rd-mode-abbrev-table - () - (define-abbrev-table 'Rd-mode-abbrev-table ()) - (define-abbrev Rd-mode-abbrev-table "`ag" "\\arguments") - (define-abbrev Rd-mode-abbrev-table "`al" "\\alias") - (define-abbrev Rd-mode-abbrev-table "`au" "\\author") - (define-abbrev Rd-mode-abbrev-table "`bf" "\\bold") - (define-abbrev Rd-mode-abbrev-table "`co" "\\code") - (define-abbrev Rd-mode-abbrev-table "`de" "\\describe") - (define-abbrev Rd-mode-abbrev-table "`dn" "\\description") - (define-abbrev Rd-mode-abbrev-table "`dt" "\\details") - (define-abbrev Rd-mode-abbrev-table "`em" "\\emph") - (define-abbrev Rd-mode-abbrev-table "`en" "\\enumerate") - (define-abbrev Rd-mode-abbrev-table "`ex" "\\examples") - (define-abbrev Rd-mode-abbrev-table "`fi" "\\file") - (define-abbrev Rd-mode-abbrev-table "`fo" "\\format") - (define-abbrev Rd-mode-abbrev-table "`it" "\\item") - (define-abbrev Rd-mode-abbrev-table "`iz" "\\itemize") - (define-abbrev Rd-mode-abbrev-table "`kw" "\\keyword") - (define-abbrev Rd-mode-abbrev-table "`li" "\\link") - (define-abbrev Rd-mode-abbrev-table "`me" "\\method") - (define-abbrev Rd-mode-abbrev-table "`na" "\\name") - (define-abbrev Rd-mode-abbrev-table "`no" "\\note") - (define-abbrev Rd-mode-abbrev-table "`re" "\\references") - (define-abbrev Rd-mode-abbrev-table "`sa" "\\seealso") - (define-abbrev Rd-mode-abbrev-table "`se" "\\section") - (define-abbrev Rd-mode-abbrev-table "`so" "\\source") - (define-abbrev Rd-mode-abbrev-table "`ss" "\\subsection") - (define-abbrev Rd-mode-abbrev-table "`sy" "\\synopsis") - (define-abbrev Rd-mode-abbrev-table "`ta" "\\tabular") - (define-abbrev Rd-mode-abbrev-table "`ti" "\\title") - (define-abbrev Rd-mode-abbrev-table "`us" "\\usage") - (define-abbrev Rd-mode-abbrev-table "`va" "\\value")) - -(defvar Rd-mode-syntax-table nil - "Syntax table for Rd mode.") -(if Rd-mode-syntax-table - () - (setq Rd-mode-syntax-table (copy-syntax-table text-mode-syntax-table)) - (modify-syntax-entry ?\\ "\\" Rd-mode-syntax-table) - (modify-syntax-entry ?\{ "(}" Rd-mode-syntax-table) - (modify-syntax-entry ?\} "){" Rd-mode-syntax-table) - ;; Nice for editing, not for parsing ... - (modify-syntax-entry ?\( "()" Rd-mode-syntax-table) - (modify-syntax-entry ?\) ")(" Rd-mode-syntax-table) - (modify-syntax-entry ?\[ "(]" Rd-mode-syntax-table) - (modify-syntax-entry ?\] ")[" Rd-mode-syntax-table) - ;; To get strings right - ;; (modify-syntax-entry ?\' "\"" Rd-mode-syntax-table) - (modify-syntax-entry ?\" "\"" Rd-mode-syntax-table) - ;; To make abbrevs starting with a grave accent work ... - (modify-syntax-entry ?\` "w" Rd-mode-syntax-table) - ;; Comments - (modify-syntax-entry ?\% "<" Rd-mode-syntax-table) - (modify-syntax-entry ?\n ">" Rd-mode-syntax-table)) - -(defvar Rd-mode-parse-syntax-table nil - "Syntax table for parsing Rd mode.") -(if Rd-mode-parse-syntax-table - () - (setq Rd-mode-parse-syntax-table - (copy-syntax-table Rd-mode-syntax-table)) - ;; To make parse-partial-sexps do the thing we want for computing - ;; indentations - (modify-syntax-entry ?\( "_" Rd-mode-parse-syntax-table) - (modify-syntax-entry ?\) "_" Rd-mode-parse-syntax-table) - (modify-syntax-entry ?\[ "_" Rd-mode-parse-syntax-table) - (modify-syntax-entry ?\] "_" Rd-mode-parse-syntax-table)) - -(defvar Rd-section-names - '("Rdversion" "arguments" "alias" "author" "concept" "describe" "description" - "details" "docType" "encoding" "enumerate" "examples" "format" - "itemize" "keyword" "name" "note" "preformatted" "references" - "seealso" "section" "source" "subsection" "synopsis" - "tabular" "title" "usage" - "value")) - -(defvar Rd-keywords - '( - ;; the next two lines: only valid in R <= 2.8.1 - ;; commented out on 2011-01-14 for ESS version 5.13: - ;; "Alpha" "Gamma" "alpha" "beta" "epsilon" "lambda" "mu" "pi" "sigma" - ;; "ge" "le" "left" "right" - ;; - "R" "RdOpts" "S3method" "S4method" "Sexpr" "acronym" - "bold" "cite" "code" "command" "cr" "dQuote" "deqn" "dfn" "dontrun" - "dontshow" "donttest" "dots" "email" "emph" "enc" "env" "eqn" "figure" "file" - "href" "if" "ifelse" - "item" "kbd" "ldots" "linkS4class" "link" "method" - "newcommand" "option" "out" - "pkg" "sQuote" "renewcommand" - "samp" "strong" "tab" "url" "var" "verb" - ;; System macros (from /share/Rd/macros/system.Rd ): - "CRANpkg" "PR" "sspace" "doi" - "packageTitle" "packageDescription" "packageAuthor" - "packageMaintainer" "packageDESCRIPTION" "packageIndices" - )) - -;; Need to fix Rd-bold-face problem. -;; -;; (defvar Rd-bold-face 'bold) - ;(defvar Rd-bold-face nil) - ;(make-face Rd-bold-face "R documentation bold face") - ;(make-face-bold Rd-bold-face - -(defvar Rd-font-lock-keywords - (list - (cons - (concat "\\\\\\(" - (mapconcat 'identity Rd-section-names "\\|") - "\\>\\)") - 'font-lock-reference-face) ; Rd-bold-face - (cons - (concat "\\\\\\(" - (mapconcat 'identity Rd-keywords "\\|") - "\\>\\)") - 'font-lock-keyword-face) - '("^#\\(ifn?def\\)\\s-+\\(\\sw+\\)" - (1 font-lock-builtin-face) - (2 font-lock-variable-name-face nil t)) - '("^#\\(endif\\)" 1 font-lock-builtin-face)) - "Additional Rd expressions to highlight.") - -(defvar Rd-indent-level 2 - "*Indentation of Rd code with respect to containing blocks.") - -(defvar Rd-mode-map - (let ((map (make-sparse-keymap))) - (define-key map "\t" 'indent-according-to-mode) - (define-key map "\C-j" 'reindent-then-newline-and-indent) - (define-key map "\C-m" 'reindent-then-newline-and-indent) - (define-key map "\C-c\C-p" 'Rd-preview-help) - (define-key map "\C-c\C-j" 'Rd-mode-insert-item) - (define-key map "\C-c\C-e" 'Rd-mode-insert-skeleton) - (define-key map "\C-c\C-f" 'Rd-font) - ;; ^C^F ^E : \emph{ . } - ;; ^C^F ^C : \code{ . } - ;; ^C^F ^L : \link{ . } - ;; ^C^F L : \code{\link{ . }} etc - (define-key map "\C-c\C-s" 'Rd-mode-insert-section) - (define-key map "\C-c\C-n" 'ess-eval-line-visibly-and-step) - (define-key map "\C-c\C-r" 'ess-eval-region) - (define-key map "\C-c\C-c" 'ess-eval-region-or-function-or-paragraph-and-step) - (define-key map "\C-\M-x" 'ess-eval-region-or-function-or-paragraph) - (define-key map "\C-c\C-v" 'ess-display-help-on-object) - (define-key map "\C-c\C-w" 'ess-switch-process); is on C-c C-s in ess-mode.. - (define-key map "\C-c\C-y" 'ess-switch-to-ESS) - (define-key map "\C-c\C-z" 'ess-switch-to-end-of-ESS) - map) - "Keymap used in Rd mode.") - -(defvar Rd-mode-menu - (list "Rd" - ["Markup [word]" Rd-font t] - ["Insert Item" Rd-mode-insert-item t] - ["Insert Section" Rd-mode-insert-section t] - ["Insert Skeleton" Rd-mode-insert-skeleton t] - "-" - ["Preview" Rd-preview-help t] - "-" - ["Eval Line" ess-eval-line-visibly-and-step t] - ["Eval Region" ess-eval-region t] - ["Switch to ESS Process" ess-switch-to-ESS t] - ["Switch the ESS Process" ess-switch-process t] - ["Switch to end{ESS Pr}" ess-switch-to-end-of-ESS t] - "-" - ["Toggle Abbrev Mode" abbrev-mode t] - ["Toggle Auto-Fill Mode" auto-fill-mode t] - "-" - ["Submit Bug Report" Rd-submit-bug-report t] - "-" - ["Describe Rd Mode" Rd-describe-major-mode t]) - "Menu used in Rd mode.") - -(defvar Rd-mode-hook nil - "Hook to be run when Rd mode is entered.") - -(defvar Rd-to-help-command "R CMD Rd2txt" - "Shell command for converting R documentation source to help text.") - - -(defvar Rd-font-list - '((?\C-b "\\bold{" "}") - (?\C-c "\\code{" "}") - (?\C-e "\\emph{" "}") - (?\C-l "\\link{" "}") - (?l "\\code{\\link{" "}}") - (?\C-m "\\email{" "}") - (?\C-q "\\eqn{" "}") - (?\C-u "\\url{" "}") - ) - "List of \"fonts\" used by `Rd-font'. -Each entry is a list. The first element is the key to activate -the font. The second element is the string to insert before -point, and the third element is the string to insert after -point.") - - -;;;###autoload -(defun Rd-mode () - "Major mode for editing R documentation source files. - -This mode makes it easier to write R documentation by helping with -indentation, doing some of the typing for you (with Abbrev mode) and by -showing keywords, strings, etc. in different faces (with Font Lock mode -on terminals that support it). - -Type \\[list-abbrevs] to display the built-in abbrevs for Rd keywords. - -Keybindings -=========== - -\\{Rd-mode-map} - -Variables you can use to customize Rd mode -========================================== - -`Rd-indent-level' - Indentation of Rd code with respect to containing blocks. - Default is 2. - -Turning on Rd mode runs the hook `Rd-mode-hook'. - -To automatically turn on the abbrev(iate) features, add the -following lines to your `.emacs' file: - - (add-hook 'Rd-mode-hook - (lambda () - (abbrev-mode 1)))" - - (interactive) - (text-mode) - (kill-all-local-variables) - (ess-setq-vars-local ess-r-customize-alist) ;same functionality is available as in R buffers - (use-local-map Rd-mode-map) - (setq mode-name "Rd") - (setq major-mode 'Rd-mode) - (setq local-abbrev-table Rd-mode-abbrev-table) - (set-syntax-table Rd-mode-syntax-table) - - (set (make-local-variable 'indent-line-function) 'Rd-mode-indent-line) - (set (make-local-variable 'fill-column) 72) - (set (make-local-variable 'comment-start-skip) "\\s<+\\s-*") - (set (make-local-variable 'comment-start) "% ") - (set (make-local-variable 'comment-end) "") - (set (make-local-variable 'font-lock-defaults) - '(Rd-font-lock-keywords nil nil)) - ;; (set (make-local-variable 'parse-sexp-ignore-comments) t) - - ;; Here is a workaround for an Emacs bug related to indirect buffers and - ;; spurious lockfiles that rears its ugly head with .Rd files - ;; https://lists.gnu.org/archive/html/bug-gnu-emacs/2013-02/msg01368.html - ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=14328 - (make-local-variable 'create-lockfiles) - (setq create-lockfiles nil) - - (require 'easymenu) - (easy-menu-define Rd-mode-menu-map Rd-mode-map - "Menu keymap for Rd mode." Rd-mode-menu) - - (turn-on-auto-fill) - (message "Rd mode version %s" essddr-version) - (setq ess-language "S" ess-dialect "R"); (buffer local) - (run-mode-hooks 'Rd-mode-hook)) - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.Rd\\'" . Rd-mode)) - -;; FIXME: The following should be moved to ess-utils.el, no? (MM thinks) -(defun ess-point (position) - "Return the value of point at a certain POSITION." - (save-excursion - (cond - ((eq position 'bol) (beginning-of-line)) - ((eq position 'eol) (end-of-line)) - ((eq position 'boi) (back-to-indentation)) - ((eq position 'bonl) (forward-line 1)) - ((eq position 'bopl) (forward-line -1)) - (t (error "Unknown buffer position requested: %s" position))) - (point))) - -(defun Rd-describe-major-mode () - "Describe the current major mode." - (interactive) - (describe-function major-mode)) - -(defun Rd-mode-in-verbatim-p () - (let ((pos (point))) - (save-excursion - (if (and (re-search-backward - "\\\\\\(usage\\|examples\\|synopsis\\)" nil t) - (re-search-forward "\\s(" nil t)) - (condition-case () - (progn - (up-list 1) - (< pos (point))) - (error t)) - nil)))) - -(defun Rd-mode-in-preprocessor-line-p () - (save-excursion - (beginning-of-line) - (looking-at "[ \t]*#\\(ifdef\\|endif\\)"))) - -(defun Rd-mode-calculate-indent () - "Return appropriate indentation for current line in Rd mode." - (interactive) - (save-excursion - (beginning-of-line) - (cond - ((Rd-mode-in-verbatim-p) - ;; Don't do anything in verbatims - nil) - ((Rd-mode-in-preprocessor-line-p) - ;; Indent to 0 - 0) - (t - (let ((p (progn - (re-search-forward "[ \t]*\\s)*" (ess-point 'eol) t) - (point)))) - (if (or (< (forward-line -1) 0) - (Rd-mode-in-verbatim-p)) - 0 - (set-syntax-table Rd-mode-parse-syntax-table) - (while (and (or (looking-at "[ \t]*$") - (Rd-mode-in-preprocessor-line-p)) - (not (bobp))) - (forward-line -1)) - (re-search-forward "[ \t]*\\s)*" (ess-point 'eol) t) - (prog1 - (+ (current-indentation) - (* (car (parse-partial-sexp (point) p)) - Rd-indent-level)) - (set-syntax-table Rd-mode-syntax-table)))))))) - -(defun Rd-mode-indent-line () - "Indent current line as Rd source." - (interactive) - (let ((ic (Rd-mode-calculate-indent)) - (rp (- (current-column) (current-indentation)))) - (if ic ; Not inside a verbatim - (if (< ic 0) - (error "Unmatched parenthesis") - (indent-line-to ic) - (if (> rp 0) - (move-to-column (+ ic rp))))))) - -(defun Rd-mode-insert-item () - (interactive) - (reindent-then-newline-and-indent) - (insert "\\item{") - ) - -(defun Rd-mode-insert-section () - (interactive) - (let ((s (ess-completing-read - "Insert section: " - (mapcar (lambda (x) (cons x x)) Rd-section-names) - nil t))) - (if (string= s "") - (progn (insert "\\section{}{") (backward-char 2)) - (insert (format "\\%s{" s))))) - -(defun Rd-mode-insert-skeleton () - (interactive) - ;; Hmm: in theory this should be kept in sync with prompt() - ;; --- maybe using prompt() [or promptClass()...] would be better anyway?! - (insert "\\name{}\n") - (insert "\\alias{}\n") - (insert "\\title{}\n") - (insert "\\description{\n}\n") - (insert "\\usage{\n}\n") - (insert "\\arguments{\n}\n") - (insert "\\value{\n}\n") - (insert "\\details{\n}\n") - (insert "\\references{\n}\n") - (insert "\\seealso{\n}\n") - (insert "\\examples{\n}\n") - (insert "\\author{}\n") - (insert "\\keyword{}\n")) - -;; This is an `easy' version of (defun TeX-font ..) in AUCtex's tex.el ; -;; see TeX-font-list and also LaTeX-font-list in latex.el - -(defun Rd-font (what) - "Insert template for font command. -WHAT determines the font to use, as specified by `Rd-font-list'." - (interactive "c") - ;;TeX had : (Rd-update-style) - (let* ((entry (assoc what Rd-font-list)) - (before (nth 1 entry)) - (after (nth 2 entry))) - (cond ((null entry) ;; help on possibilities : - (let ((help - (concat - "Rd Markup (available from C-c C-f):\n\n\t" - "KEY Rd-Markup\n\n" - (mapconcat - (lambda (entry) - ;; A textual description of an ENTRY in TeX-font-list. - (concat (format "%11s " - (key-description - (char-to-string (nth 0 entry)))) - (format "%14s %-3s" - (nth 1 entry) (nth 2 entry)))) - Rd-font-list "\n")))) - (with-output-to-temp-buffer "*Help*" - (set-buffer "*Help*") - (insert help)))) - - ((region-active-p) - (save-excursion - (cond ((> (mark) (point)) - (insert before) - (goto-char (mark)) - (insert after)) - (t - (insert after) - (goto-char (mark)) - (insert before))))) - (t - (insert before) - (save-excursion - (insert after)))))) -;;;###autoload -(defun Rd-preview-help (&optional via-shell) - "Preview the current Rd buffer contents as help. -If optional VIA-SHELL is set, using `Rd-to-help-command'. -If the current buffer is not associated with a file, create a -temporary one in `temporary-file-directory'." - (interactive "P") - (require 'ess-help) - (let ((file buffer-file-name) - (pbuf (get-buffer-create "R Help Preview")) - del-p) - (unless file - (setq file (make-temp-file "RD_" nil ".Rd")) - (write-region (point-min) (point-max) file) - (setq del-p t)) - - (if via-shell ;; FIXME eventually get rid of this option - ;; only method in ESS <= 14.09 -- calls "R" even if in "R-devel"; slower - (let ((shcmd (format "%s '%s'" Rd-to-help-command file))) - (set-buffer pbuf) - (erase-buffer) - (ess-write-to-dribble-buffer - (format "Rd-preview-help: (shell-command |%s| t)" shcmd)) - (shell-command shcmd t)) - ;; else directly: - (ess-force-buffer-current "R process to use: ") - (ess-command (format ".ess_Rd2txt(\"%s\")\n" file) pbuf) - (set-buffer pbuf)) - - ;; FIXME(2): once got rid of via-shell, consider - ;; (ess--flush-help-into-current-buffer file "tools::Rd2txt(\"%s\")\n") - ;; instead of all this : - (ess-setq-vars-local ess-r-customize-alist) - ;; FIXME: Is this really needed? - (setq ess-help-sec-regex ess-help-r-sec-regex - ess-help-sec-keys-alist ess-help-r-sec-keys-alist) - ;; mostly cut'n'paste from ess--flush-help* (see FIXME(2)): - (ess-help-underline) - (ess-help-mode) - (goto-char (point-min)) - (set-buffer-modified-p 'nil) - (setq buffer-read-only t) - (setq truncate-lines nil) - (when del-p (delete-file file)) - (unless (get-buffer-window pbuf 'visible) - (display-buffer pbuf t)))) - -;; Bug reporting -(defun Rd-submit-bug-report () - "Submit a bug report on Rd mode via mail." - (interactive) - (require 'reporter) - (and - (y-or-n-p "Do you want to submit a bug report? ") - (reporter-submit-bug-report - essddr-maintainer-address - (concat "Emacs version " emacs-version) - (list - 'essddr-version - 'Rd-indent-level)))) - - -;; Legacy feature -(provide 'essddr) -(provide 'ess-rd) - -;;; ess-rd.el ends here diff --git a/elpa/ess-20181109.703/ess-rdired.el b/elpa/ess-20181109.703/ess-rdired.el deleted file mode 100644 index 90517c7b..00000000 --- a/elpa/ess-20181109.703/ess-rdired.el +++ /dev/null @@ -1,501 +0,0 @@ -;;; ess-rdired.el --- prototype object browser for R, looks like dired mode. - -;; Copyright (C) 2002--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Stephen Eglen -;; Created: Thu 24 Oct 2002 -;; Maintainer: ESS-core - -;; This file is part of ESS - -;; This file is not part of GNU Emacs. - -;; ess-rdired.el 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. - -;; ess-rdired.el 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 -;; https://www.r-project.org/Licenses/ - -;; This provides a dired-like buffer for R objects. Instead of -;; operating on files, we operate on R objects in the current -;; environment. Objects can be viewed, edited, deleted, plotted and -;; so on. - -;;; Commentary: - -;; Installation and usage. -;; -;; After loading this file, do "M-x R" to start an R session, then -;; create a few variables: -;; s <- sin(seq(from=0, to=8*pi, length=100)) -;; x <- c(1, 4, 9) -;; y <- rnorm(20) -;; z <- TRUE - -;; Then in Emacs, do "M-x ess-rdired" and you should see the following in -;; the buffer *R dired*: -;; mode length -;; s numeric 100 -;; x numeric 3 -;; y numeric 20 -;; z logical 1 - -;; Type "?" in the buffer to see the documentation. e.g. when the -;; cursor is on the line for `s', type 'p' to plot it, or `v' to view -;; its contents in a buffer. Then type 'd' to mark it for deletion. - -;; How it works. - -;; Most of the hardwork is done by the R routine .rdired.objects(), -;; which, when called, produces the list of objects in a tidy format. -;; This function is stored within the Lisp variable `ess-rdired-objects', -;; and can be altered to provide other information if you so need it. -;; (Martin Maechler suggested providing output from str() here.) - -;; Todo - compare functionality with ess-mouse-me (ess-mous.el). - -;; Todo - How to select alternative environments? Currently only -;; shows objects in the .GlobalEnv? See BrowseEnv() in 1.6.x for way -;; of browsing other environments. - -;; Todo - problem with fix -- have to wait for fix() command to return -;; before *R* buffer can be used again. This can get stuck, umm. not -;; sure what is going wrong here. Maybe add a hook to the temp buffer -;; so that when buffer is killed, we send an instruction to R to -;; update the value of the variable to the contents of the buffer. -;; This way *R* doesn't have to wait. - -;; Todo - small bug in .rdired.objects -- if we have a variable called -;; `my.x', its value is replaced by the value of my.x used in the -;; sapply() calls within .rdired.objects(). - -;;; Code: - -(require 'ess-custom) -(require 'ess-inf) - -(defvar ess-rdired-objects "{.rdired.objects <- function(objs) { - if (length(objs)==0) { - \"No objects to view!\" - } else { - mode <- sapply(objs, function(my.x) { - eval( parse( text=sprintf('data.class(get(\"%s\"))', my.x))) }) - length <- sapply(objs, function(my.x) { - eval( parse( text=sprintf('length(get(\"%s\"))', my.x))) }) - size <- sapply(objs, function(my.x) { - eval( parse( text=sprintf('format(object.size(get(\"%s\")), units=\"auto\")', my.x))) }) - d <- data.frame(mode, length, size) - - var.names <- row.names(d) - - ## If any names contain spaces, we need to quote around them. - quotes = rep('', length(var.names)) - spaces = grep(' ', var.names) - if (any(spaces)) - quotes[spaces] <- '\"' - var.names = paste(quotes, var.names, quotes, sep='') - row.names(d) <- paste(' ', var.names, sep='') - d - } -}; cat('\n'); print(.rdired.objects(ls()))}\n" - "Function to call within R to print information on objects. -The last line of this string should be the instruction to call -the function which prints the output for rdired.") - -(defvar ess-rdired-buffer "*R dired*" - "Name of buffer for displaying R objects.") - -(defvar ess-rdired-mode-map - (let ((ess-rdired-mode-map (make-sparse-keymap))) - (if (require 'hide-lines nil t) - (define-key ess-rdired-mode-map "/" 'hide-lines)) - (define-key ess-rdired-mode-map "?" 'ess-rdired-help) - (define-key ess-rdired-mode-map "d" 'ess-rdired-delete) - (define-key ess-rdired-mode-map "u" 'ess-rdired-undelete) - (define-key ess-rdired-mode-map "x" 'ess-rdired-expunge) - ;; editing requires a little more work. - ;;(define-key ess-rdired-mode-map "e" 'ess-rdired-edit) - (define-key ess-rdired-mode-map "v" 'ess-rdired-view) - (define-key ess-rdired-mode-map "V" 'ess-rdired-View) - (define-key ess-rdired-mode-map "p" 'ess-rdired-plot) - (define-key ess-rdired-mode-map "s" 'ess-rdired-sort) - (define-key ess-rdired-mode-map "r" 'ess-rdired-reverse) - (define-key ess-rdired-mode-map "q" 'ess-rdired-quit) - (define-key ess-rdired-mode-map "y" 'ess-rdired-type) ;what type? - (define-key ess-rdired-mode-map " " 'ess-rdired-next-line) - (define-key ess-rdired-mode-map [backspace] 'ess-rdired-previous-line) - (define-key ess-rdired-mode-map "\C-n" 'ess-rdired-next-line) - (define-key ess-rdired-mode-map "\C-p" 'ess-rdired-previous-line) - ;; (define-key ess-rdired-mode-map "n" 'ess-rdired-next-line) - ;; (define-key ess-rdired-mode-map "p" 'ess-rdired-previous-line) - - ;; R mode keybindings. - (define-key ess-rdired-mode-map "\C-c\C-s" 'ess-rdired-switch-process) - (define-key ess-rdired-mode-map "\C-c\C-y" 'ess-switch-to-ESS) - (define-key ess-rdired-mode-map "\C-c\C-z" 'ess-switch-to-end-of-ESS) - - (define-key ess-rdired-mode-map [down] 'ess-rdired-next-line) - (define-key ess-rdired-mode-map [up] 'ess-rdired-previous-line) - (define-key ess-rdired-mode-map "g" 'revert-buffer) - (define-key ess-rdired-mode-map [mouse-2] 'ess-rdired-mouse-view) - ess-rdired-mode-map)) - -(defun ess-rdired-mode () - "Major mode for output from `ess-rdired'. -`ess-rdired' provides a dired-like mode for R objects. It shows the -list of current objects in the current environment, one-per-line. You -can then examine these objects, plot them, and so on. -\\{ess-rdired-mode-map}" - ;; (kill-all-local-variables) - (make-local-variable 'revert-buffer-function) - (setq revert-buffer-function 'ess-rdired-revert-buffer) - (use-local-map ess-rdired-mode-map) - (setq major-mode 'ess-rdired-mode) - (setq mode-name (concat "RDired " ess-local-process-name)) - (run-mode-hooks 'ess-rdired-mode-hook)) - -(defun ess-rdired-mode-hook nil - "Run upon entering `ess-rdired-mode'.") - -(defvar ess-rdired-sort-num nil) ;silence the compiler. -;; but see following defun -- maybe it should be buffer local. - -;;;###autoload -(defun ess-rdired () - "Run dired-like mode on R objects. -This is the main function. See documentation for `ess-rdired-mode' though -for more information!" - (interactive) - (let ((proc ess-local-process-name) - (buff (get-buffer-create ess-rdired-buffer))) - - (ess-command ess-rdired-objects buff) - (ess-setq-vars-local (symbol-value ess-local-customize-alist) buff) - - (with-current-buffer buff - (setq ess-local-process-name proc) - (ess-rdired-mode) - - ;; When definiting the function .rdired.objects(), a "+ " is printed - ;; for every line of the function definition; these are deleted - ;; here. - (goto-char (point-min)) - (delete-region (point-min) (1+ (point-at-eol))) - - ;; todo: not sure how to make ess-rdired-sort-num buffer local? - ;;(set (make-local-variable 'ess-rdired-sort-num) 2) - ;;(make-variable-buffer-local 'ess-rdired-sort-num) - (setq ess-rdired-sort-num 1) - (ess-rdired-insert-set-properties (save-excursion - (goto-char (point-min)) - (forward-line 1) - (point)) - (point-max)) - (setq buffer-read-only t) - ) - - (pop-to-buffer buff) - )) - - -(defun ess-rdired-object () - "Return name of object on current line. -Handle special case when object contains spaces." - (save-excursion - (beginning-of-line) - (forward-char 2) - - (cond ((looking-at " ") ; First line? - nil) - ((looking-at "\"") ; Object name contains spaces? - (let (beg) - (setq beg (point)) - (forward-char 1) - (search-forward "\"") - (buffer-substring-no-properties beg (point)))) - (t ;should be a regular object. - (let (beg) - (setq beg (point)) - (search-forward " ") ;assume space follows object name. - (buffer-substring-no-properties beg (1- (point)))))))) - -(defun ess-rdired-edit () - "Edit (fix) the object at point." - (interactive) - (let ((objname (ess-rdired-object))) - (ess-command (concat "edit(" objname ")\n")))) - -(defun ess-rdired-view () - "View the object at point." - (interactive) - (let ((objname (ess-rdired-object))) - (ess-execute (ess-rdired-get objname) - nil "R view" ))) - -(defun ess-rdired-get (name) - "Generate R code to get the value of the variable NAME. -This is complicated because some variables might have spaces in their names. -Otherwise, we could just pass the variable name directly to *R*." - (concat "get(" (ess-rdired-quote name) ")") - ) - -(defun ess-rdired-quote (name) - "Quote NAME if not already quoted." - (if (equal (substring name 0 1) "\"") - name - (concat "\"" name "\""))) - - -(defun ess-rdired-View () - "View the object at point in its own buffer. -Like `ess-rdired-view', but the object gets its own buffer name." - (interactive) - (let ((objname (ess-rdired-object))) - (ess-execute (ess-rdired-get objname) - nil (concat "R view " objname )))) - -(defun ess-rdired-plot () - "Plot the object on current line." - (interactive) - (let ((objname (ess-rdired-object))) - (ess-eval-linewise (format "plot(%s)" (ess-rdired-get objname))))) - -(defun ess-rdired-type () - "Run the mode() on command at point. -Named type because of similarity with the dired command bound to -y key." - (interactive) - (let ((objname (ess-rdired-object)) - ;; create a temp buffer, and then show output in echo area - (tmpbuf (get-buffer-create "**ess-rdired-mode**"))) - (if objname - (progn - (ess-command (concat "mode(" (ess-rdired-get objname) ")\n") - tmpbuf ) - (set-buffer tmpbuf) - (message (concat - objname ": " - (buffer-substring (+ 4 (point-min)) (1- (point-max))))) - (kill-buffer tmpbuf))))) - -(defun ess-rdired-delete (arg) - "Mark the current (or next ARG) objects for deletion. -If point is on first line, all objects are marked for deletion." - (interactive "p") - (ess-rdired-mark "D" arg)) - -(defun ess-rdired-undelete (arg) - "Unmark the current (or next ARG) objects. -If point is on first line, all objects will be unmarked." - (interactive "p") - (ess-rdired-mark " " arg)) - -(defun ess-rdired-mark (mark-char arg) - "Mark the object, using MARK-CHAR, on current line (or next ARG lines)." - ;; If we are on first line, mark all lines. - (let ((buffer-read-only nil) - move) - (if (eq (point-min) - (save-excursion (beginning-of-line) (point))) - (progn - ;; we are on first line, so make a note of point, and count - ;; how many objects we want to delete. Then at end of defun, - ;; restore point. - (setq move (point)) - (forward-line 1) - (setq arg (count-lines (point) (point-max))))) - (while (and (> arg 0) (not (eobp))) - (setq arg (1- arg)) - (beginning-of-line) - (progn - (insert mark-char) - (delete-char 1) - (forward-line 1))) - (if move - (goto-char move)))) - - -(defun ess-rdired-expunge () - "Delete the marked objects. -User is queried first to check that objects should really be deleted." - (interactive) - (let ((objs "rm(") - (count 0)) - (save-excursion - (goto-char (point-min)) (forward-line 1) - (while (< (count-lines (point-min) (point)) - (count-lines (point-min) (point-max))) - (beginning-of-line) - (if (looking-at "^D ") - (setq count (1+ count) - objs (concat objs (ess-rdired-object) ", " ))) - (forward-line 1) - )) - (if (> count 0) - ;; found objects to delete - (progn - (setq objs (concat - (substring objs 0 (- (length objs) 2)) - ")\n")) - (if (yes-or-no-p (format "Delete %d %s " count - (if (> count 1) "objects" "object"))) - (progn - (ess-eval-linewise objs nil nil nil 'wait) - (ess-rdired) - ))) - ;; else nothing to delete - (message "no objects set to delete") - ))) - -;; Fancy delete method, based on dired. Bit too much for our needs? -;; (defun ess-rdired-expunge () -;; "Delete the marked objects. -;; User is queried first to check that objects should really be deleted." -;; (interactive) -;; (let ((objs) -;; (cmd "rm(")) -;; (save-excursion -;; (goto-line 2) -;; (while (< (count-lines (point-min) (point)) -;; (count-lines (point-min) (point-max))) -;; (beginning-of-line) -;; (if (looking-at "^D ") -;; (progn -;; (setq objs (cons (ess-rdired-object) objs )) -;; (setq cmd (concat cmd (ess-rdired-object) ", ")) -;; )) -;; (forward-line 1) -;; )) -;; (if (> (length objs) 0) -;; ;; found objects to delete -;; (if -;; (dired-mark-pop-up "*RDired deletions*" 'delete -;; objs dired-deletion-confirmer -;; (format "delete %s " -;; (dired-mark-prompt nil objs))) -;; ;; should delete the objects. -;; (progn -;; (setq cmd (concat (substring cmd 0 (- (length cmd) 2)) -;; ")\n")) -;; (ess-command cmd) -;; (ess-rdired))) -;; ;; else nothing to delete -;; (message "no objects set to delete") -;; ))) - -(defun ess-rdired-quit () - "Quit the R dired buffer." - (interactive) - (kill-buffer ess-rdired-buffer)) - -(defun ess-rdired-revert-buffer (ignore noconfirm) - "Update the buffer list (in case object list has changed). -Arguments IGNORE and NOCONFIRM currently not used." - (ess-rdired)) - -(defun ess-rdired-help () - "Show help for `ess-rdired-mode'." - (interactive) - (describe-function 'ess-rdired-mode)) - -(defun ess-rdired-sort () - "Sort the rdired output according to one of the columns. -Rotate between the alternative sorting methods." - (interactive) - (setq ess-rdired-sort-num (1+ ess-rdired-sort-num)) - (let ((buffer-read-only nil) - (beg (save-excursion - (goto-char (point-min)) - (forward-line 1) - (point))) - (end (point-max))) - (if (> ess-rdired-sort-num 4) - (setq ess-rdired-sort-num 1)) - (cond ((eq ess-rdired-sort-num 1) - (sort-fields 1 beg end)) - ((eq ess-rdired-sort-num 2) - (sort-fields 2 beg end)) - ((eq ess-rdired-sort-num 3) - (sort-numeric-fields 3 beg end)) - ((eq ess-rdired-sort-num 4) - (sort-numeric-fields 4 beg end))))) - -(defun ess-rdired-reverse () - "Reverse the current sort order." - (interactive) - (let ((buffer-read-only nil) - (beg (save-excursion - (goto-char (point-min)) - (forward-line 1) - (point))) - (end (point-max))) - (reverse-region beg end))) - -(defun ess-rdired-next-line (arg) - "Move down lines then position at object. -Optional prefix ARG says how many lines to move; default is one line." - (interactive "p") - (forward-line arg) - (ess-rdired-move-to-object)) - -(defun ess-rdired-previous-line (arg) - "Move up lines then position at object. -Optional prefix ARG says how many lines to move; default is one line." - (interactive "p") - (forward-line (- (or arg 1))) ; -1 if arg was nil - (ess-rdired-move-to-object)) - -(defun ess-rdired-move-to-object () - "Put point at start of object." - (beginning-of-line) - (forward-char 2) - ) - -(defun ess-rdired-mouse-view (event) - "In rdired, visit the object on the line you click on." - (interactive "e") - (let (window pos) - (save-excursion - (setq window (posn-window (event-end event)) - pos (posn-point (event-end event))) - (if (not (windowp window)) - (error "No file chosen")) - (set-buffer (window-buffer window)) - (goto-char pos) - (ess-rdired-view)))) - -(defun ess-rdired-insert-set-properties (beg end) - "Add mouse highlighting to each object name in the R dired buffer." - (save-excursion - (goto-char beg) - (while (< (point) end) - (ess-rdired-move-to-object) - (add-text-properties - (point) - (save-excursion - (search-forward " ") - (1- (point))) - '(mouse-face highlight - help-echo "mouse-2: view object in other window")) - (forward-line 1)))) - -(defun ess-rdired-switch-process () - "Switch to examine different *R* process. -If you have multiple R processes running, e.g. *R*, *R:2*, *R:3*, you can -use this command to choose which R process you would like to examine. -After switching to a new process, the buffer is updated." - (interactive) - (ess-switch-process) - (ess-rdired)) - -(provide 'ess-rdired) - -;;; ess-rdired.el ends here diff --git a/elpa/ess-20181109.703/ess-roxy.el b/elpa/ess-20181109.703/ess-roxy.el deleted file mode 100644 index 86e15704..00000000 --- a/elpa/ess-20181109.703/ess-roxy.el +++ /dev/null @@ -1,975 +0,0 @@ -;;; ess-roxy.el --- convenient editing of in-code roxygen documentation -;; -;; Copyright (C) 2009--2017 Henning Redestig, A.J. Rossini, Richard -;; M. Heiberger, Martin Maechler, Kurt Hornik, Rodney Sparapani, Stephen -;; Eglen and Vitalie Spinu. -;; -;; Author: Henning Redestig -;; Keywords: convenience, tools -;; -;; This file is part of ESS -;; -;; This program 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 3 of the -;; License, or (at your option) any later version. -;; -;; This program 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. -;; -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see -;; . - - -;;; Commentary: - -;; Lots of inspiration from doc-mode, -;; https://nschum.de/src/emacs/doc-mode/ -;; -;; Features:: -;; -;; - basic highlighting -;; - generating and updating templates from function definition and customized default template -;; - C-c C-o C-o :: update template -;; - navigating and filling roxygen fields -;; - C-c TAB, M-q, C-a, ENTER, M-h :: advised tag completion, fill-paragraph, -;; move-beginning-of-line, newline-and-indent -;; - C-c C-o n,p :: next, previous roxygen entry -;; - C-c C-o C-c :: Unroxygen region. Convenient for editing examples. -;; - folding visibility using hs-minor-mode -;; - TAB :: advised ess-ident-command, hide entry if in roxygen doc. -;; - preview -;; - C-c C-o C-r :: create a preview of the Rd file as generated -;; using roxygen -;; - C-c C-o C-t :: create a preview of the Rd HTML file as generated -;; using roxygen and the tools package -;; - C-c C-o t :: create a preview of the Rd text file -;; -;; Known issues: -;; -;; - hideshow mode does not work very well. In particular, if ordinary -;; comments precede a roxygen entry, then both will be hidden in the -;; same overlay from start and not unfoldable using TAB since the -;; roxygen prefix is not present. The planned solution is implement -;; a replacement for hideshow. -;; - only limited functionality for S4 documentation. - -;; this *is* enabled now via ess-mode-hook in ./ess-site.el - -;;; Code: - -(require 'ess-utils) -(require 'ess-custom) -(require 'ess-utils) -(require 'hideshow) -(require 'outline) -(eval-when-compile - (require 'cl-lib)) -(require 'essddr "ess-rd.el") - -(defvar roxy-str) - - -;;*;; Roxy Minor Mode - -(defvar ess-roxy-mode-map - (let ((map (make-sparse-keymap))) - (if ess-roxy-hide-show-p - (define-key map (kbd "C-c C-o h") 'ess-roxy-hide-all)) - ;; short version (*first*: -> key binding shown in menu): - (define-key map (kbd "C-c C-o n") 'ess-roxy-next-entry) - (define-key map (kbd "C-c C-o p") 'ess-roxy-previous-entry) - ;; For consistency (e.g. C-c C-o C-h !): kept here *in* addition to above - (define-key map (kbd "C-c C-o C-o") 'ess-roxy-update-entry) - (define-key map (kbd "C-c C-o C-r") 'ess-roxy-preview-Rd) - (define-key map (kbd "C-c C-o C-w") 'ess-roxy-preview-HTML) - (define-key map (kbd "C-c C-o C-t") 'ess-roxy-preview-text) - (define-key map (kbd "C-c C-o C-c") 'ess-roxy-toggle-roxy-region) - map)) - -(defvar ess-roxy-font-lock-keywords - `((,(concat ess-roxy-re " *\\([@\\]" - (regexp-opt ess-roxy-tags-param t) - "\\)\\>") - (1 'font-lock-keyword-face prepend)) - (,(concat ess-roxy-re " *\\(@" - (regexp-opt '("param" "importFrom" "importClassesFrom" - "importMethodsFrom") - 'words) - "\\)\\(?:[ \t]+\\(\\(?:\\sw+,?\\)+\\)\\)") - (1 'font-lock-keyword-face prepend) - (3 'font-lock-variable-name-face prepend)) - (,(concat "[@\\]" (regexp-opt ess-roxy-tags-noparam t) "\\>") - (0 'font-lock-variable-name-face prepend)) - (,(concat ess-roxy-re) - (0 'bold prepend)))) - -(defvar ess-roxy-fold-examples nil - "Whether to fold `@examples' when opening a buffer. -Use you regular key for `outline-show-entry' to reveal it.") - -(define-minor-mode ess-roxy-mode - "Minor mode for editing ROxygen documentation." - :keymap ess-roxy-mode-map - (if ess-roxy-mode - (progn - (font-lock-add-keywords nil ess-roxy-font-lock-keywords) - (add-hook 'completion-at-point-functions #'ess-roxy-complete-tag 'local) ;; should be first - ;; Hideshow Integration - (when (and ess-roxy-hide-show-p (featurep 'hideshow)) - (hs-minor-mode 1) - (when ess-roxy-start-hidden-p - (ess-roxy-hide-all))) - ;; Outline Integration - (when ess-roxy-fold-examples - (ess-roxy-hide-all-examples))) - (when (and ess-roxy-hide-show-p - (bound-and-true-p hs-minor-mode)) - (hs-show-all) - (hs-minor-mode)) - (font-lock-remove-keywords nil ess-roxy-font-lock-keywords) - (setq-local syntax-propertize-function nil) - (setq-local font-lock-fontify-region-function nil) - (setq-local font-lock-unfontify-region-function nil)) - (when font-lock-mode - (if (fboundp 'font-lock-flush) - (font-lock-flush) - ;; font-lock-fontify-buffer call can be removed when we drop - ;; support for Emacs older than 25.1 - (with-no-warnings (font-lock-fontify-buffer)))) - ;; Autofill - (setq-local paragraph-start (concat "\\(" ess-roxy-re "\\)*" paragraph-start)) - (setq-local paragraph-separate (concat "\\(" ess-roxy-re "\\)*" paragraph-separate)) - (setq-local adaptive-fill-function 'ess-roxy-adaptive-fill-function)) - - - -;;*;; Outline Integration - -(defvar ess-roxy-outline-regexp "^#+' +@examples\\|^[^#]") - -(defun ess-roxy-substitute-outline-regexp (command) - (let ((outline-regexp (if (ess-roxy-entry-p "examples") - ess-roxy-outline-regexp - outline-regexp))) - (funcall command))) - -(declare-function outline-cycle "outline-magic") -(defun ess-roxy-cycle-example () - (interactive) - (unless (featurep 'outline-magic) - (error "Please install and load outline-magic")) - ;; Don't show children when cycling @examples - (let ((this-command 'outline-cycle-overwiew)) - (ess-roxy-substitute-outline-regexp #'outline-cycle))) - -(defun ess-roxy-show-example () - (interactive) - (ess-roxy-substitute-outline-regexp #'outline-show-entry)) - -(defun ess-roxy-hide-example () - (interactive) - (ess-roxy-substitute-outline-regexp #'outline-hide-entry)) - -(defun ess-roxy-hide-all-examples () - (interactive) - (save-excursion - (goto-char (point-min)) - (while (re-search-forward "^#+' +@examples\\b" nil t) - ;; Handle edge cases - (when (ess-roxy-entry-p "examples") - (ess-roxy-hide-example))))) - -(when (featurep 'outline-magic) - (substitute-key-definition 'outline-cyle - 'ess-roxy-cyle-example - ess-roxy-mode-map outline-mode-menu-bar-map)) - -(substitute-key-definition 'outline-hide-entry - 'ess-roxy-hide-example - ess-roxy-mode-map outline-minor-mode-map) - -(substitute-key-definition 'outline-show-entry - 'ess-roxy-show-example - ess-roxy-mode-map outline-minor-mode-map) - - -;;*;; Function definitions - -(defun ess-back-to-roxy () - "Go to roxy prefix." - (progn - (end-of-line) - (re-search-backward (concat ess-roxy-re " ?") (point-at-bol)) - (goto-char (match-end 0)))) - -(defun ess-roxy-beg-of-entry () - "Get point number at start of current entry, 0 if not in entry." - (save-excursion - (let (beg) - (beginning-of-line) - (setq beg -1) - (if (not (ess-roxy-entry-p)) - (setq beg 0) - (setq beg (point))) - (while (and (= (forward-line -1) 0) (ess-roxy-entry-p)) - (setq beg (point))) - beg))) - -(defun ess-roxy-in-header-p () - "True if point is the description / details field." - (save-excursion - (let ((res t) - (cont (ess-roxy-entry-p))) - (beginning-of-line) - (while cont - (if (looking-at (concat ess-roxy-re " *[@].+")) - (progn (setq res nil) - (setq cont nil))) - (setq cont (and (= (forward-line -1) 0) (ess-roxy-entry-p))) - )res))) - -(defun ess-roxy-beg-of-field () - "Get point number at beginning of current field, 0 if not in entry." - (save-excursion - (let (cont beg) - (beginning-of-line) - (setq beg 0) - (setq cont t) - (while (and (ess-roxy-entry-p) cont) - (setq beg (point)) - (if (looking-at (concat ess-roxy-re " *[@].+")) - (setq cont nil)) - (if (ess-roxy-in-header-p) - (if (looking-at (concat ess-roxy-re " *$")) - (progn - (forward-line 1) - (setq beg (point)) - (setq cont nil)))) - (if cont (setq cont (= (forward-line -1) 0)))) - beg))) - -(defun ess-roxy-end-of-entry () - "Get point number at end of current entry, 0 if not in entry." - (save-excursion - (let ((end)) - (end-of-line) - (setq end -1) - (if (not (ess-roxy-entry-p)) - (setq end 0) - (setq end (point))) - (while (and (= (forward-line 1) 0) (ess-roxy-entry-p)) - (end-of-line) - (setq end (point))) - end))) - -(defun ess-roxy-end-of-field () - "Get point number at end of current field, 0 if not in entry." - (save-excursion - (let ((end nil) - (cont nil)) - (setq end 0) - (if (ess-roxy-entry-p) (progn (end-of-line) (setq end (point)))) - (beginning-of-line) - (forward-line 1) - (setq cont t) - (while (and (ess-roxy-entry-p) cont) - (save-excursion - (end-of-line) - (setq end (point))) - (if (or (and (ess-roxy-in-header-p) - (looking-at (concat ess-roxy-re " *$"))) - (looking-at (concat ess-roxy-re " *[@].+"))) - (progn - (forward-line -1) - (end-of-line) - (setq end (point)) - (setq cont nil))) - (if cont (setq cont (= (forward-line 1) 0)))) - end))) - -(defun ess-roxy-entry-p (&optional field) - "True if point is in a roxy entry." - (and (save-excursion - (beginning-of-line) - (looking-at ess-roxy-re)) - (or (null field) - (string= (ess-roxy-current-field) field)))) - -(defun ess-roxy-narrow-to-field () - "Go to to the start of current field." - (interactive) - (let ((beg (ess-roxy-beg-of-field)) - (end (ess-roxy-end-of-field))) - (narrow-to-region beg end))) - -(defun ess-roxy-extract-field () - (let ((field (buffer-substring (ess-roxy-beg-of-entry) - (ess-roxy-end-of-entry))) - (prefix-re (ess-roxy-guess-str))) - (with-temp-buffer - (insert field) - (goto-char (point-min)) - (while (re-search-forward prefix-re (point-max) 'noerror) - (replace-match "")) - (buffer-substring (point-min) (point-max))))) - -(defun ess-roxy-adaptive-fill-function () - "Return prefix for filling paragraph or nil if not determined." - (when (ess-roxy-entry-p) - (let ((roxy-str (car (split-string (ess-roxy-guess-str) "'")))) - (if (ess-roxy-in-header-p) - (save-excursion - (ess-back-to-roxy) - (re-search-forward "\\([ \t]*\\)" (line-end-position) t) - (concat roxy-str "' " (match-string 1))) - (concat roxy-str "' " (make-string ess-indent-offset ? )))))) - -(defun ess-roxy-current-field () - "Return the name of the field at point." - (and (not (ess-roxy-in-header-p)) - (save-excursion - (goto-char (ess-roxy-beg-of-field)) - (if (re-search-forward (concat ess-roxy-re - "[ \t]+@\\([[:alpha:]]+\\)") - (line-end-position) t) - (match-string-no-properties 1))))) - -(defun ess-roxy-maybe-indent-line () - "Indent line when point is in a field, but not in its first line." - (when (and (not (ess-roxy-in-header-p)) - (not (equal (ess-roxy-current-field) "examples")) - (save-excursion - (beginning-of-line) - (let ((line-n (count-lines 1 (point)))) - (goto-char (ess-roxy-beg-of-field)) - (not (equal line-n (count-lines 1 (point))))))) - (ess-back-to-roxy) - (delete-region (point) (progn (skip-chars-forward " \t") (point))) - (insert (make-string ess-indent-offset ? )))) - -(defun ess-roxy-goto-func-def () - "Put point at start of function. -Go to the beginning of the current one or below the current -roxygen entry, error otherwise" - (if (ess-roxy-entry-p) - (progn - (ess-roxy-goto-end-of-entry) - (forward-line 1) - (beginning-of-line)) - (goto-char (car (ess-end-of-function))))) - -(defun ess-roxy-get-args-list-from-def () - "Get args list for current function." - (save-excursion - (ess-roxy-goto-func-def) - (let ((args (ess-roxy-get-function-args))) - (mapcar (lambda (x) (cons x '(""))) args)))) - -(defun ess-roxy-insert-args (args &optional here) - "Insert an ARGS list to the end of the current roxygen entry. -If HERE is supplied start inputting `here'. Finish at end of -line." - (let* ((arg-des nil) - (roxy-str (ess-roxy-guess-str))) - (if (or (not here) (< here 1)) - (progn - (ess-roxy-goto-end-of-entry) - (beginning-of-line) - (if (not (looking-at "\=")) - (progn - (end-of-line)))) - (goto-char here)) - (while (stringp (car (car args))) - (setq arg-des (pop args)) - (unless (string= (car arg-des) "") - (progn - (insert (concat "\n" - roxy-str " @param " (car arg-des) " ")) - (insert - (ess-replace-in-string (concat (car (cdr arg-des))) "\n" - (concat "\n" roxy-str))) - (if ess-roxy-fill-param-p - (fill-paragraph))))))) - -(defun ess-roxy-merge-args (fun ent) - "Take two args lists (alists) and return their union. -The result holds all keys from both FUN and ENT but no duplicates and -association from ent are preferred over entries from fun. Also, -drop entries from ent that are not in fun and are associated with -the empty string." - (let ((res-arg nil) - (arg-des)) - (while (stringp (car (car fun))) - (setq arg-des (pop fun)) - (if (assoc (car arg-des) ent) - (setq res-arg - (cons (cons (car arg-des) (cdr (assoc (car arg-des) ent))) res-arg)) - (setq res-arg (cons (cons (car arg-des) '("")) res-arg)))) - (while (stringp (car (car ent))) - (setq arg-des (pop ent)) - (if (and (not (assoc (car arg-des) res-arg)) (not (string= (car (cdr arg-des)) ""))) - (setq res-arg (cons (cons (car arg-des) (cdr arg-des)) res-arg)))) - (nreverse res-arg))) - -(defun ess-roxy-update-entry () - "Update the entry at point or the entry above the current function. -Add a template empty roxygen documentation if no roxygen entry is -available. The template can be customized via the variable -`ess-roxy-template-alist'. The parameter descriptions can are -filled if `ess-roxy-fill-param-p' is non-nil." - (interactive) - (save-excursion - (let* ((args-fun (ess-roxy-get-args-list-from-def)) - (args-ent (ess-roxy-get-args-list-from-entry)) - (args (ess-roxy-merge-args args-fun args-ent)) - (roxy-str (ess-roxy-guess-str)) - (line-break "") - here key template tag-def) - (ess-roxy-goto-func-def) - (if (not (= (forward-line -1) 0)) - (progn - (insert "\n") - (forward-line -1))) - (if (and (not (looking-at "^\n")) (not (ess-roxy-entry-p))) - (progn - (end-of-line) - (insert "\n"))) - (if (ess-roxy-entry-p) - (progn - (setq here (1- (ess-roxy-delete-args))) - (ess-roxy-insert-args args here)) - (setq template (copy-sequence ess-roxy-template-alist)) - (while (stringp (car (car template))) - (setq tag-def (pop template)) - (if (string= (car tag-def) "param") - (ess-roxy-insert-args args (point)) - (if (string= (car tag-def) "description") - (insert (concat line-break roxy-str " " - (cdr tag-def) "\n" roxy-str)) - (if (string= (car tag-def) "details") - (insert (concat line-break roxy-str " " (cdr tag-def))) - (insert (concat line-break roxy-str " @" - (car tag-def) " " (cdr tag-def)))) - )) - (setq line-break "\n")))))) - -(defun ess-roxy-goto-end-of-entry () - "Put point at the top of the current entry or above the function at point. -Return t if the point is left in a roxygen entry, otherwise nil. -Error if point is not in function or roxygen entry." - (if (not (ess-roxy-entry-p)) - (progn - (goto-char (nth 0 (ess-end-of-function))) - (forward-line -1))) - (if (ess-roxy-entry-p) - (progn - (goto-char (ess-roxy-end-of-entry)) - t) - (forward-line) nil)) - -(defun ess-roxy-goto-beg-of-entry () - "Put point at the top of the entry at point or above the function at point. -Return t if the point is left in a roxygen -entry, otherwise nil. Error if point is not in function or -roxygen entry." - (if (not (ess-roxy-entry-p)) - (progn - (goto-char (nth 0 (ess-end-of-function))) - (forward-line -1))) - (if (ess-roxy-entry-p) - (progn - (goto-char (ess-roxy-beg-of-entry)) - t) - (forward-line) nil)) - -(defun ess-roxy-delete-args () - "Remove all args from the entry at point or above the function at point. -Return 0 if no deletions were made other wise the point at where -the last deletion ended" - (save-excursion - (let* ((args nil) - (cont t) - (field-beg 0) - entry-beg entry-end field-end) - (ess-roxy-goto-end-of-entry) - (setq entry-beg (ess-roxy-beg-of-entry)) - (setq entry-end (ess-roxy-end-of-entry)) - (goto-char entry-end) - (beginning-of-line) - (while (and (<= entry-beg (point)) (> entry-beg 0) cont) - (if (looking-at - (concat ess-roxy-re " *@param")) - (progn - (setq field-beg (ess-roxy-beg-of-field)) - (setq field-end (ess-roxy-end-of-field)) - (delete-region field-beg (+ field-end 1)))) - (setq cont nil) - (if (= (forward-line -1) 0) - (setq cont t))) - field-beg))) - -(defun ess-roxy-get-args-list-from-entry () - "Fill an args list from the entry above the function where the point is." - (save-excursion - (let* (args entry-beg field-beg field-end args-text arg-name desc) - (if (ess-roxy-goto-end-of-entry) - (progn - (setq roxy-str (ess-roxy-guess-str)) - (beginning-of-line) - (setq entry-beg (ess-roxy-beg-of-entry)) - (while (and (< entry-beg (point)) (> entry-beg 0)) - (if (looking-at - (concat ess-roxy-re " *@param")) - (progn - (setq field-beg (ess-roxy-beg-of-field)) - (setq field-end (ess-roxy-end-of-field)) - (setq args-text (buffer-substring-no-properties - field-beg field-end)) - (setq args-text - (ess-replace-in-string args-text roxy-str "")) - (setq args-text - (ess-replace-in-string - args-text "[[:space:]]*@param *" "")) - ;; (setq args-text - ;; (ess-replace-in-string args-text "\n" "")) - (string-match "[^[:space:]]*" args-text) - (setq arg-name (match-string 0 args-text)) - (setq desc (replace-regexp-in-string - (concat "^" (regexp-quote arg-name) " *") "" args-text)) - (setq args (cons (list (concat arg-name) - (concat desc)) - args)))) - (forward-line -1)) - args) - nil)))) - -(defun ess-roxy-toggle-roxy-region (beg end) - "Remove prefix roxy string in this region if point is in a roxy -region, otherwise prefix all lines with the roxy -string. Convenient for editing example fields." - (interactive "r") - (unless (use-region-p) - (error "Region is not active")) - (ess-roxy-roxy-region beg end (ess-roxy-entry-p))) - -(defun ess-roxy-roxy-region (beg end &optional on) - (save-excursion - (let (RE to-string - (roxy-str (ess-roxy-guess-str))) - (narrow-to-region beg (- end 1)) - (if on - (progn (setq RE (concat ess-roxy-re " +?")) - (setq to-string "")) - (setq RE "^") - (setq to-string (concat roxy-str " "))) - (goto-char beg) - (while (re-search-forward RE (point-max) 'noerror) - (replace-match to-string)) - (widen)))) - -(defun ess-roxy-preview () - "Use a (possibly newly) connected R session and the roxygen package -`ess-roxy-package' to generate the Rd code for entry at point, place it -in a temporary buffer and return that buffer." - (let* ((beg (ess-roxy-beg-of-entry)) - (tmpf (make-temp-file "ess-roxy")) - (roxy-buf (get-buffer-create " *RoxygenPreview*")) - (R-old-roxy - (concat - "..results <- roxygen2:::roc_process(rd_roclet(), parse.files(P), \"\");" - "cat(vapply(..results, function(x) roxygen2:::rd_out_cache$compute(x, format(x)), character(1)))" )) - (R-new-roxy - (concat - "..results <- roc_proc_text(rd_roclet(), readChar(P, file.info(P)$size));" - "cat(vapply(..results, format, character(1)), \"\n\")" )) - (out-rd-roclet - (cond ((string= "roxygen" ess-roxy-package) - "make.Rd2.roclet()$parse") - ;; must not line break strings to avoid getting +s in the output - ((string= "roxygen2" ess-roxy-package) - (concat "(function(P) { if(packageVersion('roxygen2') < '3.0.0') {" - R-old-roxy "} else {" R-new-roxy "} })")) - (t (error "Need to hard code the roclet output call for roxygen package '%s'" - ess-roxy-package))))) - (if (= beg 0) - (error "Point is not in a Roxygen entry")) - (save-excursion - (goto-char (ess-roxy-end-of-entry)) - (forward-line 1) - (if (ess-end-of-function nil t) - (append-to-file beg (point) tmpf) - (while (and (forward-line 1) (not (looking-at "^$")) - (not (looking-at ess-roxy-re)))) - (append-to-file beg (point) tmpf)) - (ess-force-buffer-current) - (unless (ess-boolean-command (concat "print(suppressWarnings(require(" ess-roxy-package - ", quietly=TRUE)))\n")) - (error (concat "Failed to load the " ess-roxy-package " package; " - "in R, try install.packages(\"" ess-roxy-package "\")"))) - (ess-command (concat out-rd-roclet "(\"" tmpf "\")\n") roxy-buf) - (with-current-buffer roxy-buf - ;; Kill characters up to % in case we missed stripping prompts - ;; or +'s: - (goto-char (point-min)) - (when (re-search-forward "%" (line-end-position) t) - (backward-char) - (delete-region (line-beginning-position) (point))))) - (delete-file tmpf) - roxy-buf)) - -(defun ess-roxy-preview-HTML (&optional visit-instead-of-browse) - "Use a (possibly newly) connected R session and the roxygen package to -generate a HTML page for the roxygen entry at point and open that -buffer in a browser. Visit the HTML file instead of showing it in -a browser if `visit-instead-of-browse' is non-nil." - (interactive "P") - (let* ((roxy-buf (ess-roxy-preview)) - (rd-tmp-file (make-temp-file "ess-roxy-" nil ".Rd")) - (html-tmp-file (make-temp-file "ess-roxy-" nil ".html")) - (rd-to-html (concat "Rd2HTML(\"" rd-tmp-file "\",\"" - html-tmp-file "\", stages=c(\"render\"))")) - ) - (with-current-buffer roxy-buf - (set-visited-file-name rd-tmp-file) - (save-buffer) - (kill-buffer roxy-buf)) - (ess-force-buffer-current) - (ess-command "print(suppressWarnings(require(tools, quietly=TRUE)))\n") - (if visit-instead-of-browse - (progn - (ess-command (concat rd-to-html "\n")) - (find-file html-tmp-file)) - (ess-command (concat "browseURL(" rd-to-html ")\n"))))) - -(defun ess-roxy-preview-text () - "Use the connected R session and the roxygen package to -generate the text help page of the roxygen entry at point." - (interactive) - (with-current-buffer (ess-roxy-preview) - (Rd-preview-help))) - -(defun ess-roxy-preview-Rd (&optional name-file) - "Preview Rd for the roxygen entry at point. -Use the connected R session and the roxygen package to -generate the Rd code for the roxygen entry at point. If called -with a non-nil NAME-FILE (\\[universal-argument]), -also set the visited file name of the created buffer to -facilitate saving that file." - (interactive "P") - (let ((roxy-buf (ess-roxy-preview))) - (pop-to-buffer roxy-buf) - (if name-file - (save-excursion - (goto-char 1) - (search-forward-regexp "name{\\(.+\\)}") - (set-visited-file-name (concat (match-string 1) ".Rd")))) - (Rd-mode) - ;; why should the following be needed here? [[currently has no effect !!]] - ;; usually in a *.Rd file fontification happens automatically - (if (fboundp 'font-lock-ensure) - (font-lock-ensure) - ;; emacs <= 24.x.y: - (with-no-warnings (font-lock-fontify-buffer))))) - - -(defun ess-roxy-guess-str (&optional not-here) - "Guess the prefix used in the current roxygen block. -If NOT-HERE is non-nil, guess the prefix for nearest roxygen -block before the point." - (save-excursion - (if (ess-roxy-entry-p) - (progn - (goto-char (point-at-bol)) - (search-forward-regexp ess-roxy-re)) - (if not-here - (search-backward-regexp ess-roxy-re))) - (if (or not-here (ess-roxy-entry-p)) - (match-string 0) - ess-roxy-str))) - -(defun ess-roxy-hide-block () - "Hide current roxygen comment block." - (interactive) - (save-excursion - (let ((end-of-entry (ess-roxy-end-of-entry)) - (beg-of-entry (ess-roxy-beg-of-entry))) - (hs-hide-block-at-point nil (list beg-of-entry end-of-entry))))) - -(defun ess-roxy-toggle-hiding () - "Toggle hiding/showing of a block. -See `hs-show-block' and `ess-roxy-hide-block'." - (interactive) - (hs-life-goes-on - (if (hs-overlay-at (point-at-eol)) - (hs-show-block) - (ess-roxy-hide-block)))) - -(defun ess-roxy-show-all () - "Hide all Roxygen entries in current buffer." - (interactive) - (ess-roxy-hide-all t)) - -(defun ess-roxy-hide-all (&optional show) - "Hide all Roxygen entries in current buffer." - (interactive) - (hs-life-goes-on - (save-excursion - (goto-char (point-min)) - (while (re-search-forward (concat ess-roxy-re) (point-max) t 1) - (let ((end-of-entry (ess-roxy-end-of-entry))) - (if show - (hs-show-block) - (ess-roxy-hide-block)) - (goto-char end-of-entry) - (forward-line 1)))))) - -(defun ess-roxy-previous-entry () - "Go to beginning of previous Roxygen entry." - (interactive) - (if (ess-roxy-entry-p) - (progn - (goto-char (ess-roxy-beg-of-entry)) - (forward-line -1))) - (search-backward-regexp ess-roxy-re (point-min) t 1) - (goto-char (ess-roxy-beg-of-entry))) - -(defun ess-roxy-next-entry () - "Go to beginning of next Roxygen entry." - (interactive) - (if (ess-roxy-entry-p) - (progn - (goto-char (ess-roxy-end-of-entry)) - (forward-line 1))) - (search-forward-regexp ess-roxy-re (point-max) t 1) - (goto-char (ess-roxy-beg-of-entry))) - -(defun ess-roxy-get-function-args () - "Return the arguments specified for the current function as a list of strings." - (save-excursion - (let ((args-txt - (progn - (ess-beginning-of-function) - (buffer-substring-no-properties - (progn - (search-forward-regexp "\\([=,-]+ *function *\\|^\s*function\\)" nil nil 1) - (+ (point) 1)) - (progn - (ess-roxy-match-paren) - (point)))))) - (setq args-txt (replace-regexp-in-string "#+[^\"']*\n" "" args-txt)) - (setq args-txt (replace-regexp-in-string "([^)]+)" "" args-txt)) - (setq args-txt (replace-regexp-in-string "=[^,]+" "" args-txt)) - (setq args-txt (replace-regexp-in-string "[ \t\n]+" "" args-txt)) - (split-string args-txt ",")))) - -(defun ess-roxy-match-paren () - "Go to the matching parenthesis." - (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1)) - ((looking-at "\\s\)") (forward-char 1) (backward-list 1)))) - -(defun ess-roxy-complete-tag () - "Complete the tag at point." - (let ((bounds (ess-bounds-of-symbol))) - (when (and bounds - (save-excursion - (goto-char (car bounds)) - (eq (following-char) ?@))) - (list (1+ (car bounds)) (cdr bounds) - (append ess-roxy-tags-noparam ess-roxy-tags-param))))) - -(defun ess-roxy-tag-completion () - "Completion data for Emacs >= 24." - (when (save-excursion (re-search-backward "@\\<\\(\\w*\\)" (point-at-bol) t)) - (let ((token (match-string-no-properties 1)) - (beg (match-beginning 1)) - (end (match-end 1))) - (when (and end (= end (point))) - (list beg end (append ess-roxy-tags-noparam ess-roxy-tags-param) :exclusive 'no))))) - -(defun ess-roxy-remove-roxy-re (string) - "Remove `ess-roxy-str' from STRING before sending to R process. -Useful for sending code from example section. This function is -placed in `ess-presend-filter-functions'." - ;; Only strip the prefix in the @examples field, and only when - ;; STRING is entirely contained inside it. This allows better - ;; behaviour for evaluation of regions. - (if (and (ess-roxy-entry-p "examples") - (with-temp-buffer - (insert string) - (ess-roxy-entry-p))) - (replace-regexp-in-string (concat ess-roxy-re "\\s-*") "" string) - string)) -(add-hook 'ess-presend-filter-functions 'ess-roxy-remove-roxy-re nil) - -(defun ess-roxy-find-par-end (stop-point &rest stoppers) - (mapc #'(lambda (stopper) - (when (and (> stop-point (point)) - (save-excursion - (re-search-forward stopper stop-point t))) - (setq stop-point (match-beginning 0)))) - stoppers) - (save-excursion - (goto-char stop-point) - (line-end-position 0))) - - -;;*;; Advices - -(defmacro ess-roxy-with-filling-context (examples &rest body) - (declare (indent 0) (debug (&rest form))) - `(let ((comment-start "#+'[ \t]+#") - (comment-start-skip "#+'[ \t]+# *") - (comment-use-syntax nil) - (adaptive-fill-first-line-regexp (concat ess-roxy-re "[ \t]*")) - (paragraph-start (concat "\\(" ess-roxy-re "\\(" paragraph-start - "\\|[ \t]*@" "\\)" "\\)\\|\\(" paragraph-start "\\)")) - (temp-table (if ,examples - (make-syntax-table S-syntax-table) - Rd-mode-syntax-table))) - (when ,examples - ;; Prevent the roxy prefix to be interpreted as comment or string - ;; starter - (modify-syntax-entry ?# "w" temp-table) - (modify-syntax-entry ?' "w" temp-table)) - ;; Neutralise (comment-normalize-vars) because it modifies the - ;; comment-start regexp in such a way that paragraph filling of - ;; comments in @examples fields does not work - (cl-letf (((symbol-function 'comment-normalize-vars) #'ignore)) - (with-syntax-table temp-table - ,@body)))) - -(defadvice ess-eval-line-and-step (around ess-eval-line-and-step-roxy) - "Evaluate line but do not skip over comment (roxy) lines." - (if (ess-roxy-entry-p) - (let ((simple-next t)) - ad-do-it) - ad-do-it)) - -(defadvice ess-indent-command (around ess-roxy-toggle-hiding) - "Hide this block if we are at the beginning of the line." - (if (and (= (point) (point-at-bol)) (ess-roxy-entry-p) 'ess-roxy-hide-show-p) - (progn (ess-roxy-toggle-hiding)) - ad-do-it)) - -(defadvice fill-paragraph (around ess-roxy-fill-advise) - "Fill roxygen paragraphs." - (cond - ;; Regular case - ((not (and (eq major-mode 'ess-mode) - (string= ess-dialect "R"))) - ad-do-it) - ;; Filling of code comments in @examples roxy field - ((and (ess-roxy-entry-p) - (save-excursion - (back-to-indentation) - (looking-at "#"))) - (ess-roxy-with-filling-context t - ad-do-it)) - ((and (not (ess-roxy-entry-p)) - (ess-inside-comment-p)) - ad-do-it) - ;; Filling of call arguments with point on call name - ((and ess-fill-calls - (ess-inside-call-name-p)) - (save-excursion - (skip-chars-forward "^([") - (forward-char) - (ess-fill-args))) - ;; Filling of continuations - ((and ess-fill-continuations - (ess-inside-continuation-p)) - (ess-fill-continuations)) - ;; Filling of call arguments - ((and ess-fill-calls - (ess-inside-call-p)) - (ess-fill-args)) - ;; Filling of roxy blocks - ((ess-roxy-entry-p) - (save-excursion - (let* ((saved-pos (point)) - (saved-line (line-number-at-pos)) - (saved-col (current-column)) - (buffer (current-buffer)) - (par-start (save-excursion - (if (save-excursion - (and (backward-paragraph) - (forward-paragraph) - (<= (point) saved-pos))) - (line-beginning-position) - (progn (backward-paragraph) (point))))) - (par-end (ess-roxy-find-par-end - (save-excursion - (forward-paragraph) - (point)) - (concat ess-roxy-re "[ \t]*@examples\\b") "^[^#]"))) - ;; Refill the whole structural paragraph sequentially, field by - ;; field, stopping at @examples - (ess-roxy-with-filling-context nil - (save-excursion - (save-restriction - (narrow-to-region par-start par-end) - (goto-char 0) - (while (< (point) (point-max)) - (ess-roxy-maybe-indent-line) - ad-do-it - (forward-paragraph)))))))) - (t - ad-do-it))) - -(defadvice move-beginning-of-line (around ess-roxy-beginning-of-line) - "Move to start." - (if (ess-roxy-entry-p) - (let ((new-pos (save-excursion - (end-of-line) - (and (re-search-backward (concat ess-roxy-re " ?") (point-at-bol) t) - (match-end 0))))) - (if (or (bolp) - (< new-pos (point))) - (goto-char new-pos) - ad-do-it)) - ad-do-it)) - -(defadvice back-to-indentation (around ess-roxy-back-to-indentation) - "Handle `back-to-indentation' in roxygen doc." - (if (ess-roxy-entry-p) - (progn - (end-of-line) - (re-search-backward (concat ess-roxy-re " *") (point-at-bol) t) - (goto-char (match-end 0))) - ad-do-it)) - -(defun ess-roxy-indent-new-comment-line () - (if (not (ess-roxy-entry-p)) - (indent-new-comment-line) - (ess-roxy-indent-on-newline))) - -(defun ess-roxy-newline-and-indent () - (if (or (not (ess-roxy-entry-p)) - (not ess-roxy-insert-prefix-on-newline)) - (newline-and-indent) - (ess-roxy-indent-on-newline))) - -(defun ess-roxy-indent-on-newline () - "Insert a newline in a roxygen field." - (cond - ;; Point at beginning of first line of entry; do nothing - ((= (point) (ess-roxy-beg-of-entry)) - (newline-and-indent)) - ;; Otherwise: skip over roxy comment string if necessary and then - ;; newline and then inset new roxy comment string - (t - (let ((point-after-roxy-string - (save-excursion (forward-line 0) - (ess-back-to-roxy) - (point)))) - (goto-char (max (point) point-after-roxy-string))) - (newline-and-indent) - (insert (concat (ess-roxy-guess-str t) " "))))) - -(provide 'ess-roxy) - -;;; ess-roxy.el ends here diff --git a/elpa/ess-20181109.703/ess-rutils.el b/elpa/ess-20181109.703/ess-rutils.el deleted file mode 100644 index b0f4d12e..00000000 --- a/elpa/ess-20181109.703/ess-rutils.el +++ /dev/null @@ -1,434 +0,0 @@ -;;; ess-rutils.el --- R functions and keybindings to use in iESS. - -;; Author: Sebastian Luque -;; Created: Thu Nov 10 02:20:36 2004 (UTC) -;; Last-Updated: 2013-09-22T16:08:47+0000 -;; By: Sebastian P. Luque -;; Version: $Id$ - -;; Copyright (c) 2005-2013 Sebastian P. Luque - -;; This program 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 3, or (at your option) -;; any later version. -;; This program 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This library provides key bindings for performing basic R functions, -;; such as loading and managing packages, as well as object manipulation -;; (listing, viewing, and deleting), and an alternative to RSiteSearch() -;; that uses the browse-url function. Load the library with the method you -;; prefer (e.g. M-x load-file), but the easiest is probably to: a) make -;; sure your load-path variable includes the directory where ess-rutils.el -;; resides, and b) include (require 'ess-rutils) statement in your -;; ~/.emacs. -;; -;; Usage: -;; -;; Once R is started with M-x R, you should have the key bindings defined -;; at the end of this file working in your iESS process buffers. Simply -;; type the desired key binding. -;; -;; Acknowledgements: -;; -;; I am grateful to John Fox for having written his init.el file for -;; XEmacs, which motivated this Emacs alternative. I wanted to add some -;; object management comforts and came across Stephen Eglen's -;; ess-rdired.el, which provides a lot of these. ess-rutils.el builds upon -;; on a *lot* of ideas from ess-rdired.el. - -;; TODO: Refactor and remove byte-compile-warnings file-local variable. -;; TODO: This should be more tightly integrated with ess-r-mode and ESSR. -;; TODO: Should be active in ess-r-mode not only ess-inf -;; TODO: Both S level Utils and this package's Rutils are in the menu; confusing and inconvenient. -(defvar pkg) - -;;; Code: - -;; Autoloads and requires -(require 'ess-r-mode) -(require 'ess-rdired) - -(defvar ess-rutils-buf "*R temp*" - "Name of temporary R buffer.") - -(defvar ess-rutils-mode-map nil - "Keymap for the *R temp* buffer.") - -(unless ess-rutils-mode-map - (setq ess-rutils-mode-map (make-sparse-keymap)) - (define-key ess-rutils-mode-map "l" 'ess-rutils-loadpkg) - (define-key ess-rutils-mode-map "i" 'ess-rutils-mark-install) - (define-key ess-rutils-mode-map "I" 'ess-rutils-install) - (define-key ess-rutils-mode-map "u" 'ess-rutils-unmark) - (define-key ess-rutils-mode-map "q" 'ess-rutils-quit) - (define-key ess-rutils-mode-map "?" 'ess-rutils-help)) - -(defun ess-rutils-mode () - "Major mode for output from `ess-rutils-local-pkgs' and `ess-rutils-repos-pkgs'. -Useful bindings to handle package loading and installing. -\\{ess-rutils-mode-map}" - (kill-all-local-variables) - (use-local-map ess-rutils-mode-map) - (setq major-mode 'ess-rutils-mode) - (setq mode-name (concat "R utils " ess-local-process-name))) - -(defun ess-rutils-local-pkgs () - "List all packages in all libraries." - (interactive) - (if (get-buffer ess-rutils-buf) - (progn - (set-buffer ess-rutils-buf) - (setq buffer-read-only nil))) - (ess-execute - "writeLines(paste(' ', sort(.packages(all.available=TRUE)), sep=''))" - nil - (substring ess-rutils-buf 1 (- (length ess-rutils-buf) 1))) - (pop-to-buffer ess-rutils-buf) - (save-excursion - (beginning-of-line) (open-line 1) - (insert "**Available packages in all local R libraries**")) - (setq buffer-read-only t) - (ess-rutils-mode) - (if (fboundp 'fit-frame) - (fit-frame))) - -(defun ess-rutils-namepkg () - "Return name of the package on current line." - (save-excursion - (beginning-of-line) - (if (looking-at "*") - nil - (forward-char 2) - (let (beg) - (setq beg (point)) - (end-of-line) ;assume package names are separated by newlines. - (buffer-substring-no-properties beg (point)))))) - -(defun ess-rutils-loadpkg () - "Load package from a library." - (interactive) - (let ((oklocal nil)) - (save-excursion - (goto-char (point-min)) - (if (search-forward "libraries**" nil t) - (setq oklocal t))) - (if oklocal - (progn - (setq pkg (ess-rutils-namepkg)) - (ess-execute (concat "library('" pkg "', character.only=TRUE)") - 'buffer)) - nil))) - -(defun ess-rutils-repos-pkgs () - "List available packages. -Use the repositories as listed by getOptions(\"repos\") in the -current R session." - (interactive) - (if (get-buffer ess-rutils-buf) - (progn - (set-buffer ess-rutils-buf) - (setq buffer-read-only nil))) - (ess-execute (concat "writeLines(paste(' \"', " - "rownames(available.packages()), '\"', sep=''))") - nil - (substring ess-rutils-buf 1 (- (length ess-rutils-buf) 1))) - (pop-to-buffer ess-rutils-buf) - (save-excursion - (kill-line 5) - (insert "**packages available to install**\n")) - (setq buffer-read-only t) - (ess-rutils-mode) - (if (fboundp 'fit-frame) - (fit-frame))) - -(defun ess-rutils-mark-install (arg) - "Mark the current package for installing. -ARG lines to mark is passed to `ess-rutils-mark'." - (interactive "p") - ;; if this is not an install package buffer return nil. - (let ((okmark nil)) - (save-excursion - (goto-char (point-min)) - (if (search-forward "install**" nil t) - (setq okmark t))) - (if okmark - (ess-rutils-mark "I" arg) - nil))) - -(defun ess-rutils-unmark (arg) - "Unmark the packages, passing ARG lines to unmark to `ess-rutils-mark'." - (interactive "p") - (ess-rutils-mark " " arg)) - -;; The next two functions almost verbatim from ess-rdired.el. -(defun ess-rutils-mark (mark-char arg) - "Use MARK-CHAR to mark package on current line, or next ARG lines." - ;; If we are on first line, mark all lines. - (let ((buffer-read-only nil) - move) - (if (eq (point-min) - (save-excursion (beginning-of-line) (point))) - (progn - ;; we are on first line, so make a note of point, and count - ;; how many objects we want to delete. Then at end of defun, - ;; restore point. - (setq move (point)) - (forward-line 1) - (setq arg (count-lines (point) (point-max))))) - (while (and (> arg 0) (not (eobp))) - (setq arg (1- arg)) - (beginning-of-line) - (progn - (insert mark-char) - (delete-char 1) - (forward-line 1))) - (if move - (goto-char move)))) - -(defun ess-rutils-install () - "Install all packages flagged for installation, and return to the iESS buffer. -User is asked for confirmation." - (interactive) - (let ((inst "install.packages(c(") - (count 0)) - (save-excursion - (goto-char (point-min)) - (forward-line) - ;; as long as number of lines between buffer start and point is smaller - ;; than the total number of lines in buffer, go to the beginning of the - ;; line, check if line is flagged, and if it is, advance the counter by - ;; one, create the root of install function, add the package name, - ;; insert a comma, and move forward a line. - (while (< (count-lines (point-min) (point)) - (count-lines (point-min) (point-max))) - (beginning-of-line) - (if (looking-at "^I ") - (setq count (1+ count) - inst (concat inst (ess-rutils-namepkg) ", " ))) - (forward-line 1))) - (if (> count 0) ;found packages to install - (progn - ;; Fix the install function created before and close it. - (setq inst (concat - (substring inst 0 (- (length inst) 2)) "))")) - ;; - (if (yes-or-no-p (format "Install %d %s " count - (if (> count 1) "packages" "package"))) - (progn - (ess-execute inst 'buffer) - (ess-rutils-quit)))) - ;; else nothing to install - (message "no packages flagged to install")))) - -(defun ess-rutils-update-pkgs (lib repos) - "Update packages in library LIB and repos REPOS. -Defaults are the first element returned by .libPaths() for LIB, -and the repository named CRAN returned by getOption(\"repos\") -for REPOS. This also uses checkBuilt=TRUE to rebuild installed -packages if needed." - (interactive "DPath to library to update: \nsrepos: ") - (if (string= "" lib) - (setq lib - (car (ess-get-words-from-vector - "as.character(.libPaths())\n")))) - (if (string= "" repos) - (setq repos - (car (ess-get-words-from-vector - "as.character(getOption(\"repos\")[\"CRAN\"])\n")))) - (ess-execute (concat "update.packages(lib.loc='" - lib "', repos='" repos - "', ask=FALSE, checkBuilt=TRUE)") 'buffer)) - -(defun ess-rutils-apropos (string) - "Search for STRING using apropos." - (interactive "sApropos search for? ") - (if (get-buffer ess-rutils-buf) - (progn - (set-buffer ess-rutils-buf) - (setq buffer-read-only nil))) - (ess-execute (concat "apropos('" string "')") - nil - (substring ess-rutils-buf 1 (- (length ess-rutils-buf) 1))) - (pop-to-buffer ess-rutils-buf) - (setq buffer-read-only t) - (ess-rutils-mode)) - -(defun ess-rutils-rm-all () - "Remove all R objects." - (interactive) - (if (y-or-n-p "Delete all objects? ") - (ess-execute "rm(list=ls())" 'buffer))) - -(defun ess-rutils-load-wkspc (file) - "Load workspace FILE into R." - (interactive "fFile with workspace to load: ") - (ess-execute (concat "load('" file "')") 'buffer)) - -(defun ess-rutils-save-wkspc (file) - "Save FILE workspace. -File extension not required." - (interactive "FSave workspace to file (no extension): ") - (ess-execute (concat "save.image('" file ".RData')") 'buffer)) - -(defun ess-rutils-quit () - "Kill the ess-rutils buffer and return to the iESS buffer." - (interactive) - (ess-switch-to-end-of-ESS) - (kill-buffer ess-rutils-buf)) - -(defun ess-rutils-html-docs (&optional remote) - "Use `browse-url' to navigate R html documentation. -Documentation is produced by a modified help.start(), that -returns the URL produced by GNU R's http server. If called with a -prefix, the modified help.start() is called with update=TRUE. The -optional REMOTE argument should be a string with a valid URL for -the 'R_HOME' directory on a remote server (defaults to NULL)." - (interactive) - (let* ((update (if current-prefix-arg "update=TRUE" "update=FALSE")) - (remote (if (or (and remote (not (string= "" remote)))) - (concat "remote=" remote) "remote=NULL")) - (rhtml (format ".ess_help_start(%s, %s)\n" update remote)) - (tmpbuf (get-buffer-create "**ess-rutils-mode**"))) - (ess-command rhtml tmpbuf) - (set-buffer tmpbuf) - (let* ((begurl (search-backward "http://")) - (endurl (search-forward "index.html")) - (url (buffer-substring-no-properties begurl endurl))) - (browse-url url)) - (kill-buffer tmpbuf))) - -(defun ess-rutils-rsitesearch (string) - "Search the R archives for STRING, and show results using `browse-url'. -If called with a prefix, options are offered (with completion) -for matches per page, sections of the archives to search, -displaying results in long or short formats, and sorting by any -given field. Options should be separated by value of -`crm-default-separator'." - (interactive "sSearch string: ") - (let ((site "https://search.r-project.org/cgi-bin/namazu.cgi?query=") - (okstring (replace-regexp-in-string " +" "+" string))) - (if current-prefix-arg - (let ((mpp (concat - "&max=" - (completing-read - "Matches per page: " - '(("20" 1) ("30" 2) ("40" 3) ("50" 4) ("100" 5))))) - (format (concat - "&result=" - (completing-read - "Format: " '(("normal" 1) ("short" 2)) - nil t "normal" nil "normal"))) - (sortby (concat - "&sort=" - (completing-read - "Sort by: " - '(("score" 1) ("date:late" 2) ("date:early" 3) - ("field:subject:ascending" 4) - ("field:subject:decending" 5) - ("field:from:ascending" 6) ("field:from:decending" 7) - ("field:size:ascending" 8) ("field:size:decending" 9)) - nil t "score" nil "score"))) - (restrict (concat - "&idxname=" - (mapconcat - 'identity - (completing-read-multiple - "Limit search to: " - '(("Rhelp02a" 1) ("functions" 2) - ("docs" 3) ("Rhelp01" 4)) - nil t "Rhelp02a,functions,docs" nil - "Rhelp02a,functions,docs") "&idxname=")))) - (browse-url (concat site okstring mpp format sortby restrict))) - (browse-url (concat site okstring "&max=20&result=normal&sort=score" - "&idxname=Rhelp02a&idxname=functions&idxname=docs"))))) - -(defun ess-rutils-help () - "Show help on `ess-rutils-mode'." - (interactive) - (describe-function 'ess-rutils-mode)) - -(defun ess-rutils-help-search (string) - "Search for STRING using help.search()." - (interactive "sString to search for? ") - (if (get-buffer ess-rutils-buf) - (progn - (set-buffer ess-rutils-buf) - (setq buffer-read-only nil))) - (ess-execute (concat "help.search('" string "')") - nil - (substring ess-rutils-buf 1 (- (length ess-rutils-buf) 1))) - (pop-to-buffer ess-rutils-buf) - (setq buffer-read-only t) - (ess-rutils-mode)) - -;; Customizable variable to allow ess-rutils-keys to activate default key bindings. -;; Suggested by Richard M. Heiberger. -(defcustom ess-rutils-keys t - "Non-nil means activate ess-rutils keybindings and menu." - :group 'ess-R - :type 'boolean) - -;; Keybindings -(defun ess-rutils-keys () - "Provide key bindings." - (interactive) - (when ess-rutils-keys - (define-key inferior-ess-mode-map [(control c) (control \.) (l)] - 'ess-rutils-local-pkgs) - (define-key inferior-ess-mode-map [(control c) (control \.) (r)] - 'ess-rutils-repos-pkgs) - (define-key inferior-ess-mode-map [(control c) (control \.) (u)] - 'ess-rutils-update-pkgs) - (define-key inferior-ess-mode-map [(control c) (control \.) (a)] - 'ess-rutils-apropos) - (define-key inferior-ess-mode-map [(control c) (control \.) (m)] - 'ess-rutils-rm-all) - (define-key inferior-ess-mode-map [(control c) (control \.) (o)] - 'ess-rdired) - (define-key inferior-ess-mode-map [(control c) (control \.) (w)] - 'ess-rutils-load-wkspc) - (define-key inferior-ess-mode-map [(control c) (control \.) (s)] - 'ess-rutils-save-wkspc) - (define-key inferior-ess-mode-map [(control c) (control \.) (d)] - 'ess-change-directory) - (define-key inferior-ess-mode-map [(control c) (control \.) (H)] - 'ess-rutils-html-docs))) - -(easy-menu-define ess-rutils-mode-menu inferior-ess-mode-menu - "Submenu of `inferior-ess-mode' to use with RUtils." - '("RUtils" - ["Manage objects" ess-rdired t] - ["Remove objects" ess-rutils-rm-all t] - "------" - ["Local packages" ess-rutils-local-pkgs t] - ["Packages in repositories" ess-rutils-repos-pkgs t] - ["Update packages" ess-rutils-update-pkgs t] - "------" - ["Load workspace" ess-rutils-load-wkspc t] - ["Save workspace" ess-rutils-save-wkspc t] - ["Change directory" ess-change-directory t] - "------" - ["Browse HTML" ess-rutils-html-docs t] - ["Apropos" ess-rutils-apropos t])) - -(easy-menu-add-item inferior-ess-mode-menu nil ess-rutils-mode-menu "Utils") -(add-hook 'inferior-ess-mode-hook 'ess-rutils-keys) - -(make-obsolete 'ess-rutils-rhtml-fn "overwrite .ess_help_start instead." "ESS 18.10") - -(provide 'ess-rutils) - -;;; ess-rutils.el ends here - -;; Local Variables: -;; byte-compile-warnings: (not lexical) -;; End: diff --git a/elpa/ess-20181109.703/ess-s-lang.el b/elpa/ess-20181109.703/ess-s-lang.el deleted file mode 100644 index 4d74594c..00000000 --- a/elpa/ess-20181109.703/ess-s-lang.el +++ /dev/null @@ -1,818 +0,0 @@ -;;; ess-s-lang.el --- Support for editing S source code - -;; Copyright (C) 1989-1997 D. Bates, Kademan, Ritter, D.M. Smith, K. Hornik, -;; R.M. Heiberger, M. Maechler, and A.J. Rossini. -;; Copyright (C) 1998-2015 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 26 Aug 1997 -;; Maintainer: ESS-core - -;; This file is part of ESS (Emacs Speaks Statistics). - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; Code for general editing S source code (specializes to S, S+, R). - -;;; Code: - - ; Requires and autoloads - -(require 'ess-mode) -(require 'ess-help) -(require 'ess-utils) -(require 'ess-inf) - -(autoload 'speedbar-add-supported-extension "speedbar.el") - - ; Configuration variables - -(defvar S-syntax-table - (let ((S-syntax-table (make-syntax-table))) - (modify-syntax-entry ?\\ "\\" S-syntax-table) - (modify-syntax-entry ?+ "." S-syntax-table) - (modify-syntax-entry ?- "." S-syntax-table) - (modify-syntax-entry ?= "." S-syntax-table) - (modify-syntax-entry ?% "." S-syntax-table) - (modify-syntax-entry ?< "." S-syntax-table) - (modify-syntax-entry ?> "." S-syntax-table) - (modify-syntax-entry ?& "." S-syntax-table) - (modify-syntax-entry ?| "." S-syntax-table) - (modify-syntax-entry ?\' "\"" S-syntax-table) - (modify-syntax-entry ?\" "\"" S-syntax-table) - (modify-syntax-entry ?# "<" S-syntax-table) ; open comment - (modify-syntax-entry ?\n ">" S-syntax-table) ; close comment - ;;(modify-syntax-entry ?. "w" S-syntax-table) ; "." used in S obj names - (modify-syntax-entry ?. "_" S-syntax-table) ; see above/below, - ; plus consider separation. - (modify-syntax-entry ?$ "_" S-syntax-table); foo$comp = 1 symbol(completion) - (modify-syntax-entry ?@ "_" S-syntax-table); foo@slot = 1 symbol(completion) - (modify-syntax-entry ?_ "_" S-syntax-table) - (modify-syntax-entry ?: "_" S-syntax-table) - (modify-syntax-entry ?* "." S-syntax-table) - (modify-syntax-entry ?< "." S-syntax-table) - (modify-syntax-entry ?> "." S-syntax-table) - (modify-syntax-entry ?/ "." S-syntax-table) - S-syntax-table) - "Syntax table for S code." - ) - -(defvar S-editing-alist - '((paragraph-start . (concat "\\s-*$\\|" page-delimiter)) - (paragraph-separate . (concat "\\s-*$\\|" page-delimiter)) - (paragraph-ignore-fill-prefix . t) - (require-final-newline . mode-require-final-newline) - ;;(comment-indent-function . 'S-comment-indent) - ;;(ess-comment-indent . 'S-comment-indent) - ;;(ess-indent-line . 'S-indent-line) - ;;(ess-calculate-indent . 'ess-calculate-indent) - (indent-line-function . 'ess-indent-line) - (parse-sexp-ignore-comments . t) - (ess-style . ess-default-style) - ;;(ess-keep-dump-files . 'ask) - (ess-mode-syntax-table . S-syntax-table) - ;; For Changelog add, require ' ' before <- : "attr<-" is a function name : - (add-log-current-defun-header-regexp . "^\\(.+\\)\\s-+<-[ \t\n]*function")) - "General options for S and S+ source files.") - -(defvar inferior-S-language-start - '(concat "options(" - "STERM='" ess-STERM "'" - ", str.dendrogram.last=\"'\"" - (if ess-editor (concat ", editor='" ess-editor "'")) - (if ess-pager (concat ", pager='" ess-pager "', help.pager='" ess-pager "'")) - ", show.error.locations=TRUE" - ")") - "S language expression for startup -- default for all S dialects.") - -(defconst S-common-cust-alist - '((ess-language . "S") - (inferior-ess-exit-command . "q()\n") - (inferior-ess-language-start . (eval inferior-S-language-start)) - (comint-use-prompt-regexp . t) ;;use fields if nil - (comint-process-echoes . t) - ;; these prompt are the same for all S-languages As long as custom prompt - ;; ends in inferior-ess-primary-prompt everything should work as expected. - (inferior-ess-primary-prompt . "> ") - ;; (inferior-ess-secondary-prompt . "[+:] ") ;; catch Selection: and alike - (inferior-ess-secondary-prompt . "+ ") ;; catch Selection: and alike - (comment-start . "#") - (ess-imenu-generic-expression . ess-imenu-S-generic-expression) - (comment-add . 1) - (comment-start-skip . "#+ *") - (comment-use-syntax . t) ; see log for bug report 2013-06-07 - (comment-column . 40) - (ess-no-skip-regexp . (concat "^ *@\\|" (default-value 'ess-no-skip-regexp))) - ;; inferior-ess-prompt is used by comint for navigation, only if - ;; comint-use-prompt-regexp is t; (transcript-mode also relies on this regexp) - (inferior-ess-prompt . inferior-S-prompt) - (ess-get-help-topics-function . #'ess-s-get-help-topics-function) - (ess-getwd-command . "getwd()\n") - (ess-setwd-command . "setwd('%s')\n") - (ess-funargs-command . ".ess_funargs(\"%s\")\n") - (fill-nobreak-predicate . 'ess-inside-string-p) - (normal-auto-fill-function . 'ess-do-auto-fill) - (ess-execute-screen-options-command . "options(width=%d, length=99999)\n") - (inferior-ess-font-lock-keywords . 'inferior-S-font-lock-keywords) - (ess-font-lock-keywords . 'ess-S-font-lock-keywords) - (font-lock-defaults . '(ess-build-font-lock-keywords - nil nil ((?\. . "w") (?\_ . "w"))))) - "S-language common settings for all -customize-alist s") - -(defconst S+common-cust-alist - (append - '((ess-suffix . "S") - (ess-mode-syntax-table . S-syntax-table) - (ess-help-sec-regex . ess-help-S+-sec-regex) - (ess-help-sec-keys-alist . ess-help-S+sec-keys-alist) - (ess-change-sp-regexp . ess-S+-change-sp-regexp) - (ess-function-pattern . ess-s-function-pattern) - (ess-function-template . " <- \n#\nfunction()\n{\n\n}\n") - (ess-dump-filename-template . (replace-regexp-in-string - "S$" ess-suffix ; in the one from custom: - ess-dump-filename-template-proto)) - (ess-traceback-command . "traceback()\n") - (ess-mode-editing-alist . S-editing-alist) - - (ess-dumped-missing-re - . "\\(\\(<-\\|=\\)\nDumped\n\\'\\)\\|\\(\\(<-\\|=\\)\\(\\s \\|\n\\)*\\'\\)") - (ess-syntax-error-re - . "\\(Syntax error: .*\\) at line \\([0-9]*\\), file \\(.*\\)$") - (inferior-ess-objects-command . inferior-Splus-objects-command) - (ess-describe-object-at-point-commands . 'ess-S-describe-object-at-point-commands) - (ess-editor . S-editor) - (ess-pager . S-pager)) - S-common-cust-alist) - "Common settings for all S+<*>-customize-alist s" - ) - -;;; Changes from S to S-PLUS 3.x. (standard S3 should be in ess-s-lang!). - -(defconst ess-help-S+sec-keys-alist - '((?a . "ARGUMENTS:") - (?b . "BACKGROUND:") - (?B . "BUGS:") - (?d . "DESCRIPTION:") - (?D . "DETAILS:") - (?e . "EXAMPLES:") - (?n . "NOTE:") - (?O . "OPTIONAL ARGUMENTS:") - (?R . "REQUIRED ARGUMENTS:") - (?r . "REFERENCES:") - (?s . "SEE ALSO:") - (?S . "SIDE EFFECTS:") - (?u . "USAGE:") - (?v . "VALUE:")) - "Alist of (key . string) pairs for use in section searching.") -;;; `key' indicates the keystroke to use to search for the section heading -;;; `string' in an S help file. `string' is used as part of a -;;; regexp-search, and so specials should be quoted. - -;; S ver.3 (NOT S-Plus) -(defconst ess-help-S3-sec-keys-alist - '((?a . "ARGUMENTS:") - (?b . "BACKGROUND:") - (?B . "BUGS:") - (?d . "DESCRIPTION:") - (?D . "DETAILS:") - (?e . "EXAMPLES:") - (?n . "NOTE:") - (?r . "REFERENCES:") - (?s . "SEE ALSO:") - (?S . "SIDE EFFECTS:") - (?u . "USAGE:") - (?v . "VALUE:")) - "Help section keys for S ver.3.") - -;; S ver.4 (NOT S-Plus) -(defconst ess-help-S4-sec-keys-alist - '((?a . "ARGUMENTS:") - (?b . "BACKGROUND:") - (?B . "BUGS:") - (?d . "DESCRIPTION:") - (?D . "DETAILS:") - (?e . "EXAMPLES:") - (?n . "NOTE:") - (?r . "REFERENCES:") - (?s . "SEE ALSO:") - (?S . "SIDE EFFECTS:") - (?u . "USAGE:") - (?v . "VALUE:")) - "Help section keys for S4.") - - -(defconst ess-help-S+-sec-regex "^[A-Z. ---]+:$" - "Reg(ular) Ex(pression) of section headers in help file.") - - ; Function Definitions - -(defun S-comment-indent () - "Indentation for S comments." - (if (or (looking-at "###") - (and (looking-at "#!") (= 1 (line-number-at-pos)))) - (current-column) - (if (looking-at "##") - (let ((tem (when ;; FIXME ess-calculate-indent is R specific - (fboundp 'ess-calculate-indent) - (ess-calculate-indent)))) - (if (listp tem) (car tem) tem)) - (skip-chars-backward " \t") - (max (if (bolp) 0 (1+ (current-column))) - comment-column)))) - -;; VS: these are ess-indent-line and ess-calculate-indent from 2004 already,so -;; commented out to avoid confusion: - -;; (defun S-indent-line () -;; "Indent current line as S code. -;; Return the amount the indentation changed by." -;; (let ((indent (S-calculate-indent nil)) -;; beg shift-amt -;; (case-fold-search nil) -;; (pos (- (point-max) (point)))) -;; (beginning-of-line) -;; (setq beg (point)) -;; (cond ((eq indent nil) -;; (setq indent (current-indentation))) -;; (t -;; (skip-chars-forward " \t") -;; (cond ((and ess-indent-with-fancy-comments ;; ### or #! -;; (or (looking-at "###") -;; (and (looking-at "#!") (= 1 (line-number-at-pos))))) -;; (setq indent 0)) -;; ;; Single # comment -;; ((and ess-indent-with-fancy-comments -;; (looking-at "#") (not (looking-at "##"))) -;; (setq indent comment-column)) -;; (t -;; (if (eq indent t) (setq indent 0)) -;; (if (listp indent) (setq indent (car indent))) -;; (cond ((and (looking-at "else\\b") -;; (not (looking-at "else\\s_"))) -;; (setq indent (save-excursion -;; (ess-backward-to-start-of-if) -;; (+ ess-else-offset (current-indentation))))) -;; ((= (following-char) ?}) -;; (setq indent -;; (+ indent -;; (- ess-close-brace-offset ess-indent-offset)))) -;; ((= (following-char) ?{) -;; (setq indent (+ indent ess-brace-offset)))))))) -;; (skip-chars-forward " \t") -;; (setq shift-amt (- indent (current-column))) -;; (if (zerop shift-amt) -;; (if (> (- (point-max) pos) (point)) -;; (goto-char (- (point-max) pos))) -;; (delete-region beg (point)) -;; (indent-to indent) -;; ;; If initial point was within line's indentation, -;; ;; position after the indentation. -;; ;; Else stay at same point in text. -;; (if (> (- (point-max) pos) (point)) -;; (goto-char (- (point-max) pos)))) -;; shift-amt)) - -;; (defun S-calculate-indent (&optional parse-start) -;; "Return appropriate indentation for current line as S code. -;; In usual case returns an integer: the column to indent to. -;; Returns nil if line starts inside a string, t if in a comment." -;; (save-excursion -;; (beginning-of-line) -;; (let ((indent-point (point)) -;; (beginning-of-defun-function nil) ;; don't call ess-beginning-of-function -;; (case-fold-search nil) -;; state -;; containing-sexp) -;; (if parse-start -;; (goto-char parse-start) -;; (beginning-of-defun)) -;; (while (< (point) indent-point) -;; (setq parse-start (point)) -;; (setq state (parse-partial-sexp (point) indent-point 0)) -;; (setq containing-sexp (car (cdr state)))) -;; (cond ((or (nth 3 state) (nth 4 state)) -;; ;; return nil or t if should not change this line -;; (nth 4 state)) -;; ((null containing-sexp) -;; ;; Line is at top level. May be data or function definition, -;; (beginning-of-line) -;; (if (and (/= (following-char) ?\{) -;; (save-excursion -;; (ess-backward-to-noncomment (point-min)) -;; (ess-continued-statement-p))) -;; ess-continued-statement-offset -;; 0)) ; Unless it starts a function body -;; ((/= (char-after containing-sexp) ?{) -;; ;; line is expression, not statement: -;; ;; indent to just after the surrounding open. -;; (goto-char containing-sexp) -;; (let ((bol (save-excursion (beginning-of-line) (point)))) - -;; ;; modified by shiba@isac 7.3.1992 -;; (cond ((and (numberp ess-expression-offset) -;; (re-search-backward "[ \t]*expression[ \t]*" bol t)) -;; ;; This regexp match every "expression". -;; ;; modified by shiba -;; ;;(forward-sexp -1) -;; (beginning-of-line) -;; (skip-chars-forward " \t") -;; ;; End -;; (+ (current-column) ess-expression-offset)) -;; ((and (numberp ess-arg-function-offset) -;; (re-search-backward -;; "=[ \t]*\\s\"?\\(\\w\\|\\s_\\)+\\s\"?[ \t]*" -;; bol -;; t)) -;; (forward-sexp -1) -;; (+ (current-column) ess-arg-function-offset)) -;; ;; "expression" is searched before "=". -;; ;; End - -;; (t -;; (progn (goto-char (1+ containing-sexp)) -;; (current-column)))))) -;; (t -;; ;; Statement level. Is it a continuation or a new statement? -;; ;; Find previous non-comment character. -;; (goto-char indent-point) -;; (ess-backward-to-noncomment containing-sexp) -;; ;; Back up over label lines, since they don't -;; ;; affect whether our line is a continuation. -;; (while (eq (preceding-char) ?\,) -;; (ess-backward-to-start-of-continued-exp containing-sexp) -;; (beginning-of-line) -;; (ess-backward-to-noncomment containing-sexp)) -;; ;; Now we get the answer. -;; (if (ess-continued-statement-p) -;; ;; This line is continuation of preceding line's statement; -;; ;; indent ess-continued-statement-offset more than the -;; ;; previous line of the statement. -;; (progn -;; (ess-backward-to-start-of-continued-exp containing-sexp) -;; (+ ess-continued-statement-offset (current-column) -;; (if (save-excursion (goto-char indent-point) -;; (skip-chars-forward " \t") -;; (eq (following-char) ?{)) -;; ess-continued-brace-offset 0))) -;; ;; This line starts a new statement. -;; ;; Position following last unclosed open. -;; (goto-char containing-sexp) -;; ;; Is line first statement after an open-brace? -;; (or -;; ;; If no, find that first statement and indent like it. -;; (save-excursion -;; (forward-char 1) -;; (while (progn (skip-chars-forward " \t\n") -;; (looking-at "#")) -;; ;; Skip over comments following openbrace. -;; (forward-line 1)) -;; ;; The first following code counts -;; ;; if it is before the line we want to indent. -;; (and (< (point) indent-point) -;; (current-column))) -;; ;; If no previous statement, -;; ;; indent it relative to line brace is on. -;; ;; For open brace in column zero, don't let statement -;; ;; start there too. If ess-indent-offset is zero, use -;; ;; ess-brace-offset + ess-continued-statement-offset -;; ;; instead. -;; ;; For open-braces not the first thing in a line, -;; ;; add in ess-brace-imaginary-offset. -;; (+ (if (and (bolp) (zerop ess-indent-offset)) -;; (+ ess-brace-offset ess-continued-statement-offset) -;; ess-indent-offset) -;; ;; Move back over whitespace before the openbrace. -;; ;; If openbrace is not first nonwhite thing on the line, -;; ;; add the ess-brace-imaginary-offset. -;; (progn (skip-chars-backward " \t") -;; (if (bolp) 0 ess-brace-imaginary-offset)) -;; ;; If the openbrace is preceded by a parenthesized exp, -;; ;; move to the beginning of that; -;; ;; possibly a different line -;; (progn -;; (if (eq (preceding-char) ?\)) -;; (forward-sexp -1)) -;; ;; Get initial indentation of the line we are on. -;; (current-indentation)))))))))) - -;;*;; S/R Pretty-Editing - -(defun ess-fix-comments (&optional dont-query verbose) - "Fix ess-mode buffer so that single-line comments start with at least '##', -and ensure space before subsequent text." - (interactive "P") - (ess-replace-regexp-dump-to-src "#\\([A-Za-z0-9]\\)" "# \\1" nil verbose) - (ess-replace-regexp-dump-to-src "^\\([ \t]*#\\)\\([^#]\\)" - "\\1#\\2" dont-query verbose)) - -(defun ess-dump-to-src (&optional dont-query verbose) - "Make the changes in an S - dump() file to improve human readability." - (interactive "P") - (ess-mode) - (ess-replace-regexp-dump-to-src "^\"\\([a-z.][a-z.0-9]*\\)\" *<-\n" - "\n\\1 <- " - dont-query verbose)) - -(defun ess-num-var-round (&optional dont-query verbose) - "Is VERY useful for dump(.)'ed numeric variables; ROUND some of them by - replacing endings of 000000*.. and 999999*. Martin Maechler" - (interactive "P") - (save-excursion - (goto-char (point-min)) - - (let ((num 0) - (str "") - (rgxp "000000+[1-9]?[1-9]?\\>") - (to "")) - (if dont-query - (ess-rep-regexp rgxp to nil nil verbose) - (query-replace-regexp rgxp to nil)) - - (while (< num 9) - (setq str (concat (int-to-string num) "999999+[0-8]*")) - (if (and (numberp verbose) (> verbose 1)) - (message (format "\nregexp: '%s'" str))) - (goto-char (point-min)) - (ess-rep-regexp str (int-to-string (1+ num)) - 'fixedcase 'literal verbose) - (setq num (1+ num)))))) - -(defun ess-fix-dot (before-chars &optional dont-query verbose) - "Remove trailing decimal '.' (\"dot\"), before BEFORE; typically from S-plus" - ;; typically, before-chars = "]:" or more - (ess-replace-regexp-dump-to-src - (concat "\\([0-9]\\)\\.\\( *[" before-chars "]\\)") - ;; 111 ^ - "\\1\\2" dont-query verbose)) - -(defun ess-fix-dot-1 (&optional do-query verbose) - "Remove trailing decimal '.' (\"dot\"), before ':' or ']', i.e., -in cases where it's ugly and nonsense. DO-QUERY(prefix) asks before replacing." - (interactive "P") - (ess-fix-dot "]:" (not do-query) verbose)) - -(defun ess-fix-dot-more (&optional dont-query verbose) - "Remove trailing decimal '.' (\"dot\", typically from S+) in more cases - than `ess-fix-dot-1'." - (interactive "P") - (ess-fix-dot-1 nil verbose) - (ess-fix-dot ",)" dont-query verbose)) - -(defun ess-fix-EQ-assign (&optional dont-query verbose not-all) - "Replace \"=\" by \"<-\" in places where it 'might make sense', e.g., -for function assignments and lines not ending in \",\". -Be *careful* for list()s of functions and when argument not-all is -nil (as by default) !" - ;;TODO: "in the few places we can be very sure.." - ;;---- is hard in general: local functions: ok; but functions in - ;; list(a = function(x) abs(x), b= function(y) bound(y)) *NOT* ok! - (interactive "P") - (ess-replace-regexp-dump-to-src - "^\\( *[a-z.][_a-z.0-9]*\\) *= *\\(function *(\\)" - "\\1 <- \\2" dont-query verbose) - - (unless not-all - ;; "too" aggressive {proposing to replace function argument specs}: - (ess-replace-regexp-dump-to-src ;; all those *not* ending in "," - ;; including Mat[ i, ] = ..., - ;; but not `names(x) = "..."' for that is "confused" with plot(x=x,..) - "^\\( *[a-z.][][, \"_a-z.0-9]*\\) *= *\\([a-z.0-9({]\\(.*[^,]\\)? *$\\)" - "\\1 <- \\2" nil ;; always query - often has many "false positives" - verbose) - )) - -;;; All of the above three : -(defun ess-MM-fix-src (&optional dont-query verbose) - "Clean up ess-source code which has been produced by dump(..), and other -code typically produced by other tools. Produces more readable code, -and one that is well formatted in emacs ess-mode." - (interactive "P") - ;; each of the following does a save-excursion: - (ess-dump-to-src dont-query) - (ess-fix-comments dont-query) - (ess-num-var-round dont-query verbose) - (ess-fix-dot-more dont-query verbose) - (ess-fix-EQ-assign dont-query verbose 'not-all) - ) - -(defun ess-fix-miscellaneous (&optional from verbose) - "Fix Miscellaneous S/R `ill-formation's from current \\[point]. - Particularly use \"<-\"and put spaces around operators." - (interactive "d\nP"); Defaults: point and prefix (C-u) - ;; activate by (setq ess-verbose t) - (ess-if-verbose-write - (format "ess-fix-misc begin (from = %s, verbose = %s)\n" from verbose)) - (save-excursion - - (when (and (string= ess-dialect "R") - (fboundp 'ess-r-fix-T-F)) - (ess-r-fix-T-F from (not verbose))) - - ;; activate by (setq ess-verbose t) - (ess-if-verbose-write "ess-fix-misc: after fix-T-F\n");___D___ - - ;; former C and matlab programmers leave trailing ";" : - ;; (goto-char from) (ess-rep-regexp "; *$" "" nil 'literal verbose) - ;; (ess-if-verbose-write "ess-fix-misc: after trailing ';'\n");___D___ - (goto-char from) (ess-rep-regexp ";\\( *\\)#" "\\1#" nil nil verbose) - (ess-if-verbose-write "ess-fix-misc: after ';' before #\n");___D___ - - ;;from R 1.9.x "_" is valid in names; here assume no initial / trailing '_' - ;; BUG: The following changes "beta_ " or " _abc" - ;; (goto-char from) (ess-rep-regexp " +_ *" " <- " nil 'literal verbose) - ;; (goto-char from) (ess-rep-regexp "_ +" " <- " nil 'literal verbose) - - (ess-if-verbose-write "ess-fix-misc: before 'around \"<-\"' :\n");___D___ - ;; ensure space around "<-" ---- but only replace if necessary: - (goto-char from) - (ess-rep-regexp "\\([^< \t\n]\\)\\(<" (not ">=") : - (goto-char from);; --> " <", care with "->": - (ess-rep-regexp "\\([^-< \t\n]\\)\\([<>]\\)" "\\1 \\2" nil nil verbose) - ;; ">" -> "> " , for "<", don't split "<-" nor "<<-": - (goto-char from) - (ess-rep-regexp "\\(>=?\\)\\([^= \t\n]\\)" "\\1 \\2" nil nil verbose) - (goto-char from) - (ess-rep-regexp "\\(<=?\\)\\([^-<= \t\n]\\)" "\\1 \\2" nil nil t) - - (ess-if-verbose-write "ess-fix-misc: before \"=\" \"==\" .. :\n");___D___ - ;; -- ensure space around "=", "==", "!=" : - (goto-char from) ;; --> " =" - (ess-rep-regexp "\\([^=!<> ]\\)\\([=!]?\\)=" "\\1 \\2=" nil nil verbose) - (goto-char from) (ess-rep-regexp "=\\([^= ]\\)" "= \\1" nil nil verbose) - - (goto-char from) ;; add a space between "{" and surrounding ..char: - (ess-rep-regexp "{\\([.A-Za-z()]\\)" "{ \\1" 'fix nil verbose) - (ess-rep-regexp "\\([()]\\){" "\\1 {" 'fix nil verbose) - (goto-char from) ;; add a space between "}" and a preceding wordchar: - (ess-rep-regexp "\\([A-Za-z0-9()]\\)}" "\\1 }" 'fix nil verbose) - (ess-space-around "else" from verbose) - - (ess-if-verbose-write "ess-fix-misc: after \"{ ... }\" :\n");___D___ - (goto-char from) ;; add a space inside "){" - (ess-rep-regexp "){" ") {" 'fix nil verbose) - - ;; add a newline and indent before a "}" - ;; --- IFF there's NO "{" or "#" AND some NON-white text on the same line: - ;;D (if verbose (message "\t R-fix-misc..: Hard.. '}'")) - (goto-char from) - (ess-rep-regexp "^\\([^#{\n]*[^#{ \t\n]+[ \t]*\\)}[ \t]*$" - "\\1\n}" 'fix nil verbose) - (ess-if-verbose-write "ess-fix-misc __end__\n");___D___ - )) - -(defun ess-cycle-assign () - "Cycle between assignment symbols in `ess-assign-list'. -On consecutive calls, replace the assignment symbol before point -with the next symbol from that list. This function sets the last -keypress to repeat it, so if it is bound to \"C-c C-=\" pressing -\"=\" again cycles to the next assignment." - (interactive) - (if (eq last-command this-command) - (let ((slist ess-assign-list) - str) - ;; The or statements in the setq allow cycling past the end of - ;; ess-assign-list. - (while (and (setq str (or (car slist) (car ess-assign-list)) - slist (or (cdr slist) ess-assign-list)) - (not (and (re-search-backward str - (- (point) (length str)) t) - (not (replace-match (car slist)))))))) - (insert (car ess-assign-list))) - (set-transient-map - (let ((map (make-sparse-keymap)) - (key (format "%c" (event-basic-type last-input-event)))) - (define-key map (kbd key) #'ess-cycle-assign) - map))) - -(defun ess-insert-assign (arg) - "Insert the first element of `ess-assign-list' unless in string or comment. -If the character before point is the first element of -`ess-assign-list', replace it with the last character typed. If -`ess-smart-S-assign-key' is nil, do `self-insert-command' using -ARG as the number of times to insert." - (interactive "p") - (if (string= ess-language "S") - (let* ((assign (car ess-assign-list)) - (event (event-basic-type last-input-event)) - (char (ignore-errors (format "%c" event)))) - (cond ((and char (ess-inside-string-or-comment-p)) - (insert char)) - ((re-search-backward assign (- (point) (length assign)) t) - (if (and char (numberp event)) - (replace-match char t t) - (replace-match ""))) - (t (insert assign)))) - (funcall #'self-insert-command arg))) - -(defun ess-smart-S-assign (arg) - "Insert `ess-smart-S-assign-key'. -Please use `ess-insert-assign'." - (interactive "p") - (with-no-warnings ; Obsolete key variable - (if ess-smart-S-assign-key - (ess-insert-assign arg) - (self-insert-command arg)))) - -(make-obsolete 'ess-smart-S-assign 'ess-insert-assign "ESS 18.10") - -(defun ess-disable-smart-S-assign (&rest _ignore) - "Disable `ess-insert-assign'." - (declare (obsolete "Use ess-smart-S-assign-key instead." "ESS 18.10")) - (with-no-warnings ; Obsolete key variable - (setq ess-smart-S-assign-key nil))) - -(defun ess-add-MM-keys () - "Define MM's user keys, currently \\\\[ess-insert-function-outline], and - \\\\[ess-execute-screen-options]." - (interactive) - (require 'ess-mode); typically unnecessary - (require 'ess-inf); dito - (define-key inferior-ess-mode-map "\C-cw" 'ess-execute-screen-options) - - ;; Make M-- : [Alt] + [-] (in addition to / instead of "_" = (on US-keyboard) [Shift]+ [-] - ;; Note this overwrites 'M--' as "negative argument" (still on 'C--'): - (define-key ess-mode-map [?\M--] 'ess-insert-assign) - (define-key inferior-ess-mode-map [?\M--] 'ess-insert-assign) - ) - - -(defun ess-dump-args-and-go (Sfunc) ; &optional buff) - "Dump the function name, with arguments, to a buffer for editing. - -Currently, this needs to: - 1. set the buffer to the right mode, with the right settings - 2. format the statement, - 3. c/function/Sfunc/ -and I need to relearn emacs lisp (but I had to, anyway." - - (interactive "sFunction ? ") - (let* ((buffname "ess-complete.R") - (buf (ess-execute (format "args(%s)" Sfunc) t buffname))) - (pop-to-buffer buf) - (message "here yet?") - (while (search-forward "function" nil t) - (replace-match Sfunc nil t)) - (ess-setq-vars-local ess-customize-alist); (current-buffer)) - (setq major-mode 'ess-mode) - (use-local-map ess-mode-map) - (set-syntax-table ess-mode-syntax-table) - )) - -(defun ess-chm-display-help-on-object (object &rest args) - (ess-eval-linewise (concat "help(" object ")"))) - - -;;; S imenu support - -;; don't use syntax classes, bad for etags -(defvar ess-imenu-S-generic-expression - '(("Functions" "^\\(.+\\)[ \t\n]*<-[ \t\n]*function[ ]*(" 1) - ("Classes" "^.*setClass(\\(.*\\)," 1) - ("Coercions" "^.*setAs(\\([^,]+,[^,]*\\)," 1) ; show from and to - ("Generics" "^.*setGeneric(\\([^,]*\\)," 1) - ("Methods" "^.*set\\(Group\\|Replace\\)?Method(\\([^,]+,[^,]*\\)" 2) - ;;[ ]*\\(signature=\\)?(\\(.*,?\\)*\\)," 1) - ;; - ;;("Other" "^\\(.+\\)\\s-*<-[ \t\n]*[^\\(function\\|read\\|.*data\.frame\\)]" 1) - ("Package" "^.*\\(library\\|require\\)(\\(.*\\)" 2) - ("Data" "^\\(.+\\)[ \t\n]-*<-[ \t\n]*\\(read\\|.*data\.frame\\).*(" 1))) - -(defun ess-imenu-S (&optional arg) - "S Language Imenu support for ESS." - (interactive) - (setq imenu-generic-expression ess-imenu-generic-expression) - (imenu-add-to-menubar "Imenu-S")) - -(defalias 'ess-imenu-R 'ess-imenu-S) - - - ;;; Speedbar stuff. -(defun ess-S-initialize-speedbar () - "Extend to all extensions; see initialization, and edit." - (speedbar-add-supported-extension ".R") - (speedbar-add-supported-extension ".S") - (speedbar-add-supported-extension ".s") - (speedbar-add-supported-extension ".q")) - - ;(if (featurep 'speedbar) - ; (progn - ; (message "enabling speedbar support") - ; (require 'speedbar) - ; (ess-S-initialize-speedbar))) - -(eval-when-compile - (condition-case nil - (progn - (require 'speedbar) - (when (featurep 'speedbar) - - (defun S-speedbar-buttons (buffer) - "attempted hack." - - ;;(speedbar-make-tag-line) - ;;(speedbar-insert-button) - (speedbar-with-writable)) - - (fset 'R-speedbar-buttons 'S-speedbar-buttons) - - (defun S-speedbar-menu-items ( ) - "Need to write.") - - (ess-S-initialize-speedbar))) - (error nil))) - -(defun ess-s-get-help-topics-function (name) - "Return a list of current S help topics associated with process NAME. -If 'sp-for-help-changed?' process variable is non-nil or -`ess-help-topics-list' is nil, (re)-populate the latter and -return it. Otherwise, return `ess-help-topics-list'." - (with-ess-process-buffer nil - (ess-write-to-dribble-buffer - (format "(ess-get-help-topics-list %s) .." name)) - (when (fboundp 'ess-help-r--check-last-help-type) - (ess-help-r--check-last-help-type)) - (cond - ;; (Re)generate the list of topics - ((or (not ess-help-topics-list) - (ess-process-get 'sp-for-help-changed?)) - (ess-process-put 'sp-for-help-changed? nil) - (setq ess-help-topics-list - (ess-uniq-list - (append (ess-get-object-list name 'exclude-1st) - (ess-get-help-files-list) - (ess-get-help-aliases-list))))) - (t - ess-help-topics-list)))) - -;;; On a PC, the default is S+. -;; Elsewhere (unix and linux) the default is S+ -(cond (ess-microsoft-p - ;; MS-Windows------------------------------------------------- - - ;; (fset 'S - ;; (if (equal (file-name-nondirectory shell-file-name) "cmdproxy.exe") - ;; 'S+-msdos - ;; 'S+)) - (defun S-by-icon (&rest x) - (interactive) - (message "Please start S+ from the icon. - Then you can connect emacs to it with `M-x S-existing'.") - ) - (fset 'S 'S-by-icon) - (fset 'S-existing - (if (equal (file-name-nondirectory shell-file-name) "cmdproxy.exe") - 'S+-msdos-existing - 'S+-existing)) - (fset 'Sqpe 'Sqpe+) - (fset 's-mode 'S+-mode) - (fset 's-transcript-mode 'S+-transcript-mode)) - - (t ;;((eq system-type 'gnu/linux) - ;; Linux etc (including Mac OSX !?) -------------------------- - (fset 'S 'S+) - (fset 's-mode 'S+-mode) - (fset 's-transcript-mode 'S+-transcript-mode))) - -;;;;* Alias S-mode to s-mode -;;; Emacs will set the mode for a file based on the file's header. -;;; The mode name is indicated by putting it between -*- on the top line. -;;; (Other commands can go here too, see an Emacs manual.) -;;; For a file you also load, you will want a leading # (comment to S) -;;; Emacs will downcase the name of the mode, e.g., S, so we must provide -;;; s-mode in lower case too. That is, "#-*- S-*-" invokes s-mode and -;;; not S-mode. -(fset 'S-transcript-mode 's-transcript-mode) -(fset 'S-mode 's-mode) - - -(define-obsolete-function-alias 'ess-toggle-S-assign-key #'ignore "ESS 18.10") -(define-obsolete-function-alias 'ess-smart-underscore 'ess-insert-assign "ESS 18.10") -(define-obsolete-function-alias 'ess-insert-S-assign 'ess-insert-assign "ESS 18.10") - -(define-obsolete-function-alias 'ess-toggle-underscore 'ess-disable-smart-S-assign "ESS 18.10") -(define-obsolete-function-alias 'ess-toggle-S-assign 'ess-disable-smart-S-assign "ESS 18.10") - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[Ss]t\\'" . S-transcript-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.Sout" . S-transcript-mode)) - -(provide 'ess-s-lang) - -;;; ess-s-lang.el ends here diff --git a/elpa/ess-20181109.703/ess-s3-d.el b/elpa/ess-20181109.703/ess-s3-d.el deleted file mode 100644 index 34056da3..00000000 --- a/elpa/ess-20181109.703/ess-s3-d.el +++ /dev/null @@ -1,79 +0,0 @@ -;;; ess-s3-d.el --- S 3 (AT&T version) customization - -;; Copyright (C) 1997 A. J. Rossini -;; Copyright (C) 1998--2005 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 12 Jun 1997 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file defines all the S 3 customizations for ess-mode. - -;;; Code: - -(require 'ess-s-lang) - -(defvar S3-customize-alist - (append - '((ess-local-customize-alist . 'S3-customize-alist) - (ess-dialect . "S3") - (ess-change-sp-regexp . ess-S-change-sp-regexp) - (ess-help-sec-keys-alist . ess-help-S3-sec-keys-alist) - (ess-object-name-db-file . "ess-s3-namedb.el" ) - (inferior-ess-program . inferior-S3-program) ; "S") - (inferior-ess-help-command . "help(\"%s\")\n") - (inferior-ess-help-filetype . nil) - (inferior-ess-search-list-command . "search()\n") - (inferior-ess-objects-command . "objects(%d)\n") - (inferior-ess-start-file . nil) ;"~/.ess-S3") - (inferior-ess-start-args . "") - (ess-STERM . "iESS") - ) - S+common-cust-alist); use S+ ones here; partly overwritten above!! - - "Variables to customize for S3") - -(defun S3 (&optional proc-name) - "Call 'S 3.x', the version from AT&T." - (interactive) - (setq ess-customize-alist S3-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(S3): ess-dialect=%s, buf=%s\n" ess-dialect (current-buffer))) - (inferior-ess) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start))) - - -(defun S3-mode (&optional proc-name) - "Major mode for editing S3 source. See `ess-mode' for more help." - (interactive) - (setq ess-customize-alist S3-customize-alist) - (ess-mode S3-customize-alist proc-name) - (if ess-imenu-use-S (ess-imenu-S))) - - - ; Provide package - -(provide 'ess-s3-d) - -;;; ess-s3-d.el ends here diff --git a/elpa/ess-20181109.703/ess-s4-d.el b/elpa/ess-20181109.703/ess-s4-d.el deleted file mode 100644 index 71a12679..00000000 --- a/elpa/ess-20181109.703/ess-s4-d.el +++ /dev/null @@ -1,277 +0,0 @@ -;;; ess-s4-d.el --- S4 customization - -;; Copyright (C) 1997--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 12 Jun 1997 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - - -;;; Commentary: - -;; DB contributed the changes from ess-s3-d.el to -;; ess-s4-d.el (removed the old ugly approach). -;; This file defines S4 customizations for ess-mode. Lots of thanks -;; to RMH and JMC for code and suggestions - -;;; Code: - -(require 'ess-s-lang) - -;; Some of this is based on files from: -;; Copyright (C) 1996, John M. Chambers. - -(defvar S4-customize-alist - (append - '((ess-local-customize-alist . 'S4-customize-alist) - (ess-dialect . "S4") - (ess-change-sp-regexp . ess-S-change-sp-regexp) - (ess-help-sec-keys-alist . ess-help-S3-sec-keys-alist) - (ess-object-name-db-file . "ess-s4-namedb.el") - (inferior-ess-program . inferior-S4-program) - (inferior-ess-objects-command . ".SmodeObs(%d, pattern=\"%s\")\n") - ;;(inferior-ess-objects-pattern . ".*") ; for new s4 stuff - (inferior-ess-help-command . "help(\"%s\")\n") - (inferior-ess-help-filetype . nil) - (inferior-ess-search-list-command . ".SmodePaths()\n") - (ess-load-command . ".SmodeLoad(\"%s\")\n") - (inferior-ess-dump-command . ".SmodeDump(\"%s\", \"%s\")\n") - - (inferior-ess-start-file . nil) ;"~/.ess-S3") - (inferior-ess-start-args . "") - (ess-STERM . "iESS") - ) - S+common-cust-alist); use S+ ones here; partly overwritten above!! - - "Variables to customize for S4.") - -;; For loading up the S code required for the above. -;;(add-hook 'ess-post-run-hook -;; (lambda () -;; (ess-command -;; (concat -;; "if(exists(\"Sversion\")) library(emacs) else source(\"" -;; ess-mode-run-file -;; "\")\n")) -;; (if ess-mode-run-file2 -;; (ess-command -;; (concat "source(\"" ess-mode-run-file2 "\")\n"))))) - - -(defun S4 () - "Call 'S version 4', from Bell Labs. New way to do it." - (interactive) - (setq ess-customize-alist S4-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(S4): ess-dialect=%s, buf=%s\n" ess-dialect (current-buffer))) - (inferior-ess) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start))) - - -(defun S4-mode (&optional proc-name) - "Major mode for editing S4 source. See `ess-mode' for more help." - (interactive) - (setq ess-customize-alist S4-customize-alist) - (ess-mode S4-customize-alist proc-name) - (if ess-imenu-use-S (ess-imenu-S))) - - -;; From RMH: ALL THIS SHOULD BE INCORPORATED BY 5.0! - -;;; s4.el startup file -;;; Richard M. Heiberger -;;; rmh@temple.edu -;; -;;(load "S") -;;(setq inferior-S-program "/disk05/s4/betaJun96/S") -;;(setq S-plus nil) ;; needed for non S-plus -;;(add-to-list 'load-path "/disk05/s4/betaJun96") ;; S-namedb.el is here -;;(S) -;;(load-file "/disk05/s4/betaJun96/library/emacs/S-modeadds.el") ;; must come after (S) -;; -;; -;;;;; S4 __Help, no longer S3 .Help -;;(load "S-help") -;; ;; Must follow S-help -;;; S-help.file line 270 -;;(defun S-get-help-files-list nil -;; (mapcar 'list -;; (apply 'append -;; (mapcar (lambda (dirname) -;; (if (file-directory-p dirname) -;; (directory-files dirname))) -;; (mapcar (lambda (str) (concat str "/__Help")) -;; (S-search-list)))))) -;; -;; -;;;;; additional font-lock-keywords for S4 -;; -;;;;*;; based on S-inf.el line 107 -;;;;(add-to-list 'S-inf-font-lock-keywords -;;;; '("\\<\\(^Problem\\|^Warning\\|^Error\\|Debug ?\\|Browsing in frame of\\|Local Variables\\)\\>" . font-lock-reference-face) ; S-inf problems -;;;;) -;;;;(add-to-list 'S-inf-font-lock-keywords -;;;; '("^R>" . font-lock-keyword-face) ; debug prompt -;;;;) -;;(inferior-S-mode) -;; -;;; S-inf.el line 150 -;;(setq inferior-S-search-list-command "searchPaths()\n") -;; -;;;; fontify S-transcript-mode -;;;; overwrites S-trans.el lines 60-69 -;;;;(setq S-trans-font-lock-keywords S-inf-font-lock-keywords) -;; -;;(load "S-mode") -;; ;; Must follow S-mode -;;;;*;; based on S-mode.el line 219 -;;(add-to-list 'S-mode-font-lock-keywords -;; '("\\<\\(setGeneric\\|removeGeneric\\|setMethod\\|unsetMethod\\|setReplaceGeneric\\|setReplaceMethod\\|standardGeneric\\|setIs\\|setClass\\|representation\\)\\>" . font-lock-function-name-face) ; S4 method functions -;;) -;; -;; -;; -;;;;; fix to S-load-file to make C-c C-l work with S4 -;; -;;;When a file sourced into S4 by C-c C-l has a syntax error -;;;without the following changes, the system -;;;freezes until it is released with ^G. The reason is that the error -;;;messages, including the `Debug ?' request, go to the *S-errors* -;;;buffer. The *S-errors* buffer is not switched to, and couldn't accept -;;;a response if it were. -;;; -;;;The fix requires three modification to S-inf.el and two to S-mode.el. -;;;The correction to S-check-source noted in smode.cmt is also necessary. -;;; -;; -;;; S-inf.el line 92 NEW variable -;;(defvar inferior-S-debug-prompt "Debug \\? (y|n): " -;; "The expression S uses to offer to initiate debug tracing.") -;; -;;; S-inf.el line 458 -;;(defun inferior-S-wait-for-prompt () -;; "Wait until the S process is ready for input." -;; (let* ((cbuffer (current-buffer)) -;; (sprocess (get-S-process S-current-process-name)) -;; (sbuffer (process-buffer sprocess)) -;; r -;; (timeout 0)) -;; (set-buffer sbuffer) -;; (while (progn -;; (if (not (eq (process-status sprocess) 'run)) -;; (S-error "S process has died unexpectedly.") -;; (if (> (setq timeout (1+ timeout)) S-loop-timeout) -;; (S-error "Timeout waiting for prompt. Check inferior-S-prompt or S-loop-timeout.")) -;; (accept-process-output) -;; (goto-char (point-max)) -;;(setq end (point)) -;; (beginning-of-line) -;;(setq e (buffer-substring (point) end)) -;;(if (equal e inferior-S-debug-prompt) -;; (S-error "Debug prompt")) -;; (setq r (looking-at inferior-S-prompt)) -;; (not (or r (looking-at ".*\\?\\s *")))))) -;; (goto-char (point-max)) -;; (set-buffer cbuffer) -;; (symbol-value r))) -;; -;; -;; -;;; S-mode.el line 204 -;;(setq S-dump-error-re "Problem") -;; -;;;; S-mode.el line 655 -;;(defun S-parse-errors (showerr) -;; "Jump to error in last loaded S source file. -;;With prefix argument, only shows the errors S reported." -;; (interactive "P") -;; (S-make-buffer-current) -;; (let ((errbuff (get-buffer S-error-buffer-name))) -;; (if (not errbuff) -;; (error "You need to do a load first!") -;; (set-buffer errbuff) -;; (goto-char (point-max)) -;; (if -;; (re-search-backward ", file \"" nil t) -;; (let* ((beg-pos (progn (re-search-forward "\"" nil t) (point))) -;; (end-pos (progn (re-search-forward "\"" nil t) (- (point) 1))) -;; (filename (buffer-substring beg-pos end-pos)) -;; (fbuffer (get-file-buffer filename)) -;; (linenum (string-to-number -;; (progn (re-search-backward "," nil t) -;; (current-word)))) -;; (end-pos (point)) -;; (beg-pos (progn (goto-char (point-min)) -;; (re-search-forward ":" nil t) -;; (1+ (point)))) -;; (errmess (buffer-substring beg-pos end-pos)) -;; ) -;; (if showerr -;; (S-display-temp-buffer errbuff) -;; (if fbuffer nil -;; (setq fbuffer (find-file-noselect filename)) -;; (save-excursion -;; (set-buffer fbuffer) -;; (S-mode))) -;; (pop-to-buffer fbuffer) -;; (goto-line linenum)) -;; (princ errmess t)) -;; (message "Not a syntax error.") -;; (S-display-temp-buffer errbuff))))) -;; -;; -;; -;;;; S-inf.el line 584 -;;(defun S-prompt-wait (proc &optional start-of-output) -;; "Wait for a prompt to appear at BOL of current buffer -;;PROC is the S process. Does not change point" -;; (if start-of-output nil (setq start-of-output (point-min))) -;; (save-excursion -;; (while (progn -;; ;; get output if there is some ready -;; (accept-process-output proc 0 500) -;; (goto-char (marker-position (process-mark proc))) -;; (beginning-of-line) -;; -;; (if (re-search-forward inferior-S-debug-prompt nil t) -;; (if (equal (get-buffer S-error-buffer-name) -;; (get-buffer S-error-buffer-name)) -;; (let* ((sprocess (get-S-process S-current-process-name)) -;; (sbuffer (process-buffer sprocess))) -;; (set-buffer sbuffer) -;; (process-send-string sprocess "n\n") -;; (accept-process-output sprocess) -;; (beginning-of-line); delete inferior-S-debug-prompt -;; (kill-line) -;; (insert "> "))) -;; -;; (if (< (point) start-of-output) (goto-char start-of-output)) -;; (not (looking-at inferior-S-primary-prompt))))))) -;; - - - - ; Provide package - -(provide 'ess-s4-d) - -;;; ess-s4-d.el ends here diff --git a/elpa/ess-20181109.703/ess-sas-a.el b/elpa/ess-20181109.703/ess-sas-a.el deleted file mode 100644 index 468e8a98..00000000 --- a/elpa/ess-20181109.703/ess-sas-a.el +++ /dev/null @@ -1,1464 +0,0 @@ -;;; ess-sas-a.el --- clean-room implementation of many SAS-mode features - -;; Copyright (C) 1997--2009 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Rodney A. Sparapani -;; Maintainer: ESS-core@r-project.org -;; Created: 17 November 1999 -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Code: - -(require 'ess-mode) -;; Silence the byte compiler -;; FIXME: This is a lot, perhaps they can be moved? -(defvar sas-indent-width) -(defvar SAS-customize-alist) -(defvar sas-mode-local-map) -(declare-function ess-num-or-zero "ess-sas-d") -;; FIXME: What is this doing here??? -(declare-function ess-add-ess-process "essd-els") -(declare-function ess-listing-minor-mode "ess-sas-l") -;;; Table of Contents -;;; Section 1: Variable Definitions -;;; Section 2: Function Definitions -;;; Section 3: Key Definitions - -;;; Section 1: Variable Definitions - -(defvar ess-sas-file-path "." - "Full path-name of the sas file to perform operations on.") - -(defcustom ess-sas-data-view-libname " " - "*SAS code to define a library for `ess-sas-data-view-fsview' -or `ess-sas-data-view-insight'." - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-data-view-submit-options - (if ess-microsoft-p "-noenhancededitor -nosysin -log NUL:" - "-nodms -nosysin -log /dev/null -terminal") - "*The command-line options necessary for your OS with respect to -`ess-sas-data-view-fsview' and `ess-sas-data-view-insight'." - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-data-view-fsview-command "; proc fsview data=" - "*SAS code to open a SAS dataset with `ess-sas-data-view-fsview'." - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-data-view-fsview-statement " " - "*SAS code to perform a PROC FSVIEW statement with `ess-sas-data-view-fsview'." - :group 'ess-sas - :type 'string) - -(make-variable-buffer-local 'ess-sas-data-view-fsview-statement) - -(defcustom ess-sas-data-view-insight-command "; proc insight data=" - "*SAS code to open a SAS dataset with `ess-sas-data-view-insight'." - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-data-view-insight-statement " " - "*SAS code to perform a PROC FSVIEW statement with `ess-sas-data-view-insight'." - :group 'ess-sas - :type 'string) - -(make-variable-buffer-local 'ess-sas-data-view-insight-statement) - -(defcustom ess-sas-graph-view-suffix-regexp - "[.]\\([eE]?[pP][sS]\\|[pP][dD][fF]\\|[gG][iI][fF]\\|[jJ][pP][eE]?[gG]\\|[tT][iI][fF][fF]?\\)" - "*GSASFILE suffix regexp." - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-graph-view-viewer-alist - ;;creates something like - ;;'(("[pP][dD][fF]" . "/usr/local/bin/acroread") ("[eE]?[pP][sS]" . "/usr/local/bin/gv"))) - (let ((ess-tmp-alist nil) - (ess-tmp-ps nil) (ess-tmp-pdf nil)) - - (setq ess-tmp-ps (executable-find (if ess-microsoft-p "gsview32" "gsview"))) - - (if (not ess-tmp-ps) (setq ess-tmp-ps (executable-find "gv"))) - - (if (not ess-tmp-ps) (setq ess-tmp-ps (executable-find "ghostview"))) - - (setq ess-tmp-pdf (executable-find "evince")) - - (if (not ess-tmp-pdf) (setq ess-tmp-pdf (executable-find "xpdf"))) - - (if (not ess-tmp-pdf) (setq ess-tmp-pdf (if ess-microsoft-p "acrord32" "acroread"))) - - (if (and ess-tmp-ps ess-tmp-pdf) - (setq ess-tmp-alist (list (cons "[eE]?[pP][sS]" ess-tmp-ps) - (cons "[pP][dD][fF]" ess-tmp-pdf))) - - (if ess-tmp-ps - (setq ess-tmp-alist (list (cons "[eE]?[pP][sS]" ess-tmp-ps) - (cons "[pP][dD][fF]" ess-tmp-ps)))))) - - "*Associate file name extensions with graphics image file viewers." - :group 'ess-sas - :type '(choice (const nil) (alist))) - -;;(defcustom ess-sas-smart-back-tab nil -;; "*Set to t to make C-TAB insert an end/%end; statement to close a block." -;; :group 'ess-sas -;;) - -(defcustom ess-sas-log-max 0 - "*If >0 and .log file exceeds this many bytes, just \"refresh\" this many bytes." - :group 'ess-sas - :type 'integer) - -(defcustom ess-sas-rtf-font-name "Courier" ; "Bitstream Vera Sans Mono" - "Name of font with which to create MS RTF." - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-shell-buffer "*shell*" - "*Name that you want to use for the shell buffer; buffer-local." - :group 'ess-sas - :type 'string) - -(make-variable-buffer-local 'ess-sas-shell-buffer) - -(defcustom ess-sas-shell-buffer-remote-host nil - "*Remote host that you want to open a shell on." - :group 'ess-sas - :type '(choice (const nil) string)) - -(make-variable-buffer-local 'ess-sas-shell-buffer-remote-host) - -(defcustom ess-sas-shell-buffer-remote-init "ssh" - "*Command to open a shell on a remote host." - :group 'ess-sas - :type 'string) - -(make-variable-buffer-local 'ess-sas-shell-buffer-remote-init) - -(defcustom ess-sas-submit-mac-virtual-pc nil - "*Non-nil means that you want to run Windows SAS in a -Virtual PC emulator on your Mac; buffer-local." - :group 'ess-sas - :type 'boolean) - -(make-variable-buffer-local 'ess-sas-submit-mac-virtual-pc) - -(defcustom sas-program "sas" - "*Command to invoke SAS, default for buffer-local `ess-sas-submit-command'." - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-submit-command sas-program - "*Command to invoke SAS in batch; buffer-local." - :group 'ess-sas - :type 'string) - -(make-variable-buffer-local 'ess-sas-submit-command) - -(defcustom ess-sas-submit-command-options "-rsasuser" - "*Options to pass to SAS in batch; buffer-local." - :group 'ess-sas - :type 'string) - -(make-variable-buffer-local 'ess-sas-submit-command-options) - -(defvar ess-sas-submit-method - (if (and (and ess-microsoft-p - (fboundp 'w32-shell-dos-semantics)) - (w32-shell-dos-semantics)) - 'ms-dos 'sh) - "Method used by `ess-sas-submit'. -The default is based on the value of the emacs variable `system-type' -and, on Windows, the function `w32-shell-dos-semantics'. -'sh if *shell* runs sh, ksh, csh, tcsh or bash -'ms-dos if *shell* follows MS-DOS semantics - -Unix users will get 'sh by default. - -Windows users running bash in *shell* will get 'sh by default. - -Windows users running MS-DOS in *shell* will get 'ms-dos by default. - -Users accessing a remote machine with `telnet', `rlogin', `ssh', etc., -should set this variable to 'sh regardless of their local shell -(since their remote shell is 'sh).") - -(make-variable-buffer-local 'ess-sas-submit-method) - -(defcustom ess-sas-graph-view-viewer-default - (if ess-microsoft-p "explorer" - (if (equal ess-sas-submit-method 'sh) "sdtimage")) - "*Default graphics image file viewer." - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-submit-post-command - (if (equal ess-sas-submit-method 'sh) "&" - (if ess-microsoft-p "-icon")) - "*Command-line statement to post-modify SAS invocation" - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-submit-pre-command ;;"nohup" - (if (equal ess-sas-submit-method 'sh) - ;; nice is tricky, higher numbers give you lower priorities - ;; if you are using csh/tcsh, the default priority is 4 - ;; if you are using most other shells, the default priority is 10, - ;; and some implementations are higher, i.e. zsh unless you - ;; specify "setopt no_bg_nice" in your ~/.zshrc - ;; therefore, on the same machine, you can run at a higher or - ;; lower priority by changing shells, although, the command - ;; line is the same! - ;; the following code should give you a priority of 10 regardless - ;; of which shell is in use, but it will default to the old - ;; behavior if csh or variant is not recognized - ;; this should avoid the necessity of each user needing to set this - ;; variable correctly based on the shell that they use and provide - ;; an environment where all shells are treated equally - - (let* ((temp-shell (getenv "SHELL")) - ;; AJR: old CYGWIN versions return nil for (getenv - ;; "SHELL"), so we need to deal with it 'cause I have to - (temp-char (if temp-shell - (string-match "/" temp-shell) - nil))) - (while temp-char - (setq temp-shell (substring temp-shell (+ 1 temp-char))) - (setq temp-char (string-match "/" temp-shell))) - - (cond ((or (equal temp-shell "csh") (equal temp-shell "tcsh")) - "nohup nice +6") - (t "nohup nice"))) - (if ess-microsoft-p "start")) - "*Command-line statement to precede SAS invocation, e.g. start or nohup" - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-suffix-1 "txt" - "*The first suffix to associate with SAS." - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-suffix-2 "csv" - "*The second suffix to associate with SAS." - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-suffix-regexp - (concat "[.]\\([sS][aA][sS]\\|[lL][oO][gG]\\|[lL][sS][tT]" - (if ess-sas-suffix-1 (concat - "\\|" (downcase ess-sas-suffix-1) "\\|" (upcase ess-sas-suffix-1))) - (if ess-sas-suffix-2 (concat - "\\|" (downcase ess-sas-suffix-2) "\\|" (upcase ess-sas-suffix-2))) - "\\)") - "*Regular expression for SAS suffixes." - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-tab-stop-list - '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100 104 108 112 116 120) - "List of tab stop positions used by `tab-to-tab-stop' in ESS[SAS]." - :type '(repeat integer) - :group 'ess-sas) - -(defcustom ess-sas-temp-root "-temp" - "*Appended to root name of the temporary .sas file for `ess-sas-submit-region'." - :group 'ess-sas - :type 'string) - -(defvar ess-sas-versions '("sas") - "List of partial strings for versions of SAS to access within ESS. -Each string specifies the start of a filename. If a filename -beginning with one of these strings is found on `exec-path', a M-x -command for that version of SAS is made available. For example, if the -file \"sas8\" is found and this variable includes the string -\"sas\", a function called `M-x SAS8' will be available to run that -version of SAS. -If duplicate versions of the same program are found (which happens if -the same path is listed on `exec-path' more than once), they are -ignored by calling `ess-uniq-list'. -If you set this variable, you need to restart Emacs (and set this variable -before ess-site is loaded) for it to take effect.") - -(defvar ess-sas-global-unix-keys nil - "Non-nil if function keys use Unix-like SAS key definitions in all modes.") - -(defvar ess-sas-local-pc-keys nil - "Non-nil if function keys use PC-like SAS key definitions -in SAS-mode and related modes.") - -(defvar ess-sas-local-unix-keys nil - "Non-nil if function keys use Unix-like SAS key definitions -in SAS-mode and related modes.") - -;;; Section 2: Function Definitions - - -(defun ess-ebcdic-to-ascii-search-and-replace () - "*Search and replace EBCDIC text with ASCII equivalents." - (interactive) - (let ((ess-tmp-dd (executable-find "dd")) (ess-tmp-recode (executable-find "recode")) - (ess-tmp-util nil) (ess-tmp-util-args nil)) - - (if ess-tmp-dd (progn - (setq ess-tmp-util ess-tmp-dd) - (setq ess-tmp-util-args "conv=ascii")) - - (setq ess-tmp-util ess-tmp-recode) - (setq ess-tmp-util-args "EBCDIC..ISO-8859-1")) - - (if ess-tmp-util - (while (search-forward-regexp "[^\f\t\n -~][^\f\t\n -?A-JQ-Yb-jp-y]*[^\f\t\n -~]?" nil t) - (call-process-region (match-beginning 0) (match-end 0) - ess-tmp-util t (list t nil) t ess-tmp-util-args))))) - - -(defun ess-exit-notify-sh (string) - "Detect completion or failure of submitted job and notify the user." - ;(let* ((exit-done "\\[[0-9]+\\]\\ *\\+*\\ *\\(Exit\\|Done\\).*$") - (let* ((exit-done "\\[[0-9]+\\]\\ *\\+*\\ *\\(Exit\\|Done\\)[^\r\n]*") ; GNU Emacs needs this - (beg (string-match exit-done string))) - (if beg - (message (substring string beg (match-end 0)))))) - - -(defun ess-sas-append-log () - "Append ess-temp.log to the current .log file." - (interactive) - (ess-sas-goto "log" 'revert) - (goto-char (point-max)) - (insert-file-contents (concat (ess-sas-temp-root) ".log")) - (save-buffer)) - -(defun ess-sas-append-lst () - "Append ess-temp.lst to the current .lst file." - (interactive) - (ess-sas-goto "lst" 'revert) - (goto-char (point-max)) - (insert-file-contents (concat (ess-sas-temp-root) ".lst")) - (save-buffer)) - -(defun ess-sas-backward-delete-tab () - "Moves the cursor to the previous tab-stop, deleting any characters -on the way." - (interactive) - - (let* (;; point of search - ;;(ess-sas-search-point nil) - ;; column of search - ;;(ess-sas-search-column nil) - ;; limit of search - ;;(ess-sas-search-limit nil) - ;; text to be inserted after a back-tab, if any - ;;(ess-sas-end-text "end;") - ;; current-column - (ess-sas-column (current-column)) - ;; remainder of current-column and sas-indent-width - (ess-sas-remainder (% ess-sas-column sas-indent-width))) - - (if (not (= ess-sas-column 0)) - (progn - (if (= ess-sas-remainder 0) - (setq ess-sas-remainder sas-indent-width)) - - (let ((backward-delete-char-untabify-method 'nil)) - (backward-delete-char-untabify ess-sas-remainder t) - (setq ess-sas-column (- ess-sas-column ess-sas-remainder)) - (move-to-column ess-sas-column) - (setq left-margin ess-sas-column)) - )) - )) - -;; this feature was far too complicated to perfect -;; (if ess-sas-smart-back-tab (progn -;; (save-excursion -;; (setq ess-sas-search-point -;; (search-backward-regexp "end" nil t)) - -;; (if (and ess-sas-search-point -;; (search-backward-regexp "%" (+ ess-sas-search-point -1) t)) -;; (setq ess-sas-search-point (+ ess-sas-search-point -1)) -;; ) - -;; (if (and ess-sas-search-point -;; (not (equal ess-sas-column (current-column)))) -;; (setq ess-sas-search-point nil)) -;; ) - -;; (save-excursion -;; (setq ess-sas-search-point -;; (search-backward-regexp "do\\|select" -;; ess-sas-search-point t)) - -;; (setq ess-sas-search-column (current-column)) - -;; (if ess-sas-search-point (progn -;; (save-excursion -;; (search-backward-regexp "^" nil t) -;; (setq ess-sas-search-limit (point)) -;; ) - -;; (if (search-backward-regexp "if.*then\\|else" ess-sas-search-limit t) -;; (setq ess-sas-search-point (point))) - -;; (if (search-backward-regexp "%" ess-sas-search-limit t) (progn -;; (setq ess-sas-end-text "%end;") -;; (setq ess-sas-search-point (point)) -;; )) - -;; (setq ess-sas-search-column (current-column)) - -;; (if (not (equal ess-sas-column ess-sas-search-column)) -;; (setq ess-sas-search-point nil)) -;; ))) - -;; (if ess-sas-search-point (insert ess-sas-end-text)) -;; )) - -(defun ess-sas-cd () - "Change directory, taking into account various issues with respect to -`ess-sas-file-path'." - ;(interactive) - (ess-sas-file-path) - (ess-sas-goto-shell t) - (comint-send-input) - (if (equal ess-sas-submit-method 'sh) - (insert "cd \"" (car (last (split-string (file-name-directory ess-sas-file-path) - "\\([a-zA-Z][a-zA-Z]:\\|]\\)"))) "\"") - (if (equal ess-sas-submit-method 'ms-dos) (progn - (if (string-equal ":" (substring ess-sas-file-path 1 2)) (progn - (insert (substring ess-sas-file-path 0 2)) - (comint-send-input))) - (insert "cd \"" (convert-standard-filename - (file-name-directory ess-sas-file-path)) "\"")))) - (comint-send-input)) - -(defun ess-sas--change-alist (item value alist) - "Modify ALIST to set VALUE to ITEM. -If there is a pair whose car is ITEM, replace its cdr by VALUE. -If there is not such pair, create new pair (ITEM . VALUE) and -return new alist whose car is the new pair and cdr is ALIST. -\[tomo's ELIS like function]" - (let ((pair (assoc item alist))) - (if pair - (progn - (setcdr pair value) - alist) - (cons (cons item value) alist)))) - -(defun ess-sas-create-local-variables-alist (&optional file-or-buffer) - "Create an alist of local variables from file-or-buffer, use the -current buffer if nil." - (if file-or-buffer (set-buffer (ess-get-file-or-buffer file-or-buffer))) - (ess-sas--change-alist 'ess-kermit-remote-directory ess-kermit-remote-directory nil)) - -(define-obsolete-function-alias - 'ess-change-alist 'ess-sas--change-alist "ESS 18.10") - -(defun ess-sas-data-view-fsview (&optional ess-sas-data) - "Open a dataset for viewing with PROC FSVIEW." - (interactive) - (ess-save-and-set-local-variables) - - (save-excursion (let ((ess-tmp-sas-data nil) - (ess-tmp-sas-data-view-fsview-statement ess-sas-data-view-fsview-statement) - (ess-search-regexp - "[ \t=]\\([a-zA-Z_][a-zA-Z_0-9]*[.][a-zA-Z_][a-zA-Z_0-9]*\\)\\(&.*\\)?[. ,()\t;/]") - (ess-search-except - "^\\([wW][oO][rR][kK]\\|[fF][iI][rR][sS][tT]\\|[lL][aA][sS][tT]\\)[.]")) - - (if ess-sas-data nil (save-match-data - (search-backward-regexp "[ \t=]" nil t) - - (save-excursion - (setq ess-tmp-sas-data - (ess-search-except ess-search-regexp ess-search-except))) - - (if (not ess-tmp-sas-data) - (setq ess-tmp-sas-data - (ess-search-except ess-search-regexp ess-search-except t))) - - (setq ess-sas-data (read-string "Permanent SAS Dataset: " ess-tmp-sas-data)) - - ;; (ess-sas-goto-shell t) - (ess-sas-cd) - - (insert (concat ess-sas-submit-pre-command " " ess-sas-submit-command - " -initstmt \"" ess-sas-data-view-libname ess-sas-data-view-fsview-command - ess-sas-data ";" ess-tmp-sas-data-view-fsview-statement "; run;\" " - ess-sas-submit-command-options " " - ess-sas-data-view-submit-options " " ess-sas-submit-post-command)) - (comint-send-input) - ))))) - -(defun ess-sas-data-view-insight (&optional ess-sas-data) - "Open a dataset for viewing with PROC INSIGHT." - (interactive) - (ess-save-and-set-local-variables) - - (save-excursion (let ((ess-tmp-sas-data nil) - (ess-tmp-sas-data-view-insight-statement ess-sas-data-view-insight-statement) - (ess-search-regexp - "[ \t=]\\([a-zA-Z_][a-zA-Z_0-9]*[.][a-zA-Z_][a-zA-Z_0-9]*\\)\\(&.*\\)?[. ,()\t;]") - (ess-search-except - "^\\([wW][oO][rR][kK]\\|[fF][iI][rR][sS][tT]\\|[lL][aA][sS][tT]\\)[.]")) - - (if ess-sas-data nil (save-match-data - (search-backward-regexp "[ \t=]" nil t) - - (save-excursion - (setq ess-tmp-sas-data - (ess-search-except ess-search-regexp ess-search-except))) - - (if (not ess-tmp-sas-data) - (setq ess-tmp-sas-data - (ess-search-except ess-search-regexp ess-search-except t))) - - (setq ess-sas-data (read-string "Permanent SAS Dataset: " ess-tmp-sas-data)) - - ;; (ess-sas-goto-shell t) - (ess-sas-cd) - - (insert (concat ess-sas-submit-pre-command " " ess-sas-submit-command - " -initstmt \"" ess-sas-data-view-libname ess-sas-data-view-insight-command - ess-sas-data ";" ess-tmp-sas-data-view-insight-statement "; run;\" " - ess-sas-data-view-submit-options " " ess-sas-submit-post-command)) - (comint-send-input) - ))))) - -(defun ess-sas-graph-view () - "Open a GSASFILE for viewing." - (interactive) - ;; (ess-sas-goto-shell t) - (ess-sas-cd) - (ess-sas-goto-log 'no-error-check) - - (save-excursion - (let ( - (ess-tmp-length (length ess-sas-graph-view-viewer-alist)) - (ess-tmp-counter 0) - (ess-tmp-graph nil) - (ess-tmp-graph-alist nil) - (ess-tmp-glyph nil) - (ess-tmp-graph-regexp - (concat "[cCub][oOty][rRpt][dDue][sSt][ ][wW][rR][iI][tT][tT][eE][nN][ ]+[tT][oO][ ]\n?[ ]*\\(.*" - ;; (concat "[ ][rR][eE][cC][oO][rR][dD][sS][ ][wW][rR][iI][tT][tT][eE][nN][ ]+[tT][oO][ ]\n?[ ]*\\(.*" - ess-sas-graph-view-suffix-regexp "\\)"))) - ; (concat "['\"]\\(.*" ess-sas-graph-suffix-regexp "\\)['\"]"))) - - (save-match-data - (search-backward-regexp "[ \t=]" nil t) - - (save-excursion - (setq ess-tmp-graph (ess-search-except ess-tmp-graph-regexp))) - - (if (not ess-tmp-graph) - (setq ess-tmp-graph (ess-search-except ess-tmp-graph-regexp nil t))) - - (setq ess-tmp-graph (read-string "GSASFILE: " - (or ess-tmp-graph ess-sas-file-path))) - - ;;GNU Emacs graphics file image viewing mode loaded? - (if (and (boundp 'auto-image-file-mode) auto-image-file-mode - (string-match "[.][jJ][pP][eE]?[gG]" ess-tmp-graph)) - (find-file ess-tmp-graph) - ;;else XEmacs graphics file image viewing mode loaded? - (if (and (fboundp 'image-mode) - (string-match "[.]\\([jJ][pP][eE]?[gG]\\|[gG][iI][fF]\\)" - ess-tmp-graph)) - (find-file ess-tmp-graph) - ;;else use the appropriate graphics file image viewer - (while (< ess-tmp-counter ess-tmp-length) - (setq ess-tmp-graph-alist - (nth ess-tmp-counter ess-sas-graph-view-viewer-alist)) - (setq ess-tmp-graph-regexp (car ess-tmp-graph-alist)) - - (if (string-match - (concat "[.]" ess-tmp-graph-regexp) ess-tmp-graph) - (progn - (ess-sas-goto-shell t) - (insert ess-sas-submit-pre-command " " - (cdr ess-tmp-graph-alist) " " ess-tmp-graph - (if (equal ess-sas-submit-method 'sh) " &")) - (setq ess-tmp-glyph 'alist) - (setq ess-tmp-counter ess-tmp-length)) - ;;else - (setq ess-tmp-counter (+ ess-tmp-counter 1)))) - - (if (not ess-tmp-glyph) - (progn - (ess-sas-goto-shell t) - (insert ess-sas-submit-pre-command " " - ess-sas-graph-view-viewer-default " " ess-tmp-graph - (if (equal ess-sas-submit-method 'sh) " &")))) - - (comint-send-input))))))) - -(defun ess-sas-file-path (&optional force) - "Define `ess-sas-file-path' to be the current buffer depending on suffix." - (interactive) - - (save-match-data (let ((ess-sas-temp-file (expand-file-name (buffer-name)))) - (if (or force (string-match ess-sas-suffix-regexp ess-sas-temp-file)) ;;(progn - (setq ess-sas-file-path - (nth 0 (split-string ess-sas-temp-file "[<]"))))))) - -(defun ess-sas-file-path-remote-host () - "Return the remote host, if any, associated with `ess-sas-file-path'." - (interactive) - - (let* ((temp-colon-pos (string-match ":" ess-sas-file-path)) - (temp-list - (if (or (not temp-colon-pos) (> temp-colon-pos 2)) - (if (equal ess-sas-file-path ".") nil - (split-string (file-name-directory ess-sas-file-path) - "\\(@\\|:\\|]\\)")) - (list ess-sas-file-path))) - (temp-list-length (length temp-list))) - (if (= temp-list-length 1) (setq temp-list nil) - (if (= temp-list-length 2) (setq temp-list (car temp-list)) - (setq temp-list (nth 1 temp-list)))) - - (if temp-list (setq temp-list - (car (last (split-string temp-list "/"))))) - temp-list)) - -(defun ess-sas-goto (suffix &optional revert no-create) - "Find a file associated with a SAS file by suffix and revert if necessary." -; (interactive) -; (let ((ess-temp-regexp (concat ess-sas-suffix-regexp "[.]?[1-9]?\\'"))) -; can we identify common nonsense extensions like .log.1 or .sas.2? - (let ((ess-temp-regexp (concat ess-sas-suffix-regexp "\\(@.+\\)?\\'"))) - (save-match-data - (if (or (string-match ess-temp-regexp (expand-file-name (buffer-name))) - (string-match ess-temp-regexp ess-sas-file-path)) - (progn - (ess-sas-file-path) - (let* ( - (ess-sas-temp-file (replace-match (concat "." suffix) t t - ess-sas-file-path)) - (ess-sas-temp-buff (find-buffer-visiting ess-sas-temp-file)) - (ess-temp-kermit-remote-directory ess-kermit-remote-directory)) - - (if ess-sas-temp-buff (switch-to-buffer ess-sas-temp-buff) - ;; else - (if no-create (setq revert nil) - (if (file-exists-p ess-sas-temp-file) - (find-file ess-sas-temp-file)))) - ;; else - ;; (let* ((ess-sas-buffer-list (buffer-list)) - ;; (ess-sas-buffer-list-index 0) - ;; (ess-sas-buffer-list-file nil) - ;; (ess-sas-buffer-list-length (length ess-sas-buffer-list))) - ;; (while (< ess-sas-buffer-list-index ess-sas-buffer-list-length) - ;; (setq ess-sas-buffer-list-file - ;; (buffer-file-name (nth ess-sas-buffer-list-index ess-sas-buffer-list))) - ;; (if (and ess-sas-buffer-list-file - ;; (string-match (concat "." suffix) ess-sas-buffer-list-file)) - ;; (switch-to-buffer (nth ess-sas-buffer-list-index ess-sas-buffer-list)) - ;; (setq ess-sas-buffer-list-index ess-sas-buffer-list-length) - ;; ) - ;; (setq ess-sas-buffer-list-index (+ 1 ess-sas-buffer-list-index)) - ;; ))) - - (if (and (not no-create) - (or (string-equal suffix "log") - (string-equal suffix "lst"))) - (ess-kermit-get (file-name-nondirectory ess-sas-temp-file) - ess-temp-kermit-remote-directory)) - - (if revert - (if (and (> ess-sas-log-max 0) (string-equal suffix "log") - (> (ess-num-or-zero (nth 7 (file-attributes ess-sas-temp-file))) - ess-sas-log-max)) - (progn - (insert-file-contents ess-sas-temp-file nil 0 - ess-sas-log-max t) - t) - - (ess-revert-wisely)) nil))))))) - -;;(defun ess-sas-file (suffix &optional revert) -;; "Please use `ess-sas-goto' instead." -;; (let* ((tail (downcase (car (split-string -;; (car (last (split-string (buffer-name) "[.]"))) "[<]")))) -;;(if (fboundp 'file-name-extension) (file-name-extension (buffer-name)) -;; (substring (buffer-name) -3))) -;; (tail-in-tail-list (member tail (list "sas" "log" "lst" -;; ess-sas-suffix-1 ess-sas-suffix-2))) -;; (root (if tail-in-tail-list (expand-file-name (buffer-name)) -;; ess-sas-file-path)) -;; (ess-sas-arg (concat (file-name-sans-extension root) "." suffix)) -;; (ess-sas-buf (find-buffer-visiting ess-sas-arg))) -;; (if (equal tail suffix) (if revert (ess-revert-wisely)) -;; (if (not ess-sas-buf) (find-file ess-sas-arg) -;; (switch-to-buffer ess-sas-buf) -;; (if revert (ess-revert-wisely)))))) - - -(defun ess-sas-goto-file-1 () - "Switch to ess-sas-file-1 and revert from disk." - (interactive) - (ess-sas-goto ess-sas-suffix-1 'revert)) - -(defun ess-sas-goto-file-2 () - "Switch to ess-sas-file-2 and revert from disk." - (interactive) - (ess-sas-goto ess-sas-suffix-2 'revert)) - -(defun ess-sas-goto-log (&optional ess-tmp-no-error-check) - "Switch to the .log file, revert from disk and search for error messages." - (interactive) - - (let ((ess-sas-error (concat - "^ERROR [0-9]+-[0-9]+:\\|^ERROR:\\|_ERROR_=1 _N_=\\|_ERROR_=1[ ]?$" - "\\|NOTE: MERGE statement has more than one data set with repeats" - "\\|NOTE: Variable .* is uninitialized." - "\\|NOTE: SAS went to a new line when INPUT statement reached past" - "\\|NOTE 485-185: Informat .* was not found" - "\\|NOTE: Estimated G matrix is not positive definite." - "\\|NOTE: Compressing data set .* increased size by" - "\\|NOTE: ERROR DETECTED IN ANNOTATE=" - "\\|WARNING: Apparent symbolic reference .* not resolved." - "\\|WARNING: Length of character variable has already been set." - "\\|WARNING: Not all variables in the list " - "\\|WARNING: RUN statement ignored due to previous errors." - "\\|WARNING: Values exist outside the axis range" - "\\|WARNING: Truncated record." - "\\|Bus Error In Task\\|Segmentation Violation In Task")) - (ess-sas-save-point nil)); (ess-sas-pop-mark nil)) - - (if (ess-sas-goto "log" 'revert) (progn - (setq ess-sas-save-point (point)) - (goto-char (point-min))) - (setq ess-sas-save-point (point))) - - ;(if (number-char-or-marker-p ess-sas-save-point) (progn - (if ess-tmp-no-error-check (goto-char ess-sas-save-point) - (if (or (search-forward-regexp ess-sas-error nil t) - (and (goto-char (point-min)) - (search-forward-regexp ess-sas-error nil t))) - t - (goto-char ess-sas-save-point))))) - -(defun ess-sas-goto-lst () - "Switch to the .lst file and revert from disk." - (interactive) - (ess-sas-goto "lst" 'revert)) - -(defun ess-sas-goto-sas (&optional revert) - "Switch to the .sas file." - (interactive) - (ess-sas-goto "sas" revert)) - -(defun ess-sas-goto-shell (&optional set-buffer) - "Set `ess-sas-file-path' and goto `ess-sas-shell-buffer'. If -optional argument is non-nil, then set-buffer rather than switch." - (interactive) - (ess-sas-file-path) - - ; The following let* block is an attempt to deal with remote directories. - (let* ((temp-shell-buffer-remote-host - (or ess-sas-shell-buffer-remote-host (ess-sas-file-path-remote-host))) - (temp-shell-buffer-remote-init ess-sas-shell-buffer-remote-init) - (temp-shell-buffer - (if temp-shell-buffer-remote-host - (concat "*" temp-shell-buffer-remote-host "*") - ess-sas-shell-buffer)) - ) - - (if (get-buffer temp-shell-buffer) - (if set-buffer (set-buffer temp-shell-buffer) - (switch-to-buffer temp-shell-buffer)) - (shell) - (rename-buffer temp-shell-buffer) - (ess-sleep) ; GNU Emacs needs this - - (if temp-shell-buffer-remote-host (progn - (insert (concat - temp-shell-buffer-remote-init " " temp-shell-buffer-remote-host)) - (comint-send-input)) - ) - - (if (eq ess-sas-submit-method 'sh) - (add-hook 'comint-output-filter-functions 'ess-exit-notify-sh)) ;; 19.28 - ;; nil t) works for newer emacsen - ) - ) - - (goto-char (point-max)) - ; (insert "cd " ess-temp-directory) - ; (comint-send-input)) - ) - -(defun ess-sas-interactive () - "And now for something completely different." - (interactive) - ;;(ess-sas-file-path) - (setq ess-customize-alist SAS-customize-alist) - ;; (let ((ess-temp-sas-file - ;; (nth 0 (split-string - ;; (car (last (split-string ess-sas-file-path "\\([a-zA-Z][a-zA-Z]:\\|]\\)"))) "[.]")))) - (setq ess-sas-shell-buffer "*iESS[SAS]*") - (ess-sas-goto-shell) - (ess-add-ess-process) - (ess-setq-vars-local ess-customize-alist) - (inferior-ess-mode) - (ess-eval-linewise (concat ess-sas-submit-command " " ess-sas-submit-command-options " -stdio")) - ;;" -altlog " ess-temp-sas-file ".log -altprint " - ;; ess-temp-sas-file ".lst -stdio")) - (ess-sas-goto-sas) - (setq ess-sas-submit-method 'iESS) - (setq ess-eval-visibly-p nil) - ) - -;;(defun ess-sas-interactive () -;; (interactive) -;; (ess-sas-file-path) -;; (setq ess-sas-submit-method 'iESS) -;; -;; (let ((ess-temp-stderr " ") (ess-temp-stdout " ") (ess-temp-stdin " ")) -;; (setq ess-sas-shell-buffer "*LOG*") -;; (ess-sas-goto-shell) -;; (insert "tty") -;; (comint-send-input) -;; (sleep-for ess-sleep-for) -;; (save-excursion (setq ess-temp-stderr (ess-search-except "\\(/dev/[a-z0-9/]+\\)" nil t))) -;; (setq ess-sas-shell-buffer "*OUTPUT*") -;; (ess-sas-goto-shell) -;; (insert "tty") -;; (comint-send-input) -;; (sleep-for ess-sleep-for) -;; (save-excursion (setq ess-temp-stdout (ess-search-except "\\(/dev/[a-z0-9/]+\\)" nil t))) -;; (setq ess-sas-shell-buffer "*PROGRAM*") -;; (ess-sas-goto-shell) -;;;; (insert "tty") -;; (comint-send-input) -;; (sleep-for ess-sleep-for) -;; (insert "sh") -;; (comint-send-input) -;; (sleep-for ess-sleep-for) -;; (save-excursion (setq ess-temp-stdin (ess-search-except "\\(/dev/[a-z0-9/]+\\)" nil t))) -;; (insert (concat ess-sas-submit-command " " ess-sas-submit-command-options " -stdio <" -;; ess-temp-stdin " >1 " ess-temp-stdout " >2 " ess-temp-stderr)) -;; (comint-send-input) -;; (ess-add-ess-process) -;; (ess-sas-goto-sas) -;;)) - -(defun ess-sas-kill-buffers () - "Kill all buffers related to a .sas file." - (interactive) - (ess-sas-file-path) - (ess-sas-goto "log" nil t) - (kill-buffer nil) - (ess-sas-goto "lst" nil t) - (kill-buffer nil) - (ess-sas-goto ess-sas-suffix-1 nil t) - (kill-buffer nil) - (ess-sas-goto ess-sas-suffix-2 nil t) - (kill-buffer nil) - (ess-sas-goto "sas" nil t) - (kill-buffer nil) - ) - -; else -(defun ess-sas-rtf-portrait (&optional ess-tmp-font-size) - "Creates an MS RTF portrait file from the current buffer." - (interactive) -; (ess-sas-file-path t) - (ess-revert-wisely) - - (set-visited-file-name (concat (buffer-name) ".rtf")) -; (ess-sas-goto "rtf" t) - (if 'buffer-read-only (setq buffer-read-only nil)) - (ess-rtf-replace-chars) - - (goto-char (point-min)) - (insert (concat - "{\\rtf1\\ansi{\\fonttbl\\f1\\fmodern " ess-sas-rtf-font-name ";}\n" - "\\margl720\\margr720\\margt720\\margb720\n" - "{\\colortbl;\\red0\\green0\\blue0;\\red0\\green0\\blue255;\\red0\\green255\\blue255;\\red0\\green255\\blue0;\\red255\\green0\\blue255;\\red255\\green0\\blue0;\\red255\\green255\\blue0;\\red255\\green255\\blue255;\\red0\\green0\\blue128;\\red0\\green128\\blue128;\\red0\\green128\\blue0;\\red128\\green0\\blue128;\\red128\\green0\\blue0;\\red128\\green128\\blue0;\\red128\\green128\\blue128;\\red192\\green192\\blue192;}\n" - "{\\stylesheet{\\s15\\plain\\f1\\fs16\\cf1\\cb8\\lang1024 Emacs Text;}{\\*\\cs16 \\additive\\f1\\fs16\\cf1\\cb8\\lang1024 Emacs Base Style;}}\n" - "{\\plain\\s15{\\cs16\\cs16\\f1\\fs16\\cf1\\cb8\\lang1024{\\cs16\\f1\\fs16\\cf1\\cb8\\lang1024\n")) - - (goto-char (point-max)) - (insert "}}}}\n") - - (save-buffer) - (kill-buffer (current-buffer))) - -(defun ess-rtf-replace-chars () - "Convert a text file to an MS RTF file." - (interactive) - (goto-char (point-min)) - (while (re-search-forward "\n" nil t) (replace-match "\\par\n" nil t)) - (goto-char (point-min)) - (while (re-search-forward "\f" nil t) (replace-match "\\page\n" nil t)) - (goto-char (point-min)) - (while (re-search-forward "\t" nil t) (replace-match "\\tab" nil t))) - -(defun ess-sas-rtf-landscape (&optional ess-tmp-font-size) - "Creates an MS RTF landscape file from the current buffer." - (interactive) - (ess-revert-wisely) - - (set-visited-file-name (concat (buffer-name) ".rtf")) - - (if 'buffer-read-only (setq buffer-read-only nil)) - (ess-rtf-replace-chars) - - (goto-char (point-min)) - (insert (concat - "{\\rtf1\\ansi{\\fonttbl\\f1\\fmodern " ess-sas-rtf-font-name ";}\n" - "\\margl720\\margr720\\margt720\\margb720\n" - "{\\*\\pgdsctbl\n" - "{\\pgdsc0\\pgdscuse195\\lndscpsxn\\pgwsxn15840\\pghsxn12240\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\pgdscnxt0 Default;}}\n" - "\\landscape\\paperh12240\\paperw15840\\margl1800\\margr1800\\margt1440\\margb1440\\sectd\\sbknone\\lndscpsxn\\pgwsxn15840\\pghsxn12240\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\ftnbj\\ftnstart1\\ftnrstcont\\ftnnar\\aenddoc\\aftnrstcont\\aftnstart1\\aftnnrlc\n" - "{\\colortbl;\\red0\\green0\\blue0;\\red0\\green0\\blue255;\\red0\\green255\\blue255;\\red0\\green255\\blue0;\\red255\\green0\\blue255;\\red255\\green0\\blue0;\\red255\\green255\\blue0;\\red255\\green255\\blue255;\\red0\\green0\\blue128;\\red0\\green128\\blue128;\\red0\\green128\\blue0;\\red128\\green0\\blue128;\\red128\\green0\\blue0;\\red128\\green128\\blue0;\\red128\\green128\\blue128;\\red192\\green192\\blue192;}\n" - "{\\stylesheet{\\s15\\plain\\f1\\fs16\\cf1\\cb8\\lang1024 Emacs Text;}{\\*\\cs16 \\additive\\f1\\fs16\\cf1\\cb8\\lang1024 Emacs Base Style;}}\n" - "{\\plain\\s15{\\cs16\\cs16\\f1\\fs16\\cf1\\cb8\\lang1024{\\cs16\\f1\\fs16\\cf1\\cb8\\lang1024\n")) - - (goto-char (point-max)) - (insert "}}}}\n") - - (save-buffer) - (kill-buffer (current-buffer))) - -(defun ess-sas-rtf-us-landscape () - "Creates an MS RTF US landscape file from the current buffer." - (interactive) - (ess-sas-rtf-portrait "16") - (ess-sas-goto "rtf" t) - (goto-char (point-min)) - (forward-line 3) - (insert (concat "{\\*\\pgdsctbl\n" - "{\\pgdsc0\\pgdscuse195\\lndscpsxn\\pgwsxn15840\\pghsxn12240\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\pgdscnxt0 Default;}}\n" - "\\landscape\\paperh12240\\paperw15840\\margl1800\\margr1800\\margt1440\\margb1440\\sectd\\sbknone\\lndscpsxn\\pgwsxn15840\\pghsxn12240\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\ftnbj\\ftnstart1\\ftnrstcont\\ftnnar\\aenddoc\\aftnrstcont\\aftnstart1\\aftnnrlc\n")) - (save-buffer) - (kill-buffer (current-buffer))) - -(defun ess-sas-rtf-a4-landscape () - "Creates an MS RTF A4 landscape file from the current buffer." - (interactive) - (ess-sas-rtf-portrait "16") - (ess-sas-goto "rtf" t) - (goto-char (point-min)) - (forward-line 3) - (insert (concat "{\\*\\pgdsctbl\n" - "{\\pgdsc0\\pgdscuse195\\lndscpsxn\\pgwsxn16837\\pghsxn11905\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\pgdscnxt0 Default;}}\n" - "\\landscape\\paperh11905\\paperw16837\\margl1800\\margr1800\\margt1440\\margb1440\\sectd\\sbknone\\lndscpsxn\\pgwsxn16837\\pghsxn11905\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\ftnbj\\ftnstart1\\ftnrstcont\\ftnnar\\aenddoc\\aftnrstcont\\aftnstart1\\aftnnrlc\n")) - (save-buffer) - (kill-buffer (current-buffer))) - -(defun ess-sas-submit () - "Save the .sas file and submit to shell using a function that -depends on the value of `ess-sas-submit-method'" - (interactive) - (ess-sas-file-path) - (ess-sas-goto-sas) - (save-buffer) - (hack-local-variables) - ;(ess-save-and-set-local-variables) - - (cond - ((eq ess-sas-submit-method 'ms-dos) - (ess-sas-submit-windows ess-sas-submit-command - ess-sas-submit-command-options)) - ((eq ess-sas-submit-method 'iESS) - (ess-sas-submit-iESS ess-sas-submit-command - ess-sas-submit-command-options)) - ((eq ess-sas-submit-method 'sh) - (ess-sas-submit-sh ess-sas-submit-command - ess-sas-submit-command-options)) - (t (ess-sas-submit-sh ess-sas-submit-command - ess-sas-submit-command-options))) - ; (ess-sas-goto-sas) - ) - -(defun ess-sas-submit-iESS (arg1 arg2) - "iESS -Submit a batch job in an inferior-ESS buffer. The buffer should -(1) have telnet access and be running a shell on a remote machine -or -(2) be running a shell on the local machine. - -The user can telnet to the remote computer and then declare the -*telnet-buffer* to be an inferior ESS buffer with the `ess-add-ess-process' -command. When using a remote computer, the .sas file must live on the -remote computer and be accessed through `ange-ftp'. When -`ess-sas-submit' saves a file, it is therefore saved on the remote -computer. The various functions such as `ess-sas-goto-lst' retrieve -their files from the remote computer. Local copies of the .sas .lst -.log and others may be made manually with `write-buffer'." - ;; (ess-eval-linewise (concat "cd default-directory)) -(ess-force-buffer-current "Process to load into: ") -(ess-eval-linewise - (concat "cd " (car (last - (split-string (file-name-directory ess-sas-file-path) "\\(:\\|]\\)"))))) -(ess-eval-linewise (concat arg1 " " arg2 " " (buffer-name) " &"))) - -(defun ess-sas-submit-region () - "Write region to temporary file, and submit to SAS." - (interactive) - (ess-sas-file-path) - (hack-local-variables t) - (write-region (region-beginning) (region-end) - (concat (ess-sas-temp-root) ".sas")) - - (let ((arg1 ess-sas-submit-command) - (arg2 ess-sas-submit-command-options)) - (save-excursion - (ess-sas-goto-shell t) - - (if (and (when - ;; Silence byte compiler warns about w32-fns - (fboundp 'w32-shell-dos-semantics) - (w32-shell-dos-semantics)) - (string-equal ":" (substring ess-sas-file-path 1 2))) - (progn - (insert (substring ess-sas-file-path 0 2)) - (comint-send-input) - )) - - (insert "cd \"" (convert-standard-filename - (file-name-directory ess-sas-file-path)) "\"") - (comint-send-input) - - (insert (concat ess-sas-submit-pre-command " " arg1 - " " arg2 - " " (ess-sas-temp-root) " " ess-sas-submit-post-command)) - (comint-send-input) - )) - ) - -(defun ess-sas-submit-sh (arg1 arg2) - "Unix or bash in the *shell* buffer. -Multiple processing is supported on this platform. -SAS may not be found in your PATH. You can alter your PATH to include -SAS or you can specify the PATHNAME (PATHNAME can NOT contain spaces), -i.e. let arg1 be your local equivalent of -\"/usr/local/sas612/sas\"." - (if (string-equal (substring - (file-name-nondirectory ess-sas-file-path) 0 1) ess-kermit-prefix) - (progn - (ess-kermit-send) - (ess-sas-goto-shell t) - (insert ess-sas-submit-pre-command " " arg1 " " - (substring (file-name-sans-extension - (file-name-nondirectory ess-sas-file-path)) 1) - " " arg2 " " ess-sas-submit-post-command) - (comint-send-input)) - ;;else - ;; (ess-sas-goto-shell t) - (ess-sas-cd) - ; (insert "cd " (car (last (split-string (file-name-directory ess-sas-file-path) - ;"\\([a-zA-Z][a-zA-Z]:\\|]\\)")))) - ; (comint-send-input) - (insert ess-sas-submit-pre-command " " arg1 " " - (file-name-sans-extension (file-name-nondirectory ess-sas-file-path)) - " " arg2 " " ess-sas-submit-post-command)) - ; (ess-sleep) - (comint-send-input)) - -(defun ess-sas-submit-windows (arg1 arg2) - "Windows using MS-DOS prompt in the *shell* buffer. -Multiple processing is supported on this platform. -On most Windows installations, SAS will not be found in your -PATH so you should alter your PATH to include SAS, i.e. - -SET PATH=%PATH%;C:\\Program Files\\SAS - -Or you can specify the PATHNAME directly (you must escape -spaces by enclosing the string in \\\"'s), i.e. let -`ess-sas-submit-command' be \"\\\"C:\\Program Files\\SAS\\sas.exe\\\"\". -Keep in mind that the maximum command line length in MS-DOS is -127 characters so altering your PATH is preferable." - ;(ess-save-and-set-local-variables) - (ess-sas-goto-shell t) - (if (string-equal ":" (substring ess-sas-file-path 1 2)) - (progn - (insert (substring ess-sas-file-path 0 2)) - (comint-send-input) - ) - ) - (insert "cd \"" (convert-standard-filename - (file-name-directory ess-sas-file-path)) "\"") - (comint-send-input) - (insert ess-sas-submit-pre-command " " arg1 " -sysin \"" - (file-name-sans-extension (file-name-nondirectory ess-sas-file-path)) "\" " - arg2 " " ess-sas-submit-post-command) - (comint-send-input)) - -(defun ess-sas-tab-to-tab-stop () - "Tab to next tab-stop and set left margin." - (interactive) - (tab-to-tab-stop) - (setq left-margin (current-column)) - ) - -(defun ess-sas-temp-root () - "Return `ess-sas-file-path' sans extension with `ess-sas-temp-root' appended." - (concat (file-name-sans-extension ess-sas-file-path) ess-sas-temp-root)) - -(defun ess-sas-transcript (&optional strip) - "Comment .log messages to create a .sas program; use C-u to strip." - (interactive "P") - (save-excursion - (goto-char (point-min)) - - (while (search-forward-regexp (concat - "^\\(\\(1[ \t]+The SAS System\\| \\|NOTE\\|WARNING\\|ERROR\\|" - "[ \t]+\\(\\(real\\|cpu\\) time\\|Licensed to\\|Engine:\\|" - "Physical Name:\\|File Name=\\|Owner Name=\\|Group Name=\\|" - "Access Permission=\\|File Size (bytes)=\\|Pipe command=\\|" - "RECFM=[DFNPV],LRECL=\\|[0-9]+:[0-9]+[ /t]+[0-9]+:[0-9]+\\|" - "[1-9][0-9]* at [0-9]+:[0-9]+[ /t]+[1-9][0-9]* at [0-9]+:[0-9]+\\)\\).*$" - "\\|[0-9]+\\([ \t]+!\\)?\\|MPRINT([_A-Z]+):\\|" - "[ \t]+\\(values at the places given by: (Line):(Column).\\|" - "The m\\(in\\|ax\\)imum record length was [1-9][0-9]*.\\|" - "One or more lines were truncated.\\|" - "Each place is given by: (Number of times) at (Line):(Column).\\|" - "[0-9][0-9]:[0-9][0-9] [MTWFS][aeioudhnrst]+day, [JFMASOND]" - "[aeiouybcghlmnprstv]+ [1-9][0-9]?, 20[0-9][0-9]\\)\\)") - nil t) (replace-match (if strip " " "/*\\&*/") t)) - )) - -(defun ess-sas-toggle-sas-listing-mode (&optional force) - "Toggle SAS-listing-mode for .lst files." - (interactive) - (ess-sas-goto-lst) - - (if (equal (cdr (assoc "\\.[lL][sS][tT]\\'" auto-mode-alist)) 'SAS-listing-mode) (progn - (setq auto-mode-alist (delete '("\\.[lL][sS][tT]\\'" . SAS-listing-mode) auto-mode-alist)) - (setq buffer-read-only nil) - (ess-listing-minor-mode 0)) - (setq auto-mode-alist (append '(("\\.[lL][sS][tT]\\'" . SAS-listing-mode)) auto-mode-alist)) - (setq buffer-read-only t) - (ess-listing-minor-mode 1))) - -(defun ess-sas-toggle-sas-log-mode () - "Toggle SAS-log-mode for .log files." - (interactive) - - (ess-sas-goto-log) - (kill-buffer nil) - - ; (if (equal (cdr (assoc "\\.[lL][oO][gG]\\'" auto-mode-alist)) 'SAS-log-mode) (progn - ; (setq auto-mode-alist (delete '("\\.[lL][oO][gG]\\'" . SAS-log-mode) auto-mode-alist)) - ; (setq buffer-read-only nil) - ; (ess-transcript-minor-mode 0) - ; (font-lock-mode 0)) - ; (setq auto-mode-alist (append '(("\\.[lL][oO][gG]\\'" . SAS-log-mode)) auto-mode-alist)) - ; (setq buffer-read-only t) - ; (ess-transcript-minor-mode 1) - ; (font-lock-mode 1) - ; (font-lock-fontify-buffer)) - - (if (equal (cdr (assoc "\\.[lL][oO][gG]\\'" auto-mode-alist)) 'SAS-log-mode) - (setq auto-mode-alist (delete '("\\.[lL][oO][gG]\\'" . SAS-log-mode) auto-mode-alist)) - (setq auto-mode-alist (append '(("\\.[lL][oO][gG]\\'" . SAS-log-mode)) auto-mode-alist))) - (ess-sas-goto-log)) - -(define-obsolete-variable-alias - 'ess-sas-versions-created 'ess-sas-created-runners "ESS 18.10") -(defvar ess-sas-created-runners) -(defun ess-sas-define-runners () - "Generate the `M-x SASV' functions for starting other versions of SAS. -See `ess-sas-versions' for strings that determine which functions are created. - -The local variable `ess-sas-created-runners' is used to return list of -the new SAS defuns, if any, that were created. The defuns will normally -be placed on the menubar upon ESS initialization." - ;; This works by creating a temp buffer where the template function is - ;; edited so that V is replaced by the version number - (let ((versions - ;; Find which versions of SAS we want. Remove the pathname, - ;; leaving just the name of the executable. - (ess-uniq-list - (mapcar #'file-name-nondirectory - (apply #'nconc - (mapcar #'ess-find-exec-completions - ess-sas-versions)))))) - ;; Iterate over each string in VERSIONS, creating a new defun each time. - (setq ess-sas-created-runners - (mapc (lambda (v) (ess-define-runner v "SAS")) versions)))) -(define-obsolete-function-alias - 'ess-sas-create-versions 'ess-sas-define-runners "ESS 18.10") - - -;;; Section 3: Key Definitions - - -(defun ess-sas-edit-keys-set (&optional arg) - "Set TAB/RET key in `SAS-mode'. -If arg is nil - TAB is `sas-indent-line' and - RET is `newline-and-indent'. -Else - TAB is `ess-sas-tab-to-tab-stop', - C-TAB is `ess-sas-backward-delete-tab' and - RET is `newline'." - (interactive) - - (if arg - (progn - (define-key sas-mode-local-map [(control tab)] - 'ess-sas-backward-delete-tab) - (define-key sas-mode-local-map [return] 'newline) - (define-key sas-mode-local-map "\t" 'ess-sas-tab-to-tab-stop)) - ;;else - (define-key sas-mode-local-map [return] 'newline-and-indent) - (define-key sas-mode-local-map "\t" 'sas-indent-line))) - -(defvar ess-sas-edit-keys-toggle nil - "Toggle TAB/RET key in `SAS-mode'. -nil binds TAB to `sas-indent-line' and RET to `newline-and-indent'. -Non-nil binds TAB to `ess-sas-tab-to-tab-stop', -C-TAB to `ess-sas-backward-delete-tab', and RET to `newline'.") - -(defun ess-sas-edit-keys-toggle (&optional arg) - "Toggle `ess-sas-edit-keys-toggle'. Optional arg is still -accepted for backward compatibility, however, arg is ignored." - (interactive) - - (setq ess-sas-edit-keys-toggle (not ess-sas-edit-keys-toggle)) - (ess-sas-edit-keys-set ess-sas-edit-keys-toggle) - ) - -(defvar ess-sas-global-pc-keys nil - "Non-nil if function keys use PC-like SAS key definitions in all modes.") - -(defun ess-sas-global-pc-keys () - "PC-like SAS key definitions" - (interactive) - (global-set-key [(control f1)] 'ess-sas-rtf-portrait) - (global-set-key [(control f2)] 'ess-sas-rtf-landscape) - (global-set-key (quote [f2]) 'ess-revert-wisely) - (global-set-key (quote [f3]) 'ess-sas-goto-shell) - (global-set-key (quote [f4]) 'ess-sas-goto-file-1) - (global-set-key (quote [f5]) 'ess-sas-goto-sas) - (global-set-key (quote [f6]) 'ess-sas-goto-log) - (global-set-key [(control f6)] 'ess-sas-append-log) - (global-set-key (quote [f7]) 'ess-sas-goto-lst) - (global-set-key [(control f7)] 'ess-sas-append-lst) - (global-set-key (quote [f8]) 'ess-sas-submit) - (global-set-key [(control f8)] 'ess-sas-submit-region) - (global-set-key (quote [f9]) 'ess-sas-data-view-fsview) - (global-set-key [(control f9)] 'ess-sas-data-view-insight) - ;; (global-set-key (quote [f10]) 'ess-sas-toggle-sas-log-mode) - ;; (global-set-key [(control f10)] 'ess-sas-toggle-sas-listing-mode) - ;; (global-set-key (quote [f11]) 'ess-sas-goto-file-2) - ;; (global-set-key [(control f11)] 'ess-ebcdic-to-ascii-search-and-replace) - (global-set-key (quote [f12]) 'ess-sas-graph-view) - (global-set-key [(control tab)] 'ess-sas-backward-delete-tab) - ;; (define-key sas-mode-local-map "\C-c\C-p" 'ess-sas-file-path) - (setq ess-sas-global-pc-keys t) - (setq ess-sas-global-unix-keys nil) - (setq ess-sas-local-pc-keys nil) - (setq ess-sas-local-unix-keys nil) - ) - -(defun ess-sas-global-unix-keys () - "Unix/Mainframe-like SAS key definitions" - (interactive) - (global-set-key [(control f1)] 'ess-sas-rtf-portrait) - (global-set-key [(control f2)] 'ess-sas-rtf-landscape) - (global-set-key (quote [f2]) 'ess-revert-wisely) - (global-set-key (quote [f3]) 'ess-sas-submit) - (global-set-key [(control f3)] 'ess-sas-submit-region) - (global-set-key (quote [f4]) 'ess-sas-goto-sas) - (global-set-key (quote [f5]) 'ess-sas-goto-log) - (global-set-key [(control f5)] 'ess-sas-append-log) - (global-set-key (quote [f6]) 'ess-sas-goto-lst) - (global-set-key [(control f6)] 'ess-sas-append-lst) - (global-set-key (quote [f7]) 'ess-sas-goto-file-1) - (global-set-key (quote [f8]) 'ess-sas-goto-shell) - (global-set-key (quote [f9]) 'ess-sas-data-view-fsview) - (global-set-key [(control f9)] 'ess-sas-data-view-insight) - ;; (global-set-key (quote [f10]) 'ess-sas-toggle-sas-log-mode) - ;; (global-set-key [(control f10)] 'ess-sas-toggle-sas-listing-mode) - ;; (global-set-key (quote [f11]) 'ess-sas-goto-file-2) - ;; (global-set-key [(control f11)] 'ess-ebcdic-to-ascii-search-and-replace) - (global-set-key (quote [f12]) 'ess-sas-graph-view) - (global-set-key [(control tab)] 'ess-sas-backward-delete-tab) - ;;(define-key sas-mode-local-map "\C-c\C-p" 'ess-sas-file-path) - (setq ess-sas-global-pc-keys nil) - (setq ess-sas-global-unix-keys t) - (setq ess-sas-local-pc-keys nil) - (setq ess-sas-local-unix-keys nil) - ) - -(defun ess-sas-local-pc-keys () - "PC-like SAS key definitions." - (interactive) - (define-key sas-mode-local-map [(control f1)] 'ess-sas-rtf-portrait) - (define-key sas-mode-local-map [(control f2)] 'ess-sas-rtf-landscape) - (define-key sas-mode-local-map (quote [f2]) 'ess-revert-wisely) - (define-key sas-mode-local-map (quote [f3]) 'ess-sas-goto-shell) - (define-key sas-mode-local-map (quote [f4]) 'ess-sas-goto-file-1) - (define-key sas-mode-local-map (quote [f5]) 'ess-sas-goto-sas) - (define-key sas-mode-local-map (quote [f6]) 'ess-sas-goto-log) - (define-key sas-mode-local-map [(control f6)] 'ess-sas-append-log) - (define-key sas-mode-local-map (quote [f7]) 'ess-sas-goto-lst) - (define-key sas-mode-local-map [(control f7)] 'ess-sas-append-lst) - (define-key sas-mode-local-map (quote [f8]) 'ess-sas-submit) - (define-key sas-mode-local-map [(control f8)] 'ess-sas-submit-region) - (define-key sas-mode-local-map (quote [f9]) 'ess-sas-data-view-fsview) - (define-key sas-mode-local-map [(control f9)] 'ess-sas-data-view-insight) - (define-key sas-mode-local-map (quote [f10]) 'ess-sas-toggle-sas-log-mode) - (define-key sas-mode-local-map [(control f10)] 'ess-sas-toggle-sas-listing-mode) - (define-key sas-mode-local-map (quote [f11]) 'ess-sas-goto-file-2) - (define-key sas-mode-local-map [(control f11)] 'ess-ebcdic-to-ascii-search-and-replace) - (define-key sas-mode-local-map (quote [f12]) 'ess-sas-graph-view) - ;(define-key sas-mode-local-map "\C-c\C-p" 'ess-sas-file-path) - (setq ess-sas-global-pc-keys nil) - (setq ess-sas-global-unix-keys nil) - (setq ess-sas-local-pc-keys t) - (setq ess-sas-local-unix-keys nil) - ) - -(defun ess-sas-local-unix-keys () - "Unix/Mainframe-like SAS key definitions" - (interactive) - (define-key sas-mode-local-map [(control f1)] 'ess-sas-rtf-portrait) - (define-key sas-mode-local-map [(control f2)] 'ess-sas-rtf-landscape) - (define-key sas-mode-local-map (quote [f2]) 'ess-revert-wisely) - (define-key sas-mode-local-map (quote [f3]) 'ess-sas-submit) - (define-key sas-mode-local-map [(control f3)] 'ess-sas-submit-region) - (define-key sas-mode-local-map (quote [f4]) 'ess-sas-goto-sas) - (define-key sas-mode-local-map (quote [f5]) 'ess-sas-goto-log) - (define-key sas-mode-local-map [(control f5)] 'ess-sas-append-log) - (define-key sas-mode-local-map (quote [f6]) 'ess-sas-goto-lst) - (define-key sas-mode-local-map [(control f6)] 'ess-sas-append-lst) - (define-key sas-mode-local-map (quote [f7]) 'ess-sas-goto-file-1) - (define-key sas-mode-local-map (quote [f8]) 'ess-sas-goto-shell) - (define-key sas-mode-local-map (quote [f9]) 'ess-sas-data-view-fsview) - (define-key sas-mode-local-map [(control f9)] 'ess-sas-data-view-insight) - (define-key sas-mode-local-map (quote [f10]) 'ess-sas-toggle-sas-log-mode) - (define-key sas-mode-local-map [(control f10)] 'ess-sas-toggle-sas-listing-mode) - (define-key sas-mode-local-map (quote [f11]) 'ess-sas-goto-file-2) - (define-key sas-mode-local-map [(control f11)] 'ess-ebcdic-to-ascii-search-and-replace) - (define-key sas-mode-local-map (quote [f12]) 'ess-sas-graph-view) - ;(define-key sas-mode-local-map "\C-c\C-p" 'ess-sas-file-path) - (setq ess-sas-global-pc-keys nil) - (setq ess-sas-global-unix-keys nil) - (setq ess-sas-local-pc-keys nil) - (setq ess-sas-local-unix-keys t) - ) - -(defun ess-kermit-get (&optional ess-file-arg ess-dir-arg) - "Get a file with Kermit. WARNING: Experimental! From your *shell* -buffer, start kermit and then log in to the remote machine. Open -a file that starts with `ess-kermit-prefix'. From that buffer, -execute this command. It will retrieve a file from the remote -directory that you specify with the same name, but without the -`ess-kermit-prefix'." - - (interactive) - - ;; (save-match-data - (let ((ess-temp-file (if ess-file-arg ess-file-arg (buffer-name))) - (ess-temp-file-remote-directory ess-dir-arg)) - - (if (string-equal ess-kermit-prefix (substring ess-temp-file 0 1)) - (progn - ;; I think there is a bug in the buffer-local variable handling in GNU Emacs 21.3 - ;; Setting ess-kermit-remote-directory every time is somehow resetting it to the - ;; default on the second pass. So, here's a temporary work-around. It will fail - ;; if you change the default, so maybe this variable should not be customizable. - ;; In any case, there is also trouble with local variables in XEmacs 21.4.9 and - ;; 21.4.10. XEmacs 21.4.8 is fine. - (if ess-temp-file-remote-directory - (setq ess-kermit-remote-directory ess-temp-file-remote-directory) - - (if (string-equal "." ess-kermit-remote-directory) - (setq ess-kermit-remote-directory (read-string "Remote directory to transfer file from: " - ess-kermit-remote-directory)))) - - (setq ess-temp-file-remote-directory ess-kermit-remote-directory) - ;; (setq ess-temp-file (substring ess-temp-file (match-end 0))) - (ess-sas-goto-shell) - (insert "cd " ess-temp-file-remote-directory "; " ess-kermit-command " -s " - (substring ess-temp-file 1) " -a " ess-temp-file) - (comint-send-input) - ;; (insert (read-string "Press Return to connect to Kermit: " nil nil "\C-\\c")) - ;; (comint-send-input) - ;; (insert (read-string "Press Return when Kermit is ready to recieve: " nil nil - ;; (concat "receive ]" ess-sas-temp-file))) - ;; (comint-send-input) - ;; (insert (read-string "Press Return when transfer is complete: " nil nil "c")) - ;; (comint-send-input) - (insert (read-string "Press Return when shell is ready: ")) - (comint-send-input) - (switch-to-buffer (find-buffer-visiting ess-temp-file)) - (ess-revert-wisely) - )))) - -(defun ess-kermit-send () - "Send a file with Kermit. WARNING: Experimental! From -a file that starts with `ess-kermit-prefix', -execute this command. It will transfer this file to the remote -directory with the same name, but without the `ess-kermit-prefix'." - - (interactive) - - ;; (save-match-data - (let ((ess-temp-file (expand-file-name (buffer-name))) - (ess-temp-file-remote-directory nil)) - - (if (string-equal ess-kermit-prefix (substring (file-name-nondirectory ess-temp-file) 0 1)) - (progn - ;; I think there is a bug in the buffer-local variable handling in GNU Emacs 21.3 - ;; Setting ess-kermit-remote-directory every time is somehow resetting it to the - ;; default on the second pass. Here's a temporary work-around. It will fail - ;; if you change the default, so maybe this variable should not be customizable. - ;; In any case, there is also trouble with local variables in XEmacs 21.4.9 and - ;; 21.4.10. XEmacs 21.4.8 is fine. - (if (string-equal "." ess-kermit-remote-directory) - (setq ess-kermit-remote-directory (read-string "Remote directory to transfer file to: " - ess-kermit-remote-directory))) - - (setq ess-temp-file-remote-directory ess-kermit-remote-directory) - - ;; (setq ess-temp-file (substring ess-temp-file (match-end 0))) - (ess-sas-goto-shell) - (insert "cd " ess-temp-file-remote-directory "; " ess-kermit-command " -a " - (substring (file-name-nondirectory ess-temp-file) 1) " -g " ess-temp-file) - (comint-send-input) - ;; (insert (read-string "Press Return to connect to Kermit: " nil nil "\C-\\c")) - ;; (comint-send-input) - ;; (insert (read-string "Press Return when Kermit is ready to recieve: " nil nil - ;; (concat "receive ]" ess-sas-temp-file))) - ;; (comint-send-input) - ;; (insert (read-string "Press Return when transfer is complete: " nil nil "c")) - ;; (comint-send-input) - (insert (read-string "Press Return when shell is ready: ")) - (comint-send-input) - (switch-to-buffer (find-buffer-visiting ess-temp-file)) - (ess-revert-wisely) - )))) - -(provide 'ess-sas-a) - -;;; ess-sas-a.el ends here diff --git a/elpa/ess-20181109.703/ess-sas-d.el b/elpa/ess-20181109.703/ess-sas-d.el deleted file mode 100644 index 1ef53a1b..00000000 --- a/elpa/ess-20181109.703/ess-sas-d.el +++ /dev/null @@ -1,315 +0,0 @@ -;;; ess-sas-d.el --- SAS customization - -;; Copyright (C) 1997--2001 Richard M. Heiberger and A. J. Rossini -;; Copyright (C) 2002--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Richard M. Heiberger -;; Created: 20 Aug 1997 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file defines all the SAS customizations for ESS behaviors. See -;; ess-sas-l and ess-sas-a for the underlying general modifications. - -;;; Code: - -;;; Autoloads: - -(require 'comint) -(require 'shell) -(require 'executable) -(require 'ess-sas-l) - -(defvar inferior-SAS-args "-stdio -linesize 80 -noovp -nosyntaxcheck" - "*Arguments to use for starting SAS.") - -(defvar inferior-SAS-args-temp nil - "Hack variable, needed for args preprocessing. -Better logic needed! (see 2 uses, in this file).") - -(defun ess-SAS-pre-run-hook (temp-ess-dialect) - "Set up log and list files for interactive SAS." - - (let* ((ess-shell-buffer-name-flag (get-buffer "*shell*")) - ess-shell-buffer-name - ;; isn't pretty yet. - ;; ess-local-process-name is defined after this function. - ;; it needs to be defined prior to this function. - (tmp-procname (let ((ntry 0) - (done nil)) - ;; find a non-existent process - (while (not done) - (setq ntry (1+ ntry) - done (not - (get-process (ess-proc-name - ntry - temp-ess-dialect))))) - (ess-proc-name ntry temp-ess-dialect))) - ;; Following was tmp-local-process-name. Stolen from inferior-ess - (ess-sas-lst-bufname (concat "*" tmp-procname ".lst*")) - (ess-sas-log-bufname (concat "*" tmp-procname ".log*")) - (explicit-shell-file-name "/bin/sh") - inferior-SAS-redirect-args - ess-sas-lst - ess-sas-log) - - (ess-write-to-dribble-buffer - (format "(ess-SAS-pre-run-hook 1): ess-lang=%s, ess-dialect=%s, temp-dialect=%s, buf=%s \n" - ess-language - ess-dialect - temp-ess-dialect - (current-buffer))) - ;; If someone is running a *shell* buffer, rename it to avoid - ;; inadvertent nuking. - (if ess-shell-buffer-name-flag - (with-current-buffer "*shell*" - (setq ess-shell-buffer-name - (rename-buffer "*ess-shell-regular*" t)))) - - ;; Construct the LST buffer for output - (if (get-buffer ess-sas-lst-bufname) - nil - (shell) - (accept-process-output (get-buffer-process (current-buffer))) - (sleep-for 2) ; need to wait, else working too fast! - (setq ess-sas-lst (ess-insert-accept "tty")) - (SAS-listing-mode) - (shell-mode) - (ess-listing-minor-mode t) - (rename-buffer ess-sas-lst-bufname t)) - - ;; Construct the LOG buffer for output - (if (get-buffer ess-sas-log-bufname) - nil - (shell) - (accept-process-output (get-buffer-process (current-buffer))) - (sleep-for 2) ; need to wait, else working too fast! - (setq ess-sas-log (ess-insert-accept "tty")) - ;(SAS-log-mode) - (shell-mode) - (ess-transcript-minor-mode t) - (rename-buffer ess-sas-log-bufname t)) - - (setq inferior-SAS-redirect-args (concat " " - ess-sas-lst - " " - ess-sas-log - " ") - inferior-SAS-args-temp (concat inferior-SAS-redirect-args - inferior-SAS-args)) - - ;; Restore the *shell* buffer - (if ess-shell-buffer-name-flag - (with-current-buffer ess-shell-buffer-name - (rename-buffer "*shell*"))) - - (delete-other-windows) - (split-window-vertically) - (split-window-vertically) - (switch-to-buffer (nth 2 (buffer-list))) - (other-window 2) - (switch-to-buffer ess-sas-log-bufname) - (split-window-vertically) - (other-window 1) - (switch-to-buffer ess-sas-lst-bufname) - (other-window 2) - - ;;workaround - (setq inferior-SAS-program - (concat (file-name-as-directory ess-etc-directory) - "ess-sas-sh-command")) - (setq inferior-ess-program inferior-SAS-program))) - -(defun ess-insert-accept (command) - "Submit command to process, get next line." - (interactive) - (goto-char (point-max)) - (insert command) - (comint-send-input) - (accept-process-output (get-buffer-process (current-buffer))) - (forward-line -1) - (let* ((beg (point)) - (ess-tty-name (progn (end-of-line) (buffer-substring beg (point))))) - (goto-char (point-max)) - ess-tty-name)) - - -(defvar SAS-customize-alist - '((ess-local-customize-alist . 'SAS-customize-alist) - (ess-language . "SAS") - (ess-dialect . "SAS") - (ess-mode-editing-alist . SAS-editing-alist) ; from ess-sas-l.el - (ess-mode-syntax-table . SAS-syntax-table) - (inferior-ess-program . inferior-SAS-program) - (ess-help-sec-regex . "^[A-Z. ---]+:$") - (ess-help-sec-keys-alist . " ") - (ess-object-name-db-file . "ess-sas-namedb.el") - (inferior-ess-objects-command . "objects(%d)");;FIXME - (inferior-ess-help-command . "help(\"%s\",pager=\"cat\",window=F)\n");;FIXME - (inferior-ess-exit-command . "endsas;\n") - (ess-loop-timeout . 500000 ) - (inferior-ess-primary-prompt . "^") - (inferior-ess-secondary-prompt . "^") - (comint-use-prompt-regexp . t) - (inferior-ess-start-file . nil) ;"~/.ess-SAS") - (inferior-ess-start-args . inferior-SAS-args-temp) - ;; (ess-pre-run-hook . 'ess-SAS-pre-run-hook) - ;; (ess-local-process-name . nil) - ) - "Variables to customize for SAS") - -;;; The functions of interest (mode, inferior mode) - -;;;###autoload -(defun SAS-mode (&optional proc-name) - "Major mode for editing SAS source. See ess-mode for more help." - (interactive) - (setq ess-customize-alist SAS-customize-alist) - (ess-mode SAS-customize-alist proc-name) - - ;; Local map settings, AFTER initialization (only if not yet defined) - (if sas-mode-local-map - nil - (setq sas-mode-local-map (copy-keymap (current-local-map))) - (ess-sas-edit-keys-set ess-sas-edit-keys-toggle) - (if ess-sas-local-unix-keys (ess-sas-local-unix-keys)) - (if ess-sas-local-pc-keys (ess-sas-local-pc-keys)) - (if ess-sas-global-unix-keys (ess-sas-global-unix-keys)) - (if ess-sas-global-pc-keys (ess-sas-global-pc-keys))) - (define-key sas-mode-local-map ";" 'ess-electric-run-semicolon) - - ;; this is a mess - ;; interactive and batch commands share sas-mode-local-map, - ;; but the associated commands are very different - ;; what would be better is two maps like - ;; sas-batch-mode-local-map and sas-interactive-mode-local-map - ;; or smart function definitions that would do the appropriate - ;; thing for either batch or interactive sessions - ;; however, neither of these solutions are planned - ;; therefore, no key definitions can be shared between - ;; batch and interactive at this time, hence the lines that - ;; are commented below: uncomment at your own risk - ;; (define-key sas-mode-local-map "\C-c\C-p" 'ess-sas-file-path) - ;; (define-key sas-mode-local-map "\C-c\C-b" 'ess-sas-submit) - ;; (define-key sas-mode-local-map "\C-c\C-r" 'ess-sas-submit-region) - ;; (define-key sas-mode-local-map "\C-c\C-x" 'ess-sas-goto-log) - ;; (define-key sas-mode-local-map "\C-c\C-y" 'ess-sas-goto-lst) - - (use-local-map sas-mode-local-map) - - (set (make-local-variable 'font-lock-defaults) - ;; KEYWORDS KEYWORDS-ONLY CASE-FOLD ..... - '(SAS-mode-font-lock-defaults nil t)) - ;; ^^ this *should* set - ;; font-lock-keywords-case-fold-search, but it fails for Emacs 22.[23] - ;; hence : - (setq font-lock-keywords-case-fold-search t) - (run-mode-hooks 'SAS-mode-hook)) - - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[Ss][Aa][Ss]\\'" . SAS-mode)) - -;; rmh Jul 10 2003 -(defun ess-electric-run-semicolon (arg) - "Insert character. If the line contains \"run;\" or \"quit;\" and nothing else then indent line." - (interactive "P") - (if ess-sas-edit-keys-toggle (insert ";") (let (insertpos) - (if (and (not arg) - (eolp) - (save-excursion - (skip-chars-backward " \t") - (backward-word 1) - (and (looking-at "run\\|quit") - (progn - (skip-chars-backward " \t") - (bolp))))) - (progn - (insert last-command-event) - (ess-indent-line) - (save-excursion - (if insertpos (goto-char (1+ insertpos))) - (delete-char -1)))) - (if insertpos - (save-excursion - (goto-char insertpos) - (self-insert-command (prefix-numeric-value arg))) - (self-insert-command (prefix-numeric-value arg)))))) - -;;;###autoload -(defun SAS-menu () - "Start SAS from the menu." - (interactive) - (if ess-microsoft-p - ;; replace with other choices for starting SAS? - (error "SAS cannot be started this way in ESS on Windows.") - (SAS))) - -(defun SAS () - "Call 'SAS', from SAS Institute." - (interactive) - (setq-default ess-customize-alist SAS-customize-alist) - (let* ((temp-dialect "SAS")) ;(cdr (rassoc ess-dialect SAS-customize-alist)))) - (ess-write-to-dribble-buffer - (format "(SAS): ess-dial=%s, temp-dial=%s\n" - ess-dialect - temp-dialect)) - (ess-SAS-pre-run-hook temp-dialect) - (setq ess-eval-visibly-p nil) - (inferior-ess) - (with-current-buffer "*SAS*" - (use-local-map sas-mode-local-map)))) - - -(defun ess-multi-frame-SAS () - "Put running SAS buffers into separate frames. -Load this function M-x load-file essx-sas.el RET. -Then find-file myfile.sas. If myfile.sas is already in a buffer, kill-buffer -it and then find-file it again. -Place the cursor in a myfile.sas buffer. Run SAS with M-x SAS, -Return the cursor to the myfile.sas buffer, -then enter C-c C-w to put *SAS* *SAS.log* *SAS.lst* buffers into -their own frames." - (interactive) - (delete-other-windows) - (with-current-buffer "*SAS*" - (make-frame)) - (with-current-buffer "*SAS.log*" - (make-frame)) - (with-current-buffer "*SAS.lst*" - (make-frame))) - - -(add-hook 'ess-mode-hook - (lambda () - (when (string= ess-language "SAS") ;; e.g. not for R-only users - (local-set-key "\C-c\C-w" 'ess-multi-frame-SAS)))) - -(defun ess-num-or-zero (arg) - "*If a number, then return that number, otherwise return 0." - (or (and (numberp arg) arg) 0)) - - ; Provide package - -(provide 'ess-sas-d) - -;;; ess-sas-d.el ends here diff --git a/elpa/ess-20181109.703/ess-sas-l.el b/elpa/ess-20181109.703/ess-sas-l.el deleted file mode 100644 index c3720485..00000000 --- a/elpa/ess-20181109.703/ess-sas-l.el +++ /dev/null @@ -1,1928 +0,0 @@ -;;; ess-sas-l.el --- SAS customization - -;; Copyright (C) 1997--2009 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Authors: Richard M. Heiberger -;; A.J. Rossini -;; Rodney Sparapani -;; Created: 20 Aug 1997 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; This file is part of ESS (Emacs Speaks Statistics). - -;; 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 -;; https://www.r-project.org/Licenses/ - - -;;; Commentary: - -;; This is based upon Version 1.4 of SAS mode: - - -;;; sas-mode: indent, run etc, SAS programs. -;;; Copyright (C) 1994--1997 Tom Cook -;;; Author: Tom Cook -;;; Dept. of Biostatistics -;;; University of Wisconsin - Madison -;;; Madison, WI 53706 -;;; cook@biostat.wisc.edu -;;; -;;; Acknowledgements: -;;; Menu code for XEmacs/Lucid emacs and startup mods -;;; contributed by arossini@biostats.hmc.psu.edu -;;; -;;; Last change: 2/1/95 -;;; Last change: 01/15/02 - -;;; Code: - -(require 'ess-mode) -(require 'ess-custom) -(require 'ess-sas-a) - -(declare-function SAS-mode "ess-sas-d") - -(put 'ess-transcript-minor-mode 'permanent-local t) -(or (assq 'ess-transcript-minor-mode minor-mode-alist) - (setq minor-mode-alist - (append minor-mode-alist - (list '(ess-transcript-minor-mode " ESStr"))))) - -(put 'ess-listing-minor-mode 'permanent-local t) -(or (assq 'ess-listing-minor-mode minor-mode-alist) - (setq minor-mode-alist - (append minor-mode-alist - (list '(ess-listing-minor-mode " ESSlst"))))) - -(defun ess-transcript-minor-mode (&optional arg) - "Toggle Ess-Transcript minor mode. -With arg, turn Ess-Transcript minor mode on if arg is positive, off -otherwise. See the command `ess-transcript-mode' for more information -on this mode." - (interactive "P") - (setq ess-transcript-minor-mode - (if (null arg) (not ess-transcript-minor-mode) - (> (prefix-numeric-value arg) 0))) - (force-mode-line-update) - (setq mode-line-process - '(" [" ess-local-process-name "]"))) - -(defun ess-listing-minor-mode (&optional arg) - "Toggle Ess-Listing minor mode. -With arg, turn Ess-Listing minor mode on if arg is positive, off -otherwise. Ess-Listing mode is used solely to place an indicator on -the mode line." - (interactive "P") - (setq ess-listing-minor-mode - (if (null arg) (not ess-listing-minor-mode) - (> (prefix-numeric-value arg) 0))) - (force-mode-line-update) - (setq mode-line-process - '(" [" ess-local-process-name "]"))) - -(defcustom ess-automatic-sas-log-or-lst-mode t - "Automatically turn on `SAS-log-mode' and `SAS-listing-mode' when enabled." - :type 'boolean - :group 'ess-sas) - -(defun ess-SAS-log-mode-p () - "Return t when when a SAS log file is detected. -A SAS log is defined as having: - -1. The first line matches \"^1[ \t]*The SAS System\" -2. The file name ends in .log. -" - (and ess-automatic-sas-log-or-lst-mode - (save-excursion - (goto-char (point-min)) - (looking-at "1[ \t]*The SAS System")) - (if (buffer-file-name) - (string-match ".log$" (buffer-file-name)) - t))) - -(defun ess-SAS-listing-mode-p () - "Return t when SAS listing file is detected. -A .lst file is a SAS listing file when: - -1. The file name ends in .lst -2. The corresponding log file exists and is a SAS log file. -" - (when ess-automatic-sas-log-or-lst-mode - (let* ((bfn (buffer-file-name)) - (log (and bfn - (string-match-p "\\.lst$" bfn) - (replace-regexp-in-string "\\.lst$" ".log" bfn)))) - (and log - (file-exists-p log) - (with-temp-buffer - (insert-file-contents log nil 0 200) - (goto-char (point-min)) - (looking-at "1[ \t]*The SAS System")))))) - -(add-to-list 'magic-mode-alist - '(ess-SAS-log-mode-p . SAS-log-mode)) -(add-to-list 'magic-mode-alist - '(ess-SAS-listing-mode-p . SAS-listing-mode)) - -(defun SAS-log-mode () -"`ess-transcript-mode' for SAS." -(interactive) -(SAS-mode) -(setq mode-name "ESS[LOG]") -(ess-transcript-minor-mode 1) -(setq buffer-read-only t) ;; to protect the buffer. -(buffer-disable-undo)) - -(defvar sas-mode-local-map nil "contains modified local keymap for SAS") -(defun SAS-listing-mode() -"Fundamental mode with `ess-listing-minor-mode' and read-only." -(interactive) -(fundamental-mode) -(setq mode-name "ESS[LST]") -(ess-listing-minor-mode 1) -(use-local-map sas-mode-local-map) -(setq buffer-read-only t) ;; to protect the buffer. -(buffer-disable-undo)) - -(fset 'sas-log-mode 'SAS-log-mode) -(fset 'SAS-transcript-mode 'SAS-log-mode) -(fset 'sas-transcript-mode 'SAS-log-mode) -(fset 'sas-mode 'SAS-mode) -(fset 'sas-listing-mode 'SAS-listing-mode) - -(defcustom sas-indent-width 4 - "*Amount to indent sas statements." - :group 'ess-sas - :type 'integer) - -(defcustom sas-indent-ignore-comment "*" - "*Comments that start with this string are ignored in indentation." - :group 'ess-sas - :type 'string) - -(defcustom sas-require-confirmation t - "*Require confirmation when revisiting a modified sas-output file." - :group 'ess-sas - :type 'boolean) - -(defcustom sas-pre-run-hook nil - "Hook to execute prior to running SAS via `submit-sas'." - :group 'ess-sas - :type 'hook) - - ;never used--see ess-sas-submit-command-options in ess-sas-a.el - ;(defcustom sas-options-string "" - ; "*Options to be passed to sas as if typed on the command line." - ; :group 'ess-sas - ; :type 'string) - -(defcustom sas-notify t - "*Beep and display message when job is done." - :group 'ess-sas - :type 'boolean) - -(defcustom sas-error-notify t - "*If `sas-notify' t, indicate errors in log file upon completion." - :group 'ess-sas - :type 'boolean) - -(defcustom sas-get-options nil - "Options to be passed to SAS in sas-get-dataset." - :group 'ess-sas - :type '(choice (const nil) string)) - -(defcustom sas-get-options-history nil - "History list of Options passed to SAS in sas-get-dataset." - :type '(choice (const nil) - (string)) - :group 'ess-sas) - -(defcustom sas-page-number-max-line 3 - "*Number of lines from the page break, to search for the page -number." - :group 'ess-sas - :type 'integer) - -(defcustom sas-notify-popup nil - "*If this and sas-notify are t), popup a window when SAS job ends." - :group 'ess-sas - :type 'boolean) - -(defcustom sas-tmp-libname "_tmp_" - "*Libname to use for sas-get-dataset." - :group 'ess-sas - :type 'string) - -(defcustom sas-file-name nil - "*The name of the current sas file." - :group 'ess-sas - :type '(choice (const nil) file)) - -;; The next two are ``the inside of [...] in a regexp'' to be used in -;; (skip-chars-(for|back)ward SAS-..-chars) -(defcustom sas-white-chars " \t\n\f" - "This does NOT escape blanks (RMH, 2000/03/20)." - :group 'ess-sas - :type 'string) - -(defcustom sas-comment-chars (concat sas-white-chars ";") - "Doc?" - :group 'ess-sas - :type 'string) - -(defcustom ess-sas-run-regexp-opt t - "If you do not want to run regexp-opt, then set to nil." - :group 'ess-sas - :type 'boolean) - -(defvar sas-buffer-name nil) -(defvar sas-file-root nil) -(defvar sas-submitable nil) -(defvar sas-dataset nil) -(defvar SAS-syntax-table nil "Syntax table for SAS code.") - -(if SAS-syntax-table nil - (setq SAS-syntax-table (make-syntax-table)) - - ;; (if (equal system-type 'windows-nt) - ;; ;; backslash is punctuation (used in MS file names) - ;; (modify-syntax-entry ?\\ "." SAS-syntax-table) - ;; ;; backslash is an escape character - ;; (modify-syntax-entry ?\\ "\\" SAS-syntax-table)) - (modify-syntax-entry ?\\ "." SAS-syntax-table) ;; backslash is punctuation - (modify-syntax-entry ?+ "." SAS-syntax-table) - (modify-syntax-entry ?- "." SAS-syntax-table) - (modify-syntax-entry ?= "." SAS-syntax-table) - (modify-syntax-entry ?% "w" SAS-syntax-table) - (modify-syntax-entry ?< "." SAS-syntax-table) - (modify-syntax-entry ?> "." SAS-syntax-table) - (modify-syntax-entry ?& "w" SAS-syntax-table) - (modify-syntax-entry ?| "." SAS-syntax-table) - (modify-syntax-entry ?\' "\"" SAS-syntax-table) - (modify-syntax-entry ?* ". 23" SAS-syntax-table) ; comment character - (modify-syntax-entry ?\; "." SAS-syntax-table) - (modify-syntax-entry ?_ "w" SAS-syntax-table) - (modify-syntax-entry ?< "." SAS-syntax-table) - (modify-syntax-entry ?> "." SAS-syntax-table) - (modify-syntax-entry ?/ ". 14" SAS-syntax-table) ; comment character - (modify-syntax-entry ?. "w" SAS-syntax-table)) - -(require 'font-lock); fontification also works in terminals! -;; (if (or window-system -;; noninteractive) ; compilation! -;;; ... - - -(defvar SAS-mode-font-lock-defaults - (if ess-sas-run-regexp-opt - (list - ;; .log NOTE: messages - (cons "^NOTE [0-9]+-[0-9]+: Line generated by the invoked macro" - font-lock-comment-face) - (cons "^NOTE: .*$" font-lock-comment-face) - (cons "^ [^ @].*[.]$" font-lock-comment-face) - (cons "^ [a-z].*[a-z][ ]?$" font-lock-comment-face) - (cons "^ Engine:[ ]+V.+$" font-lock-comment-face) - (cons "^ Physical Name:[ ]+.+$" font-lock-comment-face) - (cons "^ \\(cpu\\|real\\) time[ ]+[0-9].*$" - font-lock-comment-face) - (cons "^ decimal may be shifted by the" - font-lock-comment-face) - (cons "^NOTE: The infile " font-lock-comment-face) - (cons "^NOTE: 1 record was read from the infile " - font-lock-comment-face) - (cons "^NOTE: [1-9][0-9]* records were read from the infile " - font-lock-comment-face) - (cons "^ Filename=.*,$" font-lock-comment-face) - (cons "^ File Name=.*,$" font-lock-comment-face) - (cons "^ File $" font-lock-comment-face) - (cons "^ Name=.*,$" font-lock-comment-face) - (cons "^ File List=(" font-lock-comment-face) - (cons "^ List=(" font-lock-comment-face) - (cons "^ Owner Name=.*,$" font-lock-comment-face) - (cons "^ Access Permission=.*,$" font-lock-comment-face) - (cons "^ Last Modified=.*,?$" font-lock-comment-face) - (cons "^ File Size (bytes)=[0-9]+$" font-lock-comment-face) - (cons "^ Pipe command=" font-lock-comment-face) - (cons "^NOTE: The file " font-lock-comment-face) - (cons "^NOTE: 1 record was written to the file " - font-lock-comment-face) - (cons "^NOTE: [1-9][0-9]* records were written to the file " - font-lock-comment-face) - (cons "^NOTE: PROC LOGISTIC is modeling the probability that" - font-lock-comment-face) - (cons "^NOTE: PROC GENMOD is modeling the probability that" - font-lock-comment-face) - (cons "^1[ ]+The SAS System.*$" font-lock-comment-face) - (cons "^\014.*$" font-lock-comment-face) - (cons "[*][*][*] ANNOTATE macros are now available [*][*][*]" - font-lock-comment-face) - (cons "For further information on ANNOTATE macros, enter," - font-lock-comment-face) - ;; (cons "^SAS/STAT 9.3_M1, SAS/ETS 9.3_M1, SAS/OR 9.3_M1" - ;; font-lock-comment-face) - (cons "\\(or \\)?%HELPANO.*$" - font-lock-comment-face) - (cons "^Local Variables:$" font-lock-comment-face) - (cons "^End:$" font-lock-comment-face) - (cons "^MPRINT([_A-Z0-9]+)" font-lock-comment-face) - - ;; .log ERROR: messages - ; (cons "^ERROR\\( [0-9]+-[1-9][0-9][0-9]\\)?: .*$" - (cons "^ERROR\\( [0-9]+-[0-9]+\\)?: .*$" - font-lock-keyword-face) - ; ERROR: - (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" - font-lock-keyword-face) - ; ERROR #-###: - (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" - font-lock-keyword-face) - ; ERROR ##-###: - (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" - font-lock-keyword-face) - ; ERROR ###-###: - (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" - font-lock-keyword-face) - (cons "^ a format name." font-lock-keyword-face) - (cons "^ where a numeric operand is required. The condition was: " - font-lock-keyword-face) - (cons "[ ][_]+$" font-lock-keyword-face) - - ;; .log WARNING: messages - ;(cons "^WARNING\\( [0-9]+-[1-9][0-9][0-9]\\)?: .*$" - (cons "^WARNING\\( [0-9]+-[0-9]+\\)?: .*$" - font-lock-function-name-face) - ; WARNING: - (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" - font-lock-function-name-face) - ; WARNING #-###: - (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" - font-lock-function-name-face) - ; WARNING ##-###: - (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" - font-lock-function-name-face) - ; WARNING ###-###: - (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" - font-lock-function-name-face) - - ;; SAS comments - ;; /* */ style handled by grammar above - (cons "\\(^[0-9]*\\|[:;!]\\)[ \t]*%?\\*[^;/][^;]*;" - font-lock-comment-face) - - ; these over-rides need to come before the more general declarations - (cons "\\") - ; font-lock-keyword-face) - ; - ;; SAS base and SAS/Graph statements - (cons (concat ;"\\<" - (regexp-opt - '( - "do" "to" "by" "goto" ; "go" - "abort" "and" "array" "assess" "attrib" - "baseline" "bayes" "between" "bivar" "block" "bubble" "bubble2" - "change" "choro" "class" "contains" "contrast" - "delete" "display" "dm" "donut" "drop" - "else" "error" "exchange" "exclude" - "fcs" "file" "filename" "format" "freq" - "footnote" "footnote1" "footnote2" "footnote3" "footnote4" "footnote5" - "footnote6" "footnote7" "footnote8" "footnote9" "footnote10" - "goptions" "grid" ; "ge" "gt" - "hazardratio" "hbar" "hbar3d" - "id" "if" "index" "infile" "informat" "input" ; "is" rarely used, but common false pos. - "keep" - "label" "length" "libname" "like" "link" "lsmeans" ; "le" "lt" - "manova" "means" "merge" "missing" "model" "modify" - "not" "null" ; "ne" "note" - "ods" "options" "output" "otherwise" ; "or" - "pageby" "parms" "pie" "pie3d" "plot" "plot2" "prism" "put" - "random" "rename" "repeated" "retain" - "same" "save" "scatter" "select" "set" "skip" "star" "strata" "sum" "sumby" "surface" - "table" "tables" "test" "then" "time" - "title" "title1" "title2" "title3" "title4" "title5" - "title6" "title7" "title8" "title9" "title10" - "univar" "update" - "value" "var" "vbar" "vbar3d" - "weight" "where" "window" "with" - ; "x" - ) 'words)) ;"\\>") - font-lock-keyword-face) - - ;; SAS/GRAPH statements not handled above - (cons (concat "\\<" - (regexp-opt - '("axis" "legend" "pattern" "symbol")) "\\([1-9][0-9]?\\)?" - "\\>") - font-lock-keyword-face) - - ;; SAS functions and SAS macro functions - (cons "%[a-z_][a-z_0-9]*[(;]" font-lock-function-name-face) - ;(cons "\\" - "("); "[ \t]*(") - font-lock-function-name-face) - ) - (list - ;; .log NOTE: messages - (cons "^NOTE: .*$" font-lock-constant-face) - - ;; .log ERROR: messages - (cons "^ERROR: .*$" font-lock-keyword-face) - - ;; .log WARNING: messages - (cons "^WARNING: .*$" font-lock-function-name-face) - - ;; SAS comments - ;; /* */ handled by grammar above - ;; (list "/\\*.*\\*/" 0 font-lock-comment-face t) - (cons "\\(^[0-9]*\\|;\\)[ \t]*\\(%?\\*\\|comment\\).*\\(;\\|$\\)" font-lock-comment-face) - - ;; SAS execution blocks, DATA/RUN, PROC/RUN, SAS Macro Statements - (cons "\\<%do[ \t]*\\(%until\\|%while\\)?\\>" - font-lock-constant-face) - ;;(cons (concat "\\(^[0-9]*\\|;\\)[ \t]*" - ;;"%\\(end\\|global\\|local\\|m\\(acro\\|end\\)\\)" - ;;"\\>") font-lock-constant-face) - (cons "\\<%\\(end\\|global\\|local\\|m\\(acro\\|end\\)\\)\\>" - font-lock-constant-face) - - (cons (concat "\\(^[0-9]*\\|;\\|):\\|%then\\|%else\\)[ \t]*" - "\\(data\\|endsas\\|finish\\|quit\\|run\\|start\\)[ \t\n;]") - font-lock-constant-face) - (cons (concat "\\(^[0-9]*\\|;\\|):\\|%then\\|%else\\)[ \t]*" - ;;"proc[ \t]+[a-z][a-z_0-9]+") font-lock-constant-face) - "proc[ \t]+" - ;;SAS/Base, SAS/Graph, SAS/FSP and common add-ons - "\\(append" - "\\|b\\(genmod\\|lifereg\\|phreg\\)" - "\\|c\\(a\\(lendar\\|talog\\)\\|port\\|o\\(mpare\\|ntents\\|py\\|rr\\)\\)" - "\\|d\\(atasets\\|bcstab\\|isplay\\)\\|ex\\(plode\\|port\\)" - "\\|f\\(orm\\(at\\|s\\)\\|req\\|s\\(browse\\|edit\\|l\\(etter\\|ist\\)\\|view\\)\\)" - "\\|g?\\(chart\\|p\\(lot\\|rint\\)\\)" - "\\|g\\(anno\\|contour\\|device\\|font\\|\\(key\\)?map\\|options\\|project" - "\\|re\\(duce\\|move\\|play\\)\\|slide\\|testit\\|3\\(d\\|grid\\)\\)" - "\\|\\(map\\|[cg]\\)?import\\|i\\(ml\\|nsight\\)" - "\\|means\\|options\\|p\\(menu\\|rintto\\)" - "\\|r\\(ank\\|e\\(gistry\\|port\\)\\)" - "\\|s\\(ort\\|ql\\|tandard\\|ummary\\)" - "\\|t\\(abulate\\|emplate\\|imeplot\\|ran\\(spose\\|tab\\)\\)\\|univariate" - ;;SAS/Stat and SAS/ETS - "\\|a\\(ceclus\\|nova\\|rima\\|utoreg\\)\\|boxplot" - "\\|c\\(a\\(lis\\|n\\(corr\\|disc\\)\\|tmod\\)\\|itibase\\|luster\\|o\\(mputab\\|rresp\\)\\)" - "\\|discrim\\|expand\\|f\\(a\\(ctor\\|stclus\\)\\|orecast\\|req\\)" - "\\|g\\(enmod\\|l\\(immix\\|m\\(mod\\|power\\|select\\)?\\)\\)\\|inbreed\\|k\\(de\\|rige2d\\)" - "\\|l\\(attice\\|ife\\(reg\\|test\\)\\|o\\(ess\\|gistic\\)\\)" - "\\|m\\(ds\\|ixed\\|o\\(de\\(clus\\|l\\)\\|rtgage\\)\\|ulttest\\)" - "\\|n\\(ested\\|l\\(in\\|mixed\\)\\|par1way\\)\\|orthoreg" - "\\|p\\(dlreg\\|hreg\\|l\\(an\\|s\\)\\|ower\\|r\\(in\\(comp\\|qual\\)\\|obit\\)\\)\\|r\\(sr\\)?eg" - "\\|s\\(core\\|im\\(2d\\|lin\\)\\|pectra\\|t\\(atespace\\|dize\\|epdisc\\)\\|urvey\\(means\\|reg\\|select\\)\\|yslin\\)" - "\\|t\\(phreg\\|pspline\\|r\\(ansreg\\|ee\\)\\|test\\)" - "\\|var\\(clus\\|comp\\|iogram\\)\\|x11" - "\\)") font-lock-constant-face) - - ;;(cons (concat "\\(^[0-9]*\\|;\\|%then\\|%else\\)[ \t]*" - ;;"\\(%\\(go[ \t]*to\\|i\\(f\\|n\\(clude\\|put\\)\\)\\|let\\|put\\|sysexec\\)\\)" - ;;"\\>") font-lock-constant-face) - (cons "\\<%\\(go[ \t]*to\\|i\\(f\\|n\\(clude\\|put\\)\\)\\|let\\|put\\|sysexec\\)\\>" - font-lock-constant-face) - - (cons "\\<%\\(by\\|else\\|t\\(o\\|hen\\)\\)\\>" - font-lock-constant-face) - - ;; SAS dataset options/PROC statements followed by an equal sign/left parentheses - - (cons (concat - "[ \t(,]" - "\\(attrib\\|by\\|compress\\|d\\(ata\\|rop\\)\\|f\\(irstobs\\|ormat\\)" - "\\|i\\(d\\|f\\|n\\)\\|ke\\(ep\\|y\\)\\|l\\(abel\\|ength\\)" - "\\|o\\(bs\\|rder\\|ut\\)\\|rename\\|s\\(ortedby\\|plit\\)" - "\\|var\\|where\\)" - "[ \t]*=") - font-lock-keyword-face) - (cons "\\<\\(in\\(:\\|dex[ \t]*=\\)?\\|until\\|wh\\(en\\|ile\\)\\)[ \t]*(" - font-lock-keyword-face) - - ;; SAS statements - (cons (concat - "\\(^[0-9]*\\|):\\|[;,]\\|then\\|else\\)[ \t]*" - "\\(a\\(bort\\|rray\\|ttrib\\)\\|b\\(ayes\\|y\\)" - "\\|c\\(hange\\|lass\\|ontrast\\)" - "\\|d\\(elete\\|isplay\\|m\\|o\\([ \t]+\\(data\\|over\\)\\)?\\|rop\\)" - "\\|e\\(rror\\|stimate\\|xc\\(hange\\|lude\\)\\)" - "\\|f\\(ile\\(name\\)?\\|o\\(otnote\\(10?\\|[2-9]\\)?\\|rmat\\)\\|req\\)" - "\\|go\\([ \t]*to\\|ptions\\)" - "\\|hazardratio\\|[hv]bar\\(3d\\)?" - "\\|i\\(d\\|f\\|n\\(dex\\|f\\(ile\\|ormat\\)\\|put\\|value\\)\\)" - "\\|keep\\|l\\(abel\\|ength\\|i\\(bname\\|nk\\|st\\)\\|smeans\\)" - "\\|m\\(anova\\|e\\(ans\\|rge\\)\\|issing\\|od\\(el\\|ify\\)\\)\\|note" - "\\|o\\(ds\\|ptions\\|therwise\\|utput\\)\\|p\\(arms\\|lot2?\\|ut\\)" - "\\|r\\(andom\\|e\\(name\\|peated\\|tain\\)\\)" - "\\|s\\(ave\\|e\\(lect\\|t\\)\\|kip\\|trata\\|um\\(by\\)?\\)" - "\\|t\\(ables?\\|i\\(me\\|tle\\(10?\\|[2-9]\\)?\\)\\)\\|update" - "\\|va\\(lue\\|r\\)\\|w\\(eight\\|here\\|i\\(ndow\\|th\\)\\)" - - ;; IML statements that are not also SAS statements - "\\|append\\|c\\(lose\\(file\\)?\\|reate\\)\\|edit\\|f\\(ind\\|orce\\|ree\\)" - "\\|insert\\|load\\|mattrib\\|p\\(a[ru]se\\|rint\\|urge\\)" - "\\|re\\(move\\|peat\\|place\\|set\\|sume\\)" - "\\|s\\(et\\(in\\|out\\)\\|how\\|ort\\|tore\\|ummary\\)\\|use\\)?" - - "\\>") font-lock-keyword-face) - - - - ;; (cons "\\<\\(\\(then\\|else\\)[ \t]*\\)?\\(do\\([ \t]*over\\)?\\|else\\)\\>" - ;; font-lock-keyword-face) - - ;; SAS statements that must be followed by a semi-colon - (cons (concat - "\\(^[0-9]*\\|):\\|[;,]\\|then\\|else\\)[ \t]*" - "\\(cards4?\\|datalines\\|end\\|l\\(ostcard\\)\\|page\\|stop\\)?" - "[ \t]*;") font-lock-keyword-face) - - ;; SAS/GRAPH statements not handled above - (cons (concat - "\\(^[0-9]*\\|):\\|[;,]\\)[ \t]*" - "\\(axis\\|legend\\|pattern\\|symbol\\)" - "\\([1-9][0-9]?\\)?\\>") font-lock-keyword-face) - - ;; SAS Datastep functions and SAS macro functions - ;(cons "%[a-z_][a-z_0-9]*[ \t]*[(;]" - ;; SAS macro functions occasionally defined with no arguments - ;; which means they can be followed by any character that can - ;; separate tokens, however, they are most likely to be followed - ;; by operat-ions/ors - (cons "%[a-z_][a-z_0-9]*[- \t();,+*/=<>]" - font-lock-function-name-face) - (cons "\\ (- (point-max) pos) (point)) - (goto-char (- (point-max) pos))))) - - -;;(defun sas-indent-region (start end) -;; "Indent a region of SAS code." -;; (interactive "r") -;; (save-excursion -;; (let ((endmark (copy-marker end))) -;; (goto-char start) -;; (and (bolp) (not (eolp)) -;; (sas-indent-line)) -;; (indent-sexp endmark) -;; (set-marker endmark nil)))) - - -(defun indent-sas-statement (arg) - "Indent all continuation lines sas-indent-width spaces from first -line of statement." - (interactive "p") - (let (end) - (save-excursion - (if (> arg 0) - (while (and (> arg 0) (search-forward ";" (point-max) 1 1)) - (setq end (point)) - (if (bobp) nil (backward-char 1)) - (beginning-of-sas-statement 1) - (forward-char 1) - (indent-region (point) - end - (+ (current-column) (1- sas-indent-width))) - (search-forward ";" (point-max) 1 1) - (setq arg (1- arg))))))) - -;; added 9/31/94 -(defun sas-next-statement-indentation () - "Returns the correct indentation of the next sas statement. -The current version assumes that point is at the end of the statement. -This will (hopefully) be fixed in later versions." - (if (bobp) 0 - (save-excursion - (let ((prev-end (point))) - (beginning-of-sas-statement 1) - (while (and (not (bobp)) - (not (looking-at "*/")) - (looking-at sas-indent-ignore-comment)) - (skip-chars-backward sas-white-chars) - (if (bobp) nil - (backward-char 1)) - (setq prev-end (point)) - (beginning-of-sas-statement 1 t)) - (if (or - (looking-at - (concat "data[ \n\t;]\\|" - (regexp-opt '("cards;" "cards4;" "datalines;" "datalines4;" "lines;" "lines4;")) - "\\|proc[ \n\t]\\|%?do[ \n\t;]\\|%macro[ \n\t]\\|/\\*")) - (save-excursion - (re-search-forward - "\\b%?then\\>[ \n\t]*\\b%?do\\>\\|\\b%?else\\>[ \n\t]*\\b%?do\\>" - prev-end 1 1))) ; fixed 1/30/95 to avoid being fooled by - ; variable names starting with "do" - (+ (current-indentation) sas-indent-width) - (if (looking-at "%?end[ ;\n]\\|%mend[ ;\n]\\|\\*/") - (max (- (current-indentation) sas-indent-width) 0) - (current-indentation))))))) - -;; added 2/1/95 -(defun sas-comment-start-col () - "If the current line is inside a /* */ comment, returns column in which the -opening /* appears. returns 0 otherwise." - (let ((pos (point))) - (save-excursion - (if (and (search-backward "*/" (point-min) 1 1) - (search-forward "/*" pos 1 1)) - (current-indentation) - 0)))) - - -;; Created 6/27/94 to verify that RUN; statements match PROC and DATA -;; statements. Useful since indentation my be goofy w/o "RUN;" -(defun sas-check-run-statements () - "Check to see that \"run\" statements are matched with proc, data statements." - (interactive) - (let (pos - (ok t) - (eob-ok t)) - (save-excursion - (beginning-of-line) - (while ok - (if (re-search-forward - "\\(^[ \t]*run[ ;]\\)\\|\\(^[ \t]*proc \\|^[ \t]*data[ ;]\\)" - nil 1) - (if (match-beginning 2) - (if (re-search-forward - "\\(^[ \t]*run[ ;]\\)\\|\\(^[ \t]*proc \\|^[ \t]*data[ ;]\\)" - nil t) - (progn (setq pos (point)) - (setq ok (match-beginning 1))) - (setq eob-ok nil pos (point-max)))) - (setq ok nil))) - (setq ok (eobp))) - (if (and ok eob-ok) (message "Run statements match") - (goto-char pos) - (beep) - (message "Missing Run Statement.")))) - -(defun sas-fix-life-tables () - "Remove censored and duplicate observations from life tables generated by -Proc Lifetest. Operates on current region. A major space saver if there is -heavy censoring." - (interactive) - (if buffer-read-only (setq buffer-read-only nil)) - (goto-char (point-min)) - (while (re-search-forward "^.*[ ]+[.][ ]+[.][ ]+[.][ ]+.*$" nil t) - (replace-match "" nil nil))) - ; (save-excursion - ; (shell-command-on-region - ; start end - ; "sed '/[ ][.][ ]/d'" t))) -;;"sed \"\\? *\\. *\\. *\\. ?d\"" t))) -;;(vip-goto-line 1) -;;(setq ex-g-flag nil -;;ex-g-variant nil) -;;(vip-ex "1,$g/ \\. \\. \\. /d"))) - -(defun sas-fix-page-numbers (offset &optional page-num) - "Fix number of current page in sas output files after editing. Add -OFFSET to actual page number." - (interactive "P") - (if (not offset) (setq offset 0)) - (if (not page-num) (setq page-num (sas-page-number))) - (save-excursion - (if (/= (preceding-char) ?\C-l) (backward-page 1)) - (let (end len mstart mend) - (save-excursion - (forward-line sas-page-number-max-line) - (setq end (point))) - (if (re-search-forward - "\\(^[0-9]+[ ]\\)\\|\\([ ][0-9]+$\\)" - end t) - (progn (setq len (- (match-end 0) (match-beginning 0)) - mstart (match-beginning 0) - mend (match-end 0)) - (delete-region mstart mend) - (if (eolp) - (insert (format - (concat "%" len "d") (+ page-num offset))) - (insert (substring - (concat (+ (sas-page-number) offset) " ") - 0 len)))))))) - -(defun sas-page-fix (start) - "Fix page numbers in sas output from point to end of file. -If START is given this will be the number for the current page." - (interactive "P") - (let (offset (pnum (sas-page-number))) - (if (not start) (setq offset 0) - (setq offset (- start pnum))) - (while (not (eobp)) - (sas-fix-page-numbers offset pnum) - (setq pnum (1+ pnum)) - (forward-page 1)))) - -(defun fix-page-breaks () - "Fix page breaks in SAS 6 print files." - (interactive) - (save-excursion - (goto-char (point-min)) - (if (looking-at "\f") (delete-char 1)) - ;(replace-regexp "^\\(.+\\)\f" "\\1\n\f\n") - (while (re-search-forward "^\\(.+\\)\f" nil t) - (replace-match "\\1\n\f\n" nil nil)) - (goto-char (point-min)) - ;(replace-regexp "^\f\\(.+\\)" "\f\n\\1") - (while (re-search-forward "^\f\\(.+\\)" nil t) - (replace-match "\f\n\\1" nil nil)) - ; (goto-char (point-min)) - ;(replace-regexp " $" "") - ;(while (re-search-forward "$" nil t) - ; (replace-match "" nil nil)) - (goto-char (point-min)) - ;(replace-regexp " \\([^\\$]+\\)" "\n\\1") - (while (re-search-forward " \\([^\\$]+\\)" nil t) - (replace-match "\n\\1" nil nil)) - (goto-char (point-max)) - (if (not (bobp)) - (progn (backward-char 1) - (if (not (looking-at "\n")) - (progn (forward-char 1) (open-line 1))))))) - -(defun sas-page-number () - ;; like what-page except it returns an integer page number - "Return page number of point in current buffer." - (let ((opoint (point))) (save-excursion - (goto-char (point-min)) - (1+ (sas-how-many page-delimiter opoint))))) - -(defun sas-how-many (regexp &optional end) - ;; a copy of `how-many' which returns an integer - ;; rather than a message - "Return number of matches for REGEXP following point." - (let ((count 0) opoint) - (save-excursion - (while (and (not (eobp)) - (progn (setq opoint (point)) - (re-search-forward regexp end t))) - (if (= opoint (point)) - (forward-char 1) - (setq count (1+ count)))) - count))) - -(defun beginning-of-sas-proc () - "Move point to beginning of sas proc, macro or data step." - (interactive) - (let ((case-fold-search t)) - (forward-char -1) - (while (not (or (looking-at "data\\|proc\\|%macro") - (bobp))) - (re-search-backward "proc\\|data\\|%macro" (point-min) 1) - (beginning-of-sas-statement 1)))) - -(defun next-sas-proc (arg) - "Move point to beginning of next sas proc." - (interactive "P") - (let ((case-fold-search t)) - (forward-char 1) - (if (re-search-forward - "^[ \t]*\\(data[ ;]\\|proc[ ;]\\|endsas[ ;]\\|g?options[ ;]\\|%macro[ ;]\\)" - nil t arg) - (beginning-of-sas-statement 1) - (forward-char -1)))) - -(defun set-sas-file-name () - "Stores the name of the current sas file." - (let ((name (buffer-file-name))) - (cond ((not name)) - ((string-match (substring name -4 nil) - "\\.sas\\|\\.lst\\|\\.log") - - (setq sas-file-name (substring name 0 (- (length name) 4))) - (setq sas-buffer-name (buffer-name)) - (setq sas-file-root (substring sas-buffer-name 0 - (- (length sas-buffer-name) 4)))) - (t (message "This file does not have a standard suffix"))))) - -;; created 6/27/94 -(defun sas-set-alternate-file-name (name) - "Stores the NAME of an alternate sas file. -When this file is submitted with `submit-sas', the alternate file will -be submitted instead. `sas-submitable' is automatically sets to t." - (interactive "f") - (cond ((string-match (substring name -4 nil) - "\\.sas\\|\\.lst\\|\\.log") - (setq sas-file-name (substring name 0 (- (length name) 4))) - (setq sas-submitable t)) - (t (message "This file does not have a standard suffix")))) - -(defun switch-to-sas-source () - "Switches to sas source file associated with the current file." - (interactive) - (switch-to-sas-file "sas")) - -(defun switch-to-sas-lst () - "Switches to sas source file associated with the current file." - (interactive) - (switch-to-sas-file "lst")) - -(defun switch-to-sas-log () - "Switches to sas source file associated with the current file." - (interactive) - (switch-to-sas-file "log")) - -(defun switch-to-sas-source-other-window () - "Switches to sas source file associated with the current file." - (interactive) - (switch-to-sas-file-other-window "sas")) - -(defun switch-to-sas-lst-other-window () - "Switches to sas source file associated with the current file." - (interactive) - (switch-to-sas-file-other-window "lst")) - -(defun switch-to-sas-log-other-window () - "Switches to sas source file associated with the current file." - (interactive) - (switch-to-sas-file-other-window "log")) - -;;(defun switch-to-sas-file (suff &optional revert silent) -;; "Switches to sas \"SUFF\" file associated with the current file" -;; (let* ((sfile sas-file-name) -;; (buf (get-file-buffer (concat sfile "." suff))) -;; (sas-require-confirmation -;; (and sas-require-confirmation (not revert)))) -;; (if (or sas-require-confirmation (string-equal suff "sas") (not buf)) -;; (find-file (concat sfile "." suff)) -;; (progn (switch-to-buffer buf) -;; (if (not (verify-visited-file-modtime (current-buffer))) -;; (progn (revert-buffer t t) -;; (if (not silent) -;; (message "File has changed on disk. Buffer automatically updated.")))))) -;; (setq sas-file-name sfile)) -;; (if (string-equal suff "sas") -;; (if (not (string-equal major-mode "sas-mode")) -;; (sas-mode)) -;; (if (not (string-equal major-mode "sasl-mode")) -;; (sasl-mode)))) -;; -;;(defun switch-to-sas-file-other-window (suff) -;; "Switches to sas \"SUFF\" file associated with the current file" -;; (let* ((sfile sas-file-name) -;; (buf (get-file-buffer (concat sfile "." suff)))) -;; (if (or sas-require-confirmation (string-equal suff "sas") (not buf)) -;; (find-file-other-window (concat sfile "." suff)) -;; (progn (switch-to-buffer-other-window buf) -;; (if (not (verify-visited-file-modtime (current-buffer))) -;; (progn (revert-buffer t t) -;; (message "File has changed on disk. Buffer automatically updated."))))) -;; (setq sas-file-name sfile)) -;; (if (string-equal suff "sas") -;; (if (not (string-equal major-mode "sas-mode")) -;; ;;(sas-mode) -;; ) -;; (if (not (string-equal major-mode "sasl-mode")) -;; ;;(sasl-mode) -;; ))) - -(defun switch-to-sas-file (suff) - "Switches to sas \"SUFF\" file associated with the current file." - (switch-to-buffer (set-sas-file-buffer suff))) - -(defun switch-to-sas-file-other-window (suff) - "Switches to sas \"SUFF\" file associated with the current file." - (switch-to-buffer-other-window (set-sas-file-buffer suff))) - -;; The following was created 6/7/94 to handle buffers without messing up -;; windows. - -(defun set-sas-file-buffer (suff &optional revert silent) - "Sets current buffer to sas \"SUFF\" file associated with the current file." - (let* ((sfile sas-file-name) - (buf (get-file-buffer (concat sfile "." suff))) - (sas-require-confirmation - (and sas-require-confirmation (not revert)))) - (if (or sas-require-confirmation (string-equal suff "sas") (not buf)) - (set-buffer (find-file-noselect (concat sfile "." suff))) - (progn (set-buffer buf) - (if (not (verify-visited-file-modtime (current-buffer))) - (progn (revert-buffer t t) - (if (not silent) - (message "File has changed on disk. Buffer automatically updated.")))))) - (setq sas-file-name sfile)) - ;;(if (string-equal suff "sas") - ;; (if (not (string-equal major-mode "sas-mode")) (sas-mode)) - ;; (if (not (string-equal major-mode "sasl-mode"))(sasl-mode)) - (current-buffer)) - -(defun switch-to-sas-process-buffer () - "Switch to sas-process-buffer." - (interactive) - (let (buf proc-name) - (setq proc-name (concat "SAS" sas-file-name) - buf (concat "*" proc-name "*")) - (switch-to-buffer-other-window buf))) - -(defun submit-sas () - ;; 6/17/94 added sas-submitable local variable. - "Submit SAS file as shell command." - (interactive) - (if ;; can file be run, or is it only for inclusion? - (or sas-submitable - (progn - (beep) - (y-or-n-p - (format - "Submission is disabled for this file. Submit it anyway? ")))) - (progn - ;; if buffer name has changed, tell user - (if (or - (string-equal sas-buffer-name (buffer-name)) - (not - (y-or-n-p - (format - "The name of this buffer has changed. Submit the new file? ")))) - (setq sas-buffer-name (buffer-name)) - (set-sas-file-name)) - (let ((sas-file sas-file-name) - (sas-root sas-file-root) - ;;(sas-buf sas-buffer-name) - proc-name - buf) - - ;; Save buffer to SAS the right file :-). - (if (buffer-modified-p) - (if (y-or-n-p (format "Buffer %s is modified. Save it? " - (buffer-name))) - (save-buffer))) - (setq proc-name (concat "SAS" sas-file) - buf (concat "*" proc-name "*")) - (if (get-buffer buf) - (save-window-excursion (switch-to-buffer buf) - (erase-buffer) - (setq default-directory - (file-name-directory sas-file)))) - - (run-hooks 'sas-pre-run-hook) ;; added 8/24/94 - (message "---- Submitting SAS job ----") - ;; (switch-to-buffer buf) - (make-comint proc-name - sas-program ;added sas-program 4/29/94 - nil - sas-root) - (save-window-excursion - (switch-to-buffer buf) - (setq sas-file-name sas-file) - (bury-buffer buf)) - - (message "---- SAS job submitted ---- ") - - (if sas-notify;; added 4/7/94 - (set-process-sentinel (get-process proc-name) 'sas-sentinel) - (display-buffer buf t)))) - (message "---- File not submitted ----"))) - -;; 5/2/94 Modified sas-sentinel to check for errors in log file upon -;; completion. -(defun sas-sentinel (proc arg);; created 4/7/94 - "Notify user that SAS run is done." - (beep) - ;;(if (string-equal arg "finished\n") - (save-excursion - (let (msg buf win (sbuf (concat "*" (process-name proc) "*"))) - (setq msg - (format "SAS %s %s" - (substring arg 0 -1) - (if sas-error-notify - ;;(save-window-excursion - (progn - (set-buffer sbuf) - (setq buf (set-sas-file-buffer "log" t t)) - (goto-char (point-min)) - (setq win (get-buffer-window buf)) - (save-window-excursion - (if win - (progn - (select-window win) - (if (re-search-forward "^ERROR" nil t) - " (See .log file for errors)" - "")) - (switch-to-buffer buf) - (if (re-search-forward "^ERROR" nil t) - " (See .log file for errors)" - "")))) - ""))) - (set-buffer sbuf) - (goto-char (point-max)) - (insert msg) - (bury-buffer (get-buffer sbuf)) - ;;(if (and sas-notify-popup window-system) - ;; (x-popup-dialog t - ;; (list "SAS Menu" (cons msg nil) ))) - ;;(if (not (minibuffer-window-active-p)) (princ msg)) - (princ msg)))) - -;; 5/2/94 Modified run-sas-on-region to separate log and output buffers. -;; -;;(defun run-sas-on-region (start end append &optional buffer) -;; "Submit region to SAS" -;; (interactive "r\nP") -;; (message "---- Running SAS ----") -;; (let ((sfile sas-file-name) -;; (shell-file-name "/bin/sh") -;; serror buff) -;; (setq buffer (or buffer "*SAS output*")) -;; (save-excursion -;; (shell-command-on-region -;; start end;; added sas-program -;; (concat sas-program " -nonews -stdio 2> /tmp/_temp_.log" nil)) -;; (get-buffer-create "*SAS Log*") -;; (save-window-excursion -;; (switch-to-buffer "*SAS Log*") -;; (erase-buffer) -;; (insert-file-contents "/tmp/_temp_.log") -;; (delete-file "/tmp/_temp_.log") -;; (setq serror (re-search-forward "^ERROR" nil t)) -;; (if serror () (bury-buffer))) -;; (setq buff (get-buffer-create buffer)) -;; (save-window-excursion -;; (switch-to-buffer buff) -;; (setq sas-file-name sfile) -;; (if append -;; (progn -;; (end-of-buffer) -;; (insert "\f\n")) -;; (erase-buffer)) -;; (if (get-buffer "*Shell Command Output*") -;; (progn (insert-buffer "*Shell Command Output*") -;; (kill-buffer "*Shell Command Output*")) -;; (insert "SAS completed with no output.")) -;; (if append () (sasl-mode)) -;; (message "---- SAS Complete ----"))) -;; (if (not serror) -;; (switch-to-buffer-other-window buff) -;; (switch-to-buffer-other-window "*SAS Log*") -;; (goto-char serror) -;; (beep) -;; (message "Error found in log file.") -;; ))) - -(defun switch-to-dataset-log-buffer () - "Switch to log buffer for run-sas-on-region." - (interactive) - (switch-to-buffer-other-window "*SAS Log*")) - -(defun switch-to-dataset-source-buffer () - "Switch to source buffer for run-sas-on-region." - (interactive) - (switch-to-buffer-other-window (format " *sas-tmp-%s*" sas-dataset))) - -;;(defun sas-get-dataset (filename &optional arg opts-p append buffer vars) -;; "Run proc contents and proc print on SAS dataset. Automatically prompts -;;for SAS options to use. Default options are defined by the variable -;;`sas-get-options'. Output may be updated from within output buffer with -;;C-cr if dataset changes. Also, the source code which generates the output -;;may be edited with C-cs. Typing C-cr within the output buffer reexecutes -;;the (modified) source code." -;; (interactive "fName of SAS dataset (file name):") -;; (let ((file (file-name-nondirectory filename)) -;; (dir (file-name-directory filename)) -;; (opts sas-get-options) -;; (minibuffer-history sas-get-options-history) -;; buf); fsize) -;; (setq buffer (or buffer (concat "*" file "*"))) -;; (setq opts (if opts-p opts (read-string "SAS options: " opts))) -;; (setq sas-get-options-history minibuffer-history) -;; (cond ((string-match (substring file -6 nil) "\\.ssd01") -;; (setq file (substring file 0 (- (length file) 6)))) -;; (t (error "This file is not a SAS dataset."))) -;; (setq buf (format " *sas-tmp-%s*" file)) -;; (get-buffer-create buf) -;; (save-window-excursion -;; (switch-to-buffer buf) -;; (erase-buffer) -;; (setq default-directory dir) -;; (if opts -;; (insert (format "options %s ;\n" opts))) -;; (insert (format "title \"Contents of SAS dataset `%s'\" ;\n" file)) -;; (insert (format "libname %s '%s' ;\n" sas-tmp-libname dir)) -;; (if (not (equal arg 1)) -;; (insert (format "proc contents data = %s.%s ;\n" sas-tmp-libname file))) -;; (if (equal arg 2) () -;; (insert (format "proc print data = %s.%s ;\n" sas-tmp-libname file)) -;; (if vars (insert (format " var %s ;\n" vars)))) -;; (run-sas-on-region (point-min) (point-max) append -;; buffer) -;; (get-buffer buffer) -;; (if append () (sasd-mode)) ;; added 5/5/94 -;; (setq sas-dataset file)) -;; (if (get-buffer-window buffer t) -;; (raise-frame (window-frame (get-buffer-window buffer t))) -;; (display-buffer buffer (not append))) -;; )) - -;;(defun revert-sas-dataset () -;; "Revert current sas dataset from disk version" -;; (interactive) -;; (let* ((file sas-dataset) -;; (buf (format " *sas-tmp-%s*" file)) -;; (pos (point))) -;; (save-window-excursion -;; (switch-to-buffer buf) -;; (run-sas-on-region (point-min) (point-max) nil -;; (concat "*" file ".ssd01*")) -;; ) -;; (goto-char pos) ;; added 6/9/94 -;; (sasd-mode) ;; added 5/5/94 -;; (setq sas-dataset file))) - -(defun sas-insert-local-variables () ;; created 6/17/94 - "Add local variables code to end of sas source file." - (interactive) - (save-excursion - (if (re-search-forward "* *Local Variables: *;" nil t) - () - (goto-char (point-max)) - (insert " - -** Local Variables: ; -** End: ; -page ; -")))) - - - -;;-*-emacs-lisp-*- -;;; file name: sas-data.el -;;; -;;; Version 1.0 -;;; -;;; sas-data-mode: manage sas datasets -;;; Copyright (C) 1994 Tom Cook -;;; -;;; This program 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 of the License, or -;;; (at your option) any later version. -;;; -;;; This program 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 -;;; https://www.r-project.org/Licenses/ -;;; -;;; Author: Tom Cook -;;; Dept. of Biostatistics -;;; University of Wisconsin - Madison -;;; Madison, WI 53706 -;;; cook@biostat.wisc.edu -;; Created: 8/11/94 - -;; variables section -(defvar sas-dir-mode-map nil) -(defvar sas-directory-name nil - "Name of directory associated with this buffer.") -(make-variable-buffer-local 'sas-directory-name) -(defvar sas-dir-buf-end nil) -(make-variable-buffer-local 'sas-dir-buf-end) -(defvar sas-sorted-by-num nil) -(make-variable-buffer-local 'sas-sorted-by-num) -;; user variables - -;; keymaps etc... - -(if sas-dir-mode-map () - (setq sas-dir-mode-map (make-sparse-keymap)) - ;;(define-key sas-dir-mode-map "c" 'sas-contents) - (define-key sas-dir-mode-map "p" 'sas-print) - (define-key sas-dir-mode-map "m" 'sas-mark-item) - (define-key sas-dir-mode-map "u" 'sas-unmark-item) - (define-key sas-dir-mode-map " " 'sas-next-line) - (define-key sas-dir-mode-map "\C-n" 'sas-next-line) - (define-key sas-dir-mode-map "\C-p" 'sas-prev-line) - (define-key sas-dir-mode-map "\177" 'sas-prev-line-undo) - (define-key sas-dir-mode-map "\C-b" 'sas-backward-page-narrow) - (define-key sas-dir-mode-map "\C-v" 'sas-forward-page-narrow) - (define-key sas-dir-mode-map "\C-m" 'sas-goto-dataset) - (define-key sas-dir-mode-map [mouse-2] 'sas-mouse-goto-dataset) - (define-key sas-dir-mode-map "t" 'sas-dir-goto-page) - (define-key sas-dir-mode-map "q" 'bury-buffer) - (define-key sas-dir-mode-map "g" 'sas-revert-library) - (define-key sas-dir-mode-map "1" 'digit-argument) - (define-key sas-dir-mode-map "2" 'digit-argument) - (define-key sas-dir-mode-map "3" 'digit-argument) - (define-key sas-dir-mode-map "4" 'digit-argument) - (define-key sas-dir-mode-map "5" 'digit-argument) - (define-key sas-dir-mode-map "6" 'digit-argument) - (define-key sas-dir-mode-map "7" 'digit-argument) - (define-key sas-dir-mode-map "8" 'digit-argument) - (define-key sas-dir-mode-map "9" 'digit-argument) - (define-key sas-dir-mode-map [menu-bar sas run] - '("Submit File " . submit-sas)) - ) - - ;(require 'sas) - -(defun sas-dir-mode () - "Major mode for managing sas files." - (interactive) - (kill-all-local-variables) - (use-local-map sas-dir-mode-map) - (setq major-mode 'sas-dir-mode) - (setq mode-name "SAS") - (setq sas-directory-name (expand-file-name default-directory)) - (setq buffer-read-only 1)) - - -;;(defun sas-make-library (directory &optional update) -;; "Create a buffer with the names of all sas datasets from DIRECTORY." -;; (interactive "DDirectory Name: ") -;; (let ((dir (expand-file-name directory)) buf out cont pos) -;; (setq buf (format " *sas-tmp-%s*" dir)) -;; (setq out (concat "*SAS-dir-" dir)) -;; (setq cont (concat "*SAS-cont-" dir)) -;; (get-buffer-create buf) -;; (if (get-buffer out) -;; (if update -;; (progn -;; (set-buffer out) -;; (setq buffer-read-only nil))) -;; (setq update t)) -;; (pop-to-buffer out) -;; (setq default-directory dir) -;; (setq pos (point)) -;; (if update -;; (progn -;; (save-window-excursion -;; (set-buffer buf) -;; (erase-buffer) -;; (setq default-directory dir) -;; (insert "options linesize=70 pagesize=1000 ;\n") -;; (insert (format "title \"Contents of SAS directory `%s'\" ;\n" -;; dir)) -;; (insert (format "libname %s '%s' ;\n" sas-tmp-libname dir)) -;; (insert (format "proc contents data = %s._all_ directory details memtype=data ;\n" sas-tmp-libname)) -;; (run-sas-on-region (point-min) (point-max) nil -;; out) -;; (set-buffer out) -;; (goto-char (point-min)) -;; (if (= (sas-how-many page-delimiter (point-max)) 0) -;; (let ((buffer-read-only nil)) -;; (erase-buffer) -;; (insert "There are no SAS datasets in this directory") -;; (pop-to-buffer out)) -;; (save-excursion -;; (set-buffer (get-buffer-create cont)) -;; (setq buffer-read-only t) -;; (let ((buffer-read-only nil)) -;; (erase-buffer) -;; (insert-buffer out) -;; (delete-region (point-min) -;; (or (re-search-forward page-delimiter nil t) -;; (point-min))) -;; (sas-page-fix 1) -;; (goto-char (point-min)) -;; (sas-dir-mode) -;; (sas-narrow-to-page))) -;; (if (re-search-forward page-delimiter nil t) -;; (delete-region (progn (beginning-of-line) (point)) -;; (point-max))) -;; (sas-insert-set-properties (point-min) (point-max)) -;; ) -;; (switch-to-buffer out t) -;; (goto-char (point-min)) -;; (sas-dir-mode) -;; (setq sas-dir-buf-end (point-max))) -;; (goto-char pos) -;; (sas-move-to-filename (point-max)))))) - - -(defun sas-move-to-filename (&optional eol) - (or eol (setq eol (progn (end-of-line) (point)))) - (beginning-of-line) - (if (re-search-forward "\\(^ *[0-9]+ *<*\\)[^:0-9\n]" eol t) - (goto-char (match-end 1)))) - -(defun sas-next-line (arg) - "Move down one line." - (interactive "p") - (forward-line arg) - (sas-move-to-filename (point-max))) -;;(and (< (point) sas-dir-buf-end) -;;(forward-line arg) -;;(sas-move-to-filename sas-dir-buf-end))) - -(defun sas-prev-line (arg) - "Move up one line." - (interactive "p") - (beginning-of-line) - (re-search-backward "^ *[0-9]+ *<*[^:0-9\n]" (point-min) t) - (sas-move-to-filename sas-dir-buf-end)) - -(defun sas-insert-set-properties (beg end) - (save-excursion - (goto-char beg) - (while (< (point) end) - (if (sas-move-to-filename) - (put-text-property (point) - (+ 8 (point)) - 'mouse-face 'highlight)) - (forward-line 1)))) - -(defun sas-get-filename () - "Return name of dataset on current line." - (interactive) - (save-excursion - (if (string-equal "*SAS-dir" (substring (buffer-name) 0 8)) - (sas-move-to-filename) - (goto-char (point-min)) - (re-search-forward "Data Set Name: [^.]*\\.")) - (expand-file-name - (downcase (concat sas-directory-name - (buffer-substring - (point) - (save-excursion - (skip-chars-forward "A-Z0-9_") - (point))) ".ssd01"))))) - -(defun sas-get-file-number () - "Return name of dataset on current line." - (interactive) - (if (sas-move-to-filename) - (progn (forward-word -1) - (re-search-forward "[0-9]*") - (string-to-number - (buffer-substring (match-beginning 0) - (match-end 0)))))) - -;;(defun sas-contents () -;; "Run proc contents on current file." -;; (interactive) -;; (let ((buffer-read-only nil) (sas-get-options "linesize=70")) -;; (sas-get-dataset (sas-get-filename) 2 t t (buffer-name)) -;; (end-of-buffer) -;; (backward-page-top-of-window 1))) -;; -;;(defun sas-print () -;; "Run proc contents on current file." -;; (interactive) -;; (sas-get-dataset (sas-get-filename) 1 nil nil nil -;; (sas-create-var-string))) - -(defun sas-goto-page (arg) - "Goto top of page ARG. If no ARG, then goto top of file." - (interactive "P") - (goto-char 1) - (if arg - (if (> arg 1) - (progn - (re-search-forward page-delimiter (point-max) 1 (1- arg))))) - (skip-chars-forward sas-white-chars); was " \f\n" till 5.1.13 - (recenter 1)) - -(defun forward-page-top-of-window (arg) - "Move forward to page boundary and leave first line at top of window. -With arg, repeat, or go back if negative. A page boundary is any line -whose beginning matches the regexp `page-delimiter'." - (interactive "p") - (forward-page arg) - (recenter 0)) - -(defun backward-page-top-of-window (arg) - "Move backward to page boundary and leave first line at top of window. -With arg, repeat, or go back if negative. A page boundary is any line -whose beginning matches the regexp `page-delimiter'." - (interactive "p") - (forward-page (- arg)) - (recenter 0)) - -(defun sas-narrow-to-page () - (save-excursion - (let* ((min (point-min)) - (max (point-max))) - ;;(omin (point-min)) - ;;(omax (point-max))) - (if (or (bolp) (beginning-of-line) - (looking-at page-delimiter)) - (forward-char 1) - (forward-page -1)) - (setq min (point)) - (forward-page 1) - (beginning-of-line) - (setq max (point)) - (narrow-to-region min max)))) - -(defun sas-forward-page-narrow (arg) - "Move forward to page boundary and narrow to page. -With arg, repeat, or go back if negative. A page boundary is any line -whose beginning matches the regexp `page-delimiter'." - (interactive "p") - (widen) - (forward-page arg) - (sas-narrow-to-page) - (goto-char (point-min))) - -(defun sas-backward-page-narrow (arg) - "Move backward to page boundary and narrow to page. -With arg, repeat, or go back if negative. A page boundary is any line -whose beginning matches the regexp `page-delimiter'." - (interactive "p") - (goto-char (point-min)) - (widen) - (forward-page (- arg)) - (sas-narrow-to-page)) - -(defun sas-goto-dataset (&optional page) - (interactive) - (and sas-directory-name - (let ((page (or page (sas-get-file-number)))) - ;;(dir sas-directory-name)) - (if page - (progn - (switch-to-buffer-other-window - (concat "*SAS-cont-" sas-directory-name)) - (widen) - (sas-goto-page page) - (sas-narrow-to-page) - (goto-char (point-min))))))) - -;;(defun sas-mouse-goto-dataset (event) -;; (interactive "e") -;; (let (page buf) -;; (save-window-excursion -;; (save-excursion -;; (set-buffer (window-buffer (posn-window (event-end event)))) -;; (save-excursion -;; (goto-char (posn-point (event-end event))) -;; (setq page (sas-get-file-number))) -;; (sas-goto-dataset page) -;; (setq buf (buffer-name)))) -;; (set-buffer buf) -;; (goto-char (point-min)) -;; (display-buffer buf))) - - -(defun sas-dir-goto-page (page) - (interactive "p") - (widen) - (sas-goto-page page) - (sas-narrow-to-page)) - -(defun sas-mark-item (&optional next) - (interactive) - (sas-move-to-filename) - (beginning-of-line) - (let ((buffer-read-only nil)) - (if (re-search-forward "^\\( *[0-9]+ *\\) \\([A-Z][A-Z_0-9]*\\) " - (save-excursion (end-of-line) (point)) t) - (replace-match "\\1<\\2>"))) - (or next (sas-next-line 1))) - -(defun sas-unmark-item () - (interactive) - (save-excursion - (beginning-of-line) - (let ((buffer-read-only nil)) - (if (re-search-forward "^\\( *[0-9]+ *\\)<\\([A-Z][A-Z_0-9]*\\)>" - (save-excursion (end-of-line) (point)) t) - (replace-match "\\1 \\2 "))))) - -(defun sas-prev-line-undo (arg) - (interactive "p") - (sas-prev-line arg) - (sas-unmark-item) - (sas-move-to-filename)) - -(defun sas-create-var-string () - (and (string-equal "*SAS-cont" (substring (buffer-name) 0 9)) - (let (str) - (goto-char (point-min)) - (while - (re-search-forward "^\\( *[0-9]+ *\\)<\\([A-Z][A-Z_0-9]*\\)>" - nil t) - (setq str (concat str " " (buffer-substring (match-beginning 2) - (match-end 2))))) - str))) - - -(defun ess-imenu-SAS (&optional arg) - "SAS language Imenu support for ESS." - (interactive) - (setq imenu-generic-expression - '( (nil "[ \t\n=]\\([a-zA-Z_][a-zA-Z_0-9]*[.][a-zA-Z_][a-zA-Z_0-9]*\\)[ ,()\t\n;]" 1))) - (imenu-add-to-menubar "SAS Datasets")) - -;;(defun sas-revert-library () -;; "Update current library." -;; (interactive) -;; (if sas-directory-name -;; (sas-make-library sas-directory-name t))) - -(provide 'ess-sas-l) - -;;; ess-sas-l.el ends here diff --git a/elpa/ess-20181109.703/ess-site.el b/elpa/ess-20181109.703/ess-site.el deleted file mode 100644 index 7130a180..00000000 --- a/elpa/ess-20181109.703/ess-site.el +++ /dev/null @@ -1,141 +0,0 @@ -;;; ess-site.el --- user customization of ESS - -;; Copyright (C) 1993 David M. Smith -;; Copyright (C) 1997--2010 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. -;; Copyright (C) 2011--2018 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, Stephen Eglen, -;; Vitalie Spinu, and Lionel Henry. - -;; Author: David Smith -;; Created: 12 Nov 1993 -;; Maintainer: ESS-core -;; Keywords: local - -;; 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 -;; https://www.r-project.org/Licenses/ - - -;;; Commentary: - -;; This file defines all the site-specific customizations for ESS. It should be -;; edited on a per-site basis. Read the comments (1.1 in Section 1 to see if -;; ess-site.el must be edited. The final directory location of this file must be -;; supplied in ess-lisp-directory. The editing of remaining sections is -;; optional. It should then be byte-compiled, and users who wish to use ESS -;; should add the path to ess-site to their `load-path' and require it: -;; -;; (add-to-list 'load-path "/path/to/ess/lisp-directory");; -;; (require 'ess-site) - -;;; Code: - -;;;; Load path, autoloads, and major modes -;;;; ======================================== -;; -;; For most users the variable ess-lisp-directory will automatically -;; be set correctly. If you are working with an old emacs, one in -;; which file-truename is not defined, then you might need to change -;; the value of ess-lisp-directory to the directory which is to -;; contain the file ess-site.elc. This is probably the current -;; directory, or the value of LISPDIR if it was set in the Makefile. - -;; DEBUG: (setq ess-show-load-messages t); instead of nil above - -;; This sets `ess-lisp-directory' either from the current directory -;; when the file is being `load'ed, or from the installed location -;; otherwise. This way, users can load ESS without having added ESS to -;; `load-path'. -(defvar ess-lisp-directory - ;; A nice default - (directory-file-name - (file-name-directory - (if load-file-name - (file-truename load-file-name) - (locate-library "ess-site") ))) - "Directory containing ess-site.el(c) and other ESS Lisp files.") - -(defvar ess-etc-directory nil - "Location of the ESS etc/ directory. -The ESS etc directory stores various auxillary files that are useful -for ESS, such as icons.") - - -;; Depending on how ESS is loaded the `load-path' might not contain -;; the `lisp' directory. For this reason we need to add it before we -;; start requiring ESS files -(add-to-list 'load-path (file-name-as-directory ess-lisp-directory)) -;; Add ess-lisp-directory/obsolete to load-path; files here will -;; automatically warn that they are obsolete when loaded. -(add-to-list 'load-path (file-name-as-directory (expand-file-name "obsolete" ess-lisp-directory))) - -(require 'ess-utils) -(ess-write-to-dribble-buffer - (format "[ess-site:] ess-lisp-directory = '%s'" ess-lisp-directory)) - - -;; If ess.info is not found, then ess-lisp-directory/../doc/info is added -;; resurrecting Stephen's version with a bug-fix -(unless (locate-file "ess.info" Info-default-directory-list) - (add-to-list 'Info-default-directory-list (expand-file-name "../doc/info/" ess-lisp-directory))) - - -;;; Loading popular dialects (they should become optional in the future) - -;; R and Julia -(require 'ess-r-mode) - -(when (require 'julia-mode nil 'no-error) - (require 'ess-julia)) - -;; S-PLUS (MathSoft/StatSci/Insightful/TIBCO) -(require 'ess-sp3-d) -(if ess-microsoft-p - (require 'ess-sp6w-d) - (require 'ess-sp6-d)) - -;; S-elsewhere, on another machine by telnet -(require 'essd-els) - -;; Stata, SAS, BUGS, and JAGS -(require 'ess-stata-mode) -(require 'ess-sas-d) -(require 'ess-bugs-d) -(require 'ess-jags-d) - -(ess-write-to-dribble-buffer - (format "[ess-site.el]: ess-customize-alist=%s \n" - ess-customize-alist)) - -;;; Literate Data Analysis -(require 'ess-noweb) -(require 'ess-swv) - -(ess-write-to-dribble-buffer - (format "[ess-site.el _2_]: ess-customize-alist=%s \n" - ess-customize-alist)) - -;;; Speedbar and mouse -(require 'ess-mouse) - -;;; Toolbar support -(require 'ess-toolbar) - -(ess-write-to-dribble-buffer "[ess-site:] *very* end ...") - - -(provide 'ess-site) - -;;; ess-site.el ends here diff --git a/elpa/ess-20181109.703/ess-sp3-d.el b/elpa/ess-20181109.703/ess-sp3-d.el deleted file mode 100644 index a8438295..00000000 --- a/elpa/ess-20181109.703/ess-sp3-d.el +++ /dev/null @@ -1,85 +0,0 @@ -;;; ess-sp3-d.el --- S-PLUS 3.x customization - -;; Copyright (C) 1997--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 12 Jun 1997 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file defines all the S-PLUS 3.x customizations for ess-mode. - -;;; Code: - -(require 'ess-s-lang) -(require 'ess-trns) - -(defvar S+3-dialect-name "S+3" - "Name of 'dialect' for S-PLUS 3.x.");easily changeable in a user's .emacs - -(defvar S+3-customize-alist - (append - '((ess-local-customize-alist . 'S+3-customize-alist) - (ess-dialect . S+3-dialect-name) - (ess-object-name-db-file . "ess-s+3-namedb.el" ) - (inferior-ess-program . inferior-S+3-program) - (inferior-ess-help-command . "help(\"%s\", pager=\"cat\", window=FALSE)\n") - (inferior-ess-help-filetype . nil) - (inferior-ess-search-list-command . "search()\n") - (inferior-ess-start-file . nil) ;"~/.ess-S+3") - (inferior-ess-start-args . "") - (ess-STERM . "iESS") - ) - S+common-cust-alist) - - "Variables to customize for S+3.") - - -(defun S+3 (&optional proc-name) - "Call 'S-PLUS 3.x', the 'Real Thing' from StatSci." - (interactive) - (setq ess-customize-alist S+3-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(S+3): ess-dialect=%s, buf=%s\n" ess-dialect (current-buffer))) - (inferior-ess) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start))) - -(defun S+3-mode (&optional proc-name) - "Major mode for editing S+3 source. See `ess-mode' for more help." - (interactive) - (setq ess-customize-alist S+3-customize-alist) - (ess-mode S+3-customize-alist proc-name) - (if ess-imenu-use-S (ess-imenu-S))) - -(defun S+3-transcript-mode () - "S-PLUS 3.x transcript mode." - (interactive) - (ess-transcript-mode S+3-customize-alist)) - - - - ; Provide package - -(provide 'ess-sp3-d) - -;;; ess-sp3-d.el ends here diff --git a/elpa/ess-20181109.703/ess-sp4-d.el b/elpa/ess-20181109.703/ess-sp4-d.el deleted file mode 100644 index cf97e1ab..00000000 --- a/elpa/ess-20181109.703/ess-sp4-d.el +++ /dev/null @@ -1,419 +0,0 @@ -;;; ess-sp4-d.el --- S-PLUS 4.x customization - -;; Copyright (C) 1998--2002 Richard M. Heiberger -;; Copyright (C) 2003--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Richard M. Heiberger -;; Created: December 1998 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file defines all the S-PLUS 4.x customizations for ess-mode -;; with ddeclient. - -;;; Code: - -;;; Requires and Autoloads: - -(require 'ess-mode) -(require 'ess-inf) -(require 'ess-s-lang) -(require 'ess-dde) -(require 'ess-trns) - -(defvar ess-S+-startup-delay) - -(defvar S+4-dialect-name "S+4" - "Name of 'dialect' for S-PLUS 4.x.");easily changeable in a user's .emacs - -(defvar inferior-S+4-multipleinstances "/MULTIPLEINSTANCES" - "Default \"/MULTIPLEINSTANCES\" opens up a new instance of S+4 in a -GUI window and connects it to the '(ddeESS [S+4])' window. The -alternative nil uses an existing S+4 GUI (if there is one) and -connects it to the '(ddeESS [S+4])' window.") - -(defvar S+4-customize-alist - (append - '((ess-local-customize-alist . 'S+4-customize-alist) - (ess-dialect . S+4-dialect-name) - (ess-object-name-db-file . "ess-sp4-namedb.el" ) - (inferior-ess-program . inferior-S+4-program) - (inferior-ess-help-command . "help(\"%s\")\n") - (inferior-ess-help-filetype . "chm") - - (ess-send-region-function . #'ess-dde-send-region) - (ess-load-file-function . #'ess-dde-load-file) - (ess-command-function . #'ess-dde-command) - (ess-eval-linewise-function . #'ess-dde-eval-linewise) - (ess-dump-object-function . #'ess-dde-dump-object) - (ess-read-object-name-function . #'ess-dde-read-object-name) - (ess-find-help-file-function . #'ess-dde-find-help-file) - (ess-display-help-on-object-function . #'ess-chm-display-help-on-object) - - (inferior-ess-start-file . nil) ;"~/.ess-S+4") - (inferior-ess-start-args . (concat - inferior-S+4-multipleinstances " " - inferior-S+4-print-command - " S_PROJ=" - (directory-file-name default-directory))) - ;; (inferior-ess-ddeclient . "ddeclient") - ;; (inferior-ess-client-name . "S-PLUS") - ;; (inferior-ess-client-command . "SCommand") - (ess-STERM . "ddeESS") - ) - S+common-cust-alist) - - "Variables to customize for S+4") - -(defvar Sqpe+4-customize-alist - (append - '((ess-local-customize-alist . 'Sqpe+4-customize-alist) - (ess-dialect . S+4-dialect-name) - (ess-loop-timeout . 500000 );fixme: dialect specific custom.v - (ess-object-name-db-file . "ess-sp4-namedb.el" ) - (ess-display-help-on-object-function . #'ess-chm-display-help-on-object) - (inferior-ess-program . inferior-Sqpe+4-program) - (inferior-ess-help-command . "help(\"%s\")\n") - (inferior-ess-help-filetype . "chm") - (inferior-ess-search-list-command . "searchPaths()\n") - (inferior-ess-start-file . nil) ;"~/.ess-S+4") - (inferior-ess-language-start . (concat - "options(" - "STERM='" ess-STERM "'" - (if ess-editor - (concat ", editor='" ess-editor "'")) - (if ess-pager - (concat ", pager='" ess-pager "'")) - ")")) - (ess-STERM . "iESS") - ) - S+common-cust-alist) - - "Variables to customize for Sqpe+4.") - - -;;; There are extra complications in S+4 (compared to S+3) because -;;; -;;; (1) The StatSci supplied Splus.exe doesn't work in an emacs -;;; buffer. It works as as a GUI window and we must send commands -;;; to it through ddeclient. Nonetheless, we need to give it a -;;; process name and be sure that that there is a valid running -;;; process in the '(ddeESS [S+4])' buffer. Therefore we create an -;;; ESS process in the buffer as a placeholder and start a shell -;;; in the ESS buffer. From the shell we start Splus. Once Splus -;;; finishes initializing and kills the original shell, we start -;;; another shell. We have a buffer-local variable -;;; inferior-ess-ddeclient, initialized to nil. When there is a -;;; non-nil value of inferior-ess-ddeclient we send lines to -;;; inferior-ess-ddeclient rather than to the Splus process. -;;; (2) There is no Splus process running in the '(ddeESS [S+4])' -;;; buffer. Therefore inferior-ess will never see a prompt, -;;; unless we first change it to the null prompt "^". Then once -;;; the process has started, we change it back. -;;; (3) When M-x S+4 starts Splus by a shell command, then Splus is an -;;; independent process and will be survive if the '(ddeESS [S+4])' -;;; buffer is killed (or emacs is quit). The '(ddeESS [S+4])' is -;;; made read-only and a warning is placed in it saying that "You -;;; can't type anything here." Actually, if the standalone Splus -;;; is killed and the '(ddeESS [S+4])' is made writable (C-x C-q), -;;; then '(ddeESS [S+4])' becomes a shell buffer. -;;; -(defun S+4 (&optional proc-name) - "Call 'S-PLUS 4.x', the 'GUI Thing' from StatSci. Put S-Plus in an -independent MS-Window (Splus persists even if the '(ddeESS [S+4])' -window is killed in emacs). Do this by creating a comint process that -calls sh. Send a shell command in that sh buffer to call Splus. When -it completes set up a shell as a placeholder in the '(ddeESS [S+4])' -buffer. The S-Plus options are correctly set. In particular, the -S-Plus Commands window is opened if the Options/General -Settings/Startup menu says it should be. There is a 30 second delay -during startup in which the screen will not be refreshed. This delay -is here to allow slow disks to start the Splus program." - (interactive) - (save-excursion - (setq ess-customize-alist S+4-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(S+4): ess-dialect=%s, buf=%s\n" ess-dialect - (current-buffer))) - (setq ess-customize-alist ; change inferior-ess-program - (append ess-customize-alist '((inferior-ess-program . "sh")))) - (setq ess-customize-alist ; change inferior-ess-primary-prompt - (append ess-customize-alist '((inferior-ess-primary-prompt . "^")))) - (setq ess-customize-alist ; change inferior-ess-start-args - (append ess-customize-alist '((inferior-ess-start-args . "-i")))) - (let ((s-proj (getenv "S_PROJ")) - (manpath (getenv "MANPATH"))) - (if (fboundp 'w32-short-file-name) - (cd (w32-short-file-name (directory-file-name default-directory))) - (cd (directory-file-name default-directory))) - (setenv "S_PROJ" default-directory) - ;; I don't know why this PATH/MANPATH game is needed, - ;; except that it doesn't work without it. - (setenv "MANPATH" (getenv "PATH")) - (inferior-ess) - (sleep-for 2) ; need to wait, else working too fast! The Splus - ; command in '(ddeESS [S+4])' should follow the "$" - ; prompt. If not, then increase the sleep-for time! - (setenv "MANPATH" manpath) - (setenv "S_PROJ" s-proj)) - (setq ess-customize-alist S+4-customize-alist) - (ess-setq-vars-local ess-customize-alist) -;;; the next three lines belong in customize-alist, but can't be there -;;; because of the broken ess-setq-vars-default usage in ess-inf.el - (setq inferior-ess-ddeclient "ddeclient") - (setq inferior-ess-client-name "S-PLUS") - (setq inferior-ess-client-command "SCommand") -;;; end of what belongs in customize-alist - (setq comint-process-echoes nil) - (setq comint-input-sender 'comint-simple-send) - (goto-char (point-max)) - (insert (concat inferior-S+4-program " " - inferior-ess-start-args)) ; Note: there is no final "&". - ;; Without the "&", the results of !system.command come to '(ddeESS [S+4])' - ;; With the "&", the results of !system.command in S get lost. - (inferior-ess-send-input) - (sleep-for 30) ; Need to wait, else working too fast! - ; If the ess-current-process-name doesn't appear in the - ; Splus Commands window increase the sleep-for time! - (setq ess-local-process-name ess-current-process-name) - (ess-eval-linewise (concat "#" ess-current-process-name)) - (goto-char (point-min)) - (insert - "This is a placeholder buffer. You can't type anything here. -Use `C-x b RET' to return to your file.\n -Anything sent to this process from an S-mode buffer goes -directly to the associated Splus Commands window.\n -The S-Plus Commands window must be visible. -You may need to open the S-Plus Commands window manually (by clicking on -Splus/Window/Commands Window).\n -Any results of the !system.command typed at the S prompt in the -Splus Commands window appear in this buffer.\n\n") - (goto-char (point-max)) ; comint-mode-map makes '(ddeESS [S+4])' - ;; (use-local-map comint-mode-map) ;a shell buffer after Splus is finished. - (set-process-coding-system (get-process ess-local-process-name) 'raw-text-dos 'raw-text-unix) - (setq buffer-read-only t) ; force buffer to be read-only - (setq mode-name "ddeESS") - ;; (ess-eval-linewise inferior-S+4-editor-pager-command) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start)) - )) - - - - -(defun S+4-existing (&optional proc-name) - "Call 'S-PLUS 4.x', the 'GUI Thing' from StatSci. Do so by finding -an existing S-Plus in an independent MS-Window (if there is one) and -set up a '(ddeESS [S+4])' buffer in emacs. If there is no existing -S-Plus, then a new one will be opened in the default directory, -usually something like c:/Program Files/spls45se/users/yourname. -If you have a HOME environment variable, it will open it there." - (interactive) - (let* ((inferior-S+4-multipleinstances " & # ")) ; Note: there is a final "&". - ;; Without the "&", there is a core dump. - ;; With the "&", the results of !system.command in S get lost. - ;; We are picking up an existing S-Plus process for sending to. - ;; It doesn't know about us, so nothing comes back. - (S+4 proc-name)) - (with-current-buffer (car (buffer-list)) ; get the ESS buffer just created - (setq buffer-read-only nil) ; permit writing in ESS buffer - (goto-char (point-max)) - (beginning-of-line) - (forward-line -1) - (insert - "This is S+4-existing. -Results of the !system.command typed at the S prompt in the -Splus Commands window blink a DOS window and you won't see them.\n\n") - (setq buffer-read-only t) ; restore ESS buffer to be read-only - )) - - -;;; There are extra complications in Sqpe+4 (compared to S+3) because -;;; (1) The StatSci supplied Sqpe.exe won't work without SHOME as an -;;; environment variable and Sqpe does not take command line -;;; arguments and -;;; (2) Sqpe.exe comes up with options(interactive=F), which means it -;;; doesn't provide prompts by default, and we must change it to T so -;;; it will provide prompts. -;;; -(defun Sqpe+4 (&optional proc-name) - "Call 'Sqpe' from 'S-PLUS 4.x', the 'Real Thing' from StatSci." - (interactive) - (setq ess-customize-alist Sqpe+4-customize-alist) - (let* ((shome-nil-p (equal (getenv "SHOME") nil))) - (if shome-nil-p (setenv "SHOME" inferior-Sqpe+4-SHOME-name)) - (ess-write-to-dribble-buffer - (format "\n(Sqpe+4): 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+4-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+4-editor-pager-command) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start)) - (if shome-nil-p (setenv "SHOME" nil)))) - - - -(defun S+4-mode (&optional proc-name) - "Major mode for editing S+4 source. See `ess-mode' for more help." - (interactive) - (setq ess-customize-alist S+4-customize-alist) - (ess-mode S+4-customize-alist proc-name) - (if ess-imenu-use-S (ess-imenu-S))) - -(defun S+4-transcript-mode () - "S-PLUS 4.x transcript mode." - (interactive) - (ess-transcript-mode S+4-customize-alist)) - - -(defun S+4-msdos (&optional proc-name) - "Call 'S-PLUS 4.x', the 'GUI Thing' from StatSci. Put S-Plus in an -independent MS-Window (Splus persists even if the '(ddeESS [S+4])' -window is killed in emacs). Do this by creating a comint process that -calls sh. Send a shell command in that sh buffer to call Splus. When -it completes set up a shell as a placeholder in the '(ddeESS [S+4])' -buffer. The S-Plus options are correctly set. In particular, the -S-Plus Commands window is opened if the Options/General -Settings/Startup menu says it should be. There is a 30 second delay -during startup in which the screen will not be refreshed. This delay -is here to allow slow disks to start the Splus program." - (interactive) - (save-excursion - (setq ess-customize-alist S+4-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(S+4): ess-dialect=%s, buf=%s\n" ess-dialect - (current-buffer))) - (setq ess-customize-alist ; change inferior-ess-program - (append ess-customize-alist '((inferior-ess-program - . (getenv "COMSPEC"))))) - (setq ess-customize-alist ; change inferior-ess-primary-prompt - (append ess-customize-alist '((inferior-ess-primary-prompt . "^")))) - (setq ess-customize-alist ; change inferior-ess-start-args - (append ess-customize-alist '((inferior-ess-start-args . "")))) - (let ((s-proj (getenv "S_PROJ"))) - (if (fboundp 'w32-short-file-name) - (cd (w32-short-file-name (directory-file-name default-directory))) - (cd (directory-file-name default-directory))) - (setenv "S_PROJ" default-directory) - (inferior-ess) - (sleep-for 2) ; need to wait, else working too fast! The Splus - ; command in '(ddeESS [S+4])' should follow the "$" - ; prompt. If not, then increase the sleep-for time! - (setenv "S_PROJ" s-proj)) - (setq ess-customize-alist S+4-customize-alist) - (ess-setq-vars-local ess-customize-alist) -;;; the next three lines belong in customize-alist, but can't be there -;;; because of the broken ess-setq-vars-default usage in ess-inf.el - (setq inferior-ess-ddeclient "ddeclient") - (setq inferior-ess-client-name "S-PLUS") - (setq inferior-ess-client-command "SCommand") -;;; end of what belongs in customize-alist - (setq comint-input-sender 'comint-simple-send) - (setq comint-process-echoes nil) - (set-process-coding-system (get-process ess-local-process-name) 'raw-text-dos 'raw-text-dos) - (goto-char (point-max)) - (insert (concat inferior-S+4-program " " - inferior-ess-start-args)) ; Note: there is no final "&". - ; Without the "&", the results of !system.command come to '(ddeESS [S+4])' - ; With the "&", the results of !system.command in S get lost. - (inferior-ess-send-input) - (sleep-for 30) ; Need to wait, else working too fast! - ; If the ess-current-process-name doesn't appear in the - ; Splus Commands window increase the sleep-for time! -;;; from msdos-minor-mode - (setq comint-process-echoes t) - (add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t) -;;; end from msdos-minor-mode - (setq ess-local-process-name ess-current-process-name) - (ess-eval-linewise (concat "#" ess-current-process-name)) - (goto-char (point-min)) - (insert - "This is a placeholder buffer. You can't type anything here. -Use 'C-x b RET' to return to your file.\n -Anything sent to this process from an S-mode buffer goes -directly to the associated Splus Commands window.\n -The S-Plus Commands window must be visible. -You may need to open the S-Plus Commands window manually - (by clicking on Splus/Window/Commands Window).\n There is a 30 -second delay when this program starts during which the emacs -screen will be partially blank.\n Remember to `q()' from S-Plus -and then C-x C-q exit from the `'(ddeESS [S+4])'' buffer, or take -the risk of not being able to shut down your computer and -suffering through scandisk.\n Any results of the !system.command -typed at the S prompt in the Splus Commands window (are supposed -to) appear in this buffer.\n\n") - (goto-char (point-max)) ; comint-mode-map makes '(ddeESS [S+4])' - (use-local-map comint-mode-map) ; a shell buffer after Splus is finished. - (setq buffer-read-only t) ; force buffer to be read-only - (setq mode-name "ddeESS") - ;; (ess-eval-linewise inferior-S+4-editor-pager-command) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start)) - )) - -(defun S+4-msdos-existing (&optional proc-name) - "Call 'S-PLUS 4.x', the 'GUI Thing' from StatSci. Do so by finding -an existing S-Plus in an independent MS-Window (if there is one) and -set up a '(ddeESS [S+4])' buffer in emacs. If there is no existing -S-Plus, then a new one will be opened in the default directory, -usually something like c:/Program Files/spls45se/users/yourname. -If you have a HOME environment variable, it will open it there." - (interactive) - (let* ((inferior-S+4-multipleinstances "")) - (S+4-msdos proc-name)) - (with-current-buffer - (car (buffer-list)) ; get the ESS buffer just created - (setq buffer-read-only nil) ; permit writing in ESS buffer - (goto-char (point-max)) - (beginning-of-line) - (forward-line -1) - (insert - "This is S+4-msdos-existing. -Results of the !system.command typed at the S prompt in the -Splus Commands window blink a DOS window and you won't see them.\n\n") - (setq buffer-read-only t) ; restore ESS buffer to be read-only - )) - - ; Provide package - -(provide 'ess-sp4-d) - -;;; ess-sp4-d.el ends here diff --git a/elpa/ess-20181109.703/ess-sp5-d.el b/elpa/ess-20181109.703/ess-sp5-d.el deleted file mode 100644 index b5cc363e..00000000 --- a/elpa/ess-20181109.703/ess-sp5-d.el +++ /dev/null @@ -1,106 +0,0 @@ -;;; ess-sp5-d.el --- S-plus 5 customization - -;; Copyright (C) 1998 A.J. Rossini -;; Copyright (C) 1999--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 9 Nov 1998 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; AJR copied S4 to be S+5. -;; DB contributed the changes from ess-sp3-d.el to -;; ess-s4-d.el. (removed the old ugly approach). -;; This file defines Sp5 customizations for ess-mode. Lots of thanks -;; to RMH and JMC for code and suggestions -;; Thanks to MM for making this sensible. - -;;; Code: - -(require 'ess-s-lang) -(require 'ess-trns) - -;; You now need to make sure you've defined if you are running 5.0 or 5.1. -;; Lots of things are broken between them, GRR... - -(defvar S+5-dialect-name "S+5" - "Name of 'dialect' for S-PLUS 5.");easily changeable in a user's .emacs - -(defvar S+5-customize-alist - (append - '((ess-local-customize-alist . 'S+5-customize-alist) - (ess-dialect . S+5-dialect-name) - (ess-object-name-db-file . "ess-sp5-namedb.el") - (inferior-ess-program . inferior-S+5-program) - ;;(inferior-ess-objects-pattern . ".*") ; for new s4 stuff - (inferior-ess-help-command . "help(\"%s\", pager=\"slynx -dump\", window=FALSE)\n") - (inferior-ess-help-filetype . nil) - (inferior-ess-search-list-command . "searchPaths()\n") - (inferior-ess-start-args . inferior-S+-start-args) - (ess-STERM . "iESS") - ) - S+common-cust-alist) - - "Variables to customize for S+5.") - - -;; For loading up the S code required for the above. -;;(add-hook 'ess-post-run-hook -;; (lambda () -;; (ess-command -;; (concat -;; "if(exists(\"Sversion\")) library(emacs) else source(\"" -;; ess-mode-run-file -;; "\")\n")) -;; (if ess-mode-run-file2 -;; (ess-command -;; (concat "source(\"" ess-mode-run-file2 "\")\n"))))) - - -(defun S+5 (&optional proc-name) - "Call 'Splus5', based on S version 4, from Bell Labs. -New way to do it." - (interactive) - (setq ess-customize-alist S+5-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(S+5): ess-dialect=%s, buf=%s\n" ess-dialect (current-buffer))) - (inferior-ess) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start))) - -(defun S+5-mode (&optional proc-name) - "Major mode for editing S+5 source. See `ess-mode' for more help." - (interactive) - (setq ess-customize-alist S+5-customize-alist) - (ess-mode S+5-customize-alist proc-name) - (if ess-imenu-use-S (ess-imenu-S))) - -(defun S+5-transcript-mode () - "S-PLUS 5 transcript mode." - (interactive) - (ess-transcript-mode S+5-customize-alist)) - - ; Provide package - -(provide 'ess-sp5-d) - -;;; ess-sp5-d.el ends here diff --git a/elpa/ess-20181109.703/ess-sp6-d.el b/elpa/ess-20181109.703/ess-sp6-d.el deleted file mode 100644 index c2937d12..00000000 --- a/elpa/ess-20181109.703/ess-sp6-d.el +++ /dev/null @@ -1,214 +0,0 @@ -;;; ess-sp6-d.el --- S-Plus 6 & 7 & 8 customization - -;; Copyright (C) 2001--2005 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 2001/02/06 -;; Maintainer: ESS Core Team - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; AJR copied S+5 to be S+6. -;; AJR copied S4 to be S+5. -;; DB contributed the changes from ess-sp3-d.el to -;; ess-s4-d.el. (removed the old ugly approach). -;; This file defines Sp5 customizations for ess-mode. Lots of thanks -;; to RMH and JMC for code and suggestions -;; Thanks to MM for making this sensible. - -;;; Code: - -(require 'ess-mode) -(require 'ess-inf) -(require 'ess-s-lang) -(require 'ess-dde) -(require 'ess-trns) - - -;; You now need to make sure you've defined if you are running 5.0 or 5.1. -;; Lots of things are broken between them, GRR... - -(defun S+-directory-p (directory) - "Splus 5++ directories have a .Data directory and a __Meta directory within." - (and directory - (file-directory-p (concat directory ".Data")) - (file-directory-p (concat directory ".Data/__Meta")))) - -(defvar S+-directory-function #'inferior-ess-default-directory) - -(defvaralias 'S+6-setup-directory-function 'S+-setup-directory-function) -(defvar S+-setup-directory-function - (lambda (startdir) - (when (and startdir (S+-directory-p startdir)) - (setenv "S_WORK" - (if (getenv "S_WORK") - (concat startdir ":" (getenv "S_WORK")) - ;;(message "adding %s to S_WORK" startdir) - startdir))))) - - - -(defvaralias 'S+6-customize-alist 'S+-customize-alist) -(defvar S+-customize-alist - (append - '((ess-local-customize-alist . 'S+-customize-alist) - (ess-dialect . S+-dialect-name) - (ess-function-pattern . ess-r-function-pattern) - - (ess-object-name-db-file . "ess-sp6-namedb.el") - (inferior-ess-program . inferior-S+-program) - (inferior-ess-help-command . "help(\"%s\", pager=\"slynx -dump\", window=FALSE)\n") - (inferior-ess-help-filetype . nil) - (inferior-ess-search-list-command . "searchPaths()\n") - - (ess-send-region-function . #'ess-dde-send-region) - (ess-load-file-function . #'ess-dde-load-file) - (ess-command-function . #'ess-dde-command) - (ess-eval-linewise-function . #'ess-dde-eval-linewise) - (ess-dump-object-function . #'ess-dde-dump-object) - (ess-read-object-name-function . #'ess-dde-read-object-name) - (ess-find-help-file-function . #'ess-dde-find-help-file) - (ess-display-help-on-object-function . #'ess-dde-display-help-on-object) - - (ess-directory-function . S+-directory-function) - (ess-setup-directory-function . S+-setup-directory-function) - (inferior-ess-start-args . inferior-S+-start-args) - (ess-STERM . "iESS") - ) - S+common-cust-alist) - - "Variables to customize for S+.") - -(defvar ess-S+-post-run-hook nil - "Functions run in process buffer after the initialization of S+ - process.") - -(defvar ess-S+--injected-code - ".ess_funargs <- function(funname){ - ## funname <- deparse(substitute(object)) - fun <- try(eval(parse(text=funname)), silent = TRUE) - if(is.function(fun)) { - special <- grepl('[:$@[]', funname) - args <- args(fun) - fmls <- formals(args) - fmls.names <- names(fmls) - fmls <- gsub('\\\"', '\\\\\\\"', as.character(fmls), fixed = TRUE) - args.alist <- sprintf(\"'(%s)\", paste(\"(\\\"\", fmls.names, \"\\\" . \\\"\", fmls, \"\\\")\", sep = '', collapse = ' ')) - ## envname <- environmentName(environment(fun)) - envname <- if (special) '' else 'S+' - cat(sprintf('(list \\\"%s\\\" %s )\\n', envname, args.alist)) - } -} -") - -(defalias 'S+6 'S+) -(defun S+ (&optional proc-name) - "Call 'Splus6', based on S version 4, from Bell Labs. -New way to do it." - (interactive) - (setq ess-customize-alist S+-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(S+): ess-dialect=%s, buf=%s\n" ess-dialect (current-buffer))) - (inferior-ess) - (ess-command ess-S+--injected-code) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start)) - (with-ess-process-buffer nil - (run-mode-hooks 'ess-S+-post-run-hook))) - - -(defalias 'S+6-mode 'S+-mode) -;;;###autoload -(defun S+-mode (&optional proc-name) - "Major mode for editing S+ source. See `ess-mode' for more help." - (interactive) - (setq ess-customize-alist S+-customize-alist) - (ess-mode S+-customize-alist proc-name) - (if (fboundp 'ess-add-toolbar) (ess-add-toolbar)) - (if ess-imenu-use-S (ess-imenu-S))) - -(defalias 'S+6-transcript-mode 'S+-transcript-mode) -(defun S+-transcript-mode () - "S-PLUS 6 transcript mode." - (interactive) - (ess-transcript-mode S+-customize-alist)) - -(defvar ess-s-versions '("Splus") - "List of partial strings for versions of S to access within ESS. -Each string specifies the start of a filename. If a filename -beginning with one of these strings is found on `exec-path', a M-x -command for that version of S is made available. For example, if the -file \"Splus7\" is found and this variable includes the string -\"Splus\", a function called `M-x Splus7' will be available to run that -version of S. -If duplicate versions of the same program are found (which happens if -the same path is listed on `exec-path' more than once), they are -ignored by calling `ess-uniq-list'. -Set this variable to nil to disable searching for other versions -of S using this method. -If you set this variable, you need to restart Emacs (and set this variable -before ess-site is loaded) for it to take effect.") -(define-obsolete-variable-alias - 'ess-s-versions-created 'ess-s-created-runners "ESS 18.10") -(defvar ess-s-created-runners) -(defun ess-s-define-runners () - "Generate functions for starting other versions of S. -See `ess-s-versions' for strings that determine which functions are created. -It assumes these versions of S can be run as a substitute for Splus6. - -This function returns the list of functions, if any, that were -created. The functions will normally be placed on the menubar upon -ESS initialization." - (when ess-s-versions - (let ((versions - (ess-uniq-list - (mapcar #'file-name-nondirectory - (apply #'nconc - (mapcar #'ess-find-exec-completions - ess-s-versions)))))) - ;; Iterate over each string in VERSIONS, creating a new defun - ;; each time. - (setq ess-s-created-runners - (mapc (lambda (v) (ess-define-runner v "S")) versions)) - ;; Add to menu - (when ess-s-created-runners - ;; new-menu will be a list of 3-vectors, of the form: - ;; ["R-1.8.1" R-1.8.1 t] - (let ((new-menu (mapcar (lambda (x) (vector x (intern x) t)) - ess-s-created-runners))) - (easy-menu-add-item ess-mode-menu '("Start Process") - (cons "Other" new-menu))))))) -;; Define the runners -(if ess-microsoft-p - (nconc - (ess-sqpe-versions-create ess-SHOME-versions) ;; 32-bit - (ess-sqpe-versions-create ess-SHOME-versions-64 "-64-bit")) ;; 64-bit - (ess-s-define-runners)) -(define-obsolete-function-alias - 'ess-s-versions-create 'ess-s-define-runners "ESS 18.10") - - - - ; Provide package - -(provide 'ess-sp6-d) - -;;; ess-sp6-d.el ends here diff --git a/elpa/ess-20181109.703/ess-sp6w-d.el b/elpa/ess-20181109.703/ess-sp6w-d.el deleted file mode 100644 index 33328a45..00000000 --- a/elpa/ess-20181109.703/ess-sp6w-d.el +++ /dev/null @@ -1,603 +0,0 @@ -;;; ess-sp6w-d.el --- S-PLUS 6.x for Windows customization - -;;; copied and edited from ess-s4-d.el - Richard M. Heiberger, April 2001 - -;; Copyright (C) 2001 Richard M. Heiberger -;; Copyright (C) 2002--2005 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Richard M. Heiberger -;; Created: April 2001 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file defines all the S-PLUS 6.x for Windows customizations -;; for ess-mode with ddeclient. - -;;; Code: - -;;; Requires and Autoloads: - -(require 'ess-s-lang) -(require 'ess-trns) -(defvar ess-S+-startup-delay) -(defvar version-function-name) -;;NO: this is autoloaded from other places (require 'ess-dde) - -(defvaralias 'inferior-S+6-multipleinstances 'inferior-S+-multipleinstances) -(defvar inferior-S+-multipleinstances "/MULTIPLEINSTANCES" - "Default \"/MULTIPLEINSTANCES\" opens up a new instance of S+[678] in a -GUI window and connects it to the '(ddeESS [S+])' window. The -alternative nil uses an existing S+ GUI (if there is one) and -connects it to the '(ddeESS [S+])' window.") - -(defvaralias 'S+6-customize-alist 'S+-customize-alist) -(defvar S+-customize-alist - (append - '((ess-local-customize-alist . 'S+-customize-alist) - (ess-dialect . S+-dialect-name) - (ess-object-name-db-file . "ess-sp6-namedb.el" ) - (ess-display-help-on-object-function . #'ess-chm-display-help-on-object) - (inferior-ess-program . inferior-S+-program) - (inferior-ess-help-command . "help(\"%s\")\n") - (inferior-ess-help-filetype . "chm") - (inferior-ess-search-list-command . "searchPaths()\n") - (inferior-ess-start-file . nil) ;"~/.ess-S+") - (inferior-ess-start-args . (concat - inferior-S+-multipleinstances - " " - inferior-S+-start-args - " " - inferior-S+-print-command - " S_PROJ=" - (when (fboundp 'w32-short-file-name) - (w32-short-file-name - (directory-file-name - default-directory))))) - ;; (inferior-ess-ddeclient . "ddeclient") - ;; (inferior-ess-client-name . "S-PLUS") - ;; (inferior-ess-client-command . "SCommand") - (ess-STERM . "ddeESS") - ) - S+common-cust-alist) - "Variables to customize for S+") - -(defvaralias 'Sqpe+6-customize-alist 'Sqpe+-customize-alist) -(defvar Sqpe+-customize-alist - (append - '((ess-local-customize-alist . 'Sqpe+-customize-alist) - (ess-dialect . S+-dialect-name) - (ess-loop-timeout . 500000 );fixme: dialect specific custom.var - (ess-object-name-db-file . "ess-sp6-namedb.el" ) - (ess-display-help-on-object-function . #'ess-chm-display-help-on-object) - (inferior-ess-program . inferior-Sqpe+-program) - (inferior-ess-help-command . "help(\"%s\")\n") - (inferior-ess-help-filetype . "chm") - (inferior-ess-search-list-command . "searchPaths()\n") - (inferior-ess-start-file . nil) ;"~/.ess-S+") - (inferior-ess-start-args . (concat - ;; workaround for bug in S-Plus 6 for Windows: - "ALWAYS_PROMPT=X" - " " - inferior-Sqpe+-start-args ;; e.g. license manager - )) - (ess-STERM . "iESS") - ) - S+common-cust-alist) - "Variables to customize for Sqpe+.") - - - -;;; There are extra complications in S+6 and S+7 and S+8 (compared to S+3) -;;; because -;;; -;;; (1) The StatSci supplied Splus.exe doesn't work in an emacs -;;; buffer. It works as as a GUI window and we must send commands -;;; to it through ddeclient. Nonetheless, we need to give it a -;;; process name and be sure that that there is a valid running -;;; process in the '(ddeESS [S+])' buffer. Therefore we create an -;;; ESS process in the buffer as a placeholder and start a shell -;;; in the ESS buffer. From the shell we start Splus. Once Splus -;;; finishes initializing and kills the original shell, we start -;;; another shell. We have a buffer-local variable -;;; inferior-ess-ddeclient, initialized to nil. When there is a -;;; non-nil value of inferior-ess-ddeclient we send lines to -;;; inferior-ess-ddeclient rather than to the Splus process. -;;; (2) There is no Splus process running in the '(ddeESS [S+])' -;;; buffer. Therefore inferior-ess will never see a prompt, -;;; unless we first change it to the null prompt "^". Then once -;;; the process has started, we change it back. -;;; (3) When M-x S+ starts Splus by a shell command, then Splus is an -;;; independent process and will be survive if the '(ddeESS [S+])' -;;; buffer is killed (or emacs is quit). The '(ddeESS [S+])' is -;;; made read-only and a warning is placed in it saying that "You -;;; can't type anything here." Actually, if thestandalone Splus -;;; is killed and the '(ddeESS [S+])' is made writable (C-x C-q), -;;; then '(ddeESS [S+])' becomes a shell buffer. -;;; -(defalias 'S+6 'S+) -(defun S+ (&optional proc-name) - "Verify that `inferior-S+-program' points to S-Plus 6 or -S-Plus 7 or S-Plus 8. Start normally for S-Plus 6.1 and later. -Inform the user to start S-Plus 6.0 from the icon and then -connect to it with `S+-existing'. Give an error message if -`inferior-S+-program' doesn't point to S-Plus 6 or S-Plus 7 -or S-Plus 8." - (interactive) - (with-current-buffer (find-file-noselect - (concat (executable-find inferior-S+-program) - "/../../versions") t) - (setq buffer-read-only 1) - (forward-line) - (if (not (search-backward-regexp "splus\t[678].[0-9]" (point-min) t)) - (error "The emacs variable `inferior-S+-program' does -not point to S-Plus 6 or 7 or 8. Please add `splus[678]?/cmd' (expand the -`[678]?' to match your setup) to your `exec-path' or specify the complete -path to `Splus.exe' in the variable `inferior-S+-program' in your -`.emacs' file.") - (forward-line) - (if (search-backward "splus\t6.0" (point-min) t) - (error "S-Plus 6.0 for Microsoft Windows has a bug that -prevents it from being started by emacs. Instead, you must start it -by double-clicking an icon. Then you can connect to it with -`S+-existing'. You should consider upgrading to a newer -release of S-Plus.")))) - (S+-initiate proc-name)) ;; normal start ; - -(defalias 'S+6-initiate 'S+-initiate) -(defun S+-initiate (&optional proc-name) - "Call 'S-PLUS [678].x for Windows', the 'GUI Thing' from StatSci. Put -S-Plus in an independent MS-Window (Splus persists even if the -'(ddeESS [S+])' window is killed in emacs). Do this by creating a -comint process that calls sh. Send a shell command in that sh buffer -to call Splus. When it completes set up a shell as a placeholder in -the '(ddeESS [S+])' buffer. The S-Plus options are correctly set. -In particular, the S-Plus Commands window is opened if the -Options/General Settings/Startup menu says it should be. There is a -startup delay of `ess-S+-startup-delay' seconds during which the -screen will not be refreshed. This delay is here to allow slow disks -to start the Splus program." - (interactive) - (save-excursion - (setq ess-customize-alist S+-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(S+): ess-dialect=%s, buf=%s\n" ess-dialect - (current-buffer))) - (setq ess-customize-alist ; change inferior-ess-program - (append ess-customize-alist '((inferior-ess-program . "sh")))) - (setq ess-customize-alist ; change inferior-ess-primary-prompt - (append ess-customize-alist '((inferior-ess-primary-prompt . "^")))) - (setq ess-customize-alist ; change inferior-ess-start-args - (append ess-customize-alist '((inferior-ess-start-args . "-i")))) - (let ((s-proj (getenv "S_PROJ")) - (use-dialog-box (not (or ess-microsoft-p (eq system-type 'cygwin)))) - ) - (cd (when (fboundp 'w32-short-file-name) - (w32-short-file-name (directory-file-name default-directory)))) - (setenv "S_PROJ" (when - (fboundp 'w32-short-file-name) - (w32-short-file-name default-directory))) - (inferior-ess) - (sleep-for 2) ; need to wait, else working too fast! The Splus - ; command in '(ddeESS [S+])' should follow the "$" - ; prompt. If not, then increase the sleep-for time! - (setenv "S_PROJ" s-proj)) - (setq ess-customize-alist S+-customize-alist) - (ess-setq-vars-local ess-customize-alist) -;;; the next three lines belong in customize-alist, but can't be there -;;; because of the broken ess-setq-vars-default usage in ess-inf.el - (setq inferior-ess-ddeclient "ddeclient") - (setq inferior-ess-client-name "S-PLUS") - (setq inferior-ess-client-command "SCommand") -;;; end of what belongs in customize-alist - (setq comint-process-echoes nil) - (setq comint-input-sender 'comint-simple-send) - (goto-char (point-max)) - (insert (concat inferior-S+-program " " - inferior-ess-start-args)) ; Note: there is no final "&". - ;; Without the "&", the results of !system.command come to '(ddeESS [S+])' - ;; With the "&", the results of !system.command in S get lost. - (inferior-ess-send-input) - (sleep-for ess-S+-startup-delay) ; Need to wait, else working too fast! - ; If the ess-current-process-name doesn't appear in the - ; Splus Commands window increase the sleep-for time! - (setq ess-local-process-name ess-current-process-name) - (ess-eval-linewise (concat "#" ess-current-process-name)) - (goto-char (point-min)) - (insert - "This is a placeholder buffer. You can't type anything here. -Use `C-x b RET' to return to your file.\n -Anything sent to this process from an S-mode buffer goes -directly to the associated Splus Commands window.\n -The S-Plus Commands window must be visible. -You may need to open the S-Plus Commands window manually (by clicking on -Splus/Window/Commands Window).\n -Any results of the !system.command typed at the S prompt in the -Splus Commands window appear in this buffer.\n\n") - (goto-char (point-max)) ; comint-mode-map makes '(ddeESS [S+])' - ;; (use-local-map comint-mode-map) ;a shell buffer after Splus is finished. - (set-process-coding-system (get-buffer-process (current-buffer)) - 'raw-text-dos 'raw-text-unix) - (setq buffer-read-only t) ; force buffer to be read-only - (setq mode-name "ddeESS") - ;; (ess-eval-linewise inferior-S+-editor-pager-command) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start)) - )) - - -(defalias 'S+6-existing 'S+-existing) -(defun S+-existing (&optional proc-name) - "Call 'S-PLUS [678].x for Windows', the 'GUI Thing' from StatSci. Do so by -finding an existing S-Plus in an independent MS-Window (if there is one) and -set up a '(ddeESS [S+])' buffer in emacs. If there is no existing -S-Plus, then a new one will be opened in the default directory. The default -is usually something like 'c:/Program Files/Insightful/splus70/users/yourname' -for S-Plus before 8.0.4. Beginning with 8.0.4, S-Plus uses the default directory -'c:/Documents and Settings/yourname/My Documents/S-PLUS Projects/Project1'. -Beginning with TIBCO Spotfire S+ Version 8.1.1 for Microsft Windows, the default -directory is 'c:/DOCUME~1/yourname/MYDOCU~1/SPOTFI~1/Project1'. -If you have a HOME environment variable, it will open it there." - (interactive) - (let* ((inferior-S+-multipleinstances " & # ") ; Note: there is a final "&". - (ess-S+-startup-delay 0)) ;; No delay for existing S-Plus - ;; Without the "&", there is a core dump. - ;; With the "&", the results of !system.command in S get lost. - ;; We are picking up an existing S-Plus process for sending to. - ;; It doesn't know about us, so nothing comes back. - (S+-initiate proc-name)) - (with-current-buffer (car (buffer-list)) ; get the ESS buffer just created - (setq buffer-read-only nil) ; permit writing in ESS buffer - (goto-char (point-max)) - (beginning-of-line) - (forward-line -1) - (insert - "This is S+-existing. -Results of the !system.command typed at the S prompt in the -Splus Commands window blink a DOS window and you won't see them.\n\n") - (setq buffer-read-only t) ; restore ESS buffer to be read-only - )) - - -;;; There are extra complications in Sqpe+6 (compared to S+3) because -;;; (1) The StatSci supplied Sqpe.exe won't work without SHOME as an -;;; environment variable and Sqpe does not take command line -;;; arguments and -;;; (2) Sqpe.exe comes up with options(interactive=FALSE), which means it -;;; doesn't provide prompts by default, and we must change it to T so -;;; it will provide prompts. -;;; -(defalias 'Sqpe+6 'Sqpe+) -(defun Sqpe+ (&optional proc-name) - "Call 'Sqpe' from 'S-PLUS [678].x for Windows', the 'Real Thing' from StatSci." - (interactive) - (setq ess-customize-alist Sqpe+-customize-alist) - (let* ((shome-nil-p (equal (getenv "SHOME") nil)) - (use-dialog-box (not (or ess-microsoft-p (eq system-type 'cygwin)))) - ) - (if shome-nil-p (setenv "SHOME" inferior-Sqpe+-SHOME-name)) - (ess-write-to-dribble-buffer - (format "\n(Sqpe+6): 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+-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=TRUE)") - (inferior-ess-send-input) - (setq mode-name "iESS(Sqpe)") - ;; (ess-eval-linewise inferior-S+-editor-pager-command) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start)) - (if shome-nil-p (setenv "SHOME" nil)))) - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.sp\\'" . S-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.[qsS]\\'" . S-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.ssc\\'" . S-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.SSC\\'" . S-mode)) - -(defalias 'S+6-mode 'S+-mode) -(defun S+-mode (&optional proc-name) - "Major mode for editing S+[678] source. See `ess-mode' for more help." - (interactive) - (setq ess-customize-alist S+-customize-alist) - (ess-mode S+-customize-alist proc-name) - (if ess-imenu-use-S (ess-imenu-S))) - -(defalias 'S+6-transcript-mode 'S+-transcript-mode) -(defun S+-transcript-mode () - "S-PLUS transcript mode." - (interactive) - (ess-transcript-mode S+-customize-alist)) - -(defun S+-msdos (&optional proc-name) - "Verify that `inferior-S+-program' points to S-Plus 6 or -S-Plus 7 or S-Plus 8. Start normally for S-Plus 6.1 and later. -Inform the user to start S-Plus 6.0 from the icon and then -connect to it with `S+-msdos-existing'. Give an error message -if `inferior-S+-program' doesn't point to S-Plus 6 or -S-Plus 7 or S-Plus 8." - (interactive) - (with-current-buffer (find-file-noselect - (concat (executable-find inferior-S+-program) - "/../../versions") t) - (setq buffer-read-only 1) - (forward-line) - (if (not (search-backward-regexp "splus\t[678].[0-9]" (point-min) t)) - (error "The emacs variable `inferior-S+-program' does - not point to S-Plus 6 or 7 or 8. Please add `splus[678]?/cmd' - (expand the `[678]?' to match your setup) to your `exec-path' or - specify the complete path to `Splus.exe' in the variable -`inferior-S+-program' in your `.emacs' file.") ;;; " This comment keeps emacs font-lock from getting out of phase. - - (progn - (forward-line) - (if (search-backward "splus\t6.0" (point-min) t) - (error "S-Plus 6.0 for Microsoft Windows has a bug that -prevents it from being started by emacs. Instead, you must start it -by double-clicking an icon. Then you can connect to it with -`S+-msdos-existing'. You should consider upgrading to a newer -release of S-Plus.") - (S+-msdos-initiate proc-name))) ;; normal start ; - ))) - -(defalias 'S+6-msdos-initiate 'S+-msdos-initiate) -(defun S+-msdos-initiate (&optional proc-name) - "Call 'S-PLUS [678].x for Windows', the 'GUI Thing' from StatSci. Put -S-Plus in an independent MS-Window (Splus persists even if the -'(ddeESS [S+])' window is killed in emacs). Do this by creating a -comint process that calls sh. Send a shell command in that sh buffer -to call Splus. When it completes set up a shell as a placeholder in -the '(ddeESS [S+])' buffer. The S-Plus options are correctly set. -In particular, the S-Plus Commands window is opened if the -Options/General Settings/Startup menu says it should be. There is a -startup delay of `ess-S+-startup-delay' seconds during which the -screen will not be refreshed. This delay is here to allow slow disks -to start the Splus program." - (interactive) - (save-excursion - (setq ess-customize-alist S+-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(S+): ess-dialect=%s, buf=%s\n" ess-dialect - (current-buffer))) - (setq ess-customize-alist ; change inferior-ess-program - (append ess-customize-alist '((inferior-ess-program - . (getenv "COMSPEC"))))) - (setq ess-customize-alist ; change inferior-ess-primary-prompt - (append ess-customize-alist '((inferior-ess-primary-prompt . "^")))) - (setq ess-customize-alist ; change inferior-ess-start-args - (append ess-customize-alist '((inferior-ess-start-args . "")))) - (let ((s-proj (getenv "S_PROJ")) - (use-dialog-box (not (or ess-microsoft-p (eq system-type 'cygwin)))) - ) - (cd (when (fboundp 'w32-short-file-name) - (w32-short-file-name (directory-file-name default-directory)))) - (setenv "S_PROJ" (when - (fboundp 'w32-short-file-name) - (w32-short-file-name default-directory))) - (inferior-ess) - (sleep-for 2) ; need to wait, else working too fast! The Splus - ; command in '(ddeESS [S+])' should follow the "$" - ; prompt. If not, then increase the sleep-for time! - (setenv "S_PROJ" s-proj)) - (setq ess-customize-alist S+-customize-alist) - (ess-setq-vars-local ess-customize-alist) -;;; the next three lines belong in customize-alist, but can't be there -;;; because of the broken ess-setq-vars-default usage in ess-inf.el - (setq inferior-ess-ddeclient "ddeclient") - (setq inferior-ess-client-name "S-PLUS") - (setq inferior-ess-client-command "SCommand") -;;; end of what belongs in customize-alist - (setq comint-input-sender 'comint-simple-send) - (setq comint-process-echoes nil) - (set-process-coding-system (get-buffer-process (current-buffer)) - 'raw-text-dos 'raw-text-dos) - (goto-char (point-max)) - (insert (concat inferior-S+-program " " - inferior-ess-start-args)) ; Note: there is no final "&". - ;; Without the "&", the results of !system.command come to '(ddeESS [S+])' - ;; With the "&", the results of !system.command in S get lost. - (inferior-ess-send-input) - (sleep-for ess-S+-startup-delay) ; Need to wait, else working too fast! - ; If the ess-current-process-name doesn't appear in the - ; Splus Commands window increase the sleep-for time! -;;; from msdos-minor-mode - (setq comint-process-echoes t) - (add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t) -;;; end from msdos-minor-mode - (setq ess-local-process-name ess-current-process-name) - (ess-eval-linewise (concat "#" ess-current-process-name)) - (goto-char (point-min)) - (insert - "This is a placeholder buffer. You can't type anything here. -Use `C-x b RET' to return to your file.\n -Anything sent to this process from an S-mode buffer goes -directly to the associated Splus Commands window.\n -The S-Plus Commands window must be visible. -You may need to open the S-Plus Commands window manually - (by clicking on Splus/Window/Commands Window).\n -There is a `ess-S+-startup-delay' second delay when this program starts -during which the emacs screen will be partially blank.\n -Remember to 'q()' from S-Plus and -then C-x C-q exit from the '(ddeESS [S+])' buffer, -or take the risk of not being able to shut down your computer -and suffering through scandisk.\n -Any results of the !system.command typed at the S prompt in the -Splus Commands window (are supposed to) appear in this buffer.\n\n") - (goto-char (point-max)) ; comint-mode-map makes '(ddeESS [S+])' - (use-local-map comint-mode-map) ; a shell buffer after Splus is finished. - (setq buffer-read-only t) ; force buffer to be read-only - (setq mode-name "ddeESS") - ;; (ess-eval-linewise inferior-S+-editor-pager-command) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start)) - )) - -(defalias 'S+6-msdos-existing 'S+-msdos-existing) -(defun S+-msdos-existing (&optional proc-name) - "Call 'S-PLUS [678].x for Windows', the 'GUI Thing' from StatSci. Do so by -finding an existing S-Plus in an independent MS-Window (if there is one) and -set up a '(ddeESS [S+])' buffer in emacs. If there is no existing -S-Plus, then a new one will be opened in the default directory. The default -is usually something like 'c:/Program Files/Insightful/splus70/users/yourname' -for S-Plus before 8.0.4. Beginning with 8.0.4, S-Plus uses the default directory -'c:/Documents and Settings/yourname/My Documents/S-PLUS Projects/Project1'. -Beginning with TIBCO Spotfire S+ Version 8.1.1 for Microsft Windows, the default -directory is 'c:/DOCUME~1/yourname/MYDOCU~1/SPOTFI~1/Project1'. -If you have a HOME environment variable, it will open it there." - (interactive) - (let* ((inferior-S+-multipleinstances "") - (ess-S+-startup-delay 0)) ;; No delay for existing S-Plus - (S+-msdos-initiate proc-name)) - (with-current-buffer (car (buffer-list)) ; get the ESS buffer just created - (setq buffer-read-only nil) ; permit writing in ESS buffer - (goto-char (point-max)) - (beginning-of-line) - (forward-line -1) - (insert - "This is S+-msdos-existing. -Results of the !system.command typed at the S prompt in the -Splus Commands window blink a DOS window and you won't see them.\n\n") - (setq buffer-read-only t) ; restore ESS buffer to be read-only - )) - -(defun ess-sqpe-versions-create (ess-SHOME-versions &optional x64) - "Generate the `M-x splusxy' functions for starting other versions of -Sqpe. `ESS-SHOME-VERSIONS' is normally taken from -`ess-sqpe-versions', a variable that contains 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-dribble-buffer'. If `X64' is not nil, then -modify the function name to show \"-64bit\" in its name. - -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) - ) - ;; - (with-current-buffer eval-buf - ;; clear the buffer. - (delete-region (point-min) (point-max)) - - ;; Find which versions of Sqpe we want. - (setq x64 (if x64 "-64bit")) - (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)) - (setq version-function-name (concat (file-name-nondirectory version) x64)) - (prin1 (symbol-function 'Sqpe+template) eval-buf) - (insert "\n\n") - (goto-char beg) - (while (search-forward "lambda" nil t 1) - (replace-match - (concat "defun " version-function-name) - t t)) - (while (search-forward "ess-SHOME" nil t) - (replace-match version t t)) - (goto-char (point-max)) - (setq ess-sqpe-versions-created - (cons version-function-name - ess-sqpe-versions-created)) - (ess-write-to-dribble-buffer - (format - "(Sqpe): ess-sqpe-versions-create making M-x defun %s for %s \n" - version-function-name 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+-customize-alist) - (let* ((use-dialog-box) ;; MS dialog box won't return a directory - (shome-old (getenv "SHOME")) - (inferior-Sqpe+-SHOME-name "ess-SHOME") - (inferior-Sqpe+-program (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+-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=TRUE)") - (inferior-ess-send-input) - (setq mode-name "iESS(Sqpe)") - ;; (ess-eval-linewise inferior-S+-editor-pager-command) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start)) - (setenv "SHOME" shome-old))) - - - ; Provide package - -(provide 'ess-sp6w-d) - -;;; ess-sp6w-d.el ends here diff --git a/elpa/ess-20181109.703/ess-stata-lang.el b/elpa/ess-20181109.703/ess-stata-lang.el deleted file mode 100644 index 9ef2a446..00000000 --- a/elpa/ess-20181109.703/ess-stata-lang.el +++ /dev/null @@ -1,1282 +0,0 @@ -;;; ess-stata-lang.el --- Stata customization - -;; Copyright (C) 1999--2000, Thomas Lumley, A. J. Rossini, Brendan Halpin. -;; Copyright (C) 1997--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Thomas Lumley , -;; Brendan Halpin -;; Created: 2 Nov 1997 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; This file is part of ESS (Emacs Speaks Statistics). - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This is based upon Version 0.4 of Stata mode. - -;; Stata modes. Emacs modes for using the Stata statistical package -;; Modified from S-mode, comint-mode -;; -;; (c) thomas lumley 1997 -;; -;; version 0.4 20/7/97 -;; -;; 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. -;; -;; (for the GNU GPL see above) - - -;;; Code: - -(require 'make-regexp) ; it's now local to the directory. -;;(load-library "make-regexp") ;; this is necessary for -;; ado-set-font-lock-keywords -;; only needed in Emacs >= 22.x -(unless (boundp 'c-emacs-features) - (require 'cc-vars));; for syntax-table -(require 'comint) -(require 'ess-trns) - - ;(setq max-lisp-eval-depth 500) -(eval-when-compile - (setq max-lisp-eval-depth (max 600 max-lisp-eval-depth))) - -(defconst ess-help-STA-sec-keys-alist - '((?d . "Description") - (?e . "Examples") - (?o . "Options") - (?s . "Also see") - (?S . "Syntax") - (?r . "Remarks") - (?t . "Title")) - "Help section keys. -`key' indicates the keystroke to use to search for the section heading -`string' in an Stata help file. `string' is used as part of a -regexp-search, and so specials should be quoted. -") - -(defconst ess-help-STA-sec-regex "^[A-Z a-z]+:?\n-+\\|http:" - "Reg(ular) Ex(pression) of section headers in help file.") - -(defvar STA-syntax-table - (let ((tbl (make-syntax-table))) - (modify-syntax-entry ?\\ "." tbl) ;nullify escape meaning - (modify-syntax-entry ?\$ "." tbl) - (modify-syntax-entry ?` "(\'" tbl) - (modify-syntax-entry ?\' ")`" tbl) - ;;--------- begin cut-and-paste from lisp/progmodes/c-langs.el - (modify-syntax-entry ?/ ". 124b" tbl) - (modify-syntax-entry ?* ". 23" tbl) - (modify-syntax-entry ?\n "> b" tbl) - ;; Give CR the same syntax as newline, for selective-display - (modify-syntax-entry ?\^m "> b" tbl) - ;;--------- end cut-and-paste ------------------ - (modify-syntax-entry ?+ "." tbl) - (modify-syntax-entry ?- "." tbl) - (modify-syntax-entry ?= "." tbl) - (modify-syntax-entry ?% "." tbl) - (modify-syntax-entry ?< "." tbl) - (modify-syntax-entry ?> "." tbl) - (modify-syntax-entry ?& "." tbl) - (modify-syntax-entry ?| "." tbl) - (modify-syntax-entry ?~ "." tbl) - - tbl) - "Syntax table for Stata code.") - -(defun ado-set-font-lock-keywords () - "Create font lock keywords for Stata syntax. This is from the -ado-mode of Bill Rising , and uses make-regexp." - ;; (make-local-variable 'ado-font-lock-keywords) - (interactive) - (list - ;; special highlighting - ;; program definitions - (eval-when-compile - (make-regexps - '(("^\\*!.*") font-lock-keyword-face) - )) - (eval-when-compile - (make-regexps - "^" - '(( - "pr" "pro" "prog" "progr" "progra" "program" - ) font-lock-keyword-face) - "[ \t]+" - '(( - "de" "def" "defi" "defin" "define" - "di" "dir" - "drop" - "l" "li" "lis" "list" - ) font-lock-type-face nil) - "[ \t]+" - '(("[_a-z]+[_a-z0-9]*") font-lock-keyword-face nil) - )) - (eval-when-compile - (make-regexps - '(("^[ \t]*version") font-lock-reference-face) - "[ \t]*" - '(("1.0 2.0 2.1 3.0 3.1 4.0 5.0 6 6.0") font-lock-type-face) - )) - (eval-when-compile - (make-regexps - "^" - '(("end" "pause" - ) font-lock-keyword-face) - "[ /t]*.*$" - )) - ;; delimit command - (eval-when-compile - (make-regexps - '(("^[ \t]*#delimit") font-lock-reference-face) - "\\s-*" - '(("\\(cr\\|;\\)\\s-*$") font-lock-type-face nil) - )) - ;; set command (with endless options!) - (eval-when-compile - (make-regexps - '(("^[ \t]*set") font-lock-reference-face) - "[ \t]+" - '(("adosize" "ANSI" - "b" "be" "bee" "beep" "checksum" "contents" - "d" "di" "dis" "disp" "displ" "displa" "display" - "g" "gr" "gra" "grap" "graph" "graphi" "graphic" "graphics" - "help" - "IBM" - "l" "le" "lev" "leve" "level" - "linesize" - "lo" "log" - "mat" "mats" "matsi" "matsiz" "matsize" - "maxobs" "maxvar" - "mem" "memo" "memor" "memory" - "mo" "mor" "more" - "obs" - "ou" "out" "outp" "outpu" "output" - "pagesize" - "r" "rm" "rms" "rmsg" - "se" "see" "seed" "seed0" "shell" - "te" "tex" "text" "texts" "textsi" "textsiz" "textsize" - "tr" "tra" "trac" "trace" - "t" "ty" "typ" "type" "video" - "vir" "virt" "virtu" "virtua" "virtual" - ) - font-lock-reference-face t) - "[ \t]*" - '(("[a-zA-Z0-9]*") font-lock-type-face) - )) - ;; the constraint commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "cons" "const" "constr" "constra" "constrai" "constrain" "constraint" - ) font-lock-reference-face) - "[ \t]+" - '(( - "d" - "de" "def" "defi" "defin" "define" - "di" "dir" - "drop" - "l" "li" "lis" "list" - ) - font-lock-type-face) - "\\b" - )) - ;; the confirm commands - could be a mess! - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "conf" "confi" "confir" "confirm" - ) font-lock-reference-face) - "[ \t]+" - '(( - "e" "ex" "exi" "exis" "exist" "existe" "existen" "existenc" "existence" - "f" "fi" "fil" "file" - "n" "nu" "num" "numb" "numbe" "number" - "v" "va" "var" "vari" "varia" "variab" "variabl" "variable" - ) font-lock-type-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "conf" "confi" "confir" "confirm" - ) font-lock-reference-face) - "[ \t]+" - '(( - "integer" - ) font-lock-type-face) - "[ \t]+" - '(( - "n" "nu" "num" "numb" "numbe" "number" - ) font-lock-type-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "conf" "confi" "confir" "confirm" - ) font-lock-reference-face) - "[ \t]+" - '(( - "n" "ne" "new" - ) font-lock-type-face) - "[ \t]+" - '(( - "f" "fi" "fil" "file" - "v" "va" "var" "vari" "varia" "variab" "variabl" "variable" - ) font-lock-type-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "conf" "confi" "confir" "confirm" - ) font-lock-reference-face) - "[ \t]+" - '(( - "byte" "double" "float" "int" "long" - "numeric" - "str" "stri" "strin" "string" - ) font-lock-type-face) - "[ \t]+" - '(( - "v" "va" "var" "vari" "varia" "variab" "variabl" "variable" - ) font-lock-type-face) - "\\b" - )) - ;;; the str# won't quite look right, but that's the breaks for using - ;;; a tool like this... - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "conf" "confi" "confir" "confirm" - ) font-lock-reference-face) - "[ \t]+" - '(( - "str" - ) font-lock-type-face) - "[1-9]+[0-9]*[ \t]+" - '(( - "v" "va" "var" "vari" "varia" "variab" "variabl" "variable" - ) font-lock-type-face) - "\\b" - )) - ;; the estimates commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "est" "esti" "estim" "estima" "estimat" "estimate" "estimates" - ) font-lock-reference-face) - "[ \t]+" - '(( - "clear" - "di" "dir" "dis" "disp" "displ" "displa" "display" - "drop" - "h" "ho" "hol" "hold" - "li" "lis" "list" - "loc" "loca" "local" - "mat" "matr" "matri" "matrix" - "post" - "repost" - "sca" "scal" "scala" "scalar" - "u" "un" "unh" "unho" "unhol" "unhold" - ) - font-lock-type-face) - "\\b" - )) - ;; the gph commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "gph" - ) font-lock-reference-face) - "[ \t]+" - '(( - "arc" - "box" - "clear" "close" - "font" - "line" - "open" - "pen" "point" - "text" - "vline" "vpoint" "vpoly" "vtext" - ) - font-lock-type-face) - "\\b" - )) - - ;; some of the matrix commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(("mat" "matr" "matri" "matrix") font-lock-reference-face) - "[ \t]+" - '(("ac" "acc" "accu" "accum" - "cole" "coleq" - "coln" "colna" "colnam" "cloname" "colnames" - "d" "def" "defi" "defin" "define" - "di" "dir" "dispCns" "drop" "drop _all" - "glsa" "glsac" "glsacc" "glsaccu" "glsaccum" - "l" "li" "lis" "list" "makeCns" "mlou" "mlout" "post" - "rowe" "roweq" - "rown" "rowna" "rownam" "rowname" "rownames" - "sco" "scor" "score" - "sub" "subs" "subst" "substi" "substit" "substitu" "substitut" "substitute" - "svd" "syme" "symei" "symeig" "symeige" "symeigen" - "veca" "vecac" "vecacc" "vecaccu" "vecaccum" - ) - font-lock-type-face) - "\\b" - )) - ;; the ml commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(("ml") font-lock-reference-face) - "[ \t]+" - '(("b" "be" "beg" "begi" "begin" - "check" "count" - "de" "dep" "depn" "depna" "depnam" "depname" "depnames" - "di" "dis" "disp" "displ" "displa" "display" - "f" "fu" "fun" "func" "funct" "functi" "functio" "function" - "gr" "gra" "grap" "graph" - "init" - "max" "maxi" "maxim" "maximi" "maximiz" "maximize" - "me" "met" "meth" "metho" "method" - "ml" "mlo" "mlou" "mlout" - "mo" "mod" "mode" "model" - "pl" "plo" "plot" - "po" "pos" "post" - "q" "qu" "que" "quer" "query" - "re" "rep" "repo" "repor" "report" - "sa" "sam" "samp" "sampl" "sample" - "se" "sea" "sear" "searc" "search" - "trace") - font-lock-type-face) - "\\b" - )) - ;; the net commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(("net") font-lock-reference-face) - "[ \t]+" - '(( - "cd" - "d" "de" "des" "desc" "descr" "descri" "describ" "describe" - "from" "get" "install" - "link" - "q" "qu" "que" "quer" "query") - font-lock-type-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(("net") font-lock-reference-face) - "[ \t]+" - '(("set") font-lock-reference-face) - "[ \t]+" - '(("ado" "other") font-lock-type-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(("ado") font-lock-reference-face) - "[ \t]+" - '(("d" "de" "des" "desc" "descr" "descri" "describ" "describe" - "dir" - "uninstall") - font-lock-type-face) - "\\b" - )) - ;; the reshape commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(("reshape") font-lock-keyword-face) - "[ \t]+" - '(( - "clear" - "error" - "i" "j" - "long" - "wide" - "xi" "xij") - font-lock-type-face) - "\\b" - )) - ;; the return commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(("ret" "retu" "retur" "return") font-lock-reference-face) - "[ \t]+" - '(("add" "clear" "local" "matrix" "scalar") font-lock-type-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(("sret" "sretu" "sretur" "sreturn") font-lock-reference-face) - "[ \t]+" - '(("clear" "local") font-lock-type-face) - "\\b" - )) - ;; the sts commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(("sts") font-lock-reference-face) - "[ \t]+" - '(( - "g" - "gen" "gene" "gener" "genera" "generat" "generate" - "gr" "gra" "grap" "graph" - "l" "li" "lis" "list" - "t" "te" "tes" "test" - ) - font-lock-type-face) - "\\b" - )) - ;; the sw commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(("sw") font-lock-reference-face) - "[ \t]+" - '(( - "cloglog" "cnreg" "cox" "ereg" "gamma" "glm" "gompertz" "hetprob" - "llogist" "lnormal" "logistic" "logit" "ologit" "oprobit" - "poisson" "probit" "qreg" "reg" "regr" "regre" "regres" "regress" - "scobit" "tobit" "weibull" - ) - font-lock-type-face) - "\\b" - )) - ;; the window commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "win" "wind" "windo" "window" - ) font-lock-reference-face) - "[ \t]+" - '(( - "d" - "di" "dia" "dial" "dialo" "dialog" - "dir" "drop" - "fo" "fop" "fope" "fopen" - "fs" "fsa" "fsav" "fsave" - "l" "list" - "push" - "stop" "stopb" "stopbo" "stopbox" - ) font-lock-type-face) - "\\b" - )) - ;; the window controls - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "win" "wind" "windo" "window" - ) font-lock-reference-face) - "[ \t]+" - '(( - "c" "co" "con" "cont" "contr" "contro" "control" - ) font-lock-reference-face) - '(( - "button" "check" "clear" - "edit" - "mcombo" "msimple" - "radbegin" - "radend" - "radio" - "scombo" - "ssimple" - "static" - ) font-lock-type-face) - "\\b" - )) - ;; the window manage commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "win" "wind" "windo" "window" - ) font-lock-reference-face) - "[ \t]+" - '(( - "man" "mana" "manag" "manage" - ) font-lock-reference-face) - "[ \t]+" - '(( - "forward" - "minimize" - "prefs load" - "prefs save" - "prefs default" - "print graph" - "print log" - "restore" - "update variable" - ) - font-lock-type-face) - "\\b" - )) - ;; the window menu commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "win" "wind" "windo" "window" - ) font-lock-reference-face) - "[ \t]+" - '(( - "m" "me" "men" "menu" - ) font-lock-reference-face) - "[ \t]+" - '(( - "append popout" - "append string" - "append separator" - "clear" - "popout" - "set" - ) - font-lock-type-face) - "\\b" - )) - ;; the xwindow commands - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "xwin" "xwind" "xwindo" "xwindow" - ) font-lock-reference-face) - "[ \t]+" - '(( - "de" "def" "defi" "defin" "define" - "di" "dir" - "drop" - "l" "li" "lis" "list" - ) - font-lock-type-face) - "\\b" - )) - - ;; all the endless Stata keywords (not in a good order) - ;; first those keywords which must start line - ;; note that these will look like text if preceded by a comment - ;; (but comments shouldn't be before the command, anyway) - - (eval-when-compile - (make-regexps - "^[ \t]+" - '(( - "cap" "capt" "captu" "captur" "capture" - "char" "err" "erro" "error" "e" "ex" "exi" "exit" - "par" "pars" "parse" - "set" - ) font-lock-reference-face) - "\\b" - )) - ;; here are some keywords which appear in the middle of lines - ;; note that the really short abbreviations could make a mess of things - ;; - ;; These are split to allow compiling! - (eval-when-compile - (make-regexps - "\\b" - '(( - "_huber" "_qreg" "_robust" - "acprplot" "adjust" - "adopath" "alpha" - "an" "ano" "anov" "anova" "arch" - "areg" "arima" - "as" "ass" "asse" "asser" "assert" - "avplot" "avplots" - "bcskew0" - "be" "bee" "beep" - "biprobit" "bitest" "bitesti" "blogit" - "boxcox" "bprobit" "br" "break" "brier" - "bro" "brow" "brows" "browse" - "bsqreg" "bstat" "by" - "canon" "cat" "cc" "cci" "cchart" "centile" "cf" "ci" "cii" - "clogi" "clogit" "clogitp" "cloglog" - "close" "cmdtool" - "cnr" "cnre" "cnreg" "cnsreg" "codebook" "compare" - "copy" - "cor" "corc" "corr" "corre" "correl" "correla" "correlat" "correlate" - "corrgram" - "cou" "coun" "count" - "cox" "cprplot" "_crcswxx" "cs" "csi" - "ct" "ctset" "cttost" - "cumul" "cusum") - font-lock-reference-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "d" "de" "des" "desc" "descr" "descri" "describ" "describe" - "dfbeta" "dfuller" "di" - "dir" "dis" "disp" "disp_res" "disp_s" - "displ" "displa" "display" - "do" "dotplot" - "dprobit" "ds" "dstdize" "dwstat" - "eivreg" "eq" "ereg" - "fac" "fact" "facto" "factor" - "fit" "for" "fpredict" - "fracplot" "fracpoly" "fsl" - ) font-lock-reference-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "gettoken" "gladder" "glm" "glmpred" "glogit" "gnbreg" "gompertz" - "gphdot" "gphpen" "graph" "gprobit" "greigen" "grmeanby" - "hadimvo" "hausman" "heckman" "heckprob" "hetprob" "hettest" "hilite" - "hist" "hlu" "hotel" - "iqreg" "istdize" "iis" - "ins" "insp" "inspe" "inspec" "inspect" - "integ" "intreg" "ir" "iri" "ivreg" - "kap" "kappa" "kapwgt" "kdensity" "ksm" "ksmirnov" "ktau" - "kwallis" - ) font-lock-reference-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "l" "ladder" "lfit" "lincom" "linktest" - "li" "lis" "list" - "log" - "logistic" - "logi" "logit" - "loneway" "lookfor" - "lo" "loo" "look" "looku" "lookup" - "lpredict" "lroc" "lrtest" "ls" "lsens" "lstat" "ltable" "lv" "lvr2plot" - "man" "matcproc" "mcc" "mcci" - "means" - "mlog" "mlogi" "mlogit" - "mor" "more" - "mvreg" "mx_param" - "n" "nbreg" "newey" "news" - "nl" "nlinit" - "no" "noi" "nois" "noisi" "noisil" "noisily" - "note" "notes" - "nptrend" "numlist" - "olog" "ologi" "ologit" - "ologitp" - "on" "one" "onew" "onewa" "oneway" - "oprob" "oprobi" "oprobit" - "oprobitp" - "orthog" "orthpoly" - "ovtest") - font-lock-reference-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(("pac" "pchart" "pchi" "pcorr" "pergram" - "pl" "plo" "plot" - "pnorm" "poisgof" "poisson" "pperron" - "prais" - "prob" "probi" "probit" - "prtest" "prtesti" - "pwcorr" "pwd" - "q" "qchi" "qnorm" "qqplot" "qreg" "quadchk" "quantile" - "qu" "que" "quer" "query" - "qui" "quie" "quiet" "quietl" "quietly" - "ranksum" "rchart" "regdw" "regph" - "reg" "reg3" "regr" "regre" "regres" "regress" "reshape" - "rot" "rota" "rotat" "rotate" - "rreg" - "run" "runtest" "rvfplot" "rvpplot" - ) font-lock-reference-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "sampsi" "sconfirm" - "sco" "scobit" "scor" "score" - "sdtest" "sdtesti" "search" "serrbar" - "sfrancia" "shell" "shelltool" "shewhart" "signrank" "signtest" - "sktest" "slog" "spearman" "spikeplt" "sqreg" - "st" "st_is" "st_show" "st_ct" - "stcox" "stcoxkm" "stcurv" "stdes" - "stem" - "stereg" "stir" "stmc" "stmh" "stphplot" "stphtest" - "strate" "streg" - "sts" "stse" "stset" "stsum" "stvary" "stweib" - "su" "sum" "summ" "summa" "summar" "summari" "summariz" "summarize" - "sureg" - "svydes" "svyintrg" "svyivreg" "svylc" "svylogit" - "svymean" "svymean" "svymlog" "svyolog" "svyoprob" "svypois" "svyprobt" - "svyprop" "svyratio" "svyreg" "svyset" "svytab" "svytest" "svytotal" - "swilk" "symmetry" "symmi" "symplot" "syntax" "sysdir" - ) font-lock-reference-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "ta" "tab" - "tab1" "tab2" - "tabdisp" - "tabi" - "table" - "tabu" "tabul" "tabula" "tabulat" "tabulate" - "te" "tes" "test" - "testnl" "testparm" "tis" - "tob" "tobi" "tobit" - "token" "tokeni" "tokeniz" "tokenize" - "touch" "tsreport" "tsset" "tsunab" "ttest" "ttesti" - "ty" "typ" "type" - "unab" "using" - "vce" - "verinst" "vif" "vwls" - "weibull" "which" "who" "wntestb" "wntestq" - "xchart" "xcorr" - "xtclog" "xtdes" "xtgee" "xtgls" "xthaus" "xtintreg" - "xtlogit" "xtnbreg" "xtpois" "xtprobit" - "xtrchh" "xtreg" "xtsum" "xttab" "xttest0" "xttobit" "xttrans" - "zip" "zinb" - ) font-lock-reference-face) - "\\b" - )) - - ;; conditional statements - ;; if might not work right ('cuz it is also a keyword) - (eval-when-compile - (make-regexps - "^[ \t]*\\sw+[ \t]*" - '(("if" - ) font-lock-reference-face t t) - "\\b" - )) - - (eval-when-compile - (make-regexps - "^[ \t]*" - '(("if" "while" - ) font-lock-reference-face t t) - "[ \t]+.*{" - )) - ;; else statement (which must just have a {) - (eval-when-compile - (make-regexps - "^[ \t]*" - '(("else" - ) font-lock-reference-face) - "[ \t]*{" - )) - - ;; short version of list --- which can get fooled if used as a var - (eval-when-compile - (make-regexps - '(("^[ \t]*l\\b" - ) font-lock-reference-face) - )) - - ;; all the Stata options - ;; commonly used options - (eval-when-compile - (make-regexps - "[ \t]+" - '(("byte" "int" "long" "str[1-9]+[0-9]?" "float" "double" - "width" "maxobs" "maxvar" - ) font-lock-type-face) - "[ \t]+" - )) - ;; special local variables (used in parsing) - (eval-when-compile - (make-regexps - "^[ \t]+\\(local\\)+[ \t]+" - '(("varlist" "exp" "weight" "if" "in" "using" "options" - ) font-lock-type-face nil t t) - "\\b" - )) - - ;; things used with display - ;; since these are often split across lines, and Stata commands are hard - ;; to delimit, this will highlight even if out of context - - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "_c" "_co" "_con" "_cont" "_conti" "_contin" "_continu" "_continue" - "_n" "_ne" "_new" "_newl" "_newli" "_newlin" "_newline" - "_quote" - "_r" "_re" "_req" "_requ" "_reque" "_reques" "_request" - ) - font-lock-type-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "[ \t]+" - '(( - "_col" "_colu" "_colum" "_column" - "_d" "_du" "_dup" - "_s" "_sk" "_ski" "_skip" - ) - font-lock-type-face) - "([1-9]+[0-9]*)\\b" - )) - (eval-when-compile - (make-regexps - "\\bin[ \t]+" - '(( - "b" "bl" "blu" "blue" - "g" "gr" "gre" "gree" "green" - "r" "re" "red" - "w" "wh" "whi" "whit" "white" - "y" "ye" "yel" "yell" "yello" "yellow" - ) font-lock-type-face) - "\\b" - )) - - ;; labels - (eval-when-compile - (make-regexps - "[ \t]+" - '(("lab" "labe" "label" - ) font-lock-reference-face t) - "[ \t]+" - '(( - "da" "dat" "data" - "de" "def" "defi" "defin" "define" - "di" "dir" - "drop" - "l" "li" "lis" "list" - "save" - "val" "valu" "value" "values" - "var" "vari" "varia" "variab" "variabl" "variable" - ) font-lock-type-face nil t t) - "[ \t]" - )) - - ;; all Stata data-altering stuff - (eval-when-compile - (make-regexps - "\\b" - '(( - "_pctile" "_predict" - "aorder" "append" - "bcskew0" "bsample" "bs" "bstrap" - "cd" "chdir" "clear" "compress" - "contract" "convert" "cross" - "dec" "deco" "decod" "decode" - "discard" "drop" "dydx" - "ed" "edi" "edit" "egen" - "en" "enc" "enco" "encod" "encode" - "erase" - "expand" - "fillin" - "form" "forma" "format" - "fracgen" "fracpred" - "g" "ge" "gen" "gene" "gener" "genera" "generat" "generate" - "gsort" - "impute" - "infile" "infix" "input" "insheet" "integ" "ipolate" - "joinby" - "keep" - "lnskew0" - ) font-lock-keyword-face) - "\\b" - )) - (eval-when-compile - (make-regexps - "\\b" - '(( - "mark" "markout" "marksample" - "matname" - "mer" "merg" "merge" - "mkdir" "mkmat" "mkspline" - "mleval" "mlmatsum" "mlsum""mlvecsum" - "modify" "mov" "move" - "mvdecode" "mvencode" "nlpred" "nobreak" "order" - "ou" "out" "outf" "outfi" "outfil" "outfile" - "outs" "outsh" "outshe" "outshee" "outsheet" - "pctile" - "post" "postclose" "postfile" - "pre" "pred" "predi" "predic" "predict" - "preserve" "range" - "recast" "recode" - "ren" "rena" "renam" "rename" - "renpfix" "replace" "restore" "rm" - "sappend" - "sa" "sav" "save" - "sample" "sdrop" - "separate" - "simul" "sinfile" "smerge" - "smooth" "snapspan" - "so" "sor" "sort" - "ssave" "ssort" "stack" - "stbase" "stfill" "stgen" "stjoin" "stsplit" "sttocc" "sttoct" - "suse" "svmat" - "tsfill" "tsrevar" - "u" "us" "use" - "xi" "xi:" "xtile" "xpose" - "xtdata" "xtpred" - ) font-lock-keyword-face) - "\\b" - )) - - ;; assignment of macros - (eval-when-compile - (make-regexps - "^[ \t]*" - '(("global" "local" "scalar" - ) font-lock-reference-face) - '(("\\([ \t]+[a-zA-Z_]+[a-zA-Z_0-9]*\\b\\)?" - ) font-lock-variable-name-face t) - )) - ;; choosing temp names - (eval-when-compile - (make-regexps - "^[ \t]*" - '(("tempname" "tempfile" "tempvar" - ) font-lock-reference-face) - '(("\\([ \t]+[a-zA-Z_]+[a-zA-Z_0-9`']*\\)+" - ) font-lock-type-face t) - )) - ;; all variable/macro stuff (put late so it will override) - ;; internal constants - (eval-when-compile - (make-regexps - "[^a-zA-Z]" - '(("_merge" "_n" "_pi" "_rc" "_N" - ) font-lock-variable-name-face) - "[^a-zA-Z]" - )) - ;; some generated vars - (eval-when-compile - (make-regexps - '(("_result([1-9]+)" - ) font-lock-variable-name-face) - )) - ;; global macros - (eval-when-compile - (make-regexps - '(("\\$[a-zA-Z_*]+[a-zA-Z_0-9]*" - ) font-lock-variable-name-face t) - )) - ;; local macros - (eval-when-compile - (make-regexps - "`+" - '(("[a-zA-Z_`*]+[a-zA-Z_0-9]*" ;has glitch interior ` is highlighted - ) font-lock-variable-name-face t) - "'+" - )) - ;; other macro commands - (eval-when-compile - (make-regexps - "[ \t]*" - '(( - "ma" "mac" "macr" "macro" - ) font-lock-reference-face) - "[ \t]+" - '(( - "de" "def" "define" - "di" "dir" - "drop" - "l" "li" "lis" "list" - "s" "sh" "shi" "shif" "shift" - ) - font-lock-type-face) - "[ \t]+" - )) - ;; stata 'functions' i.e. things which require () after them - (eval-when-compile - (make-regexps - "\\b" - '(("_caller" - "abs" "acos" "asin" "atan" "autocode" - "Binomial" - "binorm" - "chiprob" "comb" "cond" "cos" - "d" "date" "digamma" "day" - "dofh" "dofm" "dofq" "dofw" "dofy" "dow" "doy" - "e" "exp" - "float" "fprob" "gammap" "get" "group" - "h" "halfyear" "halfyearly" "hofd" - "ibeta" "index" "int" - "invbinomial" "invchi" "invfprob" "invgammap" "invnchi" "invnorm" "invt" - "length" "ln" "lnfact" "lngamma" "log" "log10" "lower" "ltrim" - "m" "matrix" "max" "mdy" "min" "missing" "mod" "mofd" "month" "monthly" - "nchi" "normd" "normprob" "npnchi" - "q" "qofd" "quarter" "quarterly" - "r" "real" "recode" "reldif" "replay" "return" "round" "rtrim" - "s" "scalar" "sign" "sin" "sqrt" "string" "substr" "sum" - "tan" "tprob" "trigamma" "trim" - "uniform" "uniform0" "upper" - "w" "week" "weekly" "wofd" - "y" "year" "yearly" "yh" "ym" "yofd" "yq" "yw" - ) - font-lock-reference-face t) - "(" - )) - ;; stata 'functions' i.e. things which require [] after them - (eval-when-compile - (make-regexps - "\\b" - '(("_b" "_coef" "_se") - font-lock-reference-face t) - "\\[" - )) - ;; common Stata options which require a () after them - (eval-when-compile - (make-regexps - "[, \t]+" - '(("bands" "by" "connect" "density" "gap" "iterate" "ltolerance" "margin" - "psize" "saving" "tlabel" "tolerance" - "xlabel" "xscale" "ylabel" "yscale") - font-lock-type-face t) - "(" - )) - ;; egen 'function' options - (eval-when-compile - (make-regexps - "[ \t]*egen[ \t]+.*=[ \t]*" - '(("count" "diff" "fill" "group" "iqr" - "ma" "max" "mean" "median" "min" "mtr" "pctile" - "rank" "rfirst" "rlast" "rmax" "rmean" "rmin" "rmiss" "robs" "rsd" "rsum" - "sd" "std" "sum") - font-lock-reference-face t) - "(.*)" - )) - ;; All Custom ado files which are 'reliable' and which are not file killers - ;; this might be a useless endeavor --- but I cannot generate tag files - ;; all the s-extensions are listed under Stata's name (since they alter - ;; data and will be moved to the utils directory - (eval-when-compile - (make-regexps - "[ \t]*" - '(("addnote" "anypath" "autolab" "checkvar" "ck1icd9" "ckicd9" - "datetoe" "dattomdy" "den2dem" "dishis" "dtapath" "dupclean" "echo" - "exdupbil" "ezip2hsa" "getdate" "getlbl" "getnames" "getobs" "gplur" - "icd9" "issorted" "isfile" "jultoe" "jultof" "jultomdy" "knowndup" - "labeldir" "linker" - "markit" "makewide" "missize" "mpcounts" - "nodups" "notefile" "prov2zip" - "qcolsum" "qorder" - "random" "readraw" "readzip" "repart" - "setup" "stdrate" - "timeslot" - "wdatetoe" "wdatomdy" "zip2ezip" - "_addext" "_brclean" "_brckado" "_brdlog" - "_ckbad" "_ckdunno" "_ckdupl" "_ckmiss" "_ckok" "_ckwarn" - "_delimit" "_filenm" "_lookup" "_mk_ck" - ) font-lock-function-name-face) - "\\b" - )) - )) - - -(defvar ess-STA-mode-font-lock-defaults (ado-set-font-lock-keywords) - "Set the Stata mode font-lock keywords to Bill Rising's ado-mode keywords.") - -(defvar STA-editing-alist - '((paragraph-start . (concat "[ \t\f]*$\\|" page-delimiter)) - (paragraph-separate . (concat "[ \t\f]*$\\|" page-delimiter)) - (paragraph-ignore-fill-prefix . t) - (require-final-newline . mode-require-final-newline) - (comment-column . 40) - ;;(comment-indent-function . 'S-comment-indent) - ;;(ess-comment-indent . 'S-comment-indent) - ;;(ess-indent-line . 'S-indent-line) - ;;(ess-calculate-indent . 'ess-calculate-indent) - (indent-line-function . 'ess-indent-line) - (parse-sexp-ignore-comments . t) - (ess-style . ess-default-style) - (ess-local-process-name . nil) - ;;(ess-keep-dump-files . 'ask) - (ess-mode-syntax-table . STA-syntax-table) - (font-lock-defaults . '(ess-STA-mode-font-lock-defaults - nil nil ((?\. . "w"))))) - "General options for editing Stata do and ado source files.") - -;; YOU USED TO HAVE TO (with Thomas's version): -;;;;; Add the following to your .emacs file -;; -;;(autoload 'stata "~/ess-sta-l.el" "inferior stata mode" t ) -;;(autoload 'stata-help "stata" "stata help mode" t) -;;(autoload 'stata-mode "~/ess-sta-l.el" "stata mode" t) -;; -;;(if (assoc "\\.do$" auto-mode-alist) nil -;; (setq auto-mode-alist -;; (append -;; '(("\\.do$" . stata-mode) -;; ("\\.ado$" . stata-mode)) -;; auto-mode-alist))) -;; - - -;; QUESTIONS TO ASK THOMAS: -;; 1 - are 'help' and 'lookup' the same? -;; 2 - what is the point of the review buffer? -;; 3 - how to quit? - -;; -;; NOTE: all of Thomas's functions have been left here, to be removed -;; or merged into real locations as we work on this. -;; - - -;;;;;;;;; Things to change - -(defvar stata-switches "-q" - "*Switches to apply to stata invocation.") - -(defvar stata-profile "~/.stataprofile" - "File to read on startup (nil for no file).") - -(define-obsolete-function-alias 'stata-help 'ess-display-help-on-object "ESS[15.09]") -(define-obsolete-function-alias 'stata-lookup 'ess-display-help-apropos "ESS[16.03]") - -;; fixme? Hook this on C-c C-s /ess-execute-search does an R search() right now/ -(defun stata-variables () - "Stata variable list in other buffer." - (interactive) - (let* ((stata-process (get-process "stata")) - (stata-buffer (if stata-process - (process-buffer stata-process) - (error "Stata is not running."))) - oldpf oldpb oldpm) - (set-buffer stata-buffer) - (setq oldpf (process-filter stata-process)) - (setq oldpb (process-buffer stata-process)) - (setq oldpm (marker-position (process-mark stata-process))) - (save-excursion - (if stata-process nil (error "Stata is not running.")) - (beginning-of-line) - (if (looking-at ". ") nil (error "Stata not ready.")) - (save-excursion - (set-process-buffer stata-process - (get-buffer-create "*stata variables*")) - (set-process-filter stata-process 'inferior-ess-ordinary-filter) - (set-buffer "*stata variables*") - (setq buffer-read-only nil) - (erase-buffer) - (process-send-string stata-process "desc \n ") - (stata-prompt-wait stata-process) - (setq buffer-read-only t) - (set-buffer stata-buffer) - (set-process-buffer stata-process oldpb) - (set-marker (process-mark stata-process) oldpm) - (set-process-filter stata-process oldpf))) - (display-buffer "*stata variables*") - (goto-char (point-max)))) - -;;;; -;;; This doesn't do anything at the moment. I have vague plans of -;;; implementing a menu interface using emacs -;;; -(defun stata-watch-for-menu-filter (proc string) - (if (string-match "^!!!window!!!" string) - (stata-handle-menu-code proc string) - (comint-output-filter proc string))) - -(defun stata-handle-menu-code (proc string) - (let ((old-buffer (current-buffer))) - (unwind-protect - (let (moving) - (set-buffer (process-buffer proc)) - (setq moving (= (point) - (process-mark proc))) - (save-excursion - ;; Insert the text, moving the process-marker. - (goto-char (process-mark proc)) - (insert "Handling menu code\n") - (set-marker (process-mark proc) (point))) - (if moving (goto-char (process-mark proc)))) - (set-buffer old-buffer)))) - -;;;; - -(defun stata-prompt-wait (proc &optional start-of-output) - "Wait for a prompt to appear at BOL of current buffer. -PROC is the stata process. Does not change point." - (if start-of-output nil (setq start-of-output (point-min))) - (save-excursion - (while (progn - ;; get output if there is some ready - (accept-process-output proc 0 50) - (goto-char (marker-position (process-mark proc))) - (beginning-of-line) - (if (< (point) start-of-output) (goto-char start-of-output)) - (not (looking-at "^. ")))))) - -(defun stata-help-mode () - "Major mode for displaying Stata help in a read-only buffer. -Active commands are Help (\\[stata-help]) and hyperlink -(\\[stata-rehelp] or mouse-2)." - (interactive) - (setq major-mode 'stata-help-mode) - (setq mode-name "Stata help") - ;;(use-local-map stata-help-mode-map) - (setq buffer-read-only t)) - -;;; Suggested function from Brendan Halpin: -(defvar ess-STA-delimit-do-file "delimit-do.do") - -(defun ess-STA-delimit-do () - (save-excursion - (let ((commands (buffer-substring-no-properties (region-beginning) - (region-end)))) - (set-buffer (get-buffer-create ess-STA-delimit-do-file)) - (delete-region (point-min) (point-max)) - (insert "#delimit ;\n" - commands - "\n#delimit cr\n") - (write-file ess-STA-delimit-do-file nil) - (comint-send-string "Stata" - (format "do %s \n" ess-STA-delimit-do-file))))) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - - -(provide 'ess-stata-lang) - -;;; ess-stata-lang.el ends here diff --git a/elpa/ess-20181109.703/ess-stata-mode.el b/elpa/ess-20181109.703/ess-stata-mode.el deleted file mode 100644 index 646ccf47..00000000 --- a/elpa/ess-20181109.703/ess-stata-mode.el +++ /dev/null @@ -1,174 +0,0 @@ -;;; ess-stata-mode.el --- Stata customization - -;; Copyright (C) 1997--1999 A. J. Rossini, Thomas Lumley -;; Copyright (C) 1997--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 9 Sep 1998 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file defines all the Stata customizations for ess-mode. It is somewhat -;; based on Stata-mode by Thomas Lumley . - -;;; Code: - -(require 'ess-mode) -(require 'ess-stata-lang) - -(defvar STA-dialect-name "stata" - "Name of 'dialect' for Stata.");easily changeable in a user's .emacs - -(defvar STA-customize-alist - '((ess-local-customize-alist . 'STA-customize-alist) - (ess-language . "STA") - (ess-dialect . STA-dialect-name) - (ess-suffix . "ado") - (ess-mode-editing-alist . STA-editing-alist) - (ess-mode-syntax-table . STA-syntax-table) - (ess-mode-edit . 'STA-mode) - (ess-help-sec-regex . ess-help-STA-sec-regex) - (ess-help-sec-keys-alist . ess-help-STA-sec-keys-alist) - (ess-loop-timeout . 500000 ) - (ess-object-name-db-file . "ess-sta-namedb.el" ) - (ess-help-web-search-command . "https://www.stata.com/search/?q=%s&restrict=&btnG=Search&client=stata&num=&output=xml_no_dtd&site=stata&ie=&oe=UTF-8&sort=&proxystylesheet=stata") - (ess-eval-linewise-function . #'stata-eval-linewise) - (inferior-ess-program . inferior-STA-program) - (inferior-ess-objects-command . "describe\n") - (inferior-ess-help-command . "help %s\n") ;; assumes set more off - (inferior-ess-exit-command . "exit\n") - ;; --more-- is necessary here (hangs otherwise if startup stata.msg is big) - (inferior-ess-primary-prompt . "[.:] \\|--more--") - (inferior-ess-secondary-prompt . "--more--") - (comint-use-prompt-regexp . t) - (inferior-ess-start-file . inferior-STA-start-file) ;"~/.ess-stata") - (inferior-ess-start-args . inferior-STA-start-args) - (ess-get-help-topics-function . 'ess-get-STA-help-topics) - (inferior-ess-search-list-command . "set more off\n search()\n") - (comment-start . "/\* ") - (comment-end . " \*/") - (comment-start-skip . "/\\*+ *") - (comment-use-syntax . t) ;; needed for multiline - (ess-execute-screen-options-command . "set linesize %s\n") - (ess-getwd-command . "pwd\n") - (ess-setwd-command . "cd \"%s\"\n") - (ess-load-command . "run \"%s\"\n")) - "Variables to customize for Stata.") - - -;;;###autoload -(defun STA-mode (&optional proc-name) - "Major mode for editing Stata source. See `ess-mode' for more help." - (interactive) - (setq ess-customize-alist STA-customize-alist) - (ess-mode STA-customize-alist proc-name)) - -(fset 'stata-mode 'STA-mode) -(fset 'Stata-mode 'STA-mode) - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.do\\'" . STA-mode)) -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.ado\\'" . STA-mode)) - - -(defun ess-sta-remove-comments (string) - "Remove one-line comments before sending the STRING to process. - -This function is placed in `ess-presend-filter-functions'. -" - (replace-regexp-in-string "/\\*.*\\*/\\|^//.*$" "" string)) - -;; (ess-sta-remove-comments "aaa /* sdfdsf */ bbb -;; sdfsd -;; ccc -;; // sdfsf -;; sdf /* sdfdsf */ -;; sdfsf -;; " ) - - -(defvar ess-stata-post-run-hook nil - "Functions run in process buffer after the initialization of - stata process.") - -(defun stata (&optional start-args) - "Call Stata." - (interactive "P") - (setq ess-customize-alist STA-customize-alist) - (ess-write-to-dribble-buffer - (format "(STA): ess-dialect=%s , buf=%s \n" - ess-dialect - (current-buffer))) - (let ((sta-start-args - (concat inferior-STA-start-args - (when start-args (read-string "Starting Args [possibly -k####] ? "))))) - (inferior-ess sta-start-args) - (let ((proc (get-process ess-local-process-name))) - (while (process-get proc 'sec-prompt) - ;; get read of all --more-- if stata.msg is too long. - (ess-send-string proc "q") - (ess-wait-for-process proc t)) - (ess-send-string proc "set more off") - (goto-char (point-max)) - (with-current-buffer (process-buffer proc) - (add-hook 'ess-presend-filter-functions 'ess-sta-remove-comments nil 'local) - (run-mode-hooks 'ess-stata-post-run-hook))))) - - -(defun STA-transcript-mode () - "Stata transcript mode." - (interactive) - (ess-transcript-mode STA-customize-alist)) - -(defun ess--STA-retrive-topics-from-search () - (with-current-buffer (ess-command inferior-ess-search-list-command) - (goto-char (point-min)) - (let (topics) - (while (re-search-forward "(help \\(.+?\\)\\( if installed\\| for replacement.*\\)?)$" nil t) - (setq topics - (nconc (split-string (match-string-no-properties 1) ",\\|; +") - topics))) - (nreverse (delete-dups topics)) - ))) - -(defun ess-get-STA-help-topics (&optional name) - "Return a list of current STA help topics associated with process NAME." - (or (ess-process-get 'help-topics) - (progn - (ess-process-put 'help-topics (ess--STA-retrive-topics-from-search)) - (ess-process-get 'help-topics)))) - -(defun stata-eval-linewise (text &optional invisibly &rest args) - ;; The following is required to make sure things work! - (let ((ess-eval-linewise-function nil) - ;; RAS: mindless replacement of semi-colons - (text (if ess-sta-delimiter-friendly - (ess-replace-in-string text ";" "\n") - text))) - (apply #'ess-eval-linewise text t args))) - - ; Provide package - -(provide 'ess-stata-mode) - -;;; ess-stata-mode.el ends here diff --git a/elpa/ess-20181109.703/ess-swv.el b/elpa/ess-20181109.703/ess-swv.el deleted file mode 100644 index d32127f9..00000000 --- a/elpa/ess-20181109.703/ess-swv.el +++ /dev/null @@ -1,425 +0,0 @@ -;;; ess-swv.el --- Some simple functions for ESS and Sweave - -;; Copyright (C) 2005 David Whiting, A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. -;; Copyright (C) 2006-2008 A.J. Rossini, Richard M. Heiberger, Martin Maechler, -;; Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: David Whiting -;; Created: 15 April 2005 -;; Maintainer: ESS-core - -;; Keywords: statistics, tools - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; -;; Some simple functions for ESS and Sweave -;; david.whiting at ncl.ac.uk -;; Wed Sep 1 14:55:52 CEST 2004 - -;; I have written some very simple elisp functions that I have found -;; useful and thought others might like to see. I dabble with elisp -;; occasionally at best so there are probably better ways to do what I -;; have done, but so far this seems to work for me. There are several -;; things that are hard-coded, I use Linux and I think that this would -;; probably not work in Windows (not as it is now anyway). - -;; With these functions and key bindings all I need to do is open a .Rnw -;; file and, assuming R is running, I press: - -;; M-n s to Sweave the file, then -;; M-n l to run latex on the results of Sweave, then -;; M-n p to make and display a postscript file , or -;; M-n P to make and display a PDF version. - -;; David Whiting to Anthony Rossini, Mar 30 -;; On Wed, Mar 30, 2005 at 11:51:26AM +0200, A.J. Rossini wrote: -;; > I'm going to go ahead and add this stuff to the distribution tonight -;; > if you don't mind. I'd forgotten about it! -;; It would make me very happy indeed. -;; > (however, need permission to do so). -;; Permission granted! - -;; Dave -;; -- -;; David Whiting -;; School of Clinical Medical Sciences, The Medical School -;; University of Newcastle upon Tyne, NE2 4HH, UK. - - -;;; TODO: -;;; -;;; 1. I want to be able to send ess-swv-latex a parameter to tell it -;;; the number of times to run LaTeX (to get references updated -;;; correctly). -;;; -;;; 2. Also need to add ess-swv-Bibtex. -;;; -;;; 3. Might be good to have a way to chain commands. -;;; -;;; 4. ADD to the ../doc/ess.texi !! - - -;;; Code: - -;;; Autoloads and Requires - -(eval-when-compile - (require 'ess-custom)) - -(require 'ess-utils) -(require 'ess-noweb-mode) -(require 'ess-r-mode); for Rnw-mode -(require 'easymenu) - -(defvar TeX-command-list) -(defvar TeX-command-default) -(defvar TeX-file-extensions) -(declare-function TeX-normal-mode "tex") - -(defcustom ess-swv-processing-command ".ess_weave(%s, %s)" - "Command used by `ess-swv-run-in-R'. - -First %s is literally replaced by the processing command (for -example: Sweave) second %s is replaced with a string containing a -processed file and possibly additional argument encoding (example: -\"path/to/foo.Rnw\", encoding='utf-8') - -.ess_weave changes the working directory to that of the supplied -file. - -If you want to simply call knitr or Sweave in global environment -set this command to \"%s(%s)\"." - :group 'ess-R - :type 'string) - -;; currently use exactly for "Sweave", "Stangle", "knit", and "purl" -(defun ess-swv-run-in-R (cmd &optional choose-process block) - "Run \\[cmd] on the current .Rnw file. Utility function not called by user." - (let* ((rnw-buf (current-buffer))) - (if choose-process ;; previous behavior - (ess-force-buffer-current "R process to load into: ") - ;; else - (update-ess-process-name-list) - (cond ((= 0 (length ess-process-name-list)) - (message "no ESS processes running; starting R") - (sit-for 1); so the user notices before the next msgs/prompt - (run-ess-r) - (set-buffer rnw-buf) - ) - ((not (string= "R" (ess-make-buffer-current))); e.g. Splus, need R - (ess-force-buffer-current "R process to load into: ")) - )) - - (save-excursion - ;; (ess-execute (format "require(tools)")) ;; Make sure tools is loaded. - (basic-save-buffer); do not Sweave/Stangle old version of file ! - (let* ((sprocess (ess-get-process ess-current-process-name)) - (sbuffer (process-buffer sprocess)) - (rnw-file (buffer-file-name)) - (Rnw-dir (file-name-directory rnw-file)) - (buf-coding (symbol-name buffer-file-coding-system)) - ;; could consider other encodings, but utf-8 is "R standard" for non-ASCII: - (cmd-args (concat "\"" rnw-file "\"" - (if (string-match "^utf-8" buf-coding) - ", encoding = \"utf-8\""))) - (Sw-cmd - (format ess-swv-processing-command cmd cmd-args))) - (message "%s()ing %S" cmd rnw-file) - ;; need to block when we are running ess-swv-weave-PDF so we - ;; know when to start compiling the generated .tex file - (if block - (progn - (ess-eval-linewise (concat Sw-cmd "\n") nil nil nil t) - (message "Finished %s()ing %S" cmd rnw-file)) - (ess-execute Sw-cmd 'buffer nil nil) - (switch-to-buffer rnw-buf) - (ess-show-buffer (buffer-name sbuffer) nil)))))) - -(defcustom ess-swv-processor 'sweave - "Processor to use for weaving and tangling. -Currently 'sweave or 'knitr" - :group 'ess-R - :type '(choice (const sweave) (const knitr))) - - -(defun ess-swv-tangle () - "Run Stangle/purl on the current .Rnw file. -Depending on the `ess-swv-processor' used." - (interactive) - (ess-swv-run-in-R (cond ((eq ess-swv-processor 'sweave) "Stangle") - ((eq ess-swv-processor 'knitr) "purl") - (t (error "Not a valid processor %s" ess-swv-processor))))) - -(defun ess-swv-weave (&optional choose) - "Run Sweave/knit on the current .Rnw file. -Depending on the `ess-swv-processor' used. - -If CHOOSE is non-nil, offer a menu of available weavers. -" - (interactive "P") - (let ((processor (if choose - (ess-completing-read "Weaver" '("sweave" "knitr") nil t) - (symbol-name ess-swv-processor)))) - (ess-swv-run-in-R (cond ((string= processor "sweave") "Sweave") - ((string= processor "knitr") "knit") - (t (error "Not a valid processor %s" processor)))))) - -(defun ess-swv-sweave () - "Run Sweave on the current .Rnw file." - (interactive) - (ess-swv-run-in-R "Sweave")) - -(defun ess-swv-stangle () - "Run Stangle on the current .Rnw file." - (interactive) - (ess-swv-run-in-R "Stangle")) - -(defun ess-swv-knit () - "Run knit on the current .Rnw file." - (interactive) - (ess-swv-run-in-R "knit")) - -(defun ess-swv-purl () - "Run purl on the current .Rnw file." - (interactive) - (ess-swv-run-in-R "purl")) - -(defun ess-swv-weave-PDF (&optional choose) - "Sweave/knit, compile TeX, and display PDF. -Run Sweave or knit depending on `ess-swv-processor' used. - -If CHOOSE is non-nil, offer a menu of available weavers. -" - (interactive "P") - (let ((processor (if choose - (ess-completing-read "Weaver" '("sweave" "knitr") nil t) - (symbol-name ess-swv-processor)))) - (ess-swv-run-in-R (cond ((string= processor "sweave") "Sweave") - ((string= processor "knitr") "knit") - (t (error "Not a valid processor %s" processor))) - nil t) - (ess-swv-PDF nil t))) - - -(defun ess-swv-latex () - "Run LaTeX on the product of Sweave()ing the current file." - (interactive) - (save-excursion - (let* ((namestem (file-name-sans-extension (buffer-file-name))) - (latex-filename (concat namestem ".tex")) - (tex-buf (get-buffer-create " *ESS-tex-output*"))) - (message "Running LaTeX on '%s' ..." latex-filename) - (switch-to-buffer tex-buf) - (call-process "latex" nil tex-buf 1 latex-filename) - (switch-to-buffer (buffer-name)) - (display-buffer tex-buf) - (message "Finished running LaTeX" )))) - - -(defun ess-swv-PS () - "Create a postscript file from a dvi file (name based on the current -Sweave file buffer name) and display it." - (interactive) - (let* ((buf (buffer-name)) - (namestem (file-name-sans-extension (buffer-file-name))) - (dvi-filename (concat namestem ".dvi")) - (psviewer (ess-get-ps-viewer))) - (shell-command (concat "dvips -o temp.ps " dvi-filename)) - (shell-command (concat psviewer " temp.ps & ")) - (switch-to-buffer buf) - )) - -(defun ess-swv-PDF (&optional pdflatex-cmd hide-compile-buffer) - "From LaTeX file, create a PDF (via 'texi2pdf' or 'pdflatex', ...), by -default using the first entry of `ess-swv-pdflatex-commands' and display it." - (interactive) - (setq pdflatex-cmd - (or pdflatex-cmd - (and (eq (length ess-swv-pdflatex-commands) 1) - (car ess-swv-pdflatex-commands)) - (ess-completing-read "pdf latex command" - ess-swv-pdflatex-commands ; <- collection to choose from - nil 'confirm ; or 'confirm-after-completion - nil nil (car ess-swv-pdflatex-commands)))) - (let* ((buf (buffer-name)) - (namestem (file-name-sans-extension (buffer-file-name))) - (latex-filename (concat namestem ".tex")) - (tex-buf (get-buffer-create "*ESS-tex-output*")) - (pdfviewer (ess-get-pdf-viewer)) - (pdf-status) - (cmdstr-win (format "start \"%s\" \"%s.pdf\"" pdfviewer namestem)) - (pdffile (format "%s.pdf" namestem)) - (cmd (if (stringp pdfviewer) - (list pdfviewer pdffile) - (append pdfviewer (list pdffile))))) - - ;;(shell-command (concat "pdflatex " latex-filename)) - (message "Running '%s' on '%s' ..." pdflatex-cmd latex-filename) - (with-current-buffer tex-buf (erase-buffer)) - (setq pdf-status - (call-process pdflatex-cmd nil tex-buf t - (if (string= "texi2" (substring pdflatex-cmd 0 5)) - ;; workaround (bug?): texi2pdf or texi2dvi *fail* to work with full path: - (file-name-nondirectory latex-filename) - latex-filename))) - (if (not (= 0 pdf-status)) - (progn (message "** OOPS: error in '%s' (%d)!" pdflatex-cmd pdf-status) - (display-buffer tex-buf)) - ;; else: pdflatex probably ok - ;; (set-process-sentinel proc 'shell-command-sentinel) - (if (and (and ess-microsoft-p - ;; Silence byte compiler warns about w32-fns - (fboundp 'w32-shell-dos-semantics)) - (w32-shell-dos-semantics)) - (shell-command cmdstr-win) - (message (mapconcat 'identity cmd " ")) - (apply 'start-process (car cmd) nil cmd)) - (unless hide-compile-buffer (display-buffer tex-buf)) - (message "%s finished with status %d" pdflatex-cmd pdf-status)))) - - -(defun ess-insert-Sexpr () - "Insert Sexpr{} into the buffer at point." - (interactive) - (insert "\\Sexpr{}") - (backward-char)) - - -;;; back-compatible wrappers: -(defun ess-makeSweave () "old *DEPRECATED* version of \\[ess-swv-weave]." - (interactive) (ding) - (message - "** warning: ess-makeSweave is deprecated. Do use (ess-swv-weave) instead!") - (ess-swv-weave)) - -(defun ess-makeLatex () "old *DEPRECATED* version of \\[ess-swv-latex]." - (interactive) (ding) - (message - "** warning: ess-makeLatex is deprecated. Do use (ess-swv-latex) instead!") - (ess-swv-latex)) - -(defun ess-makePS () "old *DEPRECATED* version of \\[ess-swv-PS]." - (interactive) (ding) - (message - "** warning: ess-makePS is deprecated. Do use (ess-swv-PS) instead!") - (ess-swv-PS)) - -(defun ess-makePDF () "old *DEPRECATED* version of \\[ess-swv-PDF]." - (interactive) (ding) - (message - "** warning: ess-makePDF is deprecated. Do use (ess-swv-PDF) instead!") - (ess-swv-PDF)) - - -;; AUCTeX integration. This is independent of this library, but it fits -;; here nonetheless since it's an alternative way of Sweave'ing without -;; starting iESS. - -(defun ess-swv-add-TeX-commands () - "Add commands to AUCTeX's \\[TeX-command-list]." - (unless (and (featurep 'tex-site) (featurep 'tex)) - (error "AUCTeX does not seem to be loaded")) - (add-to-list 'TeX-command-list - '("Sweave" "R CMD Sweave %t" - TeX-run-command nil (latex-mode) :help - "Run Sweave") t) - (add-to-list 'TeX-command-list - '("LaTeXSweave" "%l %(mode) %s" - TeX-run-TeX nil (latex-mode) :help - "Run LaTeX after Sweave") t) - (setq TeX-command-default "Sweave") - (mapc (lambda (suffix) - (add-to-list 'TeX-file-extensions suffix)) - '("nw" "Snw" "Rnw"))) - -(defun ess-swv-remove-TeX-commands (x) - "Helper function: check if car of X is one of the Sweave strings" - (let ((swv-cmds '("Sweave" "LaTeXSweave"))) - (unless (member (car x) swv-cmds) x))) - -(defun ess-swv-plug-into-AUCTeX () - "Add commands to AUCTeX's \\[TeX-command-list] to sweave the current noweb -file and latex the result." - (if ess-swv-plug-into-AUCTeX-p - (add-hook 'Rnw-mode-hook 'ess-swv-add-TeX-commands) - (remove-hook 'Rnw-mode-hook 'ess-swv-add-TeX-commands) - (setq TeX-command-list (mapcar 'ess-swv-remove-TeX-commands TeX-command-list) - ;; this will remove the items, leaving nils, so remove them. - TeX-command-list (delq nil TeX-command-list)))) -;; as ess-swv-plug-into-AUCTeX-p is customizable ... : -(if ess-swv-plug-into-AUCTeX-p - (eval-after-load "tex" '(ess-swv-plug-into-AUCTeX))) - -(defun ess-swv-toggle-plug-into-AUCTeX () - "Toggle inclusion of commands to sweave noweb files and latex the results in -\\[TeX-command-list] on and off. Commands are added via \\[Rnw-mode-hook]." - (interactive) - (unless (and (featurep 'tex-site) (featurep 'tex)) - (error "AUCTeX are not available")) - (setq ess-swv-plug-into-AUCTeX-p (not ess-swv-plug-into-AUCTeX-p)) - (ess-swv-plug-into-AUCTeX) - (TeX-normal-mode t) - (if ess-swv-plug-into-AUCTeX-p - (message "Sweave and LaTeXSweave are activated in AUCTeX.") - (message "Sweave and LaTeXSweave are de-activated in AUCTeX."))) - - -;;; Now bind some keys. -(define-key ess-noweb-minor-mode-map "\M-ns" 'ess-swv-sweave) -(define-key ess-noweb-minor-mode-map "\M-nT" 'ess-swv-tangle) -(define-key ess-noweb-minor-mode-map "\M-nl" 'ess-swv-latex) -(define-key ess-noweb-minor-mode-map "\M-np" 'ess-swv-PS) -(define-key ess-noweb-minor-mode-map "\M-nP" 'ess-swv-PDF) -(define-key ess-noweb-minor-mode-map "\M-nr" 'ess-swv-knit) -(define-key ess-noweb-minor-mode-map "\M-nu" 'ess-swv-purl) -(define-key ess-noweb-minor-mode-map "\M-nv" 'ess-swv-weave-PDF) -(define-key ess-noweb-minor-mode-map "\M-nw" 'ess-swv-weave); depends on proc. - -(define-key ess-noweb-minor-mode-map "\M-nx" 'ess-insert-Sexpr) - -;; AND add these to the noweb menu we have anyway ! : -(easy-menu-define ess-swv-menu - ess-noweb-minor-mode-menu - "Submenu for use in `Rnw-mode'." - - '("Sweaving, Tangling, ..." - ["Sweave" ess-swv-sweave t] - ["Tangle" ess-swv-tangle t] - ["LaTeX" ess-swv-latex t] - ["PDF(LaTeX)" ess-swv-PDF t] - ["PS (dvips)" ess-swv-PS t] - ["Knit" ess-swv-knit t] - ["Purl" ess-swv-purl t] - ["View PDF" ess-swv-weave-PDF t] - ["Weave (Sweave/Knit)" ess-swv-weave t] - ["Insert Sexpr" ess-insert-Sexpr t] - ["AUCTeX Interface" ess-swv-toggle-plug-into-AUCTeX - :style toggle :selected ess-swv-plug-into-AUCTeX-p] - )) - -(easy-menu-add-item ess-noweb-minor-mode-menu - nil ;; <= path - ess-swv-menu) - - ; provides - -(provide 'ess-swv) - -;;; ess-swv.el ends here diff --git a/elpa/ess-20181109.703/ess-toolbar.el b/elpa/ess-20181109.703/ess-toolbar.el deleted file mode 100644 index face0b8f..00000000 --- a/elpa/ess-20181109.703/ess-toolbar.el +++ /dev/null @@ -1,184 +0,0 @@ -;;; ess-toolbar.el --- Support for a toolbar in ESS. - -;; Copyright (C) 1997--2009 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Stephen Eglen -;; Created: 2004-05-06 -;; Revised: 2009-03-16 -;; Maintainer: ESS-core - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This code adds a toolbar to ESS modes for editing R and S code. -;; Support can be added for other modes (e.g. STATA), just ask! -;; -;; This code is experimental. It has been tested only on Linux -;; machines. All feedback appreciated. -;; -;; If your emacs can support images, the ESS toolbar should be loaded. -;; -;; If you see a toolbar, but no icons, check out the value of -;; ess-icon-directory. -;; -;; The toolbar can be customized in several ways. To see options, do: -;; M-x customize-group RET ess-toolbar RET -;; If you change any of the variables, you _may_ need to restart Emacs -;; to see any effect. See also the documentation for ess-toolbar-items -;; if you wish to change its value. - -;;; Technical issues. - -;; 2009-03-16: toolbar code in Emacs 23 has changed slightly to 22, -;; and presumably once Emacs 22 is no longer supported, this code can -;; be cleaned up a bit (i.e. no need to set load-path.) - -;;; Code: - -(require 'ess-utils) -(require 'ess-mode) - -(defgroup ess-toolbar nil - "ESS: toolbar support." - :group 'ess - :link '(emacs-commentary-link :tag "Commentary" "ess-toolbar.el") - :prefix "ess-") - -(defcustom ess-use-toolbar - (and (fboundp 'display-images-p) (display-images-p)) - "Non-nil means ESS should support the toolbar." - :type 'boolean) - - -(defcustom ess-toolbar-own-icons nil - "Non-nil means that we only put our toolbar entries in ESS. -Otherwise we get standard toolbar as well as ESS entries. -The standard toolbar items are copied from the default toolbar." - :type 'boolean) - -(defcustom ess-toolbar-global nil - "*Non-nil means that the ESS toolbar is available in all emacs buffers. -Otherwise, the ESS toolbar is present only in R/S mode buffers. -For beginners, this is probably better set to a non-nil value." - :type 'boolean) - -(defcustom ess-toolbar-items - '( (R "startr") - ;;(S "spluslogo" "Start S process") - (S "splus_letter_small") - (ess-eval-line-and-step "rline") - (ess-eval-region "rregion") - (ess-eval-function-or-paragraph-and-step "rregion") - (ess-load-file "rbuffer") - (ess-eval-function "rfunction") - (ess-switch-to-ESS "switch_ess")) - "Items to be added to the ESS toolbar. -Each list element has two items: -1. the name of the function to run -2. the icon to be used (without .xpm extension) - -General toolbar items are also added to the ESS toolbar -iff `ess-toolbar-own-icons' is nil. - -Setting this variable with setq doesn't take effect once you have -loaded ess-site, unless you follow it by a call to -`ess-make-toolbar' afterwards. Instead, change its value using -Custom, and then on all new ESS buffers you should see the -toolbar has changed." - :set (lambda (symbol value) - (set-default symbol value) - (if (fboundp 'ess-make-toolbar) - (ess-make-toolbar))) - :type '(repeat (list (function :tag "Function to run") - (string :tag "Icon")))) - -(defvar ess-icon-directory - (expand-file-name "icons" ess-etc-directory) - "*Location for ESS icons. -This variable should be set automatically by the ESS install process. -Icons should be found in ESS/etc/icons/ directory. -If `ess-icon-directory' is invalid, please report a bug.") - -(unless (file-directory-p ess-icon-directory) - (ess-write-to-dribble-buffer - "`ess-icon-directory' does not exist; using `ess-etc-directory'.\n") - (setq ess-icon-directory ess-etc-directory)) - -(defvar ess-toolbar nil - "Toolbar items to be added to ESS editing buffers.") - -(defun ess-make-toolbar () - "Make the ESS toolbar." - ;; Under Emacs, only worth building the toolbar if tool-bar-map is - ;; available. e.g. when running Emacs within a terminal, tool-bar-map - ;; is not available, so no need to make the tool-bar. - (when (boundp 'tool-bar-map) - (setq ess-toolbar - (if (or ess-toolbar-own-icons (null tool-bar-map)) - (make-sparse-keymap) - (copy-keymap tool-bar-map))) - (let ((tool-bar-map ess-toolbar) - (load-path (list ess-icon-directory))) - ;; in Emacs 22, icons are found by examining load-path, bound here - ;; whereas Emacs 23 seems to want them in image-load-path, set at the - ;; bottom of this file. - (mapc #'ess-add-icon ess-toolbar-items)))) - -(defun ess-add-icon (x) - "Add an ESS item to the Emacs toolbar." - ;; By using tool-bar-add-item-from-menu instead of tool-bar-add-item - ;; we get the tooltips "for free" from ess-mode-map. - (tool-bar-add-item-from-menu (car x) (cadr x) ess-mode-map)) - -(defun ess-add-toolbar () - "Add the ESS toolbar to a particular mode. -The toolbar is added iff `ess-toolbar-global' is nil, else the toolbar -is added globally when ess-toolbar.el is loaded." - (if (and ess-toolbar (not ess-toolbar-global)) - (set (make-local-variable 'tool-bar-map) ess-toolbar))) - -;; Make the toolbars. Each toolbar is hopefully made only when this file -;; is loaded; we don't need it to be remade every time. -(if ess-use-toolbar - (progn - (ess-make-toolbar) - ;; After making the toolbar, if ESS toolbar is needed globally, - ;; add it here. - (if ess-toolbar-global - (setq tool-bar-map ess-toolbar) - (ess-write-to-dribble-buffer "Creating global Emacs toolbar")) - - ;; Check for toolbar support - needed iff ess-use-toolbar is non-nil. - (or - ;; Emacs support for images: - (and (fboundp 'display-images-p) (display-images-p)) - ;; if above tests failed, give a warning. - (progn - (message "Toolbar support for ESS not available in this emacs.") - ;; Not sure if we want to delay startup of ESS. - ;;(sit-for 2) - )) - )) - -;; Following needed for Emacs 23, not Emacs 22 -(when (boundp 'image-load-path) - (add-to-list 'image-load-path ess-icon-directory)) - -(provide 'ess-toolbar) - -;;; ess-toolbar.el ends here diff --git a/elpa/ess-20181109.703/ess-tracebug.el b/elpa/ess-20181109.703/ess-tracebug.el deleted file mode 100644 index bed3b14e..00000000 --- a/elpa/ess-20181109.703/ess-tracebug.el +++ /dev/null @@ -1,2950 +0,0 @@ -;; ess-tracebug.el --- Tracing and debugging facilities for ESS. -;; -;; Copyright (C) 2011--2017 A.J. Rossini, Richard M. Heiberger, Martin Maechler, -;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. -;; -;; Filename: ess-tracebug.el -;; Author: Vitalie Spinu -;; Maintainer: Vitalie Spinu -;; Copyright (C) 2010-2012, Vitalie Spinu, all rights reserved. -;; Created: Oct 14 14:15:22 2010 -;; URL: https://code.google.com/p/ess-tracebug/ -;; Keywords: tools, languages -;; -;; This file is *NOT* part of GNU Emacs. -;; -;; This program 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 3, any later version. -;; -;; This program 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 -;; https://www.r-project.org/Licenses/ - -;; -;; Features that might be required by this library: -;; -;; ESS - required -;; ido, face-remap, cl - desirable and are part of default emacs -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Commentary: -;; Ess-tracebug is a package for interactive debugging of R code from -;; ESS and provides such features as: -;; - visual debugging -;; - browser, recover and conditional breakpoints -;; - watch window and loggers -;; - on the fly debug/undebug of R functions and methods -;; - highlighting of error source references and easy error navigation -;; - interactive traceback. -;; -;; For a complete description please see the documentation at -;; https://code.google.com/p/ess-tracebug/ and a brief tutorial at -;; https://code.google.com/p/ess-tracebug/wiki/GettingStarted -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Code: - -(eval-when-compile - (require 'cl) - (require 'cl-lib) - (require 'tramp)) -(require 'comint) -(require 'compile) -(require 'overlay) -(require 'ring) -(require 'ess-custom) -(require 'ess-utils) - -(defvar text-scale-mode-amount) -(autoload 'text-scale-mode "face-remap" "[autoload]" nil) - -;; Silence the byte compiler. This is OK here because this file is -;; only loaded from ess-inf and has no autoloads. -;; TODO: This is a LOT. Can we move some of this around? -(defvar ess--dbg-del-empty-p) -(defvar inferior-ess-mode-map) -(defvar ess-mode-map) -(declare-function ess--accumulation-buffer "ess-inf") -(declare-function ess--if-verbose-write-process-state "ess-inf") -(declare-function ess--run-presend-hooks "ess-inf") -(declare-function ess-boolean-command "ess-inf") -(declare-function ess-build-eval-command "ess-inf") -(declare-function ess-build-load-command "ess-inf") -(declare-function ess-command "ess-inf") -(declare-function ess-dirs "ess-inf") -(declare-function ess-force-buffer-current "ess-inf") -(declare-function ess-get-process "ess-inf") -(declare-function ess-get-process-variable "ess-inf") -(declare-function ess-get-words-from-vector "ess-inf") -(declare-function ess-process-get "ess-inf") -(declare-function ess-process-live-p "ess-inf") -(declare-function ess-process-put "ess-inf") -(declare-function ess-send-string "ess-inf") -(declare-function ess-show-buffer "ess-inf") -(declare-function ess-switch-to-ESS "ess-inf") -(declare-function ess-wait-for-process "ess-inf") -(declare-function inferior-ess-run-callback "ess-inf") -(declare-function inferior-ess-set-status "ess-inf") -(declare-function ess-helpobjs-at-point--read-obj "ess-help") -(declare-function ess-r-get-evaluation-env "ess-r-mode") -(declare-function ess-r-package--all-source-dirs "ess-r-package") -(declare-function ess-r-package-name "ess-r-package") -(declare-function ess-r-package-source-dirs "ess-r-package") - -;; Do not require tramp at runtime. It is expensive to load. Instead, -;; guard calls with (require 'tramp) and silence the byte compiler -;; here. -(declare-function tramp-dissect-file-name "tramp") -(declare-function tramp-get-remote-tmpdir "tramp") - - -(defgroup ess-tracebug nil - "Error navigation and debugging for ESS. -Currently only R is supported." - :link '(emacs-library-link :tag "Source Lisp File" "ess-tracebug.el") - :group 'ess) - -(defvar ess-tracebug-indicator " TB" - "String to be displayed in mode-line alongside the process name. -Indicates that ess-tracebug-mode is turned on.") - -;; (defvar ess--tracebug-p nil -;; "Non nil if ess-tracebug is turned on for current process. -;; Function `ess-tracebug' toggles on/off this variable.") -;; (make-variable-buffer-local 'ess--tracebug-p) -;; (add-to-list 'minor-mode-alist '(ess--tracebug-p ess-tracebug-indicator)) - -(defvar ess-watch-mode-map - (let ((map (make-sparse-keymap))) - (set-keymap-parent map special-mode-map) - (define-key map "?" 'ess-watch-help) - (define-key map "k" 'ess-watch-kill) - ;; (define-key ess-watch-mode-map "u" 'ess-watch-undelete) - ;; editing requires a little more work. - (define-key map "a" 'ess-watch-add) - (define-key map "i" 'ess-watch-insert) - (define-key map "e" 'ess-watch-edit-expression) - (define-key map "r" 'ess-watch-rename) - (define-key map "q" 'ess-watch-quit) - (define-key map "u" 'ess-watch-move-up) - (define-key map "U" 'ess-watch-move-down) - (define-key map "d" 'ess-watch-move-down) - (define-key map "n" 'ess-watch-next-block) - (define-key map "p" 'ess-watch-previous-block) - ;; R mode keybindings. - (define-key map "\C-c\C-s" 'ess-watch-switch-process) - (define-key map "\C-c\C-y" 'ess-switch-to-ESS) - (define-key map "\C-c\C-z" 'ess-switch-to-end-of-ESS) - map) - "Keymap for the *R watch* buffer. - -\\{ess-watch-mode-map}") - - -(defcustom ess-tracebug-prefix nil - "*Key to be used as prefix for all `ess-tracebug' commands. -Set this to a key cominbation you don't use often, like: - - (setq ess-tracebug-prefix \"\\M-t\") - -The postfix keys are defined in `ess-tracebug-map': -\\{ess-tracebug-map}" - :type '(choice (const nil) (string)) - :group 'ess-tracebug) - -;; (make-obsolete-variable 'ess-tracebug-prefix "ess-tracebug-prefix will be removed in future versions. -;; Electric debug keys are now on C-c and ess-dev maps." "ESS 13.05") -;; (define-obsolete-variable-alias 'ess-tracebug-command-prefix 'ess-tracebug-prefix) - -(defcustom ess-tracebug-search-path nil - "List of directories to search for source files. -Elements should be directory names, not file names of directories." - :type '(choice (const :tag "Unset" nil) - (repeat :tag "Directory list" (string :tag "Directory"))) - :group 'ess-debug) - -(defvar ess-watch-buffer "*R watch*" - "Name of the watch buffer.") - -(defcustom ess-watch-height-threshold nil - "Minimum height for splitting *R* window sensibly to make space for watch window. -See `split-height-threshold' for a detailed description. - -If nil, the value of `split-height-threshold' is used." - :group 'ess-debug - :type '(choice (const nil) (integer))) - -(defcustom ess-watch-width-threshold nil - "Minimum width for splitting *R* window sensibly to make space for watch window. -See `split-width-threshold' for a detailed description. - -If nil, the value of `split-width-threshold' is used." - :group 'ess-debug - :type '(choice (const nil) (integer))) - -(defcustom ess-watch-scale-amount -1 - "The number of steps to scale the watch font down (up). -Each step scales the height of the default face in the watch -window by the variable `text-scale-mode-step' (a negative number -of steps decreases the height by the same amount)" - :group 'ess-debug - :type 'integer) - -(defvar ess-watch-current-block-overlay nil - "The overlay for currently selected block in the R watch buffer .") -(make-variable-buffer-local 'ess-watch-current-block-overlay) - -(defcustom ess-inject-source 'function-and-buffer - "Control the source injection into evaluated code. - -If t, always inject source reference. -If function, inject only for functions, -If function-and-buffer, inject for functions and whole buffer (the default), -If nil, never inject. - -When tracebug is active (the default), ESS instructs the -subprocess to keep the source code references. - -If this variable is t, you won't be able to execute blocks which -don't form a valid R expression. That is, if your expression -spreads multiple paragraphs, and you call -\\[ess-eval-region-or-function-or-paragraph-and-step] on first -paragraph, R will report an error." - :group 'ess-tracebug - :type '(choice (const nil) (const function) (const function-and-buffer) (const t))) - -(defcustom ess-tracebug-enter-hook nil - "List of functions to call on entry to `ess-tracebug' mode. -Use `add-hook' to insert append your functions to this list." - :group 'ess-tracebug - :type 'hook) - -(defcustom ess-tracebug-exit-hook nil - "List of functions to call on exit of `ess-tracebug' mode. -Use `add-hook' to insert append your functions to this list." - :group 'ess-tracebug - :type 'hook) - -(defvaralias 'ess-tracebug-map 'ess-dev-map) - -(defvar ess--tracebug-eval-index 0 - "This is used by to track source references in evaluation with source. -For example, each time `ess-eval-function' is called the evaluated -region is marked. When debugger enteres the code it desplayes -this reference number. Ess-debug finds this number in the -referenced buffer.") - -;; these vars are org variables that store the src block locations -(defvar org-edit-src-beg-marker nil) -(defvar org-babel-current-src-block-location nil - "Marker pointing to the src block currently being executed. -This may also point to a call line or an inline code block. If -multiple blocks are being executed (e.g., in chained execution -through use of the :var header argument) this marker points to -the outer-most code block.") - -;; hash to store soruce references of the form: tmpname -> (filename . src_start) -(defvar ess--srcrefs (make-hash-table :test 'equal :size 100)) - -(defvar ess-tracebug-original-buffer-marker nil - "Marker pointing to the beginning of original source code. -If non-nil, tracebug will insert the source references based on -this location instead of the current buffer. This is useful for -applications, like org-babel, that call ess evaluation functions -from temporary buffers.") - -(defun ess-tracebug-p () - "Return non-nil if tracebug is running." - (ess-process-get 'tracebug)) - -(defun ess-make-source-refd-command (beg end visibly process) - "Saves a region to a temporary file in order to add source references. -BEG and END delimit the region. Returns a string containing an -inferior process command for loading the temporary file. This -command conforms to VISIBLY." - (let* ((filename buffer-file-name) - (proc-dir (ess-get-process-variable 'default-directory)) - (remote (when (file-remote-p proc-dir) - (require 'tramp) - ;; should this be done in process buffer? - (tramp-dissect-file-name proc-dir))) - (orig-marker (or ess-tracebug-original-buffer-marker - org-edit-src-beg-marker - org-babel-current-src-block-location)) - orig-beg) - (setq ess--tracebug-eval-index (1+ ess--tracebug-eval-index)) - (goto-char beg) - (skip-chars-forward " \t\n") - (setq beg (point)) - (goto-char end) - (skip-chars-backward " \t\n") - (setq end (point) - orig-beg beg) - - ;; Delete all old temp files - (when (and (not (ess-process-get 'busy)) - (< 1 (float-time - (time-subtract (current-time) - (ess-process-get 'last-eval))))) - (dolist (f (ess-process-get 'temp-source-files)) - (and (file-exists-p f) - (delete-file f))) - (ess-process-put 'temp-source-files nil)) - - (when (markerp orig-marker) - (setq filename (buffer-file-name (marker-buffer orig-marker))) - (setq orig-beg (+ beg (marker-position orig-marker)))) - - (let ((tmpfile - (expand-file-name (make-temp-name - (concat (file-name-nondirectory - (or filename "unknown")) "!")) - (if remote - (tramp-get-remote-tmpdir remote) - temporary-file-directory)))) - - (ess-process-put 'temp-source-files - (cons tmpfile (ess-process-get 'temp-source-files))) - - (when remote - ;; Get local name (should this be done in process buffer?) - (setq tmpfile (with-parsed-tramp-file-name tmpfile nil localname))) - - (if (not filename) - (puthash tmpfile (list nil ess--tracebug-eval-index nil) ess--srcrefs) - (puthash tmpfile (list filename ess--tracebug-eval-index orig-beg) ess--srcrefs) - (puthash (file-name-nondirectory tmpfile) ; R sometimes strips dirs - (list filename ess--tracebug-eval-index orig-beg) ess--srcrefs) - (with-silent-modifications - (put-text-property beg end 'tb-index ess--tracebug-eval-index))) - (let ((string (ess-process-buffer-substring process beg end))) - (or - ;; Sending string to subprocess is considerably faster than tramp file - ;; transfer. So, give priority to `ess-eval-command' if available - (ess-build-eval-command string visibly t tmpfile) - ;; When no `ess-eval-command' available, use `ess-load-command' - (progn - (write-region beg end tmpfile nil 'silent) - (ess-build-load-command tmpfile visibly t))))))) - -(defun ess-process-buffer-substring (process start end) - (ess--run-presend-hooks process (buffer-substring-no-properties start end))) - -(defun ess-tracebug-send-region (process start end &optional visibly message type) - "Send region to process adding source references as specified -by `ess-inject-source' variable." - (let* ((inject-p (cond ((eq type 'function) - ess-inject-source) - ((eq type 'buffer) - (or (eq ess-inject-source t) - (eq ess-inject-source 'function-and-buffer))) - (t (or (eq ess-inject-source t) - ;; We need to always inject with namespaced - ;; evaluation (fixme: not right place for - ;; this). - (ess-r-get-evaluation-env))))) - (ess--dbg-del-empty-p (unless inject-p ess--dbg-del-empty-p)) - (string (if inject-p - (ess-make-source-refd-command start end visibly process) - (ess-process-buffer-substring process start end))) - (message (if (fboundp ess-build-eval-message-function) - (funcall ess-build-eval-message-function message) - message))) - ;; Don't run the presend hooks twice. - (let ((ess--inhibit-presend-hooks t)) - (process-put process :eval-visibly visibly) - ;; Visible evaluation is not nice when sourcing temporary files. You get - ;; .ess.eval(*code*) instead of *code*. - (setq visibly (unless inject-p visibly)) - (ess-send-string process string visibly message)))) - -(defun ess-tracebug-send-function (proc start end &optional visibly message) - "Like `ess-tracebug-send-region' but with tweaks for functions." - (ess-tracebug-send-region proc start end visibly message 'function)) - -(defvar ess-tracebug-help nil - "ess-dev-map prefix: \\[ess-dev-map] - -* Breakpoints (`ess-dev-map'): - - b . Set BP (repeat to cycle BP type) . `ess-bp-set' - B . Set conditional BP . `ess-bp-set-conditional' - k . Kill BP . `ess-bp-kil' - K . Kill all BPs . `ess-bp-kill-all' - o . Toggle BP state . `ess-bp-toggle-state' - l . Set logger BP . `ess-bp-set-logger' - n . Goto next BP . `ess-bp-next' - p . Goto previous BP . `ess-bp-previous' - - (C- prefixed equivalents are also defined) - -* Debugging (`ess-dev-map'): - ` . Show traceback . `ess-show-traceback' (also on C-c `) - ~ . Show callstack . `ess-show-call-stack' (also on C-c ~) - e . Toggle error action (repeat to cycle). `ess-debug-toggle-error-action' - d . Flag for debugging . `ess-debug-flag-for-debugging' - u . Unflag for debugging . `ess-debug-unflag-for-debugging' - w . Watch window . `ess-watch' - - (C- prefixed equivalents are also defined) - -* Interactive Debugging (`ess-debug-minor-mode-map'): - - M-C . Continue . `ess-debug-command-continue' - M-C-C . Continue multi . `ess-debug-command-continue-multi' - M-N . Next step . `ess-debug-command-next' - M-C-N . Next step multi . `ess-debug-command-next-multi' - M-U . Up frame . `ess-debug-command-up' - M-Q . Quit debugging . `ess-debug-command-quit' - -* Navigation to errors (general emacs functionality): - - C-x `, M-g n . `next-error' - M-g p . `previous-error'") - - -;; * Input Ring: - -;; i . Goto input event marker forwards . `ess-debug-goto-input-event-marker' -;; I . Goto input event marker backwards . `ess-debug-goto-input-event-marker' - - -(defun ess-tracebug-show-help (&optional ev) - "Show help for `ess-tracebug'." - (interactive) - (describe-variable 'ess-tracebug-help)) - -(defun ess-tracebug--propertize (dummy bitmap face &optional string ) - "If `window-system' propertize DUMMY with fringe BITMAP and FACE. -Otherwise, propertize line-prefix and margin with STRING and FACE" - (unless string - (setq string dummy)) - (if window-system - (propertize dummy 'display (list 'left-fringe bitmap face)) - (propertize dummy - 'display (list '(margin left-margin) - (propertize string - 'font-lock-face face - 'face face))))) - - -(defun ess-tracebug (&optional arg) - "Toggle `ess-tracebug' mode. -With ARG, turn `ess-tracebug' mode on if and only if ARG is -positive. - -This mode adds to ESS the interactive debugging, breakpoint and -error navigation functionality. Strictly speaking `ess-tracebug' -is not a minor mode. It integrates globally into ESS and iESS. - -Note: Currently, `ess-tracebug' does not detect some of R's debug -related messages in non-English locales. To set your R messages -to English add the following line to your .Rprofile init file: - - Sys.setlocale(\"LC_MESSAGES\", \"C\") - - -See `ess-tracebug-help' for the overview of ess-tracebug functionality." - - ;; Note: The functionality in ess-tracebug is divided on conceptual - ;; grounds in tracing and debugging and could be - ;; activated/deactivate separately with `ess--tb-start' and - ;; `ess-debug-start' respectively. - - (interactive "P") - (ess-force-buffer-current "R process to activate tracebug in: ") - (with-current-buffer (process-buffer (get-process ess-local-process-name)) - (when (equal ess-dialect "R") - (setq arg - (if arg - (prefix-numeric-value arg) - (if (ess-process-get 'tracebug) -1 1))) - (if (> arg 0) - (unless (ess-process-get 'tracebug) ;; only if already not active - (ess--tb-start) - (ess-debug-start) - ;; (dolist (bf (buffer-list)) - ;; (with-current-buffer bf - ;; (when (and (eq major-mode 'ess-mode) - ;; (equal ess-dialect "R")) - ;; (ess-bp-recreate-all)))) - ;; watch functionality - (if ess-tracebug-prefix - (let ((comm (key-binding ess-tracebug-prefix))) - ;; (message "ess-tracebug-prefix will be removed in future versions. Electric debug keys are now on [C-c] and [C-c C-t] maps.") - ;; (sit-for 1) - (when (commandp comm) - (define-key ess-tracebug-map ess-tracebug-prefix comm)) - (define-key ess-mode-map ess-tracebug-prefix ess-tracebug-map) - (define-key inferior-ess-mode-map ess-tracebug-prefix ess-tracebug-map) - (define-key ess-watch-mode-map ess-tracebug-prefix ess-tracebug-map))) - (run-hooks 'ess-tracebug-enter-hook) - (ess-process-put 'tracebug t) - (message "ess-tracebug mode enabled")) - (when (ess-process-get 'tracebug) ;;only when active - (ess-process-put 'tracebug nil) - ;; unset the map - (when ess-tracebug-prefix - (define-key ess-mode-map ess-tracebug-prefix nil) - (define-key inferior-ess-mode-map ess-tracebug-prefix nil)) - (ess--tb-stop) - (ess-debug-stop) - (run-hooks 'ess-tracebug-exit-hook) - (message "ess-tracebug mode disabled")))))) - -(defalias 'ess-toggle-tracebug 'ess-tracebug) - - -;;;_* TRACEBACK - -;; (defface ess--tb-last-input-face -;; '((((class grayscale) -;; (background light)) (:background "DimGray")) -;; (((class grayscale) -;; (background dark)) (:background "LightGray")) -;; (((class color) (background light) (min-colors 88)) -;; (:overline "medium blue" )) -;; (((class color) (background dark) (min-colors 88)) -;; (:overline "deep sky blue" )) -;; (((background light)) (:weight bold)) -;; (((background dark)) (:weight bold)) -;; ) -;; "Face to highlight currently debugged line." -;; :group 'ess-tracebug ) - -(defface ess-tracebug-last-input-fringe-face - '((((background light) (min-colors 88)) (:foreground "medium blue" :overline "medium blue")) - (((background dark) (min-colors 88)) (:foreground "deep sky blue" :overline "deep sky blue")) - (((background light) (min-colors 8)) (:foreground "blue")) - (((background dark) (min-colors 8)) (:foreground "syan"))) - "Face for fringe bitmap for last-input position." - :group 'ess-tracebug) - -(if (fboundp 'define-fringe-bitmap) - (define-fringe-bitmap 'last-input-arrow - [#b00011111 - #b00010000 - #b00010000 - #b00010000 - #b00010000 - #b00010000 - #b00010000 - #b00010000 - #b00010000 - #b00010000 - #b11010111 - #b01111100 - #b00111000 - #b00010000] nil nil 'top)) - - -(defvar ess--tb-last-input (make-marker) - "Marker pointing to the last user input position in iESS buffer. -This is the place where `ess--tb-last-input-overlay' is moved. -Local in iESS buffers with `ess-tracebug' mode enabled.") - -(defvar ess--tb-last-input-overlay nil - "Overlay to highlight the position of last input in iESS buffer. -Local in iESS buffers.") - -(defvar ess--busy-count 0 - "Used to compute the busy indicator.") -(make-variable-buffer-local 'ess--busy-count) - -;; (unless (boundp 'ess--busy-slash) -;; (defvar ess--busy-slash '(32 ?\u2014 92 47)) -;; (setq ess--busy-slash (mapcar (lambda (el) (format " %c " el)) -;; ess--busy-slash)) -;; ) - - -(defvar ess--busy-slash '(" " " - " " \\ " " / ")) -(defvar ess--busy-B '(" " " B " " ")) -(defvar ess--busy-stars '(" " " " " * " " ** " " *** " " **** ")) -(defvar ess--busy-vbars '(" " " " " | " " || " " ||| " " |||| ")) - -(defcustom ess-busy-strings ess--busy-slash - "List of strings to replace in turn for busy indication. -The first element of the list is used as an indicator of the -process being ready (i.e. not busy). Implemented lists that you -can use `ess--busy-slash', `ess--busy-B',`ess--busy-stars', -`ess--busy-vbars'" - :group 'ess - :type '(repeat string)) - -(defvar ess--busy-timer nil - "Timer used for busy process indication.") - -(defcustom inferior-ess-replace-long+ t - "Determines if ESS replaces long + sequences in output. -If 'strip, remove all such instances. Otherwise, if non-nil, '+ -+ + + ' containing more than 4 + is replaced by -`ess-long+replacement'." - :group 'ess-tracebug - :type '(choice (const nil :tag "No replacement") - (const 'strip :tag "Replace all") - (const t :tag "Replace 4 or more +"))) - -(defvar ess-long+replacement ". + " - "Replacement used for long + prompt. -Please don't customize this or other prompt related variables. -ESS internal code assumes default R prompts.") - -(defmacro ess-copy-key (from-map to-map fun) - `(define-key ,to-map - (car (where-is-internal ,fun ,from-map)) - ,fun)) - -;;;_ + traceback functions -(defun ess--tb-make-last-input-overlay (beg end) - "Create an overlay to indicate the last input position." - (let ((ove (make-overlay beg end))) - (overlay-put ove 'before-string - (ess-tracebug--propertize "!" 'last-input-arrow 'ess-tracebug-last-input-fringe-face)) - ;; (overlay-put ove 'face 'ess--tb-last-input-face) - (overlay-put ove 'evaporate t) - ove)) - - -(defun ess--tb-start () - "Start traceback session." - (with-current-buffer (process-buffer (get-process ess-local-process-name)) - (unless ess-error-regexp-alist - (error "Can not activate the traceback for %s dialect" ess-dialect)) - (set (make-local-variable 'compilation-error-regexp-alist) - ess-error-regexp-alist) - (let (compilation-mode-font-lock-keywords) - (compilation-setup t)) - (setq next-error-function 'ess-tracebug-next-error-function) - ;; new locals - (make-local-variable 'ess--tb-last-input) - (make-local-variable 'ess--tb-last-input-overlay) - (make-local-variable 'compilation-search-path) - (setq compilation-search-path ess-tracebug-search-path) ;; todo: make this dialect specific - (ess-tracebug--set-left-margin) - (save-excursion - (goto-char comint-last-input-start) - (setq ess--tb-last-input (point)) - (setq ess--tb-last-input-overlay - (ess--tb-make-last-input-overlay - (point-at-bol) (point-at-eol)))) - ;; busy timer - (setq mode-line-buffer-identification - (list (car (propertized-buffer-identification "%3b")) - `(:eval (nth ess--busy-count ess-busy-strings)))) ;; 'face 'mode-line-buffer-id)))) - (make-local-variable 'ess--busy-timer) - (setq ess--busy-timer - (run-with-timer 2 .5 (ess--make-busy-timer-function (get-buffer-process (current-buffer))))) - (add-hook 'kill-buffer-hook (lambda () (when ess--busy-timer (cancel-timer ess--busy-timer)))) - (add-hook 'comint-input-filter-functions 'ess-tracebug-set-last-input nil 'local) - - ;; redefine - ;; todo: all this part should go (partially gone now) - (unless (fboundp 'orig-ess-parse-errors) - (defalias 'orig-ess-parse-errors (symbol-function 'ess-parse-errors)) - (defalias 'ess-parse-errors (symbol-function 'next-error))))) - -(defun ess--tb-stop () - "Stop ess traceback session in the current ess process." - (with-current-buffer (process-buffer (get-process ess-current-process-name)) - ;; restore original definitions - (when (equal ess-dialect "R") - (when (fboundp 'orig-ess-parse-errors) - (defalias 'ess-parse-errors (symbol-function 'orig-ess-parse-errors)) - (fmakunbound 'orig-ess-parse-errors))) - (if (local-variable-p 'ess--tb-last-input-overlay) - (delete-overlay ess--tb-last-input-overlay)) - (kill-local-variable 'ess--tb-last-input-overlay) - (kill-local-variable 'ess--tb-last-input) - (font-lock-remove-keywords nil (compilation-mode-font-lock-keywords)) - (font-lock-ensure) - (kill-local-variable 'compilation-error-regexp-alist) - (kill-local-variable 'compilation-search-path) - (cancel-timer ess--busy-timer) - (remove-hook 'comint-input-filter-functions 'ess-tracebug-set-last-input 'local) - (setq mode-line-buffer-identification (propertized-buffer-identification "%12b")))) - -(defvar ess--dbg-forward-ring (make-ring 10) - "Ring of markers to the positions of user inputs when the -debugger or traceback events are initiated. It is used in -`ess--dbg-goto-input-point'.") - -(defvar ess--dbg-backward-ring (make-ring 10) - "Ring of markers to the positions from which `ess--dbg-goto-input-point' is called. -See the also `ess--dbg-goto-debug-point'") - -;; (setq ess-R--tb-regexp-alist '(R R2 R3 R-recover)) -;;(pop compilation-error-regexp-alist-alist) - -(defun ess-show-traceback () - "Display R traceback and last error message. -Pop up a compilation/grep/occur like buffer. Usual global key -bindings are available \(\\[next-error] and \\[previous-error]\) -for `next-error' and `previous-error' respectively. - -You can bind 'no-select' versions of this commands: -\(define-key compilation-minor-mode-map [(?n)] 'next-error-no-select\) -\(define-key compilation-minor-mode-map [(?p)] 'previous-error-no-select\)" - (interactive) - (if (null ess-traceback-command) - (error "Not implemented for dialect %s" ess-dialect) - (ring-insert ess--dbg-forward-ring (point-marker)) - (ess-force-buffer-current "R process to use: ") - (let ((trbuf (get-buffer-create "*ess-traceback*")) - (lproc-name ess-local-process-name) - (alist ess-mode-editing-alist) - (cmd ess-traceback-command)) - (setq next-error-last-buffer trbuf) - (with-current-buffer trbuf - (setq buffer-read-only nil) - (setq ess-local-process-name lproc-name) - (ess-command cmd trbuf) - (goto-char (point-min)) - ;; fixme: this is R specific check - (if (re-search-forward "No traceback available" nil t) - (message "No traceback available") - (ess-dirs) - (message nil) - (make-local-variable 'compilation-error-regexp-alist) - (when (boundp 'ess-r-error-regexp-alist) - (setq compilation-error-regexp-alist ess-r-error-regexp-alist)) - (make-local-variable 'compilation-search-path) - (setq compilation-search-path ess-tracebug-search-path) - (ess-setq-vars-local alist) - (font-lock-refresh-defaults) - (compilation-minor-mode 1) - (setq next-error-function 'ess-tracebug-next-error-function) - ;(use-local-map ess-traceback-minor-mode-map) - ;; ess keys - (local-set-key "\C-c\C-s" 'ess-watch-switch-process) - (local-set-key "\C-c\C-y" 'ess-switch-to-ESS) - (local-set-key "\C-c\C-z" 'ess-switch-to-end-of-ESS) - - (setq buffer-read-only t) - (pop-to-buffer trbuf)))))) - -(defvar ess-call-stack-command nil) -(defun ess-show-call-stack () - "Display current call stack. -Also see `ess-show-traceback'" - (interactive) - (let ((ess-traceback-command ess-call-stack-command)) - (ess-show-traceback))) - -(defalias 'ess-show-R-traceback 'ess-show-traceback) - -(defun ess--tb-next-error-goto-process-marker () - ;; assumes current buffer is the process buffer with compilation enabled - ;; used in ess-tracebug-next-error-function - ; (with-current-buffer (process-buffer (get-process ess-local-process-name)) ; already in comint buffer .. no need - (comint-goto-process-mark) - (set-window-point (get-buffer-window) (point)) ;moves the cursor - ;; FIXME: Should jump to current-debug-position, but messes the things if in recover - ;; (when (ess-debug-is-active) - ;; (ess-debug-goto-current-debug-position) - ;; ) - ) - -(defun ess-tracebug-next-error-function (n &optional reset) - "Advance to the next error message and visits the file. -This is the value of `next-error-function' in iESS buffers." - ;; Modified version of `compilation-next-error-function'. - (interactive "p") - (if reset (goto-char (point-max))) - (let* ((columns compilation-error-screen-columns) ; buffer's local value - ;; (proc (or (get-buffer-process (current-buffer)) - ;; (error "Current buffer has no process"))) - (pbuff-p (get-buffer-process (current-buffer))) - (last 1) - (n (or n 1)) - timestamp - (beg-pos ; from where the search for next error starts - (if (and pbuff-p - (>= n 0) - (comint-after-pmark-p)) - ess--tb-last-input - (point))) - (at-error t) - (msg - (condition-case err - (compilation-next-error n nil beg-pos) - (error - (when pbuff-p - (ess--tb-next-error-goto-process-marker)) - (if (< n 0) - (message "Before first reference") - (message "Beyond last reference"));(error-message-string err)) - (setq at-error nil)))) - (msg (if (or (not pbuff-p) - (eq n 0) - (> (point) ess--tb-last-input)) - msg - (ess--tb-next-error-goto-process-marker) - (message "Beyond last-input marker") - (setq at-error nil))) - (marker (point-marker)) - loc end-loc) - (when at-error - (setq compilation-current-error (point-marker) - overlay-arrow-position (if (bolp) - compilation-current-error - (copy-marker (line-beginning-position))) - loc (if (fboundp 'compilation--message->loc) - (compilation--message->loc msg) - (car msg)) - end-loc (if (fboundp 'compilation--message->end-loc) ;; emacs 24 - (compilation--message->end-loc msg) - (nth 2 msg))) - (let* ((file (caar (nth 2 loc))) - (col (car loc)) - (line (cadr loc)) - (mkrs (ess--dbg-create-ref-marker file line col))) - (if mkrs - ;; is this really needed? Shall we go directly to the location? - (compilation-goto-locus marker (car mkrs) (cadr mkrs)) - (message "Reference to '%s' not found" file)))))) - - -(defun inferior-ess-move-last-input-overlay () - "Move the overlay to the point." - (let ((pbol (point-at-bol))) - (move-overlay ess--tb-last-input-overlay - pbol (max (- (point) 2) (+ pbol 2))))) - - -;;;_* DEBUGGER -(defgroup ess-debug nil - "Debugging for ESS" - :link '(emacs-library-link :tag "Source Lisp File" "ess-tracebug.el") - :group 'ess-tracebug - :prefix "ess-debug-") - -(defcustom ess-debug-error-action-alist - '(( "" "NONE" "NULL" ) - ( " r" "RECOVER" "utils::recover") - ( " t" "TRACEBACK" "base::traceback")) - "Alist of 'on-error' actions. -Toggled with `ess-debug-toggle-error-action'. Each element must -have the form (DISP SYMB ACTION) where DISP is the string to be -displayed in the mode line when the action is in place. SYMB is -the symbolic name of an action. ACTION is the string giving the -actual expression to be assigned to 'error' user option. See R's -help ?options for more details." - :type '(alist :key-type string - :value-type (group string string)) - :group 'ess-debug) - -(defvar ess--dbg-output-buf-prefix " *ess.dbg" - "The prefix of the buffer name the R debug output is directed to." ) - -(defvar ess--dbg-current-ref (make-marker) - "Current debug reference in *ess.dbg* buffers (a marker).") -(make-variable-buffer-local 'ess--dbg-current-ref) - -(defvar ess--dbg-last-ref-marker (make-marker) - "Last debug reference in *ess.dbg* buffer (a marker).") -(make-variable-buffer-local 'ess--dbg-last-ref-marker) - -(defvar ess--dbg-buf-p nil - "This is t in ess.dbg buffers.") -(make-variable-buffer-local 'ess--dbg-buf-p) - -;; (defcustom ess--dbg-auto-single-key-p t -;; "If t entering the debug state triggers single-key mode. -;; Set it to nil if you want to trigger single-key mode manually -;; with the `ess-tracebug-prefix' key. -;; ") - -(defvar ess--dbg-current-debug-position (make-marker) - "Marker to the current debugged line. -It always point to the beginning of the currently debugged line -and is used by overlay-arrow. -In no-windowed Emacs an `overlay-arrow' is displayed at this position.") - -(unless window-system - (add-to-list 'overlay-arrow-variable-list 'ess--dbg-current-debug-position)) - -(defface ess-debug-current-debug-line-face - '((default (:inherit highlight))) - "Face used to highlight currently debugged line." - :group 'ess-debug) - - -(defvar ess--dbg-current-debug-overlay - (let ((overlay (make-overlay (point) (point)))) - (overlay-put overlay 'face 'ess-debug-current-debug-line-face) - (overlay-put overlay 'evaporate t) - overlay) - ;; should be global variable!! - "The overlay for currently debugged line.") - - -(defcustom ess-debug-blink-interval .2 - "Time in seconds to blink the background of the debug line. -Currently two events are defined 'ref-not-found' and 'same-ref'. -Blinking colors for these events can be customized by -corresponding faces." - :group 'ess-debug - :type 'float) - -(defface ess-debug-blink-ref-not-found-face - '((((class grayscale) (background light)) (:background "DimGray")) - (((class grayscale) (background dark)) (:background "LightGray")) - (((class color) (background light) (min-colors 88)) (:background "IndianRed4")) - (((class color) (background dark) (min-colors 88)) (:background "dark red")) - (((background light) (min-colors 8)) (:foreground "red")) - (((background dark) (min-colors 8)) (:foreground "red"))) - "Face used to blink currently debugged line's background - when the reference file is not found. See also `ess-debug-ask-for-file'" - :group 'ess-debug ) - -(defface ess-debug-blink-same-ref-face - '((((class grayscale) (background light)) (:background "DimGray")) - (((class grayscale) (background dark)) (:background "LightGray")) - (((class color) (background light) (min-colors 88)) (:background "steel blue")) - (((class color) (background dark) (min-colors 88)) (:background "midnight blue")) - (((background light) (min-colors 8)) (:foreground "blue")) - (((background dark) (min-colors 8)) (:foreground "cyan"))) - "Face used to highlight currently debugged line when new debug -reference is the same as the preceding one. It is highlighted for -`ess-debug-blink-interval' seconds." - :group 'ess-debug ) - -(defcustom ess-debug-ask-for-file nil - "If non nil, ask for file if the current debug reference is not found. - -If nil, the currently debugged line is highlighted for -`ess-debug-blink-interval' seconds." - :group 'ess-debug - :type 'boolean) - -(defcustom ess-debug-skip-first-call t - "If non-nil, skip first debugger call. - -In R first call doesn't contain source references and is skipped -by default." - :group 'ess-debug - :type 'boolean) - -(defvar ess-electric-selection-map - (let (ess-electric-selection-map) - (define-prefix-command 'ess-electric-selection-map) - ;; command-c and command-Q are not always working reliably - (define-key ess-electric-selection-map "\M-N" 'ess-debug-command-continue) - (define-key ess-electric-selection-map "\M-C" 'ess-debug-command-continue) - (define-key ess-electric-selection-map "\M-Q" 'ess-debug-command-quit) - (define-key ess-electric-selection-map "0" 'ess-debug-command-digit) - (define-key ess-electric-selection-map "1" 'ess-debug-command-digit) - (define-key ess-electric-selection-map "2" 'ess-debug-command-digit) - (define-key ess-electric-selection-map "3" 'ess-debug-command-digit) - (define-key ess-electric-selection-map "4" 'ess-debug-command-digit) - (define-key ess-electric-selection-map "5" 'ess-debug-command-digit) - (define-key ess-electric-selection-map "6" 'ess-debug-command-digit) - (define-key ess-electric-selection-map "7" 'ess-debug-command-digit) - (define-key ess-electric-selection-map "8" 'ess-debug-command-digit) - (define-key ess-electric-selection-map "9" 'ess-debug-command-digit) - (define-key ess-electric-selection-map "?" 'ess-tracebug-show-help) - ess-electric-selection-map) - "Keymap used to define commands for single key input mode. -This commands are triggered by `ess-electric-selection' . - -\\{ess-electric-selection-map}") - -(ess-if-verbose-write "\n<- debug-vars done") - -;;;_ + debug functions -(defun ess-debug-set-error-action (spec) - "Set the on-error action. -The SPEC should be one of the components of -`ess-debug-error-action-alist'." - (let ((proc (get-process ess-local-process-name))) - (if spec - (with-current-buffer (process-buffer proc) - (process-put proc 'on-error-action (car spec)) - (ess-command (format "options(error= %s )\n" (nth 2 spec)))) - (error "Unknown action")))) - -(defun ess-debug-toggle-error-action () - "Toggle the 'on-error' action. -The action list is in `ess-debug-error-action-alist'." - (interactive) - (ess-force-buffer-current) - (let* ((alist ess-debug-error-action-alist) - (ev last-command-event) - (com-char (event-basic-type ev)) - (cur-action (or (ess-process-get 'on-error-action) "")) - actions act) - (setq actions - (cdr (member (assoc cur-action ess-debug-error-action-alist) - ess-debug-error-action-alist))) - (unless actions - (setq actions ess-debug-error-action-alist)) - (setq act (pop actions)) - (ess-debug-set-error-action act) - (message "On-error action set to: %s" - (propertize (cadr act) 'face 'font-lock-function-name-face)) - (while (eq (event-basic-type (setq ev (read-event))) com-char) - (unless actions - (setq actions ess-debug-error-action-alist)) - (setq act (pop actions)) - (ess-debug-set-error-action act) - (force-mode-line-update) - (message "On-error action set to: %s" - (propertize (cadr act) 'face 'font-lock-function-name-face))) - (push ev unread-command-events))) - -(defun ess--dbg-activate-overlays () - "Initialize active debug line overlays." - (move-overlay ess--dbg-current-debug-overlay - (point-at-bol) (1+ (point-at-eol)) (current-buffer)) - ;; used by overlay-arrow functionality on no-X, should be bol - (move-marker ess--dbg-current-debug-position (point-at-bol))) - -(defun ess--dbg-deactivate-overlays () - "Deletes markers and overlays. Overlay arrow remains to indicate the last debug position." - (delete-overlay ess--dbg-current-debug-overlay) - (set-marker ess--dbg-current-debug-position nil)) - - -;;;_ + Work Flow -(defun ess-debug-goto-input-event-marker () - "Jump to the point where the last debugger/traceback etc event occurred. - - Mainly useful during/after debugging, to jump to the place -from where the code was initialy executed. This is an -electric-command, which means that after the command is triggered a -single key event is enough to navigate through the input-event-S-ring. -If the key-event which triggered the command is Shift modified -the input-event-S-ring is traversed backwards. - -The input-event-S-ring is a virtual object which consists of two -rings `ess--dbg-forward-ring' and `ess--dbg-backward-ring' which -are joint at their tops. - -See the more info at https://code.google.com/p/ess-tracebug/#Work-Flow" - (interactive) - (let* ((ev last-command-event) - (com-char (event-basic-type ev)) - (ring-el 0) - input-point) - (if (memq 'shift (event-modifiers ev)) - (setq input-point (ring-ref ess--dbg-backward-ring 0)) - (ring-insert ess--dbg-backward-ring (point-marker)) ;; insert in backward ring ;;todo: check if the marker to this (close by?) position is already in the ring - (setq input-point (ring-ref ess--dbg-forward-ring 0))) - (when (marker-buffer input-point) ;; todo: give a message here if buff is not found - (switch-to-buffer (marker-buffer input-point)) - (when (marker-position input-point) - (goto-char (marker-position input-point)))) - (while (eq (event-basic-type (event-basic-type (setq ev (read-event)))) com-char) - (if (memq 'shift (event-modifiers ev)) - (setq ring-el (1- ring-el)) - (setq ring-el (1+ ring-el))) - (if (< ring-el 0) - (setq input-point (ring-ref ess--dbg-backward-ring (- ring-el))) ;; get it from backward-ring - ;; get it from forward-ring - (setq input-point (ring-ref ess--dbg-forward-ring ring-el)) ) - (when (marker-buffer input-point) - (switch-to-buffer (marker-buffer input-point)) - (when (marker-position input-point) - (goto-char (marker-position input-point))))) - (push ev unread-command-events))) - -(defun ess-debug-goto-debug-point () - "Return to the debugging position. -Jump to markers stored in `ess--dbg-backward-ring'. If debug -session is active, first jump to current debug line. - -This is an electric-command. Shift triggers the opposite traverse -of the ring." - (interactive) - (let* ((debug-point (ring-ref ess--dbg-backward-ring 0)) - (ev last-command-event) - (com-char (event-basic-type ev)) - (ring-el 0)) - (if (ess--dbg-is-active-p) - (progn - (switch-to-buffer (marker-buffer ess--dbg-current-debug-position)) - (goto-char (marker-position ess--dbg-current-debug-position )) - (back-to-indentation)) - (switch-to-buffer (marker-buffer debug-point)) - (goto-char (marker-position debug-point))) - (while (eq (event-basic-type (setq ev (read-event))) com-char) - (if (memq 'shift (event-modifiers ev)) - (setq ring-el (1- ring-el)) - (setq ring-el (1+ ring-el))) - (setq debug-point (ring-ref ess--dbg-backward-ring ring-el)) - (when (marker-buffer debug-point) - (switch-to-buffer (marker-buffer debug-point)) - (when (marker-position debug-point) - (goto-char (marker-position debug-point))))) - (push ev unread-command-events))) - -(defun ess-debug-insert-in-forward-ring () - "Insert `point-marker' into the forward-ring." - (interactive) - (ring-insert ess--dbg-forward-ring (point-marker)) - (message "Point inserted into the forward-ring")) - -(defvar ess-debug-indicator " DB" - "String to be displayed in mode-line alongside the process name. -Indicates that ess-debug-mode is turned on. When the debugger is -in active state this string is shown in upper case and -highlighted.") - -(defvar-local ess--dbg-mode-line-debug - '(:eval (let ((proc (get-process ess-local-process-name))) - (if (and proc (process-get proc 'dbg-active)) - (let ((str ess-debug-indicator)) - (ess-debug-minor-mode 1) ; activate the keymap - (put-text-property 1 (length str) - 'face '(:foreground "white" :background "red") - str) - str) - (ess-debug-minor-mode -1) - "")))) -(put 'ess--dbg-mode-line-debug 'risky-local-variable t) - -(defvar-local ess--dbg-mode-line-error-action - '(:eval (or (and (ess-process-live-p) - (ess-process-get 'on-error-action)) - ""))) -(put 'ess--dbg-mode-line-error-action 'risky-local-variable t) - -(defun ess--dbg-remove-empty-lines (string) - "Remove empty lines from STRING (which interfere with evals) during debug. -This function is placed in `ess-presend-filter-functions'." - ;; the process here is an ugly reliance on dynamic scope - (if (and ess--dbg-del-empty-p (ess-process-get 'dbg-active)) - (replace-regexp-in-string "\n\\s *$" "" string) - string)) - - -(defun ess-debug-start () - "Start the debug session. -Add to ESS the interactive debugging functionality, breakpoints, -watch and loggers. Integrates into ESS and iESS modes by binding -`ess-tracebug-map' to `ess-tracebug-prefix' in -`ess-mode-map' and `inferior-ess-mode-map' respectively." - (interactive) - (let ((dbuff (get-buffer-create (concat ess--dbg-output-buf-prefix "." ess-current-process-name "*"))) ;todo: make dbuff a string! - (proc (ess-get-process ess-local-process-name)) - (lpn ess-local-process-name)) - (process-put proc 'dbg-buffer dbuff); buffer were the look up takes place - (process-put proc 'dbg-active nil) ; t if the process is in active debug state. - ; Active debug states are usually those, in which prompt start with Browser[d]> - (set-process-filter proc 'inferior-ess-tracebug-output-filter) - (with-current-buffer (process-buffer proc) - (unless (equal ess-dialect "R") - (error "Can not activate the debugger for %s dialect" ess-dialect)) - (add-to-list 'ess--mode-line-process-indicator 'ess--dbg-mode-line-debug t) - (add-to-list 'ess--mode-line-process-indicator 'ess--dbg-mode-line-error-action t) - - (add-hook 'ess-presend-filter-functions 'ess--dbg-remove-empty-lines nil 'local)) - (with-current-buffer dbuff - (setq ess-local-process-name lpn) - (buffer-disable-undo) - ;; (setq buffer-read-only nil) - (make-local-variable 'overlay-arrow-position) ;; indicator for next-error functionality in the *ess.dbg*, useful?? - (goto-char (point-max)) - (setq ess--dbg-buf-p t ;; true if in *ess.dbg* buffer - ess--dbg-current-ref (point-marker) ;; used by goto-error functionality - ess--dbg-last-ref-marker (point-marker) ;; gives marker to reference of the last debugged line - ) - ;; (beginning-of-line) - ;; (setq buffer-read-only t) - ))) - -(defun ess-debug-stop () - "End the debug session. -Kill the *ess.dbg.[R_name]* buffer." - ;;; process plist is not removed, todo?low priority - (interactive) - (let ((proc (get-process ess-current-process-name))) ;;local? - (with-current-buffer (process-buffer proc) - (if (member ess-dialect '("XLS" "SAS" "STA")) - (error "Can not deactivate the debugger for %s dialect" ess-dialect)) - (delq 'ess--dbg-mode-line-debug ess--mode-line-process-indicator) - (delq 'ess--dbg-mode-line-error-action ess--mode-line-process-indicator) - (remove-hook 'ess-presend-filter-functions 'ess--dbg-remove-empty-lines 'local)) - (set-process-filter proc 'inferior-ess-output-filter) - (kill-buffer (process-get proc 'dbg-buffer)) - (process-put proc 'dbg-buffer nil) - (process-put proc 'dbg-active nil) - ;; (when (buffer-live-p ess--dbg-buffer) - ;; ;; (with-current-buffer ess--dbg-buffer - ;; ;; (set-buffer-modified-p nil) - ;; ;; ) - ;; (kill-buffer ess--dbg-buffer) - ;; ) - )) - - -(defun ess--make-busy-timer-function (process) - "Display the spiner of prompt if PROCESS is busy." - `(lambda () - (let ((pb ,process)) - (when (eq (process-status pb) 'run) ;; only when the process is alive - (with-current-buffer (process-buffer pb) - (if (not (process-get pb 'busy)) ;; if ready - (when (> ess--busy-count 0) - (setq ess--busy-count 0) - (force-mode-line-update) - (redisplay)) - (setq ess--busy-count (1+ (mod ess--busy-count (1- (length ess-busy-strings))))) - (force-mode-line-update) - ;; looks like redisplay is necessary for emacs > 24.4 - (redisplay))))))) - -;; (ess--make-busy-prompt-function (get-process "R")) - -(defun ess--dbg-is-active-p () - "Return t if the current R process is in active debugging state." - (and (ess-process-live-p) - (ess-process-get 'dbg-active))) - -(defun ess--dbg-is-recover-p () - "Return t if the current R process is in active debugging state." - (and (ess-process-live-p) - (ess-process-get 'is-recover))) - -(defun ess-debug-active-p () - (and (ess-process-live-p) - (or (ess-process-get 'dbg-active) - (ess-process-get 'is-recover)))) - -(defvar ess--dbg-regexp-reference "debug \\w+ +\\(.+\\)#\\([0-9]+\\):") -(defvar ess--dbg-regexp-jump "debug \\w+ ") ;; debug at ,debug bei ,etc -(defvar ess--dbg-regexp-skip - ;; don't anchor to bol; secondary prompt can occur before (anything else?) - ;; "\\(\\(?:Called from: \\)\\|\\(?:debugging in: \\)\\|\\(?:#[0-9]*: +recover()\\)\\)") - "\\(\\(?:Called from: \\)\\|\\(?:#[0-9]*: +recover()\\)\\)") - -(defvar ess--dbg-regexp-no-skip - ;; exceptions for first skip (magrittr) - "debug_pipe") - -(defvar ess--dbg-regexp-debug "\\(\\(?:Browse[][0-9]+\\)\\|\\(?:debug: \\)\\)") -(defvar ess--dbg-regexp-selection "\\(Selection: \\'\\)") -(defvar ess--dbg-regexp-input (concat ess--dbg-regexp-debug "\\|" - ess--dbg-regexp-selection)) - -(defvar ess--suppress-next-output? nil) - - - -;;; MPI - -(defvar ess-mpi-control-regexp "\\([^]+\\)\\([^]+\\)") - -(defvar ess-mpi-alist - '(("message" . message) - ("error" . ess-mpi:error) - ("eval" . ess-mpi:eval) - ("y-or-n" . ess-mpi:y-or-n))) - -(defun ess-mpi:error (msg) - (message (format "Error in inferior: %s" msg))) - -(defun ess-mpi:eval (expr &optional callback) - "Evaluate EXP as Emacs expression. -If present, the CALLBACK string is passed through `format' with -returned value from EXPR and then sent to the subprocess." - (let ((result (eval (read expr)))) - (when callback - (ess-send-string (ess-get-process) (format callback result))))) - -(defun ess-mpi:y-or-n (prompt callback) - "Ask `y-or-n-p' with PROMPT. -The CALLBACK string is passed through `format' with returned -value from EXPR and then sent to the subprocess." - (let ((result (y-or-n-p prompt))) - (when callback - (ess-send-string (ess-get-process) (format callback result))))) - -(defun ess-mpi-handle-messages (buf) - "Handle all mpi messages in BUF and delete them." - (let ((obuf (current-buffer))) - (with-current-buffer buf - (goto-char (point-min)) - ;; This should be smarter because emacs might cut it in the middle of the - ;; message. In practice this almost never happen because we are - ;; accumulating output into the cache buffer. - (while (re-search-forward ess-mpi-control-regexp nil t) - (let* ((mbeg (match-beginning 0)) - (mend (match-end 0)) - (head (match-string 1)) - (payload (split-string (match-string 2) "")) - (handler (cdr (assoc head ess-mpi-alist)))) - (if handler - (condition-case-unless-debug err - (with-current-buffer obuf - (apply handler payload)) - (error (message (format "Error in mpi `%s' handler: %%s" head) - (error-message-string err)))) - ;; don't throw error here. The buffer must be cleaned first. - (message "Now handler defined for MPI message '%s" head)) - (goto-char mbeg) - (delete-region mbeg mend)))))) - -(defun ess--replace-long+-in-prompt (prompt is-final) - "Replace long + + + in PROMPT based on `inferior-ess-replace-long+' value. -If IS-FINAL means that PROMPT occurs at the end of the process -chunk. If non-nil, special care is taken not to drop last '+' -value as it might be a continuation prompt." - ;; see #576 for interesting input examples - (let ((len (length prompt))) - (if (or (null inferior-ess-replace-long+) - (< len 2)) - prompt - (let ((last+ (eq (elt prompt (- len 2)) ?+))) - (cond - ((eq inferior-ess-replace-long+ 'strip) - (if (and last+ is-final) - "+ " - "> ")) - ((eq inferior-ess-replace-long+ t) - (let ((prompt (replace-regexp-in-string "\\(\\+ \\)\\{2\\}\\(\\+ \\)+" - ess-long+replacement prompt)) - (len (length prompt))) - (if (and last+ (not is-final)) - ;; append > for aesthetic reasons - (concat prompt "> ") - prompt))) - (t (error "Invalid values of `inferior-ess-replace-long+'"))))))) - -(defun ess--offset-output (prev-prompt str) - "Add suitable offset to STR given the preceding PREV-PROMPT." - (if prev-prompt - (let ((len (length prev-prompt))) - ;; prompts have at least 2 chars - (if (eq (elt prev-prompt (- len 2)) ?+) - ;; when last + append > for aesthetic reasons - (concat "> \n" str) - (if (eq (elt str 0) ?\n) - ;; don't insert empty lines - str - (concat "\n" str)))) - str)) - -(defun ess--flush-accumulated-output (proc) - "Flush accumulated output of PROC into its output buffer. -Insertion happens chunk by chunk. A chunk is a region between two -prompts." - (let* ((abuf (ess--accumulation-buffer proc)) - (pbuf (process-buffer proc)) - (visibly (process-get proc :eval-visibly)) - (nowait (eq visibly 'nowait)) - (flush-timer (process-get proc 'flush-timer))) - (when (> (buffer-size abuf) 0) - (when (timerp flush-timer) - (cancel-timer flush-timer)) - (if (eq (buffer-local-value 'major-mode pbuf) 'fundamental-mode) - ;; Just in case if we are in *ess-command* buffer; restart the timer. - (process-put proc 'flush-timer - (run-at-time .02 nil #'ess--flush-accumulated-output proc)) - (ess-mpi-handle-messages abuf) - (with-current-buffer abuf - (goto-char (point-min)) - (let ((case-fold-search nil)) - (when (re-search-forward "Error\\(:\\| +in\\)" nil t) - (ess-show-buffer (process-buffer proc)))) - (goto-char (point-min)) - ;; First long + + in the output mirrors the sent input by the user and - ;; is unnecessary in nowait case. A single + can be a continuation in - ;; the REPL, thus we check if there is an extra output after the + . - (when nowait - (when (looking-at "\\([+>] \\)\\{2,\\}\n?") - (goto-char (match-end 0)) - (when (eq (point) (point-max)) - ;; if this is the last prompt in the output back-up one prompt - ;; (cannot happen after \n) - (backward-char 2)))) - (let ((do-clean (not (eq visibly t))) - (pos2 (point)) - (pos1 (point)) - (tpos nil) - (prompt nil) - (regexp (if nowait - ;; we cannot disambiguate printed input fields and - ;; prompts in output in this case; match 2+ pluses or - ;; > and 2+ spaces - "\\(^\\([+>] \\)\\{2,\\}\\)\\|\\(> \\) +" - "^\\([+>] \\)+")) - (prev-prompt (process-get proc 'prev-prompt)) - (eol (point-at-eol))) - (while (re-search-forward regexp nil t) - (setq pos1 (match-beginning 0) - tpos (if nowait - (or (match-end 1) (match-end 3)) - (match-end 0))) - ;; for debugging in R:accum window in order to see the pointer moving - ;; (set-window-point (get-buffer-window) tpos) - (when (> pos1 pos2) - (let ((str (buffer-substring pos2 pos1))) - (comint-output-filter proc (ess--offset-output prev-prompt str)))) - (setq pos2 tpos) - (setq prompt (let ((prompt (buffer-substring pos1 pos2))) - (if do-clean - (ess--replace-long+-in-prompt prompt (eq pos2 (point-max))) - prompt))) - ;; Cannot bypass this trivial call to comint-output-filter because - ;; external tools could rely on prompts (org-babel [#598] for - ;; example). Setting dummy regexp in order to avoid comint erasing - ;; this prompt which contrasts to how we output prompts in all - ;; other cases. - (with-current-buffer pbuf - (let ((comint-prompt-regexp "^$")) - (comint-output-filter proc prompt))) - (setq prev-prompt (and do-clean prompt) - pos1 pos2)) - ;; insert last chunk if any - (unless (eq pos1 (point-max)) - (let ((str (buffer-substring-no-properties pos1 (point-max)))) - (comint-output-filter proc (ess--offset-output prev-prompt str)) - (setq prev-prompt nil))) - (process-put proc 'prev-prompt prev-prompt) - (process-put proc 'flush-time (and (process-get proc 'busy) - (float-time))) - (erase-buffer))))))) - -(defun inferior-ess-tracebug-output-filter (proc string) - "Standard output filter for the inferior ESS process when `ess-debug' is active. -Call `inferior-ess-output-filter'. Check for debug -reg-expressions (see `ess--dbg-regexp-debug',...), when found -puts iESS in the debugging state. If in debugging state, mirrors -the output into *ess.dbg* buffer." - (let* ((is-iess (member major-mode (list 'inferior-ess-mode 'ess-watch-mode))) - (pbuf (process-buffer proc)) - (abuf (ess--accumulation-buffer proc)) - (dbuff (process-get proc 'dbg-buffer)) - (wbuff (get-buffer ess-watch-buffer)) - (was-in-dbg (process-get proc 'dbg-active)) - (was-in-recover (process-get proc 'is-recover)) - (input-point (point-marker)) - (match-jump (string-match ess--dbg-regexp-jump string)) - (match-input (string-match ess--dbg-regexp-input string)) - (match-selection (and match-input - (match-string 2 string))) ;; Selection: - (match-skip (and ess-debug-skip-first-call - (string-match ess--dbg-regexp-skip string) - (not (string-match ess--dbg-regexp-no-skip string)))) - (match-dbg (or match-skip (and match-input (not match-selection)))) - (is-ready (not (inferior-ess-set-status proc string))) - (new-time (float-time)) - (last-time (process-get proc 'flush-time)) - (flush-timer (process-get proc 'flush-timer))) - - ;; current-buffer is still the user's input buffer here - (ess--if-verbose-write-process-state proc string) - (inferior-ess-run-callback proc string) - (process-put proc 'is-recover match-selection) - - (if (or (process-get proc 'suppress-next-output?) - ess--suppress-next-output?) - - ;; works only for surpressing short output, enough for now (for callbacks) - (process-put proc 'suppress-next-output? nil) - - (with-current-buffer abuf - (goto-char (point-max)) - (insert string)) - - ;; cancel the timer each time we enter this filter - (when (timerp flush-timer) - (cancel-timer flush-timer) - (process-put proc 'flush-timer nil)) - - (unless last-time ;; don't flush for the first time - (setq last-time new-time) - (process-put proc 'flush-time new-time)) - - ;; flush periodically - (let ((fast-flush (or is-ready - ;; for the sake of ess-eval-linewise - (process-get proc 'sec-prompt)))) - (if (or - ;; theoretically we should flush asynchronously in all cases but - ;; somewhat unexpectedly it introduces much more randomness during - ;; batch testing. todo: flush directly for now and either remove or - ;; improve on the next refactoring iteration - fast-flush - (> (- new-time last-time) .5) - (and (boundp 'edebug-mode) edebug-mode) - ;; the flush is not getting called if the third party call - ;; accept-process-output in a loop (e.g. org-babel-execute-src-block) - (and (boundp 'org-babel-current-src-block-location) - org-babel-current-src-block-location)) - (ess--flush-accumulated-output proc) - ;; setup new flush timer; ideally also for fast-flush cased in order - ;; to avoid detecting intermediate prompts as end-of-output prompts - (let ((timeout (if fast-flush .01 .2))) - (process-put proc 'flush-timer - (run-at-time timeout nil #'ess--flush-accumulated-output proc)))))) - - ;; WATCH - (when (and is-ready wbuff) ;; refresh only if the process is ready and wbuff exists, (not only in the debugger!!) - (ess-watch-refresh-buffer-visibly wbuff)) - - ;; JUMP to line if debug expression was matched - (when match-jump - (with-current-buffer dbuff ;; insert string in *ess.dbg* buffer - (goto-char (point-max)) - (insert (concat "|-" string "-|"))) - (ess--dbg-goto-last-ref-and-mark dbuff is-iess)) - - ;; (with-current-buffer dbuff ;; un-comment to see the value of STRING just before debugger exists - ;; (let ((inhibit-read-only t)) - ;; (goto-char (point-max)) - ;; (insert (concat " ---\n " string "\n ---")) - ;; )) - - ;; SKIP if needed - (when (and match-skip (not was-in-recover)) - (process-send-string proc "n\n")) - - ;; EXIT the debugger - (when (and was-in-dbg - (not (or match-jump match-dbg)) - (or is-ready match-selection)) - (ess--dbg-deactivate-overlays) - (process-put proc 'dbg-active nil) - ;; (message "|<-- exited debugging -->|") - (when wbuff - (ess-watch-refresh-buffer-visibly wbuff))) - - ;; ACTIVATE the debugger if entered for the first time - (when (and (not was-in-dbg) - (not match-selection) - (or match-jump match-dbg)) - (unless is-iess - (ring-insert ess--dbg-forward-ring input-point)) - (process-put proc 'dbg-active t) - (message - (ess--debug-keys-message-string)) - (unless match-jump - ;; no source reference, simply show the inferiro - (ess-show-buffer pbuf))) - - (when match-selection ;(and (not was-in-recover) match-selection) - (ess-electric-selection t)))) - - -(defvar ess-debug-minor-mode-map - (let ((map (make-sparse-keymap))) - (define-key map (kbd "M-C") 'ess-debug-command-continue) - (define-key map [(control meta ?C)] 'ess-debug-command-continue-multi) - (define-key map (kbd "M-N") 'ess-debug-command-next) - (define-key map [(control meta ?N)] 'ess-debug-command-next-multi) - (define-key map (kbd "M-Q") 'ess-debug-command-quit) - (define-key map (kbd "M-U") 'ess-debug-command-up) - map) - "Keymap active when ESS process is in debugging state. -\\{ess-debug-minor-mode-map}") - - -(define-minor-mode ess-debug-minor-mode - "Minor mode activated when ESS process is in debugging state." - :lighter nil - :keymap ess-debug-minor-mode-map) - -(defun ess--dbg-goto-last-ref-and-mark (dbuff &optional other-window) - "Open the most recent debug reference, and set all the necessary marks and overlays. -It's called from `inferior-ess-tracebug-output-filter'. DBUFF -must be the *ess.dbg* buffer associated with the process. If -OTHER-WINDOW is non nil, attempt to open the location in a -different window." - (interactive) - (let (t-debug-position ref) - (with-current-buffer dbuff - (setq ref (ess--dbg-get-next-ref -1 (point-max) ess--dbg-last-ref-marker - ess--dbg-regexp-reference)) ; sets point at the end of found ref - (when ref - (move-marker ess--dbg-last-ref-marker (point-at-eol)) - ;; each new step repositions the current-ref! - (move-marker ess--dbg-current-ref ess--dbg-last-ref-marker))) - (when ref - (let ((buf (apply 'ess--dbg-goto-ref other-window ref))) - (if buf - ;; if referenced buffer has been found, put overlays: - (with-current-buffer buf - (setq t-debug-position (copy-marker (point-at-bol))) - (if (equal t-debug-position ess--dbg-current-debug-position) - (progn ;; highlights the overlay for ess--dbg-blink-interval seconds - (overlay-put ess--dbg-current-debug-overlay 'face 'ess--dbg-blink-same-ref-face) - (run-with-timer ess-debug-blink-interval nil - (lambda () - (overlay-put ess--dbg-current-debug-overlay 'face 'ess-debug-current-debug-line-face)))) - ;; else - (ess--dbg-activate-overlays))) - ;;else, buffer is not found: highlight and give the corresponding message - (overlay-put ess--dbg-current-debug-overlay 'face 'ess--dbg-blink-ref-not-found-face) - (run-with-timer ess-debug-blink-interval nil - (lambda () - (overlay-put ess--dbg-current-debug-overlay 'face 'ess-debug-current-debug-line-face))) - (message "Reference %s not found" (car ref))))))) - -(defun ess--dbg-goto-ref (other-window file line &optional col) - "Opens the reference given by FILE, LINE and COL. -Try to open in a different window if OTHER-WINDOW is nil. Return -the buffer if found, or nil otherwise be found. -`ess--dbg-find-buffer' is used to find the FILE and open the -associated buffer. If FILE is nil return nil." - (let ((mrk (car (ess--dbg-create-ref-marker file line col))) - (lpn ess-local-process-name)) - (when mrk - (let ((buf (marker-buffer mrk))) - (if (not other-window) - (switch-to-buffer buf) - (let ((this-frame (window-frame (get-buffer-window (current-buffer))))) - (display-buffer buf) - ;; simple save-frame-excursion - (unless (eq this-frame (window-frame (get-buffer-window buf t))) - (ess-select-frame-set-input-focus this-frame)))) - ;; set or re-set to lpn as this is the process with debug session on - (with-current-buffer buf - (setq ess-local-process-name lpn) - (goto-char mrk) - (set-window-point (get-buffer-window buf) mrk)) - buf)))) - -;; temporary, hopefully org folks implement something similar -(defvar org-babel-tangled-file nil) -(declare-function org-babel-tangle-jump-to-org "ob-tangle.el") - -(defun ess--dbg-create-ref-marker (file line &optional col) - "Create markers to the reference given by FILE, LINE and COL. -Return list of two markers MK-start and MK-end. MK-start is the -position of error. Mk-end is the end of the line where error -occurred. If buffer associated with FILE is not found, or line is -nil, or TB-INDEX is not found return nil." - (if (stringp line) (setq line (string-to-number line))) - (if (stringp col) (setq col (string-to-number col))) - (let* ((srcref (gethash file ess--srcrefs)) - (file (replace-regexp-in-string "^\n" "" ;; hack for gnu regexp - (or (car srcref) file))) - (tb-index (cadr srcref)) - (buffer (ess--dbg-find-buffer file)) - pos) - (when (and buffer line) - (save-excursion - (with-current-buffer buffer - (save-restriction - (widen) ;; how does this behave in narrowed buffers? tothink: - (goto-char 1) - (setq pos (point)) - (when tb-index - (while (and (not (eq tb-index (get-text-property pos 'tb-index))) - (setq pos (next-single-property-change pos 'tb-index))))) - (unless pos - ;; use beg position if index not found - (setq pos (nth 2 srcref))) - (when pos - (goto-char pos) - (forward-line (1- line)) - (if col - (goto-char (+ (point-at-bol) col)) - (back-to-indentation)) - (when (and (boundp 'org-babel-tangled-file) - org-babel-tangled-file) - (org-babel-tangle-jump-to-org)) - (list (point-marker) (copy-marker (point-at-eol)))))))))) - -(defun ess--dbg-find-buffer (filename) - "Find a buffer for file FILENAME. -If FILENAME is not found at all, ask the user where to find it if -`ess--dbg-ask-for-file' is non-nil. Search the directories in -`ess-tracebug-search-path'." - (let ((dirs (append - (ess-r-package-source-dirs) - (cl-loop for d in ess-tracebug-search-path - append (ess-r-package--all-source-dirs d)))) - buffsym buffer fmts name buffername) - (setq dirs (cons default-directory dirs)) ;; TODO: should be R working dir - ;; 1. search already open buffers for match (associated file might not even exist yet) - (dolist (bf (buffer-list)) - (with-current-buffer bf - (when (and buffer-file-name - (or (and (file-name-absolute-p filename) - (string-match (format "%s\\'" filename) buffer-file-name)) - (equal filename (file-name-nondirectory buffer-file-name)))) - (setq buffer bf) - (cl-return)))) - ;; 2. The file name is absolute. Use its explicit directory as - ;; the first in the search path, and strip it from FILENAME. - (when (and (null buffer) - (file-name-absolute-p filename)) - (setq filename (abbreviate-file-name (expand-file-name filename)) - dirs (cons (file-name-directory filename) dirs) - filename (file-name-nondirectory filename))) - ;; 3. Now search the path. - (while (and (null buffer) dirs) - (let ((thisdir (pop dirs))) - (setq name (expand-file-name filename thisdir) - buffer (and (file-exists-p name) - (find-file-noselect name))))) - ;; 4. Ask for file if not found (tothink: maybe remove this part?) - (if (and (null buffer) - ess-debug-ask-for-file) - (save-excursion ;This save-excursion is probably not right. - (let* ((pop-up-windows t) - (name (read-file-name - (format "Find next line in (default %s): " filename) - nil filename t nil)) - (origname name)) - (cond - ((not (file-exists-p name)) - (message "Cannot find file `%s'" name) - (ding) (sit-for 2)) - ((and (file-directory-p name) - (not (file-exists-p - (setq name (expand-file-name filename name))))) - (message "No `%s' in directory %s" filename origname) - (ding) (sit-for 2)) - (t - (setq buffer (find-file-noselect name))))))) - ;; nil if not found - buffer)) - -(defun ess--dbg-get-next-ref (n &optional pt BOUND REG nF nL nC) - "Move point to the next reference in the *ess.dbg* buffer. - -Must be called from *ess.dbg* buffer. -It returns the reference in the form (file line col) /all strings/ , -or NIL if not found . Prefix arg N says how many error messages -to move forwards (or backwards, if negative). Optional arg PT, -if non-nil, specifies the value of point to start looking for the -next message, default to (point). BOUND is the limiting position -of the search. REG is the regular expression to search with. nF -- sub-expression of REG giving the 'file'; defaults to 1. nL - -giving the 'line'; defaults to 2. nC - sub-expr giving the -'column'; defaults to 3." - (interactive "p") - (unless ess--dbg-buf-p - (error "Not in *ess.dbg* buffer")) - (setq nF (or nF 1) - nL (or nL 2) - nC (or nC 3)) - (or pt (setq pt (point))) - ;; (message "ess--dbg-last-ref-marker%s vs pt%s vs point-max%s" ess--dbg-last-ref-marker pt (point-max)) - (goto-char pt) - (if (search-forward-regexp REG BOUND t n) - (list (match-string nF) (match-string-no-properties nL) (match-string-no-properties nC)) - nil)) - -(defun ess--dbg-next-ref-function (n &optional reset) - "Advance to the next reference and visit the location given by the reference. -This is the value of `next-error-function' in *ess.dbg* buffers." - (interactive "p") - (if reset - (set-marker ess--dbg-current-ref ess--dbg-last-ref-marker)) - (let ((loc (ess--dbg-get-next-ref n nil ess--dbg-current-ref)) ;; moves point to next/prev ref if any - ; loc is (file . line_nr) - dbuff) - (if loc - (progn - (set-marker ess--dbg-current-ref (line-end-position)) - (set-marker overlay-arrow-position (line-beginning-position)) - (setq dbuff (ess--dbg-find-buffer (car loc))) - (switch-to-buffer dbuff) - (save-restriction - (widen) - (goto-char 1) - (forward-line (1- (cdr loc)))) - (move-marker ess--dbg-current-debug-position (line-beginning-position)) ; move the overlay-arrow - (back-to-indentation)) - (if (>= 0 (or n 1)) - (error "Moved past first debug line") - (error "Moved past last debug line"))))) - - -;; not used; remove in 13.09 -(defvar ess-electric-debug-map - (let ((map (make-sparse-keymap))) - (define-key map "c" 'ess-debug-command-continue) - (define-key map "C" 'ess-debug-command-continue-multi) - (define-key map "n" 'ess-debug-command-next) - (define-key map "N" 'ess-debug-command-next-multi) - (define-key map "q" 'ess-debug-command-quit) - (define-key map "u" 'ess-debug-command-up) - map) - "Keymap used to define commands for single key input mode. -This commands are triggered by `ess-electric-debug' . -\\{ess-electric-debug-map}") -(make-obsolete-variable 'ess-electric-debug-map nil "ESS 13.05") - -(defun ess--debug-keys-message-string (&optional map) - (let ((overriding-local-map (or map ess-debug-minor-mode-map))) - (substitute-command-keys - (mapconcat 'identity - '("(\\[ess-debug-command-continue])cont" - "(\\[ess-debug-command-continue-multi])cont-multi" - "(\\[ess-debug-command-next])next" - "(\\[ess-debug-command-next-multi])next-multi" - "(\\[ess-debug-command-up])up" - "(\\[ess-debug-command-quit])quit") - " ")))) - -;; not used anywhere; remove in ESS 13.09 -(defun ess-electric-debug (&optional wait) - "Call commands defined in `ess-electric-debug-map'. -Single-key input commands are those that once invoked do not -requre the prefix command for subsequent invocation. - -For example, if the prefix key is 'C-c C-t' and -`ess-debug-command-next' is bound to 'n' and `ess-debug-command-continue' is -bound to 'c' then 'C-c C-t n n c' executes `ess-debug-command-next' -twice and `ess-debug-command-continue' once. Any other input not defined -in `ess-electric-debug-map' will cause the exit from single-key -input mode. - -If WAIT is t, wait for next input and ignore the keystroke which -triggered the command." - (interactive) - (let ((help-mess (ess--debug-keys-message-string - ess-electric-debug-map))) - (ess--execute-electric-command - ess-electric-debug-map help-mess wait - (not (ess-process-get 'dbg-active))))) - -(define-obsolete-function-alias - 'ess-singlekey-debug 'ess-electric-debug "ESS 13.05") -(make-obsolete 'ess-electric-debug nil "ESS 13.05") - -(defun ess-electric-selection (&optional wait) - "Call commands defined in `ess-electric-selection-map'. -Single-key input commands are those, which once executed do not -requre the prefix command for subsequent invocation. See -`ess-electric-debug' for more. - -If WAIT is t, wait for next input and ignore the keystroke which -triggered the command." - - (interactive) - (ess--execute-electric-command ess-electric-selection-map - "Selection: " wait - (not (ess-process-get 'is-recover)))) - -(make-obsolete 'ess-singlekey-selection 'ess-electric-selection "ESS 13.05") - -(defun ess-debug-command-digit (&optional ev) - "Digit commands in selection mode. -If supplied, EV must be a proper key event or a string representing the digit." - (interactive) - (ess-force-buffer-current) - (unless (ess--dbg-is-recover-p) - (error "Recover is not active")) - (unless ev - (setq ev last-command-event)) - (let* ((ev-char (if (stringp ev) - ev - (char-to-string (event-basic-type ev)))) - (proc (get-process ess-current-process-name)) - (mark-pos (marker-position (process-mark proc))) - (comint-prompt-read-only nil) - prompt depth) - (with-current-buffer (process-buffer proc) - (goto-char mark-pos) - (save-excursion - (when (re-search-backward "\\(?: \\|^\\)\\([0-9]+\\):[^\t]+Selection:" ess--tb-last-input t) - (setq depth (string-to-number (match-string 1))) - (when (> depth 9) - (setq ev-char (ess-completing-read "Selection" (mapcar 'number-to-string - (number-sequence depth 0 -1)) - nil t ev-char nil))))) - (setq prompt (delete-and-extract-region (point-at-bol) mark-pos)) - (insert (concat prompt ev-char "\n")) - (ess-send-string proc ev-char) - (move-marker (process-mark proc) (max-char))))) - -(defun ess-debug-command-next (&optional ev) - "Step next in debug mode. -Equivalent to 'n' at the R prompt." - (interactive) - (ess-force-buffer-current) - (unless (ess--dbg-is-active-p) - (error "Debugger is not active")) - (if (ess--dbg-is-recover-p) - (ess-send-string (ess-get-process) "0") - (ess-send-string (ess-get-process) "n"))) - -(defun ess-debug-command-next-multi (&optional ev N) - "Ask for N and step (n) N times in debug mode." - (interactive) - (ess-force-buffer-current) - (unless (ess--dbg-is-active-p) - (error "Debugger is not active")) - (let ((N (or N (read-number "Number of steps: " 10))) - (ess--suppress-next-output? t)) - (while (and (ess--dbg-is-active-p) (> N 0)) - (ess-debug-command-next) - (ess-wait-for-process) - (setq N (1- N)))) - (ess-debug-command-next)) - -(defun ess-debug-command-continue-multi (&optional ev N) - "Ask for N, and continue (c) N times in debug mode." - (interactive) - (ess-force-buffer-current) - (unless (ess--dbg-is-active-p) - (error "Debugger is not active")) - (let ((N (or N (read-number "Number of continuations: " 10))) - (ess--suppress-next-output? t)) - (while (and (ess--dbg-is-active-p) (> N 1)) - (ess-debug-command-continue) - (ess-wait-for-process) - (setq N (1- N)))) - (ess-debug-command-continue)) - -(defun ess-debug-command-up (&optional ev) - "Step up one call frame. -Equivalent to 'n' at the R prompt." - (interactive) - (ess-force-buffer-current) - (unless (ess--dbg-is-active-p) - (error "Debugger is not active")) - (let ((up-cmd "try(browserSetDebug(), silent=T)\nc\n")) - (ess-send-string (ess-get-process) up-cmd))) - -;; (defun ess-debug-previous-error (&optional ev) -;; "Go to previous reference during the debug process. -;; R doesn't support step backwards. This command just takes you through -;; debug history." -;; (interactive) -;; (previous-error)) - -(defun ess-debug-command-quit (&optional ev) - "Quits the browser/debug in R process. -Equivalent of `Q' at the R prompt." - (interactive) - (ess-force-buffer-current) - (cond ((ess--dbg-is-recover-p) - (ess-send-string (ess-get-process) "0" t)) - ;; if recover is called in a loop the following stalls emacs - ;; (ess-wait-for-process proc nil 0.05) - ((ess--dbg-is-active-p) - (ess-send-string (ess-get-process) "Q" t)) - (t - (error "Debugger is not active")))) - -(defun ess-debug-command-continue (&optional ev) - "Continue the code execution. -Equivalent of `c' at the R prompt." - (interactive) - (ess-force-buffer-current) - (cond ((ess--dbg-is-recover-p) - (ess-send-string (ess-get-process) "0")) - ((ess--dbg-is-active-p) - (ess-send-string (ess-get-process) "c")) - (t - (error "Debugger is not active")))) - -(defun ess-tracebug-set-last-input (&rest ARGS) - "Move `ess--tb-last-input' marker to the process mark. -ARGS are ignored to allow using this function in process hooks." - (let* ((last-input-process (get-process ess-local-process-name)) - (last-input-mark (copy-marker (process-mark last-input-process)))) - (with-current-buffer (process-buffer last-input-process) - (when (local-variable-p 'ess--tb-last-input) ;; TB might not be active in all processes - (save-excursion - (setq ess--tb-last-input last-input-mark) - (goto-char last-input-mark) - (inferior-ess-move-last-input-overlay)))))) - -;;;_ + BREAKPOINTS - -(defface ess-bp-fringe-inactive-face - '((((class color) (background light) (min-colors 88)) (:foreground "DimGray")) - (((class color) (background dark) (min-colors 88)) (:foreground "LightGray")) - (((background light) (min-colors 8)) (:foreground "blue")) - (((background dark) (min-colors 8)) (:foreground "cyan"))) - "Face used to highlight inactive breakpoints." - :group 'ess-debug) - -(defface ess-bp-fringe-logger-face - '((((class color) (background light) (min-colors 88)) (:foreground "dark red")) - (((class color) (background dark) (min-colors 88)) (:foreground "tomato1")) - (((background light) (min-colors 8)) (:foreground "blue")) - (((background dark) (min-colors 8)) (:foreground "cyan"))) - "Face used to highlight loggers." - :group 'ess-debug) - -(defface ess-bp-fringe-browser-face - '((((class color) (background light) (min-colors 88)) (:foreground "medium blue")) - (((class color) (background dark) (min-colors 88)) (:foreground "deep sky blue")) - (((background light) (min-colors 8)) (:foreground "blue")) - (((background dark) (min-colors 8)) (:foreground "cyan"))) - "Face used to highlight 'browser' breakpoints." - :group 'ess-debug) - -(defface ess-bp-fringe-recover-face - '((((class color) (background light) (min-colors 88)) (:foreground "dark magenta")) - (((class color) (background dark) (min-colors 88)) (:foreground "magenta")) - (((background light) (min-colors 8)) (:foreground "magenta")) - (((background dark) (min-colors 8)) (:foreground "magenta"))) - "Face used to highlight 'recover' breakpoints fringe." - :group 'ess-debug) - -(defun ess--bp-pipe-block-p () - (save-excursion - (let ((inhibit-point-motion-hooks t) - (inhibit-field-text-motion t)) - (forward-line -1) - (end-of-line) - (looking-back "\\%>\\%[ \t]*" (point-at-bol))))) - -(defvar ess--bp-identifier 1) -(defcustom ess-bp-type-spec-alist - '((pipe ".ess_pipe_browser() %%>%%" "B %>%\n" filled-square ess-bp-fringe-browser-face ess--bp-pipe-block-p) - (browser "browser(expr=is.null(.ESSBP.[[%s]]));" "B>\n" filled-square ess-bp-fringe-browser-face) - (recover "recover()" "R>\n" filled-square ess-bp-fringe-recover-face)) - "List of lists of breakpoint types. -Each sublist has five elements: -1- symbol giving the name of specification -2- R expression to be inserted (%s is substituted with unique identifier). -3- string to be displayed instead of the expression -4- fringe bitmap to use -5- face for fringe and displayed string -6- optional, a function which should return nil if this BP doesn't apply to current context." - :group 'ess-debug - :type '(alist :key-type symbol - :value-type (group string string symbol face))) - -(defcustom ess-bp-inactive-spec - '(inactive "##" filled-square ess-bp-fringe-inactive-face) - "List giving the inactive breakpoint specifications." - ;; List format is identical to that of the elements of - ;; `ess-bp-type-spec-alist' except that the second element giving - ;; the R expression is meaningless here." ;;fixme: second element is missing make it nil for consistency with all other specs - :group 'ess-debug - :type 'list) - -(defcustom ess-bp-conditional-spec - '(conditional "browser(expr={%s})" "CB[ %s ]>\n" question-mark ess-bp-fringe-browser-face) - "List giving the conditional breakpoint specifications. -List format is identical to that of the elements of -`ess-bp-type-spec-alist'. User is asked for the conditional -expression to be replaced instead of %s in the second and third -elements of the specifications." - :group 'ess-debug - :type 'list) - -(defcustom ess-bp-logger-spec - '(logger ".ess_log_eval('%s')" "L[ \"%s\" ]>\n" hollow-square ess-bp-fringe-logger-face) - "List giving the loggers specifications. -List format is identical to that of `ess-bp-type-spec-alist'." - :group 'ess-debug - :type 'list) - - -(defun ess-bp-get-bp-specs (type &optional condition no-error) - "Get specs for TYPE." - (let ((spec-alist (cond - ((eq type 'conditional) - (let ((tl (copy-sequence ess-bp-conditional-spec))) - (when (eq (length condition) 0) - (setq condition "TRUE")) - (setcar (cdr tl) (format (cadr tl) condition)) - (setcar (cddr tl) (format (caddr tl) condition)) - (list tl))) - ((eq type 'logger) - (let ((tl (copy-sequence ess-bp-logger-spec))) - (when (eq (length condition) 0) - (setq condition "watchLog")) - (setcar (cdr tl) (format (cadr tl) condition)) - (setcar (cddr tl) (format (caddr tl) condition)) - (list tl))) - (t (copy-sequence ess-bp-type-spec-alist))))) - (or (assoc type spec-alist) - (if no-error - nil - (error "Undefined breakpoint type %s" type))))) - -(defun ess-bp-create (type &optional condition no-error) - "Set breakpoint for the current line. -Returns the beginning position of the hidden text." - (let* ((bp-specs (ess-bp-get-bp-specs type condition no-error)) - (init-pos (point-marker)) - (fringe-bitmap (nth 3 bp-specs)) - (fringe-face (nth 4 bp-specs)) - (displ-string (nth 2 bp-specs)) - (bp-id (format "\"@%s@\"" - (setq ess--bp-identifier (1+ ess--bp-identifier)))) - (bp-command (concat (format (nth 1 bp-specs) bp-id) - "##:ess-bp-end:##\n")) - (bp-length (length bp-command)) - (dummy-string (format "##:ess-bp-start::%s@%s:##\n" (car bp-specs) condition)) - (dummy-length (length dummy-string)) - insertion-pos) - (when bp-specs - (set-marker init-pos (1+ init-pos)) - (setq displ-string (propertize displ-string - 'face fringe-face - 'font-lock-face fringe-face)) - (setq bp-command (propertize bp-command - 'ess-bp t - 'bp-id bp-id - 'bp-active t - 'intangible 'ess-bp - 'rear-nonsticky '(intangible ess-bp bp-type) - 'bp-type type - 'bp-substring 'command - 'display displ-string)) - (setq dummy-string (propertize - (ess-tracebug--propertize dummy-string fringe-bitmap fringe-face "*") - 'ess-bp t - 'intangible 'ess-bp - 'bp-type type - 'bp-substring 'dummy)) - (ess-tracebug--set-left-margin) - (back-to-indentation) - (setq insertion-pos (point) ) - (insert (concat dummy-string bp-command)) - (indent-for-tab-command) - (goto-char (1- init-pos)) ;; sort of save-excursion - insertion-pos))) - -(defun ess-bp-recreate-all () - "Internal function to recreate all bp." - (save-excursion - (save-restriction - (with-silent-modifications - (widen) - (goto-char (point-min)) - (while (re-search-forward - "\\(##:ess-bp-start::\\(.*\\):##\n\\)\\(.+##:ess-bp-end:##\n\\)" nil t) - (let ((dum-beg (match-beginning 1)) - (dum-end (match-end 1)) - (comm-beg (match-beginning 3)) - (comm-end (match-end 3)) - (type (match-string 2)) - (bp-command (match-string 3)) - bp-id dum-props condition) - (when (string-match "^\\(\\w+\\)@\\(.*\\)\\'" type) - (setq condition (match-string 2 type)) - (setq type (match-string 1 type))) - (setq bp-id - (if (string-match "\"@[0-9]+@\"" bp-command) - (match-string 0 bp-command) - (setq ess--bp-identifier (1+ ess--bp-identifier)))) - (setq type (intern type)) - (let* ((bp-specs (ess-bp-get-bp-specs type condition t)) - (displ-string (nth 2 bp-specs)) - (fringe-face (nth 4 bp-specs)) - (fringe-bitmap (nth 3 bp-specs))) - (when bp-specs - (setq displ-string (propertize displ-string - 'face fringe-face - 'font-lock-face fringe-face)) - (add-text-properties comm-beg comm-end - (list 'ess-bp t - 'bp-id bp-id - 'intangible 'ess-bp - 'rear-nonsticky '(intangible ess-bp bp-type) - 'bp-type type - 'bp-substring 'command - 'display displ-string)) - (setq dum-props - (if window-system - (list 'display (list 'left-fringe fringe-bitmap fringe-face)) - (list 'display (list '(margin left-margin) - (propertize "dummy" - 'font-lock-face fringe-face - 'face fringe-face))))) - (add-text-properties dum-beg dum-end - (append dum-props - (list 'ess-bp t - 'intangible 'ess-bp - 'bp-type type - 'bp-substring 'dummy))) - ;; (when comment-beg - ;; (add-text-properties comment-beg comment-end - ;; (list 'ess-bp t - ;; 'bp-id bp-id - ;; 'intangible 'ess-bp - ;; 'display (propertize (nth 1 ess-bp-inactive-spec) 'face fringe-face) - ;; 'bp-type type - ;; 'bp-substring 'comment))) - )))))))) - -(add-hook 'R-mode-hook 'ess-bp-recreate-all) - - -(defun ess-bp-get-bp-position-nearby () - "Get nearby break points. -Return the cons (beg . end) of breakpoint limit points closest to -the current position. Only currently visible region of the buffer -is searched. This command is intended for use in interactive -commands like `ess-bp-toggle-state' and `ess-bp-kill'. Use -`ess-bp-previous-position' in programs." - (interactive) - (let* ((pos-end (if (get-char-property (1- (point)) 'ess-bp) - (point) - (previous-single-property-change (point) 'ess-bp nil (window-start)))) - (pos-start (if (get-char-property (point) 'ess-bp) ;;check for bobp - (point) - (next-single-property-change (point) 'ess-bp nil (window-end)))) - pos dist-up dist-down) - (unless (eq pos-end (window-start)) - (setq dist-up (- (line-number-at-pos (point)) - (line-number-at-pos pos-end)))) - (unless (eq pos-start (window-end)) - (setq dist-down (- (line-number-at-pos pos-start) - (line-number-at-pos (point))))) - (if (and dist-up dist-down) - (if (< dist-up dist-down) - (cons (previous-single-property-change pos-end 'ess-bp nil (window-start)) pos-end) - (cons pos-start (next-single-property-change pos-start 'ess-bp nil (window-end)))) - (if dist-up - (cons (previous-single-property-change pos-end 'ess-bp nil (window-start)) pos-end) - (if dist-down - (cons pos-start (next-single-property-change pos-start 'ess-bp nil (window-end)))))))) - - -(defun ess-bp-previous-position () - "Get previous breakpoints. -Return the cons (beg . end) of breakpoint limit points closest -to the current position, nil if not found." - (let* ( (pos-end (if (get-char-property (1- (point)) 'ess-bp) - (point) - (previous-single-property-change (point) 'ess-bp )))) - (if pos-end - (cons (previous-single-property-change pos-end 'ess-bp) pos-end)))) - -(defun ess-bp-set () - "Set a breakpoint." - (interactive) - (let* ((pos (ess-bp-get-bp-position-nearby)) - (same-line (and pos - (<= (point-at-bol) (cdr pos)) - (>= (point-at-eol) (car pos)))) - (types ess-bp-type-spec-alist) - (ev last-command-event) - (com-char (event-basic-type ev)) - bp-type) - (when same-line - ;; set bp-type to next type in types - (setq bp-type (get-text-property (car pos) 'bp-type)) - (setq types (cdr (member (assq bp-type types) types))) ; nil if bp-type is last in the list - (when (null types) - (setq types ess-bp-type-spec-alist)) - (ess-bp-kill) - (indent-for-tab-command)) - ;; skip contextual bps - (while (and (nth 5 (car types)) - (not (funcall (nth 5 (car types))))) - (pop types)) - (setq bp-type (pop types)) - (ess-bp-create (car bp-type)) - (while (eq (event-basic-type (setq ev (read-event (format "'%c' to cycle" com-char)))) - com-char) - (if (null types) (setq types ess-bp-type-spec-alist)) - (ess-bp-kill) - ;; skip contextual bps - (while (and (nth 5 (car types)) - (not (funcall (nth 5 (car types))))) - (pop types)) - (setq bp-type (pop types)) - (ess-bp-create (car bp-type)) - (indent-for-tab-command)) - (push ev unread-command-events))) - - -(defun ess-bp-set-conditional (condition) - (interactive "sBreakpoint condition: ") - (ess-bp-create 'conditional condition) - (indent-for-tab-command)) - -(defun ess-bp-set-logger (name) - (interactive "sLogger name : ") - (ess-bp-create 'logger name) - (indent-for-tab-command)) - -(defun ess-bp-kill (&optional interactive?) - "Remove the breakpoint nearby." - (interactive "p") - (let ((pos (ess-bp-get-bp-position-nearby)) - (init-pos (make-marker))) - (if (null pos) - (if interactive? (message "No breakpoints nearby")) - (if (eq (point) (point-at-eol)) - (goto-char (1- (point)))) ;; work-arround for issue 3 - (set-marker init-pos (point)) - (goto-char (car pos)) - (delete-region (car pos) (cdr pos)) - (indent-for-tab-command) - (goto-char init-pos) - (if (eq (point) (point-at-eol)) (forward-char))))) - -(defun ess-bp-kill-all nil - "Delete all breakpoints in current buffer." - (interactive) - (let ((count 0) - (init-pos (make-marker)) - pos) - (set-marker init-pos (1+ (point))) - (save-excursion ;; needed if error - (goto-char (point-max)) - (while (setq pos (ess-bp-previous-position)) - (goto-char (car pos)) - (delete-region (car pos) (cdr pos)) - (indent-for-tab-command) - (setq count (1+ count))) - (if (eq count 1) - (message "Killed 1 breakpoint") - (message "Killed %d breakpoint(s)" count))) - (goto-char (1- init-pos)))) - - -(defun ess-bp-toggle-state () - "Toggle the breakpoint between active and inactive states. - -For standard breakpoints, the effect of this command is -immediate, that is you don't need to source your code and it -works even in the process of debugging. - -For loggers, recover and conditional breakpoints this command -just comments the breakpoint in the source file. - -If there is no active R session, this command triggers an error." - (interactive) - (unless (and ess-local-process-name - (get-process ess-local-process-name)) - (error "No R session in this buffer")) - (save-excursion - (let ((pos (ess-bp-get-bp-position-nearby)) - (fringe-face (nth 3 ess-bp-inactive-spec)) - (inhibit-point-motion-hooks t) ;; deactivates intangible property - bp-id beg-pos-dummy end-pos-comment bp-specs beg-pos-command) - (if (null pos) - (message "No breakpoints in the visible region") - (goto-char (car pos)) - (setq beg-pos-command (previous-single-property-change - (cdr pos) 'bp-substring nil (car pos)) - bp-id (get-char-property beg-pos-command 'bp-id)) - (goto-char beg-pos-command) - (if (get-char-property beg-pos-command 'bp-active) - (progn - (put-text-property (car pos) beg-pos-command ;; dummy display change - 'display (list 'left-fringe (nth 2 ess-bp-inactive-spec) fringe-face)) - (put-text-property beg-pos-command (cdr pos) - 'bp-active nil) - (ess-command (format ".ESSBP.[[%s]] <- TRUE\n" bp-id))) - (setq bp-specs (assoc (get-text-property (point) 'bp-type) ess-bp-type-spec-alist)) - (put-text-property beg-pos-command (cdr pos) - 'bp-active t) - (put-text-property (car pos) beg-pos-command - 'display (list 'left-fringe (nth 3 bp-specs) (nth 4 bp-specs))) - (ess-command (format ".ESSBP.[[%s]] <- NULL\n" bp-id)) - ;; (insert (propertize "##" - ;; 'ess-bp t - ;; 'intangible 'ess-bp - ;; 'display (propertize (nth 1 ess-bp-inactive-spec) 'face fringe-face) - ;; 'bp-type (get-char-property (point) 'bp-type) - ;; 'bp-substring 'comment)) - ))))) - - -(defun ess-bp-make-visible () - "Make bp text visible." - (interactive) - (let ((pos (ess-bp-get-bp-position-nearby))) - (set-text-properties (car pos) (cdr pos) (list 'display nil)))) - - - -(defun ess-bp-next nil - "Goto next breakpoint." - (interactive) - (let ((cur-pos (point)) - (bp-pos (next-single-property-change (point) 'ess-bp))) - (when bp-pos - (save-excursion - (goto-char bp-pos) - (when (get-text-property (1- (point)) 'ess-bp) - (setq bp-pos (next-single-property-change bp-pos 'ess-bp))))) - (if bp-pos - (goto-char bp-pos) - (message "No breakpoints found")))) - - -(defun ess-bp-previous nil - "Goto previous breakpoint." - (interactive) - (let ((cur-pos (point)) - (bp-pos (previous-single-property-change (point) 'ess-bp))) - (if bp-pos - (goto-char (or (previous-single-property-change bp-pos 'ess-bp) - bp-pos)) - ;; - (message "No breakpoints before the point found")))) - -;;;_ + WATCH - -(defvar ess-watch-command - ;; assumes that every expression is a structure of length 1 as returned by parse. - ".ess_watch_eval()\n") - -(if (fboundp 'define-fringe-bitmap) ;;not clear to me why is this not bound in SSH session? - :todo check - (define-fringe-bitmap 'current-watch-bar - [#b00001100] nil nil '(top t))) - -(defun ess-tracebug--set-left-margin () - "Set the margin on non-X displays." - (unless window-system - (when (= left-margin-width 0) - (setq left-margin-width 1) - (set-window-buffer (selected-window) (current-buffer))))) - -(defun ess-watch-mode () - "Major mode in `ess-watch' window. -\\{ess-watch-mode-map}" - (let ((cur-block (max 1 (ess-watch-block-at-point))) - (dummy-string - (ess-tracebug--propertize "|" 'current-watch-bar 'font-lock-keyword-face))) - (kill-all-local-variables) - (ess-tracebug--set-left-margin) - (make-local-variable 'revert-buffer-function) - (setq revert-buffer-function 'ess-watch-revert-buffer) - (use-local-map ess-watch-mode-map) - (setq major-mode 'ess-watch-mode) - (setq mode-name (concat "watch " ess-current-process-name)) - (turn-on-font-lock) - (setq ess-watch-current-block-overlay - (make-overlay (point-min) (point-max))) - (overlay-put ess-watch-current-block-overlay 'line-prefix dummy-string) - (overlay-put ess-watch-current-block-overlay 'face 'ess-watch-current-block-face) - (ess-watch-set-current cur-block) ;; - (when (require 'face-remap nil t) - ;; scale the font - (setq text-scale-mode-amount ess-watch-scale-amount) - (text-scale-mode 1) ; (text-scale-mode -1) ;;restore to default - ))) - -(defun ess-watch () - "Run `ess-watch' mode on R objects. -This is the trigger function. See documentation of -`ess-watch-mode' for more information. - -\\{ess-watch-mode-map}" - (interactive) - (ess-force-buffer-current) - (let ((wbuf (get-buffer-create ess-watch-buffer)) - (pname ess-local-process-name) - (alist (symbol-value ess-local-customize-alist))) - (set-buffer wbuf) - (ess-setq-vars-local alist) - (setq ess-local-process-name pname) - (ess-watch-mode) - (ess-watch-refresh-buffer-visibly wbuf) ;; evals the ess-command and displays the buffer if not visible - (pop-to-buffer wbuf) - (set-window-dedicated-p (selected-window) 1) ;; not strongly dedicated - )) - - -(defun ess-watch-refresh-buffer-visibly (wbuf &optional sleep no-prompt-check) - "Eval `ess-watch-command' and direct the output into the WBUF. -Call `ess-watch-buffer-show' to make the buffer visible, without -selecting it. - -This function is used for refreshing the watch window after each step during -the debugging." - ;; assumes that the ess-watch-mode is on!! - ;; particularly ess-watch-current-block-overlay is installed - (interactive) - (ess-watch-buffer-show wbuf) ;; if visible do nothing - (let ((pname ess-local-process-name)) ;; watch might be used from different dialects, need to reset - (with-current-buffer wbuf - (let ((curr-block (max 1 (ess-watch-block-at-point)))) ;;can be 0 if - (setq buffer-read-only nil) - (when pname - (setq ess-local-process-name pname)) - (ess-command ess-watch-command wbuf sleep no-prompt-check) - ;; delete the ++++++> line ;; not very reliable but works fine so far. - (goto-char (point-min)) - (delete-region (point-at-bol) (+ 1 (point-at-eol))) - (ess-watch-set-current curr-block) - (set-window-point (get-buffer-window wbuf) (point)) - (setq buffer-read-only t))))) - -(defun ess-watch-buffer-show (buffer-or-name) - "Make watch buffer BUFFER-OR-NAME visible, and position acordingly. -If already visible, do nothing. - -Currently the only positioning rule implemented is to split the R -process window in half. The behavior is controlled by -`split-window-sensibly' with parameters `split-height-threshold' -and `split-width-threshold' replaced by -`ess-watch-height-threshold' and `ess-watch-width-threshold' -respectively." - (interactive) - (unless (get-buffer-window ess-watch-buffer 'visible) - (save-selected-window - (ess-switch-to-ESS t) - (let* ((split-width-threshold (or ess-watch-width-threshold - split-width-threshold)) - (split-height-threshold (or ess-watch-height-threshold - split-height-threshold)) - (win (split-window-sensibly (selected-window)))) - (if win - (set-window-buffer win buffer-or-name) - (display-buffer buffer-or-name) ;; resort to usual mechanism if could not split - ))))) - - -(defun ess-watch-revert-buffer (ignore noconfirm) - "Update the watch buffer. -Arguments IGNORE and NOCONFIRM currently not used." - (ess-watch) - (message "Watch reverted")) - - -(defface ess-watch-current-block-face - '((default (:inherit highlight))) - "Face used to highlight current watch block." - :group 'ess-debug) - -(defvar ess-watch-start-block "@----" ;; fixme: make defcustom and modify the injected command correspondingly - "String indicating the beginning of a block in watch buffer." - ;; :group 'ess-debug - ;; :type 'string - ) - -(defvar ess-watch-start-expression "@---:" - "String indicating the beginning of an R expression in watch buffer." - ;; :group 'ess-debug - ;; :type 'string - ) - -(defvar ess-watch-help nil - "Keymap for the *R watch* buffer. - -\\{ess-watch-mode-map}") - -(defun ess-watch-help () - "Help on `ess-watch'." - (interactive) - (describe-variable 'ess-watch-help)) - -(defun ess-watch-block-limits-at-point () - "Return start and end positions of the watch block." - (interactive) - (save-excursion - (let ((curr (point)) - start-pos end-pos) - (end-of-line) - (setq start-pos - (if (re-search-backward ess-watch-start-block nil t ) - (point) - (point-min))) - (goto-char curr) - (beginning-of-line) - (setq end-pos - (if (re-search-forward ess-watch-start-block nil t) - (match-beginning 0) - (point-max))) - (list start-pos end-pos)))) - -(defun ess-watch-block-at-point () - "Return the current block's order count, 0 if no block was found." - (save-excursion - (let ((cur-point (point)) - (count 0)) - (goto-char (point-min)) - (while (re-search-forward ess-watch-start-block cur-point t) - (setq count (1+ count))) - count))) - -(defun ess-watch-set-current (nr) - "Move the overlay over the block with count NR in current watch buffer." - (goto-char (point-min)) - (re-search-forward ess-watch-start-expression nil t nr) - (goto-char (match-end 0)) - (apply 'move-overlay ess-watch-current-block-overlay (ess-watch-block-limits-at-point))) - - -(defun ess-watch--make-alist () - "Create an alist of expressions from the current watch buffer. -Each element of assoc list is of the form (pos name expr) where -pos is an unique integer identifying watch blocks by position, -name is a string giving the name of expression block, expr is a -string giving the actual R expression." - (interactive) - (save-excursion - (let* ((reg-name (concat "^" ess-watch-start-block " *\\(\\S-*\\).*$")) - (reg-expr (concat "^" ess-watch-start-expression "\\s-*\\(.*\\)$")) - (reg-all (concat "\\(" reg-name "\\)\n\\(" reg-expr "\\)")) - (pos 0) wal name expr) - (goto-char (point-min)) - (while (re-search-forward reg-all nil t) - (setq pos (+ 1 pos)) - (setq name (match-string-no-properties 2)) - (setq expr (match-string-no-properties 4)) - (if (not (eq (string-to-number name) 0)) ;;if number of any kind set the name to "" - (setq name "")) - (setq wal - (append wal (list (list pos name expr))))) - wal))) - -(defun ess-watch--parse-assoc (al) - "Return a string of the form 'assign(\".ess_watch_expressions\", list(a = parse(expr_a), b= parse(expr_b)), envir = .GlobalEnv)' -ready to be send to R process. AL is an association list as return by `ess-watch--make-alist'" - (concat ".ess_watch_assign_expressions(list(" - (mapconcat (lambda (el) - (if (> (length (cadr el) ) 0) - (concat "`" (cadr el) "` = parse(text = '" (caddr el) "')") - (concat "parse(text = '" (caddr el) "')"))) - al ", ") - "))\n")) - -(defun ess-watch--install-.ess_watch_expressions () - ;; used whenever watches are added/deleted/modified from the watch - ;; buffer. this is the only way to insert expressions into - ;; .ess_watch_expressions object in R. Assumes R watch being the current - ;; buffer, otherwise will most likely install empty list. - (interactive) - (process-send-string (ess-get-process ess-current-process-name) - (ess-watch--parse-assoc (ess-watch--make-alist))) - ;;todo: delete the prompt at the end of proc buffer todo: defun ess-send-string!! - (sleep-for 0.05) ;; need here, if ess-command is used immediately after, for some weird reason the process buffer will not be changed - ) - - -(defun ess-watch-quit () - "Quit (kill) the watch buffer. -If watch buffer exists, it is displayed during the debug -process. The only way to avoid the display, is to kill the -buffer." - (interactive) - (kill-buffer) ;; dedicated, window is deleted unless not the only one - ) - -;;;_ + MOTION -(defun ess-watch-next-block (&optional n) - "Move the overlay over the next block. -Optional N if supplied gives the number of steps forward `backward-char'." - (interactive "P") - (setq n (prefix-numeric-value n)) - (goto-char (overlay-end ess-watch-current-block-overlay)) - (unless (re-search-forward ess-watch-start-expression nil t n) - (goto-char (point-min)) ;;circular but always moves to start! - (re-search-forward ess-watch-start-expression nil t 1)) - (apply 'move-overlay ess-watch-current-block-overlay (ess-watch-block-limits-at-point))) - -(defun ess-watch-previous-block (&optional n) - "Move the overlay over the previous block. -Optional N if supplied gives the number of backward steps." - (interactive "P") - (setq n (prefix-numeric-value n)) - (goto-char (overlay-start ess-watch-current-block-overlay)) - (unless (re-search-backward ess-watch-start-expression nil t n) - (goto-char (point-max)) ;;circular but always moves to last! - (re-search-backward ess-watch-start-expression nil t 1)) - (goto-char (match-end 0)) - (apply 'move-overlay ess-watch-current-block-overlay (ess-watch-block-limits-at-point))) - -;;;_ + BLOCK MANIPULATION and EDITING -(defun ess-watch-rename () - "Rename the currently selected watch block." - (interactive) - (end-of-line) - (unless (re-search-backward ess-watch-start-block nil t) - (error "Can not find a watch block")) - (let ((reg-name (concat ess-watch-start-block " *\\(\\S-*\\).*$")) - name start end) - ;; (reg-expr (concat "^" ess-watch-start-expression "\\s-*\\(.*\\)$")) - ;; (reg-all (concat "\\(" reg-name "\\)\n\\(" reg-expr "\\)")) - ;; (pos 0) wal name expr) - (unless (re-search-forward reg-name (point-at-eol) t) - (error "Can not find the name substring in the current watch block ")) - (setq name (match-string-no-properties 1)) - (setq start (match-beginning 1)) - (setq end (match-end 1)) - (goto-char start) - ;; todo: highlight the name in R-watch here - (setq name (read-string (concat "New name (" name "): ") nil nil name) ) - (setq buffer-read-only nil) - (delete-region start end) - (insert name) - (setq buffer-read-only t) - (ess-watch--install-.ess_watch_expressions) - (ess-watch-refresh-buffer-visibly (current-buffer)))) - -(defun ess-watch-edit-expression () - "Edit in the minibuffer the R expression from the current watch block." - (interactive) - (end-of-line) - (unless (re-search-backward ess-watch-start-block nil 1) - (error "Can not find a watch block")) - (let ((reg-expr (concat ess-watch-start-expression " *\\(.*\\)$")) - expr start end) - (unless (re-search-forward reg-expr nil t) - (error "Can not find an expression string in the watch block")) - (setq expr (match-string-no-properties 1)) - (setq start (match-beginning 1)) - (setq end (match-end 1)) - (goto-char start) - ;; todo: highlight the name in R-watch here - (setq expr (read-string "New expression: " expr nil expr) ) - (setq buffer-read-only nil) - (delete-region start end) - (insert expr) - (setq buffer-read-only t) - (ess-watch--install-.ess_watch_expressions) - (ess-watch-refresh-buffer-visibly (current-buffer)))) - -(defun ess-watch-add () - "Ask for new R expression and name and append it to the end of the list of watch expressions." - (interactive) - (let (nr expr name) - (goto-char (point-max)) - (setq nr (number-to-string (1+ (ess-watch-block-at-point)))) - (setq name nr) - ;; (setq name (read-string (concat "Name (" nr "):") nil nil nr )) ;;this one is quite annoying and not really needed than for logging - (setq expr (read-string "New expression: " nil nil "\"Empty watch!\"")) - (setq buffer-read-only nil) - (insert (concat "\n" ess-watch-start-block " " name " -@\n" ess-watch-start-expression " " expr "\n")) - (setq buffer-read-only t) - (ess-watch--install-.ess_watch_expressions))) - -(defun ess-watch-insert () - "Ask for new R expression and name and insert it in front of current watch block." - (interactive) - (let (nr expr name) - (setq nr (number-to-string (ess-watch-block-at-point))) - (setq name nr) - ;; (setq name (read-string (concat "Name (" nr "):") nil nil nr )) - (setq expr (read-string "New expression: " nil nil "\"Empty watch!\"")) - (re-search-backward ess-watch-start-block nil 1) ;;point-min if not found - (setq buffer-read-only nil) - (insert (concat "\n" ess-watch-start-block " " name " -@\n" ess-watch-start-expression " " expr "\n")) - (setq buffer-read-only t) - (ess-watch--install-.ess_watch_expressions))) - -(defun ess-watch-move-up () - "Move the current block up." - (interactive) - (let ((nr (ess-watch-block-at-point)) - wbl) - (when (> nr 1) - (setq buffer-read-only nil) - (setq wbl (apply 'delete-and-extract-region (ess-watch-block-limits-at-point))) - (re-search-backward ess-watch-start-block nil t 1) ;; current block was deleted, point is at the end of previous block - (insert wbl) - (ess-watch--install-.ess_watch_expressions) - (setq buffer-read-only t)))) - - -(defun ess-watch-move-down () - "Move the current block down." - (interactive) - (let ((nr (ess-watch-block-at-point)) - (nr-all (save-excursion (goto-char (point-max)) - (ess-watch-block-at-point))) - wbl) - (when (< nr nr-all) - (setq buffer-read-only nil) - (setq wbl (apply 'delete-and-extract-region (ess-watch-block-limits-at-point))) - (end-of-line) - (when (re-search-forward ess-watch-start-block nil t 1) ;; current block was deleted, point is at the end of previous block or point-max - (goto-char (match-beginning 0))) - (insert wbl) - (ess-watch--install-.ess_watch_expressions) - (setq buffer-read-only t)))) - -(defun ess-watch-kill () - "Kill the current block." - (interactive) - (setq buffer-read-only nil) - (apply 'delete-region (ess-watch-block-limits-at-point)) - (ess-watch--install-.ess_watch_expressions)) - -;;;_ + Debug/Undebug at point -(defun ess--dbg-get-signatures (method) - "Get signatures for the method METHOD." - (let ((tbuffer (get-buffer-create " *ess-command-output*")); initial space: disable-undo - signatures curr-point) - (save-excursion - (ess-if-verbose-write (format "ess-get-signatures*(%s).. " method)) - (ess-command (concat "showMethods(\"" method "\")\n") tbuffer) - (message ess-local-process-name) - (message ess-current-process-name) - (ess-if-verbose-write " [ok] ..\n") - (set-buffer tbuffer) - (goto-char (point-min)) - (if (not (re-search-forward "Function:" nil t)) - (progn (ess-if-verbose-write "not seeing \"Function:\".. \n") - (error (buffer-string)) - ;; (error "Cannot trace method '%s' (Is it a primitive method which you have already traced?)" method) - ) - ;; (setq curr-point (point)) - ;; (while (re-search-forward ", " nil t) ;replace all ", " with ":" for better redability in completion buffers?? - ;; (replace-match ":")) - ;; (goto-char curr-point) - (while (re-search-forward "^.+$" nil t) - (setq signatures (cons (match-string-no-properties 0) signatures)))) - ; (kill-buffer tbuffer) - ) - signatures)) - - -(defun ess-debug-flag-for-debugging () - "Set the debugging flag on a function. -Ask the user for a function and if it turns to be generic, ask -for signature and trace it with browser tracer." - (interactive) - (ess-force-buffer-current "Process to use: ") - (let* ((tbuffer (get-buffer-create " *ess-command-output*")) ;; output buffer name is hard-coded in ess-inf.el - (pkg (ess-r-package-name)) - (all-functions (ess-get-words-from-vector - (if pkg - (format ".ess_all_functions(c('%s'))\n" pkg) - ".ess_all_functions()\n"))) - (obj-at-point (ess-helpobjs-at-point--read-obj)) - (default (and - obj-at-point - (let* ((reg (regexp-quote obj-at-point)) - (matches (cl-loop for el in all-functions - if (string-match reg el) collect el))) - (car (sort matches (lambda (a b) (< (length a) (length b)))))))) - (ufunc (ess-completing-read "Debug" all-functions - nil nil nil nil (or default obj-at-point))) - signature default-string out-message) - ;; FIXME: Most of the following logic should be in R - (if (ess-boolean-command (format "as.character(isGeneric('%s'))\n" ufunc)) - - ;; it's S4 generic: - (save-excursion - ;; ask for exact signature - (setq signature - (ess-completing-read (concat "Method for generic '" ufunc "'") - (ess--dbg-get-signatures ufunc) ;signal an error if not found - nil t nil nil "*default*")) - (if (equal signature "*default*") - ;;debug, the default ufunc - (ess-command (format "trace('%s', tracer = browser)\n" ufunc) tbuffer) - (ess-command (format "trace('%s', tracer = browser, signature = c('%s'))\n" ufunc signature) tbuffer)) - (with-current-buffer tbuffer - ;; give appropriate message or error - (message (buffer-substring-no-properties (point-min) (point-max))))) - - ;;else, not an S4 generic - (when (ess-boolean-command (format "as.character(.knownS3Generics['%s'])\n" ufunc)) - ;; it's S3 generic: - (setq all-functions - (ess-get-words-from-vector - (format "local({gens<-methods('%s');as.character(gens[attr(gens, 'info')$visible])})\n" ufunc))) - (setq all-functions - ;; cannot debug non-visible methods - (delq nil (mapcar (lambda (el) - (if (not (char-equal ?* (aref el (1- (length el))))) el)) - all-functions))) - (setq ufunc (ess-completing-read (format "Method for S3 generic '%s'" ufunc) - (cons ufunc all-functions) nil t))) - (ess-command (format ".ess_dbg_flag_for_debuging('%s')\n" ufunc))))) - - -(defun ess-debug-unflag-for-debugging () - "Prompt for the debugged/traced function or method and undebug/untrace it." - (interactive) - (let ((tbuffer (get-buffer-create " *ess-command-output*")); initial space: disable-undo\ - (debugged (ess-get-words-from-vector - (if nil ;; FIXME: was checking `ess-developer-packages` - (format ".ess_dbg_getTracedAndDebugged(c('%s'))\n" - (mapconcat 'identity ess-developer-packages "', '")) - ".ess_dbg_getTracedAndDebugged()\n"))) - out-message fun def-val) - ;; (prin1 debugged) - (if (eq (length debugged) 0) - (setq out-message "No debugged or traced functions/methods found") - (setq def-val (if (eq (length debugged) 1) - (car debugged) - "*ALL*")) - (setq fun (ess-completing-read "Undebug" debugged nil t nil nil def-val)) - (if (equal fun "*ALL*" ) - (ess-command (concat ".ess_dbg_UndebugALL(c(\"" (mapconcat 'identity debugged "\", \"") "\"))\n") tbuffer) - (ess-command (format ".ess_dbg_UntraceOrUndebug(\"%s\")\n" fun) tbuffer)) - (with-current-buffer tbuffer - (if (= (point-max) 1) ;; not reliable todo: - (setq out-message (format "Undebugged '%s' " fun)) - (setq out-message (buffer-substring-no-properties (point-min) (point-max))) ;; untrace info or warning, or error occurred - ))) - (message out-message))) - -;;;_ * Kludges and Fixes -;;; delete-char and delete-backward-car do not delete whole intangible text -(defadvice delete-char (around ess-delete-backward-char-intangible activate) - "When deleting an intangible char, delete the whole intangible region. -Only do this when #chars is 1" - (if (and (eq major-mode 'ess-mode) - (= (ad-get-arg 0) 1) - (get-text-property (point) 'intangible)) - (progn - (kill-region (point) (or (next-single-property-change (point) 'intangible) - (point-max))) - (indent-for-tab-command)) - ad-do-it)) - -(defadvice delete-backward-char (around ess-delete-backward-char-intangible activate) - "When deleting an intangible char, delete the whole intangible region. -Only do this when called interactively and #chars is 1" - (if (and (eq major-mode 'ess-mode) - (= (ad-get-arg 0) 1) - (> (point) (point-min)) - (get-text-property (1- (point)) 'intangible)) - (progn - (let ((beg (or (previous-single-property-change (point) 'intangible) - (point-min)))) - (kill-region beg (point)))) - ad-do-it)) - -;; reported as bug#21368 - -;; ;; previous-line gets stuck if next char is intangible -;; reported -;; (defadvice previous-line (around ess-fix-cursor-stuck-at-intangible-text activate) -;; "When about to move to previous line when next char is -;; intangible, step char backward first" -;; (when (and (eq major-mode 'ess-mode) -;; (or (null (ad-get-arg 0)) -;; (= (ad-get-arg 0) 1)) -;; (get-text-property (point) 'intangible)) -;; (goto-char (1- (point)))) -;; ad-do-it) - -;; (ad-remove-advice 'previous-line 'around 'ess-fix-cursor-stuck-at-intangible-text) - -(make-obsolete-variable 'ess-dbg-blink-ref-not-found-face 'ess-debug-blink-ref-not-found-face "ESS 13.05") -(make-obsolete-variable 'ess-dbg-blink-same-ref-face 'ess-debug-blink-same-ref-face "ESS 13.05") -(make-obsolete-variable 'ess-dbg-current-debug-line-face 'ess-debug-current-debug-line-face "ESS 13.05") -(make-obsolete-variable 'ess-dbg-error-action nil "ESS 13.05") -(make-obsolete-variable 'ess-dbg-error-action-alist 'ess-debug-error-action-alist "ESS 13.05") -(make-obsolete-variable 'ess-dbg-blink-interval 'ess-debug-blink-interval "ESS 13.05") -(make-obsolete-variable 'ess-dbg-indicator 'ess-debug-indicator "ESS 13.05") -(make-obsolete-variable 'ess-dbg-ask-for-file 'ess-debug-ask-for-file "ESS 13.05") -(make-obsolete 'ess-dbg-set-error-action 'ess-debug-set-error-action "ESS 13.05") -(make-obsolete 'ess-dbg-toggle-error-action 'ess-debug-toggle-error-action "ESS 13.05") -(make-obsolete 'ess-dbg-goto-input-event-marker 'ess-debug-goto-input-event-marker "ESS 13.05") -(make-obsolete 'ess-dbg-goto-debug-point 'ess-debug-goto-debug-point "ESS 13.05") -(make-obsolete 'ess-dbg-insert-in-forward-ring 'ess-debug-insert-in-forward-ring "ESS 13.05") -(make-obsolete 'ess-dbg-start 'ess-debug-start "ESS 13.05") -(make-obsolete 'ess-dbg-stop 'ess-debug-stop "ESS 13.05") -(make-obsolete 'ess-dbg-command-digit 'ess-debug-command-digit "ESS 13.05") -(make-obsolete 'ess-dbg-command-n 'ess-debug-command-next "ESS 13.05") -(make-obsolete 'ess-dbg-command-Q 'ess-debug-command-quit "ESS 13.05") -(make-obsolete 'ess-dbg-command-c 'ess-debug-command-continue "ESS 13.05") -(make-obsolete 'ess-dbg-flag-for-debugging 'ess-debug-flag-for-debugging "ESS 13.05") -(make-obsolete 'ess-dbg-unflag-for-debugging 'ess-debug-unflag-for-debugging "ESS 13.05") -(make-obsolete-variable 'ess-tb-last-input-fringe-face 'ess-tracebug-last-input-fringe-face "ESS 13.05") -(make-obsolete-variable 'ess-tb-next-error-function 'ess-tracebug-next-error-function "ESS 13.05") - -(ess-if-verbose-write "\n<- debug done") -(provide 'ess-tracebug) - -;;; ess-tracebug.el ends here diff --git a/elpa/ess-20181109.703/ess-trns.el b/elpa/ess-20181109.703/ess-trns.el deleted file mode 100644 index 80d3f915..00000000 --- a/elpa/ess-20181109.703/ess-trns.el +++ /dev/null @@ -1,298 +0,0 @@ -;;; ess-trns.el --- Support for manipulating S transcript files - -;; Copyright (C) 1989--1994 Bates, Kademan, Ritter and Smith -;; Copyright (C) 1997--2010 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. -;; Copyright (C) 2011--2012 A.J. Rossini, Richard M. Heiberger, Martin Maechler, -;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. - -;; Author: David Smith -;; Maintainer: ESS-core - -;; 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 -;; https://www.r-project.org/Licenses/ - - -;;; Commentary: - -;; Code for dealing with ESS transcripts. - -;;; Code: - - ; Requires and autoloads - -(require 'ess-mode) -(require 'ess-inf) -(require 'comint) - - ; ess-transcript-mode -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;;; In this section: -;;;; -;;;; * The major mode ess-transcript-mode -;;;; * Commands for ess-transcript-mode -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;;*;; Major mode definition -(defvar ess-transcript-mode-map nil "Keymap for `ess-transcript-mode'.") -(unless ess-transcript-mode-map - (setq ess-transcript-mode-map (make-sparse-keymap)) - - (define-key ess-transcript-mode-map "\C-c\C-s" 'ess-switch-process) - (define-key ess-transcript-mode-map "\C-c\C-r" 'ess-eval-region) - (define-key ess-transcript-mode-map "\C-c\M-r" 'ess-eval-region-and-go) - ;; (define-key ess-transcript-mode-map "\M-\C-x" 'ess-eval-function) - ;; (define-key ess-transcript-mode-map "\C-c\M-f" 'ess-eval-function-and-go) - ;; (define-key ess-transcript-mode-map "\C-c\C-j" 'ess-eval-line) - ;; (define-key ess-transcript-mode-map "\C-c\M-j" 'ess-eval-line-and-go) - - (define-key ess-transcript-mode-map "\C-c\C-k" 'ess-force-buffer-current) - (define-key ess-transcript-mode-map "\C-c\C-q" 'ess-quit) - - (define-key ess-transcript-mode-map "\C-c\C-j" 'ess-transcript-send-command) - (define-key ess-transcript-mode-map "\C-c\M-j" 'ess-transcript-send-command-and-move) - (define-key ess-transcript-mode-map "\M-\C-a" 'ess-goto-end-of-function-or-para) - (define-key ess-transcript-mode-map "\M-\C-e" 'ess-goto-end-of-function-or-para) - (define-key ess-transcript-mode-map "\C-c\C-y" 'ess-switch-to-ESS) - (define-key ess-transcript-mode-map "\C-c\C-z" 'ess-switch-to-end-of-ESS) - (define-key ess-transcript-mode-map "\C-c\C-v" 'ess-display-help-on-object) - (define-key ess-transcript-mode-map "\C-c\C-d" 'ess-dump-object-into-edit-buffer) - (define-key ess-transcript-mode-map "\C-c\t" 'ess-complete-object-name-deprecated) - (define-key ess-transcript-mode-map "\C-a" 'comint-bol) - (define-key ess-transcript-mode-map "\M-\t" 'comint-replace-by-expanded-filename) - (define-key ess-transcript-mode-map "\M-?" 'comint-dynamic-list-completions) - (define-key ess-transcript-mode-map "\C-c\C-k" 'ess-request-a-process) - (define-key ess-transcript-mode-map "{" 'skeleton-pair-insert-maybe) - (define-key ess-transcript-mode-map "}" 'skeleton-pair-insert-maybe) - (define-key ess-transcript-mode-map "\e\C-h" 'ess-mark-function) - (define-key ess-transcript-mode-map "\e\C-q" 'ess-indent-exp) - ;(define-key ess-transcript-mode-map "\177" 'backward-delete-char-untabify) - (define-key ess-transcript-mode-map "\t" 'ess-indent-command) - - (define-key ess-transcript-mode-map "\C-c\C-p" 'comint-previous-prompt) - (define-key ess-transcript-mode-map "\C-c\C-n" 'comint-next-prompt) - ;; (define-key ess-transcript-mode-map "\C-c\C-n" 'ess-eval-line-and-step) - - (define-key ess-transcript-mode-map "\r" 'ess-transcript-send-command-and-move) - (define-key ess-transcript-mode-map "\M-\r" 'ess-transcript-send-command) - (define-key ess-transcript-mode-map "\C-c\r" 'ess-transcript-copy-command) - (define-key ess-transcript-mode-map "\C-c\C-w" 'ess-transcript-DO-clean-region) - (define-key ess-transcript-mode-map "\C-c\M-c" 'ess-transcript-clean-buffer) - ) - -(easy-menu-define - ess-transcript-mode-menu ess-transcript-mode-map - "Menu for use in S transcript mode." - '("ESS-trans" - ["What is this? (beta)" ess-mouse-me t] - ["Describe" describe-mode t] - ["About" (ess-goto-info "Transcript Mode") t] - ["Send bug report" ess-submit-bug-report t] - "------" - ["Mark cmd group" mark-paragraph t] - ["Previous prompt" comint-previous-prompt t] - ["Next prompt" comint-next-prompt t] - "------" - ["Send and move" ess-transcript-send-command-and-move t] - ["Copy command" ess-transcript-copy-command t] - ["Send command" ess-transcript-send-command t] - ["Clean Region" ess-transcript-DO-clean-region t] - ["Clean Whole Buffer" ess-transcript-clean-buffer t] - ["Switch S process" ess-switch-process t] - )) - -(if (featurep 'ess-trans) - (define-key ess-transcript-mode-map [menu-bar ess-trans] - (cons "ess-trans" ess-transcript-mode-menu)) - (eval-after-load "ess-trans" - '(define-key ess-transcript-mode-map - [menu-bar ess-trans] - (cons "ess-trans" - ess-transcript-mode-menu)))) -;;;###autoload -(defun ess-transcript-mode (alist &optional proc) - "Major mode for manipulating {ESS} transcript files. - -Type \\[ess-transcript-send-command] to send a command in the -transcript to the current S process. \\[ess-transcript-copy-command] -copies the command but does not execute it, allowing you to edit it in -the process buffer first. - -Type \\[ess-transcript-clean-region] to delete all outputs and prompts -in the region, leaving only the S commands. Other keybindings are: - -\\{ess-transcript-mode-map}" - (kill-all-local-variables) - (setq buffer-read-only t) ;; to protect the buffer. - (ess-setq-vars-local alist); (current-buffer)) - (setq major-mode 'ess-transcript-mode) - (setq mode-name "ESS Transcript") - (use-local-map ess-transcript-mode-map) - (set-syntax-table (or inferior-ess-mode-syntax-table - ess-mode-syntax-table)) - (setq mode-line-process - '(" [" ess-local-process-name "]")) - (make-local-variable 'ess-local-process-name) - (setq ess-local-process-name nil) - (unless inferior-ess-prompt ;; For S languages it is set in custom-alist - (setq inferior-ess-prompt - ;; Do not anchor to bol with `^' - (concat "\\(" - inferior-ess-primary-prompt - "\\|" - inferior-ess-secondary-prompt - "\\)"))) - (make-local-variable 'paragraph-start) - (setq paragraph-start (concat "^" inferior-ess-prompt "\\|^\^L")) - (make-local-variable 'paragraph-separate) - (setq paragraph-separate "^\^L") - (make-local-variable 'comint-use-prompt-regexp) - (setq comint-use-prompt-regexp t) - (make-local-variable 'comint-prompt-regexp) - (setq comint-prompt-regexp (concat "^" inferior-ess-prompt)) - (setq inferior-ess-font-lock-keywords 'inferior-ess-r-font-lock-keywords) - (setq font-lock-defaults '(ess-build-font-lock-keywords - nil nil ((?\. . "w") (?\_ . "w") (?' . ".")))) - - ;;; Keep out of the code. - (make-local-variable 'indent-tabs-mode) - (setq indent-tabs-mode nil) - - (run-mode-hooks 'ess-transcript-mode-hook)) - -;;*;; Commands used in S transcript mode - -(defun ess-transcript-send-command () - "Send the command at point in the transcript to the ESS process. -The line should begin with a prompt. The ESS process buffer is displayed if it -is not already." - (interactive) - (let* ((proc (or ess-local-process-name - (ess-request-a-process "Evaluate into which process? " t))) - (ess-buf (ess-get-process-buffer proc))) - (setq ess-local-process-name proc) - (if (get-buffer-window ess-buf) nil - (display-buffer ess-buf t)) - (let ((input (inferior-ess-get-old-input))) - (with-current-buffer ess-buf - (goto-char (point-max)) - (ess-eval-linewise input))))) - -(defun ess-transcript-send-command-and-move () - "Send the command on this line, and move point to the next command." - (interactive) - ;; (ess-transcript-send-command) ;; This doesn't work properly - ;; replacement code begins - (let* ((proc (or ess-local-process-name - (ess-request-a-process "Evaluate into which process? " t))) - (ess-buf (ess-get-process-buffer proc))) - (setq ess-local-process-name proc) - (if (get-buffer-window ess-buf) nil - (display-buffer ess-buf t)) - (let ((input (inferior-ess-get-old-input))) - (with-current-buffer ess-buf - (goto-char (point-max)) - (ess-eval-linewise input nil nil nil 1)))) - ;; replacement code ends - (goto-char ess-temp-point) - (comint-next-prompt 1)) - -(defun ess-transcript-copy-command () - "Copy the command at point to the command line of the ESS process." - (interactive) - (let* ((proc (or ess-local-process-name - (ess-request-a-process "Evaluate into which process? " t))) - (ess-buf (process-buffer (get-process proc))) - (input (inferior-ess-get-old-input))) - (setq ess-local-process-name proc) - (if (get-buffer-window ess-buf) nil - (display-buffer ess-buf t)) - (with-current-buffer ess-buf - (goto-char (point-max)) - (insert input))) - (ess-switch-to-end-of-ESS)) - -;;;###autoload -(defun ess-transcript-clean-region (beg end even-if-read-only) - "Strip the transcript in the region, leaving only (R/S/Lsp/..) commands. -Deletes any lines not beginning with a prompt, and then removes the -prompt from those lines that remain. Prefix argument means to -clean even if the buffer is \\[read-only]." - (interactive "r\nP") - (unless inferior-ess-prompt - (error "Cannot clean ESS transcript region in this mode! - That only works in ess-transcript-mode or inferior-ess-mode ('*R*' etc)." - ;; Maybe call ess-clean-region-in-new-transcript ?")) - )) - (let ((do-toggle (and buffer-read-only even-if-read-only)) - (ess-prompt-rx (if inferior-ess-secondary-prompt - (concat "^\\(\\(" - inferior-ess-prompt - "\\)\\|\\(" - inferior-ess-secondary-prompt - "\\)\\)") - (concat "^" inferior-ess-prompt)))) - (save-excursion - (if do-toggle (setq buffer-read-only nil)) - (save-restriction - (deactivate-mark) - (narrow-to-region beg end) - (goto-char (point-min)) - (delete-non-matching-lines ess-prompt-rx) - (goto-char (point-min)) - ;; (replace-regexp * * ) : - (while (re-search-forward ess-prompt-rx nil t) - (replace-match "" nil nil))) - - (if do-toggle (setq buffer-read-only t))))) - - -;; unfinished idea :----------------------- - -;; (defun ess-clean-region-in-new-transcript (beg end) -;; "Copy the region into a new ess-transcript buffer, and clean it there, -;; using \\[ess-transcript-clean-region]." -;; (interactive "r") - -;; (let ((bname (buffer-file-name))) -;; (setq bname (if bname .. ..)) -;; (let -;; (fbase (if fname (file-name-sans-extension (file-name-nondirectory fname)) -;; (buffer-name))) -;; -;; ;; the buffer name should be like a file name -;; (buf-nam ....) -;; (trns-buf (get-buffer-create fbase)) -;; (pop-to-buffer trns-buf) -;; (ess-transcript-mode .....) -;; ))) - - - - -(defun ess-transcript-DO-clean-region (beg end) - "Clean the current via \\[ess-transcript-clean-region] even if the buffer is read-only." - (interactive "r") - (ess-transcript-clean-region beg end 'In-ANY-case)) - -(defun ess-transcript-clean-buffer () - "Cleanup the whole buffer. -Use point-min/max to obey `narrow-to-region'." - (interactive) - (ess-transcript-clean-region (point-min) (point-max) 'In-ANY-case)) - -(provide 'ess-trns) - -;;; ess-trns.el ends here diff --git a/elpa/ess-20181109.703/ess-utils.el b/elpa/ess-20181109.703/ess-utils.el deleted file mode 100644 index cf1a2657..00000000 --- a/elpa/ess-20181109.703/ess-utils.el +++ /dev/null @@ -1,1602 +0,0 @@ -;;; ess-utils.el --- General Emacs utility functions used by ESS - -;; Copyright (C) 1998--2010 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. -;; Copyright (C) 2011--2017 A.J. Rossini, Richard M. Heiberger, Martin Maechler, -;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. - -;; Author: Martin Maechler -;; Created: 9 Sept 1998 -;; Maintainer: ESS-core - -;; This file is part of ESS (Emacs Speaks Statistics). - -;; 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 -;; https://www.r-project.org/Licenses/ - - -;;; Commentary: -;; Various utilities for ESS. - -;;; Code: -(require 'cl-lib) -(eval-when-compile - (require 'tramp)) -;; The only ESS file this file should depend on is ess-custom.el -(require 'comint) -(require 'ess-custom) -(require 'ido) -(defvar ac-modes) -(declare-function evil-visual-state-p "evil") -(declare-function evil-normal-state "evil") -(declare-function color-lighten-name "color") -(declare-function tramp-dissect-file-name "tramp") - - -;;*;; Internal ESS tools and variables - -(defvar ess-lisp-directory - (directory-file-name - (file-name-directory - (if load-file-name - (file-truename load-file-name) - (locate-library "ess-utils") ))) - "Directory containing ess-site.el(c) and other ESS Lisp files.") - -(defvar ess-etc-directory nil - "Location of the ESS etc/ directory. -The ESS etc directory stores various auxillary files that are useful -for ESS, such as icons.") - -;; Try to detect the `etc' folder only if not alread set up by distribution -(unless ess-etc-directory - (let ((path-list '("../etc/ess/" "../etc/" "../../etc/ess/" "./etc/"))) - (while (and (listp path-list) (consp path-list)) - (setq ess-etc-directory - (expand-file-name (concat ess-lisp-directory "/" - (car path-list)))) - (if (file-directory-p ess-etc-directory) - (setq path-list nil) - (setq ess-etc-directory nil) - (setq path-list (cdr path-list)) - (when (null path-list) - (beep 0) (beep 0) - (message (concat - "ERROR:ess-etc-directory\n" - "Relative to ess-lisp-directory, one of the following must exist:\n" - "../etc/ess, ../etc, ../../etc/ess or ./etc")) - (sit-for 4)))))) - -(defvar ess--make-local-vars-permanent nil - "If this variable is non-nil in a buffer make all variable permannet. -Used in noweb modes.") -(make-variable-buffer-local 'ess--make-local-vars-permanent) -(put 'ess--make-local-vars-permanent 'permanent-local t) - -(defun ess-message (format-string &rest args) - "Shortcut for \\[message] only if `ess-show-load-messages' is non-nil." - (when (bound-and-true-p ess-show-load-messages) - (message format-string args))) - - -;;*;; elisp tools - -(defun ess-goto-line (line) - (save-restriction - (widen) - (goto-char (point-min)) - (forward-line (1- line)))) - -(defun ess-line-end-position (&optional N) - "Return the 'point' at the end of N lines. N defaults to 1, i.e., current line." - (save-excursion - (end-of-line N) - (point))) - -(defun ess-search-except (regexp &optional except backward) - "Search for a REGEXP and store as match 1. -Optionally ignore strings that match exceptions." - (interactive) - (let ((continue t) (exit nil)) - - (while continue - (if (or (and backward (search-backward-regexp regexp nil t)) - (and (not backward) (search-forward-regexp regexp nil t))) - (progn - (setq exit (match-string 1)) - (setq continue (and except (string-match except exit))) - (if continue (setq exit nil))) - ;;else - (setq continue nil)) - ) - - exit)) - -(defun ess-save-and-set-local-variables () - "If buffer was modified, save file and set Local Variables if defined. -Return t if buffer was modified, nil otherwise." - (interactive) - - (let ((ess-temp-point (point)) - (ess-temp-return-value (buffer-modified-p))) - ;; if buffer has changed, save buffer now (before potential revert) - (if ess-temp-return-value (save-buffer)) - - ;; If Local Variables are defined, update them now - ;; since they may have changed since the last revert - ;; (save-excursion - (beginning-of-line -1) - (save-match-data - (if (search-forward "End:" nil t) (revert-buffer t t))) - ;; save-excursion doesn't save point in the presence of a revert - ;; so you need to do it yourself - (goto-char ess-temp-point) - - ess-temp-return-value)) - -(defun ess-get-file-or-buffer (file-or-buffer) - "Return FILE-OR-BUFFER if it is a buffer. -Otherwise return the buffer associated with the file which must -be qualified by it's path; if the buffer does not exist, return -nil." - (interactive) - (if file-or-buffer - (if (bufferp file-or-buffer) file-or-buffer - (find-buffer-visiting file-or-buffer)))) - -(defun ess-set-local-variables (alist &optional file-or-buffer) - "Set local variables from ALIST in current buffer. -If FILE-OR-BUFFER is specified, perform action in that buffer." - (interactive) - (if file-or-buffer (set-buffer (ess-get-file-or-buffer file-or-buffer))) - - (mapcar (lambda (pair) - (make-local-variable (car pair)) - (set (car pair) (eval (cdr pair)))) - alist)) - -(defun ess-return-list (ess-arg) - "If ESS-ARG is a list return it, else return ESS-ARG in a list." - (if (listp ess-arg) ess-arg (list ess-arg))) - -;; Copyright (C) 1994 Simon Marshall. -;; Author: Simon Marshall -;; LCD Archive Entry: -;; unique|Simon Marshall|Simon.Marshall@mail.esrin.esa.it| -;; Functions and commands to uniquify lists or buffer text (cf. sort). -;; 23-Apr-1994|1.00|~/packages/unique.el.Z| -;; -;; MM: renamed from 'unique' to 'ess-unique', then -(defun ess-uniq (list predicate) - "Uniquify LIST, stably, deleting elements using PREDICATE. -Return the list with subsequent duplicate items removed by side effects. -PREDICATE is called with an element of LIST and a list of elements from LIST, -and should return the list of elements with occurrences of the element removed. -This function will work even if LIST is unsorted. See also `ess-uniq-list'." - (let ((list list)) - (while list - (setq list (setcdr list (funcall predicate (car list) (cdr list)))))) - list) - -(defun ess-uniq-list (items) - "Delete all duplicate entries in ITEMS list, calling `ess-uniq'." - (ess-uniq items 'delete)) - -(defun ess-flatten-list (&rest list) - "Take the arguments and flatten them into one long LIST. -Drops 'nil' entries." - ;; Taken from lpr.el - ;; `lpr-flatten-list' is defined here (copied from "message.el" and - ;; enhanced to handle dotted pairs as well) until we can get some - ;; sensible autoloads, or `flatten-list' gets put somewhere decent. - - ;; (ess-flatten-list '((a . b) c (d . e) (f g h) i . j)) - ;; => (a b c d e f g h i j) - (ess-flatten-list-1 list)) - -(defun ess-flatten-list-1 (list) - (cond - ((null list) (list)) - ((consp list) - (append (ess-flatten-list-1 (car list)) - (ess-flatten-list-1 (cdr list)))) - (t (list list)))) - -(defun ess-delete-blank-lines () - "Convert 2 or more lines of white space into one." - (interactive) - (save-excursion - (goto-char (point-min)) - (save-match-data - (while (search-forward-regexp "^[ \t]*\n[ \t]*\n" nil t) - ;;(goto-char (match-beginning 0)) - (delete-blank-lines))))) - -;; Parse a line into its constituent parts (words separated by -;; whitespace). Return a list of the words. -;; Taken from rlogin.el, from the comint package, from XEmacs 20.3. -(defun ess-line-to-list-of-words (line) - (if (listp line) - line - (let ((list nil) - (posn 0)) - ;; (match-data (match-data))) - (while (string-match "[^ \t\n]+" line posn) - (setq list (cons (substring line (match-beginning 0) (match-end 0)) - list)) - (setq posn (match-end 0))) - (store-match-data (match-data)) - (nreverse list)))) - - -;;*;; System - -(defun ess-revert-wisely () - "Revert from disk if file and buffer last modification times are different." - (interactive) - - ; whether or not a revert is needed, force load local variables - ; for example, suppose that you change the local variables and then - ; save the file, a revert is unneeded, but a force load is - (hack-local-variables) - - (if (not (verify-visited-file-modtime (current-buffer))) (progn - (let ((ess-temp-store-point (point))) - (revert-buffer t t) - (goto-char ess-temp-store-point)) - t) - nil)) - - -(defun ess-find-exec (ess-root-arg ess-root-dir) - "Given a root directory and the root of an executable file name, -find it's full name and path, if it exists, anywhere in the sub-tree." - (let* ((ess-tmp-dirs (directory-files ess-root-dir t "^[^.]")) - (ess-tmp-return (ess-find-exec-completions ess-root-arg ess-root-dir)) - (ess-tmp-dir nil)) - - (while ess-tmp-dirs - (setq ess-tmp-dir (car ess-tmp-dirs) - ess-tmp-dirs (cdr ess-tmp-dirs)) - (if (file-accessible-directory-p ess-tmp-dir) - (setq ess-tmp-return - (nconc ess-tmp-return - (ess-find-exec ess-root-arg ess-tmp-dir))))) - ess-tmp-return)) - -(defun ess-find-exec-completions (ess-root-arg &optional ess-exec-dir) - "Given the root of an executable file name, find all possible completions. -Search for the executables in ESS-EXEC-DIR (which defaults to -`exec-path' if no value is given)." - (let* ((ess-exec-path - (if ess-exec-dir (ess-return-list ess-exec-dir) exec-path)) - (ess-tmp-exec nil) - (ess-tmp-path-count (length ess-exec-path)) - (ess-tmp-dir nil) - (ess-tmp-files nil) - (ess-tmp-file nil)) - - (while ess-exec-path - (setq ess-tmp-dir (car ess-exec-path) - ess-exec-path (cdr ess-exec-path)) - (when - (and (> (length ess-tmp-dir) 0) - (file-accessible-directory-p ess-tmp-dir)) - ;; the first test above excludes "" from exec-path, which can be - ;; problematic with Tramp. - (setq ess-tmp-files - (file-name-all-completions ess-root-arg ess-tmp-dir)) - - (while ess-tmp-files - (setq ess-tmp-file - (concat (file-name-as-directory ess-tmp-dir) - (car ess-tmp-files)) - ess-tmp-files (cdr ess-tmp-files)) - (if (and (file-executable-p ess-tmp-file) - (not (backup-file-name-p ess-tmp-file)) - (not (file-directory-p ess-tmp-file))) - ;; we have found a possible executable, so keep it. - (setq ess-tmp-exec - (nconc ess-tmp-exec (list ess-tmp-file))))))) - ess-tmp-exec)) - -(defun ess-drop-non-directories (file-strings) - "Drop all entries in FILE-STRINGS that do not \"look like\" directories." - (ess-flatten-list (mapcar 'file-name-directory file-strings))) - -(defun ess--parent-dir (path n) - "Return Nth parent of PATH." - (let ((opath path)) - (while (and path (> n 0)) - (setq path (file-name-directory (directory-file-name opath))) - (if (equal path opath) - (setq path nil) - (setq opath path - n (1- n)))) - path)) - - -;;*;; Interaction with inferiors - -(defmacro ess-when-new-input (time-var &rest body) - "BODY is evaluate only if the value of procss variable TIME-VAR -is bigger than the time of the last user input (stored in -'last-eval' process variable). TIME-VAR is the name of the -process variable which holds the access time. See the code for -`ess-synchronize-dirs' and `ess-cache-search-list'. - -Returns nil when no current process, or process is busy, or -time-var > last-eval. Otherwise, execute BODY and return the last -value. - -If BODY is executed, set process variable TIME-VAR -to (current-time). - -Variable *proc* is bound to the current process during the -evaluation of BODY. - -Should be used in `ess-idle-timer-functions' which call the -process to avoid excessive requests." - (declare (indent 1) (debug t)) - `(with-ess-process-buffer 'no-error - (let ((le (process-get *proc* 'last-eval)) - (tv (process-get *proc* ',time-var))) - (when (and (or (null tv) (null le) (time-less-p tv le)) - (not (process-get *proc* 'busy))) - (let ((out (progn ,@body))) - (process-put *proc* ',time-var (current-time)) - out))))) - -(defmacro ess-execute-dialect-specific (command &optional prompt &rest args) - "Execute dialect specific COMMAND. - --- If command is nil issue warning 'Not available for dialect X' --- If command is a elisp function, execute it with ARGS --- If a string starting with 'http' or 'www', browse with `browse-url', - otherwise execute the command in inferior process. --- If a string, interpret as a command to subprocess, and - substitute ARGS with `(format ,command ,@args). - -When PROMPT is non-nil ask the user for a string value and -prepend the response to ARGS. - -If prompt is a string just pass it to `read-string'. If a list, pass it -to `ess-completing-read'." - `(if (null ,command) - (message "Not implemented for dialect %s" ess-dialect) - (let* ((com (if (symbolp ,command) - (symbol-function ,command) - ,command)) - (prompt ',prompt) - (resp (and prompt - (if (stringp prompt) - (read-string prompt) - (apply 'ess-completing-read prompt)))) - (args (append (list resp) ',args))) - (cond ((functionp com) - (apply com args)) - ((and (stringp com) - (string-match "^\\(http\\|www\\)" com)) - (setq com (apply 'format com args)) - (require 'browse-url) - (browse-url com)) - ((stringp com) - (unless (string-match "\n$" com) - (setq com (concat com "\n"))) - (setq com (apply 'format com args)) - (ess-eval-linewise com)) - (t - (error "Argument COMMAND must be either a function or a string")))))) - -(defcustom ess-idle-timer-interval 1 - "Number of idle seconds to wait before running function in `ess-idle-timer-functions'." - :type '(integer) - :group 'ess) - -(defvar ess-idle-timer-functions nil - "A list of functions to run each `ess-idle-timer-interval' idle seconds. - -If your function calls the process, you better use -`ess-when-new-input' to wrap your call. If you call the -subprocess please respect `ess-can-eval-in-background' variable. - -These functions are run with `run-hooks'. Use `add-hook' to add -symbols to this variable. - -Most likely you will need a local hook. Then you should specify -the LOCAL argument to `add-hook' and initialise it in -`ess-mode-hook' or `ess-post-run-hook', or one of the more -specialised hooks `ess-r-post-run-hook',`ess-stata-post-run-hook' -etc.") - -(defun ess--idle-timer-function nil - "Internal function executed by `ess--idle-timer'." - ;; (while-no-input - (run-hooks 'ess-idle-timer-functions)) - -(require 'timer) -(defvar ess--idle-timer - (run-with-idle-timer ess-idle-timer-interval 'repeat 'ess--idle-timer-function) - "Timer used to run `ess-idle-timer-functions'.") - - -;;*;; Emacs Integration - -;;;*;;; Menus - -(defun ess--generate-eval-visibly-submenu (menu) - '(["yes" (lambda () (interactive) (setq ess-eval-visibly t)) - :style radio :enable t :selected (eq ess-eval-visibly t)] - ["nowait" (lambda () (interactive) (setq ess-eval-visibly 'nowait)) - :style radio :enable t :selected (eq ess-eval-visibly 'nowait) ] - ["no" (lambda () (interactive) (setq ess-eval-visibly nil)) - :style radio :enable t :selected (eq ess-eval-visibly nil) ])) - -;;;*;;; Font Lock - -(defun ess--fl-keywords-values () - "Return a cons (STANDARD-VALUE . CUSTOM-VALUE) of `ess-font-lock-keywords'." - (let ((sym (if (derived-mode-p 'ess-mode) - ess-font-lock-keywords - ;; also in transcript mode - inferior-ess-font-lock-keywords))) - (if (and (symbolp sym) - (custom-variable-p sym)) - (cons - (eval (car (get sym 'standard-value))) - (symbol-value sym)) - (error "(inferior-)`ess-font-lock-keywords' must be a symbol of a custom variable")))) - -(defun ess--extract-fl-keywords () - (let ((values (ess--fl-keywords-values))) - (mapcar (lambda (kv) - (let ((cust-kv (assoc (car kv) (cdr values)))) - (when cust-kv - (setcdr kv (cdr cust-kv)))) - kv) - (copy-alist (car values))))) - -(defun ess-build-font-lock-keywords () - "Retrieve `font-lock-keywords' from ess-[dialect]-font-lock-keywords. -Merge the customized values of that variable on top of the -standard values and return the new list. For this to work, -`ess-font-lock-keywords' and `inferior-ess-font-lock-keywords' -should hold a name of the ess-[dialect]-font-lock-keywords -variable." - (delq nil - (mapcar (lambda (c) - (when (cdr c) - (symbol-value (car c)))) - (ess--extract-fl-keywords)))) - -(defun ess-font-lock-toggle-keyword (&optional keyword) - (interactive) - (let* ((values (ess--fl-keywords-values)) - (keyword (or keyword - (if (called-interactively-p 'any) - (intern (ess-completing-read - "Keyword to toggle" - (mapcar (lambda (el) (symbol-name (car el))) - (car values)) - nil t)) - (error "Wrong number of arguments")))) - (kwd (cond - ;; already in custom values - ((assoc keyword (cdr values))) - ;; if keyword is not already in custom values (can happen if - ;; we add new keywords but the user has the old value saved in - ;; .emacs-custom.el) - ((let ((kwd (assoc keyword (car values))) - (sym (if (derived-mode-p 'ess-mode) - ess-font-lock-keywords - inferior-ess-font-lock-keywords))) - (when kwd - (set sym (cons kwd (symbol-value sym))) - kwd))) - (t (error "Invalid keyword %s" keyword))))) - (setcdr kwd (not (cdr kwd))) - (let ((mode major-mode) - (dialect ess-dialect)) - ;; refresh font-lock defaults in all relevant buffers - (mapc (lambda (b) - (with-current-buffer b - (when (and (eq major-mode mode) - (eq ess-dialect dialect)) - (font-lock-refresh-defaults)))) - (buffer-list))))) - -(defun ess--generate-font-lock-submenu (menu) - "Generate ESS font-lock submenu in MENU." - (append (mapcar (lambda (el) - `[,(symbol-name (car el)) - (lambda () (interactive) - (ess-font-lock-toggle-keyword ',(car el))) - :style toggle - :enable t - :selected ,(cdr el)]) - (ess--extract-fl-keywords)) - (list "-----" - ["Save to custom" - (lambda () (interactive) - (customize-save-variable (if (derived-mode-p 'ess-mode) - ess-font-lock-keywords - inferior-ess-font-lock-keywords) - (ess--extract-fl-keywords))) - t]))) - - -;;;*;;; External modes - -(defun ess-completing-read (prompt collection &optional predicate - require-match initial-input hist def) - "Read a string in the minibuffer, with completion. -Use `ido-completing-read' if IDO interface is present, or fall -back on classical `completing-read' otherwise. Meaning of -arguments is as in `completing-read' (PROMPT is automatically -suffixed with ': ' and (default %s) when needed). If HIST -is null use `ess--completing-hist' as history. - -See also `ess-use-ido'." - (let ((use-ido (and ess-use-ido (featurep 'ido)))) - (setq hist (or hist 'ess--completing-hist)) - (when (and def (not use-ido)) ;; ido places in front and highlights the default - (setq prompt (format "%s(default %s)" prompt def))) - (setq prompt (concat prompt ": ")) - (if use-ido - (let ((reset-ido (and use-ido (not ido-mode))) ;people not using ido but having it) - (ido-current-directory nil) - (ido-directory-nonreadable nil) - (ido-directory-too-big nil) - (ido-context-switch-command 'ignore) - (ido-enable-flex-matching ess-ido-flex-matching) ;it's fast and useful, may be get into options - (ido-choice-list (copy-sequence collection)) ;ido removes the match (reported) - sel) - (unwind-protect - (progn - ;; Can remove this call when we drop support for Emacs - ;; < 25.1, as it is aliased to ignore then - (ido-init-completion-maps) - (add-hook 'minibuffer-setup-hook 'ido-minibuffer-setup) - (add-hook 'choose-completion-string-functions 'ido-choose-completion-string) - (setq sel (ido-read-internal 'list prompt hist def require-match initial-input)) - (when hist ;; ido does not push into hist the whole match if C-SPC or RET is used (reported) - (unless (string= sel (car (symbol-value hist))) - (set hist (cons sel (symbol-value hist)))))) - (when reset-ido - (remove-hook 'minibuffer-setup-hook 'ido-minibuffer-setup) - (remove-hook 'choose-completion-string-functions 'ido-choose-completion-string))) - sel) - ;; else usual completion - (completing-read prompt collection predicate require-match initial-input hist def)))) - -(defun ess-load-extras (&optional inferior) - "Load all the extra features depending on custom settings." - - (let ((mode (if inferior 'inferior-ess-mode 'ess-mode)) - (isR (string-match "^R" ess-dialect))) - - ;; auto-complete - (when (and (boundp 'ac-sources) - (if inferior - (eq ess-use-auto-complete t) - ess-use-auto-complete)) - (add-to-list 'ac-modes mode) - ;; files should be in front; ugly, but needed - (when ess-ac-sources - (setq ac-sources - (delq 'ac-source-filename ac-sources)) - (mapc (lambda (el) (add-to-list 'ac-sources el)) - ess-ac-sources) - (add-to-list 'ac-sources 'ac-source-filename))) - - ;; company - (when (and (boundp 'company-backends) - (if inferior - (eq ess-use-company t) - ess-use-company)) - (when ess-company-backends - (set (make-local-variable 'company-backends) - (cl-copy-list (append ess-company-backends company-backends))) - (delq 'company-capf company-backends))) - - ;; eldoc) - (require 'eldoc) - (when (and ess-eldoc-function ;; if mode provide this, it suports eldoc - (or (and (not inferior) ess-use-eldoc) - (and inferior (eq ess-use-eldoc t)))) - (when (> eldoc-idle-delay 0.4) ;; default is too slow for paren help - (set (make-local-variable 'eldoc-idle-delay) 0.1)) - (set (make-local-variable 'eldoc-documentation-function) ess-eldoc-function) - (eldoc-mode 1)) - - ;; tracebug - (when (and ess-use-tracebug inferior isR (fboundp 'ess-tracebug)) - (ess-tracebug 1)))) - -(defmacro ess--execute-electric-command (map &optional prompt wait exit-form &rest args) - "Execute single-key comands defined in MAP till a key is pressed which is not part of map. - -Return the value of the lastly executed command. - -Single-key input commands are those that once executed do not -requre the prefix command for subsequent invocation. - -PROMPT is passed to `read-event'. - -If WAIT is t, wait for next input and ignore the keystroke which -triggered the command. - -Each command in map should accept one at least one argument, the -most recent event (as read by `read-event'). ARGS are the -supplementary arguments passed to the commands. - -EXIT-FORM should be supplied for a more refined control of the -read-even loop. The loop is exited when EXIT-FORM evaluates to -t. See examples in the tracebug code." - ;;VS[09-06-2013]: check: it seems that set-temporary-overlay-map is designed - ;;for this type of things; see also repeat.el package. - `(let* ((ev last-command-event) - (command (lookup-key ,map (vector ev))) - out exit ) - (if (not (or ,wait command)) - (message "%s is undefined" (key-description (this-command-keys))) - (unless ,wait - (setq out (and command (funcall command ev ,@args)))) - (while (and (not exit) - (setq command - (lookup-key ,map - (vector (setq ev (read-event ,prompt)))))) - (setq out (funcall command ev ,@args)) - (sleep-for .01) - (setq exit ,exit-form)) - (unless exit ;; push only if an event triggered the exit - (push ev unread-command-events)) - out))) - -(defvar ess-build-tags-command nil - "Command passed to generate tags. - -If nil, `ess-build-tags-for-directory' uses the mode's imenu -regexpresion. Othersiwe, it should be a string with two %s -formats: one for directory and another for the output file.") - -;;;*;;; Emacs itself - -(defun ess-yank-cleaned-commands () - "Yank and strip the code, leaving only (R/S/Lsp/..) commands. -Deletes any lines not beginning with a prompt, and then removes -the prompt from those lines that remain. - -Invoke this command with C-u C-u C-y." - (setq yank-window-start (window-start)) - (let ((beg (point))) - (push-mark beg) - (setq this-command t) - (insert-for-yank (current-kill 0)) - (when (and (require 'ess-trns) (fboundp 'ess-transcript-clean-region)) - (ess-transcript-clean-region beg (point) nil)) - (if (eq (point) beg) - (message "No commands found")) - (if (eq this-command t) - (setq this-command 'yank)) - )) - -(defun ess-yank (&optional arg) - "With double prefix ARG (C-u C-u) call `ess-yank-cleaned-commands'." - (interactive "*P") - (if (equal '(16) arg) - (ess-yank-cleaned-commands) - (let* ((remapped (command-remapping 'yank (point))) - (command (cond ((eq remapped 'ess-yank) 'yank) - ((null remapped) 'yank) - (t remapped)))) - (funcall command arg)))) - -(put 'ess-yank 'delete-selection 'yank) - -(defun ess-build-tags-for-directory (dir tagfile) - "Ask for directory and tag file and build tags for current dialect. - -If the current language defines `ess-build-tags-command' use it -and ask the subprocess to build the tags. Otherwise use imenu -regexp and call find .. | etags .. in a shell command. You must -have 'find' and 'etags' programs installed. - -Use M-. to navigate to a tag. \\[visit-tags-table] to -append/replace the currently used tag table. - -If prefix is given, force tag generation based on imenu. Might be -useful when different language files are also present in the -directory (.cpp, .c etc)." - (interactive "DDirectory to tag: -GTags file (default TAGS): ") - (when (or (eq (length (file-name-nondirectory tagfile)) 0) - (file-directory-p tagfile)) - (setq tagfile (concat (file-name-as-directory tagfile) "TAGS"))) - ;; emacs find-tags doesn't play well with remote TAG files :( - (when (file-remote-p tagfile) - (require 'tramp) - (setq tagfile (with-parsed-tramp-file-name tagfile foo foo-localname))) - (when (file-remote-p dir) - (require 'tramp) - (setq dir (with-parsed-tramp-file-name dir foo foo-localname))) - (if (and ess-build-tags-command (null current-prefix-arg)) - (ess-eval-linewise (format ess-build-tags-command dir tagfile)) - ;; else generate from imenu - (unless (or imenu-generic-expression ess-imenu-generic-expression) ;; need both!! - (error "No ess-tag-command found, and no imenu-generic-expression defined")) - (let* ((find-cmd - (format "find %s -type f -size 1M \\( -regex \".*\\.\\(cpp\\|jl\\|[RsrSch]\\(nw\\)?\\)$\" \\)" dir)) - (regs (delq nil (mapcar (lambda (l) - (if (string-match "'" (cadr l)) - nil ;; remove for time being - (format "/%s/\\%d/" - (replace-regexp-in-string "/" "\\/" (nth 1 l) t) - (nth 2 l)))) - imenu-generic-expression))) - (tags-cmd (format "etags -o %s --regex='%s' -" tagfile - (mapconcat 'identity regs "' --regex='")))) - (message "Building tags: %s" tagfile) - (when (= 0 (shell-command (format "%s | %s" find-cmd tags-cmd))) - (message "Building tags .. ok!"))))) - - -;;;*;;; System - -;; trying different viewers; thanks to an original patch for -;; ess-swv.el from Leo : -(defun ess-get-ps-viewer () - "Get external PostScript viewer to be used from ESS. -Use `ess-ps-viewer-pref' when that is executably found by \\[executable-find]. -Otherwise try a list of fixed known viewers." - (file-name-nondirectory - (or (and ess-ps-viewer-pref ; -> ./ess-custom.el - (executable-find ess-ps-viewer-pref)) - (executable-find "gv") - (executable-find "evince") - (executable-find "kghostview")))) - -(defun ess-get-pdf-viewer () - "Get external PDF viewer to be used from ESS. -Use `ess-pdf-viewer-pref' when that is executably found by \\[executable-find]. -Otherwise try a list of fixed known viewers." - (let ((viewer (or ess-pdf-viewer-pref - ;; (and (stringp ess-pdf-viewer-pref) ; -> ./ess-custom.el - ;; (executable-find ess-pdf-viewer-pref)) - (executable-find "evince") - (executable-find "kpdf") - (executable-find "okular") - (executable-find "xpdf") - (executable-find "acroread") - (executable-find "xdg-open") - ;; this one is wrong, (ok for time being as it is used only in swv) - (when (fboundp 'ess-get-words-from-vector) - (car (ess-get-words-from-vector - "getOption(\"pdfviewer\")\n")))))) - (when (stringp viewer) - (setq viewer (file-name-nondirectory viewer))) - viewer)) - - -;;*;; UI - -(defvar ess-current-region-overlay - (let ((overlay (make-overlay (point) (point)))) - (overlay-put overlay 'face 'highlight) - overlay) - "The overlay for highlighting currently evaluated region or line.") - -(defun ess-blink-region (start end) - (when ess-blink-region - (move-overlay ess-current-region-overlay start end) - (run-with-timer ess-blink-delay nil - (lambda () - (delete-overlay ess-current-region-overlay))))) - -(defun ess-deactivate-mark () - (cond ((and (featurep 'evil) (bound-and-true-p evil-mode)) - (when (evil-visual-state-p) - (evil-normal-state))) - (mark-active - (deactivate-mark)))) - -;; SJE: 2009-01-30 -- this contribution from -;; Erik Iverson - -(defun ess-tooltip-show-at-point (text xo yo) - "Show a tooltip displaying 'text' at (around) point, xo and yo are x- -and y-offsets for the toolbar from point." - (let ( - (fx (frame-parameter nil 'left)) - (fy (frame-parameter nil 'top)) - (fw (frame-pixel-width)) - (fh (frame-pixel-height)) - frame-left frame-top my-x-offset my-y-offset) - - ;; The following comment was found before code looking much like that - ;; of frame-left and frame-top below in the file - ;; tooltip-help.el. I include it here for acknowledgement, and I did observe - ;; the same behavior with the Emacs window maximized under Windows XP. - - ;; -----original comment-------- - ;; handles the case where (frame-parameter nil 'top) or - ;; (frame-parameter nil 'left) return something like (+ -4). - ;; This was the case where e.g. Emacs window is maximized, at - ;; least on Windows XP. The handling code is "shamelessly - ;; stolen" from cedet/speedbar/dframe.el - ;; (contributed by Andrey Grigoriev) - - (setq frame-left (if (not (consp fx)) - fx - (if (eq (car fx) '-) - (- (x-display-pixel-width) (car (cdr fx)) fw) - (car (cdr fx))))) - - (setq frame-top (if (not (consp fy)) - fy - (if (eq (car fy) '-) - (- (x-display-pixel-height) (car (cdr fy)) fh) - (car (cdr fy))))) - - ;; calculate the offset from point, use xo and yo to adjust to preference - (setq my-x-offset (+ (car(window-inside-pixel-edges)) - (car(posn-x-y (posn-at-point))) - frame-left xo)) - - (setq my-y-offset (+ (cadr(window-inside-pixel-edges)) - (cdr(posn-x-y (posn-at-point))) - frame-top yo)) - - (let ((tooltip-frame-parameters - (cons (cons 'top my-y-offset) - (cons (cons 'left my-x-offset) - tooltip-frame-parameters)))) - (tooltip-show text)) - )) - -(defun ess-select-frame-set-input-focus (frame) - "Select FRAME, raise it, and set input focus, if possible. -Copied almost verbatim from gnus-utils.el (but with test for mac added)." - ;; The function `select-frame-set-input-focus' won't set - ;; the input focus under Emacs 21.2 and X window system. - ;;((fboundp 'select-frame-set-input-focus) - ;; (defalias 'gnus-select-frame-set-input-focus - ;; 'select-frame-set-input-focus) - ;; (select-frame-set-input-focus frame)) - (raise-frame frame) - (select-frame frame) - (cond ((and - (memq window-system '(x mac)) - (fboundp 'x-focus-frame)) - (x-focus-frame frame)) - ((and (eq window-system 'w32) - ;; silence byte compiler warnings about w32-fns - (fboundp 'w32-focus-frame)) - (w32-focus-frame frame))) - (when focus-follows-mouse - (set-mouse-position frame (1- (frame-width frame)) 0))) - -(defun ess-do-auto-fill () - "This is the same as \\[do-auto-fill] in GNU emacs 21.3, with one major -difference: if we could not find a suitable place to break the line, -we simply do not break it (instead of breaking after the first word)." - (let (fc justify bol give-up - (fill-prefix fill-prefix)) - (if (or (not (setq justify (current-justification))) - (null (setq fc (current-fill-column))) - (and (eq justify 'left) - (<= (current-column) fc)) - (save-excursion (beginning-of-line) - (setq bol (point)) - (and auto-fill-inhibit-regexp - (looking-at auto-fill-inhibit-regexp)))) - nil ;; Auto-filling not required - (if (memq justify '(full center right)) - (save-excursion (unjustify-current-line))) - - ;; Choose a fill-prefix automatically. - (if (and adaptive-fill-mode - (or (null fill-prefix) (string= fill-prefix ""))) - (let ((prefix - (fill-context-prefix - (save-excursion (backward-paragraph 1) (point)) - (save-excursion (forward-paragraph 1) (point))))) - (and prefix (not (equal prefix "")) - (setq fill-prefix prefix)))) - - (while (and (not give-up) (> (current-column) fc)) - ;; Determine where to split the line. - (let* (after-prefix - (fill-point - (let ((opoint (point)) - bounce - (first t)) - (save-excursion - (beginning-of-line) - (setq after-prefix (point)) - (and fill-prefix - (looking-at (regexp-quote fill-prefix)) - (setq after-prefix (match-end 0))) - (move-to-column (1+ fc)) - ;; Move back to the point where we can break the line. - ;; We break the line between word or - ;; after/before the character which has character - ;; category `|'. We search space, \c| followed by - ;; a character, or \c| following a character. If - ;; not found, place the point at beginning of line. - (while (or first - ;; If this is after period and a single space, - ;; move back once more--we don't want to break - ;; the line there and make it look like a - ;; sentence end. - (and (not (bobp)) - (not bounce) - sentence-end-double-space - (save-excursion (forward-char -1) - (and (looking-at "\\. ") - (not (looking-at "\\. "))))) - (and (not (bobp)) - (not bounce) - fill-nobreak-predicate - (funcall fill-nobreak-predicate))) - (setq first nil) - (re-search-backward "[ \t]\\|\\c|.\\|.\\c|\\|^") - ;; If we find nowhere on the line to break it, - ;; do not break it. Set bounce to t - ;; so we will not keep going in this while loop. - (if (<= (point) after-prefix) - (setq bounce t) - (if (looking-at "[ \t]") - ;; Break the line at word boundary. - (skip-chars-backward " \t") - ;; Break the line after/before \c|. - (forward-char 1)))) - (if enable-multibyte-characters - ;; If we are going to break the line after or - ;; before a non-ascii character, we may have - ;; to run a special function for the charset - ;; of the character to find the correct break - ;; point. - (if (not (and (eq (charset-after (1- (point))) 'ascii) - (eq (charset-after (point)) 'ascii))) - (fill-find-break-point after-prefix))) - - ;; Let fill-point be set to the place where we end up. - ;; But move back before any whitespace here. - (skip-chars-backward " \t") - (point))))) - - ;; See whether the place we found is any good. - (if (save-excursion - (goto-char fill-point) - (and (not (bolp)) - ;; There is no use breaking at end of line. - (not (save-excursion (skip-chars-forward " ") (eolp))) - ;; It is futile to split at the end of the prefix - ;; since we would just insert the prefix again. - (not (and after-prefix (<= (point) after-prefix))) - ;; Don't split right after a comment starter - ;; since we would just make another comment starter. - (not (and comment-start-skip - (let ((limit (point))) - (beginning-of-line) - (and (re-search-forward comment-start-skip - limit t) - (eq (point) limit))))))) - ;; Ok, we have a useful place to break the line. Do it. - (let ((prev-column (current-column))) - ;; If point is at the fill-point, do not `save-excursion'. - ;; Otherwise, if a comment prefix or fill-prefix is inserted, - ;; point will end up before it rather than after it. - (if (save-excursion - (skip-chars-backward " \t") - (= (point) fill-point)) - (funcall comment-line-break-function t) - (save-excursion - (goto-char fill-point) - (funcall comment-line-break-function t))) - ;; Now do justification, if required - (if (not (eq justify 'left)) - (save-excursion - (end-of-line 0) - (justify-current-line justify nil t))) - ;; If making the new line didn't reduce the hpos of - ;; the end of the line, then give up now; - ;; trying again will not help. - (if (>= (current-column) prev-column) - (setq give-up t))) - ;; No good place to break => stop trying. - (setq give-up t)))) - ;; Justify last line. - (justify-current-line justify t t) - t))) - - -;;*;; Syntax - -(defun ess-containing-sexp-position () - (cadr (syntax-ppss))) - -(defun ess-code-end-position () - "Like (line-end-position) but stops at comments." - (save-excursion - (goto-char (1+ (line-end-position))) - (forward-comment -1) - (point))) - -;; FIXME: The following function pattern stuff is specific to R but is -;; used throughout ESS -(defvar ess-r-set-function-start - ;; [MGAR].. <=> {setMethod(), set[Group]Generic(), setAs(), setReplaceMethod()} - ;; see also set-S4-exp in ess-r-function-pattern below - "^set[MGAR][GMa-z]+\\s-?(") - -(defvar ess-function-pattern nil ; in R set to ess-r-function-pattern - "Regexp to match the beginning of a function in S buffers.") - -(defvar ess-r-symbol-pattern - "\\(\\sw\\|\\s_\\)" - "The regular expression for matching an R symbol.") - -(defvar ess-r-name-pattern - (concat "\\(" ess-r-symbol-pattern "+\\|\\(`\\).+`\\)") - "The regular expression for matching a R name.") - -(let* ((Q "\\s\"") ; quote - (repl "\\(<-\\)?") ; replacement (function) - (Sym-0 "\\(\\sw\\|\\s_\\)") ; symbol - (Symb (concat Sym-0 "+")) - (xSymb "[^ \t\n\"']+") ;; (concat "\\[?\\[?" Sym-0 "*")); symbol / [ / [[ / [symbol / [[symbol - ;; FIXME: allow '%foo%' but only when quoted; don't allow [_0-9] at beg. - (_or_ "\\)\\|\\(") ; OR - (space "\\(\\s-\\|\n\\)*") ; white space - - (part-1 (concat - "\\(" ;;--------outer Either------- - "\\(\\(" ; EITHER - Q xSymb Q ; any function name between quotes - _or_ - "\\(^\\|[ ]\\)" Symb ; (beginning of name) + ess-r-symbol-pattern - "\\)\\)")) ; END EITHER OR - - (set-S4-exp - (concat - "^set\\(As\\|Method\\|Generic\\|GroupGeneric\\|ReplaceMethod\\)(" ; S4 ... - Q xSymb Q "," space - ;; and now often `` signature(......), : '' - ".*" ;; <<< FIXME ??? - )) - - (part-2 (concat - "\\|" ;;--------outer Or --------- - set-S4-exp - "\\)" ;;--------end outer Either/Or------- - - "\\(" space "\\s<.*\\s>\\)*" ; whitespace, comment - ;; FIXME: in principle we should skip 'definition *= *' here - space "function\\s-*(" ; whitespace, function keyword, parenthesis - ))) - - (defvar ess-r-function-pattern - (concat part-1 - "\\s-*\\(<-\\|=\\)" ; whitespace, assign - part-2) - "The regular expression for matching the beginning of an R function.") - - (defvar ess-s-function-pattern - (concat part-1 - "\\s-*\\(<-\\|_\\|=\\)" ; whitespace, assign (incl. "_") - part-2) - "The regular expression for matching the beginning of an S function.")) - - -(defvar ess--fn-name-start-cache nil) - -(defun ess--fn-name-start (&optional look-back) - "Return (FN-NAME . START-POS). -FN-NAME is a function name located before the pointer. START-POS -is the position where FN-NAME starts. LOOK-BACK is a number of -characters to look back; defaults to 2000. Store this cons in -variable `ess--fn-name-start-cache'." - (save-excursion - (save-restriction - (let* ((proc (get-buffer-process (current-buffer))) - (mark (and proc (process-mark proc)))) - - (if (and mark (>= (point) mark)) - (narrow-to-region mark (point))) - - (and (fboundp 'ess-noweb-narrow-to-chunk) - (bound-and-true-p ess-noweb-mode) - (ess-noweb-narrow-to-chunk)) - - (unless (ess-inside-string-p) - (setq ess--fn-name-start-cache - (condition-case nil ;; check if it is inside a functon - (progn - ;; for the sake of big buffers, look only 1000 chars back - (narrow-to-region (max (point-min) (- (point) 1000)) (point)) - (up-list -1) - (while (not (looking-at "(")) - (up-list -1)) - (let ((funname (symbol-name (ess-symbol-at-point)))) - (when (and funname - (not (member funname ess-S-non-functions))) - (cons funname (- (point) (length funname)))))) - (error nil)))))))) - -(defun ess-beginning-of-function (&optional no-error) - "Leave (and return) the point at the beginning of the current ESS function. -If the optional argument NO-ERROR is non-nil, the function returns nil when -it cannot find a function beginning." - ;; FIXME: should not throw error in accordance with beginning-of-defun and - ;; beginning-of-defun-function specification - ;; FIXME: should __WORK__ in the crucial case: large function w/ internal function defs - (interactive) - (let ((init-point (point)) - (in-set-S4 nil) - beg end done) - - ;; Note that we must be sure that we are past the 'function (' text, - ;; such that ess-function-pattern is found in BACKwards later. - ;; In case we're sitting in a function or setMethod() header, - ;; we need to move further. - ;; But not too far! {wrongly getting into next function} - (if (search-forward "(" - (ess-line-end-position 2) t) ; at most end of next line - (forward-char 1)) - ;; TODO: replace the above by hopefully more sucessful logic: - ;; 1. If we have 'function *(' in the same line, move to end of that line - ;; 2. if *not*, skip all comment lines (concat space comment-char .* "\n") - ;; and only* then do something like the - ;; (search-forward '(' .. (..line-end.. 2) ) above - - (setq end (point)) ; = init-point when nothing found - - (ess-write-to-dribble-buffer - (format "ess-BEG-of-fun after 'search-FWD (': Ini-pt %d, (p)-Ini-pt = %d\n" - init-point (- end init-point))) - (if (and (> end 1) - (re-search-backward ;; in case of setMethod() etc .. - ess-r-set-function-start - ;; at most 1 line earlier {2 is too much: finds previous sometimes} - (+ 1 (ess-line-end-position -1)) t)) - - (progn ;; yes we *have* an S4 setMethod(..)-like - (setq in-set-S4 t - beg (point)) - (ess-write-to-dribble-buffer - (format " set*() function start at position %d" beg)) - ;; often need to move even further to have 'function(' to our left - ;; (if (search-forward "function" end t) - ;; (ess-write-to-dribble-buffer - ;; (format " -> 'function' already at pos %d\n" (point))) - ;; ;; else need to move further - (goto-char end) - ;; search 4 lines, we are pretty sure now: - (search-forward - "function" (ess-line-end-position 4) t) - ;; ) - (search-forward "(" (ess-line-end-position) t)) - ;; else: regular function; no set*Method(..) - (ess-write-to-dribble-buffer "ELSE not in setMethod() header ...\n")) - - (while (not done) - ;; Need this while loop to skip over local function definitions - - ;; In the case of non-success, it is inefficiently - ;; going back in the buffer through all function definitions... - (unless - (and (re-search-backward ess-function-pattern (point-min) t) - (not (ess-inside-string-or-comment-p (point)))) - (goto-char init-point) - (if no-error - (setq done t beg nil) - ;; else [default]: - (error "Point is not in a function according to 'ess-function-pattern'"))) - (unless done - (setq beg (point)) - (ess-write-to-dribble-buffer - (format "\tMatch,Pt:(%d,%d),%d\n" - (match-beginning 0) (match-end 0) beg)) - (setq in-set-S4 (looking-at ess-r-set-function-start)) - (forward-list 1) ; get over arguments - - ;; The following used to bomb "Unbalanced parentheses", n1, n2 - ;; when the above (search-forward "(" ..) wasn't delimited : - (unless in-set-S4 (forward-sexp 1)) ; move over braces - ;;DBG (ess-write-to-dribble-buffer "|") - (setq end (point)) - (goto-char beg) - ;; current function must begin and end around point - (setq done (and (>= end init-point) (<= beg init-point))))) - beg)) - -(defun ess-end-of-function (&optional beginning no-error) - "Leave the point at the end of the current ESS function. -Optional argument for location of BEGINNING. Return '(beg end)." - (interactive) - (if beginning - (goto-char beginning) - (setq beginning (ess-beginning-of-function no-error))) - (if beginning - ;; *hack* only for S (R || S+): are we in setMethod(..) etc? - (let ((in-set-S4 (looking-at ess-r-set-function-start)) - (end-pos) (npos)) - (ess-write-to-dribble-buffer - (format "ess-END-of-fun: S4=%s, beginning = %d\n" in-set-S4 beginning)) - (forward-list 1) ; get over arguments || whole set*(..) - (unless in-set-S4 (forward-sexp 1)) ; move over braces - (ess-write-to-dribble-buffer - (format "ess-END-of-fun: found #1 : %d\n" (point))) - - ;; For one-line functions withOUT '{ .. }' body -- added 2008-07-23 -- - ;; particularly helpful for C-c C-c (ess-eval-function-or-paragraph-and-step): - (setq end-pos (ess-line-end-position)) - (while (< (point) end-pos) ; if not at end of line, move further forward - (goto-char ;; careful not to move too far; e.g. *not* over empty lines: - (min (save-excursion (forward-sexp 1) (point)) - (save-excursion (forward-paragraph 1) (point))))) - (list beginning (point))) - ;; else: 'no-error': we are not in a function - nil)) - -(defun ess-symbol-at-point () - "Like `symbol-at-point' but consider fully qualified names. -Fully qualified names include accessor symbols (like aaa$bbb and -aaa@bbb in R)." - (with-syntax-table (or ess-mode-completion-syntax-table - ess-mode-syntax-table - (syntax-table)) - (symbol-at-point))) - -(defun ess-bounds-of-symbol () - "Get bounds of symbol at point. -Intended for completion." - (let ((bounds (with-syntax-table (or ess-mode-completion-syntax-table - ess-mode-syntax-table - (syntax-table)) - (bounds-of-thing-at-point 'symbol)))) - (and bounds - (not (save-excursion - (goto-char (car bounds)) - (looking-at "/\\|.[0-9]"))) - bounds))) - -(defun ess-symbol-start () - "Get initial position for objects completion. -Symbols are fully qualified names that include accessor -symbols (like aaa$bbb and aaa@bbb in R)." - (car (ess-bounds-of-symbol))) - -(defun ess-arg-start () - "Get initial position for args completion." - (when (not (ess-inside-string-p)) - (when (ess--fn-name-start) - (if (looking-back "[(,]+[ \t\n]*" nil) - (point) - (ess-symbol-start))))) - -(defun ess-inside-string-p (&optional pos) - "Return non-nil if POS is inside string. -POS defaults to `point'." - (let ((pos (or pos (point)))) - (nth 3 (syntax-ppss pos)))) - -(defun ess-inside-comment-p (&optional pos) - "Return non-nil if POS is inside string. -POS defaults to `point'." - (let ((pos (or pos (point)))) - (nth 4 (syntax-ppss pos)))) - -(defun ess-inside-string-or-comment-p (&optional pos) - "Return non-nil if POS is inside a string or comment. -POS defaults to `point'." - (or (ess-inside-string-p pos) - (ess-inside-comment-p pos))) - -(defun ess-inside-brackets-p (&optional pos curly?) - "Return t if position POS is inside brackets. -POS defaults to point if no value is given. If CURLY?? is non nil -also return t if inside curly brackets." - (save-excursion - (let ((ppss (syntax-ppss pos)) - (r nil)) - (while (and (> (nth 0 ppss) 0) - (not r)) - (goto-char (nth 1 ppss)) - (when (or (char-equal ?\[ (char-after)) - (and curly? - (char-equal ?\{ (char-after)))) - (setq r t)) - (setq ppss (syntax-ppss))) - r))) - - -;;*;; String manipulation - -(defun ess-quote-special-chars (string) - (replace-regexp-in-string - "\"" "\\\\\\&" - (replace-regexp-in-string ;; replace backslashes - "\\\\" "\\\\" string nil t))) - -;; simple alternative to ess-read-object-name-default of ./ess-inf.el : -;; is "wrongly" returning "p1" for word "p1.part2" : -(defun ess-extract-word-name () - "Get the word you're on (cheap algorithm). -Use `ess-read-object-name-default' for a better but slower -version." - (save-excursion - (re-search-forward "\\<\\w+\\>" nil t) - (buffer-substring (match-beginning 0) (match-end 0)))) - -(defun ess-rep-regexp (regexp to-string &optional fixedcase literal verbose) - "Instead of (replace-regexp..) -- do NOT replace in strings or comments. -If FIXEDCASE is non-nil, do *not* alter case of replacement text. -If LITERAL is non-nil, do *not* treat `\\' as special. -If VERBOSE is non-nil, (message ..) about replacements." - (let ((case-fold-search (and case-fold-search - (not fixedcase))); t <==> ignore case in search - (ppt (point)); previous point - (p)) - (while (and (setq p (re-search-forward regexp nil t)) - (< ppt p)) - (setq ppt p) - (cond ((not (ess-inside-string-or-comment-p (1- p))) - (if verbose - (let ((beg (match-beginning 0))) - (message "buffer in (match-beg.,p)=(%d,%d) is '%s'" - beg p (buffer-substring beg p)))) - (replace-match to-string fixedcase literal) - ;;or (if verbose (setq pl (append pl (list p)))) - ))) - ;;or (if (and verbose pl) - ;;or (message "s/%s/%s/ at %s" regexp to-string pl)) - ) ) - -(defun ess-replace-regexp-dump-to-src (regexp to-string &optional dont-query verbose) - "Replace REGEXP matches from beginning of buffer with TO-STRING. -If DONT-QUERY is non-nil, call `ess-rep-regexp' else call -`query-replace-regexp'. VERBOSE can be passed to `ess-rep-regexp'." - (save-excursion - (goto-char (point-min)) - (if dont-query - (ess-rep-regexp regexp to-string nil nil verbose) - (query-replace-regexp regexp to-string nil)))) - -(defun ess-space-around (word &optional from verbose) - "Replace-regexp .. ensuring space around all occurences of WORD. -Start at from FROM, which defaults to point." - (interactive "d\nP"); Defaults: point and prefix (C-u) - (save-excursion - (goto-char from) - (ess-rep-regexp (concat "\\([^ \t\n]\\)\\(\\<" word "\\>\\)") - "\\1 \\2" nil nil verbose) - (goto-char from) - (ess-rep-regexp (concat "\\(\\<" word "\\>\\)\\([^ \t\n]\\)") - "\\1 \\2" nil nil verbose) - ) - ) - -(defun ess-time-string (&optional clock) - "Return a string for use as a timestamp, like \"13 Mar 1992\". -Include hr:min if CLOCK is non-nil. Redefine to taste." - (format-time-string (concat "%e %b %Y" (if clock ", %H:%M")))) - -(defun ess-replace-in-string (str regexp newtext &optional literal) - "Replace all matches in STR for REGEXP with NEWTEXT string. -Optional LITERAL non-nil means do a literal replacement. -Otherwise treat \\ in NEWTEXT string as special: - \\& means substitute original matched text, - \\N means substitute match for \(...\) number N, - \\\\ means insert one \\." - (if (not (stringp str)) - (error "(replace-in-string): First argument must be a string: %s" str)) - (if (stringp newtext) - nil - (error "(replace-in-string): 3rd arg must be a string: %s" - newtext)) - (let ((rtn-str "") - (start 0) - (special) - match prev-start) - (while (setq match (string-match regexp str start)) - (setq prev-start start - start (match-end 0) - rtn-str - (concat - rtn-str - (substring str prev-start match) - (cond (literal newtext) - (t (mapconcat - (function - (lambda (c) - (if special - (progn - (setq special nil) - (cond ((eq c ?\\) "\\") - ((eq c ?&) - (substring str - (match-beginning 0) - (match-end 0))) - ((and (>= c ?0) (<= c ?9)) - (if (> c (+ ?0 (length - (match-data)))) - ;; Invalid match num - (error "(replace-in-string) Invalid match num: %c" c) - (setq c (- c ?0)) - (substring str - (match-beginning c) - (match-end c)))) - (t (char-to-string c)))) - (if (eq c ?\\) (progn (setq special t) nil) - (char-to-string c))))) - newtext "")))))) - (concat rtn-str (substring str start)))) - -;;- From: friedman@gnu.ai.mit.edu (Noah Friedman) -;;- Date: 12 Feb 1995 21:30:56 -0500 -;;- Newsgroups: gnu.emacs.sources -;;- Subject: nuke-trailing-whitespace -;;- -;;- This is too trivial to make into a big todo with comments and copyright -;;- notices whose length exceed the size of the actual code, so consider it -;;- public domain. Its purpose is along similar lines to that of -;;- `require-final-newline', which is built in. I hope the names make it -;;- obvious. - -;; (add-hook 'write-file-hooks 'nuke-trailing-whitespace) -;;or at least -;; (add-hook 'ess-mode-hook -;; (lambda () -;; (add-hook 'local-write-file-hooks 'nuke-trailing-whitespace))) - -(defvar ess-nuke-trailing-whitespace-p nil;disabled by default 'ask - "*[Dis]activates (ess-nuke-trailing-whitespace). -Disabled if nil; if t, it works unconditionally, otherwise, -the user is queried. -Note that setting the default to t may not be a good idea when you edit -binary files!") - -;;; MM: Newer Emacsen now have delete-trailing-whitespace -;;; -- but no customization like nuke-trailing-whitespace-p .. -(defun ess-nuke-trailing-whitespace () - "Nuke all trailing whitespace in the buffer. -Whitespace in this case is just spaces or tabs. -This is a useful function to put on `write-file-hooks'. - -If the variable `ess-nuke-trailing-whitespace-p' is nil, this function is -disabled. If t, unreservedly strip trailing whitespace. -If not nil and not t, query for each instance." - (interactive) - (let ((bname (buffer-name))) - (cond ((or - (string= major-mode "rmail-mode") - (string= bname "RMAIL") - nil)); do nothing.. - - (t - (and (not buffer-read-only) - ess-nuke-trailing-whitespace-p - (save-match-data - (save-excursion - (save-restriction - (widen) - (goto-char (point-min)) - (cond ((eq ess-nuke-trailing-whitespace-p t) - (while (re-search-forward "[ \t]+$" (point-max) t) - (delete-region (match-beginning 0) - (match-end 0)))) - (t - (query-replace-regexp "[ \t]+$" ""))))))))) - ;; always return nil, in case this is on write-file-hooks. - nil)) - - -;;*;; Debugging tools - -(defun ess-write-to-dribble-buffer (text) - "Write TEXT to `ess-dribble-buffer'." - (when (or ess-verbose ess-write-to-dribble) - (with-current-buffer (get-buffer-create ess-dribble-buffer) - (goto-char (point-max)) - (insert-before-markers text)))) - -(defun ess-if-verbose-write (text) - "Write TEXT to `ess-dribble-buffer' only if `ess-verbose' is non-nil." - (when ess-verbose (ess-write-to-dribble-buffer text))) - - -(defun ess-kill-last-line () - (save-excursion - (goto-char (point-max)) - (forward-line -1) - (delete-region (point-at-eol) (point-max)))) - -(defvar ess-adjust-chunk-faces t - "Whether to adjust background color in code chunks.") - -(defvar-local ess-buffer-has-chunks nil - "Internal usage: indicates whether a buffer has chunks. -This is used to make face adjustment a no-op when a buffer does -not contain chunks.") - -(defvar ess-adjust-face-intensity 2 - "Default intensity for adjusting faces.") - -(defun ess-adjust-face-background (start end &optional intensity) - "Adjust face background between START and END. -On dark background, lighten. Oposite on light." - (let* ((intensity (or intensity ess-adjust-face-intensity)) - (color (color-lighten-name - (face-background 'default) - (if (eq (frame-parameter nil 'background-mode) 'light) - (- intensity) - intensity))) - (face (list (cons 'background-color color)))) - (with-silent-modifications - (ess-adjust-face-properties start end 'face face)))) - -;; Taken from font-lock.el. -(defun ess-adjust-face-properties (start end prop value) - "Tweaked `font-lock-prepend-text-property'. -Adds the `ess-face-adjusted' property so we only adjust face once." - (let ((val (if (listp value) value (list value))) next prev) - (while (/= start end) - (setq next (next-single-property-change start prop nil end) - prev (get-text-property start prop)) - ;; Canonicalize old forms of face property. - (and (memq prop '(face font-lock-face)) - (listp prev) - (or (keywordp (car prev)) - (memq (car prev) '(foreground-color background-color))) - (setq prev (list prev))) - (add-text-properties start next - (list prop (append val (if (listp prev) prev (list prev))) - 'ess-face-adjusted t)) - (setq start next)))) - -(defun ess-find-overlay (pos prop) - (cl-some (lambda (overlay) - (when (overlay-get overlay prop) - overlay)) - (overlays-at pos))) - -(defun ess-sleep () - "Put Emacs to sleep for `ess-sleep-for-shell' seconds (floats work)." - (sleep-for ess-sleep-for-shell)) - -(defun ess-setq-vars-local (alist &optional buf) - "Set language variables from ALIST, in buffer BUF, if desired." - (when buf (set-buffer buf)) - (mapc (lambda (pair) - (make-local-variable (car pair)) - (set (car pair) (eval (cdr pair))) - (when ess--make-local-vars-permanent - (put (car pair) 'permanent-local t))) ;; hack for Rnw - alist)) - -(defun ess-setq-vars-default (alist &optional buf) - "Set language variables from ALIST, in buffer BUF, if desired." - (when buf (set-buffer buf)) - (mapc (lambda (pair) - (set-default (car pair) (eval (cdr pair)))) - alist)) - -(defvar ess-error-regexp "^\\(Syntax error: .*\\) at line \\([0-9]*\\), file \\(.*\\)$" - "Regexp to search for errors.") - -(provide 'ess-utils) - -;;; ess-utils.el ends here diff --git a/elpa/ess-20181109.703/ess-vst-d.el b/elpa/ess-20181109.703/ess-vst-d.el deleted file mode 100644 index 5a84787f..00000000 --- a/elpa/ess-20181109.703/ess-vst-d.el +++ /dev/null @@ -1,81 +0,0 @@ -;;; ess-vst-d.el --- ViSta customization - -;; Copyright (C) 1997 A. J. Rossini -;; Copyright (C) 1997--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 26 Aug 1997 -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file extends the XLispStat configuration for ViSta. - -;;; Code: - -;;; Requires and Autoloads: - -(require 'ess-custom) -(require 'ess-lsp-l) -(require 'ess-utils) -(require 'ess-inf) - -(defvar VST-customize-alist - '((ess-customize-alist . VST-customize-alist ) - (ess-language . "XLS" ) - (ess-dialect . "ViSta" ) - (ess-object-name-db-file . "ess-xls-namedb.el" ) - (ess-help-sec-regex . " ") - (ess-help-sec-keys-alist . " ") - (inferior-ess-primary-prompt . "> ?" ) - (comint-use-prompt-regexp . t) - (inferior-ess-program . inferior-VST-program) - (inferior-ess-help-command . "(help '%s)\n" ) - (inferior-ess-objects-command . "(variables)\n" ) - (inferior-ess-exit-command . "(exit)\n" ) - (inferior-ess-start-file . nil) ;"~/.ess-VST") - ;;(inferior-ess-start-args . nil) - ) - "Variables to customize for XLS.") - - -(defun VST-mode (&optional proc-name) - "Major mode for editing ViSta source. NOT EVEN STARTED." - (interactive) - (setq ess-customize-alist VST-customize-alist) - (lisp-mode)) - - -(defun ViSta () - "Call 'ViSta', the extend XLispStat statistical system, from Forrest Young." - - (interactive) - (setq ess-customize-alist VST-customize-alist) - (ess-write-to-dribble-buffer - (format "(ViSta): ess-dialect=%s , buf=%s\n" - ess-dialect (current-buffer))) - (inferior-ess)) - - ; Provide package - -(provide 'ess-vst-d) - -;;; ess-vst-d.el ends here diff --git a/elpa/ess-20181109.703/ess-xls-d.el b/elpa/ess-20181109.703/ess-xls-d.el deleted file mode 100644 index 05e29308..00000000 --- a/elpa/ess-20181109.703/ess-xls-d.el +++ /dev/null @@ -1,105 +0,0 @@ -;;; ess-xls-d.el --- XLispStat customization for ESS. - -;; Copyright (C) 1997 A. J. Rossini -;; Copyright (C) 1998--2004 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: A.J. Rossini -;; Created: 12 Jun 1997 -;; Maintainer: ESS-core - -;; Keywords: statistics, languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file defines all the XLispStat customizations for ESS. See -;; ess-lsp-l.el for general Lisp modifications. - -;;; Code: - -;;; Requires and Autoloads: - -(require 'ess-custom) -(require 'ess-lsp-l) -(require 'ess-utils) -(require 'ess-mode) -(require 'ess-inf) -(require 'ess-trns) - -(defvar ess-help-XLS-sec-keys-alist - '((?a . "Args:")) - "Sparse online XLS help.") - -(defvar XLS-editing-alist Lisp-editing-alist) - -(defvar XLS-customize-alist - '((ess-local-customize-alist . 'XLS-customize-alist) - (ess-language . "XLS" ) - (ess-dialect . "XLS" ) - (ess-mode-editing-alist . XLS-editing-alist ) - (ess-object-name-db-file . "ess-xls-namedb.el" ) - (ess-help-sec-regex . "^[A-Z. ---]+:$") - (ess-help-sec-keys-alist . ess-help-XLS-sec-keys-alist) - (inferior-ess-primary-prompt . "> ?" ) - (inferior-ess-secondary-prompt . "^" ) - (comint-use-prompt-regexp . t) - (inferior-ess-program . inferior-XLS-program) - (inferior-ess-help-command . "(help '%s)\n" ) - (inferior-ess-objects-command . "(variables)\n" ) - (inferior-ess-exit-command . "(exit)\n" ) - ;;(inferior-ess-start-args . "")) - (inferior-ess-start-file . nil)) - "Variables to customize for XLS.") - -;;; The functions of interest (mode, inferior mode) - -;;;###autoload -(defun XLS-mode (&optional proc-name) - "Major mode for editing XLispStat source. NOT EVEN STARTED." - (interactive) - (setq ess-customize-alist XLS-customize-alist) - (ess-mode XLS-customize-alist proc-name) - (setq major-mode 'XLS-mode)) - -;;;###autoload -(add-to-list 'auto-mode-alist '("\\.lsp\\'" . XLS-mode)) - -(fset 'xlispstat-mode 'XLS-mode) - -(defun XLS () - "Call 'XLispStat', the Lisp statistical system from Luke Tierney." - - (interactive) - (setq ess-customize-alist XLS-customize-alist) - (ess-write-to-dribble-buffer - (format "(XLS): ess-dialect=%s , buf=%s\n" - ess-dialect (current-buffer))) - (inferior-ess)) - -(defun xls-transcript-mode () - "Does the right thing." - (interactive) - (ess-transcript-mode XLS-customize-alist)) - -(fset 'XLS-transcript-mode 'xls-transcript-mode) - - ; Provide package - -(provide 'ess-xls-d) - -;;; ess-xls-d.el ends here diff --git a/elpa/ess-20181109.703/ess.el b/elpa/ess-20181109.703/ess.el deleted file mode 100644 index b9eac350..00000000 --- a/elpa/ess-20181109.703/ess.el +++ /dev/null @@ -1,789 +0,0 @@ -;;; ess.el --- Emacs Speaks Statistics -;; -;; Author: David Smith -;; A.J. Rossini -;; Richard M. Heiberger -;; Kurt Hornik -;; Martin Maechler -;; Rodney A. Sparapani -;; Stephen Eglen -;; Sebastian P. Luque -;; Henning Redestig -;; Vitalie Spinu -;; Lionel Henry -;; J. Alexander Branham -;; -;; Maintainer: ESS Core Team -;; Copyright (C) 1997-2018 ESS Core Team -;; Created: 7 Jan 1994 -;; Version: 18.10.2 -;; Package-Requires: ((julia-mode "0.3")) -;; -;; 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 -;; https://www.r-project.org/Licenses/ -;; -;;; Commentary: -;; -;; Emacs Speaks Statistics (ESS) is a package designed to support editing of -;; scripts and interaction with various statistical analysis programs such as R, -;; S-Plus, SAS, Stata and OpenBUGS/JAGS. For more details please visit ESS home -;; page at https://ess.r-project.org/ -;; -;;; Code: - -(eval-when-compile - (require 'cl) - (require 'cl-lib)) -(require 'ess-custom) -(require 'ess-utils) -(require 'ess-generics) -(require 'ess-inf) - -;; FIXME: should this be optional? -(require 'ess-noweb-mode) - -;; Silence the byte compiler -(declare-function run-ess-r "ess-r-mode") -(declare-function S+ "ess-sp6w-d") -(declare-function SAS "ess-sas-d") - - ; ESS mode - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;;; In this section: -;;;; -;;;; * The major mode ess-mode -;;;; * Commands for ess-mode -;;;; * Code evaluation commands -;;;; * Indenting code and commands -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;;*;; Major mode definition - -(defvar ess-mode-map - (let ((map (make-sparse-keymap))) - - ;; By popular demand: - (define-key map (kbd "RET") 'ess-newline-and-indent) - (define-key map [remap yank] 'ess-yank) - - (define-key map "\C-c\C-r" 'ess-eval-region) - (define-key map "\C-c\M-r" 'ess-eval-region-and-go) - (define-key map "\C-c\C-b" 'ess-eval-buffer) - (define-key map "\C-c\M-b" 'ess-eval-buffer-and-go) - (define-key map (kbd "C-c C-") 'ess-eval-buffer-from-beg-to-here) - (define-key map (kbd "C-c C-") 'ess-eval-buffer-from-here-to-end) - (define-key map "\C-c\C-f" 'ess-eval-function) - (define-key map "\C-c\M-f" 'ess-eval-function-and-go) - (define-key map "\C-c\C-c" 'ess-eval-region-or-function-or-paragraph-and-step) - (define-key map "\C-c\C-p" 'ess-eval-paragraph-and-step) - (define-key map "\C-c\M-p" 'ess-eval-paragraph-and-go) - (define-key map "\C-\M-x" 'ess-eval-region-or-function-or-paragraph) - (define-key map "\C-c\C-n" 'ess-eval-line-visibly-and-step) - (define-key map "\C-c\C-j" 'ess-eval-line) - (define-key map [(control return)] 'ess-eval-region-or-line-visibly-and-step) - (define-key map "\C-c\M-j" 'ess-eval-line-and-go) - ;; FIXME: The next three can only work in S/R - mode - (define-key map "\C-\M-a" 'ess-goto-beginning-of-function-or-para) - (define-key map "\C-\M-e" 'ess-goto-end-of-function-or-para) - (define-key map "\C-xnd" 'ess-narrow-to-defun-or-para) - (define-key map "\C-xnf" 'ess-narrow-to-defun-or-para) - (define-key map "\C-c\C-y" 'ess-switch-to-ESS-deprecated) - (define-key map "\C-c\C-z" 'ess-switch-to-inferior-or-script-buffer) - (define-key map "\C-c\C-l" 'ess-load-file) - ;;; Make an alias because C-c C-l is taken up by comint in inferiors - (define-key map "\C-c\M-l" 'ess-load-file) - (define-key map "\C-c\C-v" 'ess-display-help-on-object) - (define-key map "\C-c\C-s" 'ess-switch-process) - (define-key map "\C-c\t" 'ess-complete-object-name-deprecated) - (define-key map "\M-?" 'ess-list-object-completions) - (define-key map "\C-c\C-k" 'ess-force-buffer-current) - (define-key map "\C-c`" 'ess-show-traceback) - (define-key map [(control ?c) ?~] 'ess-show-call-stack) - (define-key map "\C-\M-q" 'ess-indent-exp) - (define-key map "{" 'skeleton-pair-insert-maybe) - (define-key map "}" 'skeleton-pair-insert-maybe) - (define-key map "\C-\M-h" 'ess-mark-function-or-para) - (define-key map "\t" 'ess-indent-or-complete) - (define-key map "\C-c\C-q" 'ess-quit) - (define-key map "\M-\r" 'ess-use-this-dir) - (define-key map "," 'ess-smart-comma) - (define-key map "\C-c\C-d" 'ess-doc-map) - (define-key map "\C-c\C-e" 'ess-extra-map) - (define-key map "\C-c\C-t" 'ess-dev-map) - (with-no-warnings ; Obsolete key variable - (when ess-smart-S-assign-key - (define-key map ess-smart-S-assign-key 'ess-smart-S-assign))) - (define-key map (kbd "C-c C-=") 'ess-cycle-assign) - map) - "Keymap for `ess-mode'.") - -;; Redefine substituted commands -(substitute-key-definition 'indent-new-comment-line - 'ess-indent-new-comment-line - ess-mode-map global-map) - -(defvar ess-extra-map - (let (ess-extra-map) - (define-prefix-command 'ess-extra-map) - (define-key ess-extra-map "\C-d" 'ess-dump-object-into-edit-buffer) - (define-key ess-extra-map "d" 'ess-dump-object-into-edit-buffer) - (define-key ess-extra-map "\C-e" 'ess-execute) - (define-key ess-extra-map "e" 'ess-execute) - (define-key ess-extra-map "\C-i" 'ess-install-library) - (define-key ess-extra-map "i" 'ess-install-library) - (define-key ess-extra-map "\C-l" 'ess-load-library) - (define-key ess-extra-map "l" 'ess-load-library) - (define-key ess-extra-map "\C-r" 'inferior-ess-reload) - (define-key ess-extra-map "r" 'inferior-ess-reload) - (define-key ess-extra-map "\C-s" 'ess-set-style) - (define-key ess-extra-map "s" 'ess-set-style) - (define-key ess-extra-map "\C-t" 'ess-build-tags-for-directory) - (define-key ess-extra-map "t" 'ess-build-tags-for-directory) - (define-key ess-extra-map "\C-w" 'ess-execute-screen-options) - (define-key ess-extra-map "w" 'ess-execute-screen-options) - (define-key ess-extra-map "/" 'ess-set-working-directory) - ess-extra-map) - "ESS extra map.") - -(easy-menu-define - ess-mode-menu ess-mode-map - "Menu for use in `ess-mode'." - '("ESS" ; ESS-mode - ["What is this? (beta)" ess-mouse-me t] - ["Load file" ess-load-file t] - ["Eval region | func | para" ess-eval-region-or-function-or-paragraph t] - ["Eval region | func | para & step" ess-eval-region-or-function-or-paragraph-and-step t] - ["Eval region | line" ess-eval-region-or-line-visibly-and-step t] - ["Enter expression" ess-execute t] - ;; sub menus - "------" - ("Process" - ["Goto end of process buffer" ess-switch-to-end-of-ESS t] - ["Switch to process buffer" ess-switch-to-inferior-or-script-buffer t] - ["Switch Process" ess-switch-process t] - ;; ["Recreate R and S versions known to ESS" (ess-r-s-versions-creation+menu) t] - ("Start Process" - ["R" R :help "Start a new R process" :active t] - ["S" S :help "Start a new S process" :active t] - ["Sqpe" Sqpe ess-microsoft-p] ;; :help "Start a new Sqpe process" :active t - ["S+6-exisiting" S+6-existing ess-microsoft-p] ;; :help "Access an existing S process" :active t - ["SAS" SAS-menu t] ;; :help "Start a new SAS process" :active t - ;; The following menu item "Other" is a place-holder that will - ;; be replaced with the other versions of R and Sqpe that can be run. - ;; See `ess-r-versions-create' and ess-site.el - ("Other" - ["No other R or Sqpe versions" nil nil]) - ["About" - (ess-goto-info "Starting up") t] - ;; :help "Read about starting a new ESS process" :active t] - ) - ("Eval visibly " - :filter ess--generate-eval-visibly-submenu)) - "------" - ("ESS Eval" - ["Eval region | func | para" ess-eval-region-or-function-or-paragraph t] - ["Eval region | func | para & step" ess-eval-region-or-function-or-paragraph-and-step t] - ["Eval region | line & step" ess-eval-region-or-line-visibly-and-step t] - "-----" - ["Eval buffer" ess-eval-buffer t] - ["Eval buffer till here" ess-eval-buffer-from-beg-to-here t] - ["Eval buffer from here" ess-eval-buffer-from-here-to-end t] - ["Eval region" ess-eval-region t] - ["Eval function" ess-eval-function t] - ["Eval line" ess-eval-line t] - ["Eval line & step" ess-eval-line-and-step t] - ["Eval paragraph" ess-eval-paragraph t] - ["Eval paragraph & step" ess-eval-paragraph-and-step t] - ["Eval chunk" ess-eval-chunk ess-noweb-mode] - ["Eval chunk and step" ess-eval-chunk-and-step ess-noweb-mode] - ["Eval thread" ess-eval-thread ess-noweb-mode] - ["About" (ess-goto-info "Evaluating code") t] - ) - ("Eval and Go" - ["Eval buffer" ess-eval-buffer-and-go t] - ["Eval region" ess-eval-region-and-go t] - ["Eval function" ess-eval-function-and-go t] - ["Eval line" ess-eval-line-and-go t] - ["Eval paragraph" ess-eval-paragraph-and-go t] - ["Eval chunk" ess-eval-chunk-and-go ess-noweb-mode] - ["Eval thread" ess-eval-thread-and-go ess-noweb-mode] - ["About" (ess-goto-info "Evaluating code") t] - ) - ("Motion" - ["Beginning of function or para" ess-goto-beginning-of-function-or-para t] - ["End of function or para" ess-goto-end-of-function-or-para t] - "-----" - ["Backward list" backward-list t] - ["Forward list" forward-list t] - ["Next parenthesis" down-list t] - ["Enclosing parenthesis" backward-up-list t] - ["Backward sexp" backward-sexp t] - ["Forward sexp" forward-sexp t] - ["About" (Info-goto-node "(Emacs)Lists") t] - ) - ("ESS Edit" - ["Edit new object" ess-dump-object-into-edit-buffer t] - ["Complete Filename" comint-replace-by-expanded-filename t] - ["Complete File or Object" ess-indent-or-complete t] - ["Kill sexp" kill-sexp t] - ["Mark function" ess-mark-function-or-para t] - ["Indent expression" ess-indent-exp t] - ["Indent line" ess-indent-command t] - ["Toggle Auto-Fill Mode" auto-fill-mode t] - ["Undo" undo t] - ["About" (ess-goto-info "Edit buffer") t] - ) - "------" - ("start-dev" :visible nil) - ("end-dev" :visible nil) - "------" - ("Font Lock" - :active ess-font-lock-keywords - :filter ess--generate-font-lock-submenu) - "------" - ["Describe" describe-mode t] - ["About editing" (ess-goto-info "Editing") t] - ["Read ESS info" (ess-goto-info "") t] - ["Send bug report" ess-submit-bug-report t])) - -;;;###autoload -(defun ess-mode (&optional alist proc-name is-derived) - "Major mode for editing ESS source. -Optional arg ALIST describes how to customize the editing mode. -Optional arg PROC-NAME is name of associated inferior process. - -\\{ess-mode-map} - -Extra binding to note: 'ESC C-\\' indent-region. - -Entry to this mode runs the hooks in ess-mode-hook. - -You can send text to the inferior ESS process from other buffers containing -ESS source. - `ess-eval-region' sends the current region to the ESS process. - `ess-eval-buffer' sends the current buffer to the ESS process. - `ess-eval-function' sends the current function to the ESS process. - `ess-eval-line' sends the current line to the ESS process. - `ess-beginning-of-function' and `ess-end-of-function' move the point to - the beginning and end of the current ESS function. - `ess-switch-to-ESS' switches the current buffer to the ESS process buffer. - `ess-switch-to-end-of-ESS' switches the current buffer to the ESS process - buffer and puts point at the end of it. - - `ess-eval-region-and-go', `ess-eval-buffer-and-go', - `ess-eval-function-and-go', and `ess-eval-line-and-go' switch to the S - process buffer after sending their text. - - `ess-load-file' sources a file of commands to the ESS process. - -\\[ess-indent-command] indents for ESS code. -\\[backward-delete-char-untabify] converts tabs to spaces as it moves back. -Comments are indented in a similar way to Emacs-lisp mode: - `###' beginning of line - `##' the same level of indentation as the code - `#' the same column on the right, or to the right of such a - column if that is not possible.(default value 40). - \\[indent-for-comment] command automatically inserts such a - `#' in the right place, or aligns such a comment if it is - already inserted. -\\[ess-indent-exp] command indents each line of the syntactic unit following point. - -Variables controlling indentation style: - `ess-tab-always-indent' - Non-nil means TAB in ESS mode should always reindent the current line, - regardless of where in the line point is when the TAB command is used. - `ess-auto-newline' - Non-nil means automatically newline before and after braces inserted in S - code. - `ess-indent-offset' - Indentation of ESS statements within surrounding block. - The surrounding block's indentation is the indentation of the line on - which the open-brace appears. - `ess-offset-block' - Indentation of blocks opened with curly braces or anonymous parentheses. - `ess-offset-arguments' - Indentation of function arguments or bracket indices. - `ess-offset-arguments-newline' - Indentation of function arguments or bracket indices when the opening - delimiter is immediately followed by a newline. - `ess-offset-continued' - Indentation style for continued statements. - `ess-align-nested-calls' - Functions whose nested calls should be aligned. - `ess-align-arguments-in-calls' - Calls in which arguments should be aligned. - `ess-align-continuations-in-calls' - Whether ignore indentation after an operator in calls - `ess-align-blocks' - Blocks that should always be aligned vertically. - `ess-indent-from-lhs' - Whether function calls given as argument should be indented from the - parameter name. - `ess-indent-from-chain-start' - Whether to indent arguments from the first of several consecutive calls. - `ess-indent-with-fancy-comments' - Non-nil means distinguish between #, ##, and ### for indentation. - -Furthermore, \\[ess-set-style] command enables you to set up predefined ess-mode -indentation style. At present, predefined style are `BSD', `GNU', `K&R', `C++', -`CLB' (quoted from C language style)." - (setq alist (or alist - (buffer-local-value 'ess-local-customize-alist (current-buffer)) - (error "Customise alist is not specified, nor ess-local-customize-alist is set"))) - (unless is-derived - (kill-all-local-variables)) ;; NOTICE THIS! *** NOTICE THIS! *** NOTICE THIS! *** - (ess-setq-vars-local alist) - (ess-write-to-dribble-buffer - (format "(ess-mode-1): ess-language=%s, ess-dialect=%s buf=%s \n" - ess-language - ess-dialect - (current-buffer))) - ;; (ess-write-to-dribble-buffer - ;; (format "(ess-mode-1.2): ess-process=%s \n" - ;; (ess-local-process-name ess-local-process-name "none"))) - (ess-write-to-dribble-buffer - (format "(ess-mode-1.5): alist=%s \n" alist)) - (unless is-derived - (setq major-mode 'ess-mode) - (setq mode-name (concat "ESS[" (or ess-dialect ess-language) "]"))) - ;; The following line does the next 20 or so :-). - (ess-write-to-dribble-buffer - (format "(ess-mode-1.6): editing-alist=%s \n" - ess-mode-editing-alist)) - (ess-setq-vars-local ess-mode-editing-alist) - - (ess-set-style ess-style t) - (use-local-map ess-mode-map) - (when ess-mode-syntax-table - (set-syntax-table ess-mode-syntax-table)) - - ;; Keep out of the code. - (make-local-variable 'indent-tabs-mode) - (setq indent-tabs-mode nil) - - (put 'ess-local-process-name 'permanent-local t) ; protect from RCS - (setq mode-line-process - '(" [" - (:eval (ess--get-mode-line-indicator)) - ess--local-mode-line-process-indicator - "]")) - ;; completion - (add-hook 'comint-dynamic-complete-functions 'ess-complete-filename nil 'local) - (delq t comint-dynamic-complete-functions) - (set (make-local-variable 'comint-completion-addsuffix) - (cons "/" "")) - - (add-hook 'ess-idle-timer-functions 'ess-synchronize-dirs nil 'local) - (ess-load-extras) - (run-mode-hooks 'prog-mode-hook) - (run-mode-hooks 'ess-mode-hook) - (ess-write-to-dribble-buffer "\nFinished setting up ESS-mode.\n")) - -;; Set parent to `prog-mode' -(put 'ess-mode 'derived-mode-parent 'prog-mode) -(set-keymap-parent ess-mode-map prog-mode-map) - -(defun ess--get-mode-line-indicator () - "Get `ess--mode-line-process-indicator' from process buffer. -Internal function to be used for dynamic mode-line dysplay in -`ess-mode'." - (if ess-local-process-name - (let* ((proc (get-process ess-local-process-name)) - (buff (when proc (process-buffer proc)))) - (if (and proc (buffer-live-p buff)) - (with-current-buffer buff (mapcar 'eval ess--mode-line-process-indicator)) - "none")) - "none")) - - -;;*;; User commands in ess-mode - -;;;*;;; Miscellaneous - -(defun ess-install-library () - "Install library/package for current dialect. -Currently works only for R." - (interactive) - (cond - ((fboundp ess-install-library-function) - (funcall ess-install-library-function)) - (t - (error "Sorry, not available for %s" ess-dialect)))) - - -;;;*;;; Motion / manipulation commands - -(defun ess-goto-beginning-of-function-or-para () - "If inside a function go to the beginning of it. -Otherwise go to the beginning of paragraph." - (interactive) - (or (ess-beginning-of-function 'no-error) - (backward-paragraph)) - (point)) - -(defun ess-goto-end-of-function-or-para () - "If inside a function go to end of it. -Otherwise go to the end of paragraph." - (interactive) - (or (ess-end-of-function nil 'no-error) - (forward-paragraph)) - (point)) - -(defun ess-mark-function-or-para () - "Put mark at end of ESS function, point at beginning." - (interactive) - (ess-goto-beginning-of-function-or-para) - (push-mark (point)) - (ess-goto-end-of-function-or-para) - (exchange-point-and-mark)) - -(define-obsolete-function-alias 'ess-mark-function 'ess-mark-function-or-para "15.09") - -(defun ess-narrow-to-defun-or-para () - "Make text outside current function invisible. -If text is already narrowed, this is removed before narrowing to the -current function." - (interactive) - ;; if point is not in a function, ess-end-of-function catches the error. - (save-excursion - (widen) - (let* ((beg (ess-goto-beginning-of-function-or-para)) - (end (ess-goto-end-of-function-or-para))) - (narrow-to-region beg end)))) - -(define-obsolete-function-alias 'ess-narrow-to-defun 'ess-narrow-to-defun-or-para "15.09") - -(defun ess-newline-and-indent () - "Like `newline-and-indent' but accounts for roxygen comments." - (interactive) - (cond ((and (fboundp 'ess-roxy-newline-and-indent) - (string= ess-dialect "R")) - (ess-roxy-newline-and-indent)) - (t - (newline-and-indent)))) - -(defun ess-indent-new-comment-line () - "Like `indent-new-comment-line' but accounts for roxygen comments." - (interactive) - (cond ((and (fboundp 'ess-roxy-indent-new-comment-line) - (string= ess-dialect "R")) - (ess-roxy-indent-new-comment-line)) - (t - (indent-new-comment-line)))) - - -;;;*;;; Formatting / indentation - -(defun ess-set-style (&optional style quiet) - "Set up the `ess-mode' style variables from the `ess-style' variable. -If STYLE argument is given, use that instead. It makes the ESS -indentation style variables buffer local. When non-nil, QUIET -suppresses messaging." - (interactive) - (let ((ess-styles (mapcar 'symbol-name (mapcar 'car ess-style-alist)))) - (unless style - (setq style - (intern (ess-completing-read "Set ESS mode indentation style" - ess-styles nil t nil nil ess-default-style)))) - (setq style (or style ess-style)) - (make-local-variable 'ess-style) - (if (memq (symbol-name style) ess-styles) - (setq ess-style style) - (error (format "Bad ESS style: %s" style))) - (if (not quiet) - (message "ESS-style: %s" ess-style)) - ;; finally, set the indentation style variables making each one local - (mapc (lambda (ess-style-pair) - (make-local-variable (car ess-style-pair)) - (set (car ess-style-pair) - (cdr ess-style-pair))) - (cdr (assq ess-style ess-style-alist))) - ess-style)) - -;; FIXME: Move into ess-indent-or-complete, indentation functions are overly -;; scattered around -(defun ess-indent-command (&optional whole-exp) - "Indent current line as ESS code, or in some cases insert a tab character. -If `ess-tab-always-indent' is non-nil (the default), always indent -current line. Otherwise, indent the current line only if point is at -the left margin or in the line's indentation; otherwise insert a tab. -A numeric argument, regardless of its value, means indent rigidly all -the lines of the expression starting after point so that this line -becomes properly indented. The relative indentation among the lines -of the expression are preserved." - (interactive "P") - (if whole-exp - ;; If arg, always indent this line as S - ;; and shift remaining lines of expression the same amount. - (let ((shift-amt (ess-indent-line)) - beg end) - (save-excursion - (if ess-tab-always-indent - (beginning-of-line)) - (setq beg (point)) - (backward-up-list 1) - (forward-list 1) - (setq end (point)) - (goto-char beg) - (forward-line 1) - (setq beg (point))) - (if (> end beg) - (indent-code-rigidly beg end shift-amt))) - (if (and (not ess-tab-always-indent) - (save-excursion - (skip-chars-backward " \t") - (not (bolp)))) - (insert-tab) - ;; call ess-indent-line - (funcall indent-line-function)))) - -(defun ess-indent-or-complete () - "When region is selected indent the region. -Otherwise, if `ess-tab-complete-in-script' is non-nil, try to -indent, if code is already indented, complete instead. - -The default of `ess-tab-complete-in-script' is nil. Also see -`ess-first-tab-never-complete'." - (interactive) - (if (use-region-p) - (indent-region (region-beginning) (region-end)) - (let ((shift (ess-indent-command))) - (when (and ess-tab-complete-in-script - (numberp shift) ;; can be nil if ess-tab-always-indent is nil - (equal shift 0) - (or (eq last-command 'ess-indent-or-complete) - (null ess-first-tab-never-complete) - (and (eq ess-first-tab-never-complete 'unless-eol) - (looking-at "\\s-*$")) - (and (eq ess-first-tab-never-complete 'symbol) - (not (looking-at "\\w\\|\\s_"))) - (and (eq ess-first-tab-never-complete 'symbol-or-paren) - (not (looking-at "\\w\\|\\s_\\|\\s)"))) - (and (eq ess-first-tab-never-complete 'symbol-or-paren-or-punct) - (not (looking-at "\\w\\|\\s_\\|\\s)\\|\\s."))))) - (completion-at-point))))) - -(defun ess-indent-exp () - "Indent each line of the ESS grouping following point." - (interactive) - (cond ((and (fboundp 'ess-r-indent-exp) - (string= ess-dialect "R")) - (ess-r-indent-exp)) - (t - (save-excursion - (let ((start (point)) - (end (ignore-errors (forward-sexp 1) (point)))) - (when end - (indent-region start end))))))) - -(defun ess-indent-line () - "Indent current line as ESS code. -Return the amount the indentation changed by." - ;; fixme: make this work with standard indent-line-function - (cond ((fboundp ess-indent-line-function) - (funcall ess-indent-line-function)) - ;; else S and R default behavior - ((fboundp 'ess-r-indent-line) - (ess-r-indent-line)) - ;; fallback on Emacs - (t (funcall indent-line-function)))) - - -;;*;; Creating and manipulating dump buffers -;;;###autoload -(defun ess-dump-object-into-edit-buffer (object) - "Edit an ESS OBJECT in its own buffer. -Without a prefix argument, this simply finds the file pointed to by -`ess-source-directory'. If this file does not exist, or if a -prefix argument is given, a dump() command is sent to the ESS process to -generate the source buffer." - (interactive - (progn - (ess-force-buffer-current "Process to dump from: ") - (ess-read-object-name "Object to edit"))) - - (let* ((dirname (file-name-as-directory - (if (stringp ess-source-directory) - ess-source-directory - (with-current-buffer (process-buffer (ess-get-process - ess-local-process-name)) - (ess-setq-vars-local ess-customize-alist) - (apply ess-source-directory nil))))) - (filename (concat dirname (format ess-dump-filename-template object))) - (old-buff (get-file-buffer filename))) - - ;; If the directory doesn't exist, offer to create it - (if (file-exists-p (directory-file-name dirname)) nil - (if (y-or-n-p ; Approved - (format "Directory %s does not exist. Create it? " dirname)) - (make-directory (directory-file-name dirname)) - (error "Directory %s does not exist" dirname))) - - ;; Three options: - ;; (1) Pop to an existing buffer containing the file in question - ;; (2) Find an existing file - ;; (3) Create a new file by issuing a dump() command to S - ;; Force option (3) if there is a prefix arg - - (if current-prefix-arg - (ess-dump-object object filename) - (if old-buff - (progn - (pop-to-buffer old-buff) - (message "Popped to edit buffer.")) - ;; No current buffer containing desired file - (if (file-exists-p filename) - (progn - (ess-find-dump-file-other-window filename) - (message "Read %s" filename)) - ;; No buffer and no file - (ess-dump-object object filename)))))) - -(ess-defgeneric ess-dump-object (object filename) - "Dump the ESS object OBJECT into file FILENAME." - (let ((complete-dump-command (format inferior-ess-dump-command - object filename))) - (if (file-writable-p filename) nil - (error "Can't dump %s as %f is not writeable" object filename)) - - (:override - ;; Make sure we start fresh - (when (get-file-buffer filename) - (kill-buffer (get-file-buffer filename))) - - (ess-command complete-dump-command) - (message "Dumped in %s" filename) - - (ess-find-dump-file-other-window filename) - - ;; PD, 1Apr97 - ;;This ensures that the object gets indented according to ess-mode, - ;;not as the R/S deparser does it. At the same time, it gets rid - ;;of the mess generated by sending TAB characters to the readline - ;;functions in R when you eval-buffer-*. - (indent-region (point-min-marker) (point-max-marker) nil) - (set-buffer-modified-p nil) ; no need to safe just because of indenting - - ;; Don't make backups for temporary files; it only causes clutter. - ;; The ESS object itself is a kind of backup, anyway. - (unless ess-keep-dump-files - (make-local-variable 'make-backup-files) - (setq make-backup-files nil)) - - ;; Don't get confirmation to delete dumped files when loading - (when (eq ess-keep-dump-files 'check) - (setq ess-keep-dump-files nil)) - - ;; Delete the file if necessary - (when ess-delete-dump-files - (delete-file (buffer-file-name)))))) - -(defun ess-find-dump-file-other-window (filename) - "Find ESS source file FILENAME in another window." - - (if (file-exists-p filename) nil - (ess-write-to-dribble-buffer - (format "%s does not exist. Bad dump, starting fresh." filename))) - - ;; Generate a buffer with the dumped data - (find-file-other-window filename) - (ess-mode ess-customize-alist) - - (auto-save-mode 1) ; Auto save in this buffer - (setq ess-local-process-name ess-current-process-name) - - (if ess-function-template - (progn - (goto-char (point-max)) - (if (re-search-backward ess-dumped-missing-re nil t) - (progn - (replace-match ess-function-template t t) - (set-buffer-modified-p nil) ; Don't offer to save if killed now - (goto-char (point-min)) - (condition-case nil - ;; This may fail if there are no opens - (down-list 1) - (error nil))))))) - -(defun ess-define-runner (name dialect &optional path) - "Create a function NAME. -This function starts the inferior process with the specified -version. DIALECT can be \"R,\" \"S,\", \"SAS.\" If given, PATH -should be the absolute path to the program. It defaults to NAME." - (lexical-let ((name name) - (dialect dialect) - (path path)) - (fset (intern name) - (lambda (&optional start-args) - "Start this process version in an inferior ESS buffer. -Function defined using `ess-define-runner'." - (interactive "P") - (cond ((string= dialect "R") - (let ((inferior-ess-r-program (or path name))) - (require 'ess-r-mode) - (run-ess-r start-args))) - ((string= dialect "S") - (let ((inferior-S+-program (or path name))) - (require 'ess-sp6-d) - (S+))) - ((string= dialect "SAS") - (let ((inferior-SAS-program (or path name))) - (require 'ess-sas-d) - (SAS)))))))) -;;;###autoload -(defun ess-version () - "Return a string with ESS version information." - (interactive) - (message (format "ess-version: %s (loaded from %s)" - (ess-version-string) - (file-name-directory ess-lisp-directory)))) - -(defun ess-version-string () - (let* ((ess-dir (file-name-directory ess-lisp-directory)) ; if() the top-level 'ess/' - (is-release (file-exists-p (concat ess-etc-directory ".IS.RELEASE"))) - (rel-string (if is-release "Released ")) - (git-ref-fn (concat ess-dir ".git/HEAD")) - (git-ref (when (file-exists-p git-ref-fn) - (with-current-buffer (find-file-noselect git-ref-fn) - (goto-char (point-min)) - (when (re-search-forward "ref: \\(.*\\)\n" nil t) - (match-string 1))))) - (git-fname (if git-ref - (concat ess-dir ".git/" git-ref) - ;; For release - (concat ess-etc-directory "git-ref"))) - (git-rev (when (file-exists-p git-fname) - (with-current-buffer (find-file-noselect git-fname) - (goto-char (point-min)) - (concat "git: "(buffer-substring 1 (point-at-eol)))))) - (elpa-fname (concat ess-dir "ess-pkg.el")) - (elpa-rev (when (file-exists-p elpa-fname) - ;; Get it from ELPA dir name, (probably won't work if installed manually) - (concat "elpa: " - (replace-regexp-in-string "ess-" "" - (file-name-nondirectory - (substring ess-dir 1 -1))))))) - ;; Set the "global" ess-revision: - (setq ess-revision (format "%s%s%s" - (or rel-string "") - (or git-rev "") - (or elpa-rev ""))) - (when (string= ess-revision "") - (setq ess-revision "")) - (concat ess-version " [" ess-revision "]"))) - - -(provide 'ess) - -;;; ess.el ends here diff --git a/elpa/ess-20181109.703/ess.info b/elpa/ess-20181109.703/ess.info deleted file mode 100644 index 199e0af9..00000000 --- a/elpa/ess-20181109.703/ess.info +++ /dev/null @@ -1,4904 +0,0 @@ -This is ess.info, produced by makeinfo version 6.5 from ess.texi. - -INFO-DIR-SECTION Emacs -START-INFO-DIR-ENTRY -* ESS: (ess). Emacs Speaks Statistics (R/S/S+, SAS, BUGS/JAGS and Stata). -END-INFO-DIR-ENTRY - -ESS -- Emacs Speaks Statistics -****************************** - - -File: ess.info, Node: Top, Next: Introduction, Up: (dir) - -ESS: Emacs Speaks Statistics -**************************** - -ESS version 18.10.2 - - by A.J. Rossini, - R.M. Heiberger, - K. Hornik, - M. Maechler, - R.A. Sparapani, - S.J. Eglen, - S.P. Luque, - H. Redestig, - V. Spinu, - L. Henry, - and J.A. Branham. - - Emacs Speaks Statistics (ESS) provides an intelligent, consistent - interface between the user and the software. ESS interfaces with - R, SAS, S-PLUS, BUGS/JAGS and other statistical analysis packages - on GNU/Linux, other Unix-like systems such as macOS, and Microsoft - Windows. ESS is itself a package within the Emacs text editor and - uses Emacs features to streamline the creation and use of - statistical software. ESS knows the syntax and grammar of - statistical analysis packages and provides consistent display and - editing features based on that knowledge. ESS assists in - interactive and batch execution of statements written in these - statistical analysis languages. - - The source and documentation of ESS 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. - - ESS 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 in -the file COPYING in the same directory as this file for more details. - -* Menu: - -* Introduction:: Overview of features provided by this package -* Installation:: Installing ESS on your system -* Interactive ESS:: Interacting with statistical programs -* Entering commands:: Interacting with the ESS process -* Evaluating code:: Sending code to the ESS process -* Transcript Mode:: Manipulating saved transcript files -* Editing objects:: How to create/edit objects and functions -* Help:: Reading help files -* Completion:: Various completion mechanisms -* Developing with ESS:: Tools for package development and debugging -* Extras:: Other ESS features for the S family -* ESS for R:: Overview of ESS features for the S family -* ESS for SAS:: -* ESS for BUGS:: -* ESS for JAGS:: -* Mailing lists/bug reports:: How to get assistance with ESS -* Customization:: Customizing ESS -* Indices:: - - -File: ess.info, Node: Introduction, Next: Installation, Prev: Top, Up: Top - -1 Introduction to ESS -********************* - -ESS provides a generic interface, through Emacs, to statistical -packages. It currently supports R (and the rest of the S family), SAS, -BUGS/JAGS, Stata, and Julia with the level of support roughly in that -order. - - Throughout this manual, _Emacs_ refers to _GNU Emacs_ by the Free -Software Foundation. Although previous versions of ESS supported other -Emacsen, current versions only support GNU Emacs. - - There are two main ways of interacting with ESS: through "regular" -modes or "inferior" modes. Regular modes act like normal Emacs major -modes. ESS major mods are displayed in the mode-line in the format -'ESS[dialect]', where 'dialect' can take values such as 'R', 'SAS', or -'S'. - - ESS also provides easy access to an "inferior process," which is an -Emacs buffer associated with a running process. This can be an R -session, for example. These inferior processes are referred to as -inferior ESS ('iESS'), and are shown in the modeline by 'iESS -[dialect]'. - - Currently, the documentation contains many references to ''R'' where -actually any supported (statistics) language is meant, i.e., 'R' could -also mean 'S' or 'SAS.' - - For exclusively interactive users of R, ESS provides a number of -features to make life easier. There is an easy to use command history -mechanism, including a quick prefix-search history. To reduce typing, -command-line completion is provided for all R objects and "hot keys" are -provided for common R function calls. Help files are easily accessible, -and a paging mechanism is provided to view them. Finally, an incidental -(but very useful) side-effect of ESS is that a transcript of your -session is kept for later saving or editing. - - No special knowledge of Emacs is necessary when using R interactively -under ESS. - - For those that use R in the typical edit-test-revise cycle when -writing R functions, ESS provides for editing of R functions in Emacs -buffers. Unlike the typical use of R where the editor is restarted -every time an object is edited, ESS uses the current Emacs session for -editing. In practical terms, this means that you can edit more than one -function at once, and that the ESS process is still available for use -while editing. Error checking is performed on functions loaded back -into R, and a mechanism to jump directly to the error is provided. ESS -also provides for maintaining text versions of your R functions in -specified source directories. - -* Menu: - -* Features:: Why should I use ESS? -* New features:: -* Credits:: Authors of and contributors to ESS -* Manual:: How to read this manual - - -File: ess.info, Node: Features, Next: New features, Up: Introduction - -1.1 Why should I use ESS? -========================= - -Statistical packages are powerful software systems for manipulating and -analyzing data, but their user interfaces often leave something -something to be desired: they offer weak editor functionality and they -differ among themselves so markedly that you have to re-learn how to do -those things for each package. ESS is a package which is designed to -make editing and interacting with statistical packages more uniform, -user-friendly and give you the power of Emacs as well. - - Additionally, both Emacs and ESS (and R) are free software designed -to give users full control over their computer. For more on what this -means, visit . - -* Menu: - -* Current Features:: - - -File: ess.info, Node: Current Features, Up: Features - -1.1.1 Features Overview ------------------------ - - * Languages Supported: - * S family (R, S, and S+ AKA S-PLUS) - * SAS - * BUGS/JAGS - * Stata - * Julia - * Editing source code (S family, SAS, BUGS/JAGS, Stata, Julia) - * Syntactic indentation and highlighting of source code - * Partial evaluation of code - * Loading and error-checking of code - * Source code revision maintenance - * Batch execution (SAS, BUGS/JAGS) - * Use of imenu to provide links to appropriate functions - * Interacting with the process (S family, SAS, Stata, Julia) - * Command-line editing - * Searchable Command history - * Command-line completion of S family object names and file - names - * Quick access to object lists and search lists - * Transcript recording - * Interface to the help system - * Transcript manipulation (S family, Stata) - * Recording and saving transcript files - * Manipulating and editing saved transcripts - * Re-evaluating commands from transcript files - * Interaction with Help Pages and other Documentation (R) - * Fast Navigation - * Sending Examples to running ESS process. - * Fast Transfer to Further Help Pages - * Help File Editing (R) - * Syntactic indentation and highlighting of source code. - * Sending Examples to running ESS process. - * Previewing - - For source code buffers, ESS offers several features: - - * Support for multiple indentation styles R code *Note Indenting::. - - * Facilities for loading and error-checking source files, including a - keystroke to jump straight to the position of an error in a source - file. *Note Error Checking::. - - * Source code revision maintenance, which allows you to keep historic - versions of R source files. *Note Source Files::. - - * Facilities for evaluating R code such as portions of source files, - or line-by-line evaluation of files (useful for debugging). *Note - Evaluating code::. - - ESS also provides features that make it easier to interact with -inferior ESS (iESS) process (a connection between your buffer and the -statistical package which is waiting for you to input commands). These -include: - - * Command-line editing for fixing mistakes in commands before they - are entered. *Note Command-line editing::. - - * Searchable command history for recalling previously-submitted - commands. *Note Command History::. - - * Command-line completion of both object and file names for quick - entry. *Note Completion::. - - * Hot-keys for quick entry of commonly-used commands in 'R' such as - 'objects()', and 'search()'. *Note Hot keys::. - - * Transcript recording for a complete record of all the actions in an - R session. *Note Transcript::. - - * Interface to the help system, with a specialized mode for viewing R - help files. *Note Help::. - - * Object editing. ESS allows you to edit more than one function - simultaneously in dedicated Emacs buffers. The ESS process may - continue to be used while functions are being edited. *Note Edit - buffer::. - - Finally, ESS provides features for re-submitting commands from saved -transcript files, including: - - * Evaluation of previously entered commands, stripping away - unnecessary prompts. *Note Transcript resubmit::. - - -File: ess.info, Node: New features, Next: Credits, Prev: Features, Up: Introduction - -1.2 New features in ESS -======================= - -Bug Fixes in 18.10.2: - * ESS[R] Fix namespace evaluation in non-installed packages. - Evaluation is directed into GlobalEnv as originally intended. - * 'Makefile' fixes, notably for 'make install' and including full - docs in the tarballs. - - Bug Fixes in 18.10-1: - * New functions 'ess-eval-line-visibly-and-step' ('C-c C-n' and - 'ess-eval-region-or-line-visibly-and-step' ('C-RET') which behave - as the old versions of 'ess-eval-line-and-step' and - 'ess-eval-region-or-line-and-step'. - - Changes and New Features in 18.10: - - * This is the last release to support Emacs older than 25.1. Going - forward, only GNU Emacs 25.1 and newer will be supported. Soon - after this release, support for older Emacs versions will be - dropped from the git master branch. Note that MELPA uses the git - master branch to produce ESS snapshots, so if you are using Emacs < - 25.1 from MELPA and are unable to upgrade, you should switch to - MELPA-stable. - - * ESS now displays the language dialect in the mode-line. So, for - example, R buffers will now show ESS[R] rather than ESS[S]. - - * The ESS manual has been updated and revised. - - * The ESS initialization process has been further streamlined. If - you update the autoloads (which installation from 'package-install' - does), you should not need to '(require 'ess-site)' at all, as - autoloads should automatically load ESS when it is needed (e.g. - the first time an R buffer is opened). In order to defer loading - your ESS config, you may want to do something like - '(with-require-after-load "ess" )' in your Emacs - init file. Users of the popular 'use-package' Emacs package can - now do '(use-package ess :defer t)' to take advantage of this - behavior. *Note (ess)Activating and Loading ESS:: for more - information on this feature. - - * ESS now respects Emacs conventions for keybindings. This means - that The 'C-c [letter]' bindings have been removed. This affects - 'C-c h', which was bound to 'ess-eval-line-and-step-invisibly' in - 'sas-mode-local-map'; 'C-c f', which was bound to - 'ess-insert-function-outline' in 'ess-add-MM-keys'; and 'C-c h', - which was bound to 'ess-handy-commands' in 'Rd-mode-map', - 'ess-noweb-minor-mode-map', and 'ess-help-mode-map' - - * Functions 'ess-eval-line-and-step' and - 'ess-eval-region-or-line-and-step' now behave consistently with - other evaluation function inside a package. - - * ESS[R]: 'ess-r-package-use-dir' now works with any mode. This sets - the working directory to the root of the current package including - for example C or C++ files within '/src'). - - * ESS[R]: Long + + prompts in the inferior no longer offset output. - - * ESS[R]: New option 'strip' for 'inferior-ess-replace-long+'. This - strips the entire + + sequence. - - * ESS modes now inherit from 'prog-mode'. In the next release, ESS - modes will use 'define-derived-mode' so that each mode will have - (for example) its own hooks and keymaps. - - * ESS[R]: Supports flymake in R buffers for Emacs 26 and newer. - Users need to install the 'lintr' package to use it. Customizable - options include 'ess-use-flymake', 'ess-r-flymake-linters', and - 'ess-r-flymake-lintr-cache'. - - * ESS[R]: Gained support for xref in Emacs 25+. *Note (emacs)Xref:: - - * ESS[R]: The startup screen is cleaner. It also displays the - startup directory with an explicit 'setwd()'. - - * ESS[R]: Changing the working directory is now always reflected in - the process buffer. - - * ESS[R]: 'Makevars' files open with 'makefile-mode'. - - * New variable 'ess-write-to-dribble'. This allows users to disable - the dribble ('*ESS*') buffer if they wish. - - * All of the '*-program-name' variables have been renamed to - '*-program'. Users who previously customized e.g. - 'inferior-ess-R-program-name' will need to update their - customization to 'inferior-ess-R-program'. These variables are - treated as risky variables. - - * 'ess-smart-S-assign' was renamed to 'ess-insert-assign'. It - provides similar functionality but for any keybinding, not just - '_'. For instance if you bind it to ';', repeated invokations - cycle through between assignment and inserting ';'. - - * 'C-c C-=' is now bound to 'ess-cycle-assign' by default. See the - documentation for details. New user customization option - 'ess-assign-list' controls which assignment operators are cycled. - - * ESS[R] In remote sessions, the ESSR package is now fetched from - GitHub. - - * Commands that send the region to the inferior process now deal with - rectangular regions. See the documentation of 'ess-eval-region' - for details. This only works on Emacs 25.1 and newer. - - * ESS[R]: Improvements to interacting with iESS in non-R files. - Interaction with inferior process in non-R files within packages - (for instance C or C++ files) has been improved. This is a work in - progress. - - * ESS[R]: Changing the working directory is now always reflected in - the process buffer. - - * ESS[JAGS]: *.jog and *.jmd files no longer automatically open in - JAGS mode. - - Many improvements to fontification: - - * Improved customization for faces. ESS now provides custom faces - for (nearly) all faces used and places face customization options - into their own group. Users can customize these options using 'M-x - customize-group RET ess-faces'. - - * Many new keywords were added to 'ess-R-keywords' and - 'ess-R-modifiers'. See the documentation for details. - - * ESS[R]: 'in' is now only fontified when inside a 'for' construct. - This avoids spurious fontification, especially in the output buffer - where 'in' is a commond English word. - - * ESS: Font-lock keywords are now generated lazily. That means you - can now add or remove keywords from variables like 'ess-R-keywords' - in your Emacs configuration file after loading ESS (i.e. in the - ':config' section for 'use-package' users). - - * ESS[R]: Fontification of roxygen '@param' keywords now supports - comma-separated parameters. - - * ESS[R]: Certain keywords are only fontified if followed by a - parenthesis. Function-like keywords such as 'if ()' or 'stop()' - are no longer fontified as keyword if not followed by an opening - parenthesis. The same holds for search path modifiers like - 'library()' or 'require()'. - - * ESS[R]: Fixed fontification toggling. Especially certain syntactic - elements such as '%op%' operators and backquoted function - definitions. - - * ESS[R]: 'ess-font-lock-toggle-keyword' can be called interactively. - This command asks with completion for a font-lock group to toggle. - This functionality is equivalent to the font-lock menu. - - Notable bug fixes: - - * 'prettify-symbols-mode' no longer breaks indentation. This is - accomplished by having the pretty symbols occupy the same number of - characters as their non-pretty cousins. You may customize the new - variable 'ess-r-prettify-symbols' to control this behavior. - - * ESS: Inferior process buffers are now always displayed on startup. - Additionally, they don't hang Emacs on failures. - - Obsolete libraries, functions, and variables: - - * The 'ess-r-args.el' library has been obsoleted and will be removed - in the next release. Use 'eldoc-mode' instead, which is on by - default. - - * Functions and options dealing with the smart assign key are - obsolete. The following functions have been made obsolete and will - be removed in the next release of ESS: 'ess-smart-S-assign', - 'ess-toggle-S-assign', 'ess-toggle-S-assign-key', - 'ess-disable-smart-S-assign'. - - The variable 'ess-smart-S-assign-key' is now deprecated and will be - removed in the next release. If you would like to continue using - '_' for insterting assign in future releases, please bind - 'ess-insert-assign' in 'ess-mode-map' the normal way. - - * ESS[S]: Variable 'ess-s-versions-list' is obsolete and ignored. - Use 'ess-s-versions' instead. You may pass arguments by starting - the inferior process with the universal argument. - - Changes and New Features in 17.11: - - * The ESS initialisation process has been streamlined. You can now - load the R and Stata modes independently from the rest of ESS. Just - put '(require 'ess-r-mode)' or '(require 'ess-stata-mode)' in your - init file. This is for experienced Emacs users as this requires - setting up autoloads for '.R' files manually. We will keep - maintaining 'ess-site' for easy loading of all ESS features. - - * Reloading and quitting the process is now more robust. If no - process is attached, ESS now switches automatically to one - (prompting you for selection if there are several running). - Reloading and quitting will now work during a debug session or when - R is prompting for input (for instance after a crash). Finally, - the window configuration is saved and restored after reloading to - prevent the buffer of the new process from capturing the cursor. - - * ESS[R]: New command 'ess-r-package-use-dir'. It sets the working - directory of the current process to the current package directory. - - * ESS[R] Lookup for references in inferior buffers has been improved. - New variable 'ess-r-package-source-roots' contains package - sub-directories which are searched recursively during the file - lookup point. Directories in 'ess-tracebug-search-path' are now - also searched recursively. - - * ESS[R] Namespaced evaluation is now automatically enabled only in - the 'R/' directory. This way ESS will not attempt to update - function definitions from a package if you are working from e.g. a - test file. - - Changes and New Features in 16.10: - - * ESS[R]: Syntax highlighting is now more consistent. Backquoted - names are not fontified as strings (since they really are - identifiers). Furthermore they are now correctly recognised when - they are function definitions or function calls. - * ESS[R]: Backquoted names and '%op%' operators are recognised as - sexp. This is useful for code navigation, e.g. with 'C-M-f' and - 'C-M-b'. - * ESS[R]: Integration of outline mode with roxygen examples fields. - You can use outline mode's code folding commands to fold the - examples field. This is especially nice to use with well - documented packages with long examples set. Set - 'ess-roxy-fold-examples' to non-nil to automatically fold the - examples field when you open a buffer. - * ESS[R]: New experimental feature: syntax highlighting in roxygen - examples fields. This is turned off by default. Set - 'ess-roxy-fontify-examples' to non-nil to try it out. - * ESS[R]: New package development command 'ess-r-devtools-ask' bound - to 'C-c C-w C-a'. It asks with completion for any devtools command - that takes 'pkg' as argument. - * ESS[R]: New command 'C-c C-e C-r' to reload the inferior process. - Currently only implemented for R. The R method runs - 'inferior-ess-r-reload-hook' on reloading. - * ESS[R]: 'ess-r-package-mode' is now activated in non-file buffers - as well. - - Bug fixes in 16.10: - * ESS[R]: Fix broken (un)flagging for debugging inside packages - * ESS[R]: Fixes (and improvements) in Package development - * ESS[R]: Completion no longer produces '...=' inside 'list( )'. - * ESS[R]: Better debugging and tracing in packages. - * ESS[R]: Better detection of symbols at point. - * ESS[R]: No more spurious warnings on deletion of temporary files. - * ESS[julia]: help and completion work (better) - * ESS[julia]: available via 'ess-remote' - - Changes and New Features in 16.04: - - * ESS[R]: 'developer' functionality has been refactored. The new - user interface consists of a single command - 'ess-r-set-evaluation-env' bound by default to 'C-c C-t C-s'. Once - an evaluation environment has been set with, all subsequent ESS - evaluation will source the code into that environment. By default, - for file within R packages the evaluation environment is set to the - package environment. Set 'ess-r-package-auto-set-evaluation-env' - to 'nil' to disable this. - * ESS[R]: New 'ess-r-package-mode' This development mode provides - features to make package development easier. Currently, most of - the commands are based on the 'devtools' packages and are - accessible with 'C-c C-w' prefix. See the documentation of - 'ess-r-package-mode' function for all available commands. With - 'C-u' prefix each command asks for extra arguments to the - underlying devtools function. This mode is automatically enabled - in all files within R packages and is indicated with '[pkg:NAME]' - in the mode-line. - * ESS[R]: Help lookup has been improved. It is now possible to get - help for namespaced objects such as pkg::foobar. Furthermore, ESS - recognizes more reliably when you change 'options('html_type')'. - * ESS[R]: New specialized breakpoints for debugging magrittr pipes - * ESS: ESS now implements a simple message passing interface to - communicate between ESS and inferior process. - - Bug fixes in 16.04: - * ESS[R]: Roxygen blocks with backtics are now correctly filled - * ESS[R]: Don't skip breakpoints in magrittr's 'debug_pipe' - * ESS[R]: Error highlighting now understands 'testthat' type errors - * ESS[Julia]: Added getwd and setwd generic commands - - -File: ess.info, Node: Credits, Next: Manual, Prev: New features, Up: Introduction - -1.3 Authors of and contributors to ESS -====================================== - -The ESS environment is built on the open-source projects of many -contributors, dating back to 1989 where Doug Bates and Ed Kademan wrote -S-mode to edit S and Splus files in GNU Emacs. Frank Ritter and Mike -Meyer added features, creating version 2. Meyer and David Smith made -further contributions, creating version 3. For version 4, David Smith -provided significant enhancements to allow for powerful process -interaction. - - John Sall wrote GNU Emacs macros for SAS source code around 1990. -Tom Cook added functions to submit jobs, review listing and log files, -and produce basic views of a dataset, thus creating a SAS-mode which was -distributed in 1994. - - In 1994, A.J. Rossini extended S-mode to support XEmacs. Together -with extensions written by Martin Maechler, this became version 4.7 and -supported S, Splus, and R. In 1995, Rossini extended SAS-mode to work -with XEmacs. - - In 1997, Rossini merged S-mode and SAS-mode into a single Emacs -package for statistical programming; the product of this marriage was -called ESS version 5. Richard M. Heiberger designed the inferior mode -for interactive SAS and SAS-mode was further integrated into ESS. Thomas -Lumley's Stata mode, written around 1996, was also folded into ESS. More -changes were made to support additional statistical languages, -particularly XLispStat. - - ESS initially worked only with Unix statistics packages that used -standard-input and standard-output for both the command-line interface -and batch processing. ESS could not communicate with statistical -packages that did not use this protocol. This changed in 1998 when -Brian Ripley demonstrated use of the Windows Dynamic Data Exchange (DDE) -protocol with ESS. Heiberger then used DDE to provide interactive -interfaces for Windows versions of Splus. In 1999, Rodney A. Sparapani -and Heiberger implemented SAS batch for ESS relying on files, rather -than standard-input/standard-output, for Unix, Windows and Mac. In -2001, Sparapani added BUGS batch file processing to ESS for Unix and -Windows. - - * The multiple process code, and the idea for - 'ess-eval-line-and-next-line' are by Rod Ball. - - * Thanks to Doug Bates for many useful suggestions. - - * Thanks to Martin Maechler for reporting and fixing bugs, providing - many useful comments and suggestions, and for maintaining the ESS - mailing lists. - - * Thanks to Frank Ritter for updates, particularly the menu code, and - invaluable comments on the manual. - - * Thanks to Ken'ichi Shibayama for his excellent indenting code, and - many comments and suggestions. - - * Thanks to Aki Vehtari for adding interactive BUGS support. - - * Thanks to Brendan Halpin for bug-fixes and updates to Stata-mode. - - * Last, but definitely not least, thanks to the many ESS users and - contributors to the ESS mailing lists. - - _ESS_ is being developed and currently maintained by - - * A.J. Rossini (mailto:blindglobe@gmail.com) - * Richard M. Heiberger (mailto:rmh@temple.edu) - * Kurt Hornik (mailto:Kurt.Hornik@R-project.org) - * Martin Maechler (mailto:maechler@stat.math.ethz.ch) - * Rodney A. Sparapani (mailto:rsparapa@mcw.edu) - * Stephen Eglen (mailto:stephen@gnu.org) - * Sebastian P. Luque (mailto:spluque@gmail.com) - * Henning Redestig (mailto:henning.red@googlemail.com) - * Vitalie Spinu (mailto:spinuvit@gmail.com) - * Lionel Henry (mailto:lionel.hry@gmail.com) - * J. Alexander Branham (mailto:alex.branham@gmail.com) - - -File: ess.info, Node: Manual, Prev: Credits, Up: Introduction - -1.4 How to read this manual -=========================== - -If you need to install ESS, read *note Installation:: for details on -what needs to be done before proceeding to the next chapter. This -section describes some of the basics of using Emacs. If you are already -familiar with basic Emacs functionality, skip this section. You may -also want to use the Emacs tutorial, accessible via 'C-h t'. - - In this manual we use the standard notation used by Emacs for -describing the keystrokes used to invoke certain commands. 'C-' -means hold the CONTROL key while typing the character . 'M-' -means hold the META key (usually ALT) down while typing . If there -is no META, EDIT or ALT key, instead press and release the ESC key and -then type . - - All ESS commands can be invoked by typing 'M-x command'. Most of the -useful commands are bound to keystrokes for ease of use. Also, the most -popular commands are also available through the Emacs menubar, and a -small subset are provided on the toolbar. Where possible, keybindings -are similar to other modes in Emacs to strive for a consistent user -interface within Emacs, regardless of the details of which programming -language is being edited, or process being run. - - Some commands, such as 'M-x R' can accept an optional 'prefix' -argument. To specify the prefix argument, you would type 'C-u' before -giving the command. For example, if you type 'C-u M-x R', you will be -asked for command line options that you wish to invoke the R process -with. - - Emacs is a 'self-documenting' text editor. This applies to ESS in -two ways. First, some documentation about each ESS command can be -obtained by typing 'C-h f'. For example, if you type 'C-h f -ess-eval-region', documentation for that command will appear in a -separate *Help* buffer. Second, 'C-h m' pops up a complete list of -keybindings available in each ESS mode and brief description of that -mode. - - Emacs is a versatile editor written in both C and a dialect of lisp -known as elisp. ESS is written in elisp and benefits from the flexible -nature of lisp. In particular, many aspects of ESS behaviour can be -changed by suitable customization of lisp variables. This manual -mentions some of the most frequent variables. A full list of them -however is available by using the Custom facility within Emacs. Type -'M-x customize-group RET ess RET' to get started. *note Customization:: -provides details of common user variables you can change to customize -ESS to your taste, but it is recommended that you defer this section -until you are more familiar with ESS. - - -File: ess.info, Node: Installation, Next: Interactive ESS, Prev: Introduction, Up: Top - -2 Installing ESS on your system -******************************* - -ESS supports GNU Emacs versions 24.3 and newer. - - ESS is most likely to work with current/recent versions of the -following statistical packages: R/S-PLUS, SAS, Stata, OpenBUGS and JAGS. - - To build the PDF documentation, you will need a version of TeX Live -or texinfo that includes texi2dvi. - - There are two main methods used for installing ESS. You may install -from a third-party repository or from source code. Once you install it, -you must also activate or load ESS in each Emacs session, though -installation from a third-party repository likely takes care of that for -you. See *note Activating and Loading ESS:: for more details. - -* Menu: - -* Installing from a third-party repository:: -* Installing from source:: -* Activating and Loading ESS:: -* Check Installation:: - - -File: ess.info, Node: Installing from a third-party repository, Next: Installing from source - -2.1 Installing from a third-party repository -============================================ - -ESS is packaged by many third party repositories. Many GNU/Linux -distributions package it, usually with the name "emacs-ess" or similar. - - ESS is also available through Milkypostman’s Emacs Lisp Package -Archive (MELPA), a popular repository for Emacs packages. Instructions -on how to do so are found on MELPA's website (https://melpa.org/). -MELPA also hosts MELPA-stable with stable ESS builds. You may choose -between MELPA with the latest and greatest features (and bugs) or -MELPA-stable, which may lag a bit behind but should be more stable. - - After installing, users should make sure ESS is activated or loaded -in each Emacs session. See *note Activating and Loading ESS::. -Depending on install method, this may be taken care of automatically. - - -File: ess.info, Node: Installing from source, Next: Activating and Loading ESS, Prev: Installing from a third-party repository - -2.2 Installing from source -========================== - -Stable versions of ESS are available at the ESS web page -(https://ess.r-project.org) as a .tgz file or .zip file. ESS releases -are GPG-signed, you should check the signature by downloading the -accompanying '.sig' file and doing: - - gpg --verify ess-18.10.tgz.sig - - Alternatively, you may download the git repository. ESS is currently -hosted on Github: . 'git clone -https://github.com/emacs-ess/ESS.git' will download it to a new -directory 'ESS' in the current working directory. - - We will refer to the location of the ESS source files as -'/path/to/ESS/' hereafter. - - After installing, users should make sure they activate or load ESS in -each Emacs session, see *note Activating and Loading ESS:: - - Optionally, compile elisp files, build the documentation, and the -autoloads: - cd /path/to/ESS/ - make - Without this step the documentation, reference card, and autoloads -will not be available. Uncompiled ESS will also run slower. - - Optionally, you may make ESS available to all users of a machine by -installing it site-wide. To do so, run 'make install'. You might need -administrative privileges: - - make install - - The files are installed into '/usr/share/emacs' directory. For this -step to run correctly on macOS, you will need to adjust the 'PREFIX' -path in 'Makeconf'. The necessary code and instructions are commented -in that file. - - -File: ess.info, Node: Activating and Loading ESS, Next: Check Installation, Prev: Installing from source - -2.3 Activating and Loading ESS -============================== - -After installing ESS, you must activate or load it each Emacs session. -ESS can be autoloaded, and if you used a third-party repository (such as -your Linux distribution or MELPA) to install, you can likely skip this -section and proceed directly to *note Check Installation:: - - Otherwise, you may need to add the path to ESS to 'load-path' with: - - (add-to-list 'load-path "/path/to/ESS/lisp") - - You then need to decide whether to take advantage of deferred loading -(which will result in a faster Emacs startup time) or require ESS when -Emacs is loaded. To autoload ESS when needed (note that if installed -from source, you must have run 'make'): - - (load "ess-autoloads") - - To require ESS on startup, you can either put - - (require 'ess-site) - - or - - (require 'ess-r-mode) - - In your configuration file, depending on whether you want all ESS -features or only R related features. - - -File: ess.info, Node: Check Installation, Prev: Activating and Loading ESS - -2.4 Check Installation -====================== - -Restart Emacs and check that ESS was loaded from a correct location with -'M-x ess-version'. - - -File: ess.info, Node: Interactive ESS, Next: Entering commands, Prev: Installation, Up: Top - -3 Interacting with statistical programs -*************************************** - -As well as using ESS to edit your source files for statistical programs, -you can use ESS to run these statistical programs. In this chapter, we -mostly will refer by example to running R from within Emacs. The Emacs -convention is to name such processes running under its control as -'inferior processes'. Some users find this terminology confusing; you -may prefer to think of these as 'interactive processes.' Either way, we -use the term 'iESS' to refer to the Emacs mode used to interact with -statistical programs. - -* Menu: - -* Starting up:: -* Multiple ESS processes:: -* ESS processes on Remote Computers:: -* Customizing startup:: - - -File: ess.info, Node: Starting up, Next: Multiple ESS processes, Up: Interactive ESS - -3.1 Starting an ESS process -=========================== - -To start an inferior R session on GNU/Linux, macOS, or Windows using the -Cygwin bash shell, simply type 'M-x R RET'. To start an R session on -Windows when you use the MSDOS/powershell shell, simply type 'M-x -S+6-msdos RET'. R will then (by default) ask the question - - R starting data directory? - -Enter the name of the directory you wish to have as the working -directory (that is, the directory you wish to have 'getwd()' return if -using R). - - You will then be popped into a buffer named '*R*' which will be used -for interacting with the ESS process, and you can start entering -commands. - - -File: ess.info, Node: Multiple ESS processes, Next: ESS processes on Remote Computers, Prev: Starting up, Up: Interactive ESS - -3.2 Running more than one ESS process -===================================== - -ESS allows you to run more than one iESS process simultaneously in the -same session. Each process has a name and a number; the initial process -(process 1) is simply named 'R'. If you call 'M-x R' again without -killing the first R process, ESS will start a second R process with the -name 'R:2'. To have the first buffer named 'R:1', customize the option -'ess-plain-first-buffername'. With a prefix argument, 'C-u M-x R' -allows for the specification of command line options. - - -- User Option: ess-plain-first-buffername - If non-'nil', name the first iESS process [R]. Otherwise, name it - [R:1]. - - You can switch to any active ESS process with the command 'M-x -ess-request-a-process'. Just enter the name of the process you require; -completion is provided over the names of all running processes. This is -a good command to consider binding to a global key. - - -File: ess.info, Node: ESS processes on Remote Computers, Next: Customizing startup, Prev: Multiple ESS processes, Up: Interactive ESS - -3.3 ESS processes on Remote Computers -===================================== - -3.3.1 ESS and TRAMP -------------------- - -ESS works with processes on remote computers as easily as with processes -on the local machine. The recommended way to access a statistical -program on remote computer is to start it with *Note (tramp)Top::. - - Start an ssh session using TRAMP with 'C-x C-f /ssh:user@host: RET'. -Tramp should open a dired buffer in your remote home directory. Now -call your favorite ESS process ('R', 'Julia', 'stata' etc) as you would -usually do on local machine: 'M-x R'. - - Alternatively you can start your process normally ('M-x R'). When -asked for starting directory, simply type '/ssh:user@host: RET'. The R -process will be started on the remote machine. - - To simplify the process even further create a "config" file in your -'.ssh/' folder and add an account. For example if you use amazon EC2, -it might look like following: - - Host amazon - Hostname ec2-54-215-203-181.us-west-1.compute.amazonaws.com - User ubuntu - IdentityFile ~/.ssh/my_amazon_key.pem - ForwardX11 yes - - With this configuration '/ssh:amazon:' is enough to start a -connection. The ForwardX11 is needed if you want to see the R graphic -device showing on the current machine - -3.3.2 ESS-remote ----------------- - -TRAMP is the recommended way of starting a remote session. The other -way to start a remote ESS connection is through 'ess-remote'. - - 1. Start a new shell, telnet or ssh buffer and connect to the remote - computer (e.g. use, 'M-x shell', 'M-x telnet' or 'M-x ssh'; ssh.el - is available at - ). - - 2. Start the ESS process on the remote machine, for example with one - of the commands 'R', 'Splus', or 'sas -stdio'. - - 3. Start 'M-x ess-remote'. You will be prompted for a program name - with completion. Choose one. Your process is now known to ESS. - All the usual ESS commands ('C-c C-n' and its relatives) now work - with the R language processes. For SAS you need to use a different - command 'C-c i' (that is a regular 'i', not a 'C-i') to send lines - from your 'myfile.sas' to the remote SAS process. 'C-c i' sends - lines over invisibly. With ess-remote you get teletype - behavior--the data input, the log, and the listing all appear in - the same buffer. To make this work, you need to end every PROC and - DATA step with a "RUN;" statement. The "RUN;" statement is what - tells SAS that it should process the preceding input statements. - - 4. Graphics (interactive) on the remote machine. If you run X11 - (*Note X11::, X Windows) on both the local and remote machines then - you should be able to display the graphs locally by setting the - 'DISPLAY' environment variable appropriately. Windows users can - download 'xfree86' from cygwin. - - 5. Graphics (static) on the remote machine. If you don't run the X - window system on the local machine, then you can write graphics to - a file on the remote machine, and display the file in a graphics - viewer on the local machine. Most statistical software can write - one or more of postscript, GIF, or JPEG files. Depending on the - versions of Emacs and the operating system that you are running, - Emacs itself may display '.gif' and '.jpg' files. Otherwise, a - graphics file viewer will be needed. Ghostscript/ghostview may be - downloaded to display '.ps' and '.eps' files. Viewers for GIF and - JPEG are usually included with operating systems. *Note - ESS(SAS)--Function keys for batch processing::, for more - information on using the F12 key for displaying graphics files with - SAS. - - Should you or a colleague inadvertently start a statistical process -in an ordinary '*shell*' buffer, the 'ess-remote' command can be used to -convert it to an ESS buffer and allow you to use the ESS commands with -it. - - -File: ess.info, Node: Customizing startup, Prev: ESS processes on Remote Computers, Up: Interactive ESS - -3.4 Changing the startup actions -================================ - -If you do not wish ESS to prompt for a starting directory when starting -a new process, set the variable 'ess-ask-for-ess-directory' to 'nil'. -In this case, the starting directory will be set using one of the -following methods: - - 1. If the variable 'ess-directory-function' stores the name of a - function, the value returned by this function is used. The default - for this variable is nil. - - 2. Otherwise, if the variable 'ess-directory' stores the name of a - directory (ending in a slash), this value is used. The default for - this variable is nil. - - 3. Otherwise, the working directory of the current buffer is used. - - If 'ess-ask-for-ess-directory' has a non-'nil' value (as it does by -default) then the value determined by the above rules provides the -default when prompting for the starting directory. Incidentally, -'ess-directory' is an ideal variable to set in 'ess-pre-run-hook'. - - If you like to keep a record of your R actions, set the variable -'ess-ask-about-transfile' to 't', and you will be asked for a filename -for the transcript before the ESS process starts. - - -- User Option: ess-ask-about-transfile - If non-'nil', ask for a file name in which to save the session - transcript. - - Enter the name of a file in which to save the transcript at the -prompt. If the file doesn't exist it will be created (for R, you likely -want it to end in '.Rout'). If the file already exists the transcript -will be appended to the file. (Note: if you don't set this variable but -you still want to save the transcript, you can still do it later -- -*note Saving transcripts::.) - - Once these questions are answered (if they are asked at all) the -inferior process itself is started. If you need to pass any arguments -to this program, they may be specified in the variable -'inferior-S_PROGRAM_NAME-args'. For example, if 'inferior-ess-program' -is '"R"' then the variable to set is 'inferior-R-args'. It is not -normally necessary to pass arguments to the iESS program; in particular -do not pass the '-e' option to 'Splus', since ESS provides its own -command history mechanism. - - By default, the new process will be displayed in the same window in -the current frame. If you wish your iESS process to appear in a -separate frame, customize the variable 'inferior-ess-own-frame'. -Alternatively, change 'inferior-ess-same-window' if you wish the process -to appear within another window of the current frame. - - -File: ess.info, Node: Entering commands, Next: Evaluating code, Prev: Interactive ESS, Up: Top - -4 Interacting with the ESS process -********************************** - -The primary function of the ESS package is to provide an easy-to-use -front end to the R interpreter. This is achieved by running the R -process from within an Emacs buffer, called hereafter _inferior_ buffer, -which has an active 'inferior-ess-mode'. The features of inferior R -mode are similar to those provided by the standard Emacs shell mode -(*note (emacs)Shell Mode::). Command-line completion of R objects and a -number of 'hot keys' for commonly-used R commands are also provided for -ease of typing. - -* Menu: - -* Command-line editing:: Entering commands and fixing mistakes -* Transcript:: Manipulating the transcript -* Command History:: Command History -* History expansion:: References to historical commands -* Hot keys:: Hot keys for common commands -* Statistical Process running in ESS?:: -* Emacsclient:: Using emacsclient -* Other:: Other commands provided by inferior-ESS - - -File: ess.info, Node: Command-line editing, Next: Transcript, Up: Entering commands - -4.1 Entering commands and fixing mistakes -========================================= - -Sending a command to the ESS process is as simple as typing it in and -pressing the key: - - -- Command: inferior-ess-send-input - 'RET' Send the command on the current line to the ESS process. - - If you make a typing error before pressing 'RET' all the usual Emacs -editing commands are available to correct it (*note Basic: -(emacs)Basic.). Once the command has been corrected you can press - (even if the cursor is not at the end of the line) to send the -corrected command to the ESS process. - - Emacs provides some other commands which are useful for fixing -mistakes: - -'C-c C-w' - 'backward-kill-word' Deletes the previous word (such as an object - name) on the command line. - -'C-c C-u' - 'comint-kill-input' Deletes everything from the prompt to point. - Use this to abandon a command you have not yet sent to the ESS - process. - -'C-a' - 'comint-bol' Move to the beginning of the line, and then skip - forwards past the prompt, if any. - - *Note (emacs)Shell Mode::, for other commands relevant to entering -input. - - -File: ess.info, Node: Transcript, Next: Command History, Prev: Command-line editing, Up: Entering commands - -4.2 Manipulating the transcript -=============================== - -Most of the time, the cursor spends its time at the bottom of the ESS -process buffer, entering commands. However all the input and output -from the current (and previous) ESS sessions is stored in the process -buffer (we call this the transcript) and often we want to move back up -through the buffer, to look at the output from previous commands for -example. - - Within the process buffer, a paragraph is defined as the prompt, the -command after the prompt, and the output from the command. Thus 'M-{' -and 'M-}' move you backwards and forwards, respectively, through -commands in the transcript. A particularly useful command is 'M-h' -('mark-paragraph') which will allow you to mark a command and its entire -output (for deletion, perhaps). For more information about paragraph -commands, *note Paragraphs: (emacs)Paragraphs. - - If an ESS process finishes and you restart it in the same process -buffer, the output from the new ESS process appears after the output -from the first ESS process separated by a form-feed ('^L') character. -Thus pages in the ESS process buffer correspond to ESS sessions. Thus, -for example, you may use 'C-x [' and 'C-x ]' to move backward and -forwards through ESS sessions in a single ESS process buffer. For more -information about page commands, *note Pages: (emacs)Pages. - -* Menu: - -* Last command:: Manipulating the output from the last command -* Process buffer motion:: Viewing older commands -* Transcript resubmit:: Re-submitting commands from the transcript -* Saving transcripts:: Keeping a record of your R session - - -File: ess.info, Node: Last command, Next: Process buffer motion, Up: Transcript - -4.2.1 Manipulating the output from the last command ---------------------------------------------------- - -Viewing the output of the command you have just entered is a common -occurrence and ESS provides a number of facilities for doing this. -Whenever a command produces output, it is possible that the window will -scroll, leaving the next prompt near the middle of the window. The -first part of the command output may have scrolled off the top of the -window, even though the entire output would fit in the window if the -prompt were near the bottom of the window. If this happens, you can use -the following comint commands: - - 'comint-show-maximum-output' to move to the end of the buffer, and -place cursor on bottom line of window to make more of the last output -visible. To make this happen automatically for all inputs, set the -variable 'comint-scroll-to-bottom-on-input' to 't' or ''this'. If the -first part of the output is still not visible, use 'C-c C-r' -('comint-show-output'), which moves cursor to the previous command line -and places it at the top of the window. - - Finally, if you want to discard the last command output altogether, -use 'C-c C-o' ('comint-delete-output'), which deletes everything from -the last command to the current prompt. Use this command judiciously to -keep your transcript to a more manageable size. - - -File: ess.info, Node: Process buffer motion, Next: Transcript resubmit, Prev: Last command, Up: Transcript - -4.2.2 Viewing older commands ----------------------------- - -If you want to view the output from more historic commands than the -previous command, commands are also provided to move backwards and -forwards through previously entered commands in the process buffer: - -'C-c C-p' - 'comint-previous-prompt' Moves point to the preceding prompt in the - process buffer. - -'C-c C-n' - 'comint-next-prompt' Moves point to the next prompt in the process - buffer. - -Note that these two commands are analogous to 'C-p' and 'C-n' but apply -to command lines rather than text lines. And just like 'C-p' and 'C-n', -passing a prefix argument to these commands means to move to the ARG'th -next (or previous) command. (These commands are also discussed in *note -Shell History Copying: (emacs)Shell History Copying.) - - There are also two similar commands (not bound to any keys by -default) which move to preceding or succeeding commands, but which first -prompt for a regular expression (*note Syntax of Regular Expression: -(emacs)Regexps.), and then moves to the next (previous) command matching -the pattern. - -'comint-backward-matching-input regexp arg' -'comint-forward-matching-input regexp arg' - Search backward (forward) through the transcript buffer for the - ARG'th previous (next) command matching REGEXP. ARG is the prefix - argument; REGEXP is prompted for in the minibuffer. - - -File: ess.info, Node: Transcript resubmit, Next: Saving transcripts, Prev: Process buffer motion, Up: Transcript - -4.2.3 Re-submitting commands from the transcript ------------------------------------------------- - -When moving through the transcript, you may wish to re-execute some of -the commands you find there. ESS provides commands to do this; these -commands may be used whenever the cursor is within a command line in the -transcript (if the cursor is within some command _output_, an error is -signaled). Note all commands involve the key. - -'RET' - 'inferior-ess-send-input' *Note Command-line editing::. - -'C-c RET' - 'comint-copy-old-input' Copy the command under the cursor to the - current command line, but don't execute it. Leaves the cursor on - the command line so that the copied command may be edited. - - When the cursor is not after the current prompt, the key has -a slightly different behavior than usual. Pressing 'RET' on any line -containing a command that you entered (i.e. a line beginning with a -prompt) sends that command to the ESS process once again. If you wish -to edit the command before executing it, use 'C-c RET' instead; it -copies the command to the current prompt but does not execute it, -allowing you to edit it before (re)submitting it. - - These commands work even if the current line is a continuation line -(i.e. the prompt is '+' instead of '>') -- in this case all the lines -that form the multi-line command are concatenated together and the -resulting command is sent to the ESS process (currently this is the only -way to resubmit a multi-line command to the ESS process in one go). If -the current line does not begin with a prompt, an error is signalled. -This feature, coupled with the command-based motion commands described -above, could be used as a primitive history mechanism. ESS provides a -more sophisticated mechanism, however, which is described in *note -Command History::. - - -File: ess.info, Node: Saving transcripts, Prev: Transcript resubmit, Up: Transcript - -4.2.4 Keeping a record of your R session ----------------------------------------- - -To keep a record of your R session in a disk file, use the Emacs command -'C-x C-w' ('write-file') to attach a file to the ESS process buffer. -The name of the process buffer will (probably) change to the name of the -file, but this is not a problem. You can still use R as usual; just -remember to save the file before you quit Emacs with 'C-x C-s'. You can -make ESS prompt you for a filename in which to save the transcript every -time you start R by setting the variable 'ess-ask-about-transfile' to -'t'; *Note Customizing startup::. For R files, naming transcript files -'*.Rout' puts them in a special mode (ESS transcript mode -- *note -Transcript Mode::) for editing transcript files which is automatically -selected for files with this suffix. - - R transcripts can get very large, so some judicious editing is -appropriate if you are saving it in a file. Use 'C-c C-o' whenever a -command produces excessively long output (printing large arrays, for -example). Delete erroneous commands (and the resulting error messages -or other output) by moving to the command (or its output) and typing -'M-h C-w'. Also, remember that 'C-c C-x' (and other hot keys) may be -used for commands whose output you do not wish to appear in the -transcript. These suggestions are appropriate even if you are not -saving your transcript to disk, since the larger the transcript, the -more memory your Emacs process will use on the host machine. - - You can use 'ess-transcript-clean-region' to strip output from a -transcript, leaving only source code suitable for inclusion in files -'source()'-able from R. *note Transcript Mode: Clean. - - -File: ess.info, Node: Command History, Next: History expansion, Prev: Transcript, Up: Entering commands - -4.3 Command History -=================== - -ESS provides easy-to-use facilities for re-executing or editing previous -commands. An input history of the last few commands is maintained (by -default the last 500 commands are stored, although this can be changed -by setting the variable 'comint-input-ring-size' in -'inferior-ess-mode-hook'.) The simplest history commands simply select -the next and previous commands in the input history: - -'M-p' - 'comint-previous-input' Select the previous command in the input - history. - -'M-n' - 'comint-next-input' Select the next command in the input history. - -For example, pressing 'M-p' once will re-enter the last command into the -process buffer after the prompt but does not send it to the ESS process, -thus allowing editing or correction of the command before the ESS -process sees it. Once corrections have been made, press 'RET' to send -the edited command to the ESS process. - - If you want to select a particular command from the history by -matching it against a regular expression (*note Syntax of Regular -Expression: (emacs)Regexps.), to search for a particular variable name -for example, these commands are also available: - -'M-r' - 'comint-history-isearch-backward-regexp' Prompt for a regular - expression, and search backwards through the input history for a - command matching the expression. - -A common type of search is to find the last command that began with a -particular sequence of characters; the following two commands provide an -easy way to do this: - -'C-c M-r' - 'comint-previous-matching-input-from-input' Select the previous - command in the history which matches the string typed so far. - -'C-c M-s' - 'comint-next-matching-input-from-input' Select the next command in - the history which matches the string typed so far. - -Instead of prompting for a regular expression to match against, as they -instead select commands starting with those characters already entered. -For instance, if you wanted to re-execute the last 'attach()' command, -you may only need to type 'att' and then 'C-c M-r' and 'RET'. - - *Note Shell History Ring: (emacs)Shell Ring, for a more detailed -discussion of the history mechanism, and do experiment with the 'In/Out' -menu to explore the possibilities. - - Many ESS users like to have even easier access to these, and -recommend to add something like - (eval-after-load "comint" - '(progn - (define-key comint-mode-map [up] - 'comint-previous-matching-input-from-input) - (define-key comint-mode-map [down] - 'comint-next-matching-input-from-input) - - ;; also recommended for ESS use -- - (setq comint-move-point-for-output 'others) - ;; somewhat extreme, almost disabling writing in *R*, *shell* buffers above prompt: - (setq comint-scroll-to-bottom-on-input 'this) - )) - to your Emacs configuration file, where the last two settings are -typically desirable for the situation where you work with a script (for -example, 'code.R') and send code chunks to the process buffer (e.g. -'*R*'). Note however that these settings influence all 'comint'-using -Emacs modes, not just the ESS ones, and for that reason, these -customization cannot be part of 'ESS' itself. - -* Menu: - -* Saving History:: - - -File: ess.info, Node: Saving History, Up: Command History - -4.3.1 Saving the command history --------------------------------- - -The 'ess-history-file' variable, which is 't' by default, together with -'ess-history-directory', governs if and where the command history is -saved and restored between sessions. By default, -'ess-history-directory' is 'nil', and the command history will be stored -(as a file) in the same directory as the iESS process. - - ESS users may work exclusively with script files rather than in a -iESS session, and may not want to save any history files. To do so: - - (setq ess-history-file nil) - -or if you prefer only one global command history file: - - (setq ess-history-directory "~/.R/") - -in your Emacs configuration file. - - -File: ess.info, Node: History expansion, Next: Hot keys, Prev: Command History, Up: Entering commands - -4.4 References to historical commands -===================================== - -Instead of searching through the command history using the command -described in the previous section, you can alternatively refer to a -historical command directly using a notation very similar to that used -in 'csh'. History references are introduced by a '!' or '^' character -and have meanings as follows: - -'!!' - The immediately previous command - -'!-N' - The Nth previous command - -'!text' - The last command beginning with the string 'text' - -'!?text' - The last command containing the string 'text' - - In addition, you may follow the reference with a "word designator" to -select particular "words" of the input. A word is defined as a sequence -of characters separated by whitespace. (You can modify this definition -by setting the value of 'comint-delimiter-argument-list' to a list of -characters that are allowed to separate words and themselves form -words.) Words are numbered beginning with zero. The word designator -usually begins with a ':' (colon) character; however it may be omitted -if the word reference begins with a '^', '$', '*' or '-'. If the word -is to be selected from the previous command, the second '!' character -can be omitted from the event specification. For instance, '!!:1' and -'!:1' both refer to the first word of the previous command, while '!!$' -and '!$' both refer to the last word in the previous command. The -format of word designators is as follows: - -'0' - The zeroth word (i.e. the first one on the command line) - -'N' - The Nth word, where N is a number - -'^' - The first word (i.e. the second one on the command line) - -'$' - The last word - -'X-Y' - A range of words; '-Y' abbreviates '0-Y' - -'*' - All the words except the zeroth word, or nothing if the command had - just one word (the zeroth) - -'X*' - Abbreviates X-$ - -'X-' - Like 'X*', but omitting the last word - - In addition, you may surround the entire reference except for the -first '!' by braces to allow it to be followed by other (non-whitespace) -characters (which will be appended to the expanded reference). - - Finally, ESS also provides quick substitution; a reference like -'^old^new^' means "the last command, but with the first occurrence of -the string 'old' replaced with the string 'new'" (the last '^' is -optional). Similarly, '^old^' means "the last command, with the first -occurrence of the string 'old' deleted" (again, the last '^' is -optional). - - To convert a history reference as described above to an input -suitable for R, you need to "expand" the history reference, using the - key. For this to work, the cursor must be preceded by a space -(otherwise it would try to complete an object name) and not be within a -string (otherwise it would try to complete a filename). So to expand -the history reference, type 'SPC TAB'. This will convert the history -reference into an R command from the history, which you can then edit or -press to execute. - - For example, to execute the last command that referenced the variable -'data', type '!?data SPC TAB RET'. - - -File: ess.info, Node: Hot keys, Next: Statistical Process running in ESS?, Prev: History expansion, Up: Entering commands - -4.5 Hot keys for common commands -================================ - -ESS provides a number of commands for executing the commonly used -functions. These commands below are basically information-gaining -commands (such as 'objects()' or 'search()') which tend to clutter up -your transcript and for this reason some of the hot keys display their -output in a temporary buffer instead of the process buffer by default. -This behavior is controlled by the following option: - - -- User Option: ess-execute-in-process-buffer - If non-'nil', means that these commands will produce their output - in the process buffer instead. - - In any case, passing a prefix argument to the commands (with 'C-u') -will reverse the meaning of 'ess-execute-in-process-buffer' for that -command. In other words, the output will be displayed in the process -buffer if it usually goes to a temporary buffer, and vice-versa. These -are the hot keys that behave in this way: - - -- Command: ess-execute-objects POSN - 'C-c C-x' Sends the 'objects()' command to the ESS process. A - prefix argument specifies the position on the search list (use a - negative argument to toggle 'ess-execute-in-process-buffer' as - well). This is a quick way to see what objects are in your working - directory. A prefix argument of 2 or more means get objects for - that position. A negative prefix argument POSN gets the objects - for that position, as well as toggling - 'ess-execute-in-process-buffer'. - - -- Command: ess-execute-search INVERT - 'C-c C-s' Sends the 'inferior-ess-search-list-command' command to - the 'ess-language' process; 'search()' in R. Prefix INVERT toggles - 'ess-execute-in-process-buffer'. - - 'ess-execute' may seem pointless when you could just type the command -in anyway, but it proves useful for 'spot' calculations which would -otherwise clutter your transcript, or for evaluating an expression while -partway through entering a command. You can also use this command to -generate new hot keys using the Emacs keyboard macro facilities; *note -Keyboard Macros: (emacs)Keyboard Macros. - - The following hot keys do not use 'ess-execute-in-process-buffer' to -decide where to display the output -- they either always display in the -process buffer or in a separate buffer, as indicated: - - -- Command: ess-load-file FILENAME - 'C-c M-l' Prompts for a file (FILENAME) to load into the ESS - process using 'source()'. If there is an error during loading, you - can jump to the error in the file with the following function. - - -- Command: ess-parse-errors ARG RESET - Visits next 'next-error' message and corresponding source code. If - all the error messages parsed so far have been processed already, - the message buffer is checked for new ones. A prefix ARG specifies - how many error messages to move; negative means move back to - previous error messages. Just 'C-u' as a prefix means reparse the - error message buffer and start at the first error. The RESET - argument specifies restarting from the beginning. - - *Note Error Checking::, for more details. - - -- Command: ess-display-help-on-object OBJECT COMMAND - 'C-c C-v' Pops up a help buffer for an R object or function. If - COMMAND is supplied, it is used instead of - 'inferior-ess-help-command'. See *note Help:: for more details. - - -- Command: ess-quit - 'C-c C-q' Issue an exiting command to the inferior process, - additionally also running 'ess-cleanup' for disposing of any - temporary buffers (such as help buffers and edit buffers) that may - have been created. Use this command when you have finished your R - session instead of simply quitting at the inferior process prompt, - otherwise you will need to issue the command 'ess-cleanup' - explicitly to make sure that all the files that need to be saved - have been saved, and that all the temporary buffers have been - killed. - - -File: ess.info, Node: Statistical Process running in ESS?, Next: Emacsclient, Prev: Hot keys, Up: Entering commands - -4.6 Is the Statistical Process running under ESS? -================================================= - -For the R languages (R, S, S-Plus) ESS sets an option in the current -process that programs in the language can check to determine the -environment in which they are currently running. - - ESS sets 'options(STERM="iESS")' for R language processes running in -an inferior 'iESS[S]' or 'iESS[R]' buffer. - - ESS sets 'options(STERM="ddeESS")' for independent S-Plus for Windows -processes running in the GUI and communicating with ESS via the DDE -(Microsoft Dynamic Data Exchange) protocol through a 'ddeESS[S]' buffer. - - Other values of 'options()$STERM' that we recommend are: - - * 'length': Fixed length xterm or telnet window. - * 'scrollable': Unlimited length xterm or telnet window. - * 'server': S-Plus Stat Server. - * 'BATCH': BATCH. - * 'Rgui': R GUI. - * 'Commands': S-Plus GUI without DDE interface to ESS. - - Additional values may be recommended in the future as new interaction -protocols are created. Unlike the values 'iESS' and 'ddeESS', ESS can't -set these other values since the R language program is not under the -control of ESS. - - -File: ess.info, Node: Emacsclient, Next: Other, Prev: Statistical Process running in ESS?, Up: Entering commands - -4.7 Using emacsclient -===================== - -When starting R or S under Unix, ESS sets -'options(editor="emacsclient")'. Under Microsoft Windows, it will use -gnuclient.exe rather than emacsclient, but the same principal applies. -Within your R session, if you have a function called 'iterator', typing -'fix(iterator)', will show that function in a temporary Emacs buffer. -You can then correct the function. When you kill the buffer, the -definition of the function is updated. Using 'edit()' rather than -'fix()' means that the function is not updated. Finally, the R function -'page(x)' will also show a text representation of the object 'x' in a -temporary Emacs buffer. - - -File: ess.info, Node: Other, Prev: Emacsclient, Up: Entering commands - -4.8 Other commands provided by inferior-ESS -=========================================== - -The following commands are also available in the process buffer: - - -- Command: comint-interrupt-subjob - 'C-c C-c' Sends a Control-C signal to the iESS process. This has - the effect of aborting the current command. - - -- Command: ess-switch-to-inferior-or-script-buffer TOGGLE-EOB - 'C-c C-z' When in process buffer, return to the most recent script - buffer. When in a script buffer pop to the associated process - buffer. Consecutive presses of 'C-z' switch between the script and - process buffers. - - If TOGGLE-EOB is given, the value of - 'ess-switch-to-end-of-proc-buffer' is toggled. - - -- User Option: ess-switch-to-end-of-proc-buffer - If non-'nil', 'ess-switch-to-inferior-or-script-buffer' goes to end - of process buffer. - - Other commands available in iESS modes are discussed in *note -(emacs)Shell Mode::. - - -File: ess.info, Node: Evaluating code, Next: Transcript Mode, Prev: Entering commands, Up: Top - -5 Sending code to the ESS process -********************************* - -Other commands are also available for evaluating portions of code in the -R process. These commands cause the selected code to be evaluated -directly by the ESS process as if you had typed them in at the command -line; the 'source()' function is not used. You may choose whether both -the commands and their output appear in the process buffer (as if you -had typed in the commands yourself) or if the output alone is echoed. -The behavior is controlled by the variable: - - -- User Option: ess-eval-visibly - Non-'nil' means 'ess-eval-*' commands display commands and output - in the process buffer. Default is 't'. - - Passing a prefix ('C-u') (in elisp terms, the argument VIS) to any of -the following commands, however, reverses the meaning of -'ess-eval-visibly' for that command only -- for example 'C-u C-c C-j' -evaluates the current line without showing the input in the iESS buffer. -The default value of 'ess-eval-visibly' ('t') means that ESS calls block -Emacs until they finish. This may be undesirable, especially if -commands take long to finish. Users who want input to be displayed and -Emacs not to be blocked can set 'ess-eval-visibly' to ''nowait'. This -sends the input to the iESS buffer but does not wait for the process to -finish, ensuring Emacs is not blocked. - - Primary commands for evaluating code are: - - -- Command: ess-eval-region-or-line-and-step VIS - 'C-' Sends the highlighted region or current line and step to - next line of code. - - -- Command: ess-eval-region-or-function-or-paragraph VIS - 'C-M-x' Sends the current selected region or function or paragraph. - - -- Command: ess-eval-region-or-function-or-paragraph-and-step VIS - 'C-c C-c' Like 'ess-eval-region-or-function-or-paragraph' but steps - to next line of code. - - Other, not so often used, evaluation commands are: - - -- Command: ess-eval-line VIS - 'C-c C-j' Sends the current line to the ESS process. - - -- Command: ess-eval-line-and-go VIS - 'C-c M-j' Like 'ess-eval-line' but additionally switches point to - the ESS process. - - -- Command: ess-eval-function VIS NO-ERROR - 'C-c C-f' Sends the function containing point to the ESS process. - - -- Command: ess-eval-function-and-go VIS - 'C-c M-f' Like 'ess-eval-function' but additionally switches point - to the ESS process. - - -- Command: ess-eval-region START END TOGGLE MESSAGE - 'C-c C-r' Sends the current region to the ESS process. - - -- Command: ess-eval-region-and-go START END VIS - 'C-c M-r' Like 'ess-eval-region' but additionally switches point to - the ESS process. - - -- Command: ess-eval-buffer VIS - 'C-c C-b' Sends the current buffer to the ESS process. - - -- Command: ess-eval-buffer-and-go VIS - 'C-c M-b' Like 'ess-eval-buffer' but additionally switches point to - the ESS process. - - All the above 'ess-eval-*' commands are useful for evaluating small -amounts of code and observing the results in the process buffer for -debugging purposes, or for generating transcripts from source files. -When editing R functions, it is generally preferable to use 'C-c C-l' to -update the function's value. In particular, 'ess-eval-buffer' is now -largely obsolete. - - A useful way to work is to divide the frame into two windows; one -containing the source code and the other containing the process buffer. -If you wish to make the process buffer scroll automatically when the -output reaches the bottom of the window, you will need to set the -variable 'comint-move-point-for-output' to ''others' or 't'. - - -File: ess.info, Node: Transcript Mode, Next: Editing objects, Prev: Evaluating code, Up: Top - -6 Manipulating saved transcript files -************************************* - -Inferior R mode records the transcript (the list of all commands -executed, and their output) in the process buffer, which can be saved as -a "transcript file", which should normally have the suffix '.Rout'. The -most obvious use for a transcript file is as a static record of the -actions you have performed in a particular R session. Sometimes, -however, you may wish to re-execute commands recorded in the transcript -file by submitting them to a running ESS process. This is what -Transcript Mode is for. - - If you load file a with the suffix '.Rout' into Emacs, it is placed -in R Transcript Mode. Transcript Mode is similar to inferior R mode -(*note Entering commands::): paragraphs are defined as a command and its -output, and you can move though commands either with the paragraph -commands or with 'C-c C-p' and 'C-c C-n'. - -* Menu: - -* Resubmit:: Resubmitting commands from the transcript file -* Clean:: Cleaning transcript files - - -File: ess.info, Node: Resubmit, Next: Clean, Up: Transcript Mode - -6.1 Resubmitting commands from the transcript file -================================================== - -Three commands are provided to re-submit command lines from the -transcript file to a running ESS process. They are: - - -- Command: ess-transcript-send-command - 'M-RET' Sends the current command line to the ESS process, and - execute it. - - -- Command: ess-transcript-copy-command - 'C-c RET' Copy the current command to the ESS process, and switch - to it (ready to edit the copied command). - - -- Command: ess-transcript-send-command-and-move - 'RET' Sends the current command to the ESS process, and move to the - next command line. This command is useful for submitting a series - of commands. - -Note that the first two commands are similar to those on the same keys -in inferior R Mode. In all three cases, the commands should be executed -when the cursor is on a command line in the transcript; the prompt is -automatically removed before the command is submitted. - - -File: ess.info, Node: Clean, Prev: Resubmit, Up: Transcript Mode - -6.2 Cleaning transcript files -============================= - -Yet another use for transcript files is to extract the command lines for -inclusion in an R source file or function. Transcript mode provides one -command which does just this: - - -- Command: ess-transcript-clean-region BEG END EVEN-IF-READ-ONLY - 'C-c C-w' Strip the transcript in the region (given by BEG and - END), leaving only commands. Deletes any lines not beginning with - a prompt, and then removes the prompt from those lines that remain. - Prefix argument EVEN-IF-READ-ONLY means to clean even if the buffer - is read-only. Don't forget to remove any erroneous commands first! - -The remaining command lines may then be copied to a source file or edit -buffer for inclusion in a function definition, or may be evaluated -directly (*note Evaluating code::) using the code evaluation commands -from R mode, also available in R Transcript Mode. - - -File: ess.info, Node: Editing objects, Next: Help, Prev: Transcript Mode, Up: Top - -7 Editing objects and functions -******************************* - -ESS provides facilities for editing R objects within your Emacs session. -Most editing is performed on R functions, although in theory you may -edit datasets as well. Edit buffers are always associated with files, -although you may choose to make these files temporary if you wish. -Alternatively, you may make use of a simple yet powerful mechanism for -maintaining backups of text representations of R functions. -Error-checking is performed when R code is loaded into the ESS process. - -* Menu: - -* Edit buffer:: Edit objects in a specialized buffer -* Loading:: Loading source files into the ESS process -* Error Checking:: Detecting errors in source files -* Indenting:: Indenting and formatting S code -* Other edit buffer commands:: Commands for motion, completion and more -* Source Files:: Maintaining R source files -* Source Directories:: Names and locations of dump files - - -File: ess.info, Node: Edit buffer, Next: Loading, Up: Editing objects - -7.1 Creating or modifying R objects -=================================== - -To edit an object, type - - -- Command: ess-dump-object-into-edit-buffer OBJECT - 'C-c C-e C-d' Edit an object in its own edit buffer. - - from within the iESS process buffer ('*R*'). You will then be -prompted for an object to edit: you may either type in the name of an -existing object (for which completion is available using the 'TAB' key), -or you may enter the name of a new object. A buffer will be created -containing the text representation of the requested object or, if you -entered the name of a non-existent object at the prompt and the variable -'ess-function-template' is non-'nil', you will be presented with a -template defined by that variable, which defaults to a skeleton function -construct. - - You may then edit the function as required. The edit buffer -generated by 'ess-dump-object-into-edit-buffer' is placed in the 'ESS' -major mode which provides a number of commands to facilitate editing R -source code. Commands are provided to intelligently indent R code, -evaluate portions of R code and to move around R code constructs. - - Note: when you dump a file with 'C-c C-e C-d', ESS first checks to -see whether there already exists an edit buffer containing that object -and, if so, pops you directly to that buffer. If not, ESS next checks -whether there is a file in the appropriate place with the appropriate -name (*note Source Files::) and if so, reads in that file. You can use -this facility to return to an object you were editing in a previous -session (and which possibly was never loaded to the R session). -Finally, if both these tests fail, the ESS process is consulted and a -'dump()' command issued. If you want to force ESS to ask the ESS -process for the object's definition (say, to reformat an unmodified -buffer or to revert back to R's idea of the object's definition) pass a -prefix argument to 'ess-dump-object-into-edit-buffer' by typing 'C-u C-c -C-e C-d'. - - -File: ess.info, Node: Loading, Next: Error Checking, Prev: Edit buffer, Up: Editing objects - -7.2 Loading source files into the ESS process -============================================= - -The best way to get information -- particularly function definitions -- -into R is to load them in as source file, using R's 'source' function. -You have already seen how to create source files using 'C-c C-e C-d'; -ESS provides a complementary command for loading source files (even -files not created with ESS!) into the ESS process, namely -'ess-load-file' ('C-c M-l'). *note Hot keys::. - -After typing 'C-c M-l' you will prompt for the name of the file to load -into R; usually this is the current buffer's file which is the default -value (selected by simply pressing 'RET' at the prompt). You will be -asked to save the buffer first if it has been modified (this happens -automatically if the buffer was generated with 'C-c C-e C-d'). The file -will then be loaded, and if it loads successfully you will be returned -to the ESS process. - - -File: ess.info, Node: Error Checking, Next: Indenting, Prev: Loading, Up: Editing objects - -7.3 Detecting errors in source files -==================================== - -If any errors occur when loading a file with 'C-c C-l', ESS will inform -you of this fact. In this case, you can jump directly to the line in -the source file which caused the error by typing 'C-c `' -('ess-parse-errors'). You will be returned to the offending file -(loading it into a buffer if necessary) with point at the line S -reported as containing the error. You may then correct the error, and -reload the file. Note that none of the commands in an R source file -will take effect if any part of the file contains errors. - - Sometimes the error is not caused by a syntax error (loading a -non-existent file for example). In this case typing 'C-c `' will simply -display a buffer containing S's error message. You can force this -behavior (and avoid jumping to the file when there _is_ a syntax error) -by passing a prefix argument to 'ess-parse-errors' with 'C-u C-c `'. - - -File: ess.info, Node: Indenting, Next: Other edit buffer commands, Prev: Error Checking, Up: Editing objects - -7.4 Indenting and formatting R code -=================================== - -ESS provides a sophisticated mechanism for indenting R source code. -Compound statements (delimited by '{' and '}') are indented relative to -their enclosing block. In addition, the braces have been electrified to -automatically indent to the correct position when inserted, and -optionally insert a newline at the appropriate place as well. Lines -which continue an incomplete expression are indented relative to the -first line of the expression. Function definitions, 'if' statements, -calls to 'expression()' and loop constructs are all recognized and -indented appropriately. User variables are provided to control the -amount of indentation in each case, and there are also a number of -predefined indentation styles to choose from. - - Comments are also handled specially by ESS, using an idea borrowed -from the Emacs-Lisp indentation style. By default, comments beginning -with '###' are aligned to the beginning of the line. Comments beginning -with '##' are aligned to the current level of indentation for the block -containing the comment. Finally, comments beginning with '#' are -aligned to a column on the right (the 40th column by default, but this -value is controlled by the variable 'comment-column',) or just after the -expression on the line containing the comment if it extends beyond the -indentation column. You turn off the default behavior by adding the -line '(setq ess-indent-with-fancy-comments nil)' to your '.emacs' file. - - ESS also supports Roxygen entries which is R documentation maintained -in the source code as comments *Note Roxygen::. - - The indentation commands provided by ESS are: - - -- Command: ess-indent-or-complete - 'TAB' Indents the current line as R code. - - Try to indent first, and if code is already properly indented, - complete instead. In ess-mode, only tries completion if - 'ess-tab-complete-in-script' is non-nil. See also - 'ess-first-tab-never-complete'. - - -- User Option: ess-tab-complete-in-script - If non-'nil', 'TAB' in script buffers tries to complete if there is - nothing to indent. - - -- User Option: ess-first-tab-never-complete - If non-'nil', 'TAB' never tries to complete in ess-mode. The - default ''symbol' does not try to complete if the next char is a - valid symbol constituent. There are more options, see the help - ('C-h v'). - - -- Command: ess-indent-exp - 'TAB' Indents each line in the R (compound) expression which - follows point. Very useful for beautifying your R code. - - -- Command: ess-electric-brace - '{' '}' The braces automatically indent to the correct position - when typed. - - The following Emacs command are also helpful: - -'RET' -'LFD' - 'newline-and-indent' Insert a newline, and indent the next line. - (Note that most keyboards nowadays do not have a key, - but and 'C-j' are equivalent.) - -'M-;' - 'indent-dwim' Call the comment command you want (Do What I Mean). - -* Menu: - -* Styles:: Changing styles for indentation and alignment - - -File: ess.info, Node: Styles, Up: Indenting - -7.4.1 Changing styles for code indentation and alignment --------------------------------------------------------- - -The combined value of twelve variables (4 of three groups -'ess-indent-*', 'ess-offset-*' and 'ess-align-*') that control -indentation are collectively termed a style. ESS provides several -styles covering the common styles of indentation: 'DEFAULT', 'OWN', -'GNU', 'BSD', 'K&R', 'C++', 'RRR', 'RRR+', 'Rstudio', 'Rstudio-', and -'CLB'. The variable 'ess-style-alist' lists the value of each -indentation variable per style (and its documentation contains more). - - -- Command: ess-set-style - 'C-c C-e C-s' (or 'C-c C-e s') sets the formatting style in this - buffer to be one of the predefined styles, see above. The - 'DEFAULT' style uses the default values for the indenting - variables; The 'OWN' style allows you to use your own private - values of the indentation variable, see below. - - -- User Option: ess-default-style - The default value of 'ess-style'. See the variable - 'ess-style-alist' for how these groups (DEFAULT, OWN, GNU, RRR, - ...) map onto different settings for variables. You can set this - in your Emacs configuration file: - - (setq ess-default-style 'C++) - - -- User Option: ess-style-alist - Predefined formatting styles for ESS code. Values for all groups, - except OWN, are fixed. To change the value of variables in the OWN - group, customize the variable 'ess-own-style-list'. The default - style in use is controlled by 'ess-default-style'. - - The styles 'DEFAULT' and 'OWN' are initially identical. If you wish -to edit some of the default values, set 'ess-default-style' to ''OWN' -and change 'ess-own-style-list'. *Note Customization::, for convenient -ways to set both these variables. - - If you prefer not to use the customization facility, you can change -individual indentation variables within a hook, for example: - - (defun myindent-ess-hook () - (setq ess-indent-level 4)) - (add-hook 'ess-mode-hook 'myindent-ess-hook) - - In the rare case that you'd like to add an entire new indentation -style of your own, copy the definition of 'ess-own-style-list' to a new -variable and ensure that the last line of the ':set' declaration calls -'ess-add-style' with a unique name for your style (e.g. ''MINE'). -Finally, add '(setq ess-default-style 'MINE)' to use your new style. - - -File: ess.info, Node: Other edit buffer commands, Next: Source Files, Prev: Indenting, Up: Editing objects - -7.5 Commands for motion, completion and more -============================================ - -A number of commands are provided to move across function definitions in -the edit buffer: - - -- Command: ess-goto-beginning-of-function-or-para - 'ESC C-a' aka 'C-M-a' If inside a function go to the beginning of - it, otherwise go to the beginning of paragraph. - - -- Command: ess-goto-end-of-function-or-para - 'ESC C-e' aka 'C-M-e' Move point to the end of the function - containing point. - - -- Command: ess-mark-function - 'ESC C-h' aka 'C-M-h' Place point at the beginning of the R - function containing point, and mark at the end. - -Don't forget the usual Emacs commands for moving over balanced -expressions and parentheses: *Note Lists and Sexps: (Emacs)Lists. - - Completion is provided in the edit buffer in a similar fashion to the -process buffer: first indents, and if there is nothing to indent, -completes the object or file name; 'M-?' lists file completions. See -*Note Completion::, for more. - - Finally, 'C-c C-z' ('ess-switch-to-inferior-or-script-buffer') -returns you to the 'iESS' process buffer, if done from a script buffer, -placing point at the end of the buffer. If this is done from the 'iESS' -process buffer, point is taken to the script buffer. - - In addition many commands available in the process buffer are also -available in the script buffer. You can still read help files with 'C-c -C-v', edit another function with 'C-c C-e C-d' and of course 'C-c C-l' -can be used to load a source file into R. - - -File: ess.info, Node: Source Files, Next: Source Directories, Prev: Other edit buffer commands, Up: Editing objects - -7.6 Maintaining R source files -============================== - -Every edit buffer in ESS is associated with a "dump file" on disk. Dump -files are created whenever you type 'C-c C-e C-d' -('ess-dump-object-into-edit-buffer'), and may either be deleted after -use, or kept as a backup file or as a means of keeping several versions -of an R function. - - -- User Option: ess-delete-dump-files - If non-'nil', dump files created with C-c C-e C-d are deleted - immediately after they are created by the ess-process. - - Since immediately after R dumps an object's definition to a disk file -the source code on disk corresponds exactly to R's idea of the object's -definition, the disk file isn't needed; deleting it now has the -advantage that if you _don't_ modify the file (say, because you just -wanted to look at the definition of one of the standard R functions) the -source dump file won't be left around when you kill the buffer. Note -that this variable only applies to files generated with R's 'dump' -function; it doesn't apply to source files which already exist. The -default value is 't'. - - -- User Option: ess-keep-dump-files - Variable controlling whether to delete dump files after a - successful load. If 'nil': always delete. If 'ask', confirm to - delete. If 'check', confirm to delete, except for files created - with 'ess-dump-object-into-edit-buffer'. Anything else, never - delete. This variable only affects the behaviour of - 'ess-load-file'. Dump files are never deleted if an error occurs - during the load. - - After an object has been successfully (without error) loaded back -into R with 'C-c C-l', the disk file again corresponds exactly (well, -almost -- see below) to R's record of the object's definition, and so -some people prefer to delete the disk file rather than unnecessarily use -up space. This option allows you to do just that. - - If the value of 'ess-keep-dump-files' is 't', dump files are never -deleted after they are loaded. Thus you can maintain a complete text -record of the functions you have edited within ESS. Backup files are -kept as usual, and so by using the Emacs numbered backup facility -- -*note Single or Numbered Backups: (emacs)Backup Names, you can keep a -historic record of function definitions. Another possibility is to -maintain the files with a version-control system such as git *Note -Version Control: (emacs)Version Control. As long as a dump file exists -in the appropriate place for a particular object, editing that object -with 'C-c C-e C-d' finds that file for editing (unless a prefix argument -is given) -- the ESS process is not consulted. Thus you can keep -comments _outside_ the function definition as a means of documentation -that does not clutter the R object itself. Another useful feature is -that you may format the code in any fashion you please without R -re-indenting the code every time you edit it. These features are -particularly useful for project-based work. - - If the value of 'ess-keep-dump-files' is nil, the dump file is always -silently deleted after a successful load with 'C-c C-l'. While this is -useful for files that were created with 'C-c C-e C-d' it also applies to -any other file you load (say, a source file of function definitions), -and so can be dangerous to use unless you are careful. Note that since -'ess-keep-dump-files' is buffer-local, you can make sure particular -files are not deleted by setting it to 't' in the Local Variables -section of the file *Note Local Variables in Files: (emacs)File -Variables. - - A safer option is to set 'ess-keep-dump-files' to 'ask'; this means -that ESS will always ask for confirmation before deleting the file. -Since this can get annoying if you always want to delete dump files -created with 'C-c C-e C-d', but not any other files, setting -'ess-keep-dump-files' to 'check' (the default value) will silently -delete dump files created with 'C-c C-e C-d' in the current Emacs -session, but query for any other file. Note that in any case you will -only be asked for confirmation once per file, and your answer is -remembered for the rest of the Emacs session. - - Note that in all cases, if an error (such as a syntax error) is -detected while loading the file with 'C-c C-l', the dump file is _never_ -deleted. This is so that you can edit the file in a new Emacs session -if you happen to quit Emacs before correcting the error. - - Dump buffers are always autosaved, regardless of the value of -'ess-keep-dump-files'. - - -File: ess.info, Node: Source Directories, Prev: Source Files, Up: Editing objects - -7.7 Names and locations of dump files -===================================== - -Every dump file should be given a unique file name, usually the dumped -object name with some additions. - - -- User Option: ess-dump-filename-template - Template for filenames of dumped objects. '%s' is replaced by the - object name. - -By default, dump file names are the user name, followed by '.' and the -object and ending with '.R'. Thus if user 'joe' dumps the object -'myfun' the dump file will have name 'joe.myfun.R'. The username part -is included to avoid clashes when dumping into a publicly-writable -directory, such as '/tmp'; you may wish to remove this part if you are -dumping into a directory owned by you. - - You may also specify the directory in which dump files are written: - - -- User Option: ess-source-directory - Directory name (ending in a slash) where R dump files are to be - written. - - By default, dump files are always written to '/tmp', which is fine -when 'ess-keep-dump-files' is 'nil'. If you are keeping dump files, -then you will probably want to keep them somewhere in your home -directory, say '~/R-source'. This could be achieved by including the -following line in your Emacs configuration file: - (setq ess-source-directory (expand-file-name "~/R-source/")) - - If you would prefer to keep your dump files in separate directories -depending on the value of some variable, ESS provides a facility for -this also. By setting 'ess-source-directory' to a lambda expression -which evaluates to a directory name, you have a great deal of -flexibility in selecting the directory for a particular source file to -appear in. The lambda expression is evaluated with the process buffer -as the current buffer and so you can use the variables local to that -buffer to make your choice. For example, the following expression -causes source files to be saved in the subdirectory 'Src' of the -directory the ESS process was run in. - - (setq ess-source-directory - (lambda () - (concat ess-directory "Src/"))) - -('ess-directory' is a buffer-local variable in process buffers which -records the directory the ESS process was run from.) This is useful if -you keep your dump files and you often edit objects with the same name -in different ESS processes. Alternatively, if you often change your R -working directory during an R session, you may like to keep dump files -in some subdirectory of the directory pointed to by the first element of -the current search list. This way you can edit objects of the same name -in different directories during the one R session: - (setq ess-source-directory - (lambda () - (file-name-as-directory - (expand-file-name (concat - (car ess-search-list) - "/.Src"))))) - - If the directory generated by the lambda function does not exist but -can be created, you will be asked whether you wish to create the -directory. If you choose not to, or the directory cannot be created, -you will not be able to edit functions. - - -File: ess.info, Node: Help, Next: Completion, Prev: Editing objects, Up: Top - -8 Reading help files -******************** - -ESS provides an easy-to-use facility for reading R help files from -within Emacs. From within the ESS process buffer or any ESS edit -buffer, typing 'C-c C-v' ('ess-display-help-on-object') will prompt you -for the name of an object for which you would like documentation. -Completion is provided over all objects which have help files. - - If the requested object has documentation, you will be popped into a -buffer (named '*help(OBJ-NAME)*') containing the help file. This buffer -is placed in a special ESS help mode which disables the usual editing -commands but which provides a number of keys for paging through the help -file. - - Help commands: - -'?' - 'ess-describe-help-mode' Pops up a help buffer with a list of the - commands available in R help mode. - -'h' - 'ess-display-help-on-object' Pop up a help buffer for a different - object. - - Paging commands: - -'DEL' - 'scroll-down-command' Move one screen backwards through the help - file. - -'SPC' - 'scroll-up-command' Move one screen forwards through the help file. - -'>' -'<' - 'end/beginning-of-buffer' Move to the end or beginning of the help - file, respectively. - - Section-based motion commands: - -'n' -'p' - 'ess-skip-to-previous-section' and 'ess-skip-to-next-section' Move - to the next and previous section header in the help file, - respectively. A section header consists of a number of capitalized - words, followed by a colon. - - In addition, the 's' key followed by one of the following letters -will jump to a particular section in the help file. Note that the exact -headings available and capitalization scheme may vary across languages. - - You may use 's ?' to get the current list of active key bindings. - -'a' - Arguments: - -'b' - Background: - -'B' - Bugs: - -'d' - Description: - -'D' - Details: - -'e' - Examples: - -'n' - Note: - -'O' - Optional Arguments: - -'R' - Required Arguments: - -'r' - References: - -'s' - See Also: - -'S' - Side Effects: - -'u' - Usage: - -'v' - Value: - -'?' - Pops up a help buffer with a list of the defined section motion - keys. - - Evaluation: - -'l' - 'ess-eval-line-and-step' Evaluates the current line in the ESS - process, and moves to the next line. Useful for running examples - in help files. - -'r' - 'ess-eval-region' Send the contents of the current region to the - ESS process. Useful for running examples in help files. - - Quit commands: - -'q' - 'ess-help-quit' Return to previously selected buffer, and bury the - help buffer. - -'k' - 'kill-buffer' Return to previously selected buffer, and kills the - help buffer. - -'x' - 'ess-kill-buffer-and-go' Return to the ESS process, killing this - help buffer. - - Miscellaneous: - -'i' - 'ess-display-index' Prompt for a package and display it's help - index. - -'v' - 'ess-display-vignettes' Display all available vignettes. - -'w' - 'ess-display-help-in-browser' Display current help page with the - web browser. - -'/' - 'isearch-forward' Same as 'C-s'. - - In addition, all of the ESS commands available in the edit buffers -are also available in R help mode (*note Edit buffer::). Of course, the -usual (non-editing) Emacs commands are available, and for convenience -the digits and <-> act as prefix arguments. - - If a help buffer already exists for an object for which help is -requested, that buffer is popped to immediately; the ESS process is not -consulted at all. If the contents of the help file have changed, you -either need to kill the help buffer first, or pass a prefix argument -(with 'C-u') to 'ess-display-help-on-object'. - - Help buffers are marked as temporary buffers in ESS, and are deleted -when 'ess-quit' or 'ess-cleanup' are called. - - Help buffers normally appear in another window within the current -frame. If you wish help buffers to appear in their own frame (either -one per help buffer, or one for all help buffers), you can customize the -variable 'ess-help-own-frame'. - - -File: ess.info, Node: Completion, Next: Developing with ESS, Prev: Help, Up: Top - -9 Completion -************ - -* Menu: - -* Object names:: -* Function arguments:: -* Minibuffer completion:: -* Auto-complete:: -* Company:: -* Icicles:: - - -File: ess.info, Node: Object names, Next: Function arguments, Up: Completion - -9.1 Completion of object names -============================== - -The key is for completion. The value of the variable -'ess-first-tab-never-complete' controls when completion is allowed -controls when completion is allowed to occur. In 'ess-mode' first -tries to indent, and if there is nothing to indent, complete the object -name instead. - -'TAB' - 'comint-dynamic-complete' Complete the R object name or filename - before point. - - When the cursor is just after a partially-completed object name, -pressing provides completion in a similar fashion to the rest of -Emacs. ESS maintains a list of all objects known to R at any given -time, which basically consists of all objects (functions and datasets) -in every attached directory listed by the 'search()' command along with -the component objects of attached data frames - - For example, consider three functions 'binomplot()', 'binom.test()' -and 'binomial()'. Typing 'bin TAB' will insert the characters 'om', -completing the longest prefix ('binom') which distinguishes these three -commands. Pressing 'TAB' once more provides a list of the three -commands which have this prefix, allowing you to add more characters -(say, '.') which specify the function you desire. After entering more -characters pressing 'TAB' yet again will complete the object name up to -uniqueness, etc. If you just wish to see what completions exist without -adding any extra characters, type 'M-?'. - - -- Command: ess-list-object-completions - 'M-?' List all possible completions of the object name at point. - - ESS also provides completion over the components of named lists and -environments (after '$'), S4 classes slots (after @), package and -namespace objects (after :: and :::). - - Completion is also provided over file names, which is particularly -useful when using R functions such as 'get()' or 'scan()' which require -fully expanded file names. - - In the iESS buffer, if the cursor is not in a string and does not -follow a (partial) object name, the key has a third use: it -expands history references. *Note History expansion::. - - Efficiency in completion is gained by maintaining a cache of objects -currently known to R; when a new object becomes available or is deleted, -only one component of the cache corresponding to the associated -directory needs to be refreshed. If ESS ever becomes confused about -what objects are available for completion (such as when if refuses to -complete an object you *know* is there), the command 'M-x ess-resynch' -forces the _entire_ cache to be refreshed, which should fix the problem. - - -File: ess.info, Node: Function arguments, Next: Minibuffer completion, Prev: Object names, Up: Completion - -9.2 Completion of function arguments -==================================== - -When inside a function call (i.e. following ''(''), 'TAB' completion -also provides function arguments. If function is a generic, completion -will provide all the arguments of 'S3' methods known to 'R'. - - A related functionality is *Note ESS ElDoc::, which displays function -arguments in the echo area whenever the point is inside a function call. - - -File: ess.info, Node: Minibuffer completion, Next: Auto-complete, Prev: Function arguments, Up: Completion - -9.3 Minibuffer completion -========================= - -ESS uses 'IDO' mechanism (part of default Emacs) for minibuffer -completion if the 'ido' package is available and the value of -'ess-use-ido' it 't' (the default). The completion command -'ess-completing-read' falls back on classic 'completion-read' interface -if this feature is not available for whatever reason. - - -File: ess.info, Node: Auto-complete, Next: Company, Prev: Minibuffer completion, Up: Completion - -9.4 Integration with auto-complete package -========================================== - -ESS provides three sources for 'Auto Completion' mode: -'ac-source-R-args', 'ac-source-R-objects' and 'ac-source-R'. The last -one combines the previous two and makes them play nicely together. See -auto-complete package documentation -() for how to modify and -install your own completion sources. - - For the default auto-complete ESS configuration, install the latest -version of 'auto-complete' package. ESS automatically detect the -package and activates auto-complete in ESS buffers. - - To deactivate AC, place the following into your init file: - - (setq ess-use-auto-complete nil) - - Or, to activate auto-completion only in the 'ess-mode' buffers: - - (setq ess-use-auto-complete 'script-only) - - ESS provides AC help both for arguments and objects (default keys -'C-?' or ''). You can bind 'M-h' to display quick help pop-ups: - - (define-key ac-completing-map (kbd "M-h") 'ac-quick-help) - - 'AC' binds 'M-n', and 'M-p' for the navigation in the completion -menu, which might be inconvenient if you want it to use in the inferior -R. Bind it to something else: - - (define-key ac-completing-map "\M-n" nil) ;; was ac-next - (define-key ac-completing-map "\M-p" nil) ;; was ac-previous - (define-key ac-completing-map "\M-," 'ac-next) - (define-key ac-completing-map "\M-k" 'ac-previous) - - -File: ess.info, Node: Company, Next: Icicles, Prev: Auto-complete, Up: Completion - -9.5 Company -=========== - -Another popular package for completion is company, short for complete -anything. ESS provides support for company out-of-the-box. To disable -company support, set 'ess-use-company' to 'nil'. You can set it to -''script-only' to only activate company in R scripts. - - -File: ess.info, Node: Icicles, Prev: Company, Up: Completion - -9.6 Icicles -=========== - -Another option for comprehensively handling completion in Emacs is via -Icicles (). It allows users to -have completions shown temporarily in the standard '*Completions*' -buffer, and interactively select completion candidates using several -methods. As of version 2013.04.04, Icicles provides support for -completion in ESS. Please consult Icicles documentation, which is easily -accessible via 'customize-group Icicles', for more details on -installation and customization options. - - Once installed, Icicles can be activated by evaluating): - - (require 'icicles) - (icy-mode 1) - - Icicles can be toggled by typing 'M-x icy'. - - When Icicles is on, 'TAB' offers completion, provided the conditions -determined by 'ess-first-tab-never-complete' allow it. Typing 'M-TAB' -will attempt completion regardless. Typing 'M-?' in 'ESS' or 'iESS' -modes brings up the relevant completion candidates from which to choose. -Minibuffer input filters the available candidates. Use 'TAB' for prefix -completion or 'S-TAB' for substring or regexp completion. Use 'S-SPC' -to match an additional pattern (repeatable). You can cycle among the -matching candidates, choosing with 'RET' or 'mouse-2'. - - -File: ess.info, Node: Developing with ESS, Next: Extras, Prev: Completion, Up: Top - -10 Developing with ESS -********************** - -ESS provides several tools to help you with the development of your R -packages: - -* Menu: - -* ESS tracebug:: Visual debugging, breakpoints, tracing, watch etc. -* Editing documentation:: Tools to edit R documentation -* Namespaced Evaluation:: Develop your packages on the fly - - -File: ess.info, Node: ESS tracebug, Next: Editing documentation, Up: Developing with ESS - -10.1 ESS tracebug -================= - -* Menu: - -* Getting started with tracebug:: Quick tutorial - -ESS 'tracebug' offers visual debugging, interactive error navigation, -interactive backtrace, breakpoint manipulation, control over R error -actions, watch window and interactive flagging/unflagging of functions -for debugging. - - 'ess-tracebug' is on by default. You can toggle it on and off with -'M-x' 'ess-tracebug'. To disable startup activation of 'ess-tracebug' -set 'ess-use-tracebug' to nil. - - Tracebug functionality can be found on 'ess-dev-map', bound to 'C-c -C-t'. Additionally, when subprocess is in a debugging state -'ess-debug-minor-mode' is active and the following additional shortcuts -are available: - -* Interactive Debugging (`ess-debug-minor-mode-map'): - - M-C . Continue . `ess-debug-command-continue' - M-C-C . Continue multi . `ess-debug-command-continue-multi' - M-N . Next step . `ess-debug-command-next' - M-C-N . Next step multi . `ess-debug-command-next-multi' - M-U . Up frame . `ess-debug-command-up' - M-Q . Quit debugging . `ess-debug-command-quit' - - - These are all the tracebug commands defined in 'ess-dev-map' ('C-c -C-t ?' to show this table): - - -* Breakpoints (`ess-dev-map'): - - b . Set BP (repeat to cycle BP type) . `ess-bp-set' - B . Set conditional BP . `ess-bp-set-conditional' - k . Kill BP . `ess-bp-kil' - K . Kill all BPs . `ess-bp-kill-all' - o . Toggle BP state . `ess-bp-toggle-state' - l . Set logger BP . `ess-bp-set-logger' - n . Goto next BP . `ess-bp-next' - p . Goto previous BP . `ess-bp-previous' - - (C- prefixed equivalents are also defined) - -* Debugging (`ess-dev-map'): - ` . Show traceback . `ess-show-traceback' (also on C-c `) - ~ . Show callstack . `ess-show-call-stack' (also on C-c ~) - e . Toggle error action (repeat to cycle). `ess-debug-toggle-error-action' - d . Flag for debugging . `ess-debug-flag-for-debugging' - u . Unflag for debugging . `ess-debug-unflag-for-debugging' - w . Watch window . `ess-watch' - - (C- prefixed equivalents are also defined) - -* Navigation to errors (general Emacs functionality): - - C-x `, M-g n . `next-error' - M-g p . `previous-error' - -* Misc: - -? . Show this help . `ess-tracebug-show-help' - - - To configure how electric watch window splits the display see -'ess-watch-width-threshold' and 'ess-watch-height-threshold' variables. - - _Note:_ Currently, ess-tracebug does not detect some of R's debug -related messages in non-English locales. To set your R messages to -English add the following line to your .Rprofile init file: - - Sys.setlocale("LC_MESSAGES", "C") - - -File: ess.info, Node: Getting started with tracebug, Up: ESS tracebug - -10.1.1 Getting started with tracebug ------------------------------------- - -Consider a buffer with the following function: - -test <- function(x){ - mean(x), -} - - Evaluating the function (e.g. 'C-c C-c') results in an error about -an unexpected comma. You can use 'next-error' (bound by default to 'C-x -`', 'M-g n', and 'M-g M-n') to jump to the place where the error -occurred. Alternatively, use the mouse to click on the error to jump to -where it occurred. - - Correct the error by deleting the comma. Now put point on 'mean' and -set the breakpoint using 'C-c C-t b' ('ess-bp-set') and reevaluate the -function. Jump to the inferior buffer (possibly using 'C-c C-z') and -evaluate 'test(1:10)'. An interactive debug process starts, stopping at -the breakpoint we just specified. Here you can debug your function -(what is 'x' at this point?). Use 'M-N' to continue. - - Let's replace our test function with one slightly more complicated: - -test <- function(x){ - x <- x + 1 - y <- mean(x) - x <- ifelse(x > 5, x, x - 100) - list(x, y) -} - - Try setting multiple breakpoints. You can unset a breakpoint by -killing it with 'C-c C-t k'. You can set conditional breakpoints too. -Try setting one by placing point on the line 'x <- x + 1' and doing 'C-c -C-t B'. ESS will ask for the condition. Let's set it to -'!is.numeric(x)'. After re-evaluating 'test', try calling 'test(1:100)' -and 'test('foo')'. - - You can remove all breakpoints with 'C-c C-t K'. - - You can flag a function for debugging (similar to calling -'debug(test)' at R's prompt) by doing 'C-c C-t d'. Try this yourself by -putting point over 'test' and doing 'C-c C-t d'. - - If an error occurs, you can get the complete call stack by doing 'C-c -`' or 'C-c C-t `' ('ess-show-traceback'). - - Tracebug also offers a watch window where you can watch values of -objects. Open it with 'C-c C-t w' ('ess-watch'). Initially you aren't -watching anything. Add something with 'a' (e.g. 'a test'). The watch -window displays what the object is at any given time and automatically -updates. Quit the watch window with 'q'. - - -File: ess.info, Node: Editing documentation, Next: Namespaced Evaluation, Prev: ESS tracebug, Up: Developing with ESS - -10.2 Editing documentation -========================== - -ESS provides two ways of writing documentation for R objects. Either -using the standard R documentation system or using in-source -documentation written as structured comment fields for use with the -Roxygen package. - -* Menu: - -* R documentation files:: Edit objects in a specialized buffer -* Roxygen:: Loading source files into the ESS process - - -File: ess.info, Node: R documentation files, Next: Roxygen, Up: Editing documentation - -10.2.1 Editing R documentation (Rd) files ------------------------------------------ - -R objects are documented in files written in the "R documentation" -("Rd"), a simple markup language closely resembling (La)TeX, which can -be processed into a variety of formats, including LaTeX, HTML, and plain -text. Rd format is described in section "Rd format" of the "Writing R -Extensions" manual in the R distribution. ESS has several features that -facilitate editing Rd files. - - Visiting an Rd file as characterized by its extension 'Rd' will -activate Rd Mode, which provides several facilities for making editing R -documentation files more convenient, by helping with indentation, -insertions, even doing some of the typing for you (with Abbrev Mode), -and by showing Rd keywords, strings, etc. in different faces (with Font -Lock Mode). - - Note that R also accepts Rd files with extension 'rd'; to activate -ESS[Rd] support for this extension, you may need to add - - (add-to-list 'auto-mode-alist '("\\.rd\\'" . Rd-mode)) - -to one of your Emacs startup files. - - In Rd mode, the following special Emacs commands can be used in -addition to the standard Emacs commands. - -'C-h m' - Describe the features of Rd mode. - -'LFD' -'RET' - Reindent the current line, insert a newline and indent the new line - ('reindent-then-newline-and-indent'). An abbrev before point is - expanded if 'abbrev-mode' is non-'nil'. - -'TAB' - Indent current line based on its contents and on previous lines. - ('indent-according-to-mode'). - -'C-c C-e' - Insert a "skeleton" with Rd markup for at least all mandatory - entries in Rd files ('Rd-mode-insert-skeleton'). Note that many - users might prefer to use the R function 'prompt' on an existing R - object to generate a non-empty Rd "shell" documenting the object - (which already has all information filled in which can be obtained - from the object). - -'C-c C-f' - Insert "font" specifiers for some of the Rd markup commands markup - available for emphasizing or quoting text, including markup for - URLs and email addresses ('Rd-font'). 'C-c C-f' is only a prefix; - see e.g. 'C-c C-f TAB' for the available bindings. Note that - currently, not all of the Rd text markup as described in section - "Marking text" of "Writing R Extensions" can be accessed via 'C-c - C-f'. - -'C-c C-j' - Insert a suitably indented '\item{' on the next line - ('Rd-mode-insert-item'). - -'C-c C-p' - Preview a plain text version ("help file", *note Help::) generated - from the Rd file ('Rd-preview-help'). - - In addition, when editing Rd files one can interact with a running R -process in a similar way as when editing R language files. For example, -'C-c C-v' provides access to on-line help, and 'C-c C-n' sends the -current line to the R process for evaluation. This interaction is -particularly useful when editing the examples in the Rd file. See 'C-h -m' for all available commands. - - Rd mode also provides access to abbreviations for most of the Rd -markup commands. Type 'M-x list-abbrevs' with Abbrev mode turned on to -list all available abbrevs. Note that all Rd abbrevs start with a grave -accent. - - Rd mode can be customized via the following variables. - - -- User Option: Rd-mode-hook - Hook to be run when Rd mode is entered. - - -- User Option: Rd-indent-level - The indentation of Rd code with respect to containing blocks. - Default is 2. - - -- User Option: Rd-to-help-command - The shell command used for converting Rd source to help text. - Default is 'R CMD Rd2txt'. - - To automatically turn on the abbrev and font-lock features of Rd -mode, add the following lines to one of your Emacs startup files: - - (add-hook 'Rd-mode-hook - (lambda () - (abbrev-mode 1) - (font-lock-mode 1))) - - -File: ess.info, Node: Roxygen, Prev: R documentation files, Up: Editing documentation - -10.2.2 Editing Roxygen documentation ------------------------------------- - -The Roxygen R package makes it possible to keep the intended contents -for Rd files as structured comments in the R source files. Roxygen can -then parse R files and generate appropriate Rd files from these -comments, fill the usage fields as well as updating 'NAMESPACE' files. -See the Roxygen documentation found via for more -information on its usage. An example of an Roxygen entry for a simple R -function can look like this: - - ##' Description of the function - ##' - ##' Further details about this function - ##' @title A title - ##' @param me all parameters must be listed and documented - ##' @return Description of the return value - ##' @author The author - myfun <- function(me) - cat("Hello", me, "\n") - The entry is immediately preceding the object to document and all -lines start with the Roxygen prefix string, in this case '##''. ESS -provides support to edit these documentation entries by providing line -filling, navigation, template generation etc. Syntax highlighting is -provided for Emacs but not for XEmacs. - - Roxygen is customized by the variables in the customization group -"Ess Roxy". Customizables include the Roxygen prefix, use of folding to -toggle visibility of Roxygen entries and the Roxygen template. - - All ESS Roxygen support is defined in 'ess-roxy.el' which is loaded -by default in ESS. The following special Emacs commands are provided. - - -- Command: ess-roxy-update-entry - 'C-c C-o C-o' Generate a Roxygen template or update the parameter - list in Roxygen entry at point (or above the function at the - point). Documented parameters that are not in the function are - placed last in the list, parameters that are not documented and not - in the definition are dropped. Parameter descriptions are filled - if 'ess-roxy-fill-param-p' is non-nil. - - -- Command: ess-roxy-toggle-roxy-region BEG END - 'C-c C-o C-c' Toggle the presence of the leading Roxygen string on - all lines in the marked region (between BEG and END. Convenient - for transferring text to Roxygen entries and to evaluate example - fields. - - -- Command: ess-roxy-preview-Rd NAME-FILE - 'C-c C-o C-r' Use the attached R process to parse the entry at - point to obtain the Rd code. Convenient for previewing and - checking syntax. When used with the prefix argument NAME-FILE, - i.e. 'C-u C-c C-e C-r', place the content in a buffer associated - with a Rd file with the same name as the documentation. Requires - the Roxygen package to be installed. - - -- Command: ess-roxy-preview-HTML VISIT-INSTEAD-OF-OPEN - 'C-c C-o C-t' Use the attached R process to parse the entry at to - generate HTML for the entry and open it in a browser. When used - with the prefix argument VISIT-INSTEAD-OF-OPEN, i.e. 'C-u C-c C-e - C-t', visit the generated HTML file instead. Requires the Roxygen - and tools packages to be installed. - - -- Command: ess-roxy-previous-entry - 'C-c C-o p' Go to start of the Roxygen entry above point. - - -- Command: ess-roxy-next-entry - 'C-c C-o n' Go to end of the Roxygen entry above point. - - -- Command: ess-roxy-hide-all - 'C-c C-o C-h' Use the hideshow mode to fold away the visibility of - all Roxygen entries. Hide-show support must be enabled for this - binding to get defined. - - ESS also advises the following standard editing functions in order to -make Roxygen editing more intuitive: - -'TAB' - 'ess-R-complete-object-name' Complete Roxygen tag at point. E.g. - doing 'TAB' when the point is at the end of '@par' completes to - '@param'. - -'M-h' - 'mark-paragraph' If the transient mark mode is active, place mark - and point at start end end of the field at point and activate the - mark. - -'TAB' - 'ess-indent-command' If hide-show support is enabled, fold away the - visibility of the Roxygen entry at point. - -'M-q' - 'fill-paragraph' Fill the Roxygen field at point. - -'C-a' - 'move-beginning-of-line' Move to the point directly to the right of - the Roxygen start string. - -'RET' - 'newline-and-indent' Insert a new line and the Roxygen prefix - string. - - -File: ess.info, Node: Namespaced Evaluation, Prev: Editing documentation, Up: Developing with ESS - -10.3 Namespaced Evaluation -========================== - -In non package files evaluation commands, *Note Evaluating code::, send -portions of the current buffer environment ('R_GlobalEnv'. When -developing packages, ESS sends code to the corresponding package -namespace and (for visible objects) into package environment (visible on -search path). All objects that are assigned are displayed in the -minibuffer alongside the environment in which they are assigned. - - Here is a short overview of how namespace and package environments -work in R. All objects defined in a package 'foo' are stored in an -environment called 'namespace:foo'. Parent environment of -'namespace:foo' is an environment 'imports:foo' which contains copies of -all objects from other packages which 'foo' imports. Parent environment -of 'imports:foo' is the 'namespace:base'. Parent environment of -'namespace:base' is .GlobalEnv. Thus functions and methods stored in -'namespace:foo' see all the objects in .GlobalEnv unless shadowed by -objects in 'imports:foo', 'namespace:base', or 'namespace:foo' itself. -There is another environment associated with 'foo' - 'package:foo'. -This environment stores *copies* of exported objects from -'namespace:foo' and is placed on the search() path, i.e. if 'foo' is -loaded and if you start with .GlobalEnv and iteratively call -parent.env() you will get eventually to 'package:foo'. Thus all methods -and functions defined in .GlobalEnv can "see" objects in 'package:foo' -environment. See also -. - - Occasionally you want to evaluate into a package from a non-package -file, or the other way around, evaluate into 'GlobalEnv' from inside a -package. In such cases 'C-c C-t C-s' is your friend. - - -- Command: ess-r-set-evaluation-env ARG - 'C-c C-t C-s' Set or unset the current evaluation environment (a - package). - - -File: ess.info, Node: Extras, Next: ESS for R, Prev: Developing with ESS, Up: Top - -11 Other ESS features and tools -******************************* - -ESS has a few extra features, which didn't fit anywhere else. -* Menu: - -* ESS ElDoc:: Display function arguments in minibuffer -* ESS Flymake:: On-the-fly syntax checking -* Handy commands:: Usefully commands at your fingertips -* Highlighting:: Syntactic highlighting of buffers -* Parens:: Parenthesis matching -* Graphics:: Using graphics with ESS -* Imenu:: Support for Imenu in ESS -* Toolbar:: Support for toolbar in ESS -* Xref:: Xref -* Rdired:: Directory editor for R objects -* Rutils:: R object/package management and help utilities -* Org:: Interaction with Org mode -* Sweave and AUCTeX:: Support for Sweave in ESS and AUCTeX - - -File: ess.info, Node: ESS ElDoc, Next: ESS Flymake, Up: Extras - -11.1 ElDoc -========== - -In 'ElDoc' mode, the echo area displays function's arguments at point. -ElDoc is active by default in 'ess-mode' and 'inferior-ess-mode' -buffers. To activate it only in 'ess-mode' buffers, place the following -into your init file: - - (setq ess-use-eldoc 'script-only) - - -- User Option: ess-use-eldoc - If 't', activate eldoc in ess-mode and inferior-ess-mode buffers. - If ''script-only' activate in ess-mode buffers only. Set - 'ess-use-eldoc' to 'nil' to stop using 'ElDoc' altogether. - - -- User Option: ess-eldoc-show-on-symbol - This variable controls whether the help is shown only inside - function calls. If set to 't', 'ElDoc' shows help string whenever - the point is on a symbol, otherwise (the default), shows only when - the point is in a function call, i.e. after ''(''. - - -- User Option: ess-eldoc-abbreviation-style - The variable determines how the doc string should be abbreviated to - fit into minibuffer. Posible values are 'nil', 'mild', 'normal', - 'strong' and 'aggressive'. Please see the documentation of the - variable for more details. The default filter is 'normal'. - - Ess-eldoc also honors the value of 'eldoc-echo-area-use-multiline-p', -which if set to 'nil', will cause the truncation of doc string -indifferent of the value of 'ess-eldoc-abbreviation-style'. This way -you can combine different filter levels with the truncation. - - -File: ess.info, Node: ESS Flymake, Next: Handy commands, Prev: ESS ElDoc, Up: Extras - -11.2 Flymake -============ - -The minor mode 'flymake-mode' provides on-the-fly syntax checking. ESS -provides support for flymake in R-mode in Emacs versions 26 and newer. -It is enabled by default, to disable it you may set 'ess-use-flymake' to -'nil'. In order to use it, you may need to install the 'lintr' R -package, available from CRAN. - - -- User Option: ess-use-flymake - When non-nil, use flymake. If ''process', only use flymake when - the buffer has an inferior process running. - - -- User Option: ess-r-flymake-linters - This variable describes the linters to use. It can either be a - string with an R expression to be used as-is or a list of strings - where each element is passed to 'lintr::with_defaults'. See the - help page for 'lintr::default_linters' for information on available - linters and their defaults. - - -- User Option: ess-r-flymake-lintr-cache - When 't' (the default), lintr uses a cache. Change to 'nil' to - disable lintr's caching mechanism. - - -File: ess.info, Node: Handy commands, Next: Highlighting, Prev: ESS Flymake, Up: Extras - -11.3 Handy commands -=================== - - -- Command: ess-handy-commands - Request and execute a command from 'ess-handy-commands' list. - - -- User Option: ess-handy-commands - An alist of custom ESS commands available for call by - 'ess-handy-commands' and 'ess-smart-comma' function. - - Currently contains: - - change-directory - 'ess-change-directory' - help-index - 'ess-display-index' - help-object - 'ess-display-help-on-object' - vignettes - 'ess-display-vignettes' - objects[ls] - 'ess-execute-objects' - search - 'ess-execute-search' - set-width - 'ess-execute-screen-options' - install.packages - 'ess-install.packages' - library - 'ess-library' - setRepos - 'ess-setRepositories' - sos - 'ess-sos' - - Handy commands: 'ess-library', 'ess-install.packages', etc - ask for -item with completion and execute the correspond command. 'ess-sos' is a -interface to 'findFn' function in package 'sos'. If package 'sos' is -not found, ask user for interactive install. - - -File: ess.info, Node: Highlighting, Next: Parens, Prev: Handy commands, Up: Extras - -11.4 Syntactic highlighting of buffers -====================================== - -ESS provides Font-Lock (*note Using Multiple Typefaces: (emacs)Faces.) -patterns for inferior R Mode, S Mode, and R Transcript Mode buffers. - - The font-lock patterns are defined by the following variables, which -you may modify if desired: - - -- User Option: inferior-R-font-lock-keywords - Font-lock patterns for inferior *R* processes. (There is a - corresponding 'inferior-S-font-lock-keywords' for *S* processes.) - The default value highlights prompts, inputs, assignments, output - messages, vector and matrix labels, and literals such as 'NA' and - 'TRUE'. - - -- User Option: ess-R-font-lock-keywords - Font-lock patterns for ESS R programming mode. (There is a - corresponding 'ess-S-font-lock-keywords' for S buffers.) The - default value highlights function names, literals, assignments, - source functions and reserved words. - - -File: ess.info, Node: Parens, Next: Graphics, Prev: Highlighting, Up: Extras - -11.5 Parenthesis matching -========================= - -Emacs has facilities for highlighting the parenthesis matching the -parenthesis at point. This feature is very useful when trying to -examine which parentheses match each other. This highlighting also -indicates when parentheses are not matching. You may activate it -putting this in your Emacs configuration file: - - (show-paren-mode) - - -File: ess.info, Node: Graphics, Next: Imenu, Prev: Parens, Up: Extras - -11.6 Using graphics with ESS -============================ - -One of the main features of R is its ability to generate high-resolution -graphics plots. When using R in a windowing environment, no additional -configuration is necessary; plots will be shown in a new (non-Emacs) -window. - - If not using a windowing environment or S, ESS provides a number of -features for dealing with such plots. - -* Menu: - -* printer:: The printer() graphics driver -* X11:: The X11() (and other X Windows based) driver -* winjava:: Java Graphics Device - - -File: ess.info, Node: printer, Next: X11, Up: Graphics - -11.6.1 Using ESS with the 'printer()' driver --------------------------------------------- - -This is the simplest (and least desirable) method of using graphics -within ESS. S's 'printer()' device driver produces crude character based -plots which can be contained within the ESS process buffer itself. To -start using character graphics, issue the S command - printer(width=79) - (the 'width=79' argument prevents Emacs line-wrapping at column 80 on -an 80-column terminal. Use a different value for a terminal with a -different number of columns.) Plotting commands do not generate -graphics immediately, but are stored until the 'show()' command is -issued, which displays the current figure. - - -File: ess.info, Node: X11, Next: winjava, Prev: printer, Up: Graphics - -11.6.2 Using ESS with windowing devices ---------------------------------------- - -Of course, the ideal way to use graphics with ESS is to use a windowing -system. Under X Windows, or X11, this requires that the DISPLAY -environment variable be appropriately set. - - -File: ess.info, Node: winjava, Prev: X11, Up: Graphics - -11.6.3 Java Graphics Device ---------------------------- - -S+6.1 and newer on Windows contains a java library that supports -graphics. Send the commands: - - library(winjava) - java.graph() - -to start the graphics driver. This allows you to use ESS for both -interaction and graphics within S-PLUS. (Thanks to Tim Hesterberg for -this information.) - - -File: ess.info, Node: Imenu, Next: Toolbar, Prev: Graphics, Up: Extras - -11.7 Imenu -========== - -Imenu is an Emacs tool for providing mode-specific buffer indexes. In -some of the ESS editing modes (currently SAS and R), support for Imenu -is provided. For example, in R mode buffers, the menubar should display -an item called "Imenu-R". Within this menubar you will then be offered -bookmarks to particular parts of your source file (such as the starting -point of each function definition). - - Imenu works by searching your buffer for lines that match what ESS -thinks is the beginning of a suitable entry, for example the beginning -of a function definition. To examine the regular expression that ESS -uses, check the value of 'imenu-generic-expression'. This value is set -by various ESS variables such as 'ess-imenu-S-generic-expression'. - - -File: ess.info, Node: Toolbar, Next: Xref, Prev: Imenu, Up: Extras - -11.8 Toolbar -============ - -The R and S editing modes have support for a toolbar. This toolbar -provides icons to act as shortcuts for starting new S/R processes, or -for evaluating regions of your source buffers. The toolbar should be -present if your Emacs can display images. *Note Customization::, for -ways to change the toolbar. - - -File: ess.info, Node: Xref, Next: Rdired, Prev: Toolbar, Up: Extras - -11.9 Xref -========= - -Xref is an Emacs interface that supports finding "identifiers," usually -function definitions in ESS's view. ESS ships with support for Xref in -Emacs versions 25.1 and higher. *Note (emacs)Xref:: for how to use this -feature. - - -File: ess.info, Node: Rdired, Next: Rutils, Prev: Xref, Up: Extras - -11.10 Rdired -============ - -Ess-rdired provides a dired-like buffer for viewing, editing and -plotting objects in your current R session. If you are used to using -the dired (directory editor) facility in Emacs, this mode gives you -similar functionality for R objects. - - Start an R session with 'M-x R' and then store a few variables, such -as: - - s <- sin(seq(from=0, to=8*pi, length=100)) - x <- c(1, 4, 9) - y <- rnorm(20) - z <- TRUE - - Then use 'M-x ess-rdired' to create a buffer listing the objects in -your current environment and display it in a new window: - mode length - s numeric 100 - x numeric 3 - y numeric 20 - z logical 1 - - Type 'C-h m' or '?' to get a list of the keybindings for this mode. -For example, with your point on the line of a variable, 'p' will plot -the object, 'v' will view it, and 'd' will mark the object for deletion -('x' will actually perform the deletion). - - -File: ess.info, Node: Rutils, Next: Org, Prev: Rdired, Up: Extras - -11.11 Rutils -============ - -Ess-rutils builds up on ess-rdired, providing key bindings for -performing basic R functions in the inferior-ESS process buffer, such as -loading and managing packages, object manipulation (listing, viewing, -and deleting), and alternatives to 'help.start()' and 'RSiteSearch()' -that use the 'browse-url' Emacs function. The library can be loaded -using 'M-x load-file', but the easiest is to include: - - (require 'ess-rutils) - - in your Emacs configuration file. Once R is started with 'M-x R', -and if the value of the customizable variable 'ess-rutils-keys' is true, -several key bindings become available in iESS process buffers: - - -- Command: ess-rutils-local-pkgs - 'C-c C-. l' List all packages in all available libraries. - - -- Command: ess-rutils-repos-pkgs - 'C-c C-. r' List available packages from repositories listed by - 'getOptions(``repos'')' in the current R session. - - -- Command: ess-rutils-update-pkgs LIB REPOS - 'C-c C-. u' Update packages in a particular library LIB and - repository REPOS. - - -- Command: ess-rutils-apropos - 'C-c C-. a' Search for a string using apropos. - - -- Command: ess-rutils-rm-all - 'C-c C-. m' Remove all R objects. - - -- Command: ess-rutils-objs - 'C-c C-. o' Manipulate R objects; wrapper for 'ess-rdired'. - - -- Command: ess-rutils-load-wkspc - 'C-c C-. w' Load a workspace file into R. - - -- Command: ess-rutils-save-wkspc - 'C-c C-. s' Save a workspace file. - - -- Command: ess-change-directory - 'C-c C-. d' Change the working directory for the current R session. - - -- Command: ess-rutils-html-docs - 'C-c C-. H' Use 'browse-url' to navigate R html documentation. - - See the submenu 'Rutils' under the iESS menu for alternative access -to these functions. The function 'ess-rutils-rsitesearch' is provided -without a particular key binding. This function is useful in any Emacs -buffer, so can be bound to a user-defined key: - - (eval-after-load "ess-rutils" - '(global-set-key [(control c) (f6)] 'ess-rutils-rsitesearch)) - - Functions for listing objects and packages ('ess-rutils-local-pkgs', -'ess-rutils-repos-pkgs', and 'ess-rutils-objs') show results in a -separate buffer and window, in 'ess-rutils-mode', providing useful key -bindings in this mode (type '?' in this buffer for a description). - - -File: ess.info, Node: Org, Next: Sweave and AUCTeX, Prev: Rutils, Up: Extras - -11.12 Interaction with Org mode -=============================== - -Org-mode () now supports reproducible research and -literate programming in many languages (including R) - see chapter 14 of -the Org manual -(). For ESS -users, this offers a document-based work environment within which to -embed ESS usage. R code lives in code blocks of an Org document, from -which it can be edited in ess-mode, evaluated, extracted ("tangled") to -pure code files. The code can also be exported ("woven") with the -surrounding text to several formats including HTML and LaTeX. Results of -evaluation including figures can be captured in the Org document, and -data can be passed from the Org document (e.g. from a table) to the ESS -R process. (This section contributed by Dan Davison and Eric Schulte.) - - -File: ess.info, Node: Sweave and AUCTeX, Prev: Org, Up: Extras - -11.13 Support for Sweave in ESS and AUCTeX -========================================== - -ESS provides support for writing and processing Sweave -(), building up on Emacs' -ess-noweb-mode for literate programming. When working on an Sweave -document, the following key bindings are available: - - -- Command: ess-swv-weave CHOOSE - 'M-n s' Run Sweave on the current .Rnw file. If CHOOSE is - non-'nil', offer a menu of available weavers. - - -- Command: ess-swv-latex - 'M-n l' Run LaTeX after Sweave'ing. - - -- Command: ess-swv-PS - 'M-n p' Generate and display a postscript file after LaTeX'ing. - - -- Command: ess-swv-PDF PDFLATEX-CMD - 'M-n P' Generate and display a PDF file after LaTeX'ing. Optional - argument PDFLATEX-CMD is the command to use, which by default, is - the command used to generate the PDF file is the first element of - 'ess-swv-pdflatex-commands'. - - -- User Option: ess-swv-pdflatex-commands - Commands used by 'ess-swv-PDF' to run a version of pdflatex; the - first entry is the default command. - - Sweave'ing with 'ess-swv-weave' starts an inferior-ESS process, if -one is not available. Other commands are available from the 'Sweaving, -Tangling, ...' submenu of the Noweb menu. - - AUCTeX () users may prefer to -set the variable 'ess-swv-plug-into-AUCTeX-p' (available from the "ESS -Sweave" customization group) to t. Alternatively, the same can be -achieved by activating the entry "AUCTeX Interface" from the 'Sweaving, -Tangling, ...' submenu, which toggles this variable on or off. When the -interface is activated, new entries for Sweave'ing and LaTeX'ing -thereafter are available from AUCTeX's "Command" menu. Sweave'ing can, -thus, be done by 'C-c C-c Sweave RET' without an inferior-ESS process. -Similarly, LaTeX'ing can be done by 'C-c C-c LaTeXSweave RET'. In both -cases, the process can be monitored with 'C-c C-l' -('TeX-recenter-output-buffer'). Open the viewer with 'C-c C-v' -('TeX-view'), as usual in AUCTeX. - - -File: ess.info, Node: ESS for R, Next: ESS for SAS, Prev: Extras, Up: Top - -12 Overview of ESS features for the S family -******************************************** - -* Menu: - -* ESS(R)--Editing files:: -* iESS(R)--Inferior ESS processes:: -* Philosophies for using ESS(R):: -* Example ESS usage:: - - -File: ess.info, Node: ESS(R)--Editing files, Next: iESS(R)--Inferior ESS processes, Prev: ESS for R, Up: ESS for R - -12.1 ESS[R]-Editing files -========================= - -ESS[R] mode should be automatically turned on when visiting a file -ending with an R or S suffix (*.R, *.S, *.s, etc), which enables the -features discussed previously. Alternatively, type 'M-x R-mode' to put -the current buffer into R mode. However, one will have to start up an -inferior process to take advantage of the interactive features. - - -File: ess.info, Node: iESS(R)--Inferior ESS processes, Next: Philosophies for using ESS(R), Prev: ESS(R)--Editing files, Up: ESS for R - -12.2 iESS[R]-Inferior ESS processes -=================================== - -To start up iESS mode for R, use: - M-x R - M-x S+3 - M-x S4 - M-x S+5 - M-x S+6 - -(for R, S-PLUS 3.x, S4, S+5, S+6 or or S+7, respectively. This assumes -that you have access to each). - - In the case that you wish to pass command line arguments to the -starting R process, call it with the universal prefix. To set command -line arguments that apply to all future iESS sessions, set the variable -'inferior-R-args'. - - Note that R has some extremely useful command line arguments. For -example, '--vanilla' will ensure R starts up without loading in any init -files. - - If you have other versions of R or S available on the system, ESS is -also able to start those versions. How this exactly works depend on -which OS you are using (details below). The general principle, -regardless of OS, is that ESS searches the paths listed in the variable -'exec-path' for R binaries. If ESS cannot find your R binaries, on Unix -you can change the unix environment variable 'PATH', as this variable is -used to set 'exec-path'. - - R on GNU/Linux systems and other Unix-like systems (macOS): If you -have "R-1.8.1" on your 'exec-path', it can be started using 'M-x -R-1.8.1'. By default, ESS will find versions of R beginning "R-1", -"R-2", "R-3", "R-devel", or "R-patched". If your versions of R are -called other names, consider renaming them with a symbolic link or -change the variable 'ess-r-versions'. To see which functions have been -created for starting different versions of R, type 'M-x R-' and then hit -[Tab]. These other versions of R can also be started from the -"ESS->Start Process->Other" menu. - - R on Windows systems: If you have "rw1081" on your 'exec-path', it -can be started using 'M-x rw1081'. By default, ESS will find versions -of R located in directories parallel to the version of R in your 'PATH'. -If your versions of R are called other names, you will need to change -the variable 'ess-rterm-versions'. To see which functions have been -created for starting different versions of R, type 'M-x rw' and then hit -[Tab]. These other versions of R can also be started from the -"ESS->Start Process->Other" menu. - - Once ESS has found these extra versions of R, it will then create a -new function, called 'M-x R-newest', which will call the newest version -of R that it found. (ESS examines the date in the first line of -information from 'R --version' to determine which is newest.) - - S on Unix systems: If you have "Splus7" on your 'exec-path', it can -be started using 'M-x Splus7'. By default, ESS will find all -executables beginning "Splus" on your path. If your versions of S are -called other names, consider renaming them with a symbolic link or -change the variable 'ess-s-versions'. To see which functions have been -created for starting different versions of Splus, type 'M-x Splus' and -then hit [Tab]. These other versions of Splus can also be started from -the "ESS->Start Process->Other" menu. - - A second mechanism is also available for running other versions of -Splus. The variable 'ess-s-versions-list' is a list of lists; each -sublist should be of the form: (DEFUN-NAME PATH ARGS). DEFUN-NAME is the -name of the new emacs function you wish to create to start the new S -process; PATH is the full path to the version of S you want to run; ARGS -is an optional string of command-line arguments to pass to the S -process. Here is an example setting: - (setq ess-s-versions-list - '( ("Splus64" "/usr/local/bin/Splus64") - ("Splus64-j" "/usr/local/bin/Splus64" "-j"))) - which will then allow you to do 'M-x Splus64-j' to start Splus64 with -the corresponding command line arguments. - - If you change the value of either 'ess-r-versions' or -'ess-s-versions-list', you should put them in your Emacs configuration -file before ess-site is loaded, since the new Emacs functions are -created when ESS is loaded. - - Sqpe (S-Plus running inside an Emacs buffer) on Windows systems: If -you have an older version of S-Plus (S-Plus 6.1 for example) on your -system, ir can be started inside an Emacs buffer with 'M-x splus61'. By -default, ESS will find versions of S-Plus located in the installation -directories that Insightful uses by default. If your versions of S-Plus -are anywhere else, you will need to change the variable -'ess-SHOME-versions'. To see which functions have been created for -starting different versions of S-Plus, type 'M-x spl' and then hit -[Tab]. These other versions of S-Plus can also be started from the -"ESS->Start Process->Other" menu. - - -File: ess.info, Node: Philosophies for using ESS(R), Next: Example ESS usage, Prev: iESS(R)--Inferior ESS processes, Up: ESS for R - -12.3 Philosophies for using ESS[R] -================================== - -There are two philosophies for using ESS. Most modern best practices -prefer the first. ESS is configured for the first, and this is what the -manual focuses on. - - 1: The source code is real. Objects are realizations of the source -code. Source for EVERY user modified object is placed in a particular -directory or directories, for later editing and retrieval. - - 2: R objects are real. Source code is a temporary realization of the -objects. Dumped buffers should not be saved. -_We_strongly_discourage_this_approach_. However, if you insist, add the -following lines to your Emacs configuration file: - (setq ess-keep-dump-files nil) - (setq ess-delete-dump-files t) - (setq ess-mode-silently-save nil) - - -File: ess.info, Node: Example ESS usage, Prev: Philosophies for using ESS(R), Up: ESS for R - -12.4 Example ESS usage -====================== - -We present some basic examples for using ESS to interact with R These -are just a subset of approaches, many better approaches are possible. -Contributions of examples of how you work with ESS are appreciated -(especially since it helps us determine priorities on future -enhancements)! Comments as to what should be happening are prefixed by -"##". - 1: ## Data Analysis Example - ## Load the file you want to work with - C-x C-f myfile.R - - ## Edit as appropriate, then start and switch to an R buffer - C-c C-z - - ## A new buffer *R* will appear. R will have been started - ## in this buffer. The buffer is in iESS [R] mode. - - ## Return to the script (prefix with C-c if you have pressed other keys) - C-z - - ## Send regions, lines, or the entire file contents to R. For regions, - ## highlight a region with keystrokes or mouse and then send with: - C-c C-r - - ## Re-edit myfile.R as necessary to correct any difficulties. Add - ## new commands here. Send them to R by region with C-c C-r, or - ## one line at a time with C-c C-n. - - ## Save the revised myfile.R with C-x C-s. - - ## Save the entire *R* interaction buffer with C-c C-s. You - ## will be prompted for a file name. The recommended name is - ## myfile.Rout. With this suffix, the file will come up in ESS - ## Transcript mode the next time it is accessed from Emacs. - - - - 2: ## Program revision example (source code is real) - - ## Start R in a process buffer (this will be *R*) - M-x R - - ## Load the file you want to work with - C-x C-f myfile.R - - ## edit program, functions, and code in myfile.R, and send revised - ## functions to R when ready with - C-c C-f - ## or highlighted regions with - C-c C-r - ## or individual lines with - C-c C-n - ## or load the entire buffer with - C-c M-l - - ## save the revised myfile.R when you have finished - C-c C-s - - - -File: ess.info, Node: ESS for SAS, Next: ESS for BUGS, Prev: ESS for R, Up: Top - -13 ESS for SAS -************** - -* Menu: - -* ESS(SAS)--Design philosophy:: -* ESS(SAS)--Editing files:: -* ESS(SAS)--TAB key:: -* ESS(SAS)--Batch SAS processes:: -* ESS(SAS)--Function keys for batch processing:: -* iESS(SAS)--Interactive SAS processes:: -* iESS(SAS)--Common problems:: -* ESS(SAS)--Graphics:: -* ESS(SAS)--Windows:: -ESS[SAS] was designed for use with SAS. It is descended from emacs -macros developed by John Sall for editing SAS programs and 'SAS-mode' by -Tom Cook. Those editing features and new advanced features are part of -ESS[SAS]. The user interface of ESS[SAS] has similarities with ESS[S] -and the SAS Display Manager. - - -File: ess.info, Node: ESS(SAS)--Design philosophy, Next: ESS(SAS)--Editing files, Prev: ESS for SAS, Up: ESS for SAS - -13.1 ESS[SAS]-Design philosophy -=============================== - -ESS[SAS] was designed to aid the user in writing and maintaining SAS -programs, such as 'FOO.sas'. Both interactive and batch submission of -SAS programs is supported. - - ESS[SAS] was written with two primary goals. - 1. The emacs text editor provides a powerful and flexible development - environment for programming languages. These features are a boon - to all programmers and, with the help of ESS[SAS], to SAS users as - well. - 2. Although a departure from SAS Display Manager, ESS[SAS] provides - similar key definitions to give novice ESS[SAS] users a head start. - Also, inconvenient SAS Display Manager features, like remote - submission and syntax highlighting, are provided transparently; - appealing to advanced ESS[SAS] users. - - -File: ess.info, Node: ESS(SAS)--Editing files, Next: ESS(SAS)--TAB key, Prev: ESS(SAS)--Design philosophy, Up: ESS for SAS - -13.2 ESS[SAS]-Editing files -=========================== - -ESS[SAS] is the mode for editing SAS language files. This mode handles: - - * proper indenting, generated by both and . - * color and font choices based on syntax. - * ability to save and submit the file you are working on as a batch - SAS process with a single keypress and to continue editing while it - is runs in the background. - * capability of killing the batch SAS process through the '*shell*' - buffer or allow the SAS process to keep on running after you exit - emacs. - * single keypress navigation of '.sas', '.log' and '.lst' files - ('.log' and '.lst' files are refreshed with each keypress). - * ability to send the contents of an entire buffer, a highlighted - region, or a single line to an interactive SAS process. - * ability to switch between processes which would be the target of - the buffer (for the above). - - ESS[SAS] is automatically turned on when editing a file with a '.sas' -suffix (or other extension, if specified via 'auto-mode-alist'). The -function keys can be enabled to use the same function keys that the SAS -Display Manager does. The interactive capabilities of ESS require you -to start an inferior SAS process with 'M-x SAS' (*Note -iESS(SAS)--Interactive SAS processes::.) - - At this writing, the indenting and syntax highlighting are generally -correct. Known issues: for multiple line '*' or '%*' comments, only the -first line is highlighted; for '.log' files, only the first line of a -'NOTE:', 'WARNING:' or 'ERROR:' message is highlighted; unmatched -single/double quotes in 'CARDS' data lines are *NOT* ignored; in an -iterative 'DO' statement, 'TO' and 'BY' are not highlighted. - - -File: ess.info, Node: ESS(SAS)--TAB key, Next: ESS(SAS)--Batch SAS processes, Prev: ESS(SAS)--Editing files, Up: ESS for SAS - -13.3 ESS[SAS]- key -======================= - -Two options. The key is bound by default to 'sas-indent-line'. -This function is used to syntactically indent SAS code so 'PROC' and -'RUN' are in the left margin, other statements are indented -'sas-indent-width' spaces from the margin, continuation lines are -indented 'sas-indent-width' spaces in from the beginning column of that -statement. This is the type of functionality that emacs provides in -most programming language modes. This functionality is activated by -placing the following line in your initialization file prior to a -'require'/'load': - (setq ess-sas-edit-keys-toggle nil) - - ESS provides an alternate behavior for that makes it behave as -it does in SAS Display Manager, i.e. move the cursor to the next stop. -The alternate behavior also provides a "TAB" backwards, 'C-', that -moves the cursor to the stop to the left and deletes any characters -between them. This functionality is obtained by placing the following -line in your initialization file prior to a 'require'/'load': - (setq ess-sas-edit-keys-toggle t) - Under the alternate behavior, is bound to 'M-x tab-to-tab-stop' -and the stops are defined by 'ess-sas-tab-stop-list'. - - -File: ess.info, Node: ESS(SAS)--Batch SAS processes, Next: ESS(SAS)--Function keys for batch processing, Prev: ESS(SAS)--TAB key, Up: ESS for SAS - -13.4 ESS[SAS]-Batch SAS processes -================================= - -Submission of a SAS batch job is dependent on your environment. -'ess-sas-submit-method' is determined by your operating system and your -shell. It defaults to ''sh' unless you are running Windows or Mac -Classic. Under Windows, it will default to ''sh' if you are using a -UNIX-imitating shell; otherwise ''ms-dos' for an MS-DOS shell. On -macOS, it will default to ''sh', but under Mac Classic, it defaults to -''apple-script'. You will also set this to ''sh' if the SAS batch job -needs to run on a remote machine rather than your local machine. This -works transparently if you are editing the remote file via ange-ftp/EFS -or tramp. Note that 'ess-sas-shell-buffer-remote-init' is a Local -Variable that defaults to '"ssh"' which will be used to open the buffer -on the remote host and it is assumed that no password is necessary, i.e. -you are using 'ssh-agent'/'ssh-add' or the equivalent (see the -discussion about Local Variables below if you need to change the -default). - - However, if you are editing the file locally and transferring it back -and forth with Kermit, you need some additional steps. First, start -Kermit locally before remotely logging in. Open a local copy of the -file with the 'ess-kermit-prefix' character prepended (the default is -'"#"'). Execute the command 'M-x ess-kermit-get' which automatically -brings the contents of the remote file into your local copy. If you -transfer files with Kermit manually in a '*shell*' buffer, then note -that the Kermit escape sequence is 'C-q C-\ c' rather than 'C-\ c' which -it would be in an ordinary terminal application, i.e. not in an emacs -buffer. Lastly, note that the remote Kermit command is specified by -'ess-kermit-command'. - - The command used by the 'SUBMIT' function key ( or ) to -submit a batch SAS job, whether local or remote, is -'ess-sas-submit-command' which defaults to 'sas-program'. 'sas-program' -is '"invoke SAS using program file"' for Mac Classic and '"sas"' -otherwise. However, you may have to alter 'ess-sas-submit-command' for -a particular program, so it is defined as buffer-local. Conveniently, -it can be set at the end of the program: - endsas; - Local variables: - ess-sas-submit-command: "sas8" - End: - - The command line is also made of 'ess-sas-submit-pre-command', -'ess-sas-submit-post-command' and 'ess-sas-submit-command-options' (the -last of which is also buffer-local). Here are some examples for your -'~/.emacs' or '~/.xemacs/init.el' file (you may also use -'M-x customize-variable'): - ;'sh default - (setq ess-sas-submit-pre-command "nohup") - ;'sh default - (setq ess-sas-submit-post-command "-rsasuser &") - ;'sh example - (setq-default ess-sas-submit-command "/usr/local/sas/sas") - ;'ms-dos default - (setq ess-sas-submit-pre-command "start") - ;'ms-dos default - (setq ess-sas-submit-post-command "-rsasuser -icon") - ;Windows example - (setq-default ess-sas-submit-command "c:/progra~1/sas/sas.exe") - ;Windows example - (setq-default ess-sas-submit-command "c:\\progra~1\\sas\\sas.exe") - - There is a built-in delay before a batch SAS job is submitted when -using a UNIX-imitating shell under Windows. This is necessary in many -cases since the shell might not be ready to receive a command. This -delay is currently set high enough so as not to be a problem. But, -there may be cases when it needs to be set higher, or could be set much -lower to speed things up. You can over-ride the default in your -'~/.emacs' or '~/.xemacs/init.el' file by: - (setq ess-sleep-for 0.2) - - For example, '(setq ess-sas-global-unix-keys t)' keys shown, '(setq -ess-sas-global-pc-keys t)' in parentheses; ESS[SAS] function keys are -presented in the next section. Open the file you want to work with -'C-x C-f foo.sas'. 'FOO.sas' will be in ESS[SAS] mode. Edit as -appropriate, then save and submit the batch SAS job. - () - The job runs in the '*shell*' buffer while you continue to edit -'FOO.sas'. If 'ess-sas-submit-method' is ''sh', then the message buffer -will display the shell notification when the job is complete. The ''sh' -setting also allows you to terminate the SAS batch job before it is -finished. - () - Terminating a SAS batch in the '*shell*' buffer. - kill PID - You may want to visit the '.log' (whether the job is still running or -it is finished) and check for error messages. The '.log' will be -refreshed and you will be placed in it's buffer. You will be taken to -the first error message, if any. - () - Goto the next error message, if any. - () - Now, 'refresh' the '.lst' and go to it's buffer. - () - If you wish to make changes, go to the '.sas' file with. - () - Make your editing changes and submit again. - () - - -File: ess.info, Node: ESS(SAS)--Function keys for batch processing, Next: iESS(SAS)--Interactive SAS processes, Prev: ESS(SAS)--Batch SAS processes, Up: ESS for SAS - -13.5 ESS[SAS]-Function keys for batch processing -================================================ - -The setup of function keys for SAS batch processing is unavoidably -complex, but the usage of function keys is simple. There are five -distinct options: - - Option 1 (default). Function keys in ESS[SAS] are not bound to elisp -commands. This is in accordance with the GNU Elisp Coding Standards -(GECS) which do not allow function keys to be bound so that they are -available to the user. - - Options 2-5. Since GECS does not allow function keys to be bound by -modes, these keys are often unused. So, ESS[SAS] provides users with -the option of binding elisp commands to these keys. Users who are -familiar with SAS will, most likely, want to duplicate the function key -capabilities of the SAS Display Manager. There are four options (noted -in parentheses). - - a. SAS Display Manager has different function key definitions for UNIX - (2, 4) and Windows (3, 5); ESS[SAS] can use either. - b. The ESS[SAS] function key definitions can be active in all buffers - (global: 4, 5) or limited (local: 2, 3) only to buffers with files - that are associated with ESS[SAS] as specified in your - 'auto-mode-alist'. - - The distinction between local and global is subtle. If you want the -ESS[SAS] definitions to work when you are in the '*shell*' buffer or -when editing files other than the file extensions that ESS[SAS] -recognizes, you will most likely want to use the global definitions. If -you want your function keys to understand SAS batch commands when you -are editing SAS files, and to behave normally when editing other files, -then you will choose the local definitions. The option can be chosen by -the person installing ESS for a site or by an individual. - - a. For a site installation or an individual, place *ONLY ONE* of the - following lines in your initialization file prior to a - 'require'/'load'. ESS[SAS] function keys are available in ESS[SAS] - if you choose either 2 or 3 and in all modes if you choose 4 or 5: - ;;2; (setq ess-sas-local-unix-keys t) - ;;3; (setq ess-sas-local-pc-keys t) - ;;4; (setq ess-sas-global-unix-keys t) - ;;5; (setq ess-sas-global-pc-keys t) - - The names '-unix-' and '-pc-' have nothing to do with the operating - system that you are running. Rather, they mimic the definitions - that the SAS Display Manager uses by default on those platforms. - - b. If your site installation has configured the keys contrary to your - liking, then you must call the appropriate function. - (load "ess-site") ;; local-unix-keys - (ess-sas-global-pc-keys) - - Finally, we get to what the function keys actually do. You may -recognize some of the nicknames as SAS Display Manager commands (they -are in all capitals). - -UNIX PC Nickname - 'refresh' - revert the current buffer with the file of the same name if the file is - newer than the buffer - 'SUBMIT' - save the current '.sas' file (which is either the '.sas' file in the - current buffer or the '.sas' file associated with the '.lst' or '.log' - file in the current buffer) and submit the file as a batch SAS job - 'PROGRAM' - switch buffer to '.sas' file - 'LOG' - switch buffer to '.log' file, 'refresh' and goto next error message, if - any - 'OUTPUT' - switch buffer to '.lst' file and 'refresh' - 'filetype-1' - switch buffer to 'filetype-1' (defaults to '.txt') file and 'refresh' - 'shell' - switch buffer to '*shell*' - 'VIEWTABLE' - open an interactive 'PROC FSEDIT' session on the SAS dataset near point - toggle-log - toggle ESS[SAS] for '.log' files; useful for certain debugging situations - 'filetype-2' - switch buffer to 'filetype-2' (defaults to '.dat') file and 'refresh' - viewgraph - open a 'GSASFILE' near point for viewing either in emacs or with an - external viewer -'C-' 'C-' rtf-portrait - create an MS RTF portrait file from the current buffer with a file - extension of '.rtf' -'C-' 'C-' rtf-landscape - create an MS RTF landscape file from the current buffer with a file - extension of '.rtf' -'C-' 'C-' submit-region - write region to 'ess-temp.sas' and submit -'C-' 'C-' append-to-log - append 'ess-temp.log' to the current '.log' file -'C-' 'C-' append-to-output - append 'ess-temp.lst' to the current '.lst' file -'C-' 'C-' 'INSIGHT' - open an interactive 'PROC INSIGHT' session on the SAS dataset near point -'C-''C-'toggle-listing - toggle ESS[SAS] for '.lst' files; useful for toggling read-only - - 'SUBMIT', 'PROGRAM', 'LOG' and 'OUTPUT' need no further explanation -since they mimic the SAS Display Manager commands and related function -key definitions. However, six other keys have been provided for -convenience and are described below. - - 'shell' switches you to the '*shell*' buffer where you can interact -with your operating system. This is especially helpful if you would -like to kill a SAS batch job. You can specify a different buffer name -to associate with a SAS batch job (besides '*shell*') with the -buffer-local variable 'ess-sas-shell-buffer'. This allows you to have -multiple buffers running SAS batch jobs on multiple local/remote -computers that may rely on different methods specified by the -buffer-local variable 'ess-sas-submit-method'. - - performs the 'refresh' operation on the current buffer. -'refresh' compares the buffer's last modified date/time with the file's -last modified date/time and replaces the buffer with the file if the -file is newer. This is the same operation that is automatically -performed when 'LOG', 'OUTPUT', 'filetype-1' or are pressed. - - 'filetype-1' switches you to a file with the same file name as your -'.sas' file, but with a different extension ('.txt' by default) and -performs 'refresh'. You can over-ride the default extension; for -example in your '~/.emacs' or '~/.xemacs/init.el' file: - (setq ess-sas-suffix-1 "csv") ; for example - - will prompt you for the name of a permanent SAS dataset near -point to be opened for viewing by 'PROC FSEDIT'. You can control the -SAS batch command-line with 'ess-sas-data-view-submit-options'. For -controlling the SAS batch commands, you have the global variables -'ess-sas-data-view-libname' and 'ess-sas-data-view-fsview-command' as -well as the buffer-local variable 'ess-sas-data-view-fsview-statement'. -If you have your SAS 'LIBNAME' defined in '~/autoexec.sas', then the -defaults for these variables should be sufficient. - - Similarly, 'C-' will prompt you for the name of a permanent SAS -dataset near point to be opened for viewing by 'PROC INSIGHT'. You can -control the SAS batch command-line with -'ess-sas-data-view-submit-options'. For controlling the SAS batch -commands, you have the global variables 'ess-sas-data-view-libname' and -'ess-sas-data-view-insight-command' as well as the buffer-local variable -'ess-sas-data-view-insight-statement'. - - toggles ESS[SAS] mode for '.log' files which is off by default -(technically, it is 'SAS-log-mode', but it looks the same). The syntax -highlighting can be helpful in certain debugging situations, but large -'.log' files may take a long time to highlight. - - is the same as 'filetype-1' except it is '.dat' by default. - - will prompt you for the name of a 'GSASFILE' near the point in -'.log' to be opened for viewing either with emacs or with an external -viewer. Depending on your version of emacs and the operating system you -are using, emacs may support '.gif' and '.jpg' files internally. You -may need to change the following variables for your own situation. -'ess-sas-graph-view-suffix-regexp' is a regular expression of supported -file types defined via file name extensions. -'ess-sas-graph-view-viewer-default' is the default external viewer for -your platform. 'ess-sas-graph-view-viewer-alist' is an alist of -exceptions to the default; i.e. file types and their associated viewers -which will be used rather than the default viewer. - (setq ess-sas-graph-view-suffix-regexp (concat "[.]\\([eE]?[pP][sS]\\|" - "[pP][dD][fF]\\|[gG][iI][fF]\\|[jJ][pP][eE]?[gG]\\|" - "[tT][iI][fF][fF]?\\)")) ;; default - (setq ess-sas-graph-view-viewer-default "kodakimg") ;; Windows default - (setq ess-sas-graph-view-viewer-default "sdtimage") ;; Solaris default - (setq ess-sas-graph-view-viewer-alist - '(("[eE]?[pP][sS]" . "gv") ("[pP][dD][fF]" . "gv")) ;; default w/ gv - - 'C-' produces US landscape by default, however, it can produce A4 -landscape (first line for "global" key mapping, second for "local"): - (global-set-key [(control f2)] 'ess-sas-rtf-a4-landscape) - (define-key sas-mode-local-map [(control f2)] 'ess-sas-rtf-a4-landscape) - - -File: ess.info, Node: iESS(SAS)--Interactive SAS processes, Next: iESS(SAS)--Common problems, Prev: ESS(SAS)--Function keys for batch processing, Up: ESS for SAS - -13.6 iESS[SAS]-Interactive SAS processes -======================================== - -Inferior ESS (iESS) is the method for interfacing with interactive -statistical processes (programs). iESS[SAS] is what is needed for -interactive SAS programming. iESS[SAS] works best with the SAS -command-line option settings '"-stdio -linesize 80 -noovp --nosyntaxcheck"' (the default of 'inferior-SAS-args'). - - '-stdio' - required to make the redirection of stdio work - '-linesize 80' - keeps output lines from folding on standard terminals - '-noovp' - prevents error messages from printing 3 times - '-nosyntaxcheck' - permits recovery after syntax errors - - To start up iESS[SAS] mode, use: - M-x SAS - - The '*SAS:1.log*' buffer in 'ESStr' mode corresponds to the file -'FOO.log' in SAS batch usage and to the 'SAS: LOG' window in the SAS -Display Manager. All commands submitted to SAS, informative messages, -warnings, and errors appear here. - - The '*SAS:1.lst*' buffer in 'ESSlst' mode corresponds to the file -'FOO.lst' in SAS batch usage and to the 'SAS: OUTPUT' window in the SAS -Display Manager. All printed output appears in this window. - - The '*SAS:1*' buffer exists solely as a communications buffer. The -user should never use this buffer directly. Files are edited in the -'FOO.sas' buffer. The 'C-c C-r' key in ESS[SAS] is the functional -equivalent of bringing a file into the 'SAS: PROGRAM EDITOR' window -followed by 'SUBMIT'. - - For example, open the file you want to work with. - C-x C-f foo.sas - 'FOO.sas' will be in ESS[SAS] mode. Edit as appropriate, and then -start up SAS with the cursor in the 'FOO.sas' buffer. - M-x SAS - Four buffers will appear on screen: -Buffer Mode Description -'FOO.sas' 'ESS[SAS]' your source file -'*SAS:1*' 'iESS[SAS:1]' iESS communication buffer -'*SAS:1.log*' 'Shell ESStr SAS log information - []' -'*SAS:1.lst*' 'Shell ESSlst SAS listing information - []' - If you would prefer each of the four buffers to appear in its own -individual frame, you can arrange for that. Place the cursor in the -buffer displaying 'FOO.sas'. Enter the sequence 'C-c C-w'. The cursor -will normally be in buffer 'FOO.sas'. If not, put it there and -'C-x b FOO.sas'. - - Send regions, lines, or the entire file contents to SAS (regions are -most useful: a highlighted region will normally begin with the keywords -'DATA' or 'PROC' and end with 'RUN;'), 'C-c C-r'. - - Information appears in the log buffer, analysis results in the -listing buffer. In case of errors, make the corrections in the -'FOO.sas' buffer and resubmit with another 'C-c C-r'. - - At the end of the session you may save the log and listing buffers -with the usual 'C-x C-s' commands. You will be prompted for a file -name. Typically, the names 'FOO.log' and 'FOO.lst' will be used. You -will almost certainly want to edit the saved files before including them -in a report. The files are read-only by default. You can make them -writable by the emacs command 'C-x C-q'. - - At the end of the session, the input file 'FOO.sas' will typically -have been revised. You can save it. It can be used later as the -beginning of another iESS[SAS] session. It can also be used as a batch -input file to SAS. - - The '*SAS:1*' buffer is strictly for ESS use. The user should never -need to read it or write to it. Refer to the '.lst' and '.log' buffers -for monitoring output! - - Troubleshooting: *Note iESS(SAS)--Common problems::. - - -File: ess.info, Node: iESS(SAS)--Common problems, Next: ESS(SAS)--Graphics, Prev: iESS(SAS)--Interactive SAS processes, Up: ESS for SAS - -13.7 iESS[SAS]-Common problems -============================== - - 1. iESS[SAS] does not work on Windows. In order to run SAS inside an - emacs buffer, it is necessary to start SAS with the '-stdio' - option. SAS does not support the '-stdio' option on Windows. - 2. If 'M-x SAS' gives errors upon startup, check the following: - * you are running Windows: see 1. - * 'ess-sas-sh-command' (from the ESS 'etc' directory) needs to - be executable; too check, type 'M-x dired'; if not, fix it as - follows, type 'M-:', then at the minibuffer prompt 'Eval:', - type '(set-file-modes "ess-sas-sh-command" 493)'. - * 'sas' isn't in your executable path; to verify, type 'M-:' and - at the minibuffer prompt 'Eval:', type '(executable-find - "sas")' - 3. 'M-x SAS' starts SAS Display Manager. Probably, the command 'sas' - on your system calls a shell script. In that case you will need to - locate the real 'sas' executable and link to it. You can execute - the UNIX command: - find / -name sas -print - Now place a soft link to the real 'sas' executable in your '~/bin' - directory, with for example - cd ~/bin - ln -s /usr/local/sas9/sas sas - Check your 'PATH' environment variable to confirm that '~/bin' -appears before the directory in which the 'sas' shell script appears. - - -File: ess.info, Node: ESS(SAS)--Graphics, Next: ESS(SAS)--Windows, Prev: iESS(SAS)--Common problems, Up: ESS for SAS - -13.8 ESS[SAS]-Graphics -====================== - -Output from a SAS/GRAPH 'PROC' can be displayed in a SAS/GRAPH window -for SAS batch on Windows or for both SAS batch and interactive with -XWindows on UNIX. If you need to create graphics files and view them -with , then include the following (either in 'FOO.sas' or in -'~/autoexec.sas'): - filename gsasfile 'graphics.ps'; - goptions device=ps gsfname=gsasfile gsfmode=append; - 'PROC PLOT' graphs can be viewed in the listing buffer. You may wish -to control the vertical spacing to allow the entire plot to be visible -on screen, for example: - proc plot; - plot a*b / vpos=25; - run; - - -File: ess.info, Node: ESS(SAS)--Windows, Prev: ESS(SAS)--Graphics, Up: ESS for SAS - -13.9 ESS[SAS]-Windows -===================== - - * iESS[SAS] does not work on Windows. *Note iESS(SAS)--Common - problems::. - - * ESS[SAS] mode for editing SAS language files works very well. - *Note ESS(SAS)--Editing files::. - - * There are two execution options for SAS on Windows. You can use - batch. *Note ESS(SAS)--Batch SAS processes::. - - Or you can mark regions with the mouse and submit the code with - 'submit-region' or paste them into SAS Display Manager. - - -File: ess.info, Node: ESS for BUGS, Next: ESS for JAGS, Prev: ESS for SAS, Up: Top - -14 ESS for BUGS -*************** - -ESS[BUGS] provides 5 features. First, BUGS syntax is described to allow -for proper fontification of statements, distributions, functions, -commands and comments in BUGS model files, command files and log files. -Second, ESS creates templates for the command file from the model file -so that a BUGS batch process can be defined by a single file. Third, -ESS provides a BUGS batch script that allows ESS to set BUGS batch -parameters. Fourth, key sequences are defined to create a command file -and submit a BUGS batch process. Lastly, interactive submission of BUGS -commands is also supported. - -14.1 ESS[BUGS]-Model files -========================== - -Model files with the '.bug' extension are edited in ESS[BUGS] mode. -Three keys are bound for your use in ESS[BUGS], 'F2', 'C-c C-c' and '='. -'F2' performs the same action as it does in ESS[SAS], *Note -ESS(SAS)--Function keys for batch processing::. 'C-c C-c' performs the -function 'ess-bugs-next-action' which you will use a lot. Pressing it -in an empty buffer for a model file will produce a template for you. -'=' inserts the set operator, '<-'. - -14.2 ESS[BUGS]-Command files -============================ - -Files ending in '.bmd' are used for BUGS command files. When you have -finished editing your model file and press 'C-c C-c', a command file is -created if one does not already exist. When you are finished editing -your command file, pressing 'C-c C-c' again will submit your command -file as a batch job. - -14.3 ESS[BUGS]-Log files -======================== - -The '.bog' extension is used for BUGS log files. The command line -generated by ESS creates the '.bog' transcript file. - - -File: ess.info, Node: ESS for JAGS, Next: Mailing lists/bug reports, Prev: ESS for BUGS, Up: Top - -15 ESS for JAGS -*************** - -ESS[JAGS] provides 4 features. First, JAGS syntax is described to allow -for proper fontification of statements, distributions, functions, -commands and comments in JAGS model files, command files and log files. -Second, ESS creates templates for the command file from the model file -so that a JAGS batch process can be defined by a single file. Third, -ESS provides a JAGS batch script that allows ESS to set JAGS batch -parameters. Fourth, key sequences are defined to create a command file -and submit a JAGS batch process. - -15.1 ESS[JAGS]-Model files -========================== - -Files with the '.jag' extension are edited in ESS[JAGS] mode. Three -keys are bound for your use in ESS[JAGS], 'F2', 'C-c C-c' and '='. 'F2' -performs the same action as it does in ESS[SAS], *Note -ESS(SAS)--Function keys for batch processing::. 'C-c C-c' performs the -function 'ess-bugs-next-action' which you will use a lot. Pressing it -in an empty buffer for a model file will produce a template for you. -'=' inserts the set operator, '<-'. - - The first press of 'C-c C-c' will set up a template, including some -necessary file-local variables in an empty buffer. These variables are -'ess-jags-chains', 'ess-jags-monitor', 'ess-jags-thin', -'ess-jags-burnin' and 'ess-jags-update'; they appear in the 'Local -Variables' section. When you are finished editing your model file, -pressing 'C-c C-c' will perform the necessary actions to build your -command file for you. - - The 'ess-jags-chains' variable is the number of chains that you want -to initialize and sample from; defaults to 1. The 'ess-jags-monitor' -variable is a list of variables that you want monitored: encase each -variable in double quotes. When you press 'C-c C-c', the appropriate -statements are created in the command file to monitor the list of -variables. By default, no variables are explicitly monitored which -means JAGS will implicitly monitor all "default" variables. The -'ess-jags-thin' variable is the thinning parameter. By default, the -thinning parameter is set to 1, i.e. no thinning. The -'ess-jags-burnin' variable is the number of initial samples to discard. -By default, the burnin parameter is set to 10000. The 'ess-jags-update' -variable is the number of post-burnin samples to keep. By default, the -update parameter is set to 10000. Both 'ess-jags-burnin' and -'ess-jags-update' are multiplied by 'ess-jags-thin' since JAGS does not -do it automatically. - -15.2 ESS[JAGS]-Command files -============================ - -Files ending in '.jmd' are for JAGS command files. For your '.jmd' -file, there is only one variable, 'ess-jags-command', in the 'Local -Variables' section. When you have finished editing your model file and -press 'C-c C-c', a command file is created if one does not already -exist. When you are finished editing your command file, pressing 'C-c -C-c' again will submit your command file as a batch job. The -'ess-jags-command' variable allows you to specify a different JAGS -program to use to run your model; defaults to "jags". - -15.3 ESS[JAGS]-Log files -======================== - -The '.jog' extension is used for JAGS log files. You may find 'F2' -useful to refresh the '.jog' if the batch process over-writes or appends -it. - - -File: ess.info, Node: Mailing lists/bug reports, Next: Customization, Prev: ESS for JAGS, Up: Top - -16 Bugs and Bug Reporting, Mailing Lists -**************************************** - -* Menu: - -* Bugs:: -* Reporting Bugs:: -* Mailing Lists:: -* Help with Emacs:: - - -File: ess.info, Node: Bugs, Next: Reporting Bugs, Up: Mailing lists/bug reports - -16.1 Bugs -========= - - * Commands like 'ess-display-help-on-object' and list completion - cannot be used while the user is entering a multi-line command. - The only real fix in this situation is to use another ESS process. - - * The 'ess-eval-' commands can leave point in the ESS process buffer - in the wrong place when point is at the same position as the last - process output. This proves difficult to fix, in general, as we - need to consider all _windows_ with 'window-point' at the right - place. - - * It's possible to clear the modification flag (say, by saving the - buffer) with the edit buffer not having been loaded into S. - - * Backup files can sometimes be left behind, even when - 'ess-keep-dump-files' is 'nil'. - - * Passing an incomplete S expression to 'ess-execute' causes ESS to - hang. - - * The function-based commands don't always work as expected on - functions whose body is not a parenthesized or compound expression, - and don't even recognize anonymous functions (i.e. functions not - assigned to any variable). - - * Multi-line commands could be handled better by the command history - mechanism. - - * Changes to the continutation prompt in R (e.g. 'options(continue = - " ")') are not automatically detected by ESS. Hence, for now, the - best thing is not to change the continuation prompt. If you do - change the continuation prompt, you will need to change accordingly - the value of 'inferior-ess-secondary-prompt' in - 'R-customize-alist'. - - -File: ess.info, Node: Reporting Bugs, Next: Mailing Lists, Prev: Bugs, Up: Mailing lists/bug reports - -16.2 Reporting Bugs -=================== - -Please send bug reports, suggestions etc. to , -or post them on our github issue tracker -(https://github.com/emacs-ess/ESS/issues) - - The easiest way to do this is within Emacs by typing - - 'M-x ess-submit-bug-report' - - This also gives the maintainers valuable information about your -installation which may help us to identify or even fix the bug. - - If Emacs reports an error, backtraces can help us debug the problem. -Type "M-x set-variable RET debug-on-error RET t RET". Then run the -command that causes the error and you should see a *Backtrace* buffer -containing debug information; send us that buffer. - - Note that comments, suggestions, words of praise and large cash -donations are also more than welcome. - - -File: ess.info, Node: Mailing Lists, Next: Help with Emacs, Prev: Reporting Bugs, Up: Mailing lists/bug reports - -16.3 Mailing Lists -================== - -There is a mailing list for discussions and announcements relating to -ESS. Join the list by sending an e-mail with "subscribe ess-help" (or -"help") in the body to ; contributions -to the list may be mailed to . Rest assured, -this is a fairly low-volume mailing list. - - The purposes of the mailing list include - - * helping users of ESS to get along with it. - * discussing aspects of using ESS on Emacs and XEmacs. - * suggestions for improvements. - * announcements of new releases of ESS. - * posting small patches to ESS. - - -File: ess.info, Node: Help with Emacs, Prev: Mailing Lists, Up: Mailing lists/bug reports - -16.4 Help with Emacs -==================== - -Emacs is a complex editor with many abilities that we do not have space -to describe here. If you have problems with other features of Emacs -(e.g. printing), there are several sources to consult, including the -Emacs FAQs (try 'M-x view-emacs-faq') and EmacsWiki -(). Please consult them before asking on the -mailing list about issues that are not specific to ESS. - - -File: ess.info, Node: Customization, Next: Indices, Prev: Mailing lists/bug reports, Up: Top - -Appendix A Customizing ESS -************************** - -ESS can be easily customized to your taste simply by including the -appropriate lines in your Emacs configuration file. There are numerous -variables which affect the behavior of ESS in certain situations which -can be modified to your liking. Keybindings may be set or changed to -your preferences, and for per-buffer customizations hooks are also -available. - - Most of these variables can be viewed and set using the Custom -facility within Emacs. Type 'M-x customize-group RET ess RET' to see -all the ESS variables that can be customized. Variables are grouped by -subject to make it easy to find related variables. - - -File: ess.info, Node: Indices, Prev: Customization, Up: Top - -Indices -******* - -* Menu: - -* Key index:: -* Function and program index:: -* Variable index:: -* Concept index:: - - -File: ess.info, Node: Key index, Next: Function and program index, Up: Indices - -Key index -========= - -[index] -* Menu: - -* ,: Handy commands. (line 6) -* {: Indenting. (line 57) -* }: Indenting. (line 57) -* C-c C-. a: Rutils. (line 31) -* C-c C-. d: Rutils. (line 46) -* C-c C-. H: Rutils. (line 49) -* C-c C-. l: Rutils. (line 20) -* C-c C-. m: Rutils. (line 34) -* C-c C-. o: Rutils. (line 37) -* C-c C-. r: Rutils. (line 23) -* C-c C-. s: Rutils. (line 43) -* C-c C-. u: Rutils. (line 27) -* C-c C-. w: Rutils. (line 40) -* C-c C-b: Evaluating code. (line 66) -* C-c C-c: Other. (line 9) -* C-c C-c <1>: Evaluating code. (line 39) -* C-c C-e C-d: Edit buffer. (line 9) -* C-c C-e C-s: Styles. (line 15) -* C-c C-e s: Styles. (line 15) -* C-c C-f: Evaluating code. (line 52) -* C-c C-j: Evaluating code. (line 45) -* C-c C-o C-c: Roxygen. (line 45) -* C-c C-o C-h: Roxygen. (line 72) -* C-c C-o C-o: Roxygen. (line 37) -* C-c C-o C-r: Roxygen. (line 51) -* C-c C-o C-t: Roxygen. (line 59) -* C-c C-o n: Roxygen. (line 69) -* C-c C-o p: Roxygen. (line 66) -* C-c C-q: Hot keys. (line 71) -* C-C C-r: Evaluating code. (line 59) -* C-c C-s: Hot keys. (line 34) -* C-c C-t C-s: Namespaced Evaluation. - (line 36) -* C-c C-v: Hot keys. (line 66) -* C-c C-w: Clean. (line 11) -* C-c C-x: Hot keys. (line 24) -* C-c C-z: Other. (line 13) -* C-c M-b: Evaluating code. (line 69) -* C-c M-f: Evaluating code. (line 55) -* C-c M-j: Evaluating code. (line 48) -* C-c M-l: Hot keys. (line 50) -* C-c M-r: Evaluating code. (line 62) -* C-c RET: Resubmit. (line 14) -* C-c `: Error Checking. (line 9) -* C-j: Indenting. (line 64) -* C-M-a: Other edit buffer commands. - (line 10) -* C-M-e: Other edit buffer commands. - (line 14) -* C-M-h: Other edit buffer commands. - (line 18) -* C-M-q: Indenting. (line 53) -* C-M-x: Evaluating code. (line 36) -* C-RET: Evaluating code. (line 32) -* ESC C-a: Other edit buffer commands. - (line 10) -* ESC C-e: Other edit buffer commands. - (line 14) -* ESC C-h: Other edit buffer commands. - (line 18) -* ESC C-q: Indenting. (line 53) -* M-;: Indenting. (line 69) -* M-?: Object names. (line 34) -* M-C-q: Indenting. (line 53) -* M-n l: Sweave and AUCTeX. (line 16) -* M-n P: Sweave and AUCTeX. (line 22) -* M-n s: Sweave and AUCTeX. (line 12) -* M-RET: Resubmit. (line 10) -* RET: Command-line editing. (line 10) -* RET <1>: Resubmit. (line 18) -* TAB: Indenting. (line 35) - - -File: ess.info, Node: Function and program index, Next: Variable index, Prev: Key index, Up: Indices - -Function and program index -========================== - -[index] -* Menu: - -* backward-kill-word: Command-line editing. - (line 22) -* comint-backward-matching-input: Process buffer motion. - (line 31) -* comint-bol: Command-line editing. - (line 31) -* comint-copy-old-input: Transcript resubmit. (line 16) -* comint-delete-output: Last command. (line 24) -* comint-dynamic-complete: Object names. (line 13) -* comint-forward-matching-input: Process buffer motion. - (line 32) -* comint-history-isearch-backward-regexp: Command History. (line 32) -* comint-interrupt-subjob: Other. (line 8) -* comint-kill-input: Command-line editing. - (line 26) -* comint-next-input: Command History. (line 18) -* comint-next-matching-input-from-input: Command History. (line 45) -* comint-next-prompt: Process buffer motion. - (line 15) -* comint-previous-input: Command History. (line 14) -* comint-previous-matching-input-from-input: Command History. (line 41) -* comint-previous-prompt: Process buffer motion. - (line 11) -* comint-show-output: Last command. (line 20) -* dump(): Edit buffer. (line 35) -* ess-change-directory: Rutils. (line 45) -* ess-cleanup: Hot keys. (line 71) -* ess-cleanup <1>: Help. (line 163) -* ess-describe-help-mode: Help. (line 21) -* ess-display-help-on-object: Hot keys. (line 65) -* ess-display-help-on-object <1>: Help. (line 8) -* ess-display-help-on-object <2>: Help. (line 25) -* ess-dump-object-into-edit-buffer: Edit buffer. (line 8) -* ess-electric-brace: Indenting. (line 56) -* ess-eval-buffer: Evaluating code. (line 65) -* ess-eval-buffer-and-go: Evaluating code. (line 68) -* ess-eval-function: Evaluating code. (line 51) -* ess-eval-function-and-go: Evaluating code. (line 54) -* ess-eval-line: Evaluating code. (line 44) -* ess-eval-line-and-go: Evaluating code. (line 47) -* ess-eval-line-and-step: Help. (line 106) -* ess-eval-region: Evaluating code. (line 58) -* ess-eval-region <1>: Help. (line 111) -* ess-eval-region-and-go: Evaluating code. (line 61) -* ess-eval-region-or-function-or-paragraph: Evaluating code. (line 35) -* ess-eval-region-or-function-or-paragraph-and-step: Evaluating code. - (line 38) -* ess-eval-region-or-line-and-step: Evaluating code. (line 31) -* ess-execute-objects: Hot keys. (line 23) -* ess-execute-search: Hot keys. (line 33) -* ess-goto-beginning-of-function-or-para: Other edit buffer commands. - (line 9) -* ess-goto-end-of-function-or-para: Other edit buffer commands. - (line 13) -* ess-handy-commands: Handy commands. (line 6) -* ess-handy-commands <1>: Handy commands. (line 6) -* ess-indent-command: Roxygen. (line 90) -* ess-indent-exp: Indenting. (line 52) -* ess-indent-or-complete: Indenting. (line 34) -* ess-list-object-completions: Object names. (line 33) -* ess-load-file: Hot keys. (line 49) -* ess-load-file <1>: Loading. (line 11) -* ess-mark-function: Other edit buffer commands. - (line 17) -* ess-parse-errors: Hot keys. (line 54) -* ess-parse-errors <1>: Error Checking. (line 9) -* ess-quit: Hot keys. (line 70) -* ess-quit <1>: Help. (line 163) -* ess-R-complete-object-name: Roxygen. (line 80) -* ess-r-set-evaluation-env: Namespaced Evaluation. - (line 35) -* ess-remote: ESS processes on Remote Computers. - (line 9) -* ess-request-a-process: Multiple ESS processes. - (line 18) -* ess-resynch: Object names. (line 53) -* ess-roxy-hide-all: Roxygen. (line 71) -* ess-roxy-next-entry: Roxygen. (line 68) -* ess-roxy-preview-HTML: Roxygen. (line 58) -* ess-roxy-preview-Rd: Roxygen. (line 50) -* ess-roxy-previous-entry: Roxygen. (line 65) -* ess-roxy-toggle-roxy-region: Roxygen. (line 44) -* ess-roxy-update-entry: Roxygen. (line 36) -* ess-rutils-apropos: Rutils. (line 30) -* ess-rutils-html-docs: Rutils. (line 48) -* ess-rutils-load-wkspc: Rutils. (line 39) -* ess-rutils-local-pkgs: Rutils. (line 19) -* ess-rutils-objs: Rutils. (line 36) -* ess-rutils-repos-pkgs: Rutils. (line 22) -* ess-rutils-rm-all: Rutils. (line 33) -* ess-rutils-rsitesearch: Rutils. (line 58) -* ess-rutils-save-wkspc: Rutils. (line 42) -* ess-rutils-update-pkgs: Rutils. (line 26) -* ess-set-style: Styles. (line 14) -* ess-skip-to-help-section: Help. (line 55) -* ess-skip-to-next-section: Help. (line 46) -* ess-skip-to-previous-section: Help. (line 46) -* ess-smart-comma: Handy commands. (line 6) -* ess-submit-bug-report: Reporting Bugs. (line 6) -* ess-switch-to-end-of-ESS: Help. (line 117) -* ess-switch-to-inferior-or-script-buffer: Other. (line 12) -* ess-swv-latex: Sweave and AUCTeX. (line 15) -* ess-swv-PDF: Sweave and AUCTeX. (line 21) -* ess-swv-PS: Sweave and AUCTeX. (line 18) -* ess-swv-weave: Sweave and AUCTeX. (line 11) -* ess-tracebug: ESS tracebug. (line 6) -* ess-transcript-clean-region: Clean. (line 10) -* ess-transcript-copy-command: Resubmit. (line 13) -* ess-transcript-send-command: Resubmit. (line 9) -* ess-transcript-send-command-and-move: Resubmit. (line 17) -* ess-use-ido, ess-completing-read: Minibuffer completion. - (line 6) -* fill-paragraph: Roxygen. (line 94) -* getting started with tracebug: Getting started with tracebug. - (line 6) -* inferior-ess-send-input: Command-line editing. - (line 9) -* mark-paragraph: Roxygen. (line 85) -* move-beginning-of-line: Roxygen. (line 97) -* newline-and-indent: Roxygen. (line 101) -* objects(): Hot keys. (line 24) -* printer(): printer. (line 11) -* q(): Hot keys. (line 71) -* R: Starting up. (line 11) -* S: Starting up. (line 11) -* search(): Hot keys. (line 34) -* search() <1>: Object names. (line 20) -* source(): Evaluating code. (line 18) -* source() <1>: Loading. (line 11) -* STERM: Statistical Process running in ESS?. - (line 6) - - -File: ess.info, Node: Variable index, Next: Concept index, Prev: Function and program index, Up: Indices - -Variable index -============== - -[index] -* Menu: - -* ac-source-R: Auto-complete. (line 6) -* ac-source-R-args: Auto-complete. (line 6) -* ac-source-R-objects: Auto-complete. (line 6) -* comint-delimiter-argument-list: History expansion. (line 28) -* comint-input-ring-size: Command History. (line 9) -* comment-column: Indenting. (line 24) -* ess-ask-about-transfile: Customizing startup. (line 30) -* ess-ask-about-transfile <1>: Saving transcripts. (line 12) -* ess-ask-for-ess-directory: Customizing startup. (line 7) -* ess-default-style: Styles. (line 21) -* ess-delete-dump-files: Source Files. (line 12) -* ess-directory: Source Directories. (line 48) -* ess-dump-filename-template: Source Directories. (line 9) -* ess-eldoc-abbreviation-style: ESS ElDoc. (line 24) -* ess-eldoc-show-on-symbol: ESS ElDoc. (line 18) -* ess-eval-visibly: Evaluating code. (line 14) -* ess-execute-in-process-buffer: Hot keys. (line 13) -* ess-first-tab-never-complete: Indenting. (line 46) -* ess-first-tab-never-complete <1>: Object names. (line 6) -* ess-function-template: Edit buffer. (line 17) -* ess-handy-commands: Handy commands. (line 6) -* ess-handy-commands <1>: Handy commands. (line 9) -* ess-indent-with-fancy-comments: Indenting. (line 27) -* ess-keep-dump-files: Source Files. (line 26) -* ess-plain-first-buffername: Multiple ESS processes. - (line 14) -* ess-r-flymake-linters: ESS Flymake. (line 16) -* ess-r-flymake-lintr-cache: ESS Flymake. (line 23) -* ess-R-font-lock-keywords: Highlighting. (line 19) -* ess-search-list: Source Directories. (line 62) -* ess-source-directory: Source Directories. (line 22) -* ess-style-alist: Styles. (line 29) -* ess-switch-to-end-of-proc-buffer: Other. (line 21) -* ess-swv-pdflatex-commands: Sweave and AUCTeX. (line 27) -* ess-tab-complete-in-script: Indenting. (line 42) -* ess-use-eldoc: ESS ElDoc. (line 13) -* ess-use-flymake: ESS Flymake. (line 12) -* iESS program arguments: Customizing startup. (line 42) -* inferior-ess-program: Customizing startup. (line 42) -* inferior-R-font-lock-keywords: Highlighting. (line 12) -* Rd-indent-level: R documentation files. - (line 85) -* Rd-mode-hook: R documentation files. - (line 82) -* Rd-to-help-command: R documentation files. - (line 89) - - -File: ess.info, Node: Concept index, Prev: Variable index, Up: Indices - -Concept Index -============= - -[index] -* Menu: - -* aborting R commands: Other. (line 9) -* aborting S commands: Other. (line 9) -* arguments to R program: Customizing startup. (line 45) -* arguments to S program: Customizing startup. (line 45) -* authors: Credits. (line 6) -* auto-complete: Auto-complete. (line 6) -* autosaving: Source Files. (line 83) -* bug reports: Reporting Bugs. (line 6) -* bugs: Bugs. (line 6) -* changing ESS processes: Multiple ESS processes. - (line 6) -* cleaning up: Hot keys. (line 71) -* comint: Credits. (line 6) -* command history: Command History. (line 6) -* command line arguments: iESS(R)--Inferior ESS processes. - (line 16) -* command-line completion: Object names. (line 6) -* command-line editing: Command-line editing. - (line 6) -* commands: Entering commands. (line 6) -* comments: Source Files. (line 41) -* comments in R: Indenting. (line 18) -* company: Company. (line 6) -* completion in edit buffer: Other edit buffer commands. - (line 24) -* completion of object names: Object names. (line 6) -* completion on file names: Object names. (line 40) -* completion on lists: Object names. (line 38) -* completion, when prompted for object names: Edit buffer. (line 14) -* creating new objects: Edit buffer. (line 14) -* credits: Credits. (line 6) -* customization: Customization. (line 6) -* data frames: Object names. (line 21) -* deleting output: Last command. (line 24) -* directories: Starting up. (line 11) -* dump file directories: Source Directories. (line 20) -* dump file names: Source Directories. (line 6) -* dump files: Edit buffer. (line 27) -* dump files <1>: Source Files. (line 10) -* echoing commands when evaluating: Evaluating code. (line 18) -* edit buffer: Edit buffer. (line 6) -* editing commands: Command History. (line 6) -* editing functions: Editing objects. (line 6) -* editing transcripts: Saving transcripts. (line 18) -* ElDoc: ESS ElDoc. (line 6) -* emacsclient: Emacsclient. (line 6) -* entering commands: Entering commands. (line 6) -* errors: Error Checking. (line 6) -* ESS commands blocking Emacs: Evaluating code. (line 18) -* ess developer: Namespaced Evaluation. - (line 6) -* ESS process buffer: Starting up. (line 17) -* ESS process directory: Starting up. (line 11) -* ESS tracebug: ESS tracebug. (line 6) -* ESS-elsewhere: ESS processes on Remote Computers. - (line 9) -* ess-roxy: Roxygen. (line 6) -* evaluating code with echoed commands: Evaluating code. (line 18) -* evaluating R expressions: Evaluating code. (line 29) -* evaluating S expressions: Evaluating code. (line 29) -* finding function definitions: Xref. (line 6) -* flymake: ESS Flymake. (line 6) -* font-lock mode: Highlighting. (line 7) -* formatting source code: Indenting. (line 32) -* graphics: Graphics. (line 6) -* Handy commands: Handy commands. (line 6) -* help files: Help. (line 6) -* highlighting: Highlighting. (line 7) -* historic backups: Source Files. (line 41) -* hot keys: Hot keys. (line 43) -* icicles: Icicles. (line 6) -* IDO completions: Minibuffer completion. - (line 6) -* indenting: Indenting. (line 32) -* installation: Installation. (line 6) -* interactive use of R: Introduction. (line 31) -* interactive use of S: Introduction. (line 31) -* interrupting R commands: Other. (line 9) -* interrupting S commands: Other. (line 9) -* introduction: Introduction. (line 6) -* keyboard short cuts: Hot keys. (line 43) -* killing temporary buffers: Hot keys. (line 71) -* killing the ESS process: Hot keys. (line 71) -* lists, completion on: Object names. (line 38) -* motion in transcript mode: Transcript Mode. (line 17) -* multi-line commands, resubmitting: Transcript resubmit. (line 33) -* multiple ESS processes: Multiple ESS processes. - (line 6) -* multiple inferior processes: Multiple ESS processes. - (line 6) -* multiple interactive processes: Multiple ESS processes. - (line 6) -* new objects, creating: Edit buffer. (line 14) -* objects: Hot keys. (line 24) -* pages in the process buffer: Transcript. (line 24) -* paging commands in help buffers: Help. (line 28) -* paragraphs in the process buffer: Transcript. (line 13) -* parsing errors: Error Checking. (line 6) -* process buffer: Starting up. (line 17) -* process names: Multiple ESS processes. - (line 8) -* programming in R: Introduction. (line 43) -* programming in S: Introduction. (line 43) -* project work in R: Source Files. (line 41) -* project work in S: Source Files. (line 41) -* quitting from ESS: Hot keys. (line 71) -* re-executing commands: Command History. (line 6) -* reading long command outputs: Last command. (line 19) -* remote Computers: ESS processes on Remote Computers. - (line 9) -* reverting function definitions: Edit buffer. (line 27) -* roxy: Roxygen. (line 6) -* Roxygen: Roxygen. (line 6) -* running R: Starting up. (line 6) -* running S: Starting up. (line 6) -* S+elsewhere: ESS processes on Remote Computers. - (line 9) -* search list: Hot keys. (line 34) -* search list <1>: Source Directories. (line 55) -* sending input: Entering commands. (line 6) -* starting directory: Starting up. (line 11) -* starting ESS: Starting up. (line 6) -* STERM: Statistical Process running in ESS?. - (line 6) -* temporary buffers: Help. (line 162) -* temporary buffers, killing: Hot keys. (line 71) -* tracebug tutorial: Getting started with tracebug. - (line 6) -* tramp support: ESS processes on Remote Computers. - (line 9) -* transcript: Transcript. (line 9) -* transcript file: Customizing startup. (line 34) -* transcript file names: Saving transcripts. (line 13) -* transcript mode motion: Transcript Mode. (line 17) -* transcripts of R sessions: Introduction. (line 38) -* transcripts of S sessions: Introduction. (line 38) -* using ESS interactively: Introduction. (line 31) -* using R interactively: Introduction. (line 31) -* using S interactively: Introduction. (line 31) -* winjava: winjava. (line 6) -* working directory: Starting up. (line 11) -* working directory <1>: Source Directories. (line 55) -* X Windows: X11. (line 6) -* xref: Xref. (line 6) - - - -Tag Table: -Node: Top268 -Node: Introduction2906 -Node: Features5659 -Node: Current Features6495 -Node: New features9946 -Node: Credits23693 -Node: Manual27310 -Node: Installation29976 -Node: Installing from a third-party repository30913 -Node: Installing from source31860 -Node: Activating and Loading ESS33452 -Node: Check Installation34526 -Node: Interactive ESS34746 -Node: Starting up35560 -Node: Multiple ESS processes36304 -Node: ESS processes on Remote Computers37385 -Node: Customizing startup41488 -Node: Entering commands44105 -Node: Command-line editing45263 -Node: Transcript46496 -Node: Last command48265 -Node: Process buffer motion49691 -Node: Transcript resubmit51194 -Node: Saving transcripts53159 -Node: Command History54949 -Node: Saving History58358 -Node: History expansion59119 -Node: Hot keys62330 -Node: Statistical Process running in ESS?66400 -Node: Emacsclient67679 -Node: Other68471 -Node: Evaluating code69490 -Node: Transcript Mode73171 -Node: Resubmit74324 -Node: Clean75387 -Node: Editing objects76383 -Node: Edit buffer77501 -Node: Loading79547 -Node: Error Checking80574 -Node: Indenting81623 -Node: Styles84812 -Node: Other edit buffer commands87247 -Node: Source Files88903 -Node: Source Directories93507 -Node: Help96660 -Node: Completion100758 -Node: Object names100991 -Node: Function arguments103664 -Node: Minibuffer completion104203 -Node: Auto-complete104683 -Node: Company106230 -Node: Icicles106609 -Node: Developing with ESS107929 -Node: ESS tracebug108375 -Node: Getting started with tracebug111382 -Node: Editing documentation113540 -Node: R documentation files114090 -Node: Roxygen118017 -Node: Namespaced Evaluation122352 -Node: Extras124350 -Node: ESS ElDoc125374 -Node: ESS Flymake126870 -Node: Handy commands127964 -Node: Highlighting129161 -Node: Parens130196 -Node: Graphics130672 -Node: printer131343 -Node: X11132099 -Node: winjava132438 -Node: Imenu132850 -Node: Toolbar133697 -Node: Xref134105 -Node: Rdired134428 -Node: Rutils135482 -Node: Org137876 -Node: Sweave and AUCTeX138821 -Node: ESS for R140947 -Node: ESS(R)--Editing files141247 -Node: iESS(R)--Inferior ESS processes141766 -Node: Philosophies for using ESS(R)146515 -Node: Example ESS usage147442 -Node: ESS for SAS149663 -Node: ESS(SAS)--Design philosophy150386 -Node: ESS(SAS)--Editing files151339 -Node: ESS(SAS)--TAB key153193 -Node: ESS(SAS)--Batch SAS processes154559 -Node: ESS(SAS)--Function keys for batch processing159585 -Node: iESS(SAS)--Interactive SAS processes169071 -Node: iESS(SAS)--Common problems172825 -Node: ESS(SAS)--Graphics174348 -Node: ESS(SAS)--Windows175131 -Node: ESS for BUGS175709 -Node: ESS for JAGS177465 -Node: Mailing lists/bug reports180817 -Node: Bugs181081 -Node: Reporting Bugs182706 -Node: Mailing Lists183599 -Node: Help with Emacs184346 -Node: Customization184878 -Node: Indices185652 -Node: Key index185827 -Node: Function and program index191105 -Node: Variable index200744 -Node: Concept index204232 - -End Tag Table diff --git a/elpa/ess-20181109.703/essd-els.el b/elpa/ess-20181109.703/essd-els.el deleted file mode 100644 index 6f81cc11..00000000 --- a/elpa/ess-20181109.703/essd-els.el +++ /dev/null @@ -1,212 +0,0 @@ -;;; essd-els.el --- S-PLUS 3.x at another location customization - -;; Copyright (C) 1998 Richard M. Heiberger -;; Copyright (C) 1999--2005 A.J. Rossini, Richard M. Heiberger, Martin -;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. - -;; Author: Richard M. Heiberger -;; Created: December 1998 - -;; Maintainer: ESS-core - -;; Keywords: languages - -;; 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This file defines all the S-PLUS 3.x customizations for ess-mode. - -;;; Code: - -(require 'ess-arc-d) -(require 'ess-julia) -(require 'ess-omg-d) -(require 'ess-s-lang) -(require 'ess-s3-d) -(require 'ess-s4-d) -(require 'ess-sas-d) -(require 'ess-sp3-d) -(require 'ess-sp4-d) -(require 'ess-sp5-d) -(require 'ess-sp6-d) -(require 'ess-sp6w-d) -(require 'ess-stata-mode) -(require 'ess-trns) -(require 'ess-utils) -(require 'ess-vst-d) -(require 'ess-xls-d) - -(defvar S+elsewhere-dialect-name "S+6" - "Name of 'dialect' for S-PLUS at another location.") - ;easily changeable in a user's .emacs - -(defcustom inferior-ess-remote-pager nil - "Remote pager to use for reporting help files and similar things. -The default value is nil." - :group 'ess-proc - :type '(choice (const nil) string)) - - -(defvar S+elsewhere-customize-alist - (append - '((ess-local-customize-alist . 'S+elsewhere-customize-alist) - (ess-dialect . S+elsewhere-dialect-name) - (ess-object-name-db-file . "ess-spelsewhere-namedb.el" ) - (inferior-ess-program . inferior-S-elsewhere-program) - (inferior-ess-help-command . "help(\"%s\", pager=\"cat\", window=F)\n") - - (inferior-ess-start-file . nil) ;"~/.ess-S+3") - (inferior-ess-start-args . "-i") - (ess-STERM . "iESS") - ) - S+common-cust-alist) - "Variables to customize for S+elsewhere") - -(defun S+elsewhere (&optional proc-name) - "Call 'S-PLUS 3.x', the 'Real Thing' from StatSci." - (interactive) - (setq ess-customize-alist S+elsewhere-customize-alist) - (ess-write-to-dribble-buffer - (format "\n(S+elsewhere): ess-dialect=%s, buf=%s\n" ess-dialect - (current-buffer))) - (inferior-ess) - (if inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start))) -;; git commit 104c4d7c56bc239ea245562763caa317bc3a1a84 -(make-obsolete 'S+elsewhere #'ess-remote "2000") - -(defun S+elsewhere-mode (&optional proc-name) - "Major mode for editing S+3 source. See `ess-mode' for more help." - (interactive) - (setq ess-customize-alist S+elsewhere-customize-alist) - (ess-mode S+elsewhere-customize-alist proc-name)) - -(defun S+elsewhere-transcript-mode () - "S-PLUS 3.x transcript mode." - (interactive) - (ess-transcript-mode S+elsewhere-customize-alist)) - -;; This REALLY shouldn't need an editing mode. Just a transcript and -;; an inferior process handler. - -(defun ess-select-alist-dialect (&optional dialect) - "Query user for an ESS dialect and return the matching customize-alist." - (interactive) - (let* ((dialects '("R" "S+" "julia" "arc" "vst" "omg" "s3" "s4" "stata" "sp3" "sp4" - "sqpe4" "sp5" "sqpe" "XLS" "SAS")) - (dialect (or dialect - (ess-completing-read "Dialect" dialects nil t)))) - (cond - ((string= dialect "julia") ess-julia-customize-alist) - ((string= dialect "arc") ARC-customize-alist) - ((string= dialect "vst") VST-customize-alist) - ((string= dialect "omg") OMG-customize-alist) - ((string= dialect "s3") S3-customize-alist) - ((string= dialect "s4") S4-customize-alist) - ((string= dialect "stata") STA-customize-alist) - ((string= dialect "R") ess-r-customize-alist) - ((string= dialect "sp3") S+3-customize-alist) - ((string= dialect "sp4") S+4-customize-alist) - ((string= dialect "sqpe4") Sqpe+4-customize-alist) - ((string= dialect "sp5") S+5-customize-alist) - ((string= dialect "S+") S+-customize-alist) - ((string= dialect "sqpe") Sqpe+-customize-alist) - ((string= dialect "XLS") XLS-customize-alist) - ((string= dialect "SAS") SAS-customize-alist);was S+elsewhere-customize-alist? - (t S+elsewhere-customize-alist) - ))) - -(defun ess-add-ess-process () - "Execute this command from within a buffer running a process to add -the process to `ess-process-name-alist' and to make it the -`ess-current-process-name'. This command will normally be run in a -telnet buffer connected to another computer or in a shell or comint -buffer on the local computer." - (interactive) - (let ((proc (get-buffer-process (buffer-name)))) - (if (not proc) - (error "No process is associated with this buffer.") - (set-process-filter proc 'inferior-ess-output-filter) - (setq ess-current-process-name (process-name proc)) - (add-to-list 'ess-process-name-list - (list ess-current-process-name))))) - -(defvar ess-remote nil - "Indicator, t in ess-remote buffers.") - -;;;###autoload -(defun ess-remote (&optional proc-name dialect) - "Execute this command from within a buffer running a process. It -runs `ess-add-ess-process' to add the process to -`ess-process-name-alist' and to make it the -`ess-current-process-name'. It then prompts the user for an ESS -language and sets the editing characteristics appropriately. - -To use this command, first start a process on a remote computer by -manual use of telnet, rlogin, ssh, or some other protocol. Start the -relevant program (\"S\" or \"R\" or \"sas -stdio\") in that buffer. Once -you are talking to S or R or SAS, then execute `ess-remote' to make -the current buffer an inferior-ess buffer with the right behavior for -the language you are currently working with. With S and R, use C-c -C-n to send lines over. With SAS, use C-c i -`ess-eval-line-and-step-invisibly' to send lines over invisibly. - -DIALECT is the desired ess-dialect. If nil, ask for dialect" - - (interactive) - (ess-add-ess-process) - ;; Need to select a remote-customize-alist - (let ((ess-customize-alist (ess-select-alist-dialect dialect))) - (ess-write-to-dribble-buffer - (format "\n(ESS-remote): ess-dialect=%s, buf=%s\n" ess-dialect - (current-buffer))) - (ess-setq-vars-local ess-customize-alist) - (inferior-ess-mode) - (set (make-local-variable 'ess-remote) t) - (setq ess-local-process-name (or proc-name ess-current-process-name)) - - (goto-char (point-max)) - - (when (equal ess-dialect "R") - ;; ugly fix for evn variable. What can we do :( - (ess-eval-linewise (format "options(pager='%s')\n" - (or inferior-ess-remote-pager inferior-ess-pager)) - nil nil nil 'wait) - (inferior-ess-r-load-ESSR)) - - (when (equal ess-dialect "S+") - (ess-command ess-S+--injected-code)) - - (when (equal ess-language "SAS") - (font-lock-mode 0) - (SAS-log-mode) - (shell-mode) - (setq buffer-read-only nil) - (font-lock-mode 1)) - - (ess-load-extras) - - (when inferior-ess-language-start - (ess-eval-linewise inferior-ess-language-start - nil nil nil 'wait-prompt)))) - - - ; Provide package - -(provide 'essd-els) - -;;; essd-els.el ends here diff --git a/elpa/ess-20181109.703/etc/ESSR.rds b/elpa/ess-20181109.703/etc/ESSR.rds deleted file mode 100644 index 4ed61c2d..00000000 Binary files a/elpa/ess-20181109.703/etc/ESSR.rds and /dev/null differ diff --git a/elpa/ess-20181109.703/etc/ESSR/BUILDESSR b/elpa/ess-20181109.703/etc/ESSR/BUILDESSR deleted file mode 100755 index 86a87dd7..00000000 --- a/elpa/ess-20181109.703/etc/ESSR/BUILDESSR +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/Rscript -## -*- mode: R -*- -## code to build ESSR environemnt. -## Assume that current directory is etc/ESSR -## run "./BUILDESSR" to create ../ESSR.rda - -## exactly as in inferior-ess-r-load-ESSR in ess-r-d.el -source('./R/.load.R', local=TRUE) -ESSR <- load.ESSR('./R/') -saveRDS(ESSR, file = "../ESSR.rds") diff --git a/elpa/ess-20181109.703/etc/ESSR/LOADREMOTE b/elpa/ess-20181109.703/etc/ESSR/LOADREMOTE deleted file mode 100644 index 294d5cf0..00000000 --- a/elpa/ess-20181109.703/etc/ESSR/LOADREMOTE +++ /dev/null @@ -1,23 +0,0 @@ -## -*- mode: R -*- -## loading code which is first sent to R on remote sessions -local({ - ver <- '1.3' - root <- '~/.config/ESSR' - if(!file.exists(root)) - dir.create(root, recursive = TRUE) - ## cannot use sprintf here - essr_file <- file.path(root, paste('ESSRv', ver, '.rds', sep = '')) - tryCatch({ - if(!file.exists(essr_file)) { - url <- paste('https://github.com/emacs-ess/ESS/raw/ESSRv', ver, '/etc/ESSR.rds', sep = '') - utils::download.file(url, essr_file) - } - ESSR <- readRDS(essr_file) - attach(ESSR) - print(TRUE) - }, - error = function(e) { - print(e) - print(FALSE) - }) -}) diff --git a/elpa/ess-20181109.703/etc/ESSR/R/.basic.R b/elpa/ess-20181109.703/etc/ESSR/R/.basic.R deleted file mode 100644 index d24e3c3d..00000000 --- a/elpa/ess-20181109.703/etc/ESSR/R/.basic.R +++ /dev/null @@ -1,140 +0,0 @@ -#### Essential functionality needed by ESS - -## Should work on *all* vesions of R. -## Do not use _ in names, nor :: , nor 1L etc, as they -## cannot be parsed in old R versions - - -## loading ESSR.rda might fail, so re-assign here: -.ess.Rversion <- - if( exists("getRversion", mode="function") ){ - getRversion() - } else { - paste(R.version$major, R.version$minor, sep=".") - } - -.ess.R.has.utils <- (.ess.Rversion >= "1.9.0") -.ess.utils.name <- paste("package", - if(.ess.Rversion >= "1.9.0") "utils" else "base", - sep = ":") - -## Instead of modern utils::help use one that works in R 1.0.0: -.ess.findFUN <- get("find", .ess.utils.name) - - -### HELP -.ess.help <- function(..., help.type = getOption("help_type")) { - if (is.null(help.type)) { - help.type <- "text" - } - - ## - get("help", ..) searching in global env works with devtools redefines - ## - Redefining to .ess.help this way is necessary because - ## utils:::print.help_files_with_topic (used internally when there's - ## more than one a package) uses the quoted call - ## MM: don't understand; more specifically? - .ess.help <- function(...) { - do.call(get("help", envir = .GlobalEnv), list(...)) - } - - if (.ess.Rversion > "2.10") { - ## Abbreviating help_type to avoid underscore - .ess.help(..., help = help.type) - } else { - .ess.help(..., htmlhelp = help.type == "html") - } -} - -.ess.getHelpAliases <- function(){ - readrds <- - if(.ess.Rversion >= '2.13.0') readRDS - else .readRDS - rds.files <- paste(searchpaths(), "/help/aliases.rds", sep = "") - unlist(lapply(rds.files, - function(f){ - if( file.exists(f) ) - try(names(readrds(f))) - }), - use.names = FALSE) -} - -### SOURCING -.ess.eval <- function(string, visibly = TRUE, output = FALSE, - max.deparse.length = 300, - file = tempfile("ESS"), local = NULL) -{ - if (is.null(local)) { - local <- if (.ess.Rversion > '2.13') parent.frame() else FALSE - } - - ## create FILE, put string into it. Then source. - ## arguments are like in source and .ess.source - cat(string, file = file) - ## The following on.exit infloops in R 3.3.0 - ## https://github.com/emacs-ess/ESS/issues/334 - ## https://bugs.r-project.org/bugzilla/show_bug.cgi?id=16971 - ## So we are cleanning it in .ess.source instead. - ## on.exit(file.remove(file)) - .ess.source(file, visibly = visibly, output = output, - max.deparse.length = max.deparse.length, - local = local, fake.source = TRUE) -} - -.ess.strip.error <- function(msg, srcfile) { - pattern <- paste0(srcfile, ":[0-9]+:[0-9]+: ") - sub(pattern, "", msg) -} - -.ess.file.remove <- function(file){ - if (base::file.exists(file)) base::file.remove(file) - else FALSE -} - -.ess.source <- function(file, visibly = TRUE, output = FALSE, - max.deparse.length = 300, local = NULL, - fake.source = FALSE, keep.source = TRUE, - message.prefix = "") { - if (is.null(local)) { - local <- if (.ess.Rversion > "2.13") - parent.frame() - else FALSE - } - - ss <- - if (.ess.Rversion >= "3.4") - base::source - else if (.ess.Rversion >= "2.8") - function(..., spaced) base::source(...) - else function(..., spaced, keep.source) base::source(...) - - on.exit({ - if (fake.source) - .ess.file.remove(file) - }) - - out <- ss(file, echo = visibly, local = local, print.eval = output, spaced = FALSE, - max.deparse.length = max.deparse.length, keep.source = keep.source) - - if(!fake.source) - cat(sprintf("%sSourced file %s\n", message.prefix, file)) - - ## Return value for org-babel - invisible(out$value) -} - -if(.ess.Rversion < "1.8") - ## (works for "1.7.2"): bquote() was new in 1.8.0 - bquote <- function(expr, where=parent.frame()){ - unquote <- function(e) - if (is.pairlist(e)) as.pairlist(lapply(e, unquote)) - else if (length(e) <= 1) e - else if (e[[1]] == as.name(".")) eval(e[[2]], where) - else as.call(lapply(e, unquote)) - - unquote(substitute(expr)) - } - - -## Local Variables: -## eval: (ess-set-style 'RRR t) -## End: diff --git a/elpa/ess-20181109.703/etc/ESSR/R/.load.R b/elpa/ess-20181109.703/etc/ESSR/R/.load.R deleted file mode 100644 index cbbc8291..00000000 --- a/elpa/ess-20181109.703/etc/ESSR/R/.load.R +++ /dev/null @@ -1,58 +0,0 @@ -## Do not use _ in names, nor :: as they cannot be parsed in old R versions - -## load .base.R and all other files into ESSR environment; then attach ESSR -load.ESSR <- function(dir){ - .source <- - if(any("keep.source" == names(formals(sys.source)))) - sys.source - else - function(..., keep.source) sys.source(...) - - Rver <- - if(exists("getRversion", mode="function")) getRversion() - else paste(R.version$major, R.version$minor, sep=".") - - oldR <- Rver <= "1.3.0" - - ESSR <- - if(oldR) ## really old library() revert order a bit - attach(NULL, name = "ESSR") - else if(length(nn <- names(formals(new.env))) && any(nn == "parent")) - new.env(parent = - if(Rver >= "1.9.0") getNamespace("utils") - else .BaseNamespaceEnv) - else - new.env() - - assign(".ess.Rversion", Rver, envir = ESSR) - - ESSRver <- scan(paste(dirname(dir), "/VERSION", sep = ""), - what = "character", quiet = TRUE) - assign(".ess.ESSRversion", ESSRver, envir = ESSR) - - - ## .basic.R: - try(.source(paste(dir,'/.basic.R', sep = ""), envir = ESSR, keep.source = FALSE)) - - ## all others try(*) as it will fail in old R - if(!oldR) # no sense if(oldR) - for( f in dir(dir, pattern='\\.R$', full.names=TRUE) ) - try(.source(f, envir = ESSR, keep.source = FALSE)) - - if(Rver >= "2.4.0") - attach(ESSR) - else if(!oldR) { ## borrow from older library() - e <- attach(NULL, name = "ESSR") - .Internal(lib.fixup(ESSR, e)) - } else { ## if(oldR), use as in that old library(): - .Internal(lib.fixup(ESSR, .GlobalEnv)) - } - - ## BUILDESSR needs this: - invisible(ESSR) -} - - -## Local Variables: -## eval: (ess-set-style 'RRR t) -## End: diff --git a/elpa/ess-20181109.703/etc/ESSR/R/completion.R b/elpa/ess-20181109.703/etc/ESSR/R/completion.R deleted file mode 100644 index 1bcf5221..00000000 --- a/elpa/ess-20181109.703/etc/ESSR/R/completion.R +++ /dev/null @@ -1,166 +0,0 @@ -## Do *NOT* use 1L -- it gives parse errors in historical versions of R - -## Try a setup working in as old R as possible. -## ===> -## 1) do not use "_" in names! --- seems impossible for the Millenials .. -## 2) use our own simplified definition of '::' and ':::' ? -## -if(!exists("local")) - local <- function(expr, envir = environment()) { invisible(eval(expr, envir=envir)) } - -##' Robust version of -##' utils:::.addFunctionInfo(c = c("recursive", "use.names")) -local({ - U <- asNamespace("utils"); fn <- ".addFunctionInfo" - EX <- exists(fn, envir=U) - if(EX && is.function(FN <- get(fn, envir=U))) { - FN(c = c("recursive", "use.names")); ##dbg: cat("Calling utils:::",fn,"(c = ...)\n") - } -}) - - -.ess_eval <- function(str, env = globalenv()) { - ## don't remove; really need eval(parse( here!! - tryCatch(base::eval(base::parse(text=str), envir = env), - error=function(e) NULL) ## also works for special objects containing @:$ etc -} - -.ess_nonull <- function(x, default = "") { - if (is.null(x)) default - else x -} - -.ess_srcref <- function(name, pkg) { - if (!is.null(pkg) && requireNamespace(pkg)) { - env <- asNamespace(pkg) - } else { - env <- globalenv() - } - fn <- .ess_eval(name, env) - out <- "()\n" - if (is.function(fn) && !is.null(utils::getSrcref(fn))) { - file <- utils::getSrcFilename(fn, full.names = TRUE) - if (file != "") { - line <- .ess_nonull(utils::getSrcLocation(fn, "line"), 1) - col <- .ess_nonull(utils::getSrcLocation(fn, "column"), 1) - out <- sprintf("(\"%s\" %d %d)\n", file, line, col - 1) - } - } - cat(out) -} - -.ess_fn_pkg <- function(fn_name) { - fn <- .ess_eval(fn_name) - env_name <- base::environmentName(base::environment(fn)) - out <- if (base::is.primitive(fn)) { # environment() does not work on primitives. - "base" - } else if (base::is.function(fn) && env_name != "R_GlobalEnv") { - env_name - } else { - "" - } - base::cat(base::sprintf("%s\n", out)) -} - -.ess_funargs <- function(funname) { - if(.ess.Rversion > '2.14.1') { - ## temporarily disable JIT compilation and errors - comp <- compiler::enableJIT(0) - op <- options(error=NULL) - on.exit({ options(op); compiler::enableJIT(comp) }) - } - fun <- .ess_eval(funname) - if(is.function(fun)) { - special <- grepl('[:$@[]', funname) - args <- if(!special){ - fundef <- paste(funname, '.default',sep='') - do.call('argsAnywhere', list(fundef)) - } - - if(is.null(args)) - args <- args(fun) - if(is.null(args)) - args <- do.call('argsAnywhere', list(funname)) - - fmls <- formals(args) - fmls_names <- names(fmls) - fmls <- gsub('\"', '\\\"', - gsub("\\", "\\\\", as.character(fmls),fixed = TRUE), - fixed=TRUE) - args_alist <- - sprintf("'(%s)", - paste("(\"", fmls_names, "\" . \"", fmls, "\")", - sep = '', collapse = ' ')) - allargs <- - if(special) fmls_names - else tryCatch(gsub('=', '', utils:::functionArgs(funname, ''), fixed = TRUE), - error=function(e) NULL) - allargs <- sprintf("'(\"%s\")", - paste(allargs, collapse = '\" "')) - envname <- environmentName(environment(fun)) - if(envname == "R_GlobalEnv") envname <- "" - cat(sprintf('(list \"%s\" %s %s)\n', - envname, args_alist, allargs)) - } -} - -.ess_get_completions <- function(string, end){ - if(.ess.Rversion > '2.14.1'){ - comp <- compiler::enableJIT(0) - op <- options(error=NULL) - on.exit({ options(op); compiler::enableJIT(comp) }) - } - utils:::.assignLinebuffer(string) - utils:::.assignEnd(end) - utils:::.guessTokenFromLine() - utils:::.completeToken() - c(get('token', envir=utils:::.CompletionEnv), - utils:::.retrieveCompletions()) -} - -.ess_arg_help <- function(arg, func){ - op <- options(error=NULL) - on.exit(options(op)) - fguess <- - if(is.null(func)) get('fguess', envir=utils:::.CompletionEnv) - else func - findArgHelp <- function(fun, arg){ - file <- help(fun, try.all.packages=FALSE)[[1]] - hlp <- utils:::.getHelpFile(file) - id <- grep('arguments', tools:::RdTags(hlp), fixed=TRUE) - if(length(id)){ - arg_section <- hlp[[id[[1]]]] - items <- grep('item', tools:::RdTags(arg_section), fixed=TRUE) - ## cat('items:', items, fill=TRUE) - if(length(items)){ - arg_section <- arg_section[items] - args <- unlist(lapply(arg_section, - function(el) paste(unlist(el[[1]][[1]], TRUE, FALSE), collapse=''))) - fits <- grep(arg, args, fixed=TRUE) - ## cat('args', args, 'fits', fill=TRUE) - if(length(fits)) - paste(unlist(arg_section[[fits[1]]][[2]], TRUE, FALSE), collapse='') - } - } - } - funcs <- c(fguess, tryCatch(methods(fguess), - warning=function(w) {NULL}, - error=function(e) {NULL})) - if(length(funcs) > 1 && length(pos <- grep('default', funcs))){ - funcs <- c(funcs[[pos[[1]]]], funcs[-pos[[1]]]) - } - i <- 1; found <- FALSE - out <- 'No help found' - while(i <= length(funcs) && is.null(out <- - tryCatch(findArgHelp(funcs[[i]], arg), - warning=function(w) {NULL}, - error=function(e) {NULL}) - )) - i <- i + 1 - cat('\n\n', as.character(out), '\n') -}; - - -## Local Variables: -## eval: (ess-set-style 'RRR t) -## End: diff --git a/elpa/ess-20181109.703/etc/ESSR/R/debug.R b/elpa/ess-20181109.703/etc/ESSR/R/debug.R deleted file mode 100644 index 70c460a9..00000000 --- a/elpa/ess-20181109.703/etc/ESSR/R/debug.R +++ /dev/null @@ -1,228 +0,0 @@ -### BREAKPOINTS -.ESSBP. <- new.env() - -### DEBUG/UNDEBUG -.ess_find_funcs <- function(env) { - objs <- ls(envir = env, all.names = TRUE) - if (length(objs) > 0) - objs <- objs[sapply(objs, exists, envir = env, - mode = 'function', inherits = FALSE)] - objs -} - -.ess_all_functions <- function(packages = c(), env = NULL) { - if(is.null(env)) - env <- parent.frame() - empty <- emptyenv() - coll <- list() - for(p in packages){ - ## package might not be attached - try( - { - objNS <- .ess_find_funcs(asNamespace(p)) - objPKG <- .ess_find_funcs(as.environment(paste0('package:', p))) - objNS <- setdiff(objNS, objPKG) - if(length(objPKG)) - coll[[length(coll) + 1]] <- paste0(p, ':::', objNS) - }, silent = TRUE) - } - while(!identical(empty, env)){ - coll[[length(coll) + 1]] <- .ess_find_funcs(env) - env <- parent.env(env) - } - grep('^\\.ess', unlist(coll, use.names = FALSE), - invert = TRUE, value = TRUE) -} - -.ess_dbg_flag_for_debuging <- function(fname){ - all <- utils::getAnywhere(fname) - if(length(all$obj) == 0){ - msg <- sprintf("No functions names '%s' found", fname) - } else { - msg <- sprintf("Flagged '%s' for debugging", fname) - tryCatch(lapply(all$obj, debug), - error = function(e){ - msg <- paste0("Error: ", e$message) - }) - } - cat(msg) - .ess_mpi_message(msg) -} - -.ess_dbg_getTracedAndDebugged <- function() -{ - packages <- base::.packages() - tr_state <- tracingState(FALSE) - on.exit(tracingState(tr_state)) - generics <- methods::getGenerics() - all_traced <- c() - for(i in seq_along(generics)){ - genf <- methods::getGeneric(generics[[i]], - package=generics@package[[i]]) - if(!is.null(genf)){ ## might happen !! v.2.13 - menv <- methods::getMethodsForDispatch(genf) - traced <- unlist(eapply(menv, is, 'traceable', all.names=TRUE)) - if(length(traced) && any(traced)) - all_traced <- c(paste(generics[[i]],':', - names(traced)[traced],sep=''), all_traced) - tfn <- getFunction(generics[[i]], mustFind=FALSE, where = .GlobalEnv) - if(!is.null(tfn ) && is(tfn, 'traceable')) # if the default is traced, it does not appear in the menv :() - all_traced <- c(generics[[i]], all_traced) - } - } - debugged_pkg <- unlist(lapply(packages, function(pkgname){ - ns <- asNamespace(pkgname) - funcs <- .ess_find_funcs(ns) - dbged <- funcs[unlist(lapply(funcs, - function(f){ - isdebugged(get(f, envir = ns, inherits = FALSE)) - }))] - if(length(dbged)) - paste0(pkgname, ':::`', dbged, '`') - })) - env <- parent.frame() - ## traced function don't appear here. Not realy needed and would affect performance. - all <- .ess_all_functions(packages = packages, env = env) - which_deb <- lapply(all, function(nm){ - ## if isdebugged is called with string it doess find - tryCatch(isdebugged(get(nm, envir = env)), - error = function(e) FALSE) - ## try(eval(substitute(isdebugged(nm), list(nm = as.name(nm)))), silent = T) - }) - debugged <- all[which(unlist(which_deb, recursive=FALSE, use.names=FALSE))] - unique(c(debugged_pkg, debugged, all_traced)) -} - -.ess_dbg_UntraceOrUndebug <- function(name, env = parent.frame()) -{ - tr_state <- tracingState(FALSE) - on.exit(tracingState(tr_state)) - if( grepl('::', name) ){ - ## foo:::bar name - eval(parse(text = sprintf('undebug(%s)', name))) - }else{ - ## name is a name of a function to be undebugged or has a form - ## name:Class1#Class2#Class3 for traced methods - name <- strsplit(name, ':', fixed = TRUE)[[1]] - if( length(name)>1 ){ - ## a method - fun <- name[[1]] - sig <- strsplit(paste(name[-1], collapse=''), '#', fixed=TRUE)[[1]] - untrace(fun, signature = sig) - }else{ - ## function - if( is(getFunction(name, where = parent.frame()), 'traceable') ) - untrace(name) - else if(grepl(":", name)) - undebug(name) - else - undebug(get(name, envir = env)) - }} -} - -.ess_dbg_UndebugALL <- function(funcs) -{ - tr_state <- tracingState(FALSE) - on.exit(tracingState(tr_state)) - env <- parent.frame() - invisible(lapply(funcs, function( nm ) { - ## ugly tryCatch, but there might be several names pointing to the - ## same function, like foo:::bar and bar. An alternative would be - ## to call .ess_dbg_getTracedAndDebugged each time but that might - ## be ery slow - try(.ess_dbg_UntraceOrUndebug(nm, env = env), TRUE) - })) -} - -### WATCH -.ess_watch_expressions <- list() - -.ess_watch_eval <- function() -{ - env <- as.environment("ESSR") - exps <- get('.ess_watch_expressions', envir = env) - if(length(exps) == 0) { - ## using old style so this can be parsed by R 1.9.1 (e.g): - cat('\n# Watch list is empty!\n', - '# a append new expression', - '# i insert new expression', - '# k kill', - '# e edit the expression', - '# r rename', - '# n/p navigate', - '# u/d,U move the expression up/down', - '# q kill the buffer', - sep="\n") - } else { - .parent_frame <- parent.frame() - .essWEnames <- allNames(exps) - len0p <- !nzchar(.essWEnames) - .essWEnames[len0p] <- seq_along(len0p)[len0p] - for(i in seq_along(exps)) { - cat('\n@---- ', .essWEnames[[i]], ' ', - rep.int('-', max(0, 35 - nchar(.essWEnames[[i]]))), '-@\n', sep = '') - cat(paste('@---:', deparse(exps[[i]][[1]])), ' \n', sep = '') - tryCatch(print(eval(exps[[i]], - envir = .parent_frame)), - error = function(e) cat('Error:', e$message, '\n' ), - warning = function(w) cat('warning: ', w$message, '\n' )) - } - } -} - -.ess_watch_assign_expressions <- function(elist){ - assign(".ess_watch_expressions", elist, envir = as.environment("ESSR")) -} - -.ess_log_eval <- function(log_name) -{ - env <- as.environment("ESSR") - if(!exists(log_name, envir = env, inherits = FALSE)) - assign(log_name, list(), envir = env) - log <- get(log_name, envir = env, inherits = FALSE) - .essWEnames <- allNames(.ess_watch_expressions) - cur_log <- list() - .parent_frame <- parent.frame() - for(i in seq_along(.ess_watch_expressions)) { - capture.output( { - cur_log[[i]] <- - tryCatch(eval(.ess_watch_expressions[[i]]), - envir = .parent_frame, - error = function(e) paste('Error:', e$message, '\n'), - warning = function(w) paste('warning: ', w$message, '\n')) - if(is.null(cur_log[i][[1]])) - cur_log[i] <- list(NULL) - }) - } - names(cur_log) <- .essWEnames - assign(log_name, c(log, list(cur_log)), envir = env) - invisible(NULL) -} - -.ess_package_attached <- function(pack_name){ - as.logical(match(paste0("package:", pack_name), search())) -} - -## magrittr debug_pipe -.ess_pipe_browser <- function(x){ - if(is.list(x)) - evalq({ - browser(skipCalls = 2) - x - }, envir = x) - else if(is.environment(x)) - ## enclos argumentn has no effect for unclear reason, need to hack - eval(bquote({ - x <- .(environment()) - browser(skipCalls = 2) - x - }), envir = x) - else { - browser(skipCalls = 0) - x - } -} - -## Local Variables: -## eval: (ess-set-style 'RRR t) -## End: diff --git a/elpa/ess-20181109.703/etc/ESSR/R/misc.R b/elpa/ess-20181109.703/etc/ESSR/R/misc.R deleted file mode 100644 index ec96733f..00000000 --- a/elpa/ess-20181109.703/etc/ESSR/R/misc.R +++ /dev/null @@ -1,145 +0,0 @@ -.ess_weave <- function(command, file, encoding = NULL){ - cmd_symb <- substitute(command) - if (grepl('knit|purl', deparse(cmd_symb))) require(knitr) - od <- getwd() - on.exit(setwd(od)) - setwd(dirname(file)) - frame <- parent.frame() - if (is.null(encoding)) - eval(bquote(.(cmd_symb)(.(file))), envir = frame) - else - eval(bquote(.(cmd_symb)(.(file), encoding = .(encoding))), envir = frame) -} - -.ess_knit <- function(file, output = NULL){ - library(knitr) - frame <- parent.frame() - od <- getwd() - on.exit(setwd(od)) - setwd(dirname(file)) - ## this bquote is really needed for data.table := operator to work correctly - eval(bquote(knit(.(file), output = .(output))), envir = frame) -} - -.ess_sweave <- function(file, output = NULL){ - od <- getwd() - frame <- parent.frame() - on.exit(setwd(od)) - setwd(dirname(file)) - eval(bquote(Sweave(.(file), output = .(output))), envir = frame) -} - -## Users might find it useful. So don't prefix with .ess. -htsummary <- function(x, hlength = 4, tlength = 4, digits = 3) { - ## fixme: simplify and generalize - snames <- c("mean", "sd", "min", "max", "nlev", "NAs") - d <- " " - num_sumr <- function(x){ - c(f(mean(x, na.rm = TRUE)), - f(sd(x, na.rm = TRUE)), - f(min(x, na.rm = TRUE)), - f(max(x, na.rm = TRUE)), - d, - f(sum(is.na(x), na.rm = TRUE))) - } - f <- function(x) format(x, digits = digits) - - if (is.data.frame(x) | is.matrix(x)) { - if (nrow(x) <= tlength + hlength){ - print(x) - } else { - if (is.matrix(x)) - x <- data.frame(unclass(x)) - ## conversion needed, to avoid problems with derived classes suchs - ## as data.table - h <- as.data.frame(head(x, hlength)) - t <- as.data.frame(tail(x, tlength)) - for (i in 1:ncol(x)) { - h[[i]] <- f(h[[i]]) - t[[i]] <- f(t[[i]]) - } - ## summaries - sumr <- sapply(x, function(c){ - if (is.logical(c)) - ## treat logical as numeric; it's harmless - c <- as.integer(c) - if (is.numeric(c)) - num_sumr(c) - else if (is.factor(c)) c(d, d, d, d, nlevels(c), sum(is.na(c))) - else rep.int(d, length(snames)) - }) - sumr <- as.data.frame(sumr) - row.names(sumr) <- snames - dots <- rep("...", ncol(x)) - empty <- rep.int(" ", ncol(x)) - lines <- rep.int(" ", ncol(x)) - df <- rbind(h, ... = dots, t, `_____` = lines, sumr, ` ` = empty) - print(df) - } - } else { - cat("head(", hlength, "):\n", sep = "") - print(head(x, hlength)) - if (length(x) > tlength + hlength){ - cat("\ntail(", tlength, "):\n", sep = "") - print(tail(x, tlength)) - } - cat("_____\n") - if (is.numeric(x) || is.logical(x)) - print(structure(num_sumr(x), names = snames), quote = FALSE) - else if (is.factor(x)){ - cat("NAs: ", sum(is.na(x), na.rm = TRUE), "\n") - cat("levels: \n") - print(levels(x)) - } - } - invisible(NULL) -} - -.ess_vignettes <- function(all=FALSE) { - vs <- unclass(browseVignettes(all = all)) - vs <- vs[sapply(vs, length) > 0] - - mat2elist <- function(mat) { - if (!is.null(dim(mat))){ - apply(mat, 1, function(r) - sprintf("(list \"%s\")", - paste0(gsub("\"", "\\\\\"", - as.vector(r[c("Title", "Dir", "PDF", - "File", "R")])), - collapse = "\" \""))) - } - } - cat("(list \n", - paste0(mapply(function(el, name) { - sprintf("(list \"%s\" %s)", - name, paste0(mat2elist(el), collapse = "\n")) - }, - vs, names(vs)), collapse = "\n"), ")\n") -} - -.ess_Rd2txt <- function(rd) { - fun <- tools::Rd2txt - if (length(formals(fun)["stages"]))# newer R version - fun(rd, stages = c("build", "install", "render")) - else - fun(rd) -} - -## Hacked help.start() to use with ess-rutils.el -.ess_help_start <- function(update=FALSE, remote=NULL) { - home <- if (is.null(remote)) { - port <- tools::startDynamicHelp(NA) - if (port > 0L) { - if (update) - make.packages.html(temp=TRUE) - paste0("http://127.0.0.1:", port) - } - else stop(".ess_help_start() requires the HTTP server to be running", - call.=FALSE) - } else remote - paste0(home, "/doc/html/index.html") -} - -## Local Variables: -## eval: (ess-set-style 'RRR t) -## End: diff --git a/elpa/ess-20181109.703/etc/ESSR/R/mpi.R b/elpa/ess-20181109.703/etc/ESSR/R/mpi.R deleted file mode 100644 index 5a5ff807..00000000 --- a/elpa/ess-20181109.703/etc/ESSR/R/mpi.R +++ /dev/null @@ -1,23 +0,0 @@ -## simple Message Parsing Inerface - -.ess_mpi_send <- function(head, ...){ - payload <- paste(..., sep = "") - cat(sprintf("%s%s", head, payload)) -} - -.ess_mpi_message <- function(msg){ - .ess_mpi_send("message", msg) -} - -.ess_mpi_y_or_n <- function(prompt, callback){ - .ess_mpi_send("y-or-n", prompt, callback) -} - -.ess_mpi_eval <- function(expr, callback){ - .ess_mpi_send("eval", expr, callback) -} - -.ess_mpi_error <- function(msg) { - .ess_mpi_send("error", msg) -} - diff --git a/elpa/ess-20181109.703/etc/ESSR/R/ns-eval.R b/elpa/ess-20181109.703/etc/ESSR/R/ns-eval.R deleted file mode 100644 index 26b0b0fa..00000000 --- a/elpa/ess-20181109.703/etc/ESSR/R/ns-eval.R +++ /dev/null @@ -1,411 +0,0 @@ -## NOTE ON S3 METHODS: New S3 methods are not automatically registered. You can -## register them manually after you have inserted method_name.my_class into your -## package environment using ess-developer, like follows: -## -## registerS3method("method_name", "my_class", my_package:::method_name.my_class) -## -## If an S3 methods already exists in a package, ESS-developer will do the right -## thing. - -## evaluate the STRING by saving into a file and calling .ess.ns_source -.ess.ns_eval <- function(string, visibly, output, package, - file = tempfile("ESSDev"), verbose = FALSE, - fallback_env = NULL, local_env = parent.frame()) { - cat(string, file = file) - on.exit(.ess.file.remove(file)) - .ess.ns_source(file, visibly, output, package = package, - verbose = verbose, fake.source = TRUE, - fallback_env = fallback_env, local_env = local_env) -} - -##' Source FILE into an environment. After having a look at each new object in -##' the environment, decide what to do with it. Handles plain objects, -##' functions, existing S3 methods, S4 classes and methods. -##' @param fallback_env environment to assign objects which don't exist in the -##' package namespace -.ess.ns_source <- function(file, visibly, output, expr, - package = "", verbose = FALSE, - fake.source = FALSE, - fallback_env = NULL, - local_env = NULL) { - oldopts <- options(warn = 2) - on.exit(options(oldopts)) - pname <- paste("package:", package, sep = "") - envpkg <- tryCatch(as.environment(pname), error = function(cond) NULL) - if (is.null(envpkg)) - if (require(package, quietly = TRUE, character.only = TRUE)) { - envpkg <- tryCatch(as.environment(pname), error = function(cond) NULL) - } else { - ## no such package; source in current (local) user environment - return(.ess.source(file, visibly = visibly, - output = output, local = local_env, - fake.source = fake.source)) - } - - envns <- tryCatch(asNamespace(package), error = function(cond) NULL) - if (is.null(envns)) - stop(gettextf("Can't find a namespace environment corresponding to package name '%s\"", - package), domain = NA) - - ## Here we know that both envns and envpkg exists and are environments - if (is.null(fallback_env)) - fallback_env <- .ess.ns_insert_essenv(envns) - - ## Get all Imports envs where we propagate objects - pkgEnvNames <- Filter(.ess.is_package, search()) - packages <- lapply(pkgEnvNames, function(envName) substring(envName, 9)) - importsEnvs <- lapply(packages, function(pkgName) parent.env(asNamespace(pkgName))) - - ## Evaluate the FILE into new ENV - env <- .ess.ns_evalSource(file, visibly, output, substitute(expr), package, fake.source) - envPackage <- getPackageName(env, FALSE) - if (nzchar(envPackage) && envPackage != package) - warning(gettextf("Supplied package, %s, differs from package inferred from source, %s", - sQuote(package), sQuote(envPackage)), domain = NA) - - ## Get all sourced objects, methods and classes - allObjects <- objects(envir = env, all.names = TRUE) - allObjects <- allObjects[!(allObjects %in% c(".cacheOnAssign", ".packageName"))] - MetaPattern <- methods:::.TableMetaPattern() - ClassPattern <- methods:::.ClassMetaPattern() - allPlainObjects <- allObjects[!(grepl(MetaPattern, allObjects) | - grepl(ClassPattern, allObjects))] - allMethodTables <- allObjects[grepl(MetaPattern, allObjects)] - allClassDefs <- allObjects[grepl(ClassPattern, allObjects)] - - ## PLAIN OBJECTS and FUNCTIONS: - funcNs <- funcPkg <- newFunc <- newNs <- newObjects <- newPkg <- objectsNs <- objectsPkg <- character() - dependentPkgs <- list() - - for (this in allPlainObjects) { - thisEnv <- get(this, envir = env) - thisNs <- NULL - - ## NS - if (exists(this, envir = envns, inherits = FALSE)){ - thisNs <- get(this, envir = envns) - if(is.function(thisNs) || is.function(thisEnv)){ - if(is.function(thisNs) && is.function(thisEnv)){ - if(.ess.differs(thisEnv, thisNs)){ - environment(thisEnv) <- environment(thisNs) - .ess.assign(this, thisEnv, envns) - funcNs <- c(funcNs, this) - if(exists(".__S3MethodsTable__.", envir = envns, inherits = FALSE)){ - S3_table <- get(".__S3MethodsTable__.", envir = envns) - if(exists(this, envir = S3_table, inherits = FALSE)) - .ess.assign(this, thisEnv, S3_table) - } - } - }else{ - newNs <- c(newNs, this) - } - }else{ - if(!identical(thisEnv, thisNs)){ - .ess.assign(this, thisEnv, envns) - objectsNs <- c(objectsNs, this) - } - } - }else{ - newNs <- c(newNs, this) - } - - ## PKG - if (exists(this, envir = envpkg, inherits = FALSE)){ - thisPkg <- get(this, envir = envpkg) - if(is.function(thisPkg) || is.function(thisEnv)){ - if(is.function(thisPkg) && is.function(thisEnv)){ - if(.ess.differs(thisPkg, thisEnv)){ - environment(thisEnv) <- environment(thisPkg) - .ess.assign(this, thisEnv, envpkg) - funcPkg <- c(funcPkg, this) - } - }else{ - newPkg <- c(newPkg, this) - } - }else{ - if(!identical(thisPkg, thisEnv)){ - .ess.assign(this, thisEnv, envpkg) - objectsPkg <- c(objectsPkg, this) - } - } - }else{ - newPkg <- c(newPkg, this) - } - - if (!is.null(thisNs)) { - isDependent <- .ess.ns_propagate(thisEnv, this, importsEnvs) - newDeps <- stats::setNames(list(packages[isDependent]), this) - dependentPkgs <- c(dependentPkgs, newDeps) - } - } - - ## deal with new plain objects and functions - for(this in intersect(newPkg, newNs)){ - thisEnv <- get(this, envir = env, inherits = FALSE) - if(exists(this, envir = fallback_env, inherits = FALSE)){ - thisGl <- get(this, envir = fallback_env) - if(.ess.differs(thisEnv, thisGl)){ - if(is.function(thisEnv)){ - environment(thisEnv) <- envns - newFunc <- c(newFunc, this) - }else{ - newObjects <- c(newObjects, this) - } - .ess.assign(this, thisEnv, fallback_env) - } - }else{ - if(is.function(thisEnv)){ - environment(thisEnv) <- envns - newFunc <- c(newFunc, this) - }else{ - newObjects <- c(newObjects, this) - } - .ess.assign(this, thisEnv, fallback_env) - } - } - - if(length(funcNs)) - objectsNs <- c(objectsNs, sprintf("FUN[%s]", paste(funcNs, collapse = ", "))) - if(length(funcPkg)) - objectsPkg <- c(objectsPkg, sprintf("FUN[%s]", paste(funcPkg, collapse = ", "))) - if(length(newFunc)) - newObjects <- c(newObjects, sprintf("FUN[%s]", paste(newFunc, collapse = ", "))) - - ## CLASSES - classesPkg <- classesNs <- newClasses <- character() - for(this in allClassDefs){ - newPkg <- newNs <- FALSE - thisEnv <- get(this, envir = env) - if(exists(this, envir = envpkg, inherits = FALSE)){ - if(!.ess.identicalClass(thisEnv, get(this, envir = envpkg))){ - .ess.assign(this, thisEnv, envir = envpkg) - classesPkg <- c(classesPkg, this) - } - }else{ - newPkg <- TRUE - } - if(exists(this, envir = envns, inherits = FALSE)){ - if(!.ess.identicalClass(thisEnv, get(this, envir = envns))){ - .ess.assign(this, thisEnv, envir = envns) - classesNs <- c(classesNs, this) - } - }else{ - newNs <- TRUE - } - if(newNs && newPkg){ - if(exists(this, envir = fallback_env, inherits = FALSE)){ - if(!.ess.identicalClass(thisEnv, get(this, envir = fallback_env))){ - .ess.assign(this, thisEnv, envir = fallback_env) - newClasses <- c(newClasses, this) - } - }else{ - .ess.assign(this, thisEnv, envir = fallback_env) - newClasses <- c(newClasses, this) - } - } - } - if(length(classesPkg)) - objectsPkg <- gettextf("CLS[%s]", sub(ClassPattern, "", paste(classesPkg, collapse = ", "))) - if(length(classesNs)) - objectsNs <- gettextf("CLS[%s]", sub(ClassPattern, "", paste(classesNs, collapse = ", "))) - if(length(newClasses)) - newObjects <- gettextf("CLS[%s]", sub(ClassPattern, "", paste(newClasses, collapse = ", "))) - - ## METHODS: - ## Method internals: For efficiency reasons setMethod() caches - ## method definition into a global table which you can get with - ## 'getMethodsForDispatch' function, and when a method is dispatched that - ## table is used. When ess-developer is used to source method definitions the - ## two copies of the functions are identical up to the environment. The - ## environment of the cached object has namespace:foo as it's parent but the - ## environment of the object in local table is precisely namspace:foo. This - ## does not cause any difference in evaluation. - methodNames <- allMethodTables - methods <- sub(methods:::.TableMetaPrefix(), "", methodNames) - methods <- sub(":.*", "", methods) - methodsNs <- newMethods <- character() - for (i in seq_along(methods)){ - table <- methodNames[[i]] - tableEnv <- get(table, envir = env) - if(exists(table, envir = envns, inherits = FALSE)){ - inserted <- .ess.ns_insertMethods(tableEnv, get(table, envir = envns), envns) - if(length(inserted)) - methodsNs <- c(methodsNs, gettextf("%s{%s}", methods[[i]], paste(inserted, collapse = ", "))) - }else if(exists(table, envir = fallback_env, inherits = FALSE)){ - inserted <- .ess.ns_insertMethods(tableEnv, get(table, envir = fallback_env), envns) - if(length(inserted)) - newMethods <- c(newMethods, gettextf("%s{%s}", methods[[i]], paste(inserted, collapse = ", "))) - }else{ - .ess.assign(table, tableEnv, envir = fallback_env) - newMethods <- c(newMethods, gettextf("%s{%s}", methods[[i]], paste(objects(envir = tableEnv, all.names = T), collapse = ", "))) - } - } - if(length(methodsNs)) - objectsNs <- c(objectsNs, gettextf("METH[%s]", paste(methodsNs, collapse = ", "))) - if(length(newMethods)) - newObjects <- c(newObjects, gettextf("METH[%s]", paste(newMethods, collapse = ", "))) - - if (verbose) { - msgs <- unlist(list( - if(length(objectsPkg)) - sprintf("PKG: %s", paste(objectsPkg, collapse = ", ")), - if(length(objectsNs)) - sprintf("NS: %s", paste(objectsNs, collapse = ", ")), - if(length(dependentPkgs)) - .ess.ns_format_deps(dependentPkgs), - if(length(newObjects)) { - env_name <- .ess.ns_env_name(fallback_env) - sprintf("%s: %s", env_name, paste(newObjects, collapse = ", ")) - })) - if(length(msgs)) - .ess_mpi_message(paste(msgs, collapse = " ")) - - } - - invisible(env) -} - -.ess.ns_insertMethods <- function(tableEnv, tablePkg, envns) { - inserted <- character() - for(m in ls(envir = tableEnv, all.names = T)){ - if(exists(m, envir = tablePkg, inherits = FALSE)){ - thisEnv <- get(m, envir = tableEnv) - thisPkg <- get(m, envir = tablePkg) - if(is(thisEnv, "MethodDefinition") && is(thisPkg, "MethodDefinition") && - .ess.differs(thisEnv@.Data, thisPkg@.Data)){ - environment(thisEnv@.Data) <- envns - ## environment of cached method in getMethodsForDispatch table is still env - ## not a problem as such, but might confuse users - .ess.assign(m, thisEnv, tablePkg) - inserted <- c(inserted, m) - }}} - inserted -} - -## our version of R's evalSource -.ess.ns_evalSource <- function(file, visibly, output, expr, package = "", - fake.source = FALSE) { - envns <- tryCatch(asNamespace(package), error = function(cond) NULL) - if(is.null(envns)) - stop(gettextf("Package \"%s\" is not attached and no namespace found for it", - package), domain = NA) - env <- new.env(parent = envns) - env[[".packageName"]] <- package - methods:::setCacheOnAssign(env, TRUE) - if (missing(file)) - eval(expr, envir = env) - else if (is(file, "character")) - for (f in file) { - .ess.source(f, local = env, visibly = visibly, - output = output, keep.source = TRUE, - max.deparse.length = 300, - fake.source = fake.source, - message.prefix = sprintf("[%s] ", package)) - } - else stop(gettextf("Invalid file argument: got an object of class \"%s\"", - class(file)[[1]]), domain = NA) - env -} - -.ess.assign <- function(x, value, envir) { - ## Cannot add bindings to locked environments - exists <- exists(x, envir = envir, inherits = FALSE) - if (exists && bindingIsLocked(x, envir)) { - unlockBinding(x, envir) - assign(x, value, envir = envir, inherits = FALSE) - op <- options(warn = -1) - on.exit(options(op)) - lockBinding(x, envir) - } else if (exists || !environmentIsLocked(envir)) { - assign(x, value, envir = envir, inherits = FALSE) - } else { - warning(sprintf("Cannot assign `%s` in locked environment", x), - call. = FALSE) - } - invisible(NULL) -} - -.ess.identicalClass <- function(cls1, cls2, printInfo = FALSE) { - slots1 <- slotNames(class(cls1)) - slots2 <- slotNames(class(cls2)) - if(identical(slots1, slots2)){ - vK <- grep("versionKey", slots1) - if(length(vK)) - slots1 <- slots2 <- slots1[-vK] - out <- sapply(slots1, function(nm) identical(slot(cls1, nm), slot(cls2, nm))) - if(printInfo) print(out) - all(out) - } -} - -.ess.differs <- function(f1, f2) { - if (is.function(f1) && is.function(f2)){ - !(identical(body(f1), body(f2)) && identical(args(f1), args(f2))) - }else - !identical(f1, f2) -} - -.ess.is_package <- function(envName) { - isPkg <- identical(substring(envName, 0, 8), "package:") - isPkg && (envName != "package:base") -} - -.ess.ns_propagate <- function(obj, name, importsEnvs) { - containsObj <- vapply(importsEnvs, logical(1), FUN = function(envs) { - name %in% names(envs) - }) - - lapply(importsEnvs[containsObj], .ess.assign, - x = name, value = obj) - - containsObj -} - -.ess.ns_format_deps <- function(dependentPkgs) { - pkgs <- unique(unlist(dependentPkgs, use.names = FALSE)) - - lapply(pkgs, function(pkg) { - isDep <- vapply(dependentPkgs, function(deps) pkg %in% deps, logical(1)) - pkgDependentObjs <- names(dependentPkgs[isDep]) - sprintf("DEP:%s [%s] ", pkg, paste(pkgDependentObjs, collapse = ", ")) - }) -} - -.ess.ns_env_name <- function(env) { - name <- environmentName(env) - name <- - if (name == "") "Local" - else if (grepl("^essenv:", name)) "NEW" - else name - name -} - -.ess.ns_insert_essenv <- function(nsenv) { - if (is.character(nsenv)) - nsenv <- base::asNamespace(nsenv) - stopifnot(isNamespace(nsenv)) - if (identical(nsenv, .BaseNamespaceEnv)) - return(.GlobalEnv) - essenv_name <- sprintf("essenv:%s", environmentName(nsenv)) - nsenv_parent <- parent.env(nsenv) - if (environmentName(nsenv_parent) == essenv_name) { - return(nsenv_parent) - } - essenv <- new.env(parent = nsenv_parent) - attr(essenv, "name") <- essenv_name - nssym <- ".__NAMESPACE__." - nssym_val <- get(nssym, envir = nsenv, inherits = FALSE) - unlockBinding(nssym, nsenv) - nsenv[[nssym]] <- NULL - on.exit({ - nsenv[[nssym]] <- nssym_val - lockBinding(nssym, nsenv) - }) - parent.env(nsenv) <- essenv - essenv -} - - -## Local Variables: -## eval: (ess-set-style 'RRR t) -## End: diff --git a/elpa/ess-20181109.703/etc/ESSR/R/pkg.R b/elpa/ess-20181109.703/etc/ESSR/R/pkg.R deleted file mode 100644 index ebd0463a..00000000 --- a/elpa/ess-20181109.703/etc/ESSR/R/pkg.R +++ /dev/null @@ -1,26 +0,0 @@ - -.ess_keep <- function(.x, .f, ...) { - is_true <- vapply(.x, .f, logical(1), ...) - .x[is_true] -} - -.ess_devtools_functions <- function() { - if (!requireNamespace("devtools")) { - .ess_mpi_error("devtools is not installed") - stop("internal error") - } - devtools_env <- asNamespace("devtools") - exports <- getNamespaceExports("devtools") - funs_exported <- as.list(devtools_env)[exports] - - is_first_arg <- function(f, arg) { - args <- names(formals(f)) - length(args) && args[[1]] == arg - } - - funs_pkg <- .ess_keep(funs_exported, is.function) - funs_pkg <- .ess_keep(funs_pkg, is_first_arg, "pkg") - funs_names <- sort(names(funs_pkg)) - - funs_names -} diff --git a/elpa/ess-20181109.703/etc/ESSR/VERSION b/elpa/ess-20181109.703/etc/ESSR/VERSION deleted file mode 100644 index 840ca8cb..00000000 --- a/elpa/ess-20181109.703/etc/ESSR/VERSION +++ /dev/null @@ -1 +0,0 @@ -1.4 \ No newline at end of file diff --git a/elpa/ess-20181109.703/etc/Makefile b/elpa/ess-20181109.703/etc/Makefile deleted file mode 100644 index e2d613ef..00000000 --- a/elpa/ess-20181109.703/etc/Makefile +++ /dev/null @@ -1,70 +0,0 @@ -### Makefile - for scripts and icons (./etc) of ESS distribution. -### - -## Before making changes here, please take a look at Makeconf -include ../Makeconf - -# In ../Makefile we already construct the ESSR-VERSION file : -# ESSR_VERSION = $(shell cat ESSR-VERSION) - -#ETCFILES = $(wildcard BACKBUG[S5].BAT backbug[s5] *.S sas-keys.*) -#ETCFILES = ESSR.R ess-developer.R SVN-REVISION *.S sas-keys.* ess-sas-sh-command -# ETCFILES_1 = *.S sas-keys.* ess-sas-sh-command *.jl -ETCFILES_1 = ess-sas-sh-command *.jl -isRELEASE=$(shell test -f .IS.RELEASE && echo 'yes') -ifeq ($(isRELEASE),yes) - ETCFILES = .IS.RELEASE git-ref $(ETCFILES_1) -else - ETCFILES = $(ETCFILES_1) -endif - -#ICONS = $(wildcard icons/*.xpm) -ICONS = icons/*.xpm - -ESSR_UTIL_FILES = ESSR/LOADREMOTE ESSR/VERSION -ESSR_CODE_FILES = ESSR/R/*.R ESSR/R/.*.R -# ESSR_tarball = ESSR_$(ESSR_VERSION).tar.gz - -all: #ESSR-VERSION $(ESSR_tarball) library/ESSR - -show-etc: - @echo $(ETCFILES) - ls -l $(ETCFILES) - - -## happens "above" as it is need also in ../lisp/ : -# ESSR-VERSION: $(ESSR_FILES) -# (cd .. ; make etc/ESSR-VERSION) - -# $(ESSR_tarball): $(ESSR_FILES) -# R CMD build ESSR -# library/ESSR: $(ESSR_tarball) -# R CMD INSTALL -l library ESSR - -# rel: $(ESSR_tarball) -# [ x$$USER = xmaechler ] || (echo 'must be maechler'; exit 1 ) -# $(INSTALL) $(ESSR_tarball) $(UPLOAD_DIR)/pkgs/src/contrib - -install : - $(INSTALLDIR) $(ETCDIR)/icons - $(INSTALLDIR) $(ETCDIR)/ESSR/R - $(INSTALL) $(ETCFILES) $(ETCDIR) - $(INSTALL) $(ICONS) $(ETCDIR)/icons - $(INSTALL) $(ESSR_UTIL_FILES) $(ETCDIR)/ESSR - $(INSTALL) $(ESSR_CODE_FILES) $(ETCDIR)/ESSR/R - chmod +x $(ETCDIR)/ess-sas-sh-command - -uninstall : - -cd $(ETCDIR) && $(UNINSTALL) $(ETCFILES) - -cd $(ETCDIR) && $(UNINSTALL) $(ICONS) - -cd $(ETCDIR) && $(UNINSTALL) $(ESSR_UTIL_FILES) - -cd $(ETCDIR) && $(UNINSTALL) $(ESSR_CODE_FILES) - - - -## 'clean' shall remove *exactly* those things that are *not* in version control -clean distclean: - rm -rf SVN-REVISION -## 'distclean' removes also things in VC (svn, when they are remade by "make"): -# distclean: clean -# rm -rf ESSR_*.tar.gz diff --git a/elpa/ess-20181109.703/etc/R-ESS-bugs.R b/elpa/ess-20181109.703/etc/R-ESS-bugs.R deleted file mode 100644 index 607fc32d..00000000 --- a/elpa/ess-20181109.703/etc/R-ESS-bugs.R +++ /dev/null @@ -1,951 +0,0 @@ -#### File showing off things that go wrong or *went* wrong in the past #### -- with R-mode (mostly coded in ../lisp/ess-mode.el ) - -### NOTE: this file is indented with RRR style !!!!! -### but do not change indentations anymore of anything in here: -### expressions are written as we *want* them, not as ESS currently puts them - -options(keep.source = FALSE) # so we see R's deparse() + print() indentation - - -### --- 1 --------- extraneous comment chars : This seems fixed - -## From: Robert Gentleman -## To: Martin Maechler -## Subject: ESS buglet -## Date: Sun, 01 Jul 2007 21:41:24 -0700 - -## Hi Martin, -## It seems that the following buglet exists (at least in what ever -## version I am using) - -##a silly comment -##and a second one -foo <- function(x=a, abc = list("def", a=1,3,3), more.args, and, bla, - blu, bl, - another, plus, yet.another, and_mbasd, - lots = NULL, - more = NULL, - args = NULL) { - x -} - -##- when the line before a function def is a comment, and adding args, -##- then new lines, when generated have a comment char at the beginning of -##- the line. It is slightly annoying as I have to remove the comment char. -##- -##- If I add a blank line after the comment line, then the problem does not -##- occur. -## and another ''anonymous'' function: -function(x=a, abc = list("def", a=c(1,3,3)), more.args, and, bla, blu, - blo, Abc, - def, - another, and_another, and_this) { - ...; ... -} - -## This is a "TRUE" example (from Matrix/tests/ ): -NA.or.True <- function(x) is.na(x) | x - -abc <- function(x, y, ...) this.is.just.a.one.liner(x,y, z=TRUE, ...) - -## A more-liner function with no "{...}" -- this one even works (but not all!) -mindiff <- function(df) df[which.min(df$diff), - which.max(df$daff)] - -## Two functions in one line - can I "send" just one of them? {no, not "simply"} -f1 <- function(x) be.friendly(x, force=TRUE); f2 <- function(x,y) x*sin(pi*x) - -### --- 2 ---------------------------------------------------------------- -### --- Suggestion (Jenny Brian): --> Create a (defun ess-eval-multiline .) -## Here is useful valid R "test code": - -## From 'example(plot.default)' : - -Speed <- cars$speed -Distance <- cars$dist -plot(Speed, Distance, panel.first = grid(8,8), - pch = 0, cex = 1.2, col = "blue") -pp <- plot(Speed, Distance, panel.first = grid(8,8), - pch = 0, cex = 1.2, col = "blue") -plot(Speed, Distance, - panel.first = lines(lowess(Speed, Distance), lty = "dashed"), - pch = 0, cex = 1.2, col = "blue") - -## Note: We now at least C-c C-c {ess-eval-function-or-paragraph-and-step} - -### --- 3 ---------------------------------------------------------------- -###--- This one (from the Matrix package) is for testing ess-roxy..., -## i.e., C-c C-o - -## not exported but used more than once for "dimnames<-" method : -## -- or do only once for all "Matrix" classes ?? -dimnamesGets <- function (x, value) { - d <- dim(x) - if (!is.list(value) || length(value) != 2 || - !(is.null(v1 <- value[[1]]) || length(v1) == d[1]) || - !(is.null(v2 <- value[[2]]) || length(v2) == d[2])) - stop(gettextf("invalid dimnames given for '%s' object", class(x))) - x@Dimnames <- list(if(!is.null(v1)) as.character(v1), - if(!is.null(v2)) as.character(v2)) - x -} - -### --- 4 ---------------------------------------------------------------- -### continued statements -a <- function(ch) { - if(ch == Inf) { - E.cond <- numeric(nb) - } - else { - indic <- ifelse(jinf+1 <= 1 & jsup >= 1,1,0) - E.cond <- ch*(-pbinom(jinf,ni,prb) + 1-pbinom(js.n,ni,prb)) + - ifelse(ni == 1, prb*indic, - mu*(pbinom(js.n-1,pmax(ni-1,1),prb) - - pbinom(jinf-1,pmax(ni-1,1),prb))) / sV - -### ^-- now here (better) - mu/sV*(pbinom(js.n,ni,prb) - pbinom(jinf,ni,prb)) -### ^-- now here (ok; more indentation would also be ok) - indic2 <- ifelse(jinf+1 <= 1 & jsup >= 1 & ni == 2,1,0) - } -} - - -### --- 5 ---------------------------------------------------------------- -### The beginning of function is not found correctly, and hence -### all "ess-*-function" (C-M-a, C-M-e, ...) fail: - -setMeneric <- - ## It is clearly allowed to have comments here. - ## S version 4, and John Chambers in particular like it. - ## - ## BUG: M-C-e or M-C-a fails from ``here'' -- - ## --- effectively because of ess-beginning-of-function fails - ## and that really relies on finding ess-function-pattern; - ## i.e., ess-R-function-pattern in ~/emacs/ess/lisp/ess-cust.el - ## - function(name, def = NULL, group = list(), valueClass = character(), - where = topenv(parent.frame()), genericFunction = NULL) -{ - ## comments in here are at least kept via "source" attribute - if(exists(name, "package:base") && - typeof(get(name, "package:base")) != "closure") { - FALSE - } - "ABC" -} - -### --- 6 ---------------------------------------------------------------- -## In one-liners without "{ ... }" body, the end-of-function is also -## not correctly found: -## Use C-M-e to see: In these two, the "end-of-function" is after -## 'class' : -## ---- these all work now (ESS version 5.3.8) : -## no it doesn't VS[10-03-2012|ESS 12.03]: -onelinerFails <- function(x, ...) class(x) - -onelinerFailsToo <- - function(x, ...) - class(x) - -onelinerWorks <- function(x, ...) { class(x) } - -onelinerWorksToo <- - function(x, ...) { - class(x) - } - -### --- 7 ---------------------------------------------------------------- -## idem: -## this has one line more before 'function' than "typically:" -setMethod("[", signature(x = "dgTMatrix", i = "numeric", j = "missing", - drop = "logical"), - function (x, i, j, ..., drop) { ## select rows - storage.mode(i) <- "integer" - xi <- x@i + 1:1 # 1-indexing - ## ................... - if (drop && any(nd == 1)) drop(as(x,"matrix")) else x - }) - -### --- 8 ---------------------------------------------------------------- -## idem: -## all bellow are ok VS[10-03-2012|ESS 12.03]: -"dimnames<-.data.frame" <- function(x, value) { - d <- dim(x) - if(!is.list(value) || length(value) != 2 - || d[[1]] != length(value[[1]]) - || d[[2]] != length(value[[2]])) - stop("invalid 'dimnames' given for data frame") - row.names(x) <- as.character(value[[1]]) # checks validity - names(x) <- as.character(value[[2]]) - x -} - -'[.foo' <- function(x, i, value) -{ -### - y <- x - y[i] <- value - y -} - -'[[.bar' <- function(x, i, value) -{ - ## bla bla bla - y <- as.foo(x) ; y[[i]] <- value - y -} - -"[<-.foobar" <- function(x,i,j,value) { - ## just something - x -} - -"names<-.foobar" <- function(x, value) { - ## just something else - x -} - -`[<-.data.frame` <- function(x, i, j, value) -{ - nA <- nargs() # value is never missing, so 3 or 4. - -###.......... - - class(x) <- cl - x -} - -"[[<-.data.frame"<- function(x, i, j, value) -{ - cl <- oldClass(x) - ## delete class: Version 3 idiom - ## to avoid any special methods for [[<- - class(x) <- NULL - -###........... - - class(x) <- cl - x -} - - -"$<-.data.frame" <- function(x, i, value) -{ - cl <- oldClass(x) - ## delete class: Version 3 idiom - ## to avoid any special methods for [[<- - -###........... - - class(x) <- cl - return(x) -} - -## swanky functions: -`swank:quit-inspector` <- function(slimeConnection, sldbState) { - resetInspector(slimeConnection) - FALSE -} - -'swank:quit-inspector' <- function(slimeConnection, sldbState) { - resetInspector(slimeConnection) - FALSE -} - - -### --- 9 ---------------------------------------------------------------- -## VS[03-2012|12.03]:FIXED: - -## From: "Sebastian P. Luque" -## To: ess-bugs@stat.math.ethz.ch -## Subject: [ESS-bugs] ess-mode 5.12; `ess-indent-line' error -## Date: Tue, 17 Aug 2010 13:08:25 -0500 - -## With the following input, and point on the line with "Table 8.3": -## it was the parenthetical expression at the beg of line - -if (require(lme4)) { - ## Model in p. 213 - (fm1 <- lmer(logFEV1 ~ age + log(height) + age0 + log(height0) + (age | id), - data=fev1, subset=logFEV1 > -0.5)) - ## Table 8.3 - VarCorr(fm1)$id * 100 - - ## Model in p. 216 - (fm2 <- update(fm1, . ~ . - (age | id) + (log(height) | id))) -} - -### ----- -## hitting TAB (`ess-indent-command'), which calls `ess-indent-line' I get -## the following trace: - -## ....: (scan-error "Containing expression ends prematurely" 20 20) -## scan-sexps(177 -2) -## forward-sexp(-2) -## ... -## ess-continued-statement-p() -## ...... - -## Interestingly, if the lines 2-4 are absent, then the problem is gone. -## The problem is also there in ESS 5.11. - -## I'll try to find out what is going on in `ess-continued-statement-p' but -## given that I'm not very familiar with the stuff in ess-mode.el, I'm -## submitting the report in case somebody can detect the issue sooner. - -## another example: hitting Tab at }else line -.essDev_differs <- function(f1, f2){ - if (is.function(f1) && is.function(f2)){ - !(identical(body(f1), body(f2)) && identical(args(f1), args(f2))) - }else - !identical(f1, f2) -} - - - -### --- 10 --------------------------------------------------------------- -## indent at 0 after }else: -## VS:[03-2012|12.03]:FIXED: -if (is.function(f1) && is.function(f2)){ - !(identical(body(f1), body(f2)) && identical(args(f1), args(f2))) -}else - !identical(f1, f2) - - -### --- 11 --------------------------------------------------------------- -## --------------- C-c C-c was finding the wrong "beginning of function" -## [:FIXED:, 2011-05-28] -foobar <- function(...) {} -rm(list=ls()) - -##--------> consequence of the above experiments: -## the 2nd form is numerically "uniformly better" than the first -##--------> 2011-05-27: Change Frank's psiInv() to -## psiInv = function(t,theta) -## -log1p(exp(-theta)*expm1((1-t)*theta)/expm1(-theta)) - -### --- 12 --------------------------------------------------------------- -##--- In the following block, in the first line, C-c C-c does *NOT* behave -## VS[10-03-2012|ESS 12.03]: works fine for me: -th <- 48 # now do ls() and see what happened ... the horror !!! -d <- 3 -cpF <- list("Frank", list(th, 1:d)) -cop <- acF <- cpF$copula - -### --- 13 --------------------------------------------------------------- -## VS[05-05-2012|ESS 12.04]: looks like :FIXED: - -## From: Aleksandar Blagotic -## To: -## Subject: [ESS] R-mode: forward-sexp: Scan error: "Unbalanced parentheses" -## Date: Tue, 6 Dec 2011 01:24:11 +0100 - # -## Let's presuppose that I have a function like this: - # -fn <- function(x, ...){ - re <- "^#{1,6} [[:print:]]+$" - grepl(re, x, ...) -} -## As soon as I put my cursor at the end of the line with regexp, and -## press RET, I get this error: - -## forward-sexp: Scan error: "Unbalanced parentheses" -## -##------- -## Rodney S: I can reproduce it ... -## Martin M: I can NOT reproduce it, neither with 'emacs -Q'; -## tried both ESS 5.14 and ESS from svn -## VS[03-2012|12.03]: Cannot reproduce it either, solved? - - -### --- 14 --------------------------------------------------------------- -## check the behavior of ess-arg-function-offset-new-line - -a <- some.function( - arg1, - arg2) -## ^--- RRR has ess-arg-function-offset-new-line (4) ==> should indent here - -a <- some.function(arg1, - arg2) -## ^--- here - - -### --- 15 -------------------------------------------------------------- -## VS[05-05-2012|ESS 12.04]:FIXED: -## indentation of the 3rd line is wrong -for(s in seq(10, 50, len = 5)) - for(a in seq(.5, 1, len = 5)) - pt_dif_plot(s, a) -## ^-- here - -### --- 16 ---- -## VS[05-05-2012|ESS 12.04]:FIXED: -## MM[2014-04-28]: added '}' before else (=> "{" after if(.)) -## so parse() works at all! -## Gives error unbalanced para at else lines and indentation is wrong -## error: Point is not in a function according to 'ess-function-pattern'. -getOrCreateForm <- function(bindName, whereEnv) - if(exists(bindName, envir = get(".forms", envir = whereEnv))) { - get(bindName, envir = whereEnv) -### ^-- here - } else - new("protoForm") -### ^-- here - - - -parentContainer <- - if(is.null(.getPrototype(.Object@host))) { emptyenv() - } else sdf -### ^-- here - -parentContainer <- - if(is.null(.getPrototype(.Object@host))) emptyenv() - else sdf -### ^-- here - -### --- 17 --- -## Indentation ----- "expression" is special -expremmion <- c(1, 3, - 9876)# was always ok -## Had wrong indentation here: -expression <- c(2343, - 23874, 239487) - -## or here: -foo <- function(x) { - expression <- c(2343, - 23874, 239487) - 10 + expression -} - -## Where as here, we *do* want the indentation to -## *NOT* go all the way to the right: - -{ - my.long.Expression <- expression( - x[a[j]] == exp(theta[1] + theta[2]^2), - x[b[i]] == sin(theta[3] ~~ theta[4]) - ) - ausdruck <- expression - my.long.Expr...... <- ausdruck( - x[a[j]] == exp(theta[1] + theta[2]^2), - ) -} - -## VS[18-08-2012]: redundant feature. This is a feature for long subexpressions -## imidiately folowing new line. Documented in ess-arg-function-offset-new-line - -### --- 18 --- -## M-C-a (beginning of function) -## ----- anywhere inside the following function, M-C-a must go to beginning -Ops.x.x <- function(e1, e2) -{ - d <- dimCheck(e1,e2) - if((dens1 <- extends(c1 <- class(e1), "denseMatrix"))) - gen1 <- extends(c1, "generalMatrix") - if((dens2 <- extends(c2 <- class(e2), "denseMatrix"))) - gen2 <- extends(c2, "generalMatrix") - if(dens1 && dens2) { ## both inherit from ddense* - geM <- TRUE - if(!gen1) { - if(!gen2) { ## consider preserving "triangular" / "symmetric" - geM <- FALSE - le <- prod(d) - isPacked <- function(x) length(x@x) < le - } - } - ## now, in all cases @x should be matching & correct {only "uplo" part is used} - r <- callGeneric(e1@x, e2@x) - if(geM) - new(paste0(.M.kind(r), "geMatrix"), x = r, Dim = d, Dimnames = dimnames(e1)) - else - new(paste0(.M.kind(r), Mclass), x = r, Dim = d, .....) - } - else { - r <- .... - - ## criterion "2 * nnz(.) < ." as in sparseDefault() in Matrix() [./Matrix.R] : - if(2 * nnzero(r, na.counted = TRUE) < prod(d)) - as(r, "sparseMatrix") else r - } -} - - -### --- 19 --- -## indentation with regexp (bug in ess-backward-to-noncomment) -parse_roc <- function(lines, match = "^\\s*+\' ?") { - lines <- lines[str_detect(lines, match)] - if (length(lines) == 0) return(NULL) -### ^-- here (2014-11: fixed) -} - - -### --- 20 --- -## continuation indentation must be consistent in/out {}: - -{ - a <- ggplot(data = overtime.by.month, - aes(x="", y=Percent, fill = Overtime)) + - geom_bar(width = 1) + - xlab('') + - ylab(sub.txt) + - labs(title = title.txt) + - facet_wrap(~Year.Month) -} - -a <- ggplot(data = overtime.by.month, - aes(x="", y=Percent, fill = Overtime)) + - geom_bar(width = 1) + - xlab('') + - ylab(sub.txt) + - labs(title = title.txt) + - facet_wrap(~Year.Month) -### ^-- face_wrap must be here - - -### --- 20b --- -## From https://github.com/emacs-ess/ESS/issues/120 - -mean(rnorm(100, mean = runif(1, 1, 10)), na.rm =TRUE) + - 2 -## ^--- 2 is here - -mean(rnorm(100, mean = runif(1, 1, 10)), - na.rm =TRUE) + - 2 -## ^--- 2 is here - -mean(rnorm(100, - mean = runif(1, 1, 10)), na.rm=TRUE) + - 2 -## ^--- 2 is here - -### --- 21 --- - -## From: Marius Hofert -## Date: Fri, 15 Mar 2013 21:00:45 +0100 -## Hi, -## The following bug happens in ESS 12.09-2 [rev. 5395 (2013-01-10)]. Put the -## cursor in the line before the function head and hit C-c C-c. - -foo <- function(x) - x # bar -x <- 1:10 - -## I'll see -## > + > [1] 1 2 3 4 5 6 7 8 9 10 -## ESS 15.03: Error in eval(expr, .... : object 'x' not found - -foo <- function(x) x*x -bar <- function(y) y -## via C-c C-c leads to "Error: object 'bar' not found". -- fixed - - -### --- 22 ---- -## now correct indentation (inspite of # {was same reason as 19}) -if (!grepl("#", x)) - return(res) - -### --- 23 ---- -### three ways to indent closing parent depending on context: -foo <- - function_call( - a, - b, - c - ) -### ^-- ) is here now - -foo <- function_call( - a, - b, - c -) -### ")" is at column 0 - -foo <- function_call(a, - b, - c - ) -### ^-- ) is here - -### --- 24 --- -### shift comma in function calls - -foo <- function_call(a - , b - , c -### ^-- c is here - ) -### ^-- ) is here - -### --- 25 --- -## if/else in function calls and nested - -function_call(abc = - if (test) - do_something - else - do_something_else) - -function_call( - abc = - if (test) - do_something - else - do_something_else) - - -function_call(abc = if (test) - do_something - else - do_something_else) - -## real example is smooth.spline() source code [still (2015-04-08) wrong / bug!] -ss <- function (x, all.knots, nknots, ...) -{ - if (all.knots) { - if (!missing(nknots) && !is.null(nknots)) - warning("'all.knots' is TRUE; 'nknots' specification is disregarded") - nknots <- nx - } else if (is.null(nknots)) # <- for back compatibility - nknots <- .nknots.smspl(nx) - else { -### ^ want 'else' there - if (is.function(nknots)) - nknots <- nknots(nx) - else if (!is.numeric(nknots)) - stop("'nknots' must be numeric (in {1,..,n})") - if (nknots < 1) - stop("'nknots' must be at least 1") - else if (nknots > nx) - stop("cannot use more inner knots than unique 'x' values") - } -### ^-- want '}' there -} - -## "if" conditional is an exception of the continuation rules: -## Here, we do not want subsequently further indentation of the c1 || c2 || c3 -## part: -t2 <- function(x) { - if(long.expression.of.some.size(x, pi) || - another.longish.expression(sin(x)*exp(x)) || - a.third.condition.under.which.A.is.chosen) -### ^-- here - A - else - B -} - - -r <- - (some.function (x, 2342) + - another.f (x^3) + sdfsdf - sdfsdf + - and(x) + the(x) - last(x)*part(3)) - - -### --- 26 ---- -## This is formally correct R, though help(parse) mentions the line-length limit of -## 4095 __when reading from the console__ -## ESS gives syntax errors ("Error: unexpected ','" ...) when evaluating this -## because line length >= 4096 : -## -x <- c(1, 3.075819, 1.515999, 2.156169, 1.480742, 1.765485, 1.460206, 1.603707, 1.427429, 1.504712, 1.334528, 1.48297, 1.355308, 1.383867, 1.319241, 1.36065, 1.307467, 1.365596, 1.255259, 1.352741, 1.239381, 3.15342, 1.799889, 2.258497, 1.688312, 1.906779, 1.548203, 1.724785, 1.500873, 1.573442, 1.417137, 1.540805, 1.395945, 1.472596, 1.394247, 1.377487, 1.337394, 1.369354, 1.333378, 1.3181, 1.313813, 1.315528, 2.12777, 2.718898, 1.993509, 2.220433, 1.820585, 1.97782, 1.672455, 1.770151, 1.587478, 1.685352, 1.539295, 1.584536, 1.499487, 1.50702, 1.41952, 1.449058, 1.393042, 1.432999, 1.369964, 1.400997, 1.333824, 2.950549, 2.145387, 2.382224, 1.927077, 2.032489, 1.8371, 1.877833, 1.710891, 1.756053, 1.620778, 1.657761, 1.558978, 1.56257, 1.508633, 1.534406, 1.46709, 1.468734, 1.432529, 1.455283, 1.386975, 1.417532, 2.229573, 2.494447, 2.016117, 2.190061, 1.877996, 1.978964, 1.767284, 1.836948, 1.677372, 1.743316, 1.616383, 1.655964, 1.55484, 1.594831, 1.502185, 1.543723, 1.467005, 1.491123, 1.44402, 1.446915, 1.401578, 2.580264, 2.109121, 2.240741, 1.944719, 2.043397, 1.821808, 1.89725, 1.748788, 1.786988, 1.659333, 1.697012, 1.610622, 1.616503, 1.538529, 1.562024, 1.499964, 1.529344, 1.474519, 1.483264, 1.441552, 1.434448, 2.165233, 2.320281, 2.007836, 2.086471, 1.884052, 1.950563, 1.76926, 1.843328, 1.708941, 1.741039, 1.627206, 1.644755, 1.580563, 1.593402, 1.527312, 1.568418, 1.501462, 1.502542, 1.464583, 1.467921, 1.431141, 2.340443, 2.048262, 2.161097, 1.926082, 1.995422, 1.81446, 1.853165, 1.738533, 1.784456, 1.679444, 1.696463, 1.612931, 1.629483, 1.548186, 1.580026, 1.52198, 1.531111, 1.482914, 1.484824, 1.442726, 1.447838, 2.093386, 2.185793, 1.948989, 2.02804, 1.867137, 1.907732, 1.771923, 1.800413, 1.691612, 1.720603, 1.642705, 1.649769, 1.589028, 1.598955, 1.539759, 1.55096, 1.503965, 1.50703, 1.471349, 1.469791, 1.436959, 2.218315, 1.997369, 2.041128, 1.887059, 1.928524, 1.79626, 1.827538, 1.716748, 1.735696, 1.658329, 1.664211, 1.599286, 1.611511, 1.553925, 1.562637, 1.516805, 1.529894, 1.476064, 1.482474, 1.453253, 1.458467, 2.0247, 2.07899, 1.921976, 1.949376, 1.824629, 1.851671, 1.744713, 1.765647, 1.683525, 1.685592, 1.625113, 1.624961, 1.571921, 1.581223, 1.535257, 1.537464, 1.497165, 1.504879, 1.468682, 1.469319, 1.448344, 2.092315, 1.941412, 1.969843, 1.844093, 1.866133, 1.766145, 1.783829, 1.703613, 1.709714, 1.646078, 1.654264, 1.594523, 1.598488, 1.545105, 1.555356, 1.514627, 1.521353, 1.483958, 1.487677, 1.449191, 1.459721, 1.958987, 1.985144, 1.87739, 1.879643, 1.786823, 1.799642, 1.720015, 1.724688, 1.663539, 1.662997, 1.609267, 1.615124, 1.56746, 1.562026, 1.520586, 1.52503, 1.493008, 1.502496, 1.471983, 1.468546, 1.435064, 1.994706, 1.880348, 1.894254, 1.805827, 1.815965, 1.744296, 1.743389, 1.665481, 1.681644, 1.624466, 1.626109, 1.584028, 1.5818, 1.54376, 1.547237, 1.504878, 1.515087, 1.479032, 1.47936, 1.450758, 1.45073, 1.892685, 1.91087, 1.825301, 1.827176, 1.745363, 1.746115, 1.693373, 1.701692, 1.648247, 1.637112, 1.594648, 1.592013, 1.554849, 1.55013, 1.522186, 1.520901, 1.492606, 1.493072, 1.460868, 1.46733, 1.440956, 1.92771, 1.835696, 1.841979, 1.775991, 1.766092, 1.703807, 1.708791, 1.654985, 1.655917, 1.602388, 1.611867, 1.570765, 1.573368, 1.53419, 1.529033, 1.506767, 1.503596, 1.481126, 1.471806, 1.444917, 1.451682, 1.850262, 1.855034, 1.778997, 1.789995, 1.718871, 1.717326, 1.667357, 1.666291, 1.619743, 1.631475, 1.582624, 1.58766, 1.546302, 1.545063, 1.512222, 1.517888, 1.489127, 1.487271, 1.466722, 1.463618, 1.444137, 1.8709, 1.794033, 1.80121, 1.736376, 1.740201, 1.673776, 1.682541, 1.638153, 1.642294, 1.604417, 1.597721, 1.559534, 1.559108, 1.533942, 1.529348, 1.499517, 1.501586, 1.473147, 1.473031, 1.457615, 1.452348, 1.805753, 1.812952, 1.746549, 1.747222, 1.696924, 1.694957, 1.652157, 1.650568, 1.607807, 1.613666, 1.577295, 1.570712, 1.543704, 1.538272, 1.515369, 1.517113, 1.487451, 1.491593, 1.464514, 1.464658, 1.439359, 1.823222, 1.758781, 1.767358, 1.70872, 1.712926, 1.666956, 1.667838, 1.62077, 1.621445, 1.592891, 1.58549, 1.55603, 1.559042, 1.521501, 1.523342, 2, 3, 4) - -### --- 27 ---- -## Indentation after open brace -.a.lst <- - list(ex1 = function(p) { - cMah <- qchisq(0.975, p) - function(d) as.numeric(d < cMah) -### ^--- now here (less indented than prev.) - }, - ex2 = function(p) { - cM <- qchisq(0.95, p) - function(d) as.numeric(d < cM) -### ^--- here - }) -### ^--- '}' here - - -.a.lst <- list(ex1 = function(p) { - cMah <- qchisq(0.975, p) - function(d) as.numeric(d < cMah) -}, ## <- now at column 0 {also the next line} -ex2 = function(p) { - cM <- qchisq(0.95, p) - function(d) as.numeric(d < cM) -}) - - -.a.lst <- list(list(aa = { - bbb -### ^--- here -}, -aaa = function(p) { - qchisq(0.95, p) -### ^--- here -}, -aaaa = { - cccc -### ^--- here -})) - -list(function(p){ - abc -### ^-- here - ## <-- Press [Tab] before/at the first '#': should *NOT* insert '...=' -}) -### at column 0 - -(ab) { - sfdsf -### ^-- here -} - -### --- 27b --- [new, 2015-04-09] -print.MethodsFunction <- function(x, byclass = attr(x, "byclass"), ...) -{ - info <- attr(x, "info") - values <- if (byclass) { - unique(info$generic) - } else { - visible <- ifelse(info$visible, "", "*") - paste0(rownames(info), visible) -### ^-- both lines above should start here - } -### ^-- "}" here - - ## 2nd version: - val <- - if (byclass) { - unique(info$generic) - } else { - visible <- ifelse(info$visible, "", "*") - paste0(rownames(info), visible) -### ^-- both lines above should start here - } -### ^-- "}" here - invisible(x) -} - - - -### --- 28 --- [2015-02-17; still unfixed, 2015-11-21] -## Indentation of end-line comments (to column 40 = 'indent-column') -## {this is part of "real" code in Rmpfr/R/hjk.R}: -hjk <- function(x,n) { # <--- C-M-q "on {" -- does *no longer* indent the "# .." - ##-- Setting steps and stepsize ----- - nsteps <- floor(log2(1/tol)) # number of steps - steps <- 2^c(-(0:(nsteps-1))) # decreasing step size - dir <- diag(1, n, n) # orthogonal directions - - x <- par # start point - fx <- f(x) # smallest value so far - fcount <- 1 # counts number of function calls - - if (info) cat(sprintf("step nofc %-12s | %20s\n", - "fmin", "xpar")) - - ##-- Start the main loop ------------ - ns <- 0 - while (ns < nsteps && fcount < maxfeval && abs(fx) < target) { - ns <- ns + 1 - hjs <- .hjsearch(x, f, steps[ns], dir, fcount, maxfeval, target) - } - hjs -} - -### --- 29 --- -foreach(a = 1:3) %do% { - a^2 -### ^--- here -} - -foreach(a = 1:3) %:% - foreach(b = 10:13) %dopar% { -### ^--- here - a + b -### ^---- here - } -### ^--- here - -read.csv('file.csv') %>% - mutate(X = X+2, Y = Y/2) %>% -### ^--- here - filter(X < 5) -### ^-- here (*was* indented earlier) - - -### --- 30 --- -## a) ok: -{ - r <- array(if (d[3L] == 3L) - rgb(t(x[,,1L]), t(x[,,2L]), t(x[,,3L]), maxColorValue = max) - else if (d[3L] == 4L) - rgb(t(x[,,1L]), t(x[,,2L]), t(x[,,3L]), t(x[,,4L]), maxColorValue = max) - else stop("foo"), - dim = d[1:2]) -} - -## b) ok : -{ - obj <- obj && (condition1 || class2 %in% .BasicClasses || - condition3) -} - -## c) ok: -{ - if (any(abs(d) < .001*abs(dd) | - (is.na(d) & x == y))) - TRUE -} - - -### --- 31 -------- -## C-s "recog"; M-C-a -- should go to beginning of function, does not - -glmmTMB <- function (formula, data = NULL) -{ - ## glFormula <- function(formula, data=NULL, family = gaussian, - ## subset, weights, na.action, offset, - ## contrasts = NULL, mustart, etastart, - ## control = glmerControl(), ...) { - - ## FIXME: check for offsets in ziformula/dispformula, throw an error - - call <- mf <- mc <- match.call() - - if (is.null(family$family)) { - print(family) - stop("'family' not recognized") - } -} - - -### --- 32 --- 2015-11-07 --- indentation again! -------- -{ - yl <- if(strictlim) { - ylim - } - else { - range(y, ylim) - } - ## room below for weights - dy <- 4*dy -} -## -- 32 b) -{ - yl <- if(strictlim) { - ylim - } - else - range(y, ylim) - ## continue -} -## -- 32 c) -{ - U <- if(is.matrix(x)) - apply(x, 2, foo) / (nrow(x) + 1) - else - foo(x) / (length(x) + 1) -} -## 'else' now aligns with 'if' (and their code too) - -### --- 33 -- Treat `<<-` as `<-` -{ - f(X <- - callme(arg)) - f(X <<- - callme(arg)) -} -## the 2nd callme() now indents like the first - - -### --- 34 --- "eval-function" (e.g. C-c C-c) fails with this - -##' checking pretty(): -chkPretty <- function(x, n = 5, min.n = NULL, ..., max.D = 1) { - if(is.null(min.n)) { - ## work with both pretty.default() and greDevices::prettyDate() - ## *AND* these have a different default for 'min.n' we must be "extra smart": - min.n <- - if(inherits(x, "Date") || inherits(x, "POSIXt")) - n %/% 2 # grDevices:::prettyDate - else - n %/% 3 # pretty.default - } - pr <- pretty(x, n=n, min.n=min.n, ...) - ## if debugging: pr <- grDevices:::prettyDate(x, n=n, min.n=min.n, ...) - stopifnot(length(pr) >= (min.n+1), - abs(length(pr) - (n+1)) <= max.D, - ## must be equidistant [may need fuzz, i.e., signif(.) ?]: - length(pr) == 1 || length(unique(diff(pr))) == 1, - ## pretty(x, *) must cover range of x: - min(pr) <= min(x), max(x) <= max(pr)) - invisible(pr) -} - - -### --- 35 --- indentation of conditional function definitions: -## from a robustbase vignette: -{ - ## calculate robustness weights - lwgts <- Mwgt(lresid, lctrl$tuning.psi, lctrl$psi) - ## function to calculate robustified leverages - tfun <- - if (is.function(attr(estlist$design, 'gen'))) - function(i) { - if (all(is.na(wi <- lwgts[i,]))) wi - else .lmrob.hat(lXs[,,i,lcdn[2]],wi) - } - else -### \-<-- 'else' (and all below) should indent 4 more, 'else' matching the above 'if' - function(i) { - if (all(is.na(wi <- lwgts[i,]))) wi else .lmrob.hat(lX, wi) - } -} - -### --- 36 --- indentation of '#' inside string plus a '#' after that, issue #446 -A <- f("abc") + - f("abc") + f("abc") + - f("abc # abc") + - ## The above is now ok, - f("abc # abc") + # <- comment w/o quotes or hashtag -- fixed now: next line was indented to beginning of line - f("ABCDEF") + - f(g(h("abc # def"), "foo ## bar")) + - f("another") - - -### --- 37 ----------Github issue #432 ---- now fixed -## Indentation after string with "*" -fo4 <- function(x, ...) { - if(length(x) > 0) - warning("Result gave strings of *different* #{characters}") - x - ## 'x' was wrongly indented --here: ^ -} - -### --- 38 ----------Mario Bouguin to ESS-bugs, Nov 21, 2017 ---- -scored <- read.csv(scored_path, comment.char="#") -## writes -## When I'm on the line and execute ess-eval-region-or-function-or-paragraph-and-step (i.e. C-c C-c), R only receives this: -## -## > scored <- read.csv(scored_path, comment.char=" -## + -## MM: but I don't see this, so told him to upgrade ESS (he had 16.10, Windows) - - -## This is a problem only inside package code [ess-tracebug related] -rm(old,new) -old <- 10 # line 1, use ess-eval-line, i.e., C-c C-j -new <- old+1 # line 2, use ess-eval-line-and-step, i.e., C-c C-n - - - - -### Local Variables: -### page-delimiter: "^### --- [1-9]" -### End: diff --git a/elpa/ess-20181109.703/etc/R-ESS-bugs.el b/elpa/ess-20181109.703/etc/R-ESS-bugs.el deleted file mode 100644 index a5c831c3..00000000 --- a/elpa/ess-20181109.703/etc/R-ESS-bugs.el +++ /dev/null @@ -1,91 +0,0 @@ -;;;; Things that go wrong or *went* wrong in the past -;;;; (from list side) see R-ESS-bugs.R for the R's side. - - - ;;;; 1 ess-get-words-from-vector stumbles over \" -(ess-get-words-from-vector "c('aaa','bbb\"ccc', 'dddd')\n") -;;-> (" " "ccc" "dddd"): SOLVED - - -;;;; 2 ess-get-words-from-vector disregards max.print -;; options(max.print=1000) (warning added to the docs) -(length (ess-get-words-from-vector "as.character(1:10000)\n")) -;;-> 1001 with "max.print" at the end; added a comment in the function doc - -;;;; 3 Inferior-ess-primary-prompt does not capture "+ + > " -;; this hangs emacs; SOLVED -(ess-command "tf<-function(N){ -N}\n") - -;;;; 4 ess-command detects the prompt prematurely -;; this outputs str(iris) in the inferior buffer; SOLVED -(ess-command " -lm_test <- function (formula, data, subset, weights, na.action, method = 'qr', - model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE, - contrasts = NULL, offset, ...) -{ - cl <- match.call() - mf <- match.call(expand.dots = FALSE) - m <- match(c('formula', 'data', 'subset', 'weights', 'na.action', - 'offset'), names(mf), 0L) - mf <- mf[c(1L, m)] - mf$drop.unused.levels <- TRUE - mf[[1L]] <- as.name('model.frame') - mf <- eval(mf, parent.frame()) - if (method == 'model.frame') - return(mf) - else if (method != 'qr') - warning(gettextf('method is not supported. Using', - method), domain = NA) - mt <- attr(mf, 'terms') - y <- model.response(mf, 'numeric') - w <- as.vector(model.weights(mf)) - if (!is.null(w) && !is.numeric(w)) - stop('weights must be a numeric vector') - offset <- as.vector(model.offset(mf)) - if (!is.null(offset)) { - if (length(offset) != NROW(y)) - stop(gettextf('number of offsets is %d, should equal %d (number of observations)', - length(offset), NROW(y)), domain = NA) - } - if (is.empty.model(mt)) { - x <- NULL - z <- list(coefficients = if (is.matrix(y)) matrix(, 0, - 3) else numeric(0L), residuals = y, fitted.values = 0 * - y, weights = w, rank = 0L, df.residual = if (!is.null(w)) sum(w != - 0) else if (is.matrix(y)) nrow(y) else length(y)) - if (!is.null(offset)) { - z$fitted.values <- offset - z$residuals <- y - offset - } - } - else { - x <- model.matrix(mt, mf, contrasts) - z <- if (is.null(w)) - lm.fit(x, y, offset = offset, singular.ok = singular.ok, - ...) - else lm.wfit(x, y, w, offset = offset, singular.ok = singular.ok, - ...) - } - class(z) <- c(if (is.matrix(y)) 'mlm', 'lm') - z$na.action <- attr(mf, 'na.action') - z$offset <- offset - z$contrasts <- attr(x, 'contrasts') - z$xlevels <- .getXlevels(mt, mf) - z$call <- cl - z$terms <- mt - if (model) - z$model <- mf - if (ret.x) - z$x <- x - if (ret.y) - z$y <- y - if (!qr) - z$qr <- NULL - z -} -str(iris) -") - -;;;; 5 double prompt > > used to stall emacs; SOLVED -(ess-command "\n\n\n") diff --git a/elpa/ess-20181109.703/etc/R-error-patterns.R b/elpa/ess-20181109.703/etc/R-error-patterns.R deleted file mode 100644 index 995d9c43..00000000 --- a/elpa/ess-20181109.703/etc/R-error-patterns.R +++ /dev/null @@ -1,71 +0,0 @@ - -## 1 -Error: chunk 7 (label = OP4) -Error in disp.Rnw:656:31: unexpected symbol -655: par(mgp = c(2.5, 1, 1), mar = c(0, 0, 0, 0), - 656: plt= c(0.08, 0.9, 0.25, 0.p9 -)) - -## 2 -Browse[2]> Error in x %*% y (from models.R#46) : - Cholmod error 'X and/or Y have wrong dimensions' at file ../MatrixOps/cholmod_sdmult.c, line 90 - -## 3 -Error in source("~/works/protoClasses/R/funcs.R") (from hierarchy.R#6) : - ~/works/protoClasses/R/funcs.R:1797:5: unexpected '[[' -1796: b[[2]] <- quote(browser()) -1797: [[ - ^ -## 4 -source("basicModel.R") -Error in source("basicModel.R") : basicModel.R:95:1: unexpected symbol -94: -95: ixQ - ^ - -## 5.a -> + Error in source(file = "/home/vitoshka/works/pbm/R/S4.R") (from #1) : - /home/vitoshka/works/pbm/R/S4.R:36:62: unexpected ')' -35: }, list(vname = as.name(".pix_v")), -36: pname = as.name(".pix_p")))) - ^ - -## 5.b -> + Error in source(file = "/home/vitoshka/works/pbm/R/S4.R") (from #1) : - c:/home/vitoshka/works/pbm/R/S4.R:36:62: unexpected ')' -35: }, list(vname = as.name(".pix_v")), -36: pname = as.name(".pix_p")))) - ^ - -## 6 first line is not a pattern! -+ . + Error in base::source(file = file, echo = echo, local = local, print.eval = print.eval, (from #95) : - /tmp/model_mixture.R@4:5:13: unexpected symbol -4: Mq$DATA$ixs$clust <- data$ixQ -5: Mq - -## 7 don't highlight dates - id lat lon obs_date - Min. : 1.00 Min. :21.57 Min. :-179.88 01/02/1997 04:16:53: 1 - 1st Qu.: 99.25 1st Qu.:24.36 1st Qu.:-147.38 01/02/1997 05:56:25: 1 - Median :197.50 Median :25.64 Median :-119.64 01/04/1997 17:41:54: 1 - Mean :197.50 Mean :27.21 Mean : -21.52 01/05/1997 17:20:07: 1 - 3rd Qu.:295.75 3rd Qu.:27.41 3rd Qu.: 153.66 01/06/1997 04:31:13: 1 - Max. :394.00 Max. :39.84 Max. : 179.93 01/06/1997 06:12:56: 1 - (Other) :388 -## 8 valgrind errors -==25269== Invalid read of size 8 -==25269== at 0x9EC363C: inner_product (stl_numeric.h:183) -==25269== by 0x9EC363C: distance(RcppParallel::RMatrix const&, unsigned long, unsigned long, DistType) (rwmd.cpp:21) -==25269== by 0x9EC90C9: RelaxedWordMoverDistanceSparse::operator()(unsigned long, unsigned long) (rwmd.cpp:137) - -## 9 testhat new patterns -test_embeddings.R:20: failure: average embedding works -embed_vocab(vocab, embs) not equal to embs[, 1:N]. -Attributes: < Length mismatch: comparison on first 1 components > - -test_embeddings.R:59: error: average embedding works with missing values -no 'dimnames' attribute for array -1: expect_equal(e[, "dd"], e[, "ee"]) at /store/Dropbox/dev/mlvocab/tests/testthat/test_embeddings.R:59 -2: quasi_label(enquo(object), label) at /tmp/Rtmp6McxD6/R.INSTALL70c948e315c6/testthat/R/expect-equality.R:51 -3: eval_bare(get_expr(quo), get_env(quo)) at /tmp/Rtmp6McxD6/R.INSTALL70c948e315c6/testthat/R/expectation.R:90 - diff --git a/elpa/ess-20181109.703/etc/completion_ideas.R b/elpa/ess-20181109.703/etc/completion_ideas.R deleted file mode 100644 index bb4dc558..00000000 --- a/elpa/ess-20181109.703/etc/completion_ideas.R +++ /dev/null @@ -1,30 +0,0 @@ - -## inspired by: -## https://github.com/rstudio/rstudio/pull/191 - -## nested calls should work -df[a][, |] - -## matrix, list, environments -l <- list(aaaa = 1111, bbbb = 2222) -l[a|] ## -> "aaaa" (quoted!) - -## data table -dt <- data.table(aaaa = 1111, bbbb = 22222) -dt[, a|] # -> aaaa (unquoted!) - -## attributes -x <- "" -attr(x, "foo") <- function(alpha, beta) {} -attr(x, "foo")(al| # -> "alpha" - -## chains -mtcars %>% dplyr::select(mp| #-> mpg (unquoted)) - -## models -lm(mpg ~ cy| , data = mtcars) #-> cyl - -## "by" keyword in data.table, inner_join, etc -inner_join(foo, bar, by = c(| # provides completions for variables in foo when - # on the left side of an =, and bar when on the - # right side of an =. diff --git a/elpa/ess-20181109.703/etc/ess-julia.jl b/elpa/ess-20181109.703/etc/ess-julia.jl deleted file mode 100644 index 722d252d..00000000 --- a/elpa/ess-20181109.703/etc/ess-julia.jl +++ /dev/null @@ -1,119 +0,0 @@ -module ESS - -# These methods have been deprecated / moved -macro current_module() - return VERSION >= v"0.7-" ? :(@__MODULE__) : :(current_module()) -end - -parse = VERSION >= v"0.7-" ? Base.Meta.parse : Base.parse -function_module = VERSION >= v"0.7-" ? Base.parentmodule : Base.function_module - -function all_help_topics() - ## There are not clear topics anymore. Approximate those with a very general - ## apropos(" ") - Base.Docs.apropos(" ") -end - -function help(topic::AbstractString) - VERSION >= v"0.4-" ? Core.eval(@current_module(), parse("@doc $topic")) : Base.Help.help(topic) -end - -## modified version of function show(io::IO, m::Method) -function fun_args(m::Method) - tv, decls, file, line = Base.arg_decl_parts(m) - io = VERSION >= v"0.7-" ? Base.stdout : STDOUT::IO # STDOUT is no longer in 1.0 - if !isempty(tv) - Base.show_delim_array(io, tv, '{', ',', '}', false) - end - print(io, "(") - join(io, [escape_string(isempty(d[2]) ? d[1] : d[1]*"::"*d[2]) for d in decls], - ",", ",") - Base.print(io, ")") -end - -## modified versionof show(io::IO, mt::MethodTable) -function fun_args(f::Function) - mt = Base.MethodList(methods(f).mt) - mod = function_module(f) # Base.function_module deprecated in 0.7 - if mod == Main - mod = "nil" - end - print("(list \"$mod\" nil '(") - for d in mt - print("\"") - ## method - fun_args(d) - print("\" ") - end - print("))") -end - -function fun_args(s::AbstractString) - try - m = Core.eval(@current_module(), parse(s)) - if ! isa(m, String) - fun_args(m) - end - catch - print("(list nil nil nil)") - end -end - -function fun_args(t::DataType) - print("(list nil nil '(") - for d = fieldnames(t) - print("\"$d\" ") - end - print("))") -end - - -### OBJECT COMPLETION -# Must print an output of the form: -# -# Cache Module -# Write Module -# add Function -# free Function -function components(m::Module) - for v in sort(names(m)) - s = string(v) - if isdefined(m,v) - println(rpad(s, 30), summary(Core.eval(m,v))) - end - end -end - -function components(t::DataType) - for v in sort(fieldnames(t)) - println(rpad(string(v), 30), "field") - end -end - -function components(v) - t = typeof(v) - if isa(t, DataType) - return components(t) - end -end - - -### MISC -function main_modules(m::Module) - for nm in names(m) - if isdefined(m, nm) - mod = Core.eval(m, nm) - if isa(mod, Module) - print("\"$nm\" ") - end - end - end -end - -if VERSION >= v"0.7-" - main_modules() = main_modules(Base.parentmodule(@current_module())) -else - main_modules() = main_modules(@current_module()) -end - -end diff --git a/elpa/ess-20181109.703/etc/ess-sas-sh-command b/elpa/ess-20181109.703/etc/ess-sas-sh-command deleted file mode 100755 index 7c1d9101..00000000 --- a/elpa/ess-20181109.703/etc/ess-sas-sh-command +++ /dev/null @@ -1,76 +0,0 @@ -#!/bin/sh - -### (C) 1997, Richard M. Heiberger. -### 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 -## https://www.r-project.org/Licenses/ - - -# For executing SAS, and running it in the proper manner for ESS -# (feeding output back into appropriate ESS buffers). - -#echo $0 $@ -#sas $1 2>$2 $3 - -set -x -stdout=$1 -stderr=$2 -shift 2 -set +x -echo sas \$stdout 2\>$stderr $@ -sas $stdout 2>$stderr $@ - -## From the SAS online tech support: -## -## Redirecting the SAS Log and Output under UNIX. -## -## There are several ways of redirecting the SAS Log and Output under -## UNIX. -## -## To redirect the SAS Log, follow one of these steps: -## -## 1. -## In the source code, place the following line: -## -## proc printto log=stdout; -## -## to make a duplicate copy of the log in a file in addition -## to redirecting it to stdout, use this command to invoke -## SAS: -## -## sas -altlog doit.log doit.sas -## -## 2.Execute SAS in the background and use the UNIX 'tail' command -## to copy lines to stdout as they are added to the log. Use the -## command: -## -## sas doit.sas &; tail -f doit.log -## -## To redirect the SAS Log and Output under the Korn shell, use the -## following command: -## -## sas -stdio < doit.sas > doit.lst 2> doit.log -## -## To redirect the SAS Log and Output under the C-Shell, use the -## following command: -## -## (sas -stdio < doit.sas > doit.lst) >& doit.log - -## From WWW.SAS.COM: -## How can I make SAS in batch mode behave like interactive SAS, -## continue running my SAS job, and not enter syntax check mode when -## it encounters an error? -## -## You can specify the NOSYNTAXCHECK option when you invoke your SAS -## program. diff --git a/elpa/ess-20181109.703/etc/gpl-check b/elpa/ess-20181109.703/etc/gpl-check deleted file mode 100755 index a3340b54..00000000 --- a/elpa/ess-20181109.703/etc/gpl-check +++ /dev/null @@ -1,56 +0,0 @@ -#!/bin/sh - -if [ $# -eq 0 -o "$1" = "-h" -o "$1" = "-help" -o "$1" = "--help" ] -then - echo "usage: gpl-check [-h|-help|--help|-2|-3|-u|-n] file1 [file2 ...]" - echo " -h|-help|--help print this help" - echo " -2 print file names found with GPLv2+" - echo " -3 print file names found with GPLv3+" - echo " -u print file names found with a GPL of unknown version" - echo " -n print file names with no GPL found" - echo " file1 [file2 ...] list of files to check" -else - GPLV2=0 - GPLV3=0 - GPLVUNK=0 - NOGPL=0 - - for i - do - case $i in - -2) GPLV2=1;; - -3) GPLV3=1;; - -23) GPLV2=1;GPLV3=1;; - -u) GPLVUNK=1;; - -n) NOGPL=1;; - -nu|-un) GPLVUNK=1;NOGPL=1;; - *) if [ $GPLV2 -eq 0 -a $GPLV3 -eq 0 -a $GPLVUNK -eq 0 -a $NOGPL -eq 0 ] - then - GPLV2=1 - GPLV3=1 - GPLVUNK=1 - NOGPL=1 - fi - if grep -l 'either version 2, or' $i > /dev/null - then - if [ $GPLV2 -eq 1 ] - then echo "$i GPLv2+" - fi - elif grep -l 'either version 3' $i > /dev/null - then - if [ $GPLV3 -eq 1 ] - then echo "$i GPLv3+" - fi - elif grep -l 'GNU General Public License' $i > /dev/null - then - if [ $GPLVUNK -eq 1 ] - then echo "$i GPLv unknown" - fi - else - if [ $NOGPL -eq 1 ] - then echo "$i no GPL" - fi - fi;; - esac - done -fi diff --git a/elpa/ess-20181109.703/etc/pkg-Maintainers b/elpa/ess-20181109.703/etc/pkg-Maintainers deleted file mode 100644 index 28537cdf..00000000 --- a/elpa/ess-20181109.703/etc/pkg-Maintainers +++ /dev/null @@ -1,3 +0,0 @@ -Debian: Dirk Eddelbuettel -RPM: Tom Moertel -SuSe: Detlef Steuer diff --git a/elpa/ess-20181109.703/license.info b/elpa/ess-20181109.703/license.info deleted file mode 100644 index 2bf932c3..00000000 --- a/elpa/ess-20181109.703/license.info +++ /dev/null @@ -1,17 +0,0 @@ -This is license.info, produced by makeinfo version 6.5 from -license.texi. - -The source and documentation of ESS 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. - - ESS 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 in -the file COPYING in the same directory as this file for more details. - - -Tag Table: - -End Tag Table diff --git a/elpa/ess-20181109.703/mailing.info b/elpa/ess-20181109.703/mailing.info deleted file mode 100644 index 550b538a..00000000 --- a/elpa/ess-20181109.703/mailing.info +++ /dev/null @@ -1,21 +0,0 @@ -This is mailing.info, produced by makeinfo version 6.5 from -mailing.texi. - -There is a mailing list for discussions and announcements relating to -ESS. Join the list by sending an e-mail with "subscribe ess-help" (or -"help") in the body to ; contributions -to the list may be mailed to . Rest assured, -this is a fairly low-volume mailing list. - - The purposes of the mailing list include - - * helping users of ESS to get along with it. - * discussing aspects of using ESS on Emacs and XEmacs. - * suggestions for improvements. - * announcements of new releases of ESS. - * posting small patches to ESS. - - -Tag Table: - -End Tag Table diff --git a/elpa/ess-20181109.703/make-regexp.el b/elpa/ess-20181109.703/make-regexp.el deleted file mode 100644 index 406d9ddb..00000000 --- a/elpa/ess-20181109.703/make-regexp.el +++ /dev/null @@ -1,238 +0,0 @@ -;;; make-regexp.el --- generate efficient regexps to match strings. - -;; Copyright (C) 1994, 1995 Simon Marshall. - -;; Author: Simon Marshall -;; Keywords: lisp, matching -;; Version: 1.02 - -;; LCD Archive Entry: -;; make-regexp|Simon Marshall|simon@gnu.ai.mit.edu| -;; Generate efficient regexps to match strings.| -;; 11-Jul-1995|1.02|~/functions/make-regexp.el.gz| - -;; The archive is archive.cis.ohio-state.edu in /pub/gnu/emacs/elisp-archive. - -;;; This file is not part of GNU Emacs. - -;;; This program 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 program 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; Purpose: -;; -;; To make efficient regexps from lists of strings. - -;; For example: -;; -;; (let ((strings '("cond" "if" "while" "let\\*?" "prog1" "prog2" "progn" -;; "catch" "throw" "save-restriction" "save-excursion" -;; "save-window-excursion" "save-match-data" -;; "unwind-protect" "condition-case" "track-mouse"))) -;; (concat "(" (make-regexp strings t))) -;; -;; => "(\\(c\\(atch\\|ond\\(\\|ition-case\\)\\)\\|if\\|let\\*?\\|prog[12n]\\|save-\\(excursion\\|match-data\\|restriction\\|window-excursion\\)\\|t\\(hrow\\|rack-mouse\\)\\|unwind-protect\\|while\\)" -;; -;; To search for the above regexp takes about 70% of the time as for the simple -;; (concat "(\\(" (mapconcat 'identity strings "\\|") "\\)") regexp. -;; -;; Obviously, the more the similarity between strings, the faster the regexp: -;; -;; (make-regexp '("abort" "abs" "accept" "access" "array" "begin" "body" "case" -;; "constant" "declare" "delay" "delta" "digits" "else" "elsif" -;; "entry" "exception" "exit" "function" "generic" "goto" "if" -;; "others" "limited" "loop" "mod" "new" "null" "out" "subtype" -;; "package" "pragma" "private" "procedure" "raise" "range" -;; "record" "rem" "renames" "return" "reverse" "select" -;; "separate" "task" "terminate" "then" "type" "when" "while" -;; "with" "xor")) -;; -;; => "a\\(b\\(ort\\|s\\)\\|cce\\(pt\\|ss\\)\\|rray\\)\\|b\\(egin\\|ody\\)\\|c\\(ase\\|onstant\\)\\|d\\(e\\(clare\\|l\\(ay\\|ta\\)\\)\\|igits\\)\\|e\\(ls\\(e\\|if\\)\\|ntry\\|x\\(ception\\|it\\)\\)\\|function\\|g\\(eneric\\|oto\\)\\|if\\|l\\(imited\\|oop\\)\\|mod\\|n\\(ew\\|ull\\)\\|o\\(thers\\|ut\\)\\|p\\(ackage\\|r\\(agma\\|ivate\\|ocedure\\)\\)\\|r\\(a\\(ise\\|nge\\)\\|e\\(cord\\|m\\|names\\|turn\\|verse\\)\\)\\|s\\(e\\(lect\\|parate\\)\\|ubtype\\)\\|t\\(ask\\|erminate\\|hen\\|ype\\)\\|w\\(h\\(en\\|ile\\)\\|ith\\)\\|xor" -;; -;; To search for the above regexp takes less than 60% of the time of the simple -;; mapconcat equivalent. -;; -;; But even small regexps may be worth it: -;; -;; (make-regexp '("and" "at" "do" "end" "for" "in" "is" "not" "of" "or" "use")) -;; => "a\\(nd\\|t\\)\\|do\\|end\\|for\\|i[ns]\\|not\\|o[fr]\\|use" -;; -;; as this is 10% faster than the mapconcat equivalent. - -;; Installation: -;; -;; (autoload 'make-regexp "make-regexp" -;; "Return a regexp to match a string item in STRINGS.") -;; -;; (autoload 'make-regexps "make-regexp" -;; "Return a regexp to REGEXPS.") -;; -;; Since these functions were written to produce efficient regexps, not regexps -;; efficiently, it is probably not a good idea to in-line too many calls in -;; your code, unless you use the following neat trick with `eval-when-compile': -;; -;; (defvar definition-regexp -;; (let ((regexp (eval-when-compile -;; (make-regexp '("defun" "defsubst" "defmacro" "defalias" -;; "defvar" "defconst" "defadvice") t)))) -;; (concat "^(" regexp))) -;; -;; The `byte-compile' code will be as if you had defined the variable thus: -;; -;; (defvar definition-regexp -;; "^(\\(def\\(a\\(dvice\\|lias\\)\\|const\\|macro\\|subst\\|un\\|var\\)\\)") - -;; Feedback: -;; -;; Originally written for font-lock, from an idea from Stig's hl319. -;; Please don't tell me that it doesn't produce optimal regexps; I know that -;; already. But (ideas or) code to improve things (are) is welcome. Please -;; test your code and tell me the speed up in searching an appropriate buffer. -;; -;; Please send me bug reports, bug fixes, and extensions, etc. -;; Simon Marshall - -;; History: -;; -;; 1.00--1.01: -;; - Made `make-regexp' take `lax' to force top-level parentheses. -;; - Fixed `make-regexps' for MATCH bug and new `font-lock-keywords'. -;; - Added `unfontify' to user timing functions. -;; 1.01--1.02: -;; - Made `make-regexp' `let' a big `max-lisp-eval-depth'. - -;; The basic idea is to find the shortest common non-"" prefix each time, and -;; squirrel it out. If there is no such prefix, we divide the list into two so -;; that (at least) one half will have at least a one-character common prefix. - -;; In addition, we (a) delay the addition of () parenthesis as long as possible -;; (until we're sure we need them), and (b) try to squirrel out one-character -;; sequences (so we can use [] rather than ()). - -;;; Code: - -(defun make-regexp (strings &optional paren lax) - "Return a regexp to match a string item in STRINGS. -If optional PAREN non-nil, output regexp parentheses around returned regexp. -If optional LAX non-nil, don't output parentheses if it doesn't require them. -Merges keywords to avoid backtracking in Emacs' regexp matcher." - (let* ((max-lisp-eval-depth (* 1024 1024)) - (strings (let ((l strings)) ; Paranoia---make strings unique! - (while l (setq l (setcdr l (delete (car l) (cdr l))))) - (sort strings 'string-lessp))) - (open-paren (if paren "\\(" "")) (close-paren (if paren "\\)" "")) - (open-lax (if lax "" open-paren)) (close-lax (if lax "" close-paren)) - (completion-ignore-case nil)) - (cond - ;; If there's only one string, just return it. - ((= (length strings) 1) - (concat open-lax (car strings) close-lax)) - ;; If there's an empty string, pull it out. - ((string= (car strings) "") - (if (and (= (length strings) 2) (= (length (nth 1 strings)) 1)) - (concat open-lax (nth 1 strings) "?" close-lax) - (concat open-paren "\\|" (make-regexp (cdr strings)) close-paren))) - ;; If there are only one-character strings, make a [] list instead. - ((= (length strings) (apply '+ (mapcar 'length strings))) - (concat open-lax "[" (mapconcat 'identity strings "") "]" close-lax)) - (t - ;; We have a list of strings. Is there a common prefix? - (let ((prefix (try-completion "" (mapcar 'list strings)))) - (if (> (length prefix) 0) - ;; Common prefix! Squirrel it out and recurse with the suffixes. - (let* ((len (length prefix)) - (sufs (mapcar (lambda (str) (substring str len)) strings))) - (concat open-paren prefix (make-regexp sufs t t) close-paren)) - ;; No common prefix. Is there a one-character sequence? - (let ((letters (let ((completion-regexp-list '("^.$"))) - (all-completions "" (mapcar 'list strings))))) - (if (> (length letters) 1) - ;; Do the one-character sequences, then recurse on the rest. - (let ((rest (let ((completion-regexp-list '("^..+$"))) - (all-completions "" (mapcar 'list strings))))) - (concat open-paren - (make-regexp letters) "\\|" (make-regexp rest) - close-paren)) - ;; No one-character sequence, so divide the list into two by - ;; dividing into those that start with a particular letter, and - ;; those that do not. - (let* ((char (substring (car strings) 0 1)) - (half1 (all-completions char (mapcar 'list strings))) - (half2 (nthcdr (length half1) strings))) - (concat open-paren - (make-regexp half1) "\\|" (make-regexp half2) - close-paren)))))))))) - -;; This stuff is realy for font-lock... - -;; Ahhh, the wonders of lisp... -(defun regexp-span (regexp &optional start) - "Return the span or depth of REGEXP. -This means the number of \"\\\\(...\\\\)\" pairs in REGEXP, optionally from START." - (let ((match (string-match (regexp-quote "\\(") regexp (or start 0)))) - (if (not match) 0 (1+ (regexp-span regexp (match-end 0)))))) - -;; The basic idea is to concat the regexps together, keeping count of the span -;; of the regexps so that we can get the correct match for hilighting. -(defun make-regexps (&rest regexps) - "Return a regexp to match REGEXPS -Each item of REGEXPS should be of the form: - - STRING ; A STRING to be used literally. - (STRING MATCH FACE DATA) ; Match STRING at depth MATCH with FACE - ; and highlight according to DATA. - (STRINGS FACE DATA) ; STRINGS is a list of strings FACE is - ; to highlight according to DATA. - -Returns a list of the form: - - (REGEXP (MATCH FACE DATA) ...) - -For example: - - (make-regexps \"^(\" - '((\"defun\" \"defalias\" \"defsubst\" \"defadvice\") keyword) - \"[ \t]*\" - '(\"\\\\([a-zA-Z-]+\\\\)?\" 1 function-name nil t)) - - => - - (\"^(\\\\(def\\\\(a\\\\(dvice\\\\|lias\\\\)\\\\|subst\\\\|un\\\\)\\\\)[ ]*\\\\([a-zA-Z-]+\\\\)?\" - (1 keyword) (4 function-name nil t)) - -Uses `make-regexp' to make efficient regexps." - (let ((regexp "") (data ())) - (while regexps - (cond ((stringp (car regexps)) - (setq regexp (concat regexp (car regexps)))) - ((stringp (nth 0 (car regexps))) - (setq data (cons (cons (+ (regexp-span regexp) - (nth 1 (car regexps))) - (nthcdr 2 (car regexps))) - data) - regexp (concat regexp (nth 0 (car regexps))))) - (t - (setq data (cons (cons (1+ (regexp-span regexp)) - (cdr (car regexps))) - data) - regexp (concat regexp (make-regexp (nth 0 (car regexps)) - t))))) - (setq regexps (cdr regexps))) - (cons regexp (nreverse data)))) - -;; timing functions removed due to name collisions with Gnus - -(provide 'make-regexp) - -;;; make-regexp.el ends here diff --git a/elpa/ess-20181109.703/mouseme.el b/elpa/ess-20181109.703/mouseme.el deleted file mode 100644 index c9b6f6e2..00000000 --- a/elpa/ess-20181109.703/mouseme.el +++ /dev/null @@ -1,355 +0,0 @@ -;;; mouseme.el --- mouse menu with commands that operate on strings - -;; Copyright (C) 1997 by Free Software Foundation, Inc. - -;; Author: Howard Melman -;; Keywords: mouse, menu - -;; This file is part of GNU Emacs. - -;; GNU Emacs 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. - -;; GNU Emacs 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 -;; https://www.r-project.org/Licenses/ - -;;; Commentary: - -;; This package provides a command `mouse-me' to be bound to a mouse -;; button. It pops up a menu of commands that operate on strings or a -;; region. The string passed to the selected command is the word or -;; symbol clicked on (with surrounding quotes or other punctuation -;; removed), or the region (if either it was just selected with the -;; mouse or if it was active with `transient-mark-mode' on). If the -;; command accepts a region, the selected region (or the region of the -;; word or symbol clicked on) will be passed to the command. - -;; The idea is that for any given string in a buffer you may want to -;; do different things regardless of the mode of the buffer. URLs -;; now appear in email, news articles, comments in code, and in plain -;; text. You may want to visit that URL in a browser or you may just -;; want to copy it to the kill-ring. For an email address you might -;; want to compose mail to it, finger it, look it up in bbdb, copy it to -;; the kill ring. For a word you may want to spell check it, copy it, -;; change its case, grep for it, etc. Mouse-me provides a menu to -;; make this easy. - -;; The menu popped up is generated by calling the function in the -;; variable `mouse-me-build-menu-function' which defaults to calling -;; `mouse-me-build-menu' which builds the menu from the variable -;; `mouse-me-menu-commands'. See the documentation for these -;; functions and variables for details. - -;; To install, add something like the following to your ~/.emacs: -;; (require 'mouseme) -;; (global-set-key [S-mouse-2] 'mouse-me) - -;;; Code: - -(require 'browse-url) -(require 'thingatpt) - -(eval-when-compile (require 'compile)) - -;;;; Variables - -(defgroup mouseme nil - "Popup menu of commands that work on strings." - :prefix "mouse-me-" - :group 'hypermedia) - -(defcustom mouse-me-get-string-function 'mouse-me-get-string - "*Function used by `mouse-me' to get string when no region selected. -The default is `mouse-me-get-string' but this variable may commonly -be made buffer local and set to something more appropriate for -a specific mode (e.g., `word-at-point'). The function will be called -with no arguments and with point at where the mouse was clicked. -It can return either the string or to be most efficient, a list of -three elements: the string and the beginning and ending points of the -string in the buffer." - :type 'function - :options '(mouse-me-get-string) - :group 'mouseme) - -(defcustom mouse-me-build-menu-function 'mouse-me-build-menu - "*Function used by `mouse-me' to build the popup menu. -The default is `mouse-me-build-menu' but this variable may commonly -be made buffer local and set to something more appropriate for -a specific mode. The function will be called with one argument, -the string selected, as returned by `mouse-me-get-string-function'." - :type 'function - :options '(mouse-me-build-menu) - :group 'mouseme) - -(defvar mouse-me-grep-use-extension 't - "*If non-nil `mouse-me-grep' grep's in files with current file's extension.") - -(defcustom mouse-me-menu-commands - '(("Copy" . kill-new) - ("Kill" . kill-region) - ("Capitalize" . capitalize-region) - ("Lowercase" . downcase-region) - ("Uppercase" . upcase-region) - ("ISpell" . ispell-region) - "----" - ("Browse URL" . browse-url) - ("Dired" . dired) - ("Execute File" . mouse-me-execute) - ("Mail to" . compose-mail) - ("Finger" . mouse-me-finger) - ("BBDB Lookup" . mouse-me-bbdb) - "----" - ("Imenu" . imenu) - ("Find Tag" . find-tag) - ("Grep" . mouse-me-grep) - ("Find-Grep" . mouse-me-find-grep) - "----" - ("Apropos" . apropos) - ("Describe Function" . mouse-me-describe-function) - ("Describe Variable" . mouse-me-describe-variable) - ("Command Info" . mouse-me-emacs-command-info) - ("Man Page" . (if (fboundp 'woman) 'woman 'man)) - ("Profile Function" . mouse-me-elp-instrument-function)) - "*Command menu used by `mouse-me-build-menu'. -A list of elements where each element is either a cons cell or a string. -If a cons cell the car is a string to be displayed in the menu and the -cdr is either a function to call passing a string to, or a list which evals -to a function to call passing a string to. If the element is a string -it makes a non-selectable element in the menu. To make a separator line -use a string consisting solely of hyphens. - -The function returned from this menu will be called with one string -argument. Or if the function has the symbol property `mouse-me-type' -and if its value is the symbol `region' it will be called with the -beginning and ending points of the selected string. If the value is -the symbol `string' it will be called with one string argument." - :type '(repeat sexp) - :group 'mouseme) - -(put 'kill-region 'mouse-me-type 'region) -(put 'ispell-region 'mouse-me-type 'region) -(put 'capitalize-region 'mouse-me-type 'region) -(put 'downcase-region 'mouse-me-type 'region) -(put 'upcase-region 'mouse-me-type 'region) - -;;;; Commands - -;;;###autoload -(defun mouse-me (event) - "Popup a menu of functions to run on selected string or region." - (interactive "e") - (mouse-me-helper event (lambda (name) - (or (x-popup-menu event (funcall mouse-me-build-menu-function name)) - (error "No command to run"))))) - -;;;; Exposed Functions - -;; Some tests: -;; -;; -;; http://foo.bar.com/sss/ss.html -;; http://www.ditherdog.com/howard/ -;; mailto:howard@silverstream.com -;; howard@silverstream.com -;; -;; import com.sssw.srv.agents.AgentsRsrc; -;; public AgoHttpRequestEvent(Object o, String db, Request r) -;;
    -;; d:\howard\elisp\spoon -;; \howard\elisp\spoon -;; \\absolut\howard\elisp\spoon -;; //absolut/d/Howard/Specs/servlet-2.1.pdf -;; \\absolut\d\Howard\Specs\servlet-2.1.pdf -;; gnuserv-frame. - -(defun mouse-me-get-string () - "Return a string from the buffer of text surrounding point. -Returns a list of three elements, the string and the beginning and -ending positions of the string in the buffer in that order." - (save-match-data - (save-excursion - (let ((start (point)) beg end str p) - (skip-syntax-forward "^ >()\"") - (setq end (point)) - (goto-char start) - (skip-syntax-backward "^ >()\"") - (setq beg (point)) - (setq str (buffer-substring-no-properties beg end)) - ;; remove junk from the beginning - (if (string-match "^\\([][\"'`.,?:;!@#$%^&*()_+={}|<>-]+\\)" str) - (setq str (substring str (match-end 1)) - beg (+ beg (match-end 1)))) - ;; remove URL: from the front, it's common in email - (if (string-match "^\\(URL:\\)" str) - (setq str (substring str (match-end 1)) - beg (+ beg (match-end 1)))) - ;; remove junk from the end - (if (string-match "\\([][\"'.,?:;!@#$%^&*()_+={}|<>-]+\\)$" str) - (setq end (- end (length (match-string 1 str))) ; must set end first - str (substring str 0 (match-beginning 1)))) - (list str beg end))))) - -(defun mouse-me-build-menu (name) - "Return a menu tailored for NAME for `mouse-me' from `mouse-me-menu-commands'." - (list "Mouse Me" (cons "Mouse Me" - (append (list (cons - (if (< (length name) 65) - name - "...Long String...") - 'kill-new) - "---") - mouse-me-menu-commands)))) - -;;;; Commands for the menu - -(defun mouse-me-emacs-command-info (string) - "Look in Emacs info for command named STRING." - (interactive "sCommand: ") - (let ((s (intern-soft string))) - (if (and s (commandp s)) - (Info-goto-emacs-command-node s) - (error "No command named `%s'" string)))) - -(defun mouse-me-describe-function (string) - "Describe function named STRING." - (interactive "sFunction: ") - (let ((s (intern-soft string))) - (if (and s (fboundp s)) - (describe-function s) - (error "No function named `%s'" string)))) - -(defun mouse-me-describe-variable (string) - "Desribe variable named STRING." - (interactive "sVariable: ") - (let ((s (intern-soft string))) - (if (and s (boundp s)) - (describe-variable s) - (error "No variable named `%s'" string)))) - -(defun mouse-me-elp-instrument-function (string) - "Instrument Lisp function named STRING." - (interactive "sFunction: ") - (let ((s (intern-soft string))) - (if (and s (fboundp s)) - (elp-instrument-function s) - (error "Must be the name of an existing Lisp function")))) - -(defun mouse-me-execute (string) - "Execute STRING as a filename." - (interactive "sFile: ") - (if (fboundp 'w32-shell-execute) - (w32-shell-execute "open" (convert-standard-filename string)) - (message "This function currently working only in W32."))) - - -(defun mouse-me-bbdb (string) - "Lookup STRING in bbdb." - (interactive "sBBDB Lookup: ") - (if (fboundp 'bbdb) - (bbdb string nil) - (error "BBDB not loaded"))) - -(defun mouse-me-finger (string) - "Finger a STRING mail address." - (interactive "sFinger: ") - (save-match-data - (if (string-match "\\(.*\\)@\\([-.a-zA-Z0-9]+\\)$" string) - (finger (match-string 1 string) (match-string 2 string)) - (error "Not in user@host form: %s" string)))) - -(defun mouse-me-grep (string) - "Grep for a STRING." - (interactive "sGrep: ") - (require 'compile) - (grep-compute-defaults) - (let ((ext (mouse-me-buffer-file-extension))) - (grep (concat grep-command string - (if mouse-me-grep-use-extension - (if ext - (concat " *" ext) - " *")))))) - -(defun mouse-me-find-grep (string) - "Grep for a STRING." - (interactive "sGrep: ") - (grep-compute-defaults) - (let ((reg grep-find-command) - (ext (mouse-me-buffer-file-extension)) - beg end) - (if (string-match "\\(^.+-type f \\)\\(.+$\\)" reg) - (setq reg (concat (match-string 1 reg) - (if mouse-me-grep-use-extension - (concat "-name \"*" ext "\" ")) - (match-string 2 reg)))) - (grep-find (concat reg string)))) - -;;;; Internal Functions - -(defun mouse-me-buffer-file-extension () - "Return the extension of the current buffer's filename or nil. -Returned extension is a string begining with a period." - (let* ((bfn (buffer-file-name)) - (filename (and bfn (file-name-sans-versions bfn))) - (index (and filename (string-match "\\.[^.]*$" filename)))) - (if index - (substring filename index) - ""))) - -(defun mouse-me-helper (event func) - "Determine the string to use to process EVENT and call FUNC to get cmd." - (let (name sp sm mouse beg end cmd mmtype) - ;; temporarily goto where the event occurred, get the name clicked - ;; on and enough info to figure out what to do with it - (save-match-data - (save-excursion - (setq sp (point)) ; saved point - (setq sm (mark t)) ; saved mark - (set-buffer (window-buffer (posn-window (event-start event)))) - (setq mouse (goto-char (posn-point (event-start event)))) - ;; if there is a region and point is inside it - ;; check for sm first incase (null (mark t)) - ;; set name to either the thing they clicked on or region - (if (and sm - (or (and transient-mark-mode mark-active) - (eq last-command 'mouse-drag-region)) - (>= mouse (setq beg (min sp sm))) - (<= mouse (setq end (max sp sm)))) - (setq name (buffer-substring beg end)) - (setq name (funcall mouse-me-get-string-function)) - (if (listp name) - (setq beg (nth 1 name) - end (nth 2 name) - name (car name)) - (goto-char mouse) - (while (not (looking-at (regexp-quote name))) - (backward-char 1)) - (setq beg (point)) - (setq end (search-forward name)))))) - ;; check if name is null, meaning they clicked on no word - (if (or (null name) - (and (stringp name) (string= name "" ))) - (error "No string to pass to function")) - ;; popup a menu to get a command to run - (setq cmd (funcall func)) - ;; run the command, eval'ing if it was a list - (if (listp cmd) - (setq cmd (eval cmd))) - (setq mmtype (get cmd 'mouse-me-type)) - (cond ((eq mmtype 'region) - (funcall cmd beg end)) - ((eq mmtype 'string) - (funcall cmd name)) - (t - (funcall cmd name))))) - -(provide 'mouseme) - -;;; mouseme.el ends here diff --git a/elpa/ess-20181109.703/news.info b/elpa/ess-20181109.703/news.info deleted file mode 100644 index 0043296c..00000000 --- a/elpa/ess-20181109.703/news.info +++ /dev/null @@ -1,289 +0,0 @@ -This is news.info, produced by makeinfo version 6.5 from news.texi. - -Bug Fixes in 18.10.2: - * ESS[R] Fix namespace evaluation in non-installed packages. - Evaluation is directed into GlobalEnv as originally intended. - * 'Makefile' fixes, notably for 'make install' and including full - docs in the tarballs. - - Bug Fixes in 18.10-1: - * New functions 'ess-eval-line-visibly-and-step' ('C-c C-n' and - 'ess-eval-region-or-line-visibly-and-step' ('C-RET') which behave - as the old versions of 'ess-eval-line-and-step' and - 'ess-eval-region-or-line-and-step'. - - Changes and New Features in 18.10: - - * This is the last release to support Emacs older than 25.1. Going - forward, only GNU Emacs 25.1 and newer will be supported. Soon - after this release, support for older Emacs versions will be - dropped from the git master branch. Note that MELPA uses the git - master branch to produce ESS snapshots, so if you are using Emacs < - 25.1 from MELPA and are unable to upgrade, you should switch to - MELPA-stable. - - * ESS now displays the language dialect in the mode-line. So, for - example, R buffers will now show ESS[R] rather than ESS[S]. - - * The ESS manual has been updated and revised. - - * The ESS initialization process has been further streamlined. If - you update the autoloads (which installation from 'package-install' - does), you should not need to '(require 'ess-site)' at all, as - autoloads should automatically load ESS when it is needed (e.g. - the first time an R buffer is opened). In order to defer loading - your ESS config, you may want to do something like - '(with-require-after-load "ess" )' in your Emacs - init file. Users of the popular 'use-package' Emacs package can - now do '(use-package ess :defer t)' to take advantage of this - behavior. *Note (ess)Activating and Loading ESS:: for more - information on this feature. - - * ESS now respects Emacs conventions for keybindings. This means - that The 'C-c [letter]' bindings have been removed. This affects - 'C-c h', which was bound to 'ess-eval-line-and-step-invisibly' in - 'sas-mode-local-map'; 'C-c f', which was bound to - 'ess-insert-function-outline' in 'ess-add-MM-keys'; and 'C-c h', - which was bound to 'ess-handy-commands' in 'Rd-mode-map', - 'ess-noweb-minor-mode-map', and 'ess-help-mode-map' - - * Functions 'ess-eval-line-and-step' and - 'ess-eval-region-or-line-and-step' now behave consistently with - other evaluation function inside a package. - - * ESS[R]: 'ess-r-package-use-dir' now works with any mode. This sets - the working directory to the root of the current package including - for example C or C++ files within '/src'). - - * ESS[R]: Long + + prompts in the inferior no longer offset output. - - * ESS[R]: New option 'strip' for 'inferior-ess-replace-long+'. This - strips the entire + + sequence. - - * ESS modes now inherit from 'prog-mode'. In the next release, ESS - modes will use 'define-derived-mode' so that each mode will have - (for example) its own hooks and keymaps. - - * ESS[R]: Supports flymake in R buffers for Emacs 26 and newer. - Users need to install the 'lintr' package to use it. Customizable - options include 'ess-use-flymake', 'ess-r-flymake-linters', and - 'ess-r-flymake-lintr-cache'. - - * ESS[R]: Gained support for xref in Emacs 25+. *Note (emacs)Xref:: - - * ESS[R]: The startup screen is cleaner. It also displays the - startup directory with an explicit 'setwd()'. - - * ESS[R]: Changing the working directory is now always reflected in - the process buffer. - - * ESS[R]: 'Makevars' files open with 'makefile-mode'. - - * New variable 'ess-write-to-dribble'. This allows users to disable - the dribble ('*ESS*') buffer if they wish. - - * All of the '*-program-name' variables have been renamed to - '*-program'. Users who previously customized e.g. - 'inferior-ess-R-program-name' will need to update their - customization to 'inferior-ess-R-program'. These variables are - treated as risky variables. - - * 'ess-smart-S-assign' was renamed to 'ess-insert-assign'. It - provides similar functionality but for any keybinding, not just - '_'. For instance if you bind it to ';', repeated invokations - cycle through between assignment and inserting ';'. - - * 'C-c C-=' is now bound to 'ess-cycle-assign' by default. See the - documentation for details. New user customization option - 'ess-assign-list' controls which assignment operators are cycled. - - * ESS[R] In remote sessions, the ESSR package is now fetched from - GitHub. - - * Commands that send the region to the inferior process now deal with - rectangular regions. See the documentation of 'ess-eval-region' - for details. This only works on Emacs 25.1 and newer. - - * ESS[R]: Improvements to interacting with iESS in non-R files. - Interaction with inferior process in non-R files within packages - (for instance C or C++ files) has been improved. This is a work in - progress. - - * ESS[R]: Changing the working directory is now always reflected in - the process buffer. - - * ESS[JAGS]: *.jog and *.jmd files no longer automatically open in - JAGS mode. - - Many improvements to fontification: - - * Improved customization for faces. ESS now provides custom faces - for (nearly) all faces used and places face customization options - into their own group. Users can customize these options using 'M-x - customize-group RET ess-faces'. - - * Many new keywords were added to 'ess-R-keywords' and - 'ess-R-modifiers'. See the documentation for details. - - * ESS[R]: 'in' is now only fontified when inside a 'for' construct. - This avoids spurious fontification, especially in the output buffer - where 'in' is a commond English word. - - * ESS: Font-lock keywords are now generated lazily. That means you - can now add or remove keywords from variables like 'ess-R-keywords' - in your Emacs configuration file after loading ESS (i.e. in the - ':config' section for 'use-package' users). - - * ESS[R]: Fontification of roxygen '@param' keywords now supports - comma-separated parameters. - - * ESS[R]: Certain keywords are only fontified if followed by a - parenthesis. Function-like keywords such as 'if ()' or 'stop()' - are no longer fontified as keyword if not followed by an opening - parenthesis. The same holds for search path modifiers like - 'library()' or 'require()'. - - * ESS[R]: Fixed fontification toggling. Especially certain syntactic - elements such as '%op%' operators and backquoted function - definitions. - - * ESS[R]: 'ess-font-lock-toggle-keyword' can be called interactively. - This command asks with completion for a font-lock group to toggle. - This functionality is equivalent to the font-lock menu. - - Notable bug fixes: - - * 'prettify-symbols-mode' no longer breaks indentation. This is - accomplished by having the pretty symbols occupy the same number of - characters as their non-pretty cousins. You may customize the new - variable 'ess-r-prettify-symbols' to control this behavior. - - * ESS: Inferior process buffers are now always displayed on startup. - Additionally, they don't hang Emacs on failures. - - Obsolete libraries, functions, and variables: - - * The 'ess-r-args.el' library has been obsoleted and will be removed - in the next release. Use 'eldoc-mode' instead, which is on by - default. - - * Functions and options dealing with the smart assign key are - obsolete. The following functions have been made obsolete and will - be removed in the next release of ESS: 'ess-smart-S-assign', - 'ess-toggle-S-assign', 'ess-toggle-S-assign-key', - 'ess-disable-smart-S-assign'. - - The variable 'ess-smart-S-assign-key' is now deprecated and will be - removed in the next release. If you would like to continue using - '_' for insterting assign in future releases, please bind - 'ess-insert-assign' in 'ess-mode-map' the normal way. - - * ESS[S]: Variable 'ess-s-versions-list' is obsolete and ignored. - Use 'ess-s-versions' instead. You may pass arguments by starting - the inferior process with the universal argument. - - Changes and New Features in 17.11: - - * The ESS initialisation process has been streamlined. You can now - load the R and Stata modes independently from the rest of ESS. Just - put '(require 'ess-r-mode)' or '(require 'ess-stata-mode)' in your - init file. This is for experienced Emacs users as this requires - setting up autoloads for '.R' files manually. We will keep - maintaining 'ess-site' for easy loading of all ESS features. - - * Reloading and quitting the process is now more robust. If no - process is attached, ESS now switches automatically to one - (prompting you for selection if there are several running). - Reloading and quitting will now work during a debug session or when - R is prompting for input (for instance after a crash). Finally, - the window configuration is saved and restored after reloading to - prevent the buffer of the new process from capturing the cursor. - - * ESS[R]: New command 'ess-r-package-use-dir'. It sets the working - directory of the current process to the current package directory. - - * ESS[R] Lookup for references in inferior buffers has been improved. - New variable 'ess-r-package-source-roots' contains package - sub-directories which are searched recursively during the file - lookup point. Directories in 'ess-tracebug-search-path' are now - also searched recursively. - - * ESS[R] Namespaced evaluation is now automatically enabled only in - the 'R/' directory. This way ESS will not attempt to update - function definitions from a package if you are working from e.g. a - test file. - - Changes and New Features in 16.10: - - * ESS[R]: Syntax highlighting is now more consistent. Backquoted - names are not fontified as strings (since they really are - identifiers). Furthermore they are now correctly recognised when - they are function definitions or function calls. - * ESS[R]: Backquoted names and '%op%' operators are recognised as - sexp. This is useful for code navigation, e.g. with 'C-M-f' and - 'C-M-b'. - * ESS[R]: Integration of outline mode with roxygen examples fields. - You can use outline mode's code folding commands to fold the - examples field. This is especially nice to use with well - documented packages with long examples set. Set - 'ess-roxy-fold-examples' to non-nil to automatically fold the - examples field when you open a buffer. - * ESS[R]: New experimental feature: syntax highlighting in roxygen - examples fields. This is turned off by default. Set - 'ess-roxy-fontify-examples' to non-nil to try it out. - * ESS[R]: New package development command 'ess-r-devtools-ask' bound - to 'C-c C-w C-a'. It asks with completion for any devtools command - that takes 'pkg' as argument. - * ESS[R]: New command 'C-c C-e C-r' to reload the inferior process. - Currently only implemented for R. The R method runs - 'inferior-ess-r-reload-hook' on reloading. - * ESS[R]: 'ess-r-package-mode' is now activated in non-file buffers - as well. - - Bug fixes in 16.10: - * ESS[R]: Fix broken (un)flagging for debugging inside packages - * ESS[R]: Fixes (and improvements) in Package development - * ESS[R]: Completion no longer produces '...=' inside 'list( )'. - * ESS[R]: Better debugging and tracing in packages. - * ESS[R]: Better detection of symbols at point. - * ESS[R]: No more spurious warnings on deletion of temporary files. - * ESS[julia]: help and completion work (better) - * ESS[julia]: available via 'ess-remote' - - Changes and New Features in 16.04: - - * ESS[R]: 'developer' functionality has been refactored. The new - user interface consists of a single command - 'ess-r-set-evaluation-env' bound by default to 'C-c C-t C-s'. Once - an evaluation environment has been set with, all subsequent ESS - evaluation will source the code into that environment. By default, - for file within R packages the evaluation environment is set to the - package environment. Set 'ess-r-package-auto-set-evaluation-env' - to 'nil' to disable this. - * ESS[R]: New 'ess-r-package-mode' This development mode provides - features to make package development easier. Currently, most of - the commands are based on the 'devtools' packages and are - accessible with 'C-c C-w' prefix. See the documentation of - 'ess-r-package-mode' function for all available commands. With - 'C-u' prefix each command asks for extra arguments to the - underlying devtools function. This mode is automatically enabled - in all files within R packages and is indicated with '[pkg:NAME]' - in the mode-line. - * ESS[R]: Help lookup has been improved. It is now possible to get - help for namespaced objects such as pkg::foobar. Furthermore, ESS - recognizes more reliably when you change 'options('html_type')'. - * ESS[R]: New specialized breakpoints for debugging magrittr pipes - * ESS: ESS now implements a simple message passing interface to - communicate between ESS and inferior process. - - Bug fixes in 16.04: - * ESS[R]: Roxygen blocks with backtics are now correctly filled - * ESS[R]: Don't skip breakpoints in magrittr's 'debug_pipe' - * ESS[R]: Error highlighting now understands 'testthat' type errors - * ESS[Julia]: Added getwd and setwd generic commands - - - -Tag Table: - -End Tag Table diff --git a/elpa/ess-20181109.703/onews.info b/elpa/ess-20181109.703/onews.info deleted file mode 100644 index 2a5a0bc5..00000000 --- a/elpa/ess-20181109.703/onews.info +++ /dev/null @@ -1,1523 +0,0 @@ -This is onews.info, produced by makeinfo version 6.5 from onews.texi. - -Changes and New Features in 15.09: - - * ESS[R]: The indentation logic has been refactored. It should be - faster, more consistent and more flexible. There are three types - of indentation settings, those starting with 'ess-offset-' give the - actual offsets, those starting with 'ess-indent-' are control - (commonly Boolean) variables, and those starting with 'ess-align-' - are vertical alignment overrides which inhibit default offsets in - specific situations. See 'ess-style-alist' for detailed - description of the new indentation system and provided default - indentation styles. - - * ESS[R]: Deprecation of old indentation settings. As a consequence - of the indentation re-factoring 'ess-brace-imaginary-offset', - 'ess-expression-offset' and all delimiter-specific offsets are - deprecated. The settings for indentation of continued statements - have been replaced by 'ess-offset-continuations'. It can be set to - either 'cascade' or 'straight' (the default). - 'ess-arg-function-offset' has been replaced by - 'ess-indent-from-lhs' and has been generalised to assignments. - This setting now works with both statement blocks and expressions - and only takes effect for offsets set to 'prev-call' and - 'open-delim' in order to produce a consistent indentation. - - * ESS: A test framework has been set up. - - * ESS[R]: A new RStudio style is provided to mimic as closely as - possible R files indented via RStudio. To reproduce the setup of - some of the RStudio users, the RStudio- style with - 'ess-offset-arguments' set to 'prev-line' is also provided. In - addition, the new RRR+ style is equivalent to RRR except it indents - blocks in function calls relatively to the opening delimiter. This - style does not try to save horizontal space and produces more - indentation. - - * ESS[R]: Roxygen fields will now be indented on paragraph refilling - in order to make the documentation more readable. You can also - refill commented lines in the 'examples' field without squashing - the surrounding code in the comments. - - * ESS[R]: ESS can now format your code! This is controlled through - the settings 'ess-fill-calls' and 'ess-fill-continuations'. When - activated, '(fill-paragraph)' formats your calls and your - formulas/continuations while making sure they don't go past - 'fill-column'. Repeated refills cycle through different styles - (see the docstrings for more details). By default, the refilled - region blinks. Set 'ess-blink-filling' to nil to prevent this. - - * ESS[R]: Fix occasional missing error location fontification in - inferior buffers. - - * ESS[R]: ess-developer now correctly assigned the environment of new - functions to the package namespace. - - * ESS[Julia]: ?[topic] now works in the *julia* buffer. Note that - support for editing Julia code now depends on 'julia-mode.el' from - the Julia project. If you install ESS from the official - tarball/zip file, 'julia-mode.el' is already included. Otherwise, - if you install ESS by running 'make', then the latest version of - 'julia-mode.el' is downloaded (and so you need an active internet - connection to install) during the installation process. - Alternatively, if you run ESS without running 'make', then ensure - that you have the 'julia-mode.el', which you can get easily from - MELPA for example. - - * iESS: For naming inferior processes, ESS can use 'projectile''s - project root and it does so when - 'ess-gen-proc-buffer-name-function' is set to - 'ess-gen-proc-buffer-name:projectile-or-simple' as by default, or - to another value beginning with - 'ess-gen-proc-buffer-name:projectile-*'. - - Changes and New Features in 15.03-1: - * ESS[R]: An indentation bug has been fixed (github issue 163) - * ESS[R]: On windows, if 'ess-prefer-higher-bit' is non-nil (the - default), then R-newest will try to run a 64 bit (rather than 32 - bit) version of R. - - Changes and New Features in 15.03: - * ESS[R]: Full native support for 'company-mode'. - * ESS[R]: More efficient caching algorithm for R completion. - * ESS: New offset variable 'ess-close-paren-offset' to control the - indentation of the closing parentheses. - * ESS[R]: Ask for CRAN mirror only once per emacs session. - * ESS[R]: Detect 'library' and 'require' calls for better completion - caching. - * Buffer display is now customizable ('ess-show-buffer-action'). - * Use 'y-or-n-p' instead of 'yes-or-no-p' throughout. - * More support for ODS in ess-sas-graph-view. - * Makefiles are now both UNIX and GNU friendly. - * ESS[R]: Simplify directory lookup in 'ess-developer' (#137). - * Make closed paren indentation consistent - - Bug Fixes in 15.03: - * Fix open brace indentation bug (#27 in ess/R-ESS-bugs.R). - * Fix git version lookup - * Don't check directory modtime in R dialect. - * Declare all ess macros for edebug. - * Add 'ess-smart-comma' to eldoc message functions. - * Inform users when retrieving RDA aliases. - * Line ending in '~' is also a continuation line. - * Filing roxy paragraphs works as expected now. - * In 'ess-developer-add-package', remove incorrect 'wait' argument - from 'ess-get-words-from-vector' call. - * Fix #96, #117, #120, #125, #134, #137. - * Fix ess-quit-r. Call base::q() even if it is masked. - * Fix 'ess-show-buffer' to always display the buffer in another - window. - * Makefile: Fix cd bug for directories with spaces in them - * 'ess-kill-buffer-and-go' modified to not restart R - - Changes / Selected Bug Fixes in 14.09: - * ESS[Julia]: Executable is changed to 'julia'. - * ESS[Julia]: Completion and help system was adjusted to Julia - v.0.3.0. Julia v.0.2.x is no more supported. - * ESS[R]: Running R with 'gdb' debugger now works as expected - * iESS: Inferior ESS buffers are now derived from 'comint-mode' - * ESS[R]: 'ess-execute-screen-options' uses correct screen width in - terminal sessions - * ESS: 'ess-build-tags-for-directory' works when no TAGS file name - was provided - * ESS: 'ess-offset-statement-continued' is now respected everywhere - except inside of the 'if' test condition. - * ESS: New variable 'ess-offset-statement-first-continued' for - indentation of the first line in multiline statements. - * ESSR: Starting ',' in multiline statements indentation is now - ignored to achieve a more pleasant alignment. - * ESSR: Improved behavior of 'RET' in roxygen blocks. - * ESS[R]: command cleaning with 'C-u C-u C-y' was broken with lines - containing " + " - * ESS[R]: fixed "empty watch window bug" - * ESS[R]: don't ask for help location on ac-quick-help (request of - github #81) - * ESS[R]: "importClassesFrom" and "importMethodsFrom" were added to - the list of two-parameter roxygen commands - * ESS[R]: fix vignetes display and hyperlinks (were broken in - 13.09-1) - * ESS[Julia]: recognize function names ending with ! - * ESS[Julia]: fix indentation of "for" comprehension syntax within - brackets. - - Changes / Selected Bug Fixes in 13.09-1: - * ess-remote and TRAMP: R support code is now downloaded in binary - form instead of being injected from local machine. The R code is - stored in '~/.config/ESSR/' directory on the remote machine - * TRAMP: PAGER environment variable is now correctly set to - 'inferior-ess-pager' - * retrieval of help topics on remote machines is fixed - * org-babel: source references of R code executed from org files - correctly point to source references in original org files (version - 8.2.1 or higher of org-mode is required for this feature) - * 'ess-execute' is now bound to 'C-c C-e C-e' in 'ess-extra-map'. - * completion works again in 'ess-execute' - * ESS[R]: 'head' and 'tail' methods were replaced by 'htsummary' in - 'ess-R-describe-object-at-point-commands' - * ESS[roxygen]: evaluation commands now work in roxygen blocks. - Leading comments are automatically removed before the evaluation - * ESS[transcript]: 'Clean Region' now works with multiline - statements; 'ess-transcript-clean-region' etc. correctly treat - multiline statements, i.e., no longer forgets the lines typically - preceded by '+' - * ESS[SAS]: Three features/fixes with special thanks to Matthew - Fidler https://github.com/emacs-ess/ESS/pulls/mlf176f2 - (https://github.com/emacs-ess/ESS/pulls/mlf176f2). Turn on SAS log - mode when appropriate. Indent comments and CARDS statement more - appropriately. - * ESS[SAS]: 'ess-sas-edit-keys-toggle' default returns to 'nil' - * ESS[R]: support for 'prettify-symbols-mode': contribution from - Rudiger Sonderfeld - * ESS[SWV]: knitr now evaluates in the current frame - * ESS[developer]: ess-developer doesn't kill open DESCRIPTION files - anymore - * ESS[roxygen]: 'ess-roxy-preview-HTML' is now on 'C-c C-o C-w' and - 'ess-roxy-preview-text' is now on 'C-c C-o C-t' - * ESS: installation with 'make install' was simplified and should - work out of the box on most *nix systems - * ESS installation instructions simplified - * fixed font-lock bug introduced in 13.09 that was causing very slow - process output - - Changes/New Features in 13.09: - * font-lock in process buffers doesn't "spill" over prompts. Missing - closing string delimiters should not cause wrong fontification of - the following command input. - * ESS[julia]: full features M-TAB completion and auto-complete - support, which now works for modules, structures and data types. - * ESS[julia]: a much better eldoc showing arguments of methods and - data type constructors - * ESS-developer: - - ESS-developer work-flow pattern has been streamlined: - ESS-developer is now automatically activated on per-file basis - if the file is part of a developed package - 'ess-developer-packages'. The old behavior (activation on - per-process basis) is still available on 'M-x ess-developer' - in a process buffer. - - integration with 'devtools' package. New command - 'ess-developer-load-package' calls 'load_all' on the package - containing current file. 'ess-developer-add-package' now - offers IDO menu completions with available loading methods, - currently 'library', and 'load_all'. Loading command can be - customized with 'ess-developer-load-on-add-commands'. - * 'TAB' now indents region if region is active (a contribution of - Matthew Fidler in pull #41) - * 'M-x ess-version' now reports full loading path and recognizes git - and ELPA versions. - * warning and error keyword are now highlighted with - 'font-lock-warning-face' as they should be, (for quite some time - these keywords have been hijacked by compilation mode - fontification). - * eldoc: Eldoc now recognizes multiple processes. If current process - is busy, or current buffer is not associated with a process, eldoc - picks its completions from the first available free process. - * org-babel: evaluation is now org-friendly - * help: new help buffers now try to reuse ess-help buffers. This - behavior is controlled by 'ess-help-reuse-window' custom variable. - * help: ?foo pops IDO menu on multiple help files (so far it worked - only for 'C-c C-v') - * remote evaluation is considerably faster now on slow connections - * ESS[R] tracebug R source references regular expressions are - (mostly) language agnostic. - * 'ess-function-call-face' inherits from - 'font-lock-function-name-face' rather than - 'font-lock-builtin-face'. - * 'ess-inject-source' now accepts 'function-and-buffer' option. - * Documentation: The "New Features" section (and 'NEWS') now - represent recent changes: within the last year or so. All changes - can be found in the new news.html (news.html) (or 'NEWS' and - 'ONEWS'). - * ESS[R] 'ess-rep-regexp' should no longer inf.loop (rarely!), and - hence 'M-x ess-fix-miscellaneous' should neither. - - Changes/New Features in 13.05: - * ESS[gretl]: Support for 'gretl' (both editing and sub-process - interaction). A contribution of Ahmadou Dicko. - * ESS: process output display is 4-10 times faster due to new caching - and only occasional emacs re-display (for the moment this - functionality is available only when 'ess-tracebug' is active). - * ESS: 'C-c `' is now bound to 'ess-show-traceback' and 'C-c ~' is - bound to 'ess-show-call-stack'. - * ESS[R]: ESS stores function in 'ESSR' environment to avoid kludging - users' global environment and accidental deletion. - * ESS[R]: new variable 'ess-swv-processing-command' to control - weaving and tangling. - * ESS[R]: 'ess-default-style' has been changed (from 'DEFAULT') to - 'RRR'. Use something like '(setq ess-default-style 'DEFAULT)' or - '(setq ess-indent-level 2)' in your '~/.emacs' equivalent _before_ - loading ESS, if you do not like this new "incompatible" default - style. - * ESS[julia]: ESS stores its functions in 'ESS' module. - * ESS[julia]: Eldoc is now supported in julia modes - * ESS[julia]: Adjusted error reference detection and interactive help - to julia internal changes - * ESS[R]: 'ess-use-tracebug''s default has been changed to 't'. Set - it to nil if you want to keep the previous behavior. - * ESS[tracebug]: Electric debug keys have been removed [breaking - change] The functionality was replaced with 'ess-debug-minor-mode' - and 'ess-debug-minor-mode-map'. - * ESS[tracebug]: 'ess-tracebug-map' is an alias to 'ess-dev-map' 'C-c - C-t'. - * ESS[tracebug]: 'ess-bp-toggle-state' ('C-c C-t o') can now be used - during the debug session to toggle breakpoints on the fly - (suggestion by Ross Boylan). - * ESS[tracebug]: 'ess-debug-flag-for-debugging' and - 'ess-debug-unflag-for-debugging' work correctly from the debugging - contexts. These commands also recognize non-exported functions for - the packages listed in 'ess-developer-packages' ('C-c C-t C-a'). - - * ESS[R]: Eldoc (activated by 'ess-use-eldoc') has become more - sophisticated, and hence also more intruding in the interface - between the Statistics softare, e.g., R, and the user. - - Note that you can turn off ElDoc, by placing '(setq ess-use-eldoc - nil)' in your '~/.emacs' file, prior to loading ESS, - - * ESS[SAS]: long over-looked 'SAS-mode-hook' appears! - * ESS[SAS]: 'ess-sas-edit-keys-toggle' now defaults to 't' since - 'sas-indent-line' is still broken, i.e. 'TAB' is now bound to - 'ess-sas-tab-to-tab-stop' by default - - Changes/Bug Fixes in 12.09-2: - * ESS: new 'ess-switch-to-end-of-proc-buffer' variable that controls - whether 'C-c C-z' switches to the end of process buffer. The - default is 't'. You can use prefix argument to 'C-c C-z' to toggle - this variable. - * ESS: fix in 'ess-eval-linewise' that was causing emacs to hang - during R debugging with 'ess-eval-visibly' equal to 't'. - * ESS: fix in 'ess-eval-linewise' that was causing emacs to recenter - the prompt in visible window - * ESS[tracebug]: A better handling of "Selection" prompts and debug - related singlekey commands. - * ESS: fix a bug in 'ess-switch-process' that was causing '*new*' - selection to fail. - * ESS[R]: Solve missing 'ess-local-process-name' bug in R-dired. - * ESS[SWV]: 'ess-swv-PDF' doesn't ask for a command to run if there - is only one command in 'ess-swv-pdflatex-commands'. - * ESS[SWV]: 'ess-swv-weave' gained an universal argument to allow for - an interactive choice between available weavers (sweave, knitr). - * ESS: 'ess-eval-*-and-step' functions go to next empty line at eob, - instead of staying at the last line. - - Changes/New Features in 12.09-1: - * ESS _Breaking Changes in Keys_: - - - New keymaps: 'ess-doc-map' bound to 'C-c C-d'; 'ess-extra-map' - bound to 'C-c C-e'; 'ess-dump-object-into-edit-buffer' was - moved on 'C-c C-e C-d' - - roxygen map was moved on 'C-c C-o' and 'ess-roxy-update-entry' - now resides on 'C-c C-o C-o' - - ess-handy-commands is not bound anymore - - 'ess-dev-map' (including 'ess-tracebug' and 'ess-developer') - moved on 'C-c C-t' - - 'C-c C-y' is deprecated in favor of 'C-c C-z C-z' - * ESS[R] new command 'ess-describe-object-at-point' bound to 'C-c C-d - C-e' (repeat 'C-e' or 'e' to cycle). It was inspired by Erik - Iverson's 'ess-R-object-tooltip'. Customize - 'ess-describe-at-point-method' to use tooltip instead of an - electric buffer. - * ESS: New command 'ess-build-tags-for-directory' bound to 'C-c C-e - C-t' for building dialect specific tag tables. After building tags - use 'M-.' to navigate to function and objects definitions. By - default 'C-c C-e C-t' builds tags based on imenu regular - expressions and also include other common languages '.c, .o, .cpp' - etc. But it relies on external 'find' and 'etags' commands. If - 'ess-build-tags-command' is defined (for 'R'), the inferior process - is asked to build tags instead. - * ESS: 'ess-switch-process' offers '*new*' alternative to start a new - process instead of switching to one of the currently running - processes. - * ESS: Switching between processes ('C-c C-s') uses buffer names - instead of the internal process names. Use 'M-x rename-buffer' - command to conveniently rename your process buffers. - * ESS: Process buffers can be automatically named on process creation - according to user specified scheme. Default schemes are *proc*, - *proc:dir* and *proc:abbr-long-dir* where 'proc' stands for the - internal process name and 'dir' stands for the directory where the - process was started in. The default is *proc*. For customization - see 'ess-gen-proc-buffer-name-function'. - * ESS: 'ess-eval-visibly-p' is deprecated in favor of - 'ess-eval-visibly'. - * ESS: New evaluation pattern 'nowait'. In addition to old 'nil' and - 't' values, 'ess-eval-visibly' accepts 'nowait' for a visible - evaluation with no waiting for the process. See 'ess-eval-visibly' - for details on evaluation patterns. - * ESS: New "Process" menu entry with process related commands and - configuration - * iESS: Process buffer is now automatically shown on errors - * ESS: New 'ess-switch-to-inferior-or-script-buffer' command bound to - 'C-c C-z' in both script and process buffers. If invoked form - process buffer it switches to the most recent buffer of the same - dialect. It is a single key command. - * ESSR-help: On multiple help pages with the same name, 'C-c C-v' now - asks for user resolution directly in emacs. - * ESS[R] ess-roxy: new variable 'ess-roxy-re' for fontification of - cases where the number of leading '#' differs from 'ess-roxy-str'. - * ESS[R] Eldoc was considerably enhanced. It now finds hidden - default S3 methods and displays non-default methods' arguments - after trailing ||. - * ESS[R]: New 'ess-display-demos' command bound to 'C-c C-d o' and - 'C-c C-d C-o' - * ESS: New 'ess-help-web-search' command bound to 'C-c C-d w' and - 'C-c C-d C-w' to facilitate interactive search of web resources. - Implemented for 'R', 'Stata' and 'Julia'. See also - 'ess-help-web-search-command'. - * ESS: ess-pdf-viewer-pref accepts now command line arguments - * ESS[Rnw]: Add knitr support. Customize 'ess-swv-processor' for the - default processor. - * ESS[Rnw]: More thorough renaming of remaining 'noweb-*' to - 'ess-noweb-*'. - * ESS[Rnw] new commands 'ess-eval-chunk-and-step' and - 'ess-eval-chunk' bound to 'M-n C-c' and 'M-n C-M-x' to mirror - standard ess commands in C-c map. - * ESS[R] Auto-completion: new variable 'ess-ac-R-argument-suffix' to - customize the insertion of trailing "=". Defaults to " = ". - * ESS[Julia]: Added index, apropos and web-search to julia. - * ESS help: More evaluation commands were added to ess-help mode - ('C-c C-c', 'C-M-x' etc) - - Bug Fixes in 12.09-1: - * iESShelp: Multiple help pages with the same name are properly - handled on 'C-c C-v' - * iESSremote: Evaluation with ESS remote no longer freezes emacs. - * iESS: 'comint-previous-prompt' 'C-c C-p' no longer stops on - secondary prompt "+". - * iESS[R], iESS(Sqpe) [S] on Windows: The 'options("editor")' is now - initialized to 'emacsclient' instead of the previous 'gnuclient'. - The user may need to add the line '(server-start)' to the emacs - initialization file. 'emacsclient' has been included with emacs - since GNU Emacs 22.1. - * ESS[Rnw] Fixed "connection to R" bug (in 12.09 only). - * ESS[Rnw] Explicit 'ess-swv-stangle' and 'ess-swv-sweave' functions. - * ESS[Rnw] Fixed completion and smart underscore problems cause by - unmatched "\"' - * ESS[R] is more careful with the 'R' code injection. It now happens - only once at the start of the session. - * ESS[R]: Fixed auto-scrolling the comint buffer on evaluation. - * ESS[Julia]: Solve several indentation and word navigation problems. - * ESS[Julia]: Help system works again. - - Changes/New Features in 12.09: - - * Due to XEmacs lacking some features that ESS requires, ESS support - of XEmacs ends with ESS 12.04-4. This decision will be re-visited - in the future as XEmacs continues to sync with GNU Emacs. - - * ESS[R]: On Windows, there is now a new customizable variable - (currently called 'ess-directory-containing-R') to tell ESS where - to look for the 'Rterm.exe' executables. The name of the variable - and the values it can take are both in beta and subject to change. - Prior to this variable, ESS searched only in the default - installation directory. Setting this variable now tells ESS how to - find 'Rterm.exe' executables when they are installed somewhere - else. - - * ESS[julia]: _new_ mode for editing julia code ('*.jl'). Start with - 'M-x julia'. - - Full interaction interface, imenu and basic error referencing are - available. - - * ESS[R] noweb: 'noweb-mode' and 'noweb-font-lock-mode' have been - renamed to 'ess-noweb-mode' and 'ess-noweb-font-lock-mode' to avoid - conflicts with the "real" 'noweb-mode'. - - * ESS[R] noweb: The long standing font-lock bug has been solved in - 'ess-noweb' interface. - - * ESS: Basic evaluation keys are now bound to 'ess-eval-region-*-' - functions: - - - 'C-M-x' is bound to 'ess-eval-region-or-function-or-paragraph' - - 'C-c C-c' is bound to - 'ess-eval-region-or-function-or-paragraph-and-step' - - 'C-RET' is bound to 'ess-eval-region-or-line-and-step' - - Each of these functions first evaluates the region whenever the - region is active. - - * ESS: 'C-M-a'/'C-M-e' now step to beginning/end of paragraph if no - function has been detected. - - * ESS: 'ess-eval-*-and-step' family of functions are now smarter, and - don't step to end of buffer or end of chunk code ('@') when at the - end of the code. - - * ESS: 'ess-handy-commands' function is bound to 'C-c h' - - * ESS: ESS is now _blinking_ the evaluated region. Set - 'ess-blink-region' to nil to deactivate; 'ess-blink-delay' gives - the duration of the blink. Evaluated region is "blinked" in - 'highlight' face. - - * ESS[R-help] New key 'a' for "apropos()" in help buffers. Also - available through 'C-c h'. - - * ESS[R-help] All R commands of type foo?bar and foo??bar are - recognized and redirected into appropriate *ESS-help* buffers. - - * ESS[R]: New customization interface for _font-lock_. - - ESS font-lock operates with predefined keywords. Default keywords - are listed in 'ess-R-font-lock-keywords' and - 'inferior-R-font-lock-keywords', which see. The user can easily - customize those by adding new keywords. These variables can also - be interactively accessed and saved through 'ESS/Font-lock' - submenu. - - Several new fontification keywords have been added. Most notably - the keywords for highlighting of function calls, numbers and - operators. - - * ESS[R]: auto-complete is now activated by default whenever - auto-complete package is detected. Set 'ess-use-auto-complete' to - nil to deactivate. - * ESS[R]: R AC sources are no longer auto-starting at 0 characters - but at the default 'ac-auto-start' characters. - * ESS no longer redefines default ac-sources, but only appends - 'ac-source-filename' to it. - * ESS: 'ac-source-R' now concatenates " = " to function arguments. - - * ESS: Menus for ESS and iESS have been reorganized and enriched with - _Tracebug_ and _Developer_ submenus. - - * ESS[R]: 'ess-developer' and 'ess-tracebug' commands are available - by default in 'ess-dev-map' which is bound to 'C-c d' in ESS and - iESS maps. - - * ESS[R]: 'eldoc' truncates long lines whenever - 'eldoc-echo-area-use-multiline-p' is non-nil (the default). Set - this variable to t if you insist on multiline eldoc. See also - 'ess-eldoc-abbreviation-style'. - - * ESS[R]: completion code pre-caches arguments of heavy generics such - as 'plot' and 'print' to eliminated the undesirable delay on first - request. - - * iESS: Prompts in inferior buffers are now highlighted uniformly - with 'comint-highlight-prompt' face. - - * ESS[R]: R process no longer wait for the completion of input in - inferior buffer. Thus, long running commands like 'Sys.sleep(5)' - no longer stall emacs. - - * ESS: [R, S, Stata, Julia] have specialized 'ess-X-post-run-hook's, - which are run at the end of subprocess initialization. - - * ESS[Stata]: All interactive evaluation commands work as expected. - On-line comments are removed before the evaluation and multiline - comments are skipped on 'C-c C-c' and other interactive commands. - - * ESS no longer auto-connects to a subprocess with a different - dialect than the current buffer's one. - - * ESS: 'ess-arg-function-offset-new-line' is now a list for all the - ESS indentation styles, which results in the following indentation - after an open "(": - - a <- some.function(other.function( - arg1, - arg2) - - * ESS[SAS]: Improved MS RTF support for GNU Emacs; try - 'ess-sas-rtf-portrait' and 'ess-sas-rtf-landscape'. - - Changes/Bug Fixes in 12.04-3: - * ESS: basic support for package.el compatibility - * ESS[R]: correct indentation of & and | continuation lines - * 'M-x ess-version' shows the svn revision even after 'make install' - * ESS[SAS]: improved XEmacs support - * iESS[R]: better finding of previous prompt - * ESS[Stata]: adjusted prompt for mata mode - * ESS[R]: resolved name clashes with cl.el - * ESS[R]: removed dependence on obsolete package assoc - * New 'make' target 'lisp', to build the lisp-only part, i.e., not - building the docs. - - Changes/New Features in 12.04-1: - * iESS[Stata]: New interactive help invocation. - * iESS[Stata]: New custom variable 'inferior-STA-start-file'. - * iESS[Stata]: 'inferior-STA-program-name' is now "stata" and can be - customized. - * ESS[Stata] New sections in stata help files Syntax('s-S'), - Remarks('r'), Title('t'). - - Bug Fixes in 12.04-1: - * ESS[R]: Better 'ess-tracebug' error handling. - * ESS[R]: Corrected 'ess-eldoc' help string filtering and improved - argument caching. - * ESS[R]: Indentation of non-block if/else/for/while lines fixed. - * 'M-x ess-version' should work better. - * ESS: Filename completion now again works inside strings. - * iESS[Stata]: Fixed prompt detection issue. - * ESS[Rd]: R is autostarted also from here, when needed. - - Changes/New Features in 12.04: - * ESS: Reverting new behavior of 12.03, 'TAB' in 'ess-mode' no longer - completes by default. If you want smart 'TAB' completion in R and - S scripts, similarly to iESS behavior, set the variable - 'ess-tab-complete-in-script' to 't'. Also see - 'ess-first-tab-never-complete' for how to customize where first - 'TAB' is allowed to complete. - * ESS: completion is consistently bound to 'M-TAB' (aka 'M-C-i') in - both Emacs23 and Emacs24. - * ESS: The variable 'ess-arg-function-offset-new-line' introduced in - ESS(12.03) now accepts a list with the first element a number to - indicate that the offset should be computed from the indent of the - previous line. For example setting it to '(2) results in: - - a <- some.function( - arg1, - arg2) - - Changes/New Features in 12.03: - * ESS indentation: new offset variable - 'ess-arg-function-offset-new-line' controlling for the indentation - of lines immediately following open '('. This is useful to shift - backwards function arguments after a long function call expression: - - a <- some.function( - arg1, - arg2) - - instead of the old - - a <- some.function( - arg1, - arg2) - - If '(' is not followed by new line the behavior is unchanged: - - a <- some.function(arg1, - arg2) - - This variable should be set as part of indentation style lists, or - in ess-mode hook. - * ESS[R]: 'C-c .' sets (indentation) style. - * ESS: In ESS buffers 'yank'('C-y') command accepts double argument - 'C-u C-u' to paste commands only. It deletes any lines not - beginning with a prompt, and then removes the prompt from those - lines that remain. Useful to paste code from emails, - documentation, inferior ESS buffers or transcript files. - * Documentation: ESS user manual has been rearranged and completed - with several new chapters and sections to reflect newly added - features ("Completion", "Developing with ESS", "ESS tracebug", "ESS - developer", "ESS ElDoc", "IDO Completion" and "Evaluating Code") - * RefCard: Reference card was updated to include new features. - * Eldoc: Eldoc was rewritten and is activated by default. See - 'ess-use-eldoc', 'ess-eldoc-show-on-symbol', - 'ess-eldoc-abbreviation-style' variables for how to change the - default behavior. _Note:_ 'skeleton-pair-insert-maybe' prohibits - eldoc display, on '(' insertion. - * ESS[R]: Eldoc shows arguments of a generic function whenever found. - * ESS: 'TAB' in 'ess-mode' now indents and completes, if there is - nothing to indent. Set 'ess-first-tab-never-completes-p' to 't' to - make 'TAB' never complete on first invocation. Completion - mechanism is similar to the completion in the 'inferior-ess-mode' - - a filename expansion is tried, if not found ESS completes the - symbol by querying the process. - * ESS for emacs version 24 or higher: ESS is fully compatible with - the emacs 24 completion scheme, i.e. all the completion is done by - 'completion-at-point'. Also in accordance with emacs conventions, - ESS doesn't bind 'M-TAB' for emacs 24 or higher. 'M-TAB' calls the - default 'complete-symbol'. - - * ESS[R]: Out of the box integration with 'Auto Completion' mode - http://cx4a.org/software/auto-complete - (http://cx4a.org/software/auto-complete) . Three AC sources - 'ac-source-R-args', 'ac-source-R-objects' and 'ac-source-R' are - provided. The last one combines the previous two and makes them - play nicely together. Set 'ess-use-auto-complete' to 't' to start - using it. Refer to documentation string of 'ac-use-auto-complete' - for further information. - * ESS[R]: New unified and fast argument completion system, comprised - of 'ess-funname.start', 'ess-function-arguments', - 'ess-get-object-at-point'. Eldoc and auto-completion integration - are using this system. - * ESS: 'ess-switch-to-end-of-ESS'('C-c C-z'), and - 'ess-switch-to-ESS'('C-c C-y'): Automatically start the process - whenever needed. - * ESS[R]: 'roxy' knows about previewing text version of the - documentation. Bound to 'C-c C-e t'. - * ESS[R]: Solved the "nil filename" bug in roxygen support. - * ESS[R]: 'ess-tracebug' is now part of ESS: - - New Features: - - - Source injection: Tracebug now can inject source references on - the fly during code evaluation, i.e. you don't have to source - your file, but just evaluate your code in normal fashion. - Variable 'ess-tracebug-inject-source-p' controls this behavior - - if t, always inject source reference, if ''function', inject - only for functions (this is the default), if 'nil', never - inject. - - During the source injection the value of 'ess-eval-visibly' is - ignored. - - Org-mode support: Visual debugger is now aware of the - temporary org source editing buffer ('C-c '') and jumps - through this buffers if still alive, or in original org buffer - otherwise. - - New keys in watch mode: '?' and 'd' - - Two new hooks: ess-tracebug-enter-hook and - ess-tracebug-exit-hook - - * ESS[R]: New package 'ess-developer' to evaluate 'R' code directly - in the package environment and namespace. It can be toggled on and - off with 'C-c d t'. When 'ess-developer' is on all ESS evaluation - commands are redefined to evaluate code in appropriate - environments. Add package names to the list of your development - packages with 'C-d a', and remove with 'C-d r'. Source the current - file with 'C-d s'.Evaluation function which depend on - '`ess-eval-region'' ask for the package to source the code into, - 'ess-eval-function' and alternatives search for the function name - in the development packages' environment and namespace and insert - the definition accordingly. See the documentation section - "Developing with ESS/ESS developer" for more details. - - * ESS[R] help system: - - New Features: - - - 'q' quits window instead of calling - 'ess-switch-to-end-of-ESS'. This is consistent with emacs - behavior help and other special buffers (_breaking change_). - - 'k' kills window without asking for the name (pointed by Sam - Steingold) - - Help map inherits from 'special-mode-map' as sugested by Sam - Steingold. - - Package index: new function 'ess-display-index' bound to 'i' - in help mode map. - - Package vignettes: new function 'ess-display-vignettes' bound - to 'v' in help mode map. - - Display help in HTML browser: new function - 'ess-display-help-in-browser' bound to 'w' in help mode map. - It depends on 'R''s 'browser' option. - - New custom variable 'ess-help-pop-to-buffer': if non-nil ESS - help buffers are given focus on display. The default is 't' - (_breaking change_). - - New menu entries for the above functions. - - Bogus help buffers are no longer generated by default, i.e. - buffers of the form "No documentation for 'foo' in specified - packages and libraries: you could try '??foo' ". - 'ess-help-kill-bogus-buffers' now defaults to 't'. Beware, - there may be instances where the default is unsatisfactory - such as debugging and/or during R development. Thanks to Ross - Boylan for making the suggestion, Sam Steingold for reminding - us of this variable and Martin Maechler for the warning. - * ESS now uses 'IDO' completing read functionality for all the - interactive requests. It uses ido completion mechanism whenever - available, and falls back on classical completing-read otherwise. - You can set 'ess-use-ido' to nil if you don't want the IDO - completion. See the documentation string of 'ess-use-ido' for more - information about 'IDO' and ESS configuration. - - * ESS[S]: "','" is bound to ess-smart-comma: If comma is invoked at - the process marker of an ESS inferior buffer, request and execute a - command from '`ess-handy-commands'' list. If - 'ess-R-smart-operators' is t '`ess-smart-comma' also inserts " " - after comma. - * ESS[S], notably 'R': Variable '`ess-handy-commands'' stores an - alist of useful commands which are called by 'ess-smart-comma' in - the inferior buffer. - - Currently containing: - - change-directory - 'ess-change-directory' - help-index - 'ess-display-index' - help-object - 'ess-display-help-on-object' - vignettes - 'ess-display-vignettes' - objects[ls] - 'ess-execute-objects' - search - 'ess-execute-search' - set-width - 'ess-execute-screen-options' - install.packages - 'ess-install.packages' - library - 'ess-library' - setRepos - 'ess-setRepositories' - sos - 'ess-sos' - - Handy commands: 'ess-library', 'ess-install.packages', etc - ask - for item with completion and execute the correspond command. - 'ess-sos' is a interface to 'findFn' function in package 'sos'. If - package 'sos' is not found, ask user for interactive install. - - * ESS: New dynamic mode line indicator: Process status is - automatically reflected in all mode-lines of associated with the - process buffers. Particularly useful for displaying debug status - of 'ess-tracebug' and developer status of 'ess-developer' in all - associated buffers. - - * ESS: New 'ess-completing-read' mechanism: ESS uses 'ido' - completions whenever possible. Variable 'ess-use-ido' controls - whether to use ido completion or not. Active by default. - - * ESS now supports comint fields for output and input detection. - This feature is not used by default, but might be useful in the - future. - - * ESS[S]: New custom variable 'inferior-ess-S-prompt' to customize - prompt detection regular expression in the inferior ESS buffers. - You can customize this variable to enhance comint navigation - ('comint-previous-prompt' and 'comint-next-prompt') the inferior - buffers. - - * ESS[R]: Internal 'R' completion retrieval - ('ess-R-complete-object-name') was rewritten and is faster now. - - * ESS is using process plist to store process specific variables, as - opposed to buffer local variables as it was using before. The use - of buffer local variables to store process variables is - discouraged. - - * ESS: new functions to manipulate process plists: 'ess-process-get' - and 'ess-process-set'. - - * ESS: Internal process waiting mechanism was completely rewritten. - ESS no more relies on prompt regular expressions for the prompt - detection. The only requirement on the primary process prompt is - to end in '> '. This could be overwritten by setting - 'inferor-ess-primary-prompt'. - - * ESS[S], notably 'R': Saved command history: ESS-HISTORY-FILE now - accepts 't' (default), 'nil', or a file name. By setting it to - 'nil' no command line history is saved anymore. - ESS-HISTORY-DIRECTORY now allows to have the history all saved in - one "central" file. - * ESS[R]: more Roxygen improvements. - * ESS[R]: 'C-c .' to set (indentation) style. - - * ESS[R]: Functions with non-standard names (for example - 'aaa-bbb:cc') are properly handled by font-lock and evaluation - routines. - * ESS[R]:Several regexp bugs (described in etc/R-ESS-bugs.el) were - fixed in 'ess-get-words-from-vector' and 'ess-command'. - - Changes/New Features in 5.14: - * ESS[BUGS/JAGS]: Batch BUGS is back! For recent OpenBUGS versions, - 3.0.8+, a batch BUGS script is once again available, but for Linux - only. Therefore, since it seems that BUGS and JAGS must co-exist - (rather than a transition from BUGS to JAGS), .bug files are now in - ESS[BUGS] mode and .jag files are in ESS[JAGS] mode. ESS[BUGS] now - works like ESS[JAGS] rather than the original mode ESS[BUGS] mode - which was difficult to maintain. Although, ESS[BUGS] appears to - work, there still may be some features missing as well as bugs. - - * ESS[R]: New customizable variable 'ess-swv-plug-into-AUCTeX-p' - Commands to Sweave current file and LaTeX the result are now - available to AUCTeX users, if this variable is set to 't'. - - * ESS[S]: 'C-c C-c' ('ess-eval-function-or-paragraph-and-step') is - now skipping over comments as the other paragraph functions do. It - (and similar functions) should no longer wrongly find 'function()' - beginnings inside comments or strings. - - * ESS[SAS]: improved by better support for GNU Emacs - - Changes/New Features in 5.13: - * ESS[R]: On Windows, for R 2.12.0 and later, the Rterm executables - (in subdirectories i386 / x64) now are found as well as for earlier - R versions. - * ESS[S+]: on Windows, both 32- and 64-bit versions of S+ ("S-PLUS") - are found now and made available on the menu. - * ESS[R]: When prompting for a starting directory, the R version is - (always?) correct now. - * ESS[R]: on non-Windows platforms, the 'use-dialog-box' variable is - no longer temporarily changed (to 'nil' for R-x.y.z version - functions and to 't' for 'R' itself), but rather the user - customization is obeyed. - * ESS[R]: more Roxygen improvements. - * 'Rd-preview-help' now generates preview buffers with navigation - facilities the same as regular help buffers. - * ESS: New functions and keys C-c [up] / [down] for evaluating the - buffer "from beginning till here". - - Changes/New Features in 5.12: - * ESS[SAS] Font-locking: update of PROCs keywords (up to SAS 9.22); - error/warnings. - * ESS[R]: Roxygen improvements: S4 classes; also optionally keep - spaces when filling arguments - * ESS[Rd]: support new keywords: section-name \subsection plus a - dozen "new" keywords; should match R 2.12.x now. - * 'ess-display-help-on-object' ('C-c C-v') now _caches_ the list of - topics, thus speeding up the improvement feature introduced in 5.9. - - Changes/New Features in 5.11: - * Filename completion within buffers now adds only trailing - characters to complete the filename, rather than expanding to an - absolute file path. This filename completion is bound to the TAB - key. - - * 'M-n P' in Sweave buffers now prompts for the command to run - instead of using 'pdflatex' unconditionally, offering completion - from customizable collection 'ess-swv-pdflatex-commands', the first - of which is taken as default and that defaults to 'texi2pdf'. - * 'M-RET' is now also bound in S language (R and S+) buffers to - 'ess-use-this-dir'. It sends 'setwd(..)' to the S process to set - the working directory to the one of the source file. - - Changes/New Features in 5.10: - * 'M-RET' in *S* buffers is now bound to 'ess-dirs'. This function - will set Emacs's current directory to be the same as the *S* - process. This is useful if you use 'setwd()' within a *S* process. - - Changes/New Features in 5.9: - * Toolbar: The toolbar now has an icon for starting Splus. - * Indentation: New documentation and code has been added to make it - easier to change how ESS indents code. In particular, see - 'ess-default-style', 'ess-own-style-list' and the documention - subsection "Changing indentation styles". - * 'ess-display-help-on-object' ('C-c C-v') now offers completion - candidates for help file aliases, in addition to object names. - * Font locking: is now turned on even without 'window-system' is - 'nil', whenever ESS-FONT-LOCK-MODE is non-nil, i.e., by default. - * ESS script editing: ess-eval-deactivate-mark default is now t, as - suggested by Leo Alekseyev and subsequent "unanimous" ESS-help - discussion. - * ESS[R]: Editing support for "#!" (Rscript / littler) editing, - thanks to Jeffrey Arnold. - * ESS[R]: Now finds all R versions, both 64-bit and 32-bit, on some - 64-bit Windows machines. Please report back to ess-core success or - failure on your 64-bit Windows machine. - * ESS Manual now more visually pleasing; - - * ESS[R]: Roxygen on XEmacs no longer font locks for now (as it - required missing features and hence broke ESS startup, there). - * ESS[R]: Roxygen has a sub-menu on the [ESS] menu. - * ESS[R]: Function 'ess-rutils-htmldocs' in 'ess-rutils.el' offers an - alternative to 'help.start()' for navigating R documentation, using - the 'browse-url' Emacs function. - - Changes/New Features in 5.8: - * ESS[R]: New 'ess-rutils.el' with utilities for listing, loading, - installing, and updating packages, as well as object manipulation - (listing, viewing, and deleting). It also provides an alternative - to 'RSiteSearch()' that uses the 'browse-url' function, so results - can be viewed in an Emacs web browser. - * ESS[R]: much more extensive Roxygen interface, via ess-roxy.el from - Henning Redestig. Ess-roxy supports filling of roxygen fields, - generation and updating roxygen templates, completion of roxygen - tags, basic navigation (marking and moving between entries), - folding using hs-minor-mode and preview of the Rd file. - * Emacs lisp files have got better names (partly, for now). - - Changes/New Features in 5.7: - * ESS[R]: loading a source file ('C-c C-l') now works in Windows, - similarly to other platforms; (further; it had accidentally been - broken in ESS 5.6 on all platforms) - - Changes/New Features in 5.6: - * ESS[R]: help() calls have to differ from old default, with newer - versions of R; currently via .help.ESS <- function(...) hack. - - Changes/New Features in 5.4: - * ESS[SAS]: The long overdue change from 'make-regexp' to - 'regexp-opt' for font-locking is complete. The new 'regexp-opt' is - now the default since it is better than the old code in many ways - (and especially more maintainable). However, there are certainly - some special cases missed (bug reports and patches welcome!). - Setting 'ess-sas-run-regexp-opt' to 'nil' will result in the old - code being used. - * ESS[BUGS] and ESS[JAGS]: typing '=' now results in '<-'. - * ESS[R] function arguments "show" '(ess-r-args-show)' now uses the - new '(tooltip-show-at-point)' contributed by Erik Iverson. - * Toolbar icons now also work in (beta) Emacs 23. - * ESS[S]: New function 'ess-change-directory' for setting both emacs' - current directory and the directory of an *R* or *S* buffer. - * ESS[S] when transient-mark-mode is true, the mark is now kept, - rather than deactivated, thanks to a patch from David Reitter. - - Changes/New Features in 5.3.11: - * ESS[SAS]: work around bug in Emacs 22.2 & 22.3 which fails to set - case-fold fontification automatically. - * Rd mode: support new keyword 'Rdversion' - * ESS[R]: now again works with Emacs 21.x - - Changes/New Features in 5.3.10: - * Fixed noweb-mode bug accidentally introduced into 5.3.9 - * In noweb-mode, e.g., Rnw-mode, electric "<" also inserts closing - "@". Further, the code chunk boundaries are better kept - up-to-date, such that code[R] <-> text[LaTeX] minor mode switching - should happen more reliably. - * In noweb-mode, fix a buglet in rare [Enter] or [Tab] behavior; - further, by default disable the former '[[' .. ']]' - code-protection-when-filling behavior which has been found to be - buggy. - - Changes/New Features in 5.3.9: - * ESS[SAS]: evince PDF viewer now supported as well; search order: - evince, Xpdf, Adobe/Acrobat Reader - * ESS[R]: added support for Roxygen, potentially to be extended. - * ESS[S] (and R): inferior ('*R*') and transcript modes no longer - fontify language keywords (such as 'for', 'in', etc). - * iESS[Stata]: Customize the 'ess-sta-delimiter-friendly' setting to - 't' to convert embedded semi-colons to newlines for Stata - processing. - * Sweave fix for embedded blanks in PDF reader and PDF files - * Several fixes for Major Mode Convention violations in 'ess-mode' - and 'noweb-mode'. - * ESS[JAGS]: 'M-x comment-region' now available! - * ESS[S] The 'ess-swv-*' commands (and keybindings) are now in a - submenu of the "Noweb" menu, when editing Sweave files. - - Changes/New Features in 5.3.8: - * ESS[JAGS]: more separation from ESS[BUGS] (as much as is currently - planned); now 'C-c C-c' on an empty '.jmd' creates a template as it - should; symbolic links are created for CODA output so BOA is happy: - from 'index.txt' to '.ind' and 'chain#.txt' to '#.out' - * ESS[SAS]: buffer-local 'ess-sas-submit-command' and - 'ess-sas-submit-command-options' now recognized by - 'ess-sas-submit-region' - * ESS[S]: When trying to evaluate code in an S language buffer and - there is no associated process, now start R automatically instead - of signalling an error. Also, restart R if there is an associated - process which is not running. However, do not start R just via the - "electric" '(' ('ess-r-args-auto-show'). - * ESS[S]: For (one-line) functions withOUT '{ .. }' bodys, the end - of function is now correctly found more often. This notably - improves 'C-c C-c' ('ess-eval-function-or-paragraph-and-step'). - * ESS[JAGS]: cleanup/re-organization of elisp code; symbolic links - for CODA output are now only created by the new JAGS 'system' - command in version 1.0.3; specify whether this command is available - via 'ess-jags-system'; if not present, then no links are created so - that the '*shell*' buffer does not become unresponsive during the - batch run - - Changes/New Features in 5.3.7: - * ESS: 'ess-default-style' now *is* customizable, i.e., changing its - value in '~/.emacs' now does have the desired effect. - * ESS: 'ess-font-lock-mode' is a new variable (default: t) which - controls whether font-locking is enabled in ESS buffers. - * ESS[R]: for XEmacs on Windows; another tweak to find R versions - * ESS[SAS]: font-locking updated for ODS and SAS Bayesian Procedures; - a more consistent handling of SAS options by - 'ess-sas-submit-command-options' which is buffer-local; portable - snooze for MS Windows via customize-able 'ess-sleep-for' (floats - welcome); Xpdf now supported as a PDF viewer - * ESS[Rnw]: now also works with "emacs -nw" and Emacs 22. - * ESS[JAGS]: now requires JAGS 1.0 (see the new ESS for JAGS help - section for more information): both need work; suggestions welcome - * ESS[R]: [TAB] completion now uses the R-internal completion - mechanism (for R >= 2.5.0). - * ESS[R] ([S]): interpretation of "_" as assignment has been removed - in 'ess-continued-statement-p' for R and S. - * several internal code cleanups. - * ESS[R]: An experimental version of a new command 'Rgui' on MS - Windows to send lines directly from emacs to 'Rgui' is available in - file 'lisp/essd-rgui.el'. Preliminary documentation is in file - 'doc/rgui-doc.txt'. - - Changes/New Features in 5.3.6: - * ESS: for XEmacs, using "gnuclient" (without a "-q") works for - things like fix() after M-x gnuserv-start has been done. - * ESS[R]: M-x R-newest should now work in more situations on MS - Windows, e.g., when R has been installed in a non-default - "ProgramFiles" directory tree. In these cases, there's no need to - specify the name (and full path) of the R program anymore. - * ESS[R]: For XEmacs, startup (with new tooltip code) works again. - - Changes/New Features in 5.3.5: - * ESS[R] a new defun is available, 'M-x R-newest', which will start - the newest version of R that it can find on your system. - * ESS[R] add Sven Hartenstein's "R function arguments tips" - functionality, via new file '../lisp/essd-r-args.el'. Note that - this includes an "electric "("" behavior inside 'R-mode' which is - _active by default_ and can be customized via - 'ess-r-args-electric-paren'; i.e., use '(setq - ess-r-args-electric-paren nil)' to turn it off. Further, - 'ess-r-args-show-as' allows to switch to the "tooltip" mode. - * ESS: functions 'ess-get-pdf-viewer' and *-ps-viewer; built on new - customizable variables 'ess-pdf-viewer-pref' and - 'ess-ps-viewer-pref'; currently used in 'ess-swv-PDF' and '*-PS'. - * ESS[R] Improved 'ess-swv-PDF' to run pdf viewer only if pdflatex - was ok - * ESS[R] Improved 'ess-swv-weave' to start R automatically if none is - running. - * ESS: Do no longer ask _which_ ESS process to use if there is only - one. - - Changes/New Features in 5.3.4: - * ESS[R] now better work with options(error=recover); and the new - default of CHM help files on windows. - * ESS[R] some more cleanup in the "sweave" functions - * miscellaneous fixes - - Changes/New Features in 5.3.3: - * ESS[S] fix buglet (5.3.2 only) which left command prompt in - "execute buffer" and hence help files. - * new customizable variable 'ess-display-buffer-reuse-frames' set to - true (which changes default behavior) such that execution or help - *frames* are reused. - - Changes/New Features in 5.3.2: - * Classic BUGS now supported by '(require 'essd-bugs)' with ESS[BUGS] - and JAGS by '(require 'essd-jags)' with ESS[JAGS]. But, only one - of them can be used at a time since they don't play nice together. - Also, 'C-c C-c' is now bound to the function 'ess-bugs-next-action' - ('F12' has been retired). And finally, note that 'essl-bug.el' is - deprecated and the replacement is 'essl-bugs.el'. - * ESS[R] Improved some of the "Sweave-make" functions (yet scarcely - documented) in 'ess-swv.el'. - * ESS[S] No longer mess with .Last.value (nor in other "languages"). - - Changes/New Features in 5.3.1: - * See the docs for 2 ways to install ESS for XEmacs - 1. by uncommenting the XEmacs part of Section 1 of 'Makeconf' and - performing 'make install' - 2. by unpacking either 'ess-5.3.1.tgz' or 'ess-5.3.1.zip' into - 'PREFIX/lib/xemacs/site-packages' on unix or - 'PREFIX\XEmacs\site-packages' on windows - * ESS[R]: fixed bugs so that Rterm.exe can be found by XEmacs - * ESS[S]: 'ess-toggle-S-assign-key' is slightly changed; in - particular, the default 'ess-assign-key' is now 'C-x ='. - * ESS[R]: 'M-x R-site-search' is a new (slightly experimental) - utility similar to R's 'RSiteSearch(..)' but with the advantage of - using Emacs' preferred browser, see 'browse-url-browser-function' - - Changes/New Features in 5.3.0: - * ESS[BUGS]: sanely re-format statistical output, '.bog', from - scientific notation to numbers rounded with 4 decimal places with - 'M-x ess-bugs-sci-round-to-4-dp'. - * The keys for navigating among section headings in help buffers - worked, but only for one language per session; they should now work - for multiple languages. (They were also broken on Windows - machines.) - * ESS[S] long standing buglets in the internal logic for loading lisp - code on Windows. Particularly fixed behavior in help mode with - S-plus GUI. - * New variable, 'ess-use-inferior-program-name-in-buffer-name', which - enables using the executable name instead of the dialect name for - R. Feature request. - * ESS[S] 'ess-execute-screen-options' now also works correctly when - there is more than one window *side-by-side* in the same frame and - runs in the correct buffer also when there is more than one S - buffer. - * iESS[S] new functions 'ess-eval-paragraph-and-step' and - 'ess-eval-function-or-paragraph-and-step' are bound to keys 'C-c - C-p' and 'C-c C-c' respectively and to the menu in ESS-mode; also - bound in the help mode (for evaluating examples). - * ESS[S] new function 'ess-toggle-S-assign-key' allows to assign the - " <- " insertion to an arbitrary key. - - Changes/New Features in 5.2.12: - * ESS[SAS]: 'M-;' fixed, but the XEmacs function 'comment-dwim' may - be broken, if so, use 'M-x comment-region' and 'M-x - uncomment-region' instead; only valid PROCs are fontified which is - very helpful finding syntax errors (currently supported: BASE, ETS, - FSP, GRAPH, IML, INSIGHT and STAT); the "feature" where 'F'-keys - take you to an empty buffer when the requested destination is a - file that does not exist has been fixed, now the request results in - a no-op. Further, sas-mode now also works in simple terminals. - * Rterm/Cygwin combination works under Microsoft Windows. - * ESS[R]: internal calls use baseenv() instead of NULL and define - 'baseenv' where needed. - * New experimental support for installing ESS. See the file - 'lisp/ess-install.el'. - - Changes/New Features in 5.2.11: - * ESS Info entry and 'dir' handled more effectively for GNU Emacs - users - * ESS[SAS]: temporary files created for batch submission of a region - are now named based on the current file; see 'ess-sas-file-root' - for details; all 'lag' and 'dif' functions now fontified correctly - * iESS[SAS]: fixed a few nagging bugs, however, still does not appear - to work at this time; please let us know if you have any ideas. - * ESS[S]: Support for running other versions of Splus has been added - for unix. Two new variables, 'ess-s-versions' and - 'ess-s-versions-list', are used to tell ESS what other versions of - Splus you would like to run. - - Changes/New Features in 5.2.10: - * ESS[R]: ess-r-versions can no longer be customized (since the - customization was not taking effect unless customizations were - loaded before ESS). Its value has been changed so that it will also - find R executables beginning "R-devel" and "R-patched". If you - wish to change this variable, it must be set in your '.emacs' - before ESS is loaded. - * Installation with GNU Make enhanced: unix and unix-like operating - systems will now be able to install ESS for all users in either a - GNU Emacs site-lisp or an XEmacs package configuration by editing - 'lisp/ess-site.el' and 'Makeconf' accordingly, then issuing 'make - install' - * ESS[S]: Filename completion (inside strings) now also works in - XEmacs for R and S-plus. - - Changes/New Features in 5.2.9: - * ESS[R] for Windows: the \ directory character bug with respect to - ess-load-file has been eradicated. - * iESS[SAS]: 'C-c C-r' and 'C-c C-b' once again work as intended and - documented. - * ESS[S]: M-x ess-fix-EQ-assign is a bit more agressive. - * ESS[S]: Imenu now also shows setAs(), etc. - * ESS[R]: R function pattern enhanced with underlying code such that - 'M-C-a' ('ess-beginning-of-function') etc now work for many more - cases, including S4 method definitions. - * iESS[R]: myOwnhelp(1) no longer wrongly triggers help(1). - * ESS[R]: Improved detection of bogus help buffers: valid help - buffers containing with the string "no documentation"(e.g. - contour) were being treated as bogus. - * ESS[R]: In R help buffers, if 'options("help.try.all.packages" = - TRUE)' then '?rlm' will list which packages rlm is defined in. - This help buffer is not bogus, but instead is now relabelled - "*help[R](rlm in packages)*". - * ESS[STA]: add "//" as comment starting character to syntax-table. - - Changes/New Features in 5.2.8: - * iESS: [Tab] completes *file* names "inside string" as in earlier - (<= 5.2.3) ESS versions. - - Changes/New Features in 5.2.7: - * If you use Custom to change the variable ess-toolbar-items, the new - toolbar is used in all subsequent ESS buffers. - * ESS[SAS]: new feature: if ess-sas-log-max >0 and your .log grows to - more than ess-sas-log-max bytes, just the first ess-sas-log-max - bytes are refreshed; this is helpful when your .sas program - generates lots of error messages and gets too big for emacs to - display - * ESS[R/S]: 'M-;' in R/S editing modes will now indent with either - one or two hashes depending on context. - * ESS[R]: David Whiting's Sweave extensions (to 'noweb') are now - available (from ess-swv.el loaded by default). - - Changes/New Features in 5.2.6: - * Removed non-ASCII characters in a few files. - * ESS[R]: now works better when UTF-8 locale is active; in - particular, you get correct directional quotes in R's startup - message for R-devel (unstable development version of R 2.1.0) when - using environment variables LANGUAGE=en@quot LC_ALL=en_US.UTF-8 - * ESS[SAS]: toggling of .log mode improved ('F10'); toggling of .lst - mode now also available ('C-F10'); killing all buffers associated - with .sas program no longer bound to 'C-F10' since its a bit - overzealous. - * S-Plus 7 for Windows is now recognized. - * ESS[S] (incl. R): in auto-fill mode, strings are not wrapped - anymore. - * ESS[S] (incl. R): font-lock now correctly differs between R and S, - e.g., for "_"; both now fontify warning(.) and S does terminate() - additionally. - * Support for 'bell' aka 'beep' aka 'ding' aka 'alarm' in all - inferior modes: When \a is output "to the the console" at the - beginning of a line, the bell is rung. - - Changes/New Features in 5.2.5: - * ESS[R]: 'C-c C-q' or 'Quit S' from the menu now should work (again - and less klunkily) and do not append '-exited' to the buffer name. - Further, the behavior of '(ess-cleanup)', called from ess-quit, now - depends on the new customizable variable - 'ess-S-quit-kill-buffers-p' which defaults to 'nil'. Consequently, - the question _"Delete all buffers associated with ..?"_ will not - be asked anymore by default. - * ESS[SAS] - ess-ebcdic-to-ascii-search-and-replace will now work - with the 'recode' application as well which is available on many - platforms - * ESS[S] (incl. R): Name completion for slots of S4 objects now - works! - - Changes/New Features in 5.2.4: - * The documentation now includes an overview of how to use the emacs - TAGS facility for S functions. (The distribution also used to - contain a directory 'etc/other/Tags' where a ~1990 version of - 'etags.c' was distributed; this is no longer relevant and so has - been deleted.) - * ESS[SAS] - When you are working with EBCDIC files on an ASCII - platform, .log NOTEs may display as gibberish since the EBCDIC - characters are not converted to ASCII prior to their display. So, - the function ess-ebcdic-to-ascii-search-and-replace is provided for - convenience and is bound to 'C-F11'. This function requires the - 'dd' command (only available on unix or unix-like platforms). - * ESS: Completion of object names is now always done dynamically - rather than allowing the option of using a pre-computed database - (by 'ess-create-object-name-db') since modern computers seem fast - enough for dynamic completion. (We expect few users, if any, have - been using the pre-computed database method.) - * ESS: object completion in iESS buffers running on Windows was very - slow (for GNU Emacs, but not XEmacs) and has now been fixed. - Further, it was more or less broken for all versions of S-plus 6.x, - and has been fixed to work everywhere but with the Windows' GUI of - S-plus. The list of objects now shows unique names also when an - object appears more than once in the search path. - * ESS[R]: Completion of object names now also includes those starting - with ".". - - Changes/New Features in 5.2.3: - * ESS: When new inferior ESS processes are created, by default they - will replace the current buffer (this restores behavior from pre - 5.2.0). If you wish new ESS processes to start in another window - of the current frame, set inferior-ess-same-window to nil. - * New variables inferior-Splus-args and inferior-R-args provide a way - to pass command line arguments to starting S and R processes. - - Changes/New Features in 5.2.2: - * bug-fixes for 5.2.1 (require 'executable), html docs, etc. - * ess-lisp-directory/../doc/info added to Info-directory-list if - ess-info not found by info - * ESS[R]: If you have other versions of R on your exec-path, such as - "R-1.8.1" with Unix or "rw1081" with Windows, ESS will find them - and create appropriate functions, such as 'M-x R-1.8.1' or 'M-x - rw1081', for calling them. By default only Unix programs beginning - "R-1" and "R-2" and Windows programs parallel to the version of R - in your exec-path will be found, but see ess-r-versions and - ess-rterm-versions for ways to find other versions of R. - * ESS[R]: Other versions of R, such as "R-1.8.1" on Unix and "rw1081" - on Windows, are added to the "ESS / Start Process / Other" menu. - * ESS[S]: If you have other versions of S-Plus on your Windows - computer, such as S-Plus 6.1 or S-Plus 4.5, ESS will find them and - create appropriate functions, such as 'M-x splus61', for calling - the console version (Sqpe) inside an emacs buffer. By default only - programs installed in the default location will be found, but see - ess-SHOME-versions for ways to find other versions of S-Plus. - * ESS[S]: Other versions of Sqpe on Windows, such as "splus61", are - added to the "ESS / Start Process / Other" menu. - * ESS[R]: (bug fix) ess-quit (bound to 'C-c C-q') should now quit the - inferior R process, when issued from either the inferior buffer, or - from a .R buffer. - - Changes/New Features in 5.2.1: - * ESS[S] (R and S-plus): now have toolbar support with icons to - evaluate code in the inferior process or to switch there. This - code is experimental and likely to change as XEmacs/Emacs issues - get resolved. The toolbar should be enabled if your Emacs displays - images, but can be disabled with the variable ess-use-toolbar. - Thanks to David Smith from Insightful for the S-plus logo. - * ESS[SAS]: ess-sas-graph-view ('F12') enhanced; you can specify - external file viewers for each graphics file type via the alist - ess-sas-graph-view-viewer-alist; also .jpg/.gif are now handled by - image-mode on XEmacs, if available, otherwise by graphics - primitives as before - - Changes/New Features in 5.2.0: - * ESS[BUGS]: new info documentation! now supports interactive - processing thanks to Aki Vehtari (mailto:Aki.Vehtari@hut.fi); new - architecture-independent unix support as well as support for BUGS - v. 0.5 - * ESS[SAS]: convert .log to .sas with ess-sas-transcript; info - documentation improved; Local Variable bug fixes; SAS/IML - statements/functions now highlighted; files edited remotely by - ange-ftp/EFS/tramp are recognized and pressing SUBMIT opens a - buffer on the remote host via the local variable - ess-sas-shell-buffer-remote-init which defaults to "ssh"; changed - the definition of the variable ess-sas-edit-keys-toggle to boolean - rather than 0/1; added the function ess-electric-run-semicolon - which automatically reverse indents lines containing only "run;"; - 'C-F1' creates MS RTF portrait from the current buffer; 'C-F2' - creates MS RTF landscape from the current buffer; 'C-F9' opens a - SAS DATASET with PROC INSIGHT rather than PROC FSVIEW; "inferior" - aliases for SAS batch: 'C-c C-r' for submit region, 'C-c C-b' for - submit buffer, 'C-c C-x' for goto .log; 'C-c C-y' for goto .lst - * ESS[S]: Pressing underscore ("_") once inserts " <- " (as before); - pressing underscore twice inserts a literal underscore. To stop - this smart behaviour, add "(ess-toggle-underscore nil)" to your - .emacs after ess-site has been loaded; - ess-dump-filename-template-proto (new name!) now can be customized - successfully (for S language dialects); Support for Imenu has been - improved; set ess-imenu-use-S to non-nil to get an "Imenu-S" item - on your menubar; ess-help: Now using nice underlines (instead of - 'nuke-* ^H_') - * ESS[R]: After (require 'essa-r), 'M-x ess-r-var' allows to load - numbers from any Emacs buffer into an existing *R* process; 'M-x - ess-rdired' gives a "directory editor" of R objects; fixed - ess-retr-lastvalue-command, i.e. .Last.value bug (thanks to David - Brahm) - * ESS: Support for creating new window frames has been added to ESS. - Inferior ESS processes can be created in dedicated frames by - setting inferior-ess-own-frame to t. ESS help buffers can also - open in new frames; see the documentation for ess-help-own-frame - for details. (Thanks to Kevin Rodgers for contributing code.) - - Changes/New Features in 5.1.24: - * The version number is now correct even inside ESS/Emacs - - Changes/New Features in 5.1.23: - * Minor more Makefile clean up. - - Changes/New Features in 5.1.22: - * Besides info documentation, PDF and HTML documentation are also - provided (instead of built using "make") and available on the web - as well; see ESS web page (https://ess.r-project.org/) and StatLib - (http://lib.stat.cmu.edu/general/ESS/doc) - * Now that info documentation is available, the README.* files are no - longer supported. However, they are still distributed for what - it's worth. - * ESS is now an XEmacs package! See XEmacs Installation HOWTO - (https://www.xemacs.org/Install/index.html) for details - (specifically, items 10-15). - * ESS[SAS]: more user-friendly enhancements for remote SAS batch jobs - with Kermit file transfers (LOG and OUTPUT function key features - now supported). Multiple shells now supported so you can run SAS - on different computers from different buffers by setting the - buffer-local variable ess-sas-shell-buffer to unique buffer names. - * Major re-vamping of Makefile/Makeconf. - - Changes/New Features in 5.1.21: - * ESS[SAS]: info documentation now available!, see ESS->Help for SAS; - 'F12' opens GSASFILE nearest point for viewing either within emacs, - when available, or via an external viewer; more syntax highlighting - keywords; more enhancements for remote SAS batch jobs with Kermit; - new framework for remote SAS interactive jobs, see ess-remote - * ESS[S]: info documentation now available!, see ESS->Help for the S - family - * Makefile: tag now independent of rel; info files made by - doc/Makefile and installed in new info sub-directory - - Changes/New Features in 5.1.20: - * New 'options()$STERM' in the S dialects (S, S-Plus, R). The S - program can determine the environment in which it is currently - running. ESS sets the option to 'iESS' or 'ddeESS' when it starts - an S language process. We recommend other specific values for S - language processes that ESS does not start. - * New 'ess-mouse-me' function, assigned to S-mouse-3 by default. - User may click on a word or region and then choose from the menu to - display the item, or a summary, or a plot, etc. This feature is - still under development. - * GNU Emacs 21.1 is now supported (fixed for S dialects, SAS & BUGS), - (some from Stephen Eglen). - * XEmacs 21.x is now supported (fixed w32-using-nt bug) - * XEmacs on Win (NT) is better supported. - * Workaround for bug in Sqpe+6 (S-PLUS 6 for Win). - * should now work even when imenu is not available (for old - XEmacsen). - * ESS[SAS]: XEmacs-Imenu fix; 'C-TAB' is globalized along with your - function-key definitions, if specified; you can specify your SAS - library definitions outside of autoexec.sas for ess-sas-data-view - with SAS code placed in the variable ess-sas-data-view-libname, - also the dataset name is defaulted to the nearest permanent dataset - to point; Speedbar support now works for permanent datasets, please - ignore first./last.; new font-locking is now the default with more - improvements for font-locking PROCs, macro statements, * ; and %* ; - comments; you can toggle sas-log-mode with 'F10' which will - font-lock your .log (if it isn't too big); submit remote .sas files - accessed with ange-ftp, EFS or Tramp (Kermit is experimental) by - setting ess-sas-submit-method to 'sh; ess-sas-submit-command and - ess-sas-submit-command-options are buffer-local so you can have - local file variable sections at the end of your .sas files to - request different executables or specify special options and the - local file variables are re-read at submit instead of only at file - open so that if you make a change it is picked up immediately; - * ESS[BUGS]: font-lock with 'in' fixed. - * for STATA: font-lock bug fixed. - * for Rd mode: 'C-c C-v' and 'switch-process' in menu. further, 'C-c - C-f' prefix (Rd-font) for inserting or surrounding a word by things - such as \code{.}, \code{\link{.}}, \emph{.} etc. - * new functions (ess-directory-function) and (ess-narrow-to-defun) - ess-directory <-> default-directory logic (Jeff Mincy). - * Re-organized Makefile and fixed a few bugs. - - Changes/New Features in 5.1.19: - * S+6 now supported (Tony Rossini (Unix) and Rich Heiberger - (Windows)) - * New BUGS support through ESS[BUGS] mode (Rodney Sparapani) - Templates assist you in writing .bug and .cmd code (.cmd and .log - are replaced by .bmd and .bog to avoid emacs extension collisions). - Substitution" parameters facilitate "automagic" generation of - data...in" and "init...in" filenames, "const N=" from your data - file and "monitor()/stats()" commands. Activated by pressing - 'F12'. - * Fixes for 'ess-smart-underscore' SAS breakage (Rich Heiberger) - * You can change between PC and Unix, local and global SAS - function-key definitions interactively (Rich Heiberger) - * 'C-Submit' a highlighted region to SAS batch (Rodney Sparapani) - * New and improved SAS syntax highlighting (Rodney Sparapani) To get - the new functionality, set ess-sas-run-make-regexp to nil. Also - available in .log files via 'F10'. - * Open a permanent SAS dataset for viewing via 'F9' (Rodney - Sparapani) You must have the library defined in autoexec.sas for it - to work. - * User-friendly defaults for 'sas-program', - 'ess-sas-batch-pre-command' and 'ess-sas-batch-post-command' as - well Customize support for these and other ESS[SAS] variables - (Rodney Sparapani) - * 'ess-sas-suffix-2' now defaults to .dat via 'F11' (Rodney - Sparapani) - * Emacs/XEmacs, Unix/Windows issues collectively handled in - ess-emcs.el - * defadvice solves problem of missing *ESS* (thanks to Jeff Mincy) - * Improved manual a bit by including things that were only in - 'README'. - - Changes/New Features in 5.1.18: - * New 'ess-smart-underscore' function, now assigned to "_" by - default. Inserts 'ess-S-assign' (customizable " <- "), unless - inside string and comments where plain "_" is used instead. (MM) - * Fixes for longstanding interactive SAS breakage (RMH) - - Changes/New Features in 5.1.17: - * Documentation for Windows Installation (Rich Heiberger) - * removal of ess-vars, finalization of customize support (in the - sense that there is no more use of ess-vars, but that we need to - fix ess-cust) (AJ Rossini) - * Many small (and large) fixes/contributions (MMaechler) - * addition of the "S-equal" variable and provide 'M-x - ess-add-MM-keys' a way to remap "_" to 'ess-S-assign', typically " - <- ", but customizable. (MMaechler) - - Changes/New Features in 5.1.16: - * BUG FIXES - * Better SAS support - - Changes/New Features in 5.1.15: - * BUG FIXES - - Changes/New Features in 5.1.14: - * Yet more fixes to SAS mode, (Rich Heiberger and Rodney Sparapani) - * Customize support (for most Emacsen which support it) (AJRossini) - * ARC and ViSta support out of the box, and fixes for XLispStat - (AJRossini) - - Changes/New Features in 5.1.13: - * Version numbering finally all depending on the ./VERSION file, - thanks to Martin Maechler. - * Yet more fixes to SAS mode, thanks to Rich Heiberger. - - Changes/New Features in 5.1.12: - * Splus 5.1 stabilized, thanks to Martin Maechler, Bill Venables, - Chuck Taylor, and others. - * More fixes to SAS mode, thanks to Rodney Sparapani and Rich - Heiberger. - - Changes/New Features in 5.1.11: - * More fixes to Stata mode, thanks to Brendan Halpin - (mailto:brendan@essex.ac.uk). - * fixed bugs in ESS-elsewhere, thanks to many testers - * README.SPLUS4WIN has DETAILED instructions for S-PLUS 2000, thanks - to David Brahm (mailto:brahm@alum.mit.edu). - * Fixes to SAS mode, thanks to Rodney Sparapani - - Changes/New Features in 5.1.10: - * More fixes to Stata mode - * primitive generic version of ESS-elsewhere - * Small fixes to SAS/Stata. - - Changes/New Features in 5.1.9: - * Stata mode works - * Literate Data Analysis using Noweb works - - Changes/New Features in 5.1.8: - * Bug fixes - * R documentation mode defaults changed - - Changes/New Features in 5.1.2: - * able to use inferior iESS mode to communicate directly with a - running S-Plus 4.x process using the Microsoft DDE protocol. We - use the familiar (from Unix ESS) 'C-c C-n' and related key - sequences to send lines from the S-mode file to the inferior S - process. We continue to edit S input files in ESS[S] mode and - transcripts of previous S sessions in ESS Transcript mode. All - three modes know the S language, syntax, and indentation patterns - and provide the syntactic highlighting that eases the programming - tasks. - - - -Tag Table: - -End Tag Table diff --git a/elpa/ess-20181109.703/readme.info b/elpa/ess-20181109.703/readme.info deleted file mode 100644 index 43ffa7b0..00000000 --- a/elpa/ess-20181109.703/readme.info +++ /dev/null @@ -1,614 +0,0 @@ -This is readme.info, produced by makeinfo version 6.5 from readme.texi. - - -File: readme.info, Node: General Information - -1 General Information: README -***************************** - -This is the README file for the distribution of ESS version 18.10.2 - - ESS is a GNU Emacs and XEmacs mode for interactive statistical -programming and data analysis. Languages supported: the S family (S, -S-PLUS and R), SAS, BUGS/JAGS and Stata. ESS grew out of the desire for -bug fixes and extensions to S-mode and SAS-mode as well as a consistent -union of their features in one package. - - Installation instructions are provided in sections for both Unix and -Windows; see below. - - The current development team is led by Martin Maechler since August -2004. Former project leader A.J. (Tony) Rossini -() did the initial port to XEmacs and has been -the primary coder. Martin Maechler () and -Kurt Hornik () have assisted with the S -family and XLispStat. Stephen Eglen () has worked -mostly on R support. Richard M. Heiberger () has -assisted with S/S-PLUS development for Windows. Richard and Rodney A. -Sparapani () have done much of the work improving SAS -batch and interactive support. Rodney has also extended ESS to support -BUGS/JAGS and has an interest in improving Stata support. - - We are grateful to the previous developers of S-mode (Doug Bates, Ed -Kademan, Frank Ritter, David M. Smith), SAS-mode (Tom Cook) and -Stata-mode (Thomas Lumley). - -* Menu: - -* License:: -* Installation:: -* Starting up:: -* Current Features:: -* New Features:: -* Reporting Bugs:: -* Mailing Lists:: -* Authors:: - - -File: readme.info, Node: License, Next: Installation, Prev: General Information, Up: General Information - -1.1 License -=========== - -The source and documentation of ESS 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. - - ESS 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 in -the file COPYING in the same directory as this file for more details. - - -File: readme.info, Node: Installation, Next: Starting up, Prev: License, Up: General Information - -1.2 Installation -================ - -ESS supports GNU Emacs versions 24.3 and newer. - - ESS is most likely to work with current/recent versions of the -following statistical packages: R/S-PLUS, SAS, Stata, OpenBUGS and JAGS. - - To build the PDF documentation, you will need a version of TeX Live -or texinfo that includes texi2dvi. - - There are two main methods used for installing ESS. You may install -from a third-party repository or from source code. Once you install it, -you must also activate or load ESS in each Emacs session, though -installation from a third-party repository likely takes care of that for -you. See *note Activating and Loading ESS:: for more details. - -* Menu: - -* Installing from a third-party repository:: -* Installing from source:: -* Activating and Loading ESS:: -* Check Installation:: - - -File: readme.info, Node: Installing from a third-party repository, Next: Installing from source - -1.3 Installing from a third-party repository -============================================ - -ESS is packaged by many third party repositories. Many GNU/Linux -distributions package it, usually with the name "emacs-ess" or similar. - - ESS is also available through Milkypostman’s Emacs Lisp Package -Archive (MELPA), a popular repository for Emacs packages. Instructions -on how to do so are found on MELPA's website (https://melpa.org/). -MELPA also hosts MELPA-stable with stable ESS builds. You may choose -between MELPA with the latest and greatest features (and bugs) or -MELPA-stable, which may lag a bit behind but should be more stable. - - After installing, users should make sure ESS is activated or loaded -in each Emacs session. See *note Activating and Loading ESS::. -Depending on install method, this may be taken care of automatically. - - -File: readme.info, Node: Installing from source, Next: Activating and Loading ESS, Prev: Installing from a third-party repository - -1.4 Installing from source -========================== - -Stable versions of ESS are available at the ESS web page -(https://ess.r-project.org) as a .tgz file or .zip file. ESS releases -are GPG-signed, you should check the signature by downloading the -accompanying '.sig' file and doing: - - gpg --verify ess-18.10.tgz.sig - - Alternatively, you may download the git repository. ESS is currently -hosted on Github: . 'git clone -https://github.com/emacs-ess/ESS.git' will download it to a new -directory 'ESS' in the current working directory. - - We will refer to the location of the ESS source files as -'/path/to/ESS/' hereafter. - - After installing, users should make sure they activate or load ESS in -each Emacs session, see *note Activating and Loading ESS:: - - Optionally, compile elisp files, build the documentation, and the -autoloads: - cd /path/to/ESS/ - make - Without this step the documentation, reference card, and autoloads -will not be available. Uncompiled ESS will also run slower. - - Optionally, you may make ESS available to all users of a machine by -installing it site-wide. To do so, run 'make install'. You might need -administrative privileges: - - make install - - The files are installed into '/usr/share/emacs' directory. For this -step to run correctly on macOS, you will need to adjust the 'PREFIX' -path in 'Makeconf'. The necessary code and instructions are commented -in that file. - - -File: readme.info, Node: Activating and Loading ESS, Next: Check Installation, Prev: Installing from source - -1.5 Activating and Loading ESS -============================== - -After installing ESS, you must activate or load it each Emacs session. -ESS can be autoloaded, and if you used a third-party repository (such as -your Linux distribution or MELPA) to install, you can likely skip this -section and proceed directly to *note Check Installation:: - - Otherwise, you may need to add the path to ESS to 'load-path' with: - - (add-to-list 'load-path "/path/to/ESS/lisp") - - You then need to decide whether to take advantage of deferred loading -(which will result in a faster Emacs startup time) or require ESS when -Emacs is loaded. To autoload ESS when needed (note that if installed -from source, you must have run 'make'): - - (load "ess-autoloads") - - To require ESS on startup, you can either put - - (require 'ess-site) - - or - - (require 'ess-r-mode) - - In your configuration file, depending on whether you want all ESS -features or only R related features. - - -File: readme.info, Node: Check Installation, Prev: Activating and Loading ESS - -1.6 Check Installation -====================== - -Restart Emacs and check that ESS was loaded from a correct location with -'M-x ess-version'. - - -File: readme.info, Node: Starting up, Next: Current Features, Prev: Installation, Up: General Information - -1.7 Starting an ESS process -=========================== - -To start an S session on Unix or on Windows when you use the Cygwin bash -shell, simply type 'M-x S RET'. - - To start an S session on Windows when you use the MSDOS prompt shell, -simply type 'M-x S+6-msdos RET'. - - -File: readme.info, Node: Current Features, Next: New Features, Prev: Starting up, Up: General Information - -1.8 Current Features -==================== - - * Languages Supported: - * S family (R, S, and S+ AKA S-PLUS) - * SAS - * BUGS/JAGS - * Stata - * Julia - * Editing source code (S family, SAS, BUGS/JAGS, Stata, Julia) - * Syntactic indentation and highlighting of source code - * Partial evaluation of code - * Loading and error-checking of code - * Source code revision maintenance - * Batch execution (SAS, BUGS/JAGS) - * Use of imenu to provide links to appropriate functions - * Interacting with the process (S family, SAS, Stata, Julia) - * Command-line editing - * Searchable Command history - * Command-line completion of S family object names and file - names - * Quick access to object lists and search lists - * Transcript recording - * Interface to the help system - * Transcript manipulation (S family, Stata) - * Recording and saving transcript files - * Manipulating and editing saved transcripts - * Re-evaluating commands from transcript files - * Interaction with Help Pages and other Documentation (R) - * Fast Navigation - * Sending Examples to running ESS process. - * Fast Transfer to Further Help Pages - * Help File Editing (R) - * Syntactic indentation and highlighting of source code. - * Sending Examples to running ESS process. - * Previewing - - -File: readme.info, Node: New Features, Next: Reporting Bugs, Prev: Current Features, Up: General Information - -1.9 New Features -================ - -Bug Fixes in 18.10.2: - * ESS[R] Fix namespace evaluation in non-installed packages. - Evaluation is directed into GlobalEnv as originally intended. - * 'Makefile' fixes, notably for 'make install' and including full - docs in the tarballs. - - Bug Fixes in 18.10-1: - * New functions 'ess-eval-line-visibly-and-step' ('C-c C-n' and - 'ess-eval-region-or-line-visibly-and-step' ('C-RET') which behave - as the old versions of 'ess-eval-line-and-step' and - 'ess-eval-region-or-line-and-step'. - - Changes and New Features in 18.10: - - * This is the last release to support Emacs older than 25.1. Going - forward, only GNU Emacs 25.1 and newer will be supported. Soon - after this release, support for older Emacs versions will be - dropped from the git master branch. Note that MELPA uses the git - master branch to produce ESS snapshots, so if you are using Emacs < - 25.1 from MELPA and are unable to upgrade, you should switch to - MELPA-stable. - - * ESS now displays the language dialect in the mode-line. So, for - example, R buffers will now show ESS[R] rather than ESS[S]. - - * The ESS manual has been updated and revised. - - * The ESS initialization process has been further streamlined. If - you update the autoloads (which installation from 'package-install' - does), you should not need to '(require 'ess-site)' at all, as - autoloads should automatically load ESS when it is needed (e.g. - the first time an R buffer is opened). In order to defer loading - your ESS config, you may want to do something like - '(with-require-after-load "ess" )' in your Emacs - init file. Users of the popular 'use-package' Emacs package can - now do '(use-package ess :defer t)' to take advantage of this - behavior. *Note (ess)Activating and Loading ESS:: for more - information on this feature. - - * ESS now respects Emacs conventions for keybindings. This means - that The 'C-c [letter]' bindings have been removed. This affects - 'C-c h', which was bound to 'ess-eval-line-and-step-invisibly' in - 'sas-mode-local-map'; 'C-c f', which was bound to - 'ess-insert-function-outline' in 'ess-add-MM-keys'; and 'C-c h', - which was bound to 'ess-handy-commands' in 'Rd-mode-map', - 'ess-noweb-minor-mode-map', and 'ess-help-mode-map' - - * Functions 'ess-eval-line-and-step' and - 'ess-eval-region-or-line-and-step' now behave consistently with - other evaluation function inside a package. - - * ESS[R]: 'ess-r-package-use-dir' now works with any mode. This sets - the working directory to the root of the current package including - for example C or C++ files within '/src'). - - * ESS[R]: Long + + prompts in the inferior no longer offset output. - - * ESS[R]: New option 'strip' for 'inferior-ess-replace-long+'. This - strips the entire + + sequence. - - * ESS modes now inherit from 'prog-mode'. In the next release, ESS - modes will use 'define-derived-mode' so that each mode will have - (for example) its own hooks and keymaps. - - * ESS[R]: Supports flymake in R buffers for Emacs 26 and newer. - Users need to install the 'lintr' package to use it. Customizable - options include 'ess-use-flymake', 'ess-r-flymake-linters', and - 'ess-r-flymake-lintr-cache'. - - * ESS[R]: Gained support for xref in Emacs 25+. *Note (emacs)Xref:: - - * ESS[R]: The startup screen is cleaner. It also displays the - startup directory with an explicit 'setwd()'. - - * ESS[R]: Changing the working directory is now always reflected in - the process buffer. - - * ESS[R]: 'Makevars' files open with 'makefile-mode'. - - * New variable 'ess-write-to-dribble'. This allows users to disable - the dribble ('*ESS*') buffer if they wish. - - * All of the '*-program-name' variables have been renamed to - '*-program'. Users who previously customized e.g. - 'inferior-ess-R-program-name' will need to update their - customization to 'inferior-ess-R-program'. These variables are - treated as risky variables. - - * 'ess-smart-S-assign' was renamed to 'ess-insert-assign'. It - provides similar functionality but for any keybinding, not just - '_'. For instance if you bind it to ';', repeated invokations - cycle through between assignment and inserting ';'. - - * 'C-c C-=' is now bound to 'ess-cycle-assign' by default. See the - documentation for details. New user customization option - 'ess-assign-list' controls which assignment operators are cycled. - - * ESS[R] In remote sessions, the ESSR package is now fetched from - GitHub. - - * Commands that send the region to the inferior process now deal with - rectangular regions. See the documentation of 'ess-eval-region' - for details. This only works on Emacs 25.1 and newer. - - * ESS[R]: Improvements to interacting with iESS in non-R files. - Interaction with inferior process in non-R files within packages - (for instance C or C++ files) has been improved. This is a work in - progress. - - * ESS[R]: Changing the working directory is now always reflected in - the process buffer. - - * ESS[JAGS]: *.jog and *.jmd files no longer automatically open in - JAGS mode. - - Many improvements to fontification: - - * Improved customization for faces. ESS now provides custom faces - for (nearly) all faces used and places face customization options - into their own group. Users can customize these options using 'M-x - customize-group RET ess-faces'. - - * Many new keywords were added to 'ess-R-keywords' and - 'ess-R-modifiers'. See the documentation for details. - - * ESS[R]: 'in' is now only fontified when inside a 'for' construct. - This avoids spurious fontification, especially in the output buffer - where 'in' is a commond English word. - - * ESS: Font-lock keywords are now generated lazily. That means you - can now add or remove keywords from variables like 'ess-R-keywords' - in your Emacs configuration file after loading ESS (i.e. in the - ':config' section for 'use-package' users). - - * ESS[R]: Fontification of roxygen '@param' keywords now supports - comma-separated parameters. - - * ESS[R]: Certain keywords are only fontified if followed by a - parenthesis. Function-like keywords such as 'if ()' or 'stop()' - are no longer fontified as keyword if not followed by an opening - parenthesis. The same holds for search path modifiers like - 'library()' or 'require()'. - - * ESS[R]: Fixed fontification toggling. Especially certain syntactic - elements such as '%op%' operators and backquoted function - definitions. - - * ESS[R]: 'ess-font-lock-toggle-keyword' can be called interactively. - This command asks with completion for a font-lock group to toggle. - This functionality is equivalent to the font-lock menu. - - Notable bug fixes: - - * 'prettify-symbols-mode' no longer breaks indentation. This is - accomplished by having the pretty symbols occupy the same number of - characters as their non-pretty cousins. You may customize the new - variable 'ess-r-prettify-symbols' to control this behavior. - - * ESS: Inferior process buffers are now always displayed on startup. - Additionally, they don't hang Emacs on failures. - - Obsolete libraries, functions, and variables: - - * The 'ess-r-args.el' library has been obsoleted and will be removed - in the next release. Use 'eldoc-mode' instead, which is on by - default. - - * Functions and options dealing with the smart assign key are - obsolete. The following functions have been made obsolete and will - be removed in the next release of ESS: 'ess-smart-S-assign', - 'ess-toggle-S-assign', 'ess-toggle-S-assign-key', - 'ess-disable-smart-S-assign'. - - The variable 'ess-smart-S-assign-key' is now deprecated and will be - removed in the next release. If you would like to continue using - '_' for insterting assign in future releases, please bind - 'ess-insert-assign' in 'ess-mode-map' the normal way. - - * ESS[S]: Variable 'ess-s-versions-list' is obsolete and ignored. - Use 'ess-s-versions' instead. You may pass arguments by starting - the inferior process with the universal argument. - - Changes and New Features in 17.11: - - * The ESS initialisation process has been streamlined. You can now - load the R and Stata modes independently from the rest of ESS. Just - put '(require 'ess-r-mode)' or '(require 'ess-stata-mode)' in your - init file. This is for experienced Emacs users as this requires - setting up autoloads for '.R' files manually. We will keep - maintaining 'ess-site' for easy loading of all ESS features. - - * Reloading and quitting the process is now more robust. If no - process is attached, ESS now switches automatically to one - (prompting you for selection if there are several running). - Reloading and quitting will now work during a debug session or when - R is prompting for input (for instance after a crash). Finally, - the window configuration is saved and restored after reloading to - prevent the buffer of the new process from capturing the cursor. - - * ESS[R]: New command 'ess-r-package-use-dir'. It sets the working - directory of the current process to the current package directory. - - * ESS[R] Lookup for references in inferior buffers has been improved. - New variable 'ess-r-package-source-roots' contains package - sub-directories which are searched recursively during the file - lookup point. Directories in 'ess-tracebug-search-path' are now - also searched recursively. - - * ESS[R] Namespaced evaluation is now automatically enabled only in - the 'R/' directory. This way ESS will not attempt to update - function definitions from a package if you are working from e.g. a - test file. - - Changes and New Features in 16.10: - - * ESS[R]: Syntax highlighting is now more consistent. Backquoted - names are not fontified as strings (since they really are - identifiers). Furthermore they are now correctly recognised when - they are function definitions or function calls. - * ESS[R]: Backquoted names and '%op%' operators are recognised as - sexp. This is useful for code navigation, e.g. with 'C-M-f' and - 'C-M-b'. - * ESS[R]: Integration of outline mode with roxygen examples fields. - You can use outline mode's code folding commands to fold the - examples field. This is especially nice to use with well - documented packages with long examples set. Set - 'ess-roxy-fold-examples' to non-nil to automatically fold the - examples field when you open a buffer. - * ESS[R]: New experimental feature: syntax highlighting in roxygen - examples fields. This is turned off by default. Set - 'ess-roxy-fontify-examples' to non-nil to try it out. - * ESS[R]: New package development command 'ess-r-devtools-ask' bound - to 'C-c C-w C-a'. It asks with completion for any devtools command - that takes 'pkg' as argument. - * ESS[R]: New command 'C-c C-e C-r' to reload the inferior process. - Currently only implemented for R. The R method runs - 'inferior-ess-r-reload-hook' on reloading. - * ESS[R]: 'ess-r-package-mode' is now activated in non-file buffers - as well. - - Bug fixes in 16.10: - * ESS[R]: Fix broken (un)flagging for debugging inside packages - * ESS[R]: Fixes (and improvements) in Package development - * ESS[R]: Completion no longer produces '...=' inside 'list( )'. - * ESS[R]: Better debugging and tracing in packages. - * ESS[R]: Better detection of symbols at point. - * ESS[R]: No more spurious warnings on deletion of temporary files. - * ESS[julia]: help and completion work (better) - * ESS[julia]: available via 'ess-remote' - - Changes and New Features in 16.04: - - * ESS[R]: 'developer' functionality has been refactored. The new - user interface consists of a single command - 'ess-r-set-evaluation-env' bound by default to 'C-c C-t C-s'. Once - an evaluation environment has been set with, all subsequent ESS - evaluation will source the code into that environment. By default, - for file within R packages the evaluation environment is set to the - package environment. Set 'ess-r-package-auto-set-evaluation-env' - to 'nil' to disable this. - * ESS[R]: New 'ess-r-package-mode' This development mode provides - features to make package development easier. Currently, most of - the commands are based on the 'devtools' packages and are - accessible with 'C-c C-w' prefix. See the documentation of - 'ess-r-package-mode' function for all available commands. With - 'C-u' prefix each command asks for extra arguments to the - underlying devtools function. This mode is automatically enabled - in all files within R packages and is indicated with '[pkg:NAME]' - in the mode-line. - * ESS[R]: Help lookup has been improved. It is now possible to get - help for namespaced objects such as pkg::foobar. Furthermore, ESS - recognizes more reliably when you change 'options('html_type')'. - * ESS[R]: New specialized breakpoints for debugging magrittr pipes - * ESS: ESS now implements a simple message passing interface to - communicate between ESS and inferior process. - - Bug fixes in 16.04: - * ESS[R]: Roxygen blocks with backtics are now correctly filled - * ESS[R]: Don't skip breakpoints in magrittr's 'debug_pipe' - * ESS[R]: Error highlighting now understands 'testthat' type errors - * ESS[Julia]: Added getwd and setwd generic commands - - -File: readme.info, Node: Reporting Bugs, Next: Mailing Lists, Prev: New Features, Up: General Information - -1.10 Reporting Bugs -=================== - -Please send bug reports, suggestions etc. to , -or post them on our github issue tracker -(https://github.com/emacs-ess/ESS/issues) - - The easiest way to do this is within Emacs by typing - - 'M-x ess-submit-bug-report' - - This also gives the maintainers valuable information about your -installation which may help us to identify or even fix the bug. - - If Emacs reports an error, backtraces can help us debug the problem. -Type "M-x set-variable RET debug-on-error RET t RET". Then run the -command that causes the error and you should see a *Backtrace* buffer -containing debug information; send us that buffer. - - Note that comments, suggestions, words of praise and large cash -donations are also more than welcome. - - -File: readme.info, Node: Mailing Lists, Next: Authors, Prev: Reporting Bugs, Up: General Information - -1.11 Mailing Lists -================== - -There is a mailing list for discussions and announcements relating to -ESS. Join the list by sending an e-mail with "subscribe ess-help" (or -"help") in the body to ; contributions -to the list may be mailed to . Rest assured, -this is a fairly low-volume mailing list. - - The purposes of the mailing list include - - * helping users of ESS to get along with it. - * discussing aspects of using ESS on Emacs and XEmacs. - * suggestions for improvements. - * announcements of new releases of ESS. - * posting small patches to ESS. - - -File: readme.info, Node: Authors, Prev: Mailing Lists, Up: General Information - -1.12 Authors -============ - - * A.J. Rossini (mailto:blindglobe@gmail.com) - * Richard M. Heiberger (mailto:rmh@temple.edu) - * Kurt Hornik (mailto:Kurt.Hornik@R-project.org) - * Martin Maechler (mailto:maechler@stat.math.ethz.ch) - * Rodney A. Sparapani (mailto:rsparapa@mcw.edu) - * Stephen Eglen (mailto:stephen@gnu.org) - * Sebastian P. Luque (mailto:spluque@gmail.com) - * Henning Redestig (mailto:henning.red@googlemail.com) - * Vitalie Spinu (mailto:spinuvit@gmail.com) - * Lionel Henry (mailto:lionel.hry@gmail.com) - * J. Alexander Branham (mailto:alex.branham@gmail.com) - - - -Tag Table: -Node: General Information73 -Node: License1711 -Node: Installation2381 -Node: Installing from a third-party repository3298 -Node: Installing from source4248 -Node: Activating and Loading ESS5843 -Node: Check Installation6920 -Node: Starting up7143 -Node: Current Features7526 -Node: New Features9076 -Node: Reporting Bugs22834 -Node: Mailing Lists23732 -Node: Authors24468 - -End Tag Table diff --git a/elpa/ess-20181109.703/requires.info b/elpa/ess-20181109.703/requires.info deleted file mode 100644 index bb658f4b..00000000 --- a/elpa/ess-20181109.703/requires.info +++ /dev/null @@ -1,15 +0,0 @@ -This is requires.info, produced by makeinfo version 6.5 from -requires.texi. - -ESS supports GNU Emacs versions 24.3 and newer. - - ESS is most likely to work with current/recent versions of the -following statistical packages: R/S-PLUS, SAS, Stata, OpenBUGS and JAGS. - - To build the PDF documentation, you will need a version of TeX Live -or texinfo that includes texi2dvi. - - -Tag Table: - -End Tag Table diff --git a/elpa/ess-20190121.1430/.dir-locals.el b/elpa/ess-20190121.1430/.dir-locals.el new file mode 100644 index 00000000..0cefb6e1 --- /dev/null +++ b/elpa/ess-20190121.1430/.dir-locals.el @@ -0,0 +1,11 @@ +;;; Directory Local Variables +;;; For more information see (info "(emacs) Directory Variables") + +((nil + (bug-reference-bug-regexp . "#\\(?2:[0-9]+\\)") + (bug-reference-url-format . "https://github.com/emacs-ess/ess/issues/%s") + (sentence-end-double-space)) + (emacs-lisp-mode + (outline-regexp . "\f\\|\\`;\\|;;\\*\\|;;;\\*\\|(def[cvu]\\|(setq\\|;;;;\\*") + (indent-tabs-mode)) + (ess-r-mode . ((ess-style . RRR)))) diff --git a/elpa/ess-20190121.1430/allnews.info b/elpa/ess-20190121.1430/allnews.info new file mode 100644 index 00000000..7116607a --- /dev/null +++ b/elpa/ess-20190121.1430/allnews.info @@ -0,0 +1,1895 @@ +This is allnews.info, produced by makeinfo version 6.5 from +allnews.texi. + +Changes and New Features in 19.04 (unreleased): + + * Implement a more reliable check for the process busy state. + Background actions such as completion and directory synchronization + should not block the process and should not cause printing of the + extraneous output to the interpreter. + + * Activate 'goto-address-mode' for url and emal highlighting in + inferior buffers. + + * 'smart-underscore' and 'ess-smart-S-assign-key' have been removed. + Users who liked the previous behavior (i.e. underscore inserting + "<-") should bind 'ess-insert-assign' to the underscore in their + Emacs initialization file. For example, '(define-key + ess-r-mode-map "_" #'ess-insert-assign)' and '(define-key + inferior-ess-r-mode-map "_" #'ess-insert-assign)' will activate it + in all ESS R buffers. + + * ESS major modes are now defined using 'define-derived-mode'. This + makes ESS major modes respect modern conventions such as having + -mode-hook and -mode-map. Users are encouraged + to place customizations under the appropriate mode. + + * New option ess-auto-width controls setting the width option on + window changes. Users can change it to 'frame, 'window, or an + integer. See the docstring for details. 'ess-auto-width-visible' + controls visibility. + + * ESS now respects 'display-buffer-alist'. Users can now use + 'display-buffer-alist' to manage how and where windows appear. See + *Note (ess)Controlling buffer display:: for more information and + examples. + + * 'ess-roxy-mode' can now be enabled in non-R buffers. This is + primarily intended to support roxygen documentation for cpp + buffers. Preview functionality is not supported outside R buffers. + + * ESS[R]: DESCRIPTION files now open in 'conf-colon-mode'. + + * 'ess-style' now has effects when set as a file or directory local + variable. + + * 'ess-default-style' is now obsolete, use 'ess-style' instead. + + * Options for 'ess-gen-proc-buffer-name-function' have been renamed. + ess-gen-proc-buffer-name:projectile-or-simple was renamed to + ess-gen-proc-buffer-name:project-or-simple and + ess-gen-proc-buffer-name:projectile-or-directory was renamed to + ess-gen-proc-buffer-name:project-or-directory. As the name + suggests, these now rely on project.el (included with Emacs) rather + than projectile.el, which is a third-party package. + + * ESS[R] help pages now provide links to other help topics. This is + similar with what you would see with, for example + 'options(help_type = ``html'')' but works with the plain-text + version as well. This only works with 'options(useFancyQuotes = + TRUE)' (the default). + + * 'ess-rdired' buffers now derive from tabulated-list-mode. They + should look better and be a bit faster overall. The size column + now displays object sizes in bytes. + + * ESS removed support for many unused languages. This includes old + versions of S+, ARC, OMG, VST, and XLS. + + The following have been made obsolete or removed, see their +documentation for more detail: + + * Libraries for literate data analysis are obsolete and not loaded by + default. This includes 'ess-noweb', 'ess-swv', and related + functionality like 'Rnw-mode'. Users are encouraged to switch to + one of several other packages that deal with these modes. For + example, polymode , + , or markdown-mode with edit-indirect + . + + * User options for controlling display of buffers. This includes + 'ess-show-buffer-action', 'inferior-ess-same-window', + 'inferior-ess-own-frame', and 'inferior-ess-frame-alist'. See + above about ESS respecting 'display-buffer-alist'. + + * 'inferior-ess-*-start-file' variables. All modes except Stata did + not respect customization of this variable. In order to load a + file on startup, you should put a function on + 'ess-*-post-run-hook'. + + Bug Fixes in 18.10.3: + * More 'Makefile' fixes, notably installing '*.el's. + + Bug Fixes in 18.10.2: + * ESS[R] Fix namespace evaluation in non-installed packages. + Evaluation is directed into GlobalEnv as originally intended. + * 'Makefile' fixes, notably for 'make install' and including full + docs in the tarballs. + + Bug Fixes in 18.10-1: + * New functions 'ess-eval-line-visibly-and-step' ('C-c C-n' and + 'ess-eval-region-or-line-visibly-and-step' ('C-RET') which behave + as the old versions of 'ess-eval-line-and-step' and + 'ess-eval-region-or-line-and-step'. + + Changes and New Features in 18.10: + + * This is the last release to support Emacs older than 25.1. Going + forward, only GNU Emacs 25.1 and newer will be supported. Soon + after this release, support for older Emacs versions will be + dropped from the git master branch. Note that MELPA uses the git + master branch to produce ESS snapshots, so if you are using Emacs < + 25.1 from MELPA and are unable to upgrade, you should switch to + MELPA-stable. + + * ESS now displays the language dialect in the mode-line. So, for + example, R buffers will now show ESS[R] rather than ESS[S]. + + * The ESS manual has been updated and revised. + + * The ESS initialization process has been further streamlined. If + you update the autoloads (which installation from 'package-install' + does), you should not need to '(require 'ess-site)' at all, as + autoloads should automatically load ESS when it is needed (e.g. + the first time an R buffer is opened). In order to defer loading + your ESS config, you may want to do something like + '(with-require-after-load "ess" )' in your Emacs + init file. Users of the popular 'use-package' Emacs package can + now do '(use-package ess :defer t)' to take advantage of this + behavior. *Note (ess)Activating and Loading ESS:: for more + information on this feature. + + * ESS now respects Emacs conventions for keybindings. This means + that The 'C-c [letter]' bindings have been removed. This affects + 'C-c h', which was bound to 'ess-eval-line-and-step-invisibly' in + 'sas-mode-local-map'; 'C-c f', which was bound to + 'ess-insert-function-outline' in 'ess-add-MM-keys'; and 'C-c h', + which was bound to 'ess-handy-commands' in 'Rd-mode-map', + 'ess-noweb-minor-mode-map', and 'ess-help-mode-map' + + * Functions 'ess-eval-line-and-step' and + 'ess-eval-region-or-line-and-step' now behave consistently with + other evaluation function inside a package. + + * ESS[R]: 'ess-r-package-use-dir' now works with any mode. This sets + the working directory to the root of the current package including + for example C or C++ files within '/src'). + + * ESS[R]: Long + + prompts in the inferior no longer offset output. + + * ESS[R]: New option 'strip' for 'inferior-ess-replace-long+'. This + strips the entire + + sequence. + + * ESS modes now inherit from 'prog-mode'. In the next release, ESS + modes will use 'define-derived-mode' so that each mode will have + (for example) its own hooks and keymaps. + + * ESS[R]: Supports flymake in R buffers for Emacs 26 and newer. + Users need to install the 'lintr' package to use it. Customizable + options include 'ess-use-flymake', 'ess-r-flymake-linters', and + 'ess-r-flymake-lintr-cache'. + + * ESS[R]: Gained support for xref in Emacs 25+. *Note (emacs)Xref:: + + * ESS[R]: The startup screen is cleaner. It also displays the + startup directory with an explicit 'setwd()'. + + * ESS[R]: Changing the working directory is now always reflected in + the process buffer. + + * ESS[R]: 'Makevars' files open with 'makefile-mode'. + + * New variable 'ess-write-to-dribble'. This allows users to disable + the dribble ('*ESS*') buffer if they wish. + + * All of the '*-program-name' variables have been renamed to + '*-program'. Users who previously customized e.g. + 'inferior-ess-R-program-name' will need to update their + customization to 'inferior-ess-R-program'. These variables are + treated as risky variables. + + * 'ess-smart-S-assign' was renamed to 'ess-insert-assign'. It + provides similar functionality but for any keybinding, not just + '_'. For instance if you bind it to ';', repeated invokations + cycle through between assignment and inserting ';'. + + * 'C-c C-=' is now bound to 'ess-cycle-assign' by default. See the + documentation for details. New user customization option + 'ess-assign-list' controls which assignment operators are cycled. + + * ESS[R] In remote sessions, the ESSR package is now fetched from + GitHub. + + * Commands that send the region to the inferior process now deal with + rectangular regions. See the documentation of 'ess-eval-region' + for details. This only works on Emacs 25.1 and newer. + + * ESS[R]: Improvements to interacting with iESS in non-R files. + Interaction with inferior process in non-R files within packages + (for instance C or C++ files) has been improved. This is a work in + progress. + + * ESS[R]: Changing the working directory is now always reflected in + the process buffer. + + * ESS[JAGS]: *.jog and *.jmd files no longer automatically open in + JAGS mode. + + Many improvements to fontification: + + * Improved customization for faces. ESS now provides custom faces + for (nearly) all faces used and places face customization options + into their own group. Users can customize these options using 'M-x + customize-group RET ess-faces'. + + * Many new keywords were added to 'ess-R-keywords' and + 'ess-R-modifiers'. See the documentation for details. + + * ESS[R]: 'in' is now only fontified when inside a 'for' construct. + This avoids spurious fontification, especially in the output buffer + where 'in' is a commond English word. + + * ESS: Font-lock keywords are now generated lazily. That means you + can now add or remove keywords from variables like 'ess-R-keywords' + in your Emacs configuration file after loading ESS (i.e. in the + ':config' section for 'use-package' users). + + * ESS[R]: Fontification of roxygen '@param' keywords now supports + comma-separated parameters. + + * ESS[R]: Certain keywords are only fontified if followed by a + parenthesis. Function-like keywords such as 'if ()' or 'stop()' + are no longer fontified as keyword if not followed by an opening + parenthesis. The same holds for search path modifiers like + 'library()' or 'require()'. + + * ESS[R]: Fixed fontification toggling. Especially certain syntactic + elements such as '%op%' operators and backquoted function + definitions. + + * ESS[R]: 'ess-font-lock-toggle-keyword' can be called interactively. + This command asks with completion for a font-lock group to toggle. + This functionality is equivalent to the font-lock menu. + + Notable bug fixes: + + * 'prettify-symbols-mode' no longer breaks indentation. This is + accomplished by having the pretty symbols occupy the same number of + characters as their non-pretty cousins. You may customize the new + variable 'ess-r-prettify-symbols' to control this behavior. + + * ESS: Inferior process buffers are now always displayed on startup. + Additionally, they don't hang Emacs on failures. + + Obsolete libraries, functions, and variables: + + * The 'ess-r-args.el' library has been obsoleted and will be removed + in the next release. Use 'eldoc-mode' instead, which is on by + default. + + * Functions and options dealing with the smart assign key are + obsolete. The following functions have been made obsolete and will + be removed in the next release of ESS: 'ess-smart-S-assign', + 'ess-toggle-S-assign', 'ess-toggle-S-assign-key', + 'ess-disable-smart-S-assign'. + + The variable 'ess-smart-S-assign-key' is now deprecated and will be + removed in the next release. If you would like to continue using + '_' for insterting assign in future releases, please bind + 'ess-insert-assign' in 'ess-mode-map' the normal way. + + * ESS[S]: Variable 'ess-s-versions-list' is obsolete and ignored. + Use 'ess-s-versions' instead. You may pass arguments by starting + the inferior process with the universal argument. + + Changes and New Features in 17.11: + + * The ESS initialisation process has been streamlined. You can now + load the R and Stata modes independently from the rest of ESS. Just + put '(require 'ess-r-mode)' or '(require 'ess-stata-mode)' in your + init file. This is for experienced Emacs users as this requires + setting up autoloads for '.R' files manually. We will keep + maintaining 'ess-site' for easy loading of all ESS features. + + * Reloading and quitting the process is now more robust. If no + process is attached, ESS now switches automatically to one + (prompting you for selection if there are several running). + Reloading and quitting will now work during a debug session or when + R is prompting for input (for instance after a crash). Finally, + the window configuration is saved and restored after reloading to + prevent the buffer of the new process from capturing the cursor. + + * ESS[R]: New command 'ess-r-package-use-dir'. It sets the working + directory of the current process to the current package directory. + + * ESS[R] Lookup for references in inferior buffers has been improved. + New variable 'ess-r-package-source-roots' contains package + sub-directories which are searched recursively during the file + lookup point. Directories in 'ess-tracebug-search-path' are now + also searched recursively. + + * ESS[R] Namespaced evaluation is now automatically enabled only in + the 'R/' directory. This way ESS will not attempt to update + function definitions from a package if you are working from e.g. a + test file. + + Changes and New Features in 16.10: + + * ESS[R]: Syntax highlighting is now more consistent. Backquoted + names are not fontified as strings (since they really are + identifiers). Furthermore they are now correctly recognised when + they are function definitions or function calls. + * ESS[R]: Backquoted names and '%op%' operators are recognised as + sexp. This is useful for code navigation, e.g. with 'C-M-f' and + 'C-M-b'. + * ESS[R]: Integration of outline mode with roxygen examples fields. + You can use outline mode's code folding commands to fold the + examples field. This is especially nice to use with well + documented packages with long examples set. Set + 'ess-roxy-fold-examples' to non-nil to automatically fold the + examples field when you open a buffer. + * ESS[R]: New experimental feature: syntax highlighting in roxygen + examples fields. This is turned off by default. Set + 'ess-roxy-fontify-examples' to non-nil to try it out. + * ESS[R]: New package development command 'ess-r-devtools-ask' bound + to 'C-c C-w C-a'. It asks with completion for any devtools command + that takes 'pkg' as argument. + * ESS[R]: New command 'C-c C-e C-r' to reload the inferior process. + Currently only implemented for R. The R method runs + 'inferior-ess-r-reload-hook' on reloading. + * ESS[R]: 'ess-r-package-mode' is now activated in non-file buffers + as well. + + Bug fixes in 16.10: + * ESS[R]: Fix broken (un)flagging for debugging inside packages + * ESS[R]: Fixes (and improvements) in Package development + * ESS[R]: Completion no longer produces '...=' inside 'list( )'. + * ESS[R]: Better debugging and tracing in packages. + * ESS[R]: Better detection of symbols at point. + * ESS[R]: No more spurious warnings on deletion of temporary files. + * ESS[julia]: help and completion work (better) + * ESS[julia]: available via 'ess-remote' + + Changes and New Features in 16.04: + + * ESS[R]: 'developer' functionality has been refactored. The new + user interface consists of a single command + 'ess-r-set-evaluation-env' bound by default to 'C-c C-t C-s'. Once + an evaluation environment has been set with, all subsequent ESS + evaluation will source the code into that environment. By default, + for file within R packages the evaluation environment is set to the + package environment. Set 'ess-r-package-auto-set-evaluation-env' + to 'nil' to disable this. + * ESS[R]: New 'ess-r-package-mode' This development mode provides + features to make package development easier. Currently, most of + the commands are based on the 'devtools' packages and are + accessible with 'C-c C-w' prefix. See the documentation of + 'ess-r-package-mode' function for all available commands. With + 'C-u' prefix each command asks for extra arguments to the + underlying devtools function. This mode is automatically enabled + in all files within R packages and is indicated with '[pkg:NAME]' + in the mode-line. + * ESS[R]: Help lookup has been improved. It is now possible to get + help for namespaced objects such as pkg::foobar. Furthermore, ESS + recognizes more reliably when you change 'options('html_type')'. + * ESS[R]: New specialized breakpoints for debugging magrittr pipes + * ESS: ESS now implements a simple message passing interface to + communicate between ESS and inferior process. + + Bug fixes in 16.04: + * ESS[R]: Roxygen blocks with backtics are now correctly filled + * ESS[R]: Don't skip breakpoints in magrittr's 'debug_pipe' + * ESS[R]: Error highlighting now understands 'testthat' type errors + * ESS[Julia]: Added getwd and setwd generic commands + + Changes and New Features in 15.09: + + * ESS[R]: The indentation logic has been refactored. It should be + faster, more consistent and more flexible. There are three types + of indentation settings, those starting with 'ess-offset-' give the + actual offsets, those starting with 'ess-indent-' are control + (commonly Boolean) variables, and those starting with 'ess-align-' + are vertical alignment overrides which inhibit default offsets in + specific situations. See 'ess-style-alist' for detailed + description of the new indentation system and provided default + indentation styles. + + * ESS[R]: Deprecation of old indentation settings. As a consequence + of the indentation re-factoring 'ess-brace-imaginary-offset', + 'ess-expression-offset' and all delimiter-specific offsets are + deprecated. The settings for indentation of continued statements + have been replaced by 'ess-offset-continuations'. It can be set to + either 'cascade' or 'straight' (the default). + 'ess-arg-function-offset' has been replaced by + 'ess-indent-from-lhs' and has been generalised to assignments. + This setting now works with both statement blocks and expressions + and only takes effect for offsets set to 'prev-call' and + 'open-delim' in order to produce a consistent indentation. + + * ESS: A test framework has been set up. + + * ESS[R]: A new RStudio style is provided to mimic as closely as + possible R files indented via RStudio. To reproduce the setup of + some of the RStudio users, the RStudio- style with + 'ess-offset-arguments' set to 'prev-line' is also provided. In + addition, the new RRR+ style is equivalent to RRR except it indents + blocks in function calls relatively to the opening delimiter. This + style does not try to save horizontal space and produces more + indentation. + + * ESS[R]: Roxygen fields will now be indented on paragraph refilling + in order to make the documentation more readable. You can also + refill commented lines in the 'examples' field without squashing + the surrounding code in the comments. + + * ESS[R]: ESS can now format your code! This is controlled through + the settings 'ess-fill-calls' and 'ess-fill-continuations'. When + activated, '(fill-paragraph)' formats your calls and your + formulas/continuations while making sure they don't go past + 'fill-column'. Repeated refills cycle through different styles + (see the docstrings for more details). By default, the refilled + region blinks. Set 'ess-blink-filling' to nil to prevent this. + + * ESS[R]: Fix occasional missing error location fontification in + inferior buffers. + + * ESS[R]: ess-developer now correctly assigned the environment of new + functions to the package namespace. + + * ESS[Julia]: ?[topic] now works in the *julia* buffer. Note that + support for editing Julia code now depends on 'julia-mode.el' from + the Julia project. If you install ESS from the official + tarball/zip file, 'julia-mode.el' is already included. Otherwise, + if you install ESS by running 'make', then the latest version of + 'julia-mode.el' is downloaded (and so you need an active internet + connection to install) during the installation process. + Alternatively, if you run ESS without running 'make', then ensure + that you have the 'julia-mode.el', which you can get easily from + MELPA for example. + + * iESS: For naming inferior processes, ESS can use 'projectile''s + project root and it does so when + 'ess-gen-proc-buffer-name-function' is set to + 'ess-gen-proc-buffer-name:projectile-or-simple' as by default, or + to another value beginning with + 'ess-gen-proc-buffer-name:projectile-*'. + + Changes and New Features in 15.03-1: + * ESS[R]: An indentation bug has been fixed (github issue 163) + * ESS[R]: On windows, if 'ess-prefer-higher-bit' is non-nil (the + default), then R-newest will try to run a 64 bit (rather than 32 + bit) version of R. + + Changes and New Features in 15.03: + * ESS[R]: Full native support for 'company-mode'. + * ESS[R]: More efficient caching algorithm for R completion. + * ESS: New offset variable 'ess-close-paren-offset' to control the + indentation of the closing parentheses. + * ESS[R]: Ask for CRAN mirror only once per emacs session. + * ESS[R]: Detect 'library' and 'require' calls for better completion + caching. + * Buffer display is now customizable ('ess-show-buffer-action'). + * Use 'y-or-n-p' instead of 'yes-or-no-p' throughout. + * More support for ODS in ess-sas-graph-view. + * Makefiles are now both UNIX and GNU friendly. + * ESS[R]: Simplify directory lookup in 'ess-developer' (#137). + * Make closed paren indentation consistent + + Bug Fixes in 15.03: + * Fix open brace indentation bug (#27 in ess/R-ESS-bugs.R). + * Fix git version lookup + * Don't check directory modtime in R dialect. + * Declare all ess macros for edebug. + * Add 'ess-smart-comma' to eldoc message functions. + * Inform users when retrieving RDA aliases. + * Line ending in '~' is also a continuation line. + * Filing roxy paragraphs works as expected now. + * In 'ess-developer-add-package', remove incorrect 'wait' argument + from 'ess-get-words-from-vector' call. + * Fix #96, #117, #120, #125, #134, #137. + * Fix ess-quit-r. Call base::q() even if it is masked. + * Fix 'ess-show-buffer' to always display the buffer in another + window. + * Makefile: Fix cd bug for directories with spaces in them + * 'ess-kill-buffer-and-go' modified to not restart R + + Changes / Selected Bug Fixes in 14.09: + * ESS[Julia]: Executable is changed to 'julia'. + * ESS[Julia]: Completion and help system was adjusted to Julia + v.0.3.0. Julia v.0.2.x is no more supported. + * ESS[R]: Running R with 'gdb' debugger now works as expected + * iESS: Inferior ESS buffers are now derived from 'comint-mode' + * ESS[R]: 'ess-execute-screen-options' uses correct screen width in + terminal sessions + * ESS: 'ess-build-tags-for-directory' works when no TAGS file name + was provided + * ESS: 'ess-offset-statement-continued' is now respected everywhere + except inside of the 'if' test condition. + * ESS: New variable 'ess-offset-statement-first-continued' for + indentation of the first line in multiline statements. + * ESSR: Starting ',' in multiline statements indentation is now + ignored to achieve a more pleasant alignment. + * ESSR: Improved behavior of 'RET' in roxygen blocks. + * ESS[R]: command cleaning with 'C-u C-u C-y' was broken with lines + containing " + " + * ESS[R]: fixed "empty watch window bug" + * ESS[R]: don't ask for help location on ac-quick-help (request of + github #81) + * ESS[R]: "importClassesFrom" and "importMethodsFrom" were added to + the list of two-parameter roxygen commands + * ESS[R]: fix vignetes display and hyperlinks (were broken in + 13.09-1) + * ESS[Julia]: recognize function names ending with ! + * ESS[Julia]: fix indentation of "for" comprehension syntax within + brackets. + + Changes / Selected Bug Fixes in 13.09-1: + * ess-remote and TRAMP: R support code is now downloaded in binary + form instead of being injected from local machine. The R code is + stored in '~/.config/ESSR/' directory on the remote machine + * TRAMP: PAGER environment variable is now correctly set to + 'inferior-ess-pager' + * retrieval of help topics on remote machines is fixed + * org-babel: source references of R code executed from org files + correctly point to source references in original org files (version + 8.2.1 or higher of org-mode is required for this feature) + * 'ess-execute' is now bound to 'C-c C-e C-e' in 'ess-extra-map'. + * completion works again in 'ess-execute' + * ESS[R]: 'head' and 'tail' methods were replaced by 'htsummary' in + 'ess-R-describe-object-at-point-commands' + * ESS[roxygen]: evaluation commands now work in roxygen blocks. + Leading comments are automatically removed before the evaluation + * ESS[transcript]: 'Clean Region' now works with multiline + statements; 'ess-transcript-clean-region' etc. correctly treat + multiline statements, i.e., no longer forgets the lines typically + preceded by '+' + * ESS[SAS]: Three features/fixes with special thanks to Matthew + Fidler https://github.com/emacs-ess/ESS/pulls/mlf176f2 + (https://github.com/emacs-ess/ESS/pulls/mlf176f2). Turn on SAS log + mode when appropriate. Indent comments and CARDS statement more + appropriately. + * ESS[SAS]: 'ess-sas-edit-keys-toggle' default returns to 'nil' + * ESS[R]: support for 'prettify-symbols-mode': contribution from + Rudiger Sonderfeld + * ESS[SWV]: knitr now evaluates in the current frame + * ESS[developer]: ess-developer doesn't kill open DESCRIPTION files + anymore + * ESS[roxygen]: 'ess-roxy-preview-HTML' is now on 'C-c C-o C-w' and + 'ess-roxy-preview-text' is now on 'C-c C-o C-t' + * ESS: installation with 'make install' was simplified and should + work out of the box on most *nix systems + * ESS installation instructions simplified + * fixed font-lock bug introduced in 13.09 that was causing very slow + process output + + Changes/New Features in 13.09: + * font-lock in process buffers doesn't "spill" over prompts. Missing + closing string delimiters should not cause wrong fontification of + the following command input. + * ESS[julia]: full features M-TAB completion and auto-complete + support, which now works for modules, structures and data types. + * ESS[julia]: a much better eldoc showing arguments of methods and + data type constructors + * ESS-developer: + - ESS-developer work-flow pattern has been streamlined: + ESS-developer is now automatically activated on per-file basis + if the file is part of a developed package + 'ess-developer-packages'. The old behavior (activation on + per-process basis) is still available on 'M-x ess-developer' + in a process buffer. + - integration with 'devtools' package. New command + 'ess-developer-load-package' calls 'load_all' on the package + containing current file. 'ess-developer-add-package' now + offers IDO menu completions with available loading methods, + currently 'library', and 'load_all'. Loading command can be + customized with 'ess-developer-load-on-add-commands'. + * 'TAB' now indents region if region is active (a contribution of + Matthew Fidler in pull #41) + * 'M-x ess-version' now reports full loading path and recognizes git + and ELPA versions. + * warning and error keyword are now highlighted with + 'font-lock-warning-face' as they should be, (for quite some time + these keywords have been hijacked by compilation mode + fontification). + * eldoc: Eldoc now recognizes multiple processes. If current process + is busy, or current buffer is not associated with a process, eldoc + picks its completions from the first available free process. + * org-babel: evaluation is now org-friendly + * help: new help buffers now try to reuse ess-help buffers. This + behavior is controlled by 'ess-help-reuse-window' custom variable. + * help: ?foo pops IDO menu on multiple help files (so far it worked + only for 'C-c C-v') + * remote evaluation is considerably faster now on slow connections + * ESS[R] tracebug R source references regular expressions are + (mostly) language agnostic. + * 'ess-function-call-face' inherits from + 'font-lock-function-name-face' rather than + 'font-lock-builtin-face'. + * 'ess-inject-source' now accepts 'function-and-buffer' option. + * Documentation: The "New Features" section (and 'NEWS') now + represent recent changes: within the last year or so. All changes + can be found in the new news.html (news.html) (or 'NEWS' and + 'ONEWS'). + * ESS[R] 'ess-rep-regexp' should no longer inf.loop (rarely!), and + hence 'M-x ess-fix-miscellaneous' should neither. + + Changes/New Features in 13.05: + * ESS[gretl]: Support for 'gretl' (both editing and sub-process + interaction). A contribution of Ahmadou Dicko. + * ESS: process output display is 4-10 times faster due to new caching + and only occasional emacs re-display (for the moment this + functionality is available only when 'ess-tracebug' is active). + * ESS: 'C-c `' is now bound to 'ess-show-traceback' and 'C-c ~' is + bound to 'ess-show-call-stack'. + * ESS[R]: ESS stores function in 'ESSR' environment to avoid kludging + users' global environment and accidental deletion. + * ESS[R]: new variable 'ess-swv-processing-command' to control + weaving and tangling. + * ESS[R]: 'ess-default-style' has been changed (from 'DEFAULT') to + 'RRR'. Use something like '(setq ess-default-style 'DEFAULT)' or + '(setq ess-indent-level 2)' in your '~/.emacs' equivalent _before_ + loading ESS, if you do not like this new "incompatible" default + style. + * ESS[julia]: ESS stores its functions in 'ESS' module. + * ESS[julia]: Eldoc is now supported in julia modes + * ESS[julia]: Adjusted error reference detection and interactive help + to julia internal changes + * ESS[R]: 'ess-use-tracebug''s default has been changed to 't'. Set + it to nil if you want to keep the previous behavior. + * ESS[tracebug]: Electric debug keys have been removed [breaking + change] The functionality was replaced with 'ess-debug-minor-mode' + and 'ess-debug-minor-mode-map'. + * ESS[tracebug]: 'ess-tracebug-map' is an alias to 'ess-dev-map' 'C-c + C-t'. + * ESS[tracebug]: 'ess-bp-toggle-state' ('C-c C-t o') can now be used + during the debug session to toggle breakpoints on the fly + (suggestion by Ross Boylan). + * ESS[tracebug]: 'ess-debug-flag-for-debugging' and + 'ess-debug-unflag-for-debugging' work correctly from the debugging + contexts. These commands also recognize non-exported functions for + the packages listed in 'ess-developer-packages' ('C-c C-t C-a'). + + * ESS[R]: Eldoc (activated by 'ess-use-eldoc') has become more + sophisticated, and hence also more intruding in the interface + between the Statistics softare, e.g., R, and the user. + + Note that you can turn off ElDoc, by placing '(setq ess-use-eldoc + nil)' in your '~/.emacs' file, prior to loading ESS, + + * ESS[SAS]: long over-looked 'SAS-mode-hook' appears! + * ESS[SAS]: 'ess-sas-edit-keys-toggle' now defaults to 't' since + 'sas-indent-line' is still broken, i.e. 'TAB' is now bound to + 'ess-sas-tab-to-tab-stop' by default + + Changes/Bug Fixes in 12.09-2: + * ESS: new 'ess-switch-to-end-of-proc-buffer' variable that controls + whether 'C-c C-z' switches to the end of process buffer. The + default is 't'. You can use prefix argument to 'C-c C-z' to toggle + this variable. + * ESS: fix in 'ess-eval-linewise' that was causing emacs to hang + during R debugging with 'ess-eval-visibly' equal to 't'. + * ESS: fix in 'ess-eval-linewise' that was causing emacs to recenter + the prompt in visible window + * ESS[tracebug]: A better handling of "Selection" prompts and debug + related singlekey commands. + * ESS: fix a bug in 'ess-switch-process' that was causing '*new*' + selection to fail. + * ESS[R]: Solve missing 'ess-local-process-name' bug in R-dired. + * ESS[SWV]: 'ess-swv-PDF' doesn't ask for a command to run if there + is only one command in 'ess-swv-pdflatex-commands'. + * ESS[SWV]: 'ess-swv-weave' gained an universal argument to allow for + an interactive choice between available weavers (sweave, knitr). + * ESS: 'ess-eval-*-and-step' functions go to next empty line at eob, + instead of staying at the last line. + + Changes/New Features in 12.09-1: + * ESS _Breaking Changes in Keys_: + + - New keymaps: 'ess-doc-map' bound to 'C-c C-d'; 'ess-extra-map' + bound to 'C-c C-e'; 'ess-dump-object-into-edit-buffer' was + moved on 'C-c C-e C-d' + - roxygen map was moved on 'C-c C-o' and 'ess-roxy-update-entry' + now resides on 'C-c C-o C-o' + - ess-handy-commands is not bound anymore + - 'ess-dev-map' (including 'ess-tracebug' and 'ess-developer') + moved on 'C-c C-t' + - 'C-c C-y' is deprecated in favor of 'C-c C-z C-z' + * ESS[R] new command 'ess-describe-object-at-point' bound to 'C-c C-d + C-e' (repeat 'C-e' or 'e' to cycle). It was inspired by Erik + Iverson's 'ess-R-object-tooltip'. Customize + 'ess-describe-at-point-method' to use tooltip instead of an + electric buffer. + * ESS: New command 'ess-build-tags-for-directory' bound to 'C-c C-e + C-t' for building dialect specific tag tables. After building tags + use 'M-.' to navigate to function and objects definitions. By + default 'C-c C-e C-t' builds tags based on imenu regular + expressions and also include other common languages '.c, .o, .cpp' + etc. But it relies on external 'find' and 'etags' commands. If + 'ess-build-tags-command' is defined (for 'R'), the inferior process + is asked to build tags instead. + * ESS: 'ess-switch-process' offers '*new*' alternative to start a new + process instead of switching to one of the currently running + processes. + * ESS: Switching between processes ('C-c C-s') uses buffer names + instead of the internal process names. Use 'M-x rename-buffer' + command to conveniently rename your process buffers. + * ESS: Process buffers can be automatically named on process creation + according to user specified scheme. Default schemes are *proc*, + *proc:dir* and *proc:abbr-long-dir* where 'proc' stands for the + internal process name and 'dir' stands for the directory where the + process was started in. The default is *proc*. For customization + see 'ess-gen-proc-buffer-name-function'. + * ESS: 'ess-eval-visibly-p' is deprecated in favor of + 'ess-eval-visibly'. + * ESS: New evaluation pattern 'nowait'. In addition to old 'nil' and + 't' values, 'ess-eval-visibly' accepts 'nowait' for a visible + evaluation with no waiting for the process. See 'ess-eval-visibly' + for details on evaluation patterns. + * ESS: New "Process" menu entry with process related commands and + configuration + * iESS: Process buffer is now automatically shown on errors + * ESS: New 'ess-switch-to-inferior-or-script-buffer' command bound to + 'C-c C-z' in both script and process buffers. If invoked form + process buffer it switches to the most recent buffer of the same + dialect. It is a single key command. + * ESSR-help: On multiple help pages with the same name, 'C-c C-v' now + asks for user resolution directly in emacs. + * ESS[R] ess-roxy: new variable 'ess-roxy-re' for fontification of + cases where the number of leading '#' differs from 'ess-roxy-str'. + * ESS[R] Eldoc was considerably enhanced. It now finds hidden + default S3 methods and displays non-default methods' arguments + after trailing ||. + * ESS[R]: New 'ess-display-demos' command bound to 'C-c C-d o' and + 'C-c C-d C-o' + * ESS: New 'ess-help-web-search' command bound to 'C-c C-d w' and + 'C-c C-d C-w' to facilitate interactive search of web resources. + Implemented for 'R', 'Stata' and 'Julia'. See also + 'ess-help-web-search-command'. + * ESS: ess-pdf-viewer-pref accepts now command line arguments + * ESS[Rnw]: Add knitr support. Customize 'ess-swv-processor' for the + default processor. + * ESS[Rnw]: More thorough renaming of remaining 'noweb-*' to + 'ess-noweb-*'. + * ESS[Rnw] new commands 'ess-eval-chunk-and-step' and + 'ess-eval-chunk' bound to 'M-n C-c' and 'M-n C-M-x' to mirror + standard ess commands in C-c map. + * ESS[R] Auto-completion: new variable 'ess-ac-R-argument-suffix' to + customize the insertion of trailing "=". Defaults to " = ". + * ESS[Julia]: Added index, apropos and web-search to julia. + * ESS help: More evaluation commands were added to ess-help mode + ('C-c C-c', 'C-M-x' etc) + + Bug Fixes in 12.09-1: + * iESShelp: Multiple help pages with the same name are properly + handled on 'C-c C-v' + * iESSremote: Evaluation with ESS remote no longer freezes emacs. + * iESS: 'comint-previous-prompt' 'C-c C-p' no longer stops on + secondary prompt "+". + * iESS[R], iESS(Sqpe) [S] on Windows: The 'options("editor")' is now + initialized to 'emacsclient' instead of the previous 'gnuclient'. + The user may need to add the line '(server-start)' to the emacs + initialization file. 'emacsclient' has been included with emacs + since GNU Emacs 22.1. + * ESS[Rnw] Fixed "connection to R" bug (in 12.09 only). + * ESS[Rnw] Explicit 'ess-swv-stangle' and 'ess-swv-sweave' functions. + * ESS[Rnw] Fixed completion and smart underscore problems cause by + unmatched "\"' + * ESS[R] is more careful with the 'R' code injection. It now happens + only once at the start of the session. + * ESS[R]: Fixed auto-scrolling the comint buffer on evaluation. + * ESS[Julia]: Solve several indentation and word navigation problems. + * ESS[Julia]: Help system works again. + + Changes/New Features in 12.09: + + * Due to XEmacs lacking some features that ESS requires, ESS support + of XEmacs ends with ESS 12.04-4. This decision will be re-visited + in the future as XEmacs continues to sync with GNU Emacs. + + * ESS[R]: On Windows, there is now a new customizable variable + (currently called 'ess-directory-containing-R') to tell ESS where + to look for the 'Rterm.exe' executables. The name of the variable + and the values it can take are both in beta and subject to change. + Prior to this variable, ESS searched only in the default + installation directory. Setting this variable now tells ESS how to + find 'Rterm.exe' executables when they are installed somewhere + else. + + * ESS[julia]: _new_ mode for editing julia code ('*.jl'). Start with + 'M-x julia'. + + Full interaction interface, imenu and basic error referencing are + available. + + * ESS[R] noweb: 'noweb-mode' and 'noweb-font-lock-mode' have been + renamed to 'ess-noweb-mode' and 'ess-noweb-font-lock-mode' to avoid + conflicts with the "real" 'noweb-mode'. + + * ESS[R] noweb: The long standing font-lock bug has been solved in + 'ess-noweb' interface. + + * ESS: Basic evaluation keys are now bound to 'ess-eval-region-*-' + functions: + + - 'C-M-x' is bound to 'ess-eval-region-or-function-or-paragraph' + - 'C-c C-c' is bound to + 'ess-eval-region-or-function-or-paragraph-and-step' + - 'C-RET' is bound to 'ess-eval-region-or-line-and-step' + + Each of these functions first evaluates the region whenever the + region is active. + + * ESS: 'C-M-a'/'C-M-e' now step to beginning/end of paragraph if no + function has been detected. + + * ESS: 'ess-eval-*-and-step' family of functions are now smarter, and + don't step to end of buffer or end of chunk code ('@') when at the + end of the code. + + * ESS: 'ess-handy-commands' function is bound to 'C-c h' + + * ESS: ESS is now _blinking_ the evaluated region. Set + 'ess-blink-region' to nil to deactivate; 'ess-blink-delay' gives + the duration of the blink. Evaluated region is "blinked" in + 'highlight' face. + + * ESS[R-help] New key 'a' for "apropos()" in help buffers. Also + available through 'C-c h'. + + * ESS[R-help] All R commands of type foo?bar and foo??bar are + recognized and redirected into appropriate *ESS-help* buffers. + + * ESS[R]: New customization interface for _font-lock_. + + ESS font-lock operates with predefined keywords. Default keywords + are listed in 'ess-R-font-lock-keywords' and + 'inferior-R-font-lock-keywords', which see. The user can easily + customize those by adding new keywords. These variables can also + be interactively accessed and saved through 'ESS/Font-lock' + submenu. + + Several new fontification keywords have been added. Most notably + the keywords for highlighting of function calls, numbers and + operators. + + * ESS[R]: auto-complete is now activated by default whenever + auto-complete package is detected. Set 'ess-use-auto-complete' to + nil to deactivate. + * ESS[R]: R AC sources are no longer auto-starting at 0 characters + but at the default 'ac-auto-start' characters. + * ESS no longer redefines default ac-sources, but only appends + 'ac-source-filename' to it. + * ESS: 'ac-source-R' now concatenates " = " to function arguments. + + * ESS: Menus for ESS and iESS have been reorganized and enriched with + _Tracebug_ and _Developer_ submenus. + + * ESS[R]: 'ess-developer' and 'ess-tracebug' commands are available + by default in 'ess-dev-map' which is bound to 'C-c d' in ESS and + iESS maps. + + * ESS[R]: 'eldoc' truncates long lines whenever + 'eldoc-echo-area-use-multiline-p' is non-nil (the default). Set + this variable to t if you insist on multiline eldoc. See also + 'ess-eldoc-abbreviation-style'. + + * ESS[R]: completion code pre-caches arguments of heavy generics such + as 'plot' and 'print' to eliminated the undesirable delay on first + request. + + * iESS: Prompts in inferior buffers are now highlighted uniformly + with 'comint-highlight-prompt' face. + + * ESS[R]: R process no longer wait for the completion of input in + inferior buffer. Thus, long running commands like 'Sys.sleep(5)' + no longer stall emacs. + + * ESS: [R, S, Stata, Julia] have specialized 'ess-X-post-run-hook's, + which are run at the end of subprocess initialization. + + * ESS[Stata]: All interactive evaluation commands work as expected. + On-line comments are removed before the evaluation and multiline + comments are skipped on 'C-c C-c' and other interactive commands. + + * ESS no longer auto-connects to a subprocess with a different + dialect than the current buffer's one. + + * ESS: 'ess-arg-function-offset-new-line' is now a list for all the + ESS indentation styles, which results in the following indentation + after an open "(": + + a <- some.function(other.function( + arg1, + arg2) + + * ESS[SAS]: Improved MS RTF support for GNU Emacs; try + 'ess-sas-rtf-portrait' and 'ess-sas-rtf-landscape'. + + Changes/Bug Fixes in 12.04-3: + * ESS: basic support for package.el compatibility + * ESS[R]: correct indentation of & and | continuation lines + * 'M-x ess-version' shows the svn revision even after 'make install' + * ESS[SAS]: improved XEmacs support + * iESS[R]: better finding of previous prompt + * ESS[Stata]: adjusted prompt for mata mode + * ESS[R]: resolved name clashes with cl.el + * ESS[R]: removed dependence on obsolete package assoc + * New 'make' target 'lisp', to build the lisp-only part, i.e., not + building the docs. + + Changes/New Features in 12.04-1: + * iESS[Stata]: New interactive help invocation. + * iESS[Stata]: New custom variable 'inferior-STA-start-file'. + * iESS[Stata]: 'inferior-STA-program-name' is now "stata" and can be + customized. + * ESS[Stata] New sections in stata help files Syntax('s-S'), + Remarks('r'), Title('t'). + + Bug Fixes in 12.04-1: + * ESS[R]: Better 'ess-tracebug' error handling. + * ESS[R]: Corrected 'ess-eldoc' help string filtering and improved + argument caching. + * ESS[R]: Indentation of non-block if/else/for/while lines fixed. + * 'M-x ess-version' should work better. + * ESS: Filename completion now again works inside strings. + * iESS[Stata]: Fixed prompt detection issue. + * ESS[Rd]: R is autostarted also from here, when needed. + + Changes/New Features in 12.04: + * ESS: Reverting new behavior of 12.03, 'TAB' in 'ess-mode' no longer + completes by default. If you want smart 'TAB' completion in R and + S scripts, similarly to iESS behavior, set the variable + 'ess-tab-complete-in-script' to 't'. Also see + 'ess-first-tab-never-complete' for how to customize where first + 'TAB' is allowed to complete. + * ESS: completion is consistently bound to 'M-TAB' (aka 'M-C-i') in + both Emacs23 and Emacs24. + * ESS: The variable 'ess-arg-function-offset-new-line' introduced in + ESS(12.03) now accepts a list with the first element a number to + indicate that the offset should be computed from the indent of the + previous line. For example setting it to '(2) results in: + + a <- some.function( + arg1, + arg2) + + Changes/New Features in 12.03: + * ESS indentation: new offset variable + 'ess-arg-function-offset-new-line' controlling for the indentation + of lines immediately following open '('. This is useful to shift + backwards function arguments after a long function call expression: + + a <- some.function( + arg1, + arg2) + + instead of the old + + a <- some.function( + arg1, + arg2) + + If '(' is not followed by new line the behavior is unchanged: + + a <- some.function(arg1, + arg2) + + This variable should be set as part of indentation style lists, or + in ess-mode hook. + * ESS[R]: 'C-c .' sets (indentation) style. + * ESS: In ESS buffers 'yank'('C-y') command accepts double argument + 'C-u C-u' to paste commands only. It deletes any lines not + beginning with a prompt, and then removes the prompt from those + lines that remain. Useful to paste code from emails, + documentation, inferior ESS buffers or transcript files. + * Documentation: ESS user manual has been rearranged and completed + with several new chapters and sections to reflect newly added + features ("Completion", "Developing with ESS", "ESS tracebug", "ESS + developer", "ESS ElDoc", "IDO Completion" and "Evaluating Code") + * RefCard: Reference card was updated to include new features. + * Eldoc: Eldoc was rewritten and is activated by default. See + 'ess-use-eldoc', 'ess-eldoc-show-on-symbol', + 'ess-eldoc-abbreviation-style' variables for how to change the + default behavior. _Note:_ 'skeleton-pair-insert-maybe' prohibits + eldoc display, on '(' insertion. + * ESS[R]: Eldoc shows arguments of a generic function whenever found. + * ESS: 'TAB' in 'ess-mode' now indents and completes, if there is + nothing to indent. Set 'ess-first-tab-never-completes-p' to 't' to + make 'TAB' never complete on first invocation. Completion + mechanism is similar to the completion in the 'inferior-ess-mode' - + a filename expansion is tried, if not found ESS completes the + symbol by querying the process. + * ESS for emacs version 24 or higher: ESS is fully compatible with + the emacs 24 completion scheme, i.e. all the completion is done by + 'completion-at-point'. Also in accordance with emacs conventions, + ESS doesn't bind 'M-TAB' for emacs 24 or higher. 'M-TAB' calls the + default 'complete-symbol'. + + * ESS[R]: Out of the box integration with 'Auto Completion' mode + http://cx4a.org/software/auto-complete + (http://cx4a.org/software/auto-complete) . Three AC sources + 'ac-source-R-args', 'ac-source-R-objects' and 'ac-source-R' are + provided. The last one combines the previous two and makes them + play nicely together. Set 'ess-use-auto-complete' to 't' to start + using it. Refer to documentation string of 'ac-use-auto-complete' + for further information. + * ESS[R]: New unified and fast argument completion system, comprised + of 'ess-funname.start', 'ess-function-arguments', + 'ess-get-object-at-point'. Eldoc and auto-completion integration + are using this system. + * ESS: 'ess-switch-to-end-of-ESS'('C-c C-z'), and + 'ess-switch-to-ESS'('C-c C-y'): Automatically start the process + whenever needed. + * ESS[R]: 'roxy' knows about previewing text version of the + documentation. Bound to 'C-c C-e t'. + * ESS[R]: Solved the "nil filename" bug in roxygen support. + * ESS[R]: 'ess-tracebug' is now part of ESS: + + New Features: + + - Source injection: Tracebug now can inject source references on + the fly during code evaluation, i.e. you don't have to source + your file, but just evaluate your code in normal fashion. + Variable 'ess-tracebug-inject-source-p' controls this behavior + - if t, always inject source reference, if ''function', inject + only for functions (this is the default), if 'nil', never + inject. + + During the source injection the value of 'ess-eval-visibly' is + ignored. + - Org-mode support: Visual debugger is now aware of the + temporary org source editing buffer ('C-c '') and jumps + through this buffers if still alive, or in original org buffer + otherwise. + - New keys in watch mode: '?' and 'd' + - Two new hooks: ess-tracebug-enter-hook and + ess-tracebug-exit-hook + + * ESS[R]: New package 'ess-developer' to evaluate 'R' code directly + in the package environment and namespace. It can be toggled on and + off with 'C-c d t'. When 'ess-developer' is on all ESS evaluation + commands are redefined to evaluate code in appropriate + environments. Add package names to the list of your development + packages with 'C-d a', and remove with 'C-d r'. Source the current + file with 'C-d s'.Evaluation function which depend on + '`ess-eval-region'' ask for the package to source the code into, + 'ess-eval-function' and alternatives search for the function name + in the development packages' environment and namespace and insert + the definition accordingly. See the documentation section + "Developing with ESS/ESS developer" for more details. + + * ESS[R] help system: + + New Features: + + - 'q' quits window instead of calling + 'ess-switch-to-end-of-ESS'. This is consistent with emacs + behavior help and other special buffers (_breaking change_). + - 'k' kills window without asking for the name (pointed by Sam + Steingold) + - Help map inherits from 'special-mode-map' as sugested by Sam + Steingold. + - Package index: new function 'ess-display-index' bound to 'i' + in help mode map. + - Package vignettes: new function 'ess-display-vignettes' bound + to 'v' in help mode map. + - Display help in HTML browser: new function + 'ess-display-help-in-browser' bound to 'w' in help mode map. + It depends on 'R''s 'browser' option. + - New custom variable 'ess-help-pop-to-buffer': if non-nil ESS + help buffers are given focus on display. The default is 't' + (_breaking change_). + - New menu entries for the above functions. + - Bogus help buffers are no longer generated by default, i.e. + buffers of the form "No documentation for 'foo' in specified + packages and libraries: you could try '??foo' ". + 'ess-help-kill-bogus-buffers' now defaults to 't'. Beware, + there may be instances where the default is unsatisfactory + such as debugging and/or during R development. Thanks to Ross + Boylan for making the suggestion, Sam Steingold for reminding + us of this variable and Martin Maechler for the warning. + * ESS now uses 'IDO' completing read functionality for all the + interactive requests. It uses ido completion mechanism whenever + available, and falls back on classical completing-read otherwise. + You can set 'ess-use-ido' to nil if you don't want the IDO + completion. See the documentation string of 'ess-use-ido' for more + information about 'IDO' and ESS configuration. + + * ESS[S]: "','" is bound to ess-smart-comma: If comma is invoked at + the process marker of an ESS inferior buffer, request and execute a + command from '`ess-handy-commands'' list. If + 'ess-R-smart-operators' is t '`ess-smart-comma' also inserts " " + after comma. + * ESS[S], notably 'R': Variable '`ess-handy-commands'' stores an + alist of useful commands which are called by 'ess-smart-comma' in + the inferior buffer. + + Currently containing: + + change-directory + 'ess-change-directory' + help-index + 'ess-display-index' + help-object + 'ess-display-help-on-object' + vignettes + 'ess-display-vignettes' + objects[ls] + 'ess-execute-objects' + search + 'ess-execute-search' + set-width + 'ess-execute-screen-options' + install.packages + 'ess-install.packages' + library + 'ess-library' + setRepos + 'ess-setRepositories' + sos + 'ess-sos' + + Handy commands: 'ess-library', 'ess-install.packages', etc - ask + for item with completion and execute the correspond command. + 'ess-sos' is a interface to 'findFn' function in package 'sos'. If + package 'sos' is not found, ask user for interactive install. + + * ESS: New dynamic mode line indicator: Process status is + automatically reflected in all mode-lines of associated with the + process buffers. Particularly useful for displaying debug status + of 'ess-tracebug' and developer status of 'ess-developer' in all + associated buffers. + + * ESS: New 'ess-completing-read' mechanism: ESS uses 'ido' + completions whenever possible. Variable 'ess-use-ido' controls + whether to use ido completion or not. Active by default. + + * ESS now supports comint fields for output and input detection. + This feature is not used by default, but might be useful in the + future. + + * ESS[S]: New custom variable 'inferior-ess-S-prompt' to customize + prompt detection regular expression in the inferior ESS buffers. + You can customize this variable to enhance comint navigation + ('comint-previous-prompt' and 'comint-next-prompt') the inferior + buffers. + + * ESS[R]: Internal 'R' completion retrieval + ('ess-R-complete-object-name') was rewritten and is faster now. + + * ESS is using process plist to store process specific variables, as + opposed to buffer local variables as it was using before. The use + of buffer local variables to store process variables is + discouraged. + + * ESS: new functions to manipulate process plists: 'ess-process-get' + and 'ess-process-set'. + + * ESS: Internal process waiting mechanism was completely rewritten. + ESS no more relies on prompt regular expressions for the prompt + detection. The only requirement on the primary process prompt is + to end in '> '. This could be overwritten by setting + 'inferor-ess-primary-prompt'. + + * ESS[S], notably 'R': Saved command history: ESS-HISTORY-FILE now + accepts 't' (default), 'nil', or a file name. By setting it to + 'nil' no command line history is saved anymore. + ESS-HISTORY-DIRECTORY now allows to have the history all saved in + one "central" file. + * ESS[R]: more Roxygen improvements. + * ESS[R]: 'C-c .' to set (indentation) style. + + * ESS[R]: Functions with non-standard names (for example + 'aaa-bbb:cc') are properly handled by font-lock and evaluation + routines. + * ESS[R]:Several regexp bugs (described in etc/R-ESS-bugs.el) were + fixed in 'ess-get-words-from-vector' and 'ess-command'. + + Changes/New Features in 5.14: + * ESS[BUGS/JAGS]: Batch BUGS is back! For recent OpenBUGS versions, + 3.0.8+, a batch BUGS script is once again available, but for Linux + only. Therefore, since it seems that BUGS and JAGS must co-exist + (rather than a transition from BUGS to JAGS), .bug files are now in + ESS[BUGS] mode and .jag files are in ESS[JAGS] mode. ESS[BUGS] now + works like ESS[JAGS] rather than the original mode ESS[BUGS] mode + which was difficult to maintain. Although, ESS[BUGS] appears to + work, there still may be some features missing as well as bugs. + + * ESS[R]: New customizable variable 'ess-swv-plug-into-AUCTeX-p' + Commands to Sweave current file and LaTeX the result are now + available to AUCTeX users, if this variable is set to 't'. + + * ESS[S]: 'C-c C-c' ('ess-eval-function-or-paragraph-and-step') is + now skipping over comments as the other paragraph functions do. It + (and similar functions) should no longer wrongly find 'function()' + beginnings inside comments or strings. + + * ESS[SAS]: improved by better support for GNU Emacs + + Changes/New Features in 5.13: + * ESS[R]: On Windows, for R 2.12.0 and later, the Rterm executables + (in subdirectories i386 / x64) now are found as well as for earlier + R versions. + * ESS[S+]: on Windows, both 32- and 64-bit versions of S+ ("S-PLUS") + are found now and made available on the menu. + * ESS[R]: When prompting for a starting directory, the R version is + (always?) correct now. + * ESS[R]: on non-Windows platforms, the 'use-dialog-box' variable is + no longer temporarily changed (to 'nil' for R-x.y.z version + functions and to 't' for 'R' itself), but rather the user + customization is obeyed. + * ESS[R]: more Roxygen improvements. + * 'Rd-preview-help' now generates preview buffers with navigation + facilities the same as regular help buffers. + * ESS: New functions and keys C-c [up] / [down] for evaluating the + buffer "from beginning till here". + + Changes/New Features in 5.12: + * ESS[SAS] Font-locking: update of PROCs keywords (up to SAS 9.22); + error/warnings. + * ESS[R]: Roxygen improvements: S4 classes; also optionally keep + spaces when filling arguments + * ESS[Rd]: support new keywords: section-name \subsection plus a + dozen "new" keywords; should match R 2.12.x now. + * 'ess-display-help-on-object' ('C-c C-v') now _caches_ the list of + topics, thus speeding up the improvement feature introduced in 5.9. + + Changes/New Features in 5.11: + * Filename completion within buffers now adds only trailing + characters to complete the filename, rather than expanding to an + absolute file path. This filename completion is bound to the TAB + key. + + * 'M-n P' in Sweave buffers now prompts for the command to run + instead of using 'pdflatex' unconditionally, offering completion + from customizable collection 'ess-swv-pdflatex-commands', the first + of which is taken as default and that defaults to 'texi2pdf'. + * 'M-RET' is now also bound in S language (R and S+) buffers to + 'ess-use-this-dir'. It sends 'setwd(..)' to the S process to set + the working directory to the one of the source file. + + Changes/New Features in 5.10: + * 'M-RET' in *S* buffers is now bound to 'ess-dirs'. This function + will set Emacs's current directory to be the same as the *S* + process. This is useful if you use 'setwd()' within a *S* process. + + Changes/New Features in 5.9: + * Toolbar: The toolbar now has an icon for starting Splus. + * Indentation: New documentation and code has been added to make it + easier to change how ESS indents code. In particular, see + 'ess-default-style', 'ess-own-style-list' and the documention + subsection "Changing indentation styles". + * 'ess-display-help-on-object' ('C-c C-v') now offers completion + candidates for help file aliases, in addition to object names. + * Font locking: is now turned on even without 'window-system' is + 'nil', whenever ESS-FONT-LOCK-MODE is non-nil, i.e., by default. + * ESS script editing: ess-eval-deactivate-mark default is now t, as + suggested by Leo Alekseyev and subsequent "unanimous" ESS-help + discussion. + * ESS[R]: Editing support for "#!" (Rscript / littler) editing, + thanks to Jeffrey Arnold. + * ESS[R]: Now finds all R versions, both 64-bit and 32-bit, on some + 64-bit Windows machines. Please report back to ess-core success or + failure on your 64-bit Windows machine. + * ESS Manual now more visually pleasing; + + * ESS[R]: Roxygen on XEmacs no longer font locks for now (as it + required missing features and hence broke ESS startup, there). + * ESS[R]: Roxygen has a sub-menu on the [ESS] menu. + * ESS[R]: Function 'ess-rutils-htmldocs' in 'ess-rutils.el' offers an + alternative to 'help.start()' for navigating R documentation, using + the 'browse-url' Emacs function. + + Changes/New Features in 5.8: + * ESS[R]: New 'ess-rutils.el' with utilities for listing, loading, + installing, and updating packages, as well as object manipulation + (listing, viewing, and deleting). It also provides an alternative + to 'RSiteSearch()' that uses the 'browse-url' function, so results + can be viewed in an Emacs web browser. + * ESS[R]: much more extensive Roxygen interface, via ess-roxy.el from + Henning Redestig. Ess-roxy supports filling of roxygen fields, + generation and updating roxygen templates, completion of roxygen + tags, basic navigation (marking and moving between entries), + folding using hs-minor-mode and preview of the Rd file. + * Emacs lisp files have got better names (partly, for now). + + Changes/New Features in 5.7: + * ESS[R]: loading a source file ('C-c C-l') now works in Windows, + similarly to other platforms; (further; it had accidentally been + broken in ESS 5.6 on all platforms) + + Changes/New Features in 5.6: + * ESS[R]: help() calls have to differ from old default, with newer + versions of R; currently via .help.ESS <- function(...) hack. + + Changes/New Features in 5.4: + * ESS[SAS]: The long overdue change from 'make-regexp' to + 'regexp-opt' for font-locking is complete. The new 'regexp-opt' is + now the default since it is better than the old code in many ways + (and especially more maintainable). However, there are certainly + some special cases missed (bug reports and patches welcome!). + Setting 'ess-sas-run-regexp-opt' to 'nil' will result in the old + code being used. + * ESS[BUGS] and ESS[JAGS]: typing '=' now results in '<-'. + * ESS[R] function arguments "show" '(ess-r-args-show)' now uses the + new '(tooltip-show-at-point)' contributed by Erik Iverson. + * Toolbar icons now also work in (beta) Emacs 23. + * ESS[S]: New function 'ess-change-directory' for setting both emacs' + current directory and the directory of an *R* or *S* buffer. + * ESS[S] when transient-mark-mode is true, the mark is now kept, + rather than deactivated, thanks to a patch from David Reitter. + + Changes/New Features in 5.3.11: + * ESS[SAS]: work around bug in Emacs 22.2 & 22.3 which fails to set + case-fold fontification automatically. + * Rd mode: support new keyword 'Rdversion' + * ESS[R]: now again works with Emacs 21.x + + Changes/New Features in 5.3.10: + * Fixed noweb-mode bug accidentally introduced into 5.3.9 + * In noweb-mode, e.g., Rnw-mode, electric "<" also inserts closing + "@". Further, the code chunk boundaries are better kept + up-to-date, such that code[R] <-> text[LaTeX] minor mode switching + should happen more reliably. + * In noweb-mode, fix a buglet in rare [Enter] or [Tab] behavior; + further, by default disable the former '[[' .. ']]' + code-protection-when-filling behavior which has been found to be + buggy. + + Changes/New Features in 5.3.9: + * ESS[SAS]: evince PDF viewer now supported as well; search order: + evince, Xpdf, Adobe/Acrobat Reader + * ESS[R]: added support for Roxygen, potentially to be extended. + * ESS[S] (and R): inferior ('*R*') and transcript modes no longer + fontify language keywords (such as 'for', 'in', etc). + * iESS[Stata]: Customize the 'ess-sta-delimiter-friendly' setting to + 't' to convert embedded semi-colons to newlines for Stata + processing. + * Sweave fix for embedded blanks in PDF reader and PDF files + * Several fixes for Major Mode Convention violations in 'ess-mode' + and 'noweb-mode'. + * ESS[JAGS]: 'M-x comment-region' now available! + * ESS[S] The 'ess-swv-*' commands (and keybindings) are now in a + submenu of the "Noweb" menu, when editing Sweave files. + + Changes/New Features in 5.3.8: + * ESS[JAGS]: more separation from ESS[BUGS] (as much as is currently + planned); now 'C-c C-c' on an empty '.jmd' creates a template as it + should; symbolic links are created for CODA output so BOA is happy: + from 'index.txt' to '.ind' and 'chain#.txt' to '#.out' + * ESS[SAS]: buffer-local 'ess-sas-submit-command' and + 'ess-sas-submit-command-options' now recognized by + 'ess-sas-submit-region' + * ESS[S]: When trying to evaluate code in an S language buffer and + there is no associated process, now start R automatically instead + of signalling an error. Also, restart R if there is an associated + process which is not running. However, do not start R just via the + "electric" '(' ('ess-r-args-auto-show'). + * ESS[S]: For (one-line) functions withOUT '{ .. }' bodys, the end + of function is now correctly found more often. This notably + improves 'C-c C-c' ('ess-eval-function-or-paragraph-and-step'). + * ESS[JAGS]: cleanup/re-organization of elisp code; symbolic links + for CODA output are now only created by the new JAGS 'system' + command in version 1.0.3; specify whether this command is available + via 'ess-jags-system'; if not present, then no links are created so + that the '*shell*' buffer does not become unresponsive during the + batch run + + Changes/New Features in 5.3.7: + * ESS: 'ess-default-style' now *is* customizable, i.e., changing its + value in '~/.emacs' now does have the desired effect. + * ESS: 'ess-font-lock-mode' is a new variable (default: t) which + controls whether font-locking is enabled in ESS buffers. + * ESS[R]: for XEmacs on Windows; another tweak to find R versions + * ESS[SAS]: font-locking updated for ODS and SAS Bayesian Procedures; + a more consistent handling of SAS options by + 'ess-sas-submit-command-options' which is buffer-local; portable + snooze for MS Windows via customize-able 'ess-sleep-for' (floats + welcome); Xpdf now supported as a PDF viewer + * ESS[Rnw]: now also works with "emacs -nw" and Emacs 22. + * ESS[JAGS]: now requires JAGS 1.0 (see the new ESS for JAGS help + section for more information): both need work; suggestions welcome + * ESS[R]: [TAB] completion now uses the R-internal completion + mechanism (for R >= 2.5.0). + * ESS[R] ([S]): interpretation of "_" as assignment has been removed + in 'ess-continued-statement-p' for R and S. + * several internal code cleanups. + * ESS[R]: An experimental version of a new command 'Rgui' on MS + Windows to send lines directly from emacs to 'Rgui' is available in + file 'lisp/essd-rgui.el'. Preliminary documentation is in file + 'doc/rgui-doc.txt'. + + Changes/New Features in 5.3.6: + * ESS: for XEmacs, using "gnuclient" (without a "-q") works for + things like fix() after M-x gnuserv-start has been done. + * ESS[R]: M-x R-newest should now work in more situations on MS + Windows, e.g., when R has been installed in a non-default + "ProgramFiles" directory tree. In these cases, there's no need to + specify the name (and full path) of the R program anymore. + * ESS[R]: For XEmacs, startup (with new tooltip code) works again. + + Changes/New Features in 5.3.5: + * ESS[R] a new defun is available, 'M-x R-newest', which will start + the newest version of R that it can find on your system. + * ESS[R] add Sven Hartenstein's "R function arguments tips" + functionality, via new file '../lisp/essd-r-args.el'. Note that + this includes an "electric "("" behavior inside 'R-mode' which is + _active by default_ and can be customized via + 'ess-r-args-electric-paren'; i.e., use '(setq + ess-r-args-electric-paren nil)' to turn it off. Further, + 'ess-r-args-show-as' allows to switch to the "tooltip" mode. + * ESS: functions 'ess-get-pdf-viewer' and *-ps-viewer; built on new + customizable variables 'ess-pdf-viewer-pref' and + 'ess-ps-viewer-pref'; currently used in 'ess-swv-PDF' and '*-PS'. + * ESS[R] Improved 'ess-swv-PDF' to run pdf viewer only if pdflatex + was ok + * ESS[R] Improved 'ess-swv-weave' to start R automatically if none is + running. + * ESS: Do no longer ask _which_ ESS process to use if there is only + one. + + Changes/New Features in 5.3.4: + * ESS[R] now better work with options(error=recover); and the new + default of CHM help files on windows. + * ESS[R] some more cleanup in the "sweave" functions + * miscellaneous fixes + + Changes/New Features in 5.3.3: + * ESS[S] fix buglet (5.3.2 only) which left command prompt in + "execute buffer" and hence help files. + * new customizable variable 'ess-display-buffer-reuse-frames' set to + true (which changes default behavior) such that execution or help + *frames* are reused. + + Changes/New Features in 5.3.2: + * Classic BUGS now supported by '(require 'essd-bugs)' with ESS[BUGS] + and JAGS by '(require 'essd-jags)' with ESS[JAGS]. But, only one + of them can be used at a time since they don't play nice together. + Also, 'C-c C-c' is now bound to the function 'ess-bugs-next-action' + ('F12' has been retired). And finally, note that 'essl-bug.el' is + deprecated and the replacement is 'essl-bugs.el'. + * ESS[R] Improved some of the "Sweave-make" functions (yet scarcely + documented) in 'ess-swv.el'. + * ESS[S] No longer mess with .Last.value (nor in other "languages"). + + Changes/New Features in 5.3.1: + * See the docs for 2 ways to install ESS for XEmacs + 1. by uncommenting the XEmacs part of Section 1 of 'Makeconf' and + performing 'make install' + 2. by unpacking either 'ess-5.3.1.tgz' or 'ess-5.3.1.zip' into + 'PREFIX/lib/xemacs/site-packages' on unix or + 'PREFIX\XEmacs\site-packages' on windows + * ESS[R]: fixed bugs so that Rterm.exe can be found by XEmacs + * ESS[S]: 'ess-toggle-S-assign-key' is slightly changed; in + particular, the default 'ess-assign-key' is now 'C-x ='. + * ESS[R]: 'M-x R-site-search' is a new (slightly experimental) + utility similar to R's 'RSiteSearch(..)' but with the advantage of + using Emacs' preferred browser, see 'browse-url-browser-function' + + Changes/New Features in 5.3.0: + * ESS[BUGS]: sanely re-format statistical output, '.bog', from + scientific notation to numbers rounded with 4 decimal places with + 'M-x ess-bugs-sci-round-to-4-dp'. + * The keys for navigating among section headings in help buffers + worked, but only for one language per session; they should now work + for multiple languages. (They were also broken on Windows + machines.) + * ESS[S] long standing buglets in the internal logic for loading lisp + code on Windows. Particularly fixed behavior in help mode with + S-plus GUI. + * New variable, 'ess-use-inferior-program-name-in-buffer-name', which + enables using the executable name instead of the dialect name for + R. Feature request. + * ESS[S] 'ess-execute-screen-options' now also works correctly when + there is more than one window *side-by-side* in the same frame and + runs in the correct buffer also when there is more than one S + buffer. + * iESS[S] new functions 'ess-eval-paragraph-and-step' and + 'ess-eval-function-or-paragraph-and-step' are bound to keys 'C-c + C-p' and 'C-c C-c' respectively and to the menu in ESS-mode; also + bound in the help mode (for evaluating examples). + * ESS[S] new function 'ess-toggle-S-assign-key' allows to assign the + " <- " insertion to an arbitrary key. + + Changes/New Features in 5.2.12: + * ESS[SAS]: 'M-;' fixed, but the XEmacs function 'comment-dwim' may + be broken, if so, use 'M-x comment-region' and 'M-x + uncomment-region' instead; only valid PROCs are fontified which is + very helpful finding syntax errors (currently supported: BASE, ETS, + FSP, GRAPH, IML, INSIGHT and STAT); the "feature" where 'F'-keys + take you to an empty buffer when the requested destination is a + file that does not exist has been fixed, now the request results in + a no-op. Further, sas-mode now also works in simple terminals. + * Rterm/Cygwin combination works under Microsoft Windows. + * ESS[R]: internal calls use baseenv() instead of NULL and define + 'baseenv' where needed. + * New experimental support for installing ESS. See the file + 'lisp/ess-install.el'. + + Changes/New Features in 5.2.11: + * ESS Info entry and 'dir' handled more effectively for GNU Emacs + users + * ESS[SAS]: temporary files created for batch submission of a region + are now named based on the current file; see 'ess-sas-file-root' + for details; all 'lag' and 'dif' functions now fontified correctly + * iESS[SAS]: fixed a few nagging bugs, however, still does not appear + to work at this time; please let us know if you have any ideas. + * ESS[S]: Support for running other versions of Splus has been added + for unix. Two new variables, 'ess-s-versions' and + 'ess-s-versions-list', are used to tell ESS what other versions of + Splus you would like to run. + + Changes/New Features in 5.2.10: + * ESS[R]: ess-r-versions can no longer be customized (since the + customization was not taking effect unless customizations were + loaded before ESS). Its value has been changed so that it will also + find R executables beginning "R-devel" and "R-patched". If you + wish to change this variable, it must be set in your '.emacs' + before ESS is loaded. + * Installation with GNU Make enhanced: unix and unix-like operating + systems will now be able to install ESS for all users in either a + GNU Emacs site-lisp or an XEmacs package configuration by editing + 'lisp/ess-site.el' and 'Makeconf' accordingly, then issuing 'make + install' + * ESS[S]: Filename completion (inside strings) now also works in + XEmacs for R and S-plus. + + Changes/New Features in 5.2.9: + * ESS[R] for Windows: the \ directory character bug with respect to + ess-load-file has been eradicated. + * iESS[SAS]: 'C-c C-r' and 'C-c C-b' once again work as intended and + documented. + * ESS[S]: M-x ess-fix-EQ-assign is a bit more agressive. + * ESS[S]: Imenu now also shows setAs(), etc. + * ESS[R]: R function pattern enhanced with underlying code such that + 'M-C-a' ('ess-beginning-of-function') etc now work for many more + cases, including S4 method definitions. + * iESS[R]: myOwnhelp(1) no longer wrongly triggers help(1). + * ESS[R]: Improved detection of bogus help buffers: valid help + buffers containing with the string "no documentation"(e.g. + contour) were being treated as bogus. + * ESS[R]: In R help buffers, if 'options("help.try.all.packages" = + TRUE)' then '?rlm' will list which packages rlm is defined in. + This help buffer is not bogus, but instead is now relabelled + "*help[R](rlm in packages)*". + * ESS[STA]: add "//" as comment starting character to syntax-table. + + Changes/New Features in 5.2.8: + * iESS: [Tab] completes *file* names "inside string" as in earlier + (<= 5.2.3) ESS versions. + + Changes/New Features in 5.2.7: + * If you use Custom to change the variable ess-toolbar-items, the new + toolbar is used in all subsequent ESS buffers. + * ESS[SAS]: new feature: if ess-sas-log-max >0 and your .log grows to + more than ess-sas-log-max bytes, just the first ess-sas-log-max + bytes are refreshed; this is helpful when your .sas program + generates lots of error messages and gets too big for emacs to + display + * ESS[R/S]: 'M-;' in R/S editing modes will now indent with either + one or two hashes depending on context. + * ESS[R]: David Whiting's Sweave extensions (to 'noweb') are now + available (from ess-swv.el loaded by default). + + Changes/New Features in 5.2.6: + * Removed non-ASCII characters in a few files. + * ESS[R]: now works better when UTF-8 locale is active; in + particular, you get correct directional quotes in R's startup + message for R-devel (unstable development version of R 2.1.0) when + using environment variables LANGUAGE=en@quot LC_ALL=en_US.UTF-8 + * ESS[SAS]: toggling of .log mode improved ('F10'); toggling of .lst + mode now also available ('C-F10'); killing all buffers associated + with .sas program no longer bound to 'C-F10' since its a bit + overzealous. + * S-Plus 7 for Windows is now recognized. + * ESS[S] (incl. R): in auto-fill mode, strings are not wrapped + anymore. + * ESS[S] (incl. R): font-lock now correctly differs between R and S, + e.g., for "_"; both now fontify warning(.) and S does terminate() + additionally. + * Support for 'bell' aka 'beep' aka 'ding' aka 'alarm' in all + inferior modes: When \a is output "to the the console" at the + beginning of a line, the bell is rung. + + Changes/New Features in 5.2.5: + * ESS[R]: 'C-c C-q' or 'Quit S' from the menu now should work (again + and less klunkily) and do not append '-exited' to the buffer name. + Further, the behavior of '(ess-cleanup)', called from ess-quit, now + depends on the new customizable variable + 'ess-S-quit-kill-buffers-p' which defaults to 'nil'. Consequently, + the question _"Delete all buffers associated with ..?"_ will not + be asked anymore by default. + * ESS[SAS] - ess-ebcdic-to-ascii-search-and-replace will now work + with the 'recode' application as well which is available on many + platforms + * ESS[S] (incl. R): Name completion for slots of S4 objects now + works! + + Changes/New Features in 5.2.4: + * The documentation now includes an overview of how to use the emacs + TAGS facility for S functions. (The distribution also used to + contain a directory 'etc/other/Tags' where a ~1990 version of + 'etags.c' was distributed; this is no longer relevant and so has + been deleted.) + * ESS[SAS] - When you are working with EBCDIC files on an ASCII + platform, .log NOTEs may display as gibberish since the EBCDIC + characters are not converted to ASCII prior to their display. So, + the function ess-ebcdic-to-ascii-search-and-replace is provided for + convenience and is bound to 'C-F11'. This function requires the + 'dd' command (only available on unix or unix-like platforms). + * ESS: Completion of object names is now always done dynamically + rather than allowing the option of using a pre-computed database + (by 'ess-create-object-name-db') since modern computers seem fast + enough for dynamic completion. (We expect few users, if any, have + been using the pre-computed database method.) + * ESS: object completion in iESS buffers running on Windows was very + slow (for GNU Emacs, but not XEmacs) and has now been fixed. + Further, it was more or less broken for all versions of S-plus 6.x, + and has been fixed to work everywhere but with the Windows' GUI of + S-plus. The list of objects now shows unique names also when an + object appears more than once in the search path. + * ESS[R]: Completion of object names now also includes those starting + with ".". + + Changes/New Features in 5.2.3: + * ESS: When new inferior ESS processes are created, by default they + will replace the current buffer (this restores behavior from pre + 5.2.0). If you wish new ESS processes to start in another window + of the current frame, set inferior-ess-same-window to nil. + * New variables inferior-Splus-args and inferior-R-args provide a way + to pass command line arguments to starting S and R processes. + + Changes/New Features in 5.2.2: + * bug-fixes for 5.2.1 (require 'executable), html docs, etc. + * ess-lisp-directory/../doc/info added to Info-directory-list if + ess-info not found by info + * ESS[R]: If you have other versions of R on your exec-path, such as + "R-1.8.1" with Unix or "rw1081" with Windows, ESS will find them + and create appropriate functions, such as 'M-x R-1.8.1' or 'M-x + rw1081', for calling them. By default only Unix programs beginning + "R-1" and "R-2" and Windows programs parallel to the version of R + in your exec-path will be found, but see ess-r-versions and + ess-rterm-versions for ways to find other versions of R. + * ESS[R]: Other versions of R, such as "R-1.8.1" on Unix and "rw1081" + on Windows, are added to the "ESS / Start Process / Other" menu. + * ESS[S]: If you have other versions of S-Plus on your Windows + computer, such as S-Plus 6.1 or S-Plus 4.5, ESS will find them and + create appropriate functions, such as 'M-x splus61', for calling + the console version (Sqpe) inside an emacs buffer. By default only + programs installed in the default location will be found, but see + ess-SHOME-versions for ways to find other versions of S-Plus. + * ESS[S]: Other versions of Sqpe on Windows, such as "splus61", are + added to the "ESS / Start Process / Other" menu. + * ESS[R]: (bug fix) ess-quit (bound to 'C-c C-q') should now quit the + inferior R process, when issued from either the inferior buffer, or + from a .R buffer. + + Changes/New Features in 5.2.1: + * ESS[S] (R and S-plus): now have toolbar support with icons to + evaluate code in the inferior process or to switch there. This + code is experimental and likely to change as XEmacs/Emacs issues + get resolved. The toolbar should be enabled if your Emacs displays + images, but can be disabled with the variable ess-use-toolbar. + Thanks to David Smith from Insightful for the S-plus logo. + * ESS[SAS]: ess-sas-graph-view ('F12') enhanced; you can specify + external file viewers for each graphics file type via the alist + ess-sas-graph-view-viewer-alist; also .jpg/.gif are now handled by + image-mode on XEmacs, if available, otherwise by graphics + primitives as before + + Changes/New Features in 5.2.0: + * ESS[BUGS]: new info documentation! now supports interactive + processing thanks to Aki Vehtari (mailto:Aki.Vehtari@hut.fi); new + architecture-independent unix support as well as support for BUGS + v. 0.5 + * ESS[SAS]: convert .log to .sas with ess-sas-transcript; info + documentation improved; Local Variable bug fixes; SAS/IML + statements/functions now highlighted; files edited remotely by + ange-ftp/EFS/tramp are recognized and pressing SUBMIT opens a + buffer on the remote host via the local variable + ess-sas-shell-buffer-remote-init which defaults to "ssh"; changed + the definition of the variable ess-sas-edit-keys-toggle to boolean + rather than 0/1; added the function ess-electric-run-semicolon + which automatically reverse indents lines containing only "run;"; + 'C-F1' creates MS RTF portrait from the current buffer; 'C-F2' + creates MS RTF landscape from the current buffer; 'C-F9' opens a + SAS DATASET with PROC INSIGHT rather than PROC FSVIEW; "inferior" + aliases for SAS batch: 'C-c C-r' for submit region, 'C-c C-b' for + submit buffer, 'C-c C-x' for goto .log; 'C-c C-y' for goto .lst + * ESS[S]: Pressing underscore ("_") once inserts " <- " (as before); + pressing underscore twice inserts a literal underscore. To stop + this smart behaviour, add "(ess-toggle-underscore nil)" to your + .emacs after ess-site has been loaded; + ess-dump-filename-template-proto (new name!) now can be customized + successfully (for S language dialects); Support for Imenu has been + improved; set ess-imenu-use-S to non-nil to get an "Imenu-S" item + on your menubar; ess-help: Now using nice underlines (instead of + 'nuke-* ^H_') + * ESS[R]: After (require 'essa-r), 'M-x ess-r-var' allows to load + numbers from any Emacs buffer into an existing *R* process; 'M-x + ess-rdired' gives a "directory editor" of R objects; fixed + ess-retr-lastvalue-command, i.e. .Last.value bug (thanks to David + Brahm) + * ESS: Support for creating new window frames has been added to ESS. + Inferior ESS processes can be created in dedicated frames by + setting inferior-ess-own-frame to t. ESS help buffers can also + open in new frames; see the documentation for ess-help-own-frame + for details. (Thanks to Kevin Rodgers for contributing code.) + + Changes/New Features in 5.1.24: + * The version number is now correct even inside ESS/Emacs + + Changes/New Features in 5.1.23: + * Minor more Makefile clean up. + + Changes/New Features in 5.1.22: + * Besides info documentation, PDF and HTML documentation are also + provided (instead of built using "make") and available on the web + as well; see ESS web page (https://ess.r-project.org/) and StatLib + (http://lib.stat.cmu.edu/general/ESS/doc) + * Now that info documentation is available, the README.* files are no + longer supported. However, they are still distributed for what + it's worth. + * ESS is now an XEmacs package! See XEmacs Installation HOWTO + (https://www.xemacs.org/Install/index.html) for details + (specifically, items 10-15). + * ESS[SAS]: more user-friendly enhancements for remote SAS batch jobs + with Kermit file transfers (LOG and OUTPUT function key features + now supported). Multiple shells now supported so you can run SAS + on different computers from different buffers by setting the + buffer-local variable ess-sas-shell-buffer to unique buffer names. + * Major re-vamping of Makefile/Makeconf. + + Changes/New Features in 5.1.21: + * ESS[SAS]: info documentation now available!, see ESS->Help for SAS; + 'F12' opens GSASFILE nearest point for viewing either within emacs, + when available, or via an external viewer; more syntax highlighting + keywords; more enhancements for remote SAS batch jobs with Kermit; + new framework for remote SAS interactive jobs, see ess-remote + * ESS[S]: info documentation now available!, see ESS->Help for the S + family + * Makefile: tag now independent of rel; info files made by + doc/Makefile and installed in new info sub-directory + + Changes/New Features in 5.1.20: + * New 'options()$STERM' in the S dialects (S, S-Plus, R). The S + program can determine the environment in which it is currently + running. ESS sets the option to 'iESS' or 'ddeESS' when it starts + an S language process. We recommend other specific values for S + language processes that ESS does not start. + * New 'ess-mouse-me' function, assigned to S-mouse-3 by default. + User may click on a word or region and then choose from the menu to + display the item, or a summary, or a plot, etc. This feature is + still under development. + * GNU Emacs 21.1 is now supported (fixed for S dialects, SAS & BUGS), + (some from Stephen Eglen). + * XEmacs 21.x is now supported (fixed w32-using-nt bug) + * XEmacs on Win (NT) is better supported. + * Workaround for bug in Sqpe+6 (S-PLUS 6 for Win). + * should now work even when imenu is not available (for old + XEmacsen). + * ESS[SAS]: XEmacs-Imenu fix; 'C-TAB' is globalized along with your + function-key definitions, if specified; you can specify your SAS + library definitions outside of autoexec.sas for ess-sas-data-view + with SAS code placed in the variable ess-sas-data-view-libname, + also the dataset name is defaulted to the nearest permanent dataset + to point; Speedbar support now works for permanent datasets, please + ignore first./last.; new font-locking is now the default with more + improvements for font-locking PROCs, macro statements, * ; and %* ; + comments; you can toggle sas-log-mode with 'F10' which will + font-lock your .log (if it isn't too big); submit remote .sas files + accessed with ange-ftp, EFS or Tramp (Kermit is experimental) by + setting ess-sas-submit-method to 'sh; ess-sas-submit-command and + ess-sas-submit-command-options are buffer-local so you can have + local file variable sections at the end of your .sas files to + request different executables or specify special options and the + local file variables are re-read at submit instead of only at file + open so that if you make a change it is picked up immediately; + * ESS[BUGS]: font-lock with 'in' fixed. + * for STATA: font-lock bug fixed. + * for Rd mode: 'C-c C-v' and 'switch-process' in menu. further, 'C-c + C-f' prefix (Rd-font) for inserting or surrounding a word by things + such as \code{.}, \code{\link{.}}, \emph{.} etc. + * new functions (ess-directory-function) and (ess-narrow-to-defun) + ess-directory <-> default-directory logic (Jeff Mincy). + * Re-organized Makefile and fixed a few bugs. + + Changes/New Features in 5.1.19: + * S+6 now supported (Tony Rossini (Unix) and Rich Heiberger + (Windows)) + * New BUGS support through ESS[BUGS] mode (Rodney Sparapani) + Templates assist you in writing .bug and .cmd code (.cmd and .log + are replaced by .bmd and .bog to avoid emacs extension collisions). + Substitution" parameters facilitate "automagic" generation of + data...in" and "init...in" filenames, "const N=" from your data + file and "monitor()/stats()" commands. Activated by pressing + 'F12'. + * Fixes for 'ess-smart-underscore' SAS breakage (Rich Heiberger) + * You can change between PC and Unix, local and global SAS + function-key definitions interactively (Rich Heiberger) + * 'C-Submit' a highlighted region to SAS batch (Rodney Sparapani) + * New and improved SAS syntax highlighting (Rodney Sparapani) To get + the new functionality, set ess-sas-run-make-regexp to nil. Also + available in .log files via 'F10'. + * Open a permanent SAS dataset for viewing via 'F9' (Rodney + Sparapani) You must have the library defined in autoexec.sas for it + to work. + * User-friendly defaults for 'sas-program', + 'ess-sas-batch-pre-command' and 'ess-sas-batch-post-command' as + well Customize support for these and other ESS[SAS] variables + (Rodney Sparapani) + * 'ess-sas-suffix-2' now defaults to .dat via 'F11' (Rodney + Sparapani) + * Emacs/XEmacs, Unix/Windows issues collectively handled in + ess-emcs.el + * defadvice solves problem of missing *ESS* (thanks to Jeff Mincy) + * Improved manual a bit by including things that were only in + 'README'. + + Changes/New Features in 5.1.18: + * New 'ess-smart-underscore' function, now assigned to "_" by + default. Inserts 'ess-S-assign' (customizable " <- "), unless + inside string and comments where plain "_" is used instead. (MM) + * Fixes for longstanding interactive SAS breakage (RMH) + + Changes/New Features in 5.1.17: + * Documentation for Windows Installation (Rich Heiberger) + * removal of ess-vars, finalization of customize support (in the + sense that there is no more use of ess-vars, but that we need to + fix ess-cust) (AJ Rossini) + * Many small (and large) fixes/contributions (MMaechler) + * addition of the "S-equal" variable and provide 'M-x + ess-add-MM-keys' a way to remap "_" to 'ess-S-assign', typically " + <- ", but customizable. (MMaechler) + + Changes/New Features in 5.1.16: + * BUG FIXES + * Better SAS support + + Changes/New Features in 5.1.15: + * BUG FIXES + + Changes/New Features in 5.1.14: + * Yet more fixes to SAS mode, (Rich Heiberger and Rodney Sparapani) + * Customize support (for most Emacsen which support it) (AJRossini) + * ARC and ViSta support out of the box, and fixes for XLispStat + (AJRossini) + + Changes/New Features in 5.1.13: + * Version numbering finally all depending on the ./VERSION file, + thanks to Martin Maechler. + * Yet more fixes to SAS mode, thanks to Rich Heiberger. + + Changes/New Features in 5.1.12: + * Splus 5.1 stabilized, thanks to Martin Maechler, Bill Venables, + Chuck Taylor, and others. + * More fixes to SAS mode, thanks to Rodney Sparapani and Rich + Heiberger. + + Changes/New Features in 5.1.11: + * More fixes to Stata mode, thanks to Brendan Halpin + (mailto:brendan@essex.ac.uk). + * fixed bugs in ESS-elsewhere, thanks to many testers + * README.SPLUS4WIN has DETAILED instructions for S-PLUS 2000, thanks + to David Brahm (mailto:brahm@alum.mit.edu). + * Fixes to SAS mode, thanks to Rodney Sparapani + + Changes/New Features in 5.1.10: + * More fixes to Stata mode + * primitive generic version of ESS-elsewhere + * Small fixes to SAS/Stata. + + Changes/New Features in 5.1.9: + * Stata mode works + * Literate Data Analysis using Noweb works + + Changes/New Features in 5.1.8: + * Bug fixes + * R documentation mode defaults changed + + Changes/New Features in 5.1.2: + * able to use inferior iESS mode to communicate directly with a + running S-Plus 4.x process using the Microsoft DDE protocol. We + use the familiar (from Unix ESS) 'C-c C-n' and related key + sequences to send lines from the S-mode file to the inferior S + process. We continue to edit S input files in ESS[S] mode and + transcripts of previous S sessions in ESS Transcript mode. All + three modes know the S language, syntax, and indentation patterns + and provide the syntactic highlighting that eases the programming + tasks. + + + +Tag Table: + +End Tag Table diff --git a/elpa/ess-20190121.1430/announc.info b/elpa/ess-20190121.1430/announc.info new file mode 100644 index 00000000..9eb70b9f --- /dev/null +++ b/elpa/ess-20190121.1430/announc.info @@ -0,0 +1,697 @@ +This is announc.info, produced by makeinfo version 6.5 from +announc.texi. + + +File: announc.info, Node: Announce + +1 ANNOUNCING ESS +**************** + +The ESS Developers proudly announce the release of ESS 18.10.3snapshot + + Emacs Speaks Statistics (ESS) provides an intelligent, consistent +interface between the user and the software. ESS interfaces with +R/S-PLUS, SAS, BUGS/JAGS, Stata and other statistical analysis packages +under the UNIX, GNU Linux, Microsoft Windows, macOS and other operating +systems. ESS is a package for the GNU Emacs and XEmacs text editors +whose features ESS uses to streamline the creation and use of +statistical software. ESS knows the syntax and grammar of statistical +analysis packages and provides consistent display and editing features +based on that knowledge. ESS assists in interactive and batch execution +of statements written in these statistical analysis languages. + + ESS is freely available under the GNU General Public License (GPL). +Please read the file COPYING which comes with the distribution, for more +information about the license. For more detailed information, please +read the README files that come with ESS. + +* Menu: + +* Latest Version:: +* Current Features:: +* Requirements:: +* Mailing List:: +* Reporting Bugs:: +* Authors:: +* License:: +* New Features:: + + +File: announc.info, Node: Latest Version, Next: Current Features, Prev: Announce, Up: Announce + +1.1 Getting the Latest Version +============================== + +ESS supports GNU Emacs versions 25.1 and newer. + + ESS is most likely to work with current/recent versions of the +following statistical packages: R/S-PLUS, SAS, Stata, OpenBUGS and JAGS. + + To build the PDF documentation, you will need a version of TeX Live +or texinfo that includes texi2dvi. + + There are two main methods used for installing ESS. You may install +from a third-party repository or from source code. Once you install it, +you must also activate or load ESS in each Emacs session, though +installation from a third-party repository likely takes care of that for +you. See *note Activating and Loading ESS:: for more details. + +* Menu: + +* Installing from a third-party repository:: +* Installing from source:: +* Activating and Loading ESS:: +* Check Installation:: + + +File: announc.info, Node: Installing from a third-party repository, Next: Installing from source + +1.2 Installing from a third-party repository +============================================ + +ESS is packaged by many third party repositories. Many GNU/Linux +distributions package it, usually with the name "emacs-ess" or similar. + + ESS is also available through Milkypostman’s Emacs Lisp Package +Archive (MELPA), a popular repository for Emacs packages. Instructions +on how to do so are found on MELPA's website (https://melpa.org/). +MELPA also hosts MELPA-stable with stable ESS builds. You may choose +between MELPA with the latest and greatest features (and bugs) or +MELPA-stable, which may lag a bit behind but should be more stable. + + After installing, users should make sure ESS is activated or loaded +in each Emacs session. See *note Activating and Loading ESS::. +Depending on install method, this may be taken care of automatically. + + +File: announc.info, Node: Installing from source, Next: Activating and Loading ESS, Prev: Installing from a third-party repository + +1.3 Installing from source +========================== + +Stable versions of ESS are available at the ESS web page +(https://ess.r-project.org) as a .tgz file or .zip file. ESS releases +are GPG-signed, you should check the signature by downloading the +accompanying '.sig' file and doing: + + gpg --verify ess-18.10.tgz.sig + + Alternatively, you may download the git repository. ESS is currently +hosted on Github: . 'git clone +https://github.com/emacs-ess/ESS.git' will download it to a new +directory 'ESS' in the current working directory. + + We will refer to the location of the ESS source files as +'/path/to/ESS/' hereafter. + + After installing, users should make sure they activate or load ESS in +each Emacs session, see *note Activating and Loading ESS:: + + Optionally, compile elisp files, build the documentation, and the +autoloads: + cd /path/to/ESS/ + make + Without this step the documentation, reference card, and autoloads +will not be available. Uncompiled ESS will also run slower. + + Optionally, you may make ESS available to all users of a machine by +installing it site-wide. To do so, run 'make install'. You might need +administrative privileges: + + make install + + The files are installed into '/usr/share/emacs' directory. For this +step to run correctly on macOS, you will need to adjust the 'PREFIX' +path in 'Makeconf'. The necessary code and instructions are commented +in that file. + + +File: announc.info, Node: Activating and Loading ESS, Next: Check Installation, Prev: Installing from source + +1.4 Activating and Loading ESS +============================== + +After installing ESS, you must activate or load it each Emacs session. +ESS can be autoloaded, and if you used a third-party repository (such as +your Linux distribution or MELPA) to install, you can likely skip this +section and proceed directly to *note Check Installation:: + + Otherwise, you may need to add the path to ESS to 'load-path' with: + + (add-to-list 'load-path "/path/to/ESS/lisp") + + You then need to decide whether to take advantage of deferred loading +(which will result in a faster Emacs startup time) or require ESS when +Emacs is loaded. To autoload ESS when needed (note that if installed +from source, you must have run 'make'): + + (load "ess-autoloads") + + To require ESS on startup, you can either put + + (require 'ess-site) + + or + + (require 'ess-r-mode) + + In your configuration file, depending on whether you want all ESS +features or only R related features. + + +File: announc.info, Node: Check Installation, Prev: Activating and Loading ESS + +1.5 Check Installation +====================== + +Restart Emacs and check that ESS was loaded from a correct location with +'M-x ess-version'. + + +File: announc.info, Node: Current Features, Next: Requirements, Prev: Latest Version, Up: Announce + +1.6 Current Features +==================== + + * Languages Supported: + * S family (R, S, and S+ AKA S-PLUS) + * SAS + * BUGS/JAGS + * Stata + * Julia + * Editing source code (S family, SAS, BUGS/JAGS, Stata, Julia) + * Syntactic indentation and highlighting of source code + * Partial evaluation of code + * Loading and error-checking of code + * Source code revision maintenance + * Batch execution (SAS, BUGS/JAGS) + * Use of imenu to provide links to appropriate functions + * Interacting with the process (S family, SAS, Stata, Julia) + * Command-line editing + * Searchable Command history + * Command-line completion of S family object names and file + names + * Quick access to object lists and search lists + * Transcript recording + * Interface to the help system + * Transcript manipulation (S family, Stata) + * Recording and saving transcript files + * Manipulating and editing saved transcripts + * Re-evaluating commands from transcript files + * Interaction with Help Pages and other Documentation (R) + * Fast Navigation + * Sending Examples to running ESS process. + * Fast Transfer to Further Help Pages + * Help File Editing (R) + * Syntactic indentation and highlighting of source code. + * Sending Examples to running ESS process. + * Previewing + + +File: announc.info, Node: Requirements, Next: Mailing List, Prev: Current Features, Up: Announce + +1.7 Requirements +================ + +ESS supports GNU Emacs versions 25.1 and newer. + + ESS is most likely to work with current/recent versions of the +following statistical packages: R/S-PLUS, SAS, Stata, OpenBUGS and JAGS. + + To build the PDF documentation, you will need a version of TeX Live +or texinfo that includes texi2dvi. + + +File: announc.info, Node: Mailing List, Next: Reporting Bugs, Prev: Requirements, Up: Announce + +1.8 Mailing List +================ + +There is a mailing list for discussions and announcements relating to +ESS. Join the list by sending an e-mail with "subscribe ess-help" (or +"help") in the body to ; contributions +to the list may be mailed to . Rest assured, +this is a fairly low-volume mailing list. + + The purposes of the mailing list include + + * helping users of ESS to get along with it. + * discussing aspects of using ESS on Emacs and XEmacs. + * suggestions for improvements. + * announcements of new releases of ESS. + * posting small patches to ESS. + + +File: announc.info, Node: Reporting Bugs, Next: Authors, Prev: Mailing List, Up: Announce + +1.9 Reporting Bugs +================== + +Please send bug reports, suggestions etc. to , +or post them on our github issue tracker +(https://github.com/emacs-ess/ESS/issues) + + The easiest way to do this is within Emacs by typing + + 'M-x ess-submit-bug-report' + + This also gives the maintainers valuable information about your +installation which may help us to identify or even fix the bug. + + If Emacs reports an error, backtraces can help us debug the problem. +Type "M-x set-variable RET debug-on-error RET t RET". Then run the +command that causes the error and you should see a *Backtrace* buffer +containing debug information; send us that buffer. + + Note that comments, suggestions, words of praise and large cash +donations are also more than welcome. + + +File: announc.info, Node: Authors, Next: License, Prev: Reporting Bugs, Up: Announce + +1.10 Authors +============ + + * A.J. Rossini (mailto:blindglobe@gmail.com) + * Richard M. Heiberger (mailto:rmh@temple.edu) + * Kurt Hornik (mailto:Kurt.Hornik@R-project.org) + * Martin Maechler (mailto:maechler@stat.math.ethz.ch) + * Rodney A. Sparapani (mailto:rsparapa@mcw.edu) + * Stephen Eglen (mailto:stephen@gnu.org) + * Sebastian P. Luque (mailto:spluque@gmail.com) + * Henning Redestig (mailto:henning.red@googlemail.com) + * Vitalie Spinu (mailto:spinuvit@gmail.com) + * Lionel Henry (mailto:lionel.hry@gmail.com) + * J. Alexander Branham (mailto:alex.branham@gmail.com) + + +File: announc.info, Node: License, Next: New Features, Prev: Authors, Up: Announce + +1.11 License +============ + +The source and documentation of ESS 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. + + ESS 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 in +the file COPYING in the same directory as this file for more details. + + +File: announc.info, Node: New Features, Prev: License, Up: Announce + +1.12 New Features +================= + +Changes and New Features in 19.04 (unreleased): + + * Implement a more reliable check for the process busy state. + Background actions such as completion and directory synchronization + should not block the process and should not cause printing of the + extraneous output to the interpreter. + + * Activate 'goto-address-mode' for url and emal highlighting in + inferior buffers. + + * 'smart-underscore' and 'ess-smart-S-assign-key' have been removed. + Users who liked the previous behavior (i.e. underscore inserting + "<-") should bind 'ess-insert-assign' to the underscore in their + Emacs initialization file. For example, '(define-key + ess-r-mode-map "_" #'ess-insert-assign)' and '(define-key + inferior-ess-r-mode-map "_" #'ess-insert-assign)' will activate it + in all ESS R buffers. + + * ESS major modes are now defined using 'define-derived-mode'. This + makes ESS major modes respect modern conventions such as having + -mode-hook and -mode-map. Users are encouraged + to place customizations under the appropriate mode. + + * New option ess-auto-width controls setting the width option on + window changes. Users can change it to 'frame, 'window, or an + integer. See the docstring for details. 'ess-auto-width-visible' + controls visibility. + + * ESS now respects 'display-buffer-alist'. Users can now use + 'display-buffer-alist' to manage how and where windows appear. See + *Note (ess)Controlling buffer display:: for more information and + examples. + + * 'ess-roxy-mode' can now be enabled in non-R buffers. This is + primarily intended to support roxygen documentation for cpp + buffers. Preview functionality is not supported outside R buffers. + + * ESS[R]: DESCRIPTION files now open in 'conf-colon-mode'. + + * 'ess-style' now has effects when set as a file or directory local + variable. + + * 'ess-default-style' is now obsolete, use 'ess-style' instead. + + * Options for 'ess-gen-proc-buffer-name-function' have been renamed. + ess-gen-proc-buffer-name:projectile-or-simple was renamed to + ess-gen-proc-buffer-name:project-or-simple and + ess-gen-proc-buffer-name:projectile-or-directory was renamed to + ess-gen-proc-buffer-name:project-or-directory. As the name + suggests, these now rely on project.el (included with Emacs) rather + than projectile.el, which is a third-party package. + + * ESS[R] help pages now provide links to other help topics. This is + similar with what you would see with, for example + 'options(help_type = ``html'')' but works with the plain-text + version as well. This only works with 'options(useFancyQuotes = + TRUE)' (the default). + + * 'ess-rdired' buffers now derive from tabulated-list-mode. They + should look better and be a bit faster overall. The size column + now displays object sizes in bytes. + + * ESS removed support for many unused languages. This includes old + versions of S+, ARC, OMG, VST, and XLS. + + The following have been made obsolete or removed, see their +documentation for more detail: + + * Libraries for literate data analysis are obsolete and not loaded by + default. This includes 'ess-noweb', 'ess-swv', and related + functionality like 'Rnw-mode'. Users are encouraged to switch to + one of several other packages that deal with these modes. For + example, polymode , + , or markdown-mode with edit-indirect + . + + * User options for controlling display of buffers. This includes + 'ess-show-buffer-action', 'inferior-ess-same-window', + 'inferior-ess-own-frame', and 'inferior-ess-frame-alist'. See + above about ESS respecting 'display-buffer-alist'. + + * 'inferior-ess-*-start-file' variables. All modes except Stata did + not respect customization of this variable. In order to load a + file on startup, you should put a function on + 'ess-*-post-run-hook'. + + Bug Fixes in 18.10.3: + * More 'Makefile' fixes, notably installing '*.el's. + + Bug Fixes in 18.10.2: + * ESS[R] Fix namespace evaluation in non-installed packages. + Evaluation is directed into GlobalEnv as originally intended. + * 'Makefile' fixes, notably for 'make install' and including full + docs in the tarballs. + + Bug Fixes in 18.10-1: + * New functions 'ess-eval-line-visibly-and-step' ('C-c C-n' and + 'ess-eval-region-or-line-visibly-and-step' ('C-RET') which behave + as the old versions of 'ess-eval-line-and-step' and + 'ess-eval-region-or-line-and-step'. + + Changes and New Features in 18.10: + + * This is the last release to support Emacs older than 25.1. Going + forward, only GNU Emacs 25.1 and newer will be supported. Soon + after this release, support for older Emacs versions will be + dropped from the git master branch. Note that MELPA uses the git + master branch to produce ESS snapshots, so if you are using Emacs < + 25.1 from MELPA and are unable to upgrade, you should switch to + MELPA-stable. + + * ESS now displays the language dialect in the mode-line. So, for + example, R buffers will now show ESS[R] rather than ESS[S]. + + * The ESS manual has been updated and revised. + + * The ESS initialization process has been further streamlined. If + you update the autoloads (which installation from 'package-install' + does), you should not need to '(require 'ess-site)' at all, as + autoloads should automatically load ESS when it is needed (e.g. + the first time an R buffer is opened). In order to defer loading + your ESS config, you may want to do something like + '(with-require-after-load "ess" )' in your Emacs + init file. Users of the popular 'use-package' Emacs package can + now do '(use-package ess :defer t)' to take advantage of this + behavior. *Note (ess)Activating and Loading ESS:: for more + information on this feature. + + * ESS now respects Emacs conventions for keybindings. This means + that The 'C-c [letter]' bindings have been removed. This affects + 'C-c h', which was bound to 'ess-eval-line-and-step-invisibly' in + 'sas-mode-local-map'; 'C-c f', which was bound to + 'ess-insert-function-outline' in 'ess-add-MM-keys'; and 'C-c h', + which was bound to 'ess-handy-commands' in 'Rd-mode-map', + 'ess-noweb-minor-mode-map', and 'ess-help-mode-map' + + * Functions 'ess-eval-line-and-step' and + 'ess-eval-region-or-line-and-step' now behave consistently with + other evaluation function inside a package. + + * ESS[R]: 'ess-r-package-use-dir' now works with any mode. This sets + the working directory to the root of the current package including + for example C or C++ files within '/src'). + + * ESS[R]: Long + + prompts in the inferior no longer offset output. + + * ESS[R]: New option 'strip' for 'inferior-ess-replace-long+'. This + strips the entire + + sequence. + + * ESS modes now inherit from 'prog-mode'. In the next release, ESS + modes will use 'define-derived-mode' so that each mode will have + (for example) its own hooks and keymaps. + + * ESS[R]: Supports flymake in R buffers for Emacs 26 and newer. + Users need to install the 'lintr' package to use it. Customizable + options include 'ess-use-flymake', 'ess-r-flymake-linters', and + 'ess-r-flymake-lintr-cache'. + + * ESS[R]: Gained support for xref in Emacs 25+. *Note (emacs)Xref:: + + * ESS[R]: The startup screen is cleaner. It also displays the + startup directory with an explicit 'setwd()'. + + * ESS[R]: Changing the working directory is now always reflected in + the process buffer. + + * ESS[R]: 'Makevars' files open with 'makefile-mode'. + + * New variable 'ess-write-to-dribble'. This allows users to disable + the dribble ('*ESS*') buffer if they wish. + + * All of the '*-program-name' variables have been renamed to + '*-program'. Users who previously customized e.g. + 'inferior-ess-R-program-name' will need to update their + customization to 'inferior-ess-R-program'. These variables are + treated as risky variables. + + * 'ess-smart-S-assign' was renamed to 'ess-insert-assign'. It + provides similar functionality but for any keybinding, not just + '_'. For instance if you bind it to ';', repeated invokations + cycle through between assignment and inserting ';'. + + * 'C-c C-=' is now bound to 'ess-cycle-assign' by default. See the + documentation for details. New user customization option + 'ess-assign-list' controls which assignment operators are cycled. + + * ESS[R] In remote sessions, the ESSR package is now fetched from + GitHub. + + * Commands that send the region to the inferior process now deal with + rectangular regions. See the documentation of 'ess-eval-region' + for details. This only works on Emacs 25.1 and newer. + + * ESS[R]: Improvements to interacting with iESS in non-R files. + Interaction with inferior process in non-R files within packages + (for instance C or C++ files) has been improved. This is a work in + progress. + + * ESS[R]: Changing the working directory is now always reflected in + the process buffer. + + * ESS[JAGS]: *.jog and *.jmd files no longer automatically open in + JAGS mode. + + Many improvements to fontification: + + * Improved customization for faces. ESS now provides custom faces + for (nearly) all faces used and places face customization options + into their own group. Users can customize these options using 'M-x + customize-group RET ess-faces'. + + * Many new keywords were added to 'ess-R-keywords' and + 'ess-R-modifiers'. See the documentation for details. + + * ESS[R]: 'in' is now only fontified when inside a 'for' construct. + This avoids spurious fontification, especially in the output buffer + where 'in' is a commond English word. + + * ESS: Font-lock keywords are now generated lazily. That means you + can now add or remove keywords from variables like 'ess-R-keywords' + in your Emacs configuration file after loading ESS (i.e. in the + ':config' section for 'use-package' users). + + * ESS[R]: Fontification of roxygen '@param' keywords now supports + comma-separated parameters. + + * ESS[R]: Certain keywords are only fontified if followed by a + parenthesis. Function-like keywords such as 'if ()' or 'stop()' + are no longer fontified as keyword if not followed by an opening + parenthesis. The same holds for search path modifiers like + 'library()' or 'require()'. + + * ESS[R]: Fixed fontification toggling. Especially certain syntactic + elements such as '%op%' operators and backquoted function + definitions. + + * ESS[R]: 'ess-font-lock-toggle-keyword' can be called interactively. + This command asks with completion for a font-lock group to toggle. + This functionality is equivalent to the font-lock menu. + + Notable bug fixes: + + * 'prettify-symbols-mode' no longer breaks indentation. This is + accomplished by having the pretty symbols occupy the same number of + characters as their non-pretty cousins. You may customize the new + variable 'ess-r-prettify-symbols' to control this behavior. + + * ESS: Inferior process buffers are now always displayed on startup. + Additionally, they don't hang Emacs on failures. + + Obsolete libraries, functions, and variables: + + * The 'ess-r-args.el' library has been obsoleted and will be removed + in the next release. Use 'eldoc-mode' instead, which is on by + default. + + * Functions and options dealing with the smart assign key are + obsolete. The following functions have been made obsolete and will + be removed in the next release of ESS: 'ess-smart-S-assign', + 'ess-toggle-S-assign', 'ess-toggle-S-assign-key', + 'ess-disable-smart-S-assign'. + + The variable 'ess-smart-S-assign-key' is now deprecated and will be + removed in the next release. If you would like to continue using + '_' for insterting assign in future releases, please bind + 'ess-insert-assign' in 'ess-mode-map' the normal way. + + * ESS[S]: Variable 'ess-s-versions-list' is obsolete and ignored. + Use 'ess-s-versions' instead. You may pass arguments by starting + the inferior process with the universal argument. + + Changes and New Features in 17.11: + + * The ESS initialisation process has been streamlined. You can now + load the R and Stata modes independently from the rest of ESS. Just + put '(require 'ess-r-mode)' or '(require 'ess-stata-mode)' in your + init file. This is for experienced Emacs users as this requires + setting up autoloads for '.R' files manually. We will keep + maintaining 'ess-site' for easy loading of all ESS features. + + * Reloading and quitting the process is now more robust. If no + process is attached, ESS now switches automatically to one + (prompting you for selection if there are several running). + Reloading and quitting will now work during a debug session or when + R is prompting for input (for instance after a crash). Finally, + the window configuration is saved and restored after reloading to + prevent the buffer of the new process from capturing the cursor. + + * ESS[R]: New command 'ess-r-package-use-dir'. It sets the working + directory of the current process to the current package directory. + + * ESS[R] Lookup for references in inferior buffers has been improved. + New variable 'ess-r-package-source-roots' contains package + sub-directories which are searched recursively during the file + lookup point. Directories in 'ess-tracebug-search-path' are now + also searched recursively. + + * ESS[R] Namespaced evaluation is now automatically enabled only in + the 'R/' directory. This way ESS will not attempt to update + function definitions from a package if you are working from e.g. a + test file. + + Changes and New Features in 16.10: + + * ESS[R]: Syntax highlighting is now more consistent. Backquoted + names are not fontified as strings (since they really are + identifiers). Furthermore they are now correctly recognised when + they are function definitions or function calls. + * ESS[R]: Backquoted names and '%op%' operators are recognised as + sexp. This is useful for code navigation, e.g. with 'C-M-f' and + 'C-M-b'. + * ESS[R]: Integration of outline mode with roxygen examples fields. + You can use outline mode's code folding commands to fold the + examples field. This is especially nice to use with well + documented packages with long examples set. Set + 'ess-roxy-fold-examples' to non-nil to automatically fold the + examples field when you open a buffer. + * ESS[R]: New experimental feature: syntax highlighting in roxygen + examples fields. This is turned off by default. Set + 'ess-roxy-fontify-examples' to non-nil to try it out. + * ESS[R]: New package development command 'ess-r-devtools-ask' bound + to 'C-c C-w C-a'. It asks with completion for any devtools command + that takes 'pkg' as argument. + * ESS[R]: New command 'C-c C-e C-r' to reload the inferior process. + Currently only implemented for R. The R method runs + 'inferior-ess-r-reload-hook' on reloading. + * ESS[R]: 'ess-r-package-mode' is now activated in non-file buffers + as well. + + Bug fixes in 16.10: + * ESS[R]: Fix broken (un)flagging for debugging inside packages + * ESS[R]: Fixes (and improvements) in Package development + * ESS[R]: Completion no longer produces '...=' inside 'list( )'. + * ESS[R]: Better debugging and tracing in packages. + * ESS[R]: Better detection of symbols at point. + * ESS[R]: No more spurious warnings on deletion of temporary files. + * ESS[julia]: help and completion work (better) + * ESS[julia]: available via 'ess-remote' + + Changes and New Features in 16.04: + + * ESS[R]: 'developer' functionality has been refactored. The new + user interface consists of a single command + 'ess-r-set-evaluation-env' bound by default to 'C-c C-t C-s'. Once + an evaluation environment has been set with, all subsequent ESS + evaluation will source the code into that environment. By default, + for file within R packages the evaluation environment is set to the + package environment. Set 'ess-r-package-auto-set-evaluation-env' + to 'nil' to disable this. + * ESS[R]: New 'ess-r-package-mode' This development mode provides + features to make package development easier. Currently, most of + the commands are based on the 'devtools' packages and are + accessible with 'C-c C-w' prefix. See the documentation of + 'ess-r-package-mode' function for all available commands. With + 'C-u' prefix each command asks for extra arguments to the + underlying devtools function. This mode is automatically enabled + in all files within R packages and is indicated with '[pkg:NAME]' + in the mode-line. + * ESS[R]: Help lookup has been improved. It is now possible to get + help for namespaced objects such as pkg::foobar. Furthermore, ESS + recognizes more reliably when you change 'options('html_type')'. + * ESS[R]: New specialized breakpoints for debugging magrittr pipes + * ESS: ESS now implements a simple message passing interface to + communicate between ESS and inferior process. + + Bug fixes in 16.04: + * ESS[R]: Roxygen blocks with backtics are now correctly filled + * ESS[R]: Don't skip breakpoints in magrittr's 'debug_pipe' + * ESS[R]: Error highlighting now understands 'testthat' type errors + * ESS[Julia]: Added getwd and setwd generic commands + + + +Tag Table: +Node: Announce75 +Node: Latest Version1311 +Node: Installing from a third-party repository2254 +Node: Installing from source3205 +Node: Activating and Loading ESS4801 +Node: Check Installation5879 +Node: Current Features6103 +Node: Requirements7646 +Node: Mailing List8081 +Node: Reporting Bugs8807 +Node: Authors9687 +Node: License10371 +Node: New Features11021 + +End Tag Table diff --git a/elpa/ess-20190121.1430/authors.info b/elpa/ess-20190121.1430/authors.info new file mode 100644 index 00000000..9db52814 --- /dev/null +++ b/elpa/ess-20190121.1430/authors.info @@ -0,0 +1,19 @@ +This is authors.info, produced by makeinfo version 6.5 from +authors.texi. + + * A.J. Rossini (mailto:blindglobe@gmail.com) + * Richard M. Heiberger (mailto:rmh@temple.edu) + * Kurt Hornik (mailto:Kurt.Hornik@R-project.org) + * Martin Maechler (mailto:maechler@stat.math.ethz.ch) + * Rodney A. Sparapani (mailto:rsparapa@mcw.edu) + * Stephen Eglen (mailto:stephen@gnu.org) + * Sebastian P. Luque (mailto:spluque@gmail.com) + * Henning Redestig (mailto:henning.red@googlemail.com) + * Vitalie Spinu (mailto:spinuvit@gmail.com) + * Lionel Henry (mailto:lionel.hry@gmail.com) + * J. Alexander Branham (mailto:alex.branham@gmail.com) + + +Tag Table: + +End Tag Table diff --git a/elpa/ess-20190121.1430/bugrept.info b/elpa/ess-20190121.1430/bugrept.info new file mode 100644 index 00000000..0da6c159 --- /dev/null +++ b/elpa/ess-20190121.1430/bugrept.info @@ -0,0 +1,26 @@ +This is bugrept.info, produced by makeinfo version 6.5 from +bugrept.texi. + +Please send bug reports, suggestions etc. to , +or post them on our github issue tracker +(https://github.com/emacs-ess/ESS/issues) + + The easiest way to do this is within Emacs by typing + + 'M-x ess-submit-bug-report' + + This also gives the maintainers valuable information about your +installation which may help us to identify or even fix the bug. + + If Emacs reports an error, backtraces can help us debug the problem. +Type "M-x set-variable RET debug-on-error RET t RET". Then run the +command that causes the error and you should see a *Backtrace* buffer +containing debug information; send us that buffer. + + Note that comments, suggestions, words of praise and large cash +donations are also more than welcome. + + +Tag Table: + +End Tag Table diff --git a/elpa/ess-20190121.1430/credits.info b/elpa/ess-20190121.1430/credits.info new file mode 100644 index 00000000..254e77f4 --- /dev/null +++ b/elpa/ess-20190121.1430/credits.info @@ -0,0 +1,81 @@ +This is credits.info, produced by makeinfo version 6.5 from +credits.texi. + +The ESS environment is built on the open-source projects of many +contributors, dating back to 1989 where Doug Bates and Ed Kademan wrote +S-mode to edit S and Splus files in GNU Emacs. Frank Ritter and Mike +Meyer added features, creating version 2. Meyer and David Smith made +further contributions, creating version 3. For version 4, David Smith +provided significant enhancements to allow for powerful process +interaction. + + John Sall wrote GNU Emacs macros for SAS source code around 1990. +Tom Cook added functions to submit jobs, review listing and log files, +and produce basic views of a dataset, thus creating a SAS-mode which was +distributed in 1994. + + In 1994, A.J. Rossini extended S-mode to support XEmacs. Together +with extensions written by Martin Maechler, this became version 4.7 and +supported S, Splus, and R. In 1995, Rossini extended SAS-mode to work +with XEmacs. + + In 1997, Rossini merged S-mode and SAS-mode into a single Emacs +package for statistical programming; the product of this marriage was +called ESS version 5. Richard M. Heiberger designed the inferior mode +for interactive SAS and SAS-mode was further integrated into ESS. Thomas +Lumley's Stata mode, written around 1996, was also folded into ESS. More +changes were made to support additional statistical languages, +particularly XLispStat. + + ESS initially worked only with Unix statistics packages that used +standard-input and standard-output for both the command-line interface +and batch processing. ESS could not communicate with statistical +packages that did not use this protocol. This changed in 1998 when +Brian Ripley demonstrated use of the Windows Dynamic Data Exchange (DDE) +protocol with ESS. Heiberger then used DDE to provide interactive +interfaces for Windows versions of Splus. In 1999, Rodney A. Sparapani +and Heiberger implemented SAS batch for ESS relying on files, rather +than standard-input/standard-output, for Unix, Windows and Mac. In +2001, Sparapani added BUGS batch file processing to ESS for Unix and +Windows. + + * The multiple process code, and the idea for + 'ess-eval-line-and-next-line' are by Rod Ball. + + * Thanks to Doug Bates for many useful suggestions. + + * Thanks to Martin Maechler for reporting and fixing bugs, providing + many useful comments and suggestions, and for maintaining the ESS + mailing lists. + + * Thanks to Frank Ritter for updates, particularly the menu code, and + invaluable comments on the manual. + + * Thanks to Ken'ichi Shibayama for his excellent indenting code, and + many comments and suggestions. + + * Thanks to Aki Vehtari for adding interactive BUGS support. + + * Thanks to Brendan Halpin for bug-fixes and updates to Stata-mode. + + * Last, but definitely not least, thanks to the many ESS users and + contributors to the ESS mailing lists. + + _ESS_ is being developed and currently maintained by + + * A.J. Rossini (mailto:blindglobe@gmail.com) + * Richard M. Heiberger (mailto:rmh@temple.edu) + * Kurt Hornik (mailto:Kurt.Hornik@R-project.org) + * Martin Maechler (mailto:maechler@stat.math.ethz.ch) + * Rodney A. Sparapani (mailto:rsparapa@mcw.edu) + * Stephen Eglen (mailto:stephen@gnu.org) + * Sebastian P. Luque (mailto:spluque@gmail.com) + * Henning Redestig (mailto:henning.red@googlemail.com) + * Vitalie Spinu (mailto:spinuvit@gmail.com) + * Lionel Henry (mailto:lionel.hry@gmail.com) + * J. Alexander Branham (mailto:alex.branham@gmail.com) + + +Tag Table: + +End Tag Table diff --git a/elpa/ess-20190121.1430/currfeat.info b/elpa/ess-20190121.1430/currfeat.info new file mode 100644 index 00000000..63300d7c --- /dev/null +++ b/elpa/ess-20190121.1430/currfeat.info @@ -0,0 +1,42 @@ +This is currfeat.info, produced by makeinfo version 6.5 from +currfeat.texi. + + * Languages Supported: + * S family (R, S, and S+ AKA S-PLUS) + * SAS + * BUGS/JAGS + * Stata + * Julia + * Editing source code (S family, SAS, BUGS/JAGS, Stata, Julia) + * Syntactic indentation and highlighting of source code + * Partial evaluation of code + * Loading and error-checking of code + * Source code revision maintenance + * Batch execution (SAS, BUGS/JAGS) + * Use of imenu to provide links to appropriate functions + * Interacting with the process (S family, SAS, Stata, Julia) + * Command-line editing + * Searchable Command history + * Command-line completion of S family object names and file + names + * Quick access to object lists and search lists + * Transcript recording + * Interface to the help system + * Transcript manipulation (S family, Stata) + * Recording and saving transcript files + * Manipulating and editing saved transcripts + * Re-evaluating commands from transcript files + * Interaction with Help Pages and other Documentation (R) + * Fast Navigation + * Sending Examples to running ESS process. + * Fast Transfer to Further Help Pages + * Help File Editing (R) + * Syntactic indentation and highlighting of source code. + * Sending Examples to running ESS process. + * Previewing + + + +Tag Table: + +End Tag Table diff --git a/elpa/ess-20190121.1430/dir b/elpa/ess-20190121.1430/dir new file mode 100644 index 00000000..3623cfa5 --- /dev/null +++ b/elpa/ess-20190121.1430/dir @@ -0,0 +1,19 @@ +This is the file .../info/dir, which contains the +topmost node of the Info hierarchy, called (dir)Top. +The first time you invoke Info you start off looking at this node. + +File: dir, Node: Top, This is the top of the INFO tree + + This (the Directory node) gives a menu of major topics. + Typing "q" exits, "?" lists all Info commands, "d" returns here, + "h" gives a primer for first-timers, + "mEmacs" visits the Emacs manual, etc. + + In Emacs, you can click mouse button 2 on a menu item or cross reference + to select it. + +* Menu: + +Emacs +* ESS: (ess). Emacs Speaks Statistics (R/S/S+, SAS, + BUGS/JAGS and Stata). diff --git a/elpa/ess-20190121.1430/ess-autoloads.el b/elpa/ess-20190121.1430/ess-autoloads.el new file mode 100644 index 00000000..a04d2710 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-autoloads.el @@ -0,0 +1,603 @@ +;;; ess-autoloads.el --- automatically extracted autoloads +;; +;;; Code: + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + + +;;;### (autoloads nil "ess" "ess.el" (0 0 0 0)) +;;; Generated autoloads from ess.el + +(autoload 'ess-version "ess" "\ +Return a string with ESS version information. + +\(fn)" t nil) + +(autoload 'ess-submit-bug-report "ess" "\ +Submit a bug report to the ESS maintainers. + +\(fn)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess" '("ess"))) + +;;;*** + +;;;### (autoloads nil "ess-bugs-d" "ess-bugs-d.el" (0 0 0 0)) +;;; Generated autoloads from ess-bugs-d.el + +(autoload 'ess-bugs-mode "ess-bugs-d" "\ +Major mode for BUGS. + +\(fn)" t nil) + +(add-to-list 'auto-mode-alist '("\\.[Bb][Uu][Gg]\\'" . ess-bugs-mode)) + +(add-to-list 'auto-mode-alist '("\\.[Bb][Oo][Gg]\\'" . ess-bugs-mode)) + +(add-to-list 'auto-mode-alist '("\\.[Bb][Mm][Dd]\\'" . ess-bugs-mode)) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-bugs-d" '("ess-"))) + +;;;*** + +;;;### (autoloads nil "ess-bugs-l" "ess-bugs-l.el" (0 0 0 0)) +;;; Generated autoloads from ess-bugs-l.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-bugs-l" '("ess-bugs-"))) + +;;;*** + +;;;### (autoloads nil "ess-custom" "ess-custom.el" (0 0 0 0)) +;;; Generated autoloads from ess-custom.el + (put 'ess-style 'safe-local-variable #'symbolp) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-custom" '("ess-" "inferior-" "comint-highlight-prompt" "SAS-mode-hook" "S+" "S-" "Rnw-mode-hook" "R-"))) + +;;;*** + +;;;### (autoloads nil "ess-gretl" "ess-gretl.el" (0 0 0 0)) +;;; Generated autoloads from ess-gretl.el + +(autoload 'ess-gretl-mode "ess-gretl" "\ +Major mode for editing gretl source. See `ess-mode' for more help. + +\(fn)" t nil) + +(autoload 'gretl "ess-gretl" "\ +Call 'gretl', +Optional prefix (C-u) allows to set command line arguments, such as +--vsize. This should be OS agnostic. +If you have certain command line arguments that should always be passed +to gretl, put them in the variable `inferior-gretl-args'. + +\(fn &optional START-ARGS)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-gretl" '("ess-gretl-" "inferior-gretl-args" "gretl-"))) + +;;;*** + +;;;### (autoloads nil "ess-help" "ess-help.el" (0 0 0 0)) +;;; Generated autoloads from ess-help.el + +(autoload 'ess-display-help-on-object "ess-help" "\ +Display documentation for OBJECT in another window. +If prefix arg is given, force an update of the cached help topics +and query the ESS process for the help file instead of reusing an +existing buffer if it exists. Uses the variable +`inferior-ess-help-command' for the actual help command. Prompts +for the object name based on the cursor location for all cases +except the S-Plus GUI. With S-Plus on Windows (both GUI and in an +inferior Emacs buffer) the GUI help window is used. If COMMAND is +suplied, it is used instead of `inferior-ess-help-command'. + +\(fn OBJECT &optional COMMAND)" t nil) + +(defalias 'ess-help 'ess-display-help-on-object) + +(autoload 'ess-goto-info "ess-help" "\ +Display node NODE from `ess-mode' info. + +\(fn NODE)" nil nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-help" '("ess-"))) + +;;;*** + +;;;### (autoloads nil "ess-inf" "ess-inf.el" (0 0 0 0)) +;;; Generated autoloads from ess-inf.el + +(autoload 'ess-load-file "ess-inf" "\ +Load FILENAME into an inferior ESS process. +This handles Tramp when working on a remote. + +\(fn &optional FILENAME)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-inf" '("ess-" "inferior-ess" "update-ess-process-name-list" "with-ess-process-buffer"))) + +;;;*** + +;;;### (autoloads nil "ess-jags-d" "ess-jags-d.el" (0 0 0 0)) +;;; Generated autoloads from ess-jags-d.el + +(autoload 'ess-jags-mode "ess-jags-d" "\ +Major mode for JAGS. + +\(fn)" t nil) + +(add-to-list 'auto-mode-alist '("\\.[Jj][Aa][Gg]\\'" . ess-jags-mode)) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-jags-d" '("ess-jags-"))) + +;;;*** + +;;;### (autoloads nil "ess-julia" "ess-julia.el" (0 0 0 0)) +;;; Generated autoloads from ess-julia.el + +(autoload 'ess-julia-mode "ess-julia" "\ +Major mode for julia files. + +\(fn)" t nil) + +(autoload 'julia "ess-julia" "\ +Start an inferior julia process. +Optional prefix START-ARGS (\\[universal-argument]) allows to set +command line arguments, such as --load=. This should be OS +agnostic. If you have certain command line arguments that should +always be passed to julia, put them in the variable +`inferior-julia-args'. + +\(fn &optional START-ARGS)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-julia" '("ess-" "inferior-" "company-ess-julia-objects" "ac-source-ess-julia-objects"))) + +;;;*** + +;;;### (autoloads nil "ess-mode" "ess-mode.el" (0 0 0 0)) +;;; Generated autoloads from ess-mode.el + +(autoload 'ess-mode "ess-mode" "\ +Major mode for editing ESS source. +Optional arg ALIST describes how to customize the editing mode. +Optional arg PROC-NAME is name of associated inferior process. + +\\{ess-mode-map} + +You can send text to the inferior ESS process from other buffers containing +ESS source. + `ess-eval-region' sends the current region to the ESS process. + `ess-eval-buffer' sends the current buffer to the ESS process. + `ess-eval-function' sends the current function to the ESS process. + `ess-eval-line' sends the current line to the ESS process. + `ess-switch-to-ESS' switches the current buffer to the ESS process buffer. + `ess-switch-to-end-of-ESS' switches the current buffer to the ESS process + buffer and puts point at the end of it. + + `ess-eval-region-and-go', `ess-eval-buffer-and-go', + `ess-eval-function-and-go', and `ess-eval-line-and-go' switch to the S + process buffer after sending their text. + + `ess-load-file' sources a file of commands to the ESS process. + +\\[ess-indent-command] indents for ESS code. +\\[backward-delete-char-untabify] converts tabs to spaces as it moves back. +Comments are indented in a similar way to Emacs-lisp mode: + `###' beginning of line + `##' the same level of indentation as the code + `#' the same column on the right, or to the right of such a + column if that is not possible.(default value 40). + \\[indent-for-comment] command automatically inserts such a + `#' in the right place, or aligns such a comment if it is + already inserted. +\\[ess-indent-exp] command indents each line of the syntactic unit following point. + +Variables controlling indentation style: + `ess-tab-always-indent' + Non-nil means TAB in ESS mode should always reindent the current line, + regardless of where in the line point is when the TAB command is used. + `ess-auto-newline' + Non-nil means automatically newline before and after braces inserted in S + code. + `ess-indent-offset' + Indentation of ESS statements within surrounding block. + The surrounding block's indentation is the indentation of the line on + which the open-brace appears. + `ess-offset-block' + Indentation of blocks opened with curly braces or anonymous parentheses. + `ess-offset-arguments' + Indentation of function arguments or bracket indices. + `ess-offset-arguments-newline' + Indentation of function arguments or bracket indices when the opening + delimiter is immediately followed by a newline. + `ess-offset-continued' + Indentation style for continued statements. + `ess-align-nested-calls' + Functions whose nested calls should be aligned. + `ess-align-arguments-in-calls' + Calls in which arguments should be aligned. + `ess-align-continuations-in-calls' + Whether ignore indentation after an operator in calls + `ess-align-blocks' + Blocks that should always be aligned vertically. + `ess-indent-from-lhs' + Whether function calls given as argument should be indented from the + parameter name. + `ess-indent-from-chain-start' + Whether to indent arguments from the first of several consecutive calls. + `ess-indent-with-fancy-comments' + Non-nil means distinguish between #, ##, and ### for indentation. + +Furthermore, \\[ess-set-style] command enables you to set up predefined ess-mode +indentation style. See `ess-style-alist' for predefined styles. + +\(fn)" t nil) + +(autoload 'ess-dump-object-into-edit-buffer "ess-mode" "\ +Edit an ESS OBJECT in its own buffer. +Without a prefix argument, this simply finds the file pointed to by +`ess-source-directory'. If this file does not exist, or if a +prefix argument is given, a dump() command is sent to the ESS process to +generate the source buffer. + +\(fn OBJECT)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-mode" '("ess-"))) + +;;;*** + +;;;### (autoloads nil "ess-mouse" "ess-mouse.el" (0 0 0 0)) +;;; Generated autoloads from ess-mouse.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-mouse" '("ess-"))) + +;;;*** + +;;;### (autoloads nil "ess-r-a" "ess-r-a.el" (0 0 0 0)) +;;; Generated autoloads from ess-r-a.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-a" '("pd::set-up-demo" "ess"))) + +;;;*** + +;;;### (autoloads nil "ess-r-completion" "ess-r-completion.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from ess-r-completion.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-completion" '("ess-" "ac-source-R" "company-R-"))) + +;;;*** + +;;;### (autoloads nil "ess-r-flymake" "ess-r-flymake.el" (0 0 0 0)) +;;; Generated autoloads from ess-r-flymake.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-flymake" '("ess-r-"))) + +;;;*** + +;;;### (autoloads nil "ess-r-mode" "ess-r-mode.el" (0 0 0 0)) +;;; Generated autoloads from ess-r-mode.el + +(defvar ess-dev-map (let (ess-dev-map) (define-prefix-command 'ess-dev-map) (define-key ess-dev-map "" 'ess-r-set-evaluation-env) (define-key ess-dev-map "s" 'ess-r-set-evaluation-env) (define-key ess-dev-map "T" 'ess-toggle-tracebug) (define-key ess-dev-map "\f" 'ess-r-devtools-load-package) (define-key ess-dev-map "l" 'ess-r-devtools-load-package) (define-key ess-dev-map "`" 'ess-show-traceback) (define-key ess-dev-map "~" 'ess-show-call-stack) (define-key ess-dev-map "" 'ess-watch) (define-key ess-dev-map "w" 'ess-watch) (define-key ess-dev-map "" 'ess-debug-flag-for-debugging) (define-key ess-dev-map "d" 'ess-debug-flag-for-debugging) (define-key ess-dev-map "" 'ess-debug-unflag-for-debugging) (define-key ess-dev-map "u" 'ess-debug-unflag-for-debugging) (define-key ess-dev-map [(control 68)] 'ess-debug-unflag-for-debugging) (define-key ess-dev-map "" 'ess-bp-set) (define-key ess-dev-map "b" 'ess-bp-set) (define-key ess-dev-map [(control 66)] 'ess-bp-set-conditional) (define-key ess-dev-map "B" 'ess-bp-set-conditional) (define-key ess-dev-map "\f" 'ess-bp-set-logger) (define-key ess-dev-map "L" 'ess-bp-set-logger) (define-key ess-dev-map "" 'ess-bp-toggle-state) (define-key ess-dev-map "o" 'ess-bp-toggle-state) (define-key ess-dev-map " " 'ess-bp-kill) (define-key ess-dev-map "k" 'ess-bp-kill) (define-key ess-dev-map " " 'ess-bp-kill-all) (define-key ess-dev-map "K" 'ess-bp-kill-all) (define-key ess-dev-map "" 'ess-bp-next) (define-key ess-dev-map "n" 'ess-bp-next) (define-key ess-dev-map "i" 'ess-debug-goto-input-event-marker) (define-key ess-dev-map "I" 'ess-debug-goto-input-event-marker) (define-key ess-dev-map "" 'ess-bp-previous) (define-key ess-dev-map "p" 'ess-bp-previous) (define-key ess-dev-map "" 'ess-debug-toggle-error-action) (define-key ess-dev-map "e" 'ess-debug-toggle-error-action) (define-key ess-dev-map "0" 'ess-electric-selection) (define-key ess-dev-map "1" 'ess-electric-selection) (define-key ess-dev-map "2" 'ess-electric-selection) (define-key ess-dev-map "3" 'ess-electric-selection) (define-key ess-dev-map "4" 'ess-electric-selection) (define-key ess-dev-map "5" 'ess-electric-selection) (define-key ess-dev-map "6" 'ess-electric-selection) (define-key ess-dev-map "7" 'ess-electric-selection) (define-key ess-dev-map "8" 'ess-electric-selection) (define-key ess-dev-map "9" 'ess-electric-selection) (define-key ess-dev-map "?" 'ess-tracebug-show-help) ess-dev-map) "\ +Keymap for commands related to development and debugging.") + +(autoload 'run-ess-r "ess-r-mode" "\ +Call 'R', the 'GNU S' system from the R Foundation. +Optional prefix (\\[universal-argument]) allows to set command line arguments, such as +--vsize. This should be OS agnostic. +If you have certain command line arguments that should always be passed +to R, put them in the variable `inferior-R-args'. + +START-ARGS can be a string representing an argument, a list of +such strings, or any other non-nil value. In the latter case, you +will be prompted to enter arguments interactively. + +\(fn &optional START-ARGS)" t nil) + +(defalias 'R #'run-ess-r) + +(autoload 'ess-r-mode "ess-r-mode" "\ +Major mode for editing R source. See `ess-mode' for more help. + +\(fn)" t nil) + +(defalias 'R-mode 'ess-r-mode) + +(defalias 'r-mode 'ess-r-mode) + +(add-to-list 'auto-mode-alist '("/R/.*\\.q\\'" . ess-r-mode)) + +(add-to-list 'auto-mode-alist '("\\.[rR]\\'" . ess-r-mode)) + +(add-to-list 'auto-mode-alist '("\\.[rR]profile\\'" . ess-r-mode)) + +(add-to-list 'auto-mode-alist '("NAMESPACE\\'" . ess-r-mode)) + +(add-to-list 'auto-mode-alist '("CITATION\\'" . ess-r-mode)) + +(autoload 'ess-r-transcript-mode "ess-r-mode" "\ +A Major mode for R transcript files. + +\(fn)" t nil) + +(add-to-list 'auto-mode-alist '("\\.[Rr]out" . ess-r-transcript-mode)) + +(add-to-list 'interpreter-mode-alist '("Rscript" . ess-r-mode)) + +(add-to-list 'interpreter-mode-alist '("r" . ess-r-mode)) + +(add-to-list 'auto-mode-alist '("/Makevars\\(\\.win\\)?$" . makefile-mode)) + +(add-to-list 'auto-mode-alist '("DESCRIPTION$" . conf-colon-mode)) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-mode" '("ess-" "inferior-ess-r-" "R-"))) + +;;;*** + +;;;### (autoloads nil "ess-r-package" "ess-r-package.el" (0 0 0 0)) +;;; Generated autoloads from ess-r-package.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-package" '("ess-"))) + +;;;*** + +;;;### (autoloads nil "ess-r-syntax" "ess-r-syntax.el" (0 0 0 0)) +;;; Generated autoloads from ess-r-syntax.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-syntax" '("ess-" "backward-ess-r-" "forward-ess-r-"))) + +;;;*** + +;;;### (autoloads nil "ess-r-xref" "ess-r-xref.el" (0 0 0 0)) +;;; Generated autoloads from ess-r-xref.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-r-xref" '("ess-r-xref-"))) + +;;;*** + +;;;### (autoloads nil "ess-rd" "ess-rd.el" (0 0 0 0)) +;;; Generated autoloads from ess-rd.el + +(autoload 'Rd-mode "ess-rd" "\ +Major mode for editing R documentation source files. + +Type \\[list-abbrevs] to display the built-in abbrevs for Rd +keywords.To automatically turn on the abbrev(iate) features, add +the following to your Emacs configuration file: + + (add-hook 'Rd-mode-hook #'abbrev-mode) + +\(fn)" t nil) + +(add-to-list 'auto-mode-alist '("\\.Rd\\'" . Rd-mode)) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-rd" '("Rd-" "ess-point"))) + +;;;*** + +;;;### (autoloads nil "ess-rdired" "ess-rdired.el" (0 0 0 0)) +;;; Generated autoloads from ess-rdired.el + +(autoload 'ess-rdired "ess-rdired" "\ +Show R objects from the global environment in a separate buffer. +You may interact with these objects, see `ess-rdired-mode' for +details. + +\(fn)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-rdired" '("ess-rdired-"))) + +;;;*** + +;;;### (autoloads nil "ess-roxy" "ess-roxy.el" (0 0 0 0)) +;;; Generated autoloads from ess-roxy.el + +(autoload 'ess-roxy-mode "ess-roxy" "\ +Minor mode for editing ROxygen documentation. + +\(fn &optional ARG)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-roxy" '("ess-"))) + +;;;*** + +;;;### (autoloads nil "ess-rutils" "ess-rutils.el" (0 0 0 0)) +;;; Generated autoloads from ess-rutils.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-rutils" '("ess-rutils-"))) + +;;;*** + +;;;### (autoloads nil "ess-s-lang" "ess-s-lang.el" (0 0 0 0)) +;;; Generated autoloads from ess-s-lang.el + +(add-to-list 'auto-mode-alist '("\\.[Ss]t\\'" . S-transcript-mode)) + +(add-to-list 'auto-mode-alist '("\\.Sout" . S-transcript-mode)) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-s-lang" '("ess-" "S+common-cust-alist" "S-" "inferior-S-language-start"))) + +;;;*** + +;;;### (autoloads nil "ess-sas-a" "ess-sas-a.el" (0 0 0 0)) +;;; Generated autoloads from ess-sas-a.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sas-a" '("ess-" "sas-program"))) + +;;;*** + +;;;### (autoloads nil "ess-sas-d" "ess-sas-d.el" (0 0 0 0)) +;;; Generated autoloads from ess-sas-d.el + +(autoload 'SAS-mode "ess-sas-d" "\ +Major mode for editing SAS source. See `ess-mode' for more help. + +\(fn)" t nil) + +(add-to-list 'auto-mode-alist '("\\.[Ss][Aa][Ss]\\'" . SAS-mode)) + +(autoload 'SAS-menu "ess-sas-d" "\ +Start SAS from the menu. + +\(fn)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sas-d" '("ess-" "SAS" "inferior-SAS-args"))) + +;;;*** + +;;;### (autoloads nil "ess-sas-l" "ess-sas-l.el" (0 0 0 0)) +;;; Generated autoloads from ess-sas-l.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sas-l" '("ess-" "set-sas-file-" "submit-sas" "switch-to-" "sas-" "beginning-of-sas-" "backward-page-top-of-window" "fix-page-breaks" "forward-page-top-of-window" "next-sas-proc" "indent-sas-statement" "SAS-"))) + +;;;*** + +;;;### (autoloads nil "ess-site" "ess-site.el" (0 0 0 0)) +;;; Generated autoloads from ess-site.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-site" '("ess-"))) + +;;;*** + +;;;### (autoloads nil "ess-sp6-d" "ess-sp6-d.el" (0 0 0 0)) +;;; Generated autoloads from ess-sp6-d.el + +(autoload 'S+-mode "ess-sp6-d" "\ +Major mode for editing S+ source. See `ess-mode' for more help. + +\(fn &optional PROC-NAME)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-sp6-d" '("ess-" "S+"))) + +;;;*** + +;;;### (autoloads nil "ess-stata-lang" "ess-stata-lang.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from ess-stata-lang.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-stata-lang" '("ess-" "stata-" "STA-editing-alist" "ado-set-font-lock-keywords"))) + +;;;*** + +;;;### (autoloads nil "ess-stata-mode" "ess-stata-mode.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from ess-stata-mode.el + +(autoload 'ess-stata-mode "ess-stata-mode" "\ +Major mode for editing Stata source. + +\(fn)" t nil) + +(add-to-list 'auto-mode-alist '("\\.do\\'" . ess-stata-mode)) + +(add-to-list 'auto-mode-alist '("\\.ado\\'" . ess-stata-mode)) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-stata-mode" '("stata" "ess-" "Stata-mode" "STA-" "inferior-ess-stata-mode"))) + +;;;*** + +;;;### (autoloads nil "ess-toolbar" "ess-toolbar.el" (0 0 0 0)) +;;; Generated autoloads from ess-toolbar.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-toolbar" '("ess-"))) + +;;;*** + +;;;### (autoloads nil "ess-tracebug" "ess-tracebug.el" (0 0 0 0)) +;;; Generated autoloads from ess-tracebug.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-tracebug" '("ess-" "org-" "inferior-ess-"))) + +;;;*** + +;;;### (autoloads nil "ess-trns" "ess-trns.el" (0 0 0 0)) +;;; Generated autoloads from ess-trns.el + +(autoload 'ess-transcript-mode "ess-trns" "\ +Major mode for transcript files. + +Type \\[ess-transcript-send-command] to send a command in the +transcript to the current inferior process. \\[ess-transcript-copy-command] +copies the command but does not execute it, allowing you to edit it in +the process buffer first. + +Type \\[ess-transcript-clean-region] to delete all outputs and prompts +in the region, leaving only the commands. + +\(fn)" t nil) + +(autoload 'ess-transcript-clean-region "ess-trns" "\ +Strip the transcript in the region, leaving only (R/S/Lsp/..) commands. +Deletes any lines not beginning with a prompt, and then removes the +prompt from those lines that remain. Prefix argument means to +clean even if the buffer is \\[read-only]. + +\(fn BEG END EVEN-IF-READ-ONLY)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-trns" '("ess-transcript-"))) + +;;;*** + +;;;### (autoloads nil "ess-utils" "ess-utils.el" (0 0 0 0)) +;;; Generated autoloads from ess-utils.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ess-utils" '("ess-"))) + +;;;*** + +;;;### (autoloads nil "essd-els" "essd-els.el" (0 0 0 0)) +;;; Generated autoloads from essd-els.el + +(autoload 'ess-remote "essd-els" "\ +Execute this command from within a buffer running a process. It +runs `ess-add-ess-process' to add the process to +`ess-process-name-alist' and to make it the +`ess-current-process-name'. It then prompts the user for an ESS +language and sets the editing characteristics appropriately. + +To use this command, first start a process on a remote computer by +manual use of telnet, rlogin, ssh, or some other protocol. Start the +relevant program (\"S\" or \"R\" or \"sas -stdio\") in that buffer. Once +you are talking to S or R or SAS, then execute `ess-remote' to make +the current buffer an inferior-ess buffer with the right behavior for +the language you are currently working with. With S and R, use C-c +C-n to send lines over. With SAS, use C-c i +`ess-eval-line-and-step-invisibly' to send lines over invisibly. + +DIALECT is the desired ess-dialect. If nil, ask for dialect + +\(fn &optional PROC-NAME DIALECT)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "essd-els" '("ess-" "S+elsewhere" "inferior-ess-remote-pager"))) + +;;;*** + +;;;### (autoloads nil "make-regexp" "make-regexp.el" (0 0 0 0)) +;;; Generated autoloads from make-regexp.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "make-regexp" '("make-regexp" "regexp-span"))) + +;;;*** + +;;;### (autoloads nil "mouseme" "mouseme.el" (0 0 0 0)) +;;; Generated autoloads from mouseme.el + +(autoload 'mouse-me "mouseme" "\ +Popup a menu of functions to run on selected string or region. + +\(fn EVENT)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "mouseme" '("mouse-me-"))) + +;;;*** + +;;;### (autoloads nil nil ("ess-pkg.el") (0 0 0 0)) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; ess-autoloads.el ends here diff --git a/elpa/ess-20190121.1430/ess-bugs-d.el b/elpa/ess-20190121.1430/ess-bugs-d.el new file mode 100644 index 00000000..a2dee0df --- /dev/null +++ b/elpa/ess-20190121.1430/ess-bugs-d.el @@ -0,0 +1,297 @@ +;;; ess-bugs-d.el --- ESS[BUGS] dialect + +;; Copyright (C) 2008-2011 Rodney Sparapani + +;; Author: Rodney Sparapani +;; Created: 13 March 2008 +;; Maintainer: ESS-help + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Code: + +(require 'ess-bugs-l) +(require 'ess-utils) +(require 'ess-inf) +(require 'ess-custom) +(require 'ess-mode) + +(defvar ess-bugs-command "OpenBUGS" "Default BUGS program in PATH.") +(make-local-variable 'ess-bugs-command) + +(defvar ess-bugs-monitor '("") "Default list of variables to monitor.") +(make-local-variable 'ess-bugs-monitor) + +(defvar ess-bugs-thin 1 "Default thinning parameter.") +(make-local-variable 'ess-bugs-thin) + +(defvar ess-bugs-chains 1 "Default number of chains.") +(make-local-variable 'ess-bugs-chains) + +(defvar ess-bugs-burnin 10000 "Default burn-in.") +(make-local-variable 'ess-bugs-burnin) + +(defvar ess-bugs-update 10000 "Default number of updates after burnin.") +(make-local-variable 'ess-bugs-update) + +(defvar ess-bugs-system nil "Default whether BUGS recognizes the system command.") + +(defvar ess-bugs-font-lock-keywords + (list + ;; .bug files + (cons "#.*\n" font-lock-comment-face) + + (cons "^[ \t]*\\(model\\|var\\)\\>" + font-lock-keyword-face) + + (cons (concat "\\ " ess-bugs-file-root ".bog 2>&1 " + ;; ess-bugs-batch-post-command "' > " ess-bugs-file-root ".bsh") + ;; (comint-send-input) + + ;; (insert "at -f " ess-bugs-file-root ".bsh now") + + ;; (comint-send-input) + + (insert "echo '" + ess-bugs-batch-pre-command " " bugs-command " < " + ess-bugs-file-root ".bmd > " ess-bugs-file-root ".bog 2>&1 " + ess-bugs-batch-post-command "' | at now") + + (comint-send-input) + )) + +(defun ess-bugs-na-bug () + "ESS[BUGS]: Perform Next-Action for .bug" + + (if (equal 0 (buffer-size)) (ess-bugs-switch-to-suffix ".bug") + ;else + (ess-save-and-set-local-variables) + (ess-bugs-switch-to-suffix ".bmd" + ess-bugs-chains ess-bugs-monitor ess-bugs-thin ess-bugs-burnin ess-bugs-update)) + ) + +;;;###autoload +(define-derived-mode ess-bugs-mode ess-mode "ESS[BUGS]" + "Major mode for BUGS." + (setq-local comment-start "#") + (setq font-lock-defaults '(ess-bugs-font-lock-keywords nil t)) + (setq ess-language "S") ; mimic S for ess-smart-underscore + (unless (when (fboundp 'w32-shell-dos-semantics) + (w32-shell-dos-semantics)) + (add-hook 'comint-output-filter-functions 'ess-bugs-exit-notify-sh))) + +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.[Bb][Uu][Gg]\\'" . ess-bugs-mode)) +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.[Bb][Oo][Gg]\\'" . ess-bugs-mode)) +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.[Bb][Mm][Dd]\\'" . ess-bugs-mode)) + +(defun ess-sci-to-dec () + "For BUGS/S family: Express +/-0.000E+/-0 or +/-0.0e+/-00 as a decimal." + (interactive) + (setq buffer-read-only nil) + (save-excursion (goto-char 0) + (save-match-data (let ((ess-temp-replacement-string nil) + (ess-temp-replacement-9 0) + (ess-temp-replacement-diff 0)) + (while (search-forward-regexp "-?[0-9][.][0-9][0-9]?[0-9]?[Ee][+-][0-9][0-9]?" nil t) + (setq ess-temp-replacement-string + (int-to-string (string-to-number (match-string 0)))) + (setq ess-temp-replacement-diff (- (match-end 0) (match-beginning 0))) + (save-match-data + (setq ess-temp-replacement-9 + (string-match "99999999999$" ess-temp-replacement-string)) + + (if (not ess-temp-replacement-9) + (setq ess-temp-replacement-9 + (string-match "000000000001$" ess-temp-replacement-string)))) + + (if ess-temp-replacement-9 + (setq ess-temp-replacement-string + (substring ess-temp-replacement-string 0 ess-temp-replacement-9))) + + (setq ess-temp-replacement-diff + (- ess-temp-replacement-diff (string-width ess-temp-replacement-string))) + + (while (> ess-temp-replacement-diff 0) + (setq ess-temp-replacement-string (concat ess-temp-replacement-string " ")) + (setq ess-temp-replacement-diff (- ess-temp-replacement-diff 1))) + + (replace-match ess-temp-replacement-string)))))) + +(provide 'ess-bugs-d) + +;;; ess-bugs-d.el ends here diff --git a/elpa/ess-20190121.1430/ess-bugs-l.el b/elpa/ess-20190121.1430/ess-bugs-l.el new file mode 100644 index 00000000..a63f837f --- /dev/null +++ b/elpa/ess-20190121.1430/ess-bugs-l.el @@ -0,0 +1,289 @@ +;;; ess-bugs-l.el --- ESS[BUGS] languages + +;; Copyright (C) 2006-2011 Rodney Sparapani + +;; Author: Rodney Sparapani +;; Created: 16 August 2006 +;; Maintainer: ESS-help + +;; 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 +;; https://www.r-project.org/Licenses/ + + +;;; Code: + +(require 'font-lock) +(require 'shell) +(require 'comint) +(require 'ess-utils) +(require 'ess-custom) +(defvar ess-bugs-command) +(defvar ess-bugs-chains) +(defvar ess-jags-command) +(defvar ess-jags-chains) +(defvar ess-bugs-default-bins) + +(declare-function ess-bugs-na-bug "ess-bugs-d") +(declare-function ess-jags-na-bug "ess-jags-d") +(declare-function ess-bugs-na-bmd "ess-bugs-d") +(declare-function ess-jags-na-jmd "ess-jags-d") + +(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 + :type '(choice (const 'sh :tag "Bourne/C-like Unix Shell") + (const 'dos :tag "DOS-like Windows shell"))) + +(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 "%s" (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) + (pop-to-buffer-same-window (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-mode-hooks 'ess-bugs-shell-mode-hook) + ) + +(provide 'ess-bugs-l) + +;;; ess-bugs-l.el ends here diff --git a/elpa/ess-20190121.1430/ess-custom.el b/elpa/ess-20190121.1430/ess-custom.el new file mode 100644 index 00000000..8cc5d006 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-custom.el @@ -0,0 +1,2753 @@ +;;; ess-custom.el --- Customize variables for ESS -*- lexical-binding: t; -*- + +;; Copyright (C) 1997--2010 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. +;; Copyright (C) 2011--2015 A.J. Rossini, Richard M. Heiberger, Martin Maechler, +;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. + +;; Author: A.J. Rossini +;; Created: 05 June 2000 +;; Maintainer: ESS-core + +;; Keywords: languages + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Code: +(require 'comint) +(require 'custom) +(require 'executable) +(require 'font-lock) + +;; FIXME: When Emacs is started from Cygwin shell in Windows, +;; we have (equal window-system 'x) -and should use "--ess" in *d-r.el +(defvar ess-microsoft-p (memq system-type '(ms-dos windows-nt)) + "Value is t if the OS is one of Microsoft's, nil otherwise.") + + +;; Customization Groups + +(defgroup ess nil + "ESS: Emacs Speaks Statistics." + :group 'languages + :link '(info-link "(ESS)") + :link '(url-link "https://ess.r-project.org/")) + +(defgroup ess-edit nil + "ESS: editing behavior, including coments/indentation." + :group 'ess + :prefix "ess-") + +(defgroup ess-proc nil + "ESS: process control." + :group 'ess + :prefix "ess-") + +(defgroup ess-command nil + "ESS: Commands for various things." + :group 'ess + :prefix "ess-") + +(defgroup ess-help nil + "ESS: help functions." + :group 'ess + :prefix "ess-") + +(defgroup ess-hooks nil + "ESS: hooks for customization." + :group 'ess + :prefix "ess-") + +(defgroup ess-S nil + "ESS: S Languages." + :group 'ess + :prefix "ess-") + +(defgroup ess-origS nil + "ESS: Original S Dialect from Bell Labs/AT&T." + :group 'ess-S + :prefix "ess-") + +(defgroup ess-SPLUS nil + "ESS: S-PLUS Dialect of S." + :group 'ess-S + :prefix "ess-") + +(defgroup ess-R nil + "ESS: R Dialect of S." + :group 'ess-S + :prefix "ess-") + +(defgroup ess-Julia nil + "ESS: Julia." + :group 'ess + :prefix "julia-") + +(defgroup ess-sas nil + "ESS: SAS." + :group 'ess + :prefix "ess-") + +(defgroup ess-Stata nil + "ESS: Stata." + :group 'ess + :prefix "ess-") + +(defgroup ess-mouse nil ;; FIXME: this is not used yet <--> ./ess-mous.el + "ESS: Mouse." + :group 'ess + :prefix "ess-") + +(defgroup ess-roxy nil + "Mode for editing in-code Roxygen documentation." + :group 'ess + :group 'convenience + :group 'ess-extras + :prefix "ess-" ;; << -- added for ESS integration FIXME?? + :group 'tools) + +(defgroup ess-extras nil + "Extra utilities for ESS" + :group 'ess + :prefix "ess-") + +(defgroup ess-faces nil + "Faces and face options for ESS modes." + :group 'ess + :prefix "ess-") + + + ; User changeable variables + +;;*;; Options and Initialization + +;; Menus and pulldowns. + +(defcustom ess-imenu-use-p (fboundp 'imenu) + "Non-nil means use imenu facility. +This value can be overridden by mode-specific variables, such +as `ess-imenu-use-S'." + :group 'ess + :type 'boolean) + +(defcustom ess-imenu-use-S ess-imenu-use-p + "Non-nil means include an Imenu menu item in S buffers." + :group 'ess + :type 'boolean) + +(defcustom ess-auto-width-visible nil + "When non-nil, echo width setting in the inferior buffer. +See `ess-auto-width'. Be warned that ESS can set the width a +lot." + :group 'ess + :type 'boolean + :package-version '(ess . "19.04")) + +(defcustom ess-auto-width nil + "When non-nil, set the width option when the window configuration changes. +When 'frame, set the width to the frame width. When 'window, set +the width to the window width. If an integer, set the width to +that integer. Anything else is treated as 'window." + :group 'ess + :type '(choice (const :tag "Do nothing" :value nil) + (const :tag "Frame width" :value 'frame) + (const :tag "Window width" :value 'window) + (integer :tag "Integer value")) + :package-version '(ess . "19.04")) + +(defcustom ess-handy-commands '(("change-directory" . ess-change-directory) + ("install.packages" . ess-install-library) + ("library" . ess-library) + ("objects[ls]" . ess-execute-objects) + ("help-apropos" . ess-display-help-apropos) + ("help-index" . ess-display-package-index) + ("help-object" . ess-display-help-on-object) + ("search" . ess-execute-search) + ("set-width" . ess-execute-screen-options) + ("setRepos" . ess-setRepositories) + ("sos" . ess-sos) + ("vignettes" . ess-display-vignettes) + ) + "An alist of custom ESS commands available for call by +`ess-handy-commands' and `ess-smart-comma' function." + :group 'ess + :type 'alist) + +(defvar-local ess--local-handy-commands nil + "Store handy commands locally.") + +(defcustom ess-describe-at-point-method nil + "Whether `ess-describe-object-at-point' should use a tooltip. +If nil display in an electric buffer. If 'tooltip display in +a tooltip. + +See also `tooltip-hide-delay' and `tooltip-delay'. + " + :group 'ess-utils + :type '(choice (const :tag "buffer" :value nil ) (const tooltip)) + ) + +(defvaralias + 'ess-R-describe-object-at-point-commands + 'ess-r-describe-object-at-point-commands) +(defcustom ess-r-describe-object-at-point-commands + '(("str(%s)") + ("htsummary(%s, hlength = 20, tlength = 20)") + ("summary(%s, maxsum = 20)")) + "A list of commands cycled by `ess-describe-object-at-point'. +%s is substituted with the name at point. + +The value of each element is nil and is not used in current +implementation." + :group 'ess-R + :type 'alist) + +(defcustom ess-S-describe-object-at-point-commands + ess-R-describe-object-at-point-commands + "An alist of commands cycled by `ess-describe-object-at-point'. +%s is substitute with the name at point. The value is not used as + yet." + :group 'S+ + :type 'alist) + + +(defcustom ess-can-eval-in-background t + "If non-nil ESS can perform caching and other background + activities by calling the subprocess on idle time." + :group 'ess + :type 'boolean) + +(defcustom ess-user-full-name (user-full-name) + "The full name of the user." + :group 'ess + :type 'string) + +(defcustom ess-blink-region t + "If t evaluated region is highlighted for a shortwhile. +See also `ess-blink-delay'" + :group 'ess + :type 'boolean) + +(defcustom ess-blink-delay .3 + "Number of seconds to highlight the evaluated region." + :group 'ess + :type 'number) + +(defcustom ess-ask-for-ess-directory t + "Non-nil means request the process directory each time S is run." + :group 'ess + :type 'boolean) + +(defcustom ess-ask-about-transfile nil + "Non-nil means ask about a transcript file before running ESS." + :group 'ess + :type 'boolean) + +(defcustom ess-display-buffer-reuse-frames t + "Non-nil means \\[display-buffer] reuses existing frames; see +`display-buffer-reuse-frames'." + :group 'ess + :type 'boolean) + +(defvar-local ess-language nil + "Determines the language to use for the current buffer. +See also `ess-dialect'.") + +(defvar-local ess-dialect nil + "String version of the dialect being run for the inferior process. +This, plus `ess-language', should be able to determine the exact +version of the statistical package being executed in the particular +buffer.") + +(defcustom ess-directory-function nil + "Function to return the directory that ESS is run from. +If nil or if the function returns nil then you get `ess-startup-directory'." + :group 'ess + :type '(choice (const nil) function)) + +(defcustom ess-setup-directory-function nil + "Function to setup the directory that ESS is run from. +This function can be called to set environment variables or to create +a workspace." + :group 'ess + :type '(choice (const nil) function)) + +(defvaralias 'ess-directory 'ess-startup-directory) +(defcustom ess-startup-directory nil + "The directory ESS is run from. It must end in a slash. +Provided as a default if `ess-ask-for-ess-directory' is non-nil. +A nil value means use the current buffer's default directory." + :group 'ess + :type '(choice (const nil) directory)) + + +(defcustom ess-history-directory nil + "Directory to pick up `ess-history-file' from. +If this is nil, the history file is relative to `ess-directory'." + :group 'ess + :type '(choice (const nil) directory)) + +(defcustom ess-history-file t + "File to pick up history from. nil means *no* history is read or written. +t means something like \".Rhistory\". +If this is a relative file name, it is relative to `ess-history-directory'. +Consequently, if that is set explicitly, you will have one history file +for all projects." + :group 'ess + :type '(choice (const :tag "Off" nil) + (const :tag "On" t) + file)) + +(defcustom ess-plain-first-buffername t + "No fancy process buffname for the first process of each type (novice mode)." + :group 'ess + :type 'boolean) + + +(define-obsolete-variable-alias + 'ess-use-inferior-program-name-in-buffer-name + 'ess-use-inferior-program-in-buffer-name "ESS 18.10") +(defcustom ess-use-inferior-program-in-buffer-name nil + "For R, use e.g., 'R-2.1.0' or 'R-devel' (the program name) for buffer name. +Avoids the plain dialect name." + :group 'ess + :type 'boolean) + +(defcustom ess-use-ido t + "If t ess will try to use ido completion whenever possible. + +By default ESS uses enables IDO flex matching. See +`ido-enable-flex-matching' for details on flex matching and +`ess-ido-flex-matching' on how to disable it for ESS, if you +don't want it. + +Some useful keys for IDO completion: + + - C-s (next) or C-r (previous) to move through the list. + - C-SPC to restrict the list to currently matched items. + - TAB to display possible completion in a buffer + - C-t `ido-toggle-regexp' +" + :group 'ess + :type 'boolean) + + +(defcustom ess-tab-complete-in-script nil + "If non-nil, TAB in script buffers tries to complete if there is nothing to indent. +See also `ess-first-tab-never-complete'." + :group 'ess + :type 'boolean) + +(defvaralias 'ess-first-tab-never-completes-p 'ess-first-tab-never-complete) +(defcustom ess-first-tab-never-complete 'symbol + "If t, first TAB never tries to complete in ess-mode. +If 'symbol first TAB doesn't try to complete if next char is a +valid symbol constituent. + +If 'symbol-or-paren don't complete if next char is closed paren +)}] or symbol character. + +If 'symbol-or-paren-or-punct don't complete if next char is +punctuation +-=% etc, or closed paren or symbol. + +If 'unless-eol - first TAB completes only at end of line. + +If nil first TAB always tries to complete (this might be too +aggressive and dangerous). +" + :group 'ess + :type '(choice (const nil) + (const symbol) + (const symbol-or-paren) + (const symbol-or-paren-or-punct) + (const unless-eol) + (const t))) + +(defcustom ess-use-eldoc t + "If t, activate eldoc in `ess-mode' and `inferior-ess-mode' buffers. +If 'script-only activate in ess-mode buffers only. + +See also `ess-eldoc-show-on-symbol'." + :group 'ess-extras + :type '(choice (const t) (const script-only) (const nil))) + + +(defcustom ess-eldoc-show-on-symbol nil + "If non-nil, show help string whenever the point is on a symbol. +If nil show only when the point is in a function call, i.e. after (." + :group 'ess-extras + :type 'boolean) + +(defcustom ess-eldoc-abbreviation-style 'normal + "How ess-eldoc string should be abbreviated when it doesn't fit into one line +A symbol which can be +nil: do nothing +mild: Replace TRUE, FALSE with T,F +normal: Try mild + shorten the default values longer than 10 characters. +strong: Try normal + completely remove default values except =F,=T,=d where d is a digit. +aggressive (or t): Try strong + truncate the doc string to fit into minibuffer. + +The default style is 'normal. + +Ess-eldoc also honors the value of +`eldoc-echo-area-use-multiline-p'. If this variable is not t (the +default), doc strings are truncated to fit into minibufer. This +allows the use of different abbreviation styles with the +truncation." + :group 'ess + :type '(choice (const nil) (const mild) (const normal) (const strong) (const aggressive) (const t))) + +(defcustom ess-use-flymake t + "If non-nil activate flymake in `ess-mode' buffers. +If 'process, only check if the buffer has an inferior process." + :group 'ess + :type '(choice (const :tag "Always" t) + (const :tag "With running inferior process" process) + (const :tag "Never" nil)) + :package-version '(ess . "18.10")) + +(defcustom ess-use-auto-complete t + "If t, activate auto-complete support in ess-mode and inferior-ess-mode buffers. +If 'script-only activate in ess-mode buffers only. + +If non-nil add `ac-source-R' and `ac-source-filename' to the +`ac-sources' buffer local variable. + +ESS defines three AC sources `ac-source-R',`ac-source-R-objects' +and `ac-source-R-args'. See auto-complete package +documentation (http://cx4a.org/software/auto-complete/) for how +to install your custom sources." + :group 'ess-extras + :type '(choice (const t) (const script-only) (const nil))) + +(defcustom ess-use-company t + "If t, activate company support in ess-mode and inferior-ess-mode buffers. +If non-nil add `company-R-args' and `company-R-objects' to the +`company-backends'. If 'script-only activate in ess-mode buffers +only." + :group 'ess-extras + :type '(choice (const t) (const script-only) (const nil))) + +(defcustom ess-company-arg-prefix-length nil + "Minimum prefix for ess company function argument completion." + :group 'ess-extras + :type '(choice (const :tag "Default" nil) + integer)) + +(defcustom ess-use-tracebug t + "If t, load ess-tracebug when R process starts." + :group 'ess-extras + :type 'boolean) + +(defcustom ess-ido-flex-matching t + "If t, ido for ESS completion uses flex matching. +See `ido-enable-flex-matching' for details. +If you have an old computer, or you load lot of packages, you +might want to set this to nil. +" + :group 'ess + :type 'boolean) + +(defvar ess--completing-hist nil + "Variable to store completion history. +Used by `ess-completion-read' command.") + +(defvar-local ess-smart-operators () + "List of smart operators to be used in ESS and IESS modes. +Not to be set by users. It is redefined by mode specific +settings, such as `ess-r-smart-operators'.") + +(defvaralias 'ess-R-smart-operators 'ess-r-smart-operators) +(defvar ess-r-smart-operators nil + "If nil, don't use any of smart operators. +If t, use all. If an axplicit list of operators, use only those +operators. + +In current verion of ESS, it controls the behavior of +ess-smart-comma only, but will be enriched in the near future.") + + +(defvar ess-no-skip-regexp "[ \t\n]*\\'" + "If `ess-next-code-line' sees this line, it doesn't jump over. + +Used to avoid annoying jumping by ess-eval.*-and-step to end of +buffer or end chunks etc.") + +(make-obsolete-variable 'ess-smart-S-assign-key nil "ESS 18.10") + +(defcustom ess-assign-list (cons (if (boundp 'ess-S-assign) ess-S-assign " <- ") + '(" <<- " " = " " -> " " ->> ")) + "List of assignment operators. +`ess-cycle-assign' uses this list. These strings must +contain spaces on either side." + ;; Note that spaces on either side is not strictly true (as in the + ;; function won't error), but matching <-/<<- is broken without + ;; them. + :type '(repeat string) + :group 'ess + :package-version '(ess "18.10")) +(defvar ess-S-assign) +(make-obsolete-variable 'ess-S-assign 'ess-assign-list "ESS 18.10") + +(defcustom ess-r-prettify-symbols + '(("<-" . (?\s (Br . Bl) ?\s (Bc . Bc) ?←)) + ("->" . (?\s (Br . Bl) ?\s (Bc . Bc) ?→)) + ("->>" . (?\s (Br . Bl) ?\s (Br . Bl) ?\s + (Bl . Bl) ?- (Bc . Br) ?- (Bc . Bc) ?> + (Bc . Bl) ?- (Br . Br) ?>)) + ("<<-" . (?\s (Br . Bl) ?\s (Br . Bl) ?\s + (Bl . Bl) ?< (Bc . Br) ?- (Bc . Bc) ?- + (Bc . Bl) ?< (Br . Br) ?-))) + ;; Setup prettify-symbols-alist to show "pretty" arrows, but make + ;; sure that they arrows use the same amount of spacing as <- and + ;; <<- to ensure indentation does not change when + ;; prettify-symbols-mode is turned on/off. + "Alist of symbols prettifications, see `prettify-symbols-alist'. +This gets appended to `prettify-symbols-alist', so set it to nil +if you want to disable R specific prettification." + :group 'ess-R + :type '(alist :key-type string :value-type symbol) + :package-version '(ess . "18.10")) + +;;*;; Variables concerning editing behaviour + +(defcustom ess-filenames-map t + "Declares if the filenames in an attached directory are the same +as objects in that directory (when t). This is not true for DOS and +other OS's with limited filename lengths. Even if this is set +incorrectly, the right things will probably still happen, however." + :group 'ess-edit + :type 'boolean) + +(defcustom ess-keep-dump-files t + "Variable controlling whether to delete dump files after a successful load. +If nil: always delete. If `ask', confirm to delete. If `check', confirm +to delete, except for files created with ess-dump-object-into-edit-buffer. +Anything else, never delete. This variable only affects the behaviour +of `ess-load-file'. Dump files are never deleted if an error occurs +during the load. " + :group 'ess-edit + :type '(choice (const :tag "Check" :value 'check) + (const :tag "Ask" :value 'ask) + (const :tag "Always keep" :value t) + (const :tag "Always delete" :value nil) + )) + +(defcustom ess-delete-dump-files nil + "Non-nil means delete dump files after they are created. +This applies to dump files created with +`ess-dump-object-into-edit-buffer', only. + +Boolean flag which determines what to do with the dump files +generated by \\[ess-dump-object-into-edit-buffer], as follows: + + If non-nil: dump files are deleted after each use, and so appear +only transiently. The one exception to this is when a loading error +occurs, in which case the file is retained until the error is +corrected and the file re-loaded. + + If nil: dump files are not deleted, and backups are kept +as usual. This provides a simple method for keeping an archive of S +functions in text-file form. + +Auto-save is always enabled in dump-file buffers to enable recovery +from crashes. + +This is useful to prevent source files being created for objects +you don't actually modify. Once the buffer is modified and saved +however, the file is not subsequently deleted unless +`ess-keep-dump-files' is nil, and the file is successfully loaded +back into S." + :group 'ess-edit + :type 'boolean) + +(defcustom ess-fill-calls t + "If non-nil, refilling a paragraph inside a function or +indexing call will arrange the arguments according to +`fill-column' as in: + + fun_call(argument1, argument2, + argument3, argument4) + + +Refilling repeatedly cycles through different styles and +eventually to the original formatting. + + The second style formats according to one argument per line: + + fun_call(argument1, + argument2, + argument3, + argument4) + +When `ess-fill-calls-newlines' is t, the second style becomes: + + fun_call( + argument1, + argument2, + argument3, + argument4 + ) + + +Setting `ess-offset-arguments' to `prev-line' or `prev-call' +activates a third style. It keeps one argument per line except +for the first N arguments. N is controlled with a prefix. For +example, calling M-q three times sets N to 1 while calling M-q +twice then C-U 2 M-q sets N to 2. Here what the default produces: + + fun_call(argument1, + argument2, + argument3, + argument4, + argument5 + ) + +This style is useful for refilling R6 or ggproto class +definitions. + + +The blinking of the refilled region can be disabled with +`ess-blink-refilling'." + :group 'ess-edit + :type 'boolean) + +(defcustom ess-fill-continuations t + "If non-nil, refilling a paragraph inside a continuation of +statements (expressions separated by operators) will arrange all +its elements, never going past `fill-column'. + + lm(outcome ~ pred1 + pred2 + + pred3 + pred4, data) + +Refilling repeatedly cycles through different styles and +eventually to the original formatting. + +The second style lay out the statements according to one +expression per line: + + lm(outcome ~ + pred1 + + pred2 + + pred3 + + pred4, data) + +The blinking of the refilled region can be disabled with +`ess-blink-refilling'." + :group 'ess-edit + :type 'boolean) + +(defcustom ess-fill-calls-newlines nil + "When non-nil, the second refilling style produces newlines +after and before the opening and closing delimiters. This is +intended for example for dplyr-style code: + + fun_call( + argument1, + argument2, + argument3, + argument4 + ) + +Note that this setting is temporary and likely to be replaced in +the next ESS version by a more comprehensive and flexible way to +set refill styles." + :group 'ess-edit + :type 'boolean) + +(defcustom ess-blink-refilling t + "When non-nil, refilling a call or a continuation will first +blink the filling region." + :group 'ess-edit + :type 'boolean) + +(defcustom ess-mode-silently-save t + "Non-nil means automatically save ESS source buffers before loading." + :group 'ess-edit + :type 'boolean) + +;;*;; Variables controlling editing + +;;;*;;; Edit buffer processing +(defcustom ess-function-template " <- function( )\n{\n\n}\n" + "If non-nil, function template used when editing nonexistent objects. + +The edit buffer will contain the object name in quotes, followed by +this string. Point will be placed after the first parenthesis or +bracket." + :group 'ess-edit + :type 'string) + +;;;*;;; Indentation parameters + +(defcustom ess-auto-newline nil + "Non-nil means automatically newline before and after braces +inserted in S code." + :type 'boolean + :group 'ess-edit) + +(defcustom ess-tab-always-indent t + "Non-nil means TAB in S mode should always reindent the current line, +regardless of where in the line point is when the TAB command is used." + :type 'boolean + :group 'ess-edit) + +(defvar-local ess-indent-line-function nil + "Function to be used for the current dialect +nil means to use R/S indentation.") + +(define-obsolete-variable-alias 'ess-indent-level 'ess-indent-offset "15.09") +(defvar ess-indent-offset 2 + "Main indentation offset that is commonly inherited by other offsets. +See `ess-style-alist' for all available offsets.") + +(defvar ess-offset-arguments 'open-delim + "Indent for arguments of function calls or indexing brackets. +This variables has an effect only when the ( or [ are not +directly followed by a new line. See +`ess-offset-arguments-newline' for indentation after closing +newline. + +When set to `open-delim', arguments are indented relative to the +opening parenthesis of the closest function call: + + object <- call(argument, other_call(argument, + other_argument)) + + +When set to `prev-call', arguments are indented relative to the +closest function call: + + object <- call(argument, other_call(argument, + other_argument)) + + +When set to `prev-line', arguments are indented relative to the +preceding line: + + object <- call(argument, other_call(argument, + other_argument)) + +This setting can also be set to a list containing the the offset +type and the offset size, such as `'(prev-call 2)'. Otherwise, +`ess-indent-offset' is used as a default. See `ess-style-alist' +for other offsets controlling indentation.") + +(define-obsolete-variable-alias 'ess-arg-function-offset-new-line 'ess-offset-arguments-newline "15.09") +(defvar ess-offset-arguments-newline 'prev-call + "Indent of arguments when ( or [ is followed by a new line. + +When set to `open-delim', arguments on a new line are indented +relative to the opening parenthesis of the closest function call: + + object <- call(argument, other_call( + argument, + other_argument + )) + + +Wnen set to `prev-call', arguments on a new line are indented relative to +the closest function call: + + object <- call(argument, other_call( + argument, + other_argument + )) + +You can control the details of indentation at `prev-call' with +`ess-indent-from-lhs' and `ess-indent-from-chain-start'. + + +When set to `prev-line', arguments on a new line are indented +relative to the preceding line: + + object <- call(argument, other_call( + argument, + other_argument + )) + +This setting can also be set to a list containing the the offset +type and the offset size, such as `'(prev-call 2)'. Otherwise, +`ess-indent-offset' is used as a default. See `ess-style-alist' +for other offsets controlling indentation.") + +(defvar ess-offset-block 'prev-line + "Indentation for blocks. A block is usually declared with +braces but a statement wrapped in anonymous parentheses is also +considered a block. This offset can be either `prev-call', +`prev-line' or `open-delim'. + +When set to `open-delim', blocks are indented relative to the +opening parenthesis of the closest function call: + + call(argument, other_call(parameter = { + stuff + }, { + stuff + })) + + call(argument, lapply(data, function(x) { + body + })) + + +When set to `prev-call', blocks are indented relative to the +closest function call: + + call(argument, other_call(parameter = { + stuff + }, { + stuff + })) + + call(argument, lapply(data, function(x) { + body + })) + +You can control the details of indentation at `prev-call' with +`ess-indent-from-lhs' and `ess-indent-from-chain-start'. + + +When set to `prev-line', blocks are indented relative to the +preceding line: + + call(argument, other_call(parameter = { + stuff + }, { + stuff + })) + + call(argument, lapply(data, function(x) { + body + })) + +This setting can also be set to a list containing the the offset +type and the offset size, such as `'(prev-call 2)'. Otherwise, +`ess-indent-offset' is used as a default. See `ess-style-alist' +for other offsets controlling indentation.") + +(define-obsolete-variable-alias 'ess-first-continued-statement-offset 'ess-offset-continued "15.09") +(define-obsolete-variable-alias 'ess-continued-statement-offset 'ess-offset-continued "15.09") +(defvar ess-offset-continued 'straight + "This setting controls indentation of continued statements, that is, +consecutive statements separated by operators. + +When set to 'straight, continued statements are indented as follows: + + object %>% + some_function() %>% + other_function() + +When set to 'cascade: + + object %>% + some_function() %>% + other_function() + +The 'straight and 'cascade settings are actually equivalent to +'(straight . t) and '(cascade . t), where `t' represents the +base indent size. More generally, you can supply '(straight . N) +to control the size of indentation. + +See `ess-style-alist' for for an overview of ESS indentation.") + +(defvar ess-align-nested-calls '("ifelse") + "List of strings declaring function calls for which +`ess-offset-arguments-newline' should be ignored. These calls +will be vertically aligned instead. The default is `ifelse', +resulting in the following indentation for nested ifelse calls: + + object <- ifelse(condition1, out1, + ifelse(condition2, out2, out3)) + +See `ess-style-alist' for for an overview of ESS indentation.") + +(defvar ess-align-arguments-in-calls '("function[ \t]*(") + "List of regexes specifying the calls where +`ess-offset-arguments' should have no effect on function +declarations. The arguments of those calls will be aligned from +the opening parenthesis. + +By default, function declarations are overridden. If for example +`ess-offset-arguments' is set to `prev-line', then function calls +are normally indented as in: + + some_function(argument1, + argument2, argument3 + ) + +However, the parameters of function declarations will be +vertically aligned: + + fun <- function(argument1, + argument2 + argument3) { + body + } + +See `ess-style-alist' for further details.") + +(defvar ess-align-continuations-in-calls t + "Whether continuations inside calls should be indented from the +opening delimiter. This produces the following indentation: + + 10 + (1 + 2 + + 3 + 4) + object[variable1 + + variable2] + + if (test1 || test2 || + test3 || test4) { + any(test5 & + test6) + } + +instead of + + 10 + (1 + 2 + + 3 + 4) + object[variable1 + + variable2] + + if (test1 || test2 || + test3 || test4) { + any(test5 & + test6) + } + +Definition operators (`<-', `=', `:=' and `~') still trigger an +indentation in all cases. Also, operators at top level and in +curly brackets are not affected by this setting and always induce +an offset: + + { + var1 + + var2 + } + +See `ess-style-alist' for for an overview of ESS indentation.") + +(defvar ess-align-blocks '(control-flow) + "List of block types for which `ess-offset-blocks' should be +ignored. The overridden blocks are vertically aligned. The list +can contain either or both of the symbols `control-flow' and +`fun-decl'. + +With `control-flow', if, else for and while blocks will always be +aligned vertically. With `fun-decl', the body of a function +declaration will always be aligned with the call to +`function'.") + +(define-obsolete-variable-alias 'ess-arg-function-offset 'ess-indent-from-lhs "15.09") +(defvar ess-indent-from-lhs '(arguments fun-decl-opening) + "List of syntactic elements that should be indented from the +left-hand side of an assignment. The list accepts the symbol +`arguments' and `fun-decl-opening'. + +For arguments, this setting only has an effect for offsets set to +`prev-call'. When set, this indentation is produced: + + some_function(parameter = other_function( + argument + )) + + object <- some_function( + argument1, + argument2 + ) + +instead of: + + some_function(parameter = other_function( + argument + )) + + object <- some_function( + argument1, + argument2 + ) + + +`fun-decl-opening' refers to the opening curly following a function +declaration. Setting it produces: + + object <- + function(argument) + { + body + } + +instead of: + + object <- + function(argument) + { + body + } + +This is useful when (a) you have a long function name and want to +break a line after `<-' so that you have room to lay out the +arguments within `fill-column' characters; (b) you still want to +align the function body from the LHS to save horizontal space. + +See `ess-style-alist' for for an overview of ESS indentation.") + +(defvar ess-indent-from-chain-start t + "When non-nil, chained calls will be treated as if they were +one call and indentation will start from the first one. This +setting only has an effect for offsets set to `prev-call' or +block offsets set to `opening-delim'. + +If `nil': + + some_function(other_function( + argument + )) + +If `t': + + some_function(other_function( + argument + )) + +See `ess-style-alist' for for an overview of ESS indentation.") + +;;added rmh 2Nov97 at request of Terry Therneau +(define-obsolete-variable-alias 'ess-fancy-comments 'ess-indent-with-fancy-comments "15.09") +(defcustom ess-indent-with-fancy-comments t + "Non-nil means distiguish between #, ##, and ### for indentation. +See `ess-style-alist' for for an overview of ESS indentation." + :type 'boolean + :group 'ess-edit) + +;;;*;;; Editing styles + +(defvar ess-style-alist + `((BSD + (ess-indent-offset . 8) + (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) + (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) + (ess-offset-block . prev-call) + (ess-offset-continued . ,(default-value 'ess-offset-continued)) + (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) + (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) + (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) + (ess-align-blocks . ,(default-value 'ess-align-blocks)) + (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) + (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) + (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) + + (C++ + (ess-indent-offset . 4) + (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) + (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) + (ess-offset-block . prev-call) + (ess-offset-continued . ,(default-value 'ess-offset-continued)) + (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) + (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) + (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) + (ess-align-blocks . ,(default-value 'ess-align-blocks)) + (ess-indent-from-lhs . (arguments)) + (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) + (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) + + ;; CLB added rmh 2Nov97 at request of Terry Therneau + (CLB + (ess-indent-offset . ,(default-value 'ess-indent-offset)) + (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) + (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) + (ess-offset-block . ,(default-value 'ess-offset-block)) + (ess-offset-continued . (straight 4)) + (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) + (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) + (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) + (ess-align-blocks . ,(default-value 'ess-align-blocks)) + (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) + (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) + (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) + + (GNU + (ess-indent-offset . ,(default-value 'ess-indent-offset)) + (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) + (ess-offset-arguments-newline . (prev-call 4)) + (ess-offset-block . ,(default-value 'ess-offset-block)) + (ess-offset-continued . ,(default-value 'ess-offset-continued)) + (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) + (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) + (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) + (ess-align-blocks . ,(default-value 'ess-align-blocks)) + (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) + (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) + (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) + + (K&R + (ess-indent-offset . 5) + (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) + (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) + (ess-offset-block . prev-call) + (ess-offset-continued . ,(default-value 'ess-offset-continued)) + (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) + (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) + (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) + (ess-align-blocks . ,(default-value 'ess-align-blocks)) + (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) + (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) + (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) + + ;; added ajr 17.Feb'04 to match "common R" use (== DEFAULT apart from offset = 4) + (RRR + (ess-indent-offset . 4) + (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) + (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) + (ess-offset-block . ,(default-value 'ess-offset-block)) + (ess-offset-continued . ,(default-value 'ess-offset-continued)) + (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) + (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) + (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) + (ess-align-blocks . ,(default-value 'ess-align-blocks)) + (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) + (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) + (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) + + (RRR+ + (ess-indent-offset . 4) + (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) + (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) + (ess-offset-block . open-delim) + (ess-offset-continued . ,(default-value 'ess-offset-continued)) + (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) + (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) + (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) + (ess-align-blocks . ,(default-value 'ess-align-blocks)) + (ess-indent-from-lhs . (arguments)) + (ess-indent-from-chain-start . nil) + (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments))) + + (RStudio + (ess-indent-offset . ,(default-value 'ess-indent-offset)) + (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) + (ess-offset-arguments-newline . prev-line) + (ess-offset-block . ,(default-value 'ess-offset-block)) + (ess-offset-continued . ,(default-value 'ess-offset-continued)) + (ess-align-nested-calls . nil) + (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) + (ess-align-continuations-in-calls . nil) + (ess-align-blocks . nil) + (ess-indent-from-lhs . (arguments)) + (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) + (ess-indent-with-fancy-comments . nil)) + + (RStudio- + (ess-indent-offset . ,(default-value 'ess-indent-offset)) + (ess-offset-arguments . prev-line) + (ess-offset-arguments-newline . prev-line) + (ess-offset-block . ,(default-value 'ess-offset-block)) + (ess-offset-continued . ,(default-value 'ess-offset-continued)) + (ess-align-nested-calls . nil) + (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) + (ess-align-continuations-in-calls . nil) + (ess-align-blocks . nil) + (ess-indent-from-lhs . (arguments)) + (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) + (ess-indent-with-fancy-comments . nil)) + + (DEFAULT + (ess-indent-offset . ,(default-value 'ess-indent-offset)) + (ess-offset-arguments . ,(default-value 'ess-offset-arguments)) + (ess-offset-arguments-newline . ,(default-value 'ess-offset-arguments-newline)) + (ess-offset-block . ,(default-value 'ess-offset-block)) + (ess-offset-continued . ,(default-value 'ess-offset-continued)) + (ess-align-nested-calls . ,(default-value 'ess-align-nested-calls)) + (ess-align-arguments-in-calls . ,(default-value 'ess-align-arguments-in-calls)) + (ess-align-continuations-in-calls . ,(default-value 'ess-align-continuations-in-calls)) + (ess-align-blocks . ,(default-value 'ess-align-blocks)) + (ess-indent-from-lhs . ,(default-value 'ess-indent-from-lhs)) + (ess-indent-from-chain-start . ,(default-value 'ess-indent-from-chain-start)) + (ess-indent-with-fancy-comments . ,(default-value 'ess-indent-with-fancy-comments)))) + + "Predefined formatting styles for ESS code. Use +`ess-style' to apply a style in all R buffers. The values +of all styles except OWN are fixed. To change the value of +variables in the OWN group, customize the variable +`ess-own-style-list'. DEFAULT style picks default (aka global) +values from ESS indentation variables. In addition, ESS provides +many indentation styles, the most important being the RRR and the +RStudio variants. + +RRR is the common R style that adheres closely to R internal +standards. RRR+ is the same except it also aligns blocks in +function calls with the opening delimiter, producing more +indentation. The C++ style (named like this for historical +reasons rather than any resemblance to existing C++ indentation +schemes) is halfway between these two styles and indent block +arguments from the start of the surrounding function's name. + +The RStudio style closely mimics the indentation of the RStudio +editor. RStudio- is the same except it does not align arguments +in function calls, which corresponds to the settings of some +RStudio users. + +ESS indentation is fully specified by the following offsets and +variables. See the documentation of these variables for examples. + +Offsets: + + - `ess-indent-offset': main offset inherited by other settings + + - `ess-offset-arguments': offset type for function and bracket + arguments + + - `ess-offset-arguments-newline': offset type of arguments + when ( or [ is followed by a new line. + + - `ess-offset-block': offset type for brace and anonymous + parenthesis blocks + + - `ess-offset-continued': offset type for continuation lines in + multiline statements + + +Overrides (implies vertical alignment): + + - `ess-align-nested-calls': functions whose nested calls + should be aligned. + + - `ess-align-arguments-in-calls': calls where + `ess-offset-arguments' should be ignored + + - `ess-align-continuations-in-calls': whether to ignore + `ess-offset-continued' in calls. + + - `ess-align-blocks': whether to ignore `ess-offset-blocks' for + function declarations or control flow statements. + + +Control variables: + + - `ess-indent-from-lhs': whether to indent arguments from + left-hand side of an assignment or parameter declaration. + + - `ess-indent-from-chain-start': whether to indent arguments from + the first of several consecutive calls. + + - `ess-indent-with-fancy-comments': whether to indent #, ## and + ### comments distinctly.") + +(defun ess-add-style (key entries) + "Add a new style to `ess-style-list', with the key KEY. +Remove any existing entry with the same KEY before adding the new one." + (setq ess-style-alist (assq-delete-all key ess-style-alist)) + (add-to-list 'ess-style-alist (cons key entries))) + +(defcustom ess-own-style-list (cdr (assoc 'RRR ess-style-alist)) + "Indentation variables for your own style. +Set `ess-style' to 'OWN to use these values. To change +these values, use the customize interface. See the documentation +of each variable for its meaning." + :group 'ess-edit + :type 'alist + :initialize 'custom-initialize-set + :set (lambda (symbol value) + (set symbol value) + (ess-add-style 'OWN value))) + +;;;###autoload (put 'ess-style 'safe-local-variable #'symbolp) + +(define-obsolete-variable-alias 'ess-default-style 'ess-style "ESS 19.04") +(defcustom ess-style 'RRR + "Current ESS indentation style, see `ess-style-alist' for more. +See the variable `ess-style-alist' for how these groups (RRR, +DEFAULT, GNU, BSD, ...) map onto different settings for +variables. OWN style is defined in `ess-own-style-list' and you +can customize it to your needs. DEFAULT style picks default (aka +global) values from ESS indentation variables. + +This variable only has an effect if set before a buffer is +visited (e.g. in your Emacs initialization file) or as a file or +directory local variable (see Info node `(emacs) File Variables'." + :type '(choice (const OWN) + (const GNU) + (const BSD) + (const C++) + (const CLB) + (const K&R) + (const RRR) + (const RRR+) + (const RStudio) + (const RStudio-) + (const DEFAULT)) + :group 'ess-edit + :safe #'symbolp) + +;;*;; Variables controlling behaviour of dump files + +(defcustom ess-source-directory + (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") temporary-file-directory) + "Directory in which to place dump files. +This can be a string (an absolute directory name ending in a slash) or +a lambda expression of no arguments which will return a suitable string +value. The lambda expression is evaluated with the process buffer as the +current buffer. + +This always dumps to a sub-directory (\".Src\") of the current ess +working directory (i.e. first elt of search list)." + :group 'ess-edit + :type 'directory + :package-version '(ess . "18.10")) + +(defvar ess-dump-filename-template nil + "Internal. Initialized by dialects") + +(defcustom ess-dump-filename-template-proto (concat (user-login-name) ".%s.S") + "Prototype template for filenames of dumped objects. +The ending `S' is replaced by the current \\[ess-suffix], to give +`ess-dump-filename-template' when an inferior ESS process starts. + +By default, gives filenames like `user.foofun.S', so as not to clash with +other users if you are using a shared directory. Other alternatives: +\"%s.S\" ; Don't bother uniquifying if using your own directory(ies) +\"dumpdir\"; Always dump to a specific filename. This makes it impossible +to edit more than one object at a time, though. + (make-temp-name \"scr.\") ; Another way to uniquify" + ;; MM: The last 3-4 lines above suck (I don't understand them) -- FIXME -- + + :group 'ess-edit + :type 'string) + + +;;*;; Hooks + +(defcustom ess-mode-hook nil + "Hook for customizing ESS each time it is entered." + :group 'ess-hooks + :type 'hook) + +(defcustom ess-pre-run-hook nil + "Hook to call before starting up ESS. +Good for setting up your directory." + :group 'ess-hooks + :type 'hook) + +(defcustom ess-post-run-hook nil + "Hook to call just after the ESS process starts up. +Good for evaluating ESS code." + :group 'ess-hooks + :type 'hook) + +(defcustom inferior-ess-mode-hook nil + "Hook for customizing inferior ESS mode. Called after +`inferior-ess-mode' is entered and variables have been initialised." + :group 'ess-hooks + :type 'hook) + +(defcustom ess-help-mode-hook nil + "Functions to call when entering `ess-help-mode'." + :group 'ess-hooks + :type 'hook) + +(defcustom ess-send-input-hook nil + "Hook called just before line input is sent to the process." + :group 'ess-hooks + :type 'hook) + +(defcustom ess-transcript-mode-hook nil + "Hook for customizing ESS transcript mode." + :group 'ess-hooks + :type 'hook) + +(define-obsolete-variable-alias 'R-mode-hook 'ess-r-mode-hook "19.04") +(defcustom ess-r-mode-hook nil + "Hook run when entering R mode." + :type 'hook + :group 'ess-R) + + +(defcustom Rnw-mode-hook nil + "Hook run when entering Rnw mode." + :type 'hook + :group 'ess-R) + +(defcustom SAS-mode-hook nil + "Hook to run when entering SAS mode." + :type 'hook + :group 'ess-sas) + +(defcustom ess-pdf-viewer-pref nil + "External pdf viewer you like to use from ESS. +Can be a string giving a name of the program or a list with car +giving heprogram and the tail giving the arguments. For example +'(\"okular\" \"--unique\")." + :type '(choice (const nil) (repeat :tag "Command with arguments" string) (string :tag "Command")) + :group 'ess) + +(defcustom ess-ps-viewer-pref nil + "External PostScript viewer you like to use from ESS. +If nil, ESS will try finding one from a list." + :type '(choice (const nil) string) + :group 'ess) + +;; ---- ./ess-roxy.el : ------------ + +(defcustom ess-roxy-package "roxygen2" + "The name of the R package to use for Roxygen." + :group 'ess-roxy + :type 'string) + +(defcustom ess-roxy-tags-noparam '("export" "noRd") + "The tags used in roxygen fields that can be used alone. Used +to decide highlighting and tag completion." + :group 'ess-roxy + :type '(repeat string)) + +(defcustom ess-roxy-tags-param '("author" "aliases" "concept" "details" + "examples" "format" "keywords" + "method" "exportMethod" + "name" "note" "param" + "include" "references" "return" + "seealso" "source" "docType" + "title" "TODO" "usage" "import" + "exportClass" "exportPattern" "S3method" + "inheritParams" + "importFrom" "importClassesFrom" + "importMethodsFrom" "useDynLib" + "rdname" "section" "slot" "description" + "md") + "The tags used in roxygen fields that require a parameter. +Used to decide highlighting and tag completion." + :group 'ess-roxy + :type '(repeat string)) + +(defcustom ess-roxy-template-alist + (list (cons "description" ".. content for \\description{} (no empty lines) ..") + (cons "details" ".. content for \\details{} ..") + (cons "title" "") + (cons "param" "") + (cons "return" "") + (cons "author" ess-user-full-name)) + "The tags and defaults to insert when creating empty templates. +Param is a place holder for where to enter +parameters. Description and details do not use @ tags, but are +instead placed at the beginning of the entry (and should +therefore also be at the beginning of this template to give +syntactically correct roxygen entries)" + :group 'ess-roxy + :type '(alist :key-type string :value-type string)) + +(defcustom ess-roxy-fill-param-p nil + "Non-nil causes parameter descriptions to be filled (word-wrapped) upon `ess-roxy-update-entry'." + :group 'ess-roxy + :type '(choice (const :tag "Off" nil) + (const :tag "On" t))) + +(defcustom ess-roxy-hide-show-p nil + "Non-nil means ess-roxy uses hs-minor-mode for block hiding with TAB." + :group 'ess-roxy + :type '(choice (const :tag "Off" nil) + (const :tag "On" t))) + +(defcustom ess-roxy-start-hidden-p nil + "Non-nil means all blocks should be hidden from start." + :group 'ess-roxy + :type '(choice (const :tag "Off" nil) + (const :tag "On" t))) + +(defcustom ess-roxy-str "##'" + "Prefix string to insert before each line in new roxygen +blocks. In existing roxygen blocks, the prefix is taken from +the line at point" + :group 'ess-roxy + :type 'string) + +(defvar ess-roxy-insert-prefix-on-newline t + "When non-nil, `ess-roxy-newline-and-indent' will make sure the new +line starts with the roxy prefix.") + + ; System variables + +;; SJE -- this should not be defcustom - user does not set it. +(defvaralias 'ess-current-process-name 'ess-local-process-name) +(defvar-local ess-local-process-name nil + "The name of the ESS process associated with the current buffer.") +(put 'ess-local-process-name 'risky-local-variable t) +(put 'ess-local-process-name 'permanent-local t) + +(defcustom ess-switch-to-end-of-proc-buffer t + "If t, `ess-switch-to-inferior-or-script-buffer goes to end of +process buffer." + :group 'ess + :type 'boolean) + +(defcustom ess-gen-proc-buffer-name-function 'ess-gen-proc-buffer-name:project-or-simple + "Function used for generation of the buffer name of the new ESS processes. +It should accept one argument PROC-NAME, a string specifying +internal process name (R, R:2, etc). + +Provided default options are: + +`ess-gen-proc-buffer-name:simple' + *proc* + +`ess-gen-proc-buffer-name:directory' + *proc:dir* +`ess-gen-proc-buffer-name:abbr-long-directory' + *proc:abbr-long-dir* +`ess-gen-proc-buffer-name:project-or-simple' + *proc:project-root* or *proc* +`ess-gen-proc-buffer-name:project-or-directory' + *proc:project-root* or *proc:dir* + +Strategies based on projects default to built-in strategies if +there is no project root in the current directory." + :group 'ess + :type '(choice (const :tag "*proc*" ess-gen-proc-buffer-name:simple) + (const :tag "*proc:dir*" ess-gen-proc-buffer-name:directory) + (const :tag "*proc:abbr-long-dir*" ess-gen-proc-buffer-name:abbr-long-directory) + (const :tag "*proc:project-root* or *proc*" ess-gen-proc-buffer-name:project-or-simple) + (const :tag "*proc:project-root* or *proc:dir*" ess-gen-proc-buffer-name:project-or-directory) + function) + :package-version '(ess . "19.04")) + + +(defcustom ess-kermit-command "gkermit -T" + "Kermit command invoked by `ess-kermit-get' and `ess-kermit-send'." + :group 'ess + :type 'string) + +(defcustom ess-kermit-prefix "#" + "String files must begin with to use kermit file transfer." + :group 'ess + :type 'string) + +(defcustom ess-kermit-remote-directory "." + "Buffer local variable that designates remote directory of file." + :group 'ess + :type 'string) +(make-variable-buffer-local 'ess-kermit-remote-directory) + +;;*;; Regular expressions + +;; -- Note: Some variables not-to-customize moved to ./ess-mode.el : +;; ess-r-set-function-start + +;; Fixme: the following is just for S dialects : +(defcustom ess-dumped-missing-re + "\\(<-\nDumped\n\\'\\)\\|\\(<-\\(\\s \\|\n\\)*\\'\\)" + "If a dumped object's buffer matches this re, then it is replaced +by `ess-function-template'." + :group 'ess + :type 'regexp) + +(defcustom ess-dump-error-re + (if (string= ess-language "S") "\nDumped\n\\'" + "[Ee]rror") + "Regexp used to detect an error when loading a file." + :group 'ess + :type 'regexp) + + + ; ess-inf: variables for inferior-ess. + +(defvar inferior-ess-own-frame nil + "Non-nil means that inferior ESS buffers should start in their own frame. +This variable is deprecated. +please add an entry to `display-buffer-alist' instead. See Info +node `(ess)Customizing startup'. For example: + +\(add-to-list 'display-buffer-alist + '(\"*R\" + (display-buffer-reuse-window display-buffer-pop-up-frame)))") +(make-obsolete-variable 'inferior-ess-own-frame 'display-buffer-alist "ESS 19.04") +(make-obsolete-variable 'inferior-ess-frame-alist "It is ignored. Use `display-buffer-alist' and `pop-up-frame-alist' instead." "ESS 19.04") +(make-obsolete-variable 'inferior-ess-same-window 'display-buffer-alist "ESS 19.04") + +(defcustom inferior-ess-jit-lock-chunk-size 10000 + "Default for (buffer local) `jit-lock-chunk-size' in inferior ESS buffers." + :group 'ess-proc + :type 'integer) + + +(defvaralias 'inferior-R-program 'inferior-ess-r-program) +(define-obsolete-variable-alias 'inferior-R-program-name + 'inferior-ess-r-program "ESS 18.10") +(define-obsolete-variable-alias 'inferior-ess-r-program-name + 'inferior-ess-r-program "ESS 18.10") +(defcustom inferior-ess-r-program (if ess-microsoft-p + "Rterm" + "R") + "Program name for invoking an inferior ESS with \\[R]." + :group 'ess-R + :type '(choice (string) file)) + +(defcustom inferior-R-args "" + "String of arguments (see 'R --help') used when starting R, +including the versions of R created via variable `ess-r-versions'." + :group 'ess-R + :type 'string) + +(defcustom ess-R-readline nil + "nil indicates that \"--no-readline \" should be used as argument when starting R. +This has been the default since 1998 and may very slightly speedup interaction. +On the other hand, readline is necessary for expansion of \"~username/\" in paths. +Note that readline interprets tabs (tabular characters) in R source files as asking +for file name completion. This can mess up ess evaluation completely." + :group 'ess-R + :type 'boolean) + +(defcustom inferior-STA-start-args "" + "String of switches used when starting stata. +Also see `inferior-STA-program'." + :group 'ess-Stata + :type 'string) + +(defvaralias 'inferior-R-objects-command 'inferior-ess-r-objects-command) +(defcustom inferior-ess-r-objects-command "print(objects(pos=%d, all.names=TRUE), max=1e6)\n" + "Format string for R command to get a list of objects at position %d. +Used in e.g., \\[ess-execute-objects] or \\[ess-display-help-on-object]." + :group 'ess-command + :type 'string) + +(defvar ess-getwd-command nil + "Command string retriving the working directory from the process.") + +(defvar ess-setwd-command nil + "Command string to set working directory. +Should contain a formating %s to be replaced by a +path (as in 'setwd(%s)\\n'.") + +(defcustom ess-program-files ;; 32 bit version + (if (and ess-microsoft-p + (fboundp 'w32-short-file-name)) + (if (getenv "ProgramW6432") + (w32-short-file-name (getenv "ProgramFiles(x86)"));; always 32 on 64 bit OS + (w32-short-file-name (getenv "ProgramFiles"))) ;; always 32 on 32 bit OS + nil) + "Safe (no embedded blanks) 8.3 name for 32-bit programs that works across internationalization." + :group 'ess + :type '(choice (string) (const nil))) + +(defcustom ess-program-files-64 ;; 64 bit version + (when (and ess-microsoft-p (fboundp 'w32-short-file-name) (getenv "ProgramW6432")) + (w32-short-file-name (getenv "ProgramW6432"))) + "Safe (no embedded blanks) 8.3 name for 64-bit programs that works across internationalization." + :group 'ess + :type '(choice (string) (const nil))) + +(defcustom ess-directory-containing-R nil + "nil (the default) means the search for all occurences of R +on the machine will use the default location of the R directory + (inside \"c:/Program Files\" in English locale Windows systems). +Non-nil values mean use the specified location as the +directory in which \"R/\" is located. For example, setting +`ess-directory-containing-R' to \"c:\" will tell ESS to search +for R versions with pathnames of the form \"c:/R/R-x.y.z\". + +Currently only used when `ess-microsoft-p'. If you change the +value of this variable, you need to restart Emacs for it to take +effect. It also needs to be set before you load ess-site as its +value is used once only when ESS is loaded." + + :group 'ess + :type '(choice (directory) (const nil))) + +(defcustom ess-rterm-version-paths nil + "Stores the full path file names of Rterm versions, computed via +\\[ess-find-rterm]. If you have versions of R in locations other than +in ../../R-*/bin/Rterm.exe or ../../rw*/bin/Rterm.exe, relative to the +directory in the `exec-path' variable containing your default location +of Rterm, you will need to redefine this variable with a +`custom-set-variables' statement in your site-start.el or .emacs +file." + :group 'ess-R + :type '(repeat string)) + +(defcustom ess-SHOME-versions + ;; ess-program-files ~= "c:/progra~1" for typical locales/languages + (mapcar + (lambda (ch) (concat ess-program-files ch)) + '("/Insightful/splus62" + "/Insightful/splus61" + "/MathSoft/splus6" + "/spls45se" + "/Insightful/splus62netclient" + "/Insightful/splus62net/server" + "/Insightful/splus61netclient" + "/Insightful/splus61net/server" + "/Insightful/splus6se" + "/Insightful/splus61se" + "/Insightful/splus62se" + "/Insightful/splus70" + "/Insightful/splus71" + "/Insightful/splus8.0.1" + "/Insightful/splus8.0.4" + "/Insightful/splus80" + "/TIBCO/splus81" + "/TIBCO/splus82" + )) + "List of possible values of the environment variable SHOME for recent +releases of S-Plus. These are the default locations for several +current and recent releases of S-Plus. If any of these pathnames +correspond to a directory on your machine, running the function +`ess-sqpe-versions-create' will create a function, for example, +\\[splus70], that will start the corresponding version Sqpe inside an +emacs buffer in iESS[S] mode. If you have versions of S-Plus in +locations other than these default values, redefine this variable with +a `custom-set-variables' statement in your site-start.el or .emacs +file. The list of functions actually created appears in the *ESS* +buffer and should appear in the \"ESS / Start Process / Other\" +menu." + :group 'ess-SPLUS + :type '(repeat string)) + +(defcustom ess-SHOME-versions-64 + ;; ess-program-files-64 ~= "c:/progra~1" for typical locales/languages + (mapcar + (lambda (ch) (concat ess-program-files-64 ch)) + '("/TIBCO/splus82" + )) + "List of possible values of the environment variable SHOME for recent +releases of 64-bit S-Plus. These are the default locations for several +current and recent releases of S-Plus. If any of these pathnames +correspond to a directory on your machine, running the function +`ess-sqpe-versions-create' will create a function, for example, +\\[splus70], that will start the corresponding version Sqpe inside an +emacs buffer in iESS[S] mode. If you have versions of 64-bit S-Plus in +locations other than these default values, redefine this variable with +a `custom-set-variables' statement in your site-start.el or .emacs +file. The list of functions actually created appears in the *ESS* +buffer and should appear in the \"ESS / Start Process / Other\" +menu." + :group 'ess-SPLUS + :type '(repeat string)) + +(define-obsolete-variable-alias 'inferior-S3-program-name + 'inferior-S3-program "ESS 18.10") +(defcustom inferior-S3-program "/disk05/s/S" + "Program name for invoking an inferior ESS with S3()." + :group 'ess-S + :type 'string) + +(define-obsolete-variable-alias 'inferior-S+3-program-name + 'inferior-S+3-program "ESS 18.10") +(define-obsolete-variable-alias 'inferior-S-program-name + 'inferior-S+3-program "ESS 18.10") +(defcustom inferior-S+3-program "Splus" + "Program name for invoking an inferior ESS with S+3()." + :group 'ess-SPLUS + :type '(choice (string) file)) + +(define-obsolete-variable-alias 'inferior-S+4-program-name + 'inferior-S+4-program "ESS 18.10") +(defcustom inferior-S+4-program + (concat ess-program-files "/spls45se/cmd/Splus.exe") + "Program name for invoking an external GUI S+4. +The default value is correct for a default installation of +S-Plus 4.5 Student Edition and with bash as the shell. +For any other version or location, change this value in ess-site.el or +site-start.el. Use the 8.3 version of the pathname. +Use double backslashes if you use the msdos shell." + :group 'ess-SPLUS + :type 'string) + +(defcustom inferior-S+4-print-command "S_PRINT_COMMAND=emacsclientw.exe" + "Destination of print icon in S+4 Commands window." + :group 'ess-SPLUS + :type 'string) + +(defcustom inferior-S+4-editor-pager-command + "options(editor='emacsclient.exe', pager='emacsclientw.exe')" + "Programs called by the editor() and pager() functions +in S+4 Commands window and in Sqpe+4 buffer." + :group 'ess-S + :type 'string) + +(define-obsolete-variable-alias 'inferior-Sqpe+4-program-name + 'inferior-Sqpe+4-program "ESS 18.10") +(defcustom inferior-Sqpe+4-program + (concat ess-program-files "/spls45se/cmd/Sqpe.exe") + "Program name for invoking an inferior ESS with Sqpe+4()." + :group 'ess-SPLUS + :type '(choice (const nil) (string))) + +(defcustom inferior-Sqpe+4-SHOME-name + (if ess-microsoft-p (concat ess-program-files "/spls45se" "")) + "SHOME name for invoking an inferior ESS with Sqpe+4(). +The default value is correct for a default installation of +S-Plus 4.5 Student Edition. For any other version or location, +change this value in ess-site.el or site-start.el. Use the 8.3 +version of the pathname." + :group 'ess-SPLUS + :type '(choice (const nil) (string))) + +(define-obsolete-variable-alias + 'inferior-S-elsewhere-program-name + 'inferior-S-elsewhere-program "ESS 18.10") +(defcustom inferior-S-elsewhere-program "sh" + "Program name to invoke an inferior ESS with S on a different computer." + :group 'ess-proc + :type 'string) + +(define-obsolete-variable-alias + 'inferior-ESS-elsewhere-program-name + 'inferior-ESS-elsewhere-program "ESS 18.10") +(defcustom inferior-ESS-elsewhere-program "sh" + "Program name to invoke an inferior ESS with program on a +different computer." + :group 'ess-proc + :type 'string) + +(define-obsolete-variable-alias 'inferior-S4-program-name + 'inferior-S4-program "ESS 18.10") +(defcustom inferior-S4-program "S4" + "Program name to invoke an inferior ESS with S4()." + :group 'ess-S + :type '(choice (string) (file))) + +(define-obsolete-variable-alias 'inferior-S+5-program-name + 'inferior-S+5-program "ESS 18.10") +(defcustom inferior-S+5-program "Splus5" + "Program name to invoke an inferior ESS with S+5()." + :group 'ess-SPLUS + :type '(choice (string) (file))) + +(defvaralias 'S+6-dialect-name 'S+-dialect-name) +(defcustom S+-dialect-name "S+" + "Name of 'dialect' for S-PLUS 6.x and later. +Easily changeable in a user's `.emacs'." + :group 'ess-SPLUS + :type 'string) + +(defvaralias 'inferior-S+6-program 'inferior-S+-program) +(define-obsolete-variable-alias 'inferior-S+6-program-name + 'inferior-S+-program "ESS 18.10") + +(define-obsolete-variable-alias 'inferior-S+-program-name + 'inferior-S+-program "ESS 18.10") +(defcustom inferior-S+-program + (if ess-microsoft-p + (concat ess-program-files "/TIBCO/splus82/cmd/Splus.exe") + "Splus") + "Program name to invoke S+. +On Unix/Linux, use the Splus executable. On Windows, the default +value is correct for a default installation of S-Plus 8.1 and +with bash as the shell. For any other version or location, +change this value in ess-site.el or site-start.el. Use the 8.3 +version of the pathname. Use double backslashes if you use the +msdos shell." + :group 'ess-SPLUS + :type '(choice (string) (file))) + +(defvaralias 'inferior-S+6-start-args 'inferior-S+-start-args) +(defvaralias 'inferior-Splus-args 'inferior-S+-start-args) +(defcustom inferior-S+-start-args "" + "String of arguments used when starting S. +These arguments are currently passed only to S+6 and higher." + :group 'ess-SPLUS + :type 'string) + + +(defvaralias 'inferior-Sqpe-start-args 'inferior-Sqpe+-start-args) +(defcustom 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 + :group 'ess-SPLUS + :type 'string + ) + + +(defcustom inferior-Splus-objects-command "objects(where=%d)\n" + "Format string for R command to get a list of objects at position %d. +Used in e.g., \\[ess-execute-objects] or \\[ess-display-help-on-object]." + :group 'ess-command + :type 'string) + +(defvaralias 'inferior-S+6-print-command 'inferior-S+-print-command) + +(defcustom inferior-S+-print-command "S_PRINT_COMMAND=emacsclientw.exe" + "Destination of print icon in S+ for Windows Commands window." + :group 'ess-SPLUS + :type 'string) + +(defvaralias 'inferior-S+6-editor-pager-command 'inferior-S+-editor-pager-command) +(defcustom inferior-S+-editor-pager-command + "options(editor='emacsclient.exe', pager='emacsclientw.exe')" + "Programs called by the editor() and pager() functions in S+ +for Windows Commands window and in Sqpe+6 for Windows buffer." + :group 'ess-SPLUS + :type 'string) + +(defvaralias 'inferior-Sqpe+6-program 'inferior-Sqpe+-program) +(define-obsolete-variable-alias 'inferior-Sqpe+-program-name + 'inferior-Sqpe+-program "ESS 18.10") +(defcustom inferior-Sqpe+-program + (concat ess-program-files "/TIBCO/splus82/cmd/Sqpe.exe") + "Program name for invoking an inferior ESS with Sqpe+6() for Windows." + :group 'ess-S + :type '(choice (const nil) (string))) + +(defvaralias 'inferior-Sqpe+6-SHOME-name 'inferior-Sqpe+-SHOME-name) +(defcustom inferior-Sqpe+-SHOME-name + (if ess-microsoft-p (concat ess-program-files "/TIBCO/splus82" "")) + "SHOME name for invoking an inferior ESS with Sqpe+6 and higher for Windows. +The default value is correct for a default installation of +S-Plus 8.1. For any other version or location, +change this value in ess-site.el or site-start.el. Use the 8.3 +version of the pathname." + :group 'ess-SPLUS + :type '(choice (const nil) (string))) + +(defcustom ess-S-quit-kill-buffers-p nil + "Controls whether S buffers should also be killed once a process is killed. +This is used only when an iESS process is killed using C-c C-q. +Possible values: +nil - do not kill any S buffers associated with the process. +t - kill S buffers associated with the process. +ask - ask the user whether the S buffers should be killed." + :group 'ess-S + :type '(choice (const nil) (const t) (const ask))) + +(define-obsolete-variable-alias 'inferior-SAS-program-name + 'inferior-SAS-program "ESS 18.10") +(defcustom inferior-SAS-program "sas" + "Program name for invoking an inferior ESS with SAS()." + :group 'ess-sas + :type '(choice (string) (file))) + +(define-obsolete-variable-alias 'inferior-STA-program-name + 'inferior-STA-program "ESS 18.10") +(defcustom inferior-STA-program "stata" + "Program name for invoking an inferior ESS with stata(). +This is NOT Stata, because we need to call stata with TERM=emacs in +order for it to work right. And Emacs is too smart for it." + :group 'ess-Stata + :type '(choice (string) (file))) + +(defcustom ess-sta-delimiter-friendly nil + "Non-nil means convert embedded semi-colons to newlines for Stata processing." + :group 'ess-Stata + :type 'boolean) + +(defvaralias 'R-editor 'ess-r-editor) +(defcustom ess-r-editor "emacsclient" + "Editor called by R process with 'edit()' command." + :group 'ess + :type 'string) + +(defvaralias 'R-pager 'ess-r-pager) +(defcustom ess-r-pager 'nil ; Usually nil is correct as ESS and page() cooperate. + "Pager called by R process with 'page()' command." + :group 'ess + :type '(choice (const nil) string)) + +(defcustom S-editor "emacsclient" + "Editor called by S process with 'edit()' command." + :group 'ess + :type 'string) + +(defcustom S-pager + (if ess-microsoft-p "emacsclientw.exe" "emacsclient") + "Pager called by S process with 'page()' command." + :group 'ess + :type 'string) + +(defvar-local ess-editor nil + "Editor by which the process sends information to an Emacs buffer +for editing and then to be returned to the process.") + +(defvar-local ess-pager nil + "Pager by which the process sends information to an Emacs buffer.") + +(defvar-local inferior-ess-language-start nil + "Initialization commands sent to the ESS process.") + +(defcustom inferior-ess-help-filetype nil + "S-Plus and Sqpe for Windows use the \"chm\" (compiled html) filetype +for help files. The default value is nil for other systems." + :group 'ess-proc + :type '(choice (const nil) (string))) +(make-variable-buffer-local 'inferior-ess-help-filetype) + +(defvar inferior-S-program inferior-S+3-program + "Program name for invoking an inferior ESS with S.") + +(define-obsolete-variable-alias 'inferior-ess-program-name + 'inferior-ess-program "ESS 18.10") +(defvar-local inferior-ess-program nil ;inferior-S-program + "Default program name for invoking `inferior-ess'. +The other variables ...-program should be changed, for the +corresponding program.") + +(defvar inferior-ess-start-args "" + "String of arguments passed to the ESS process. +If you wish to pass arguments to a process, see e.g. `inferior-R-args'.") + +(defcustom inferior-ess-pager (if ess-microsoft-p "console" "cat") + "Pager to use for reporting help files and similar things." + :group 'ess-proc + :type 'string) + +(defvar-local inferior-ess-primary-prompt "> " + "Regular expression used by `ess-mode' to detect the primary prompt.") + +(defvar-local inferior-ess-secondary-prompt nil + "Regular expression used by ess-mode to detect the secondary prompt. +This is issued by S to continue an incomplete expression. +Set to nil if language doesn't support secondary prompt.") + +(defvar ess-traceback-command nil + "Command to generate error traceback.") + +;; Need this to recognize prompts of the form + + + > > > +;; and "+ . + ", but not "Abcd. " +(defvar inferior-S-prompt "[]a-zA-Z0-9.[]*[>+] \\(?:[>+.] \\)*" + "Regexp used in S and R inferior and transcript buffers for prompt navigation. +Must not be anchored to BOL.") + +;;*;; Variables controlling interaction with the ESS process + +(defcustom ess-execute-in-process-buffer nil + "Non-nil means the ess-execute- commands output to the process buffer. +Otherwise, they get their own temporary buffer." + :group 'ess-proc + :type 'boolean) + +(defcustom ess-eval-empty nil + "Non-nil means `ess-eval-line*' will send empty lines to the ESS process." + :group 'ess-proc + :type 'boolean) + +(defvaralias 'ess-eval-visibly-p 'ess-eval-visibly) + +(defcustom ess-eval-visibly t + "Non-nil means ess-eval- commands display commands in the process buffer. +If t, ESS waits after each line of the command for the process +output. This results in a nice sequence of input and output but +stalls emacs on long output (like Sys.sleep(5) in R). + +If 'nowait, ESS still shows the input commands, but don't wait +for the process. Thus all the output is printed after the input +lines. + +If nil, ESS doesn't print input commands and doesn't wait for the process. + +This variable also affect the evaluation of input code in +iESS. The effect is similar to the above. If t then ess waits for +the process output, otherwise not. +" + :group 'ess-proc + :type '(choice (const t) (const nowait) (const nil))) + +(defcustom ess-eval-deactivate-mark (fboundp 'deactivate-mark); was nil till 2010-03-22 + "Non-nil means that after ess-eval- commands the mark is deactivated, + (see \\[deactivate-mark])." + :group 'ess-proc + :type 'boolean) + +(defcustom ess-use-R-completion t + "Non-nil means use R-builtin completion mechanism when available." + :group 'ess-proc + :type 'boolean) + +(defcustom ess-sleep-for-shell (if ess-microsoft-p 5 1) + "Pause before sending output to the shell." + :group 'ess-proc + :type 'number) + + ; System variables +;; VS[06-04-2016]: fixme: move all inf vars into ess-inf.el. + +;;*;; Variables relating to multiple processes + +(defvar-local ess--mode-line-process-indicator '("" ess-local-process-name) + "List of ESS mode-line indicators. +Local in process buffers and must start with a string. Changes of +this variable are automatically reflected in mode-lines of the +process and all associated with it buffers. + +Each symbol must evaluate ot one of the standard mode line +objecst. See info node `(elisp)Mode Line Data'). Add a symbol +with `add-to-list' and remove with `delq'. Note that the symbols +which are part of this list should better have +'risky-local-variable property set to t, otherwise the text +properties are not displayed. + +External utilities such as `ess-tracebug' and `ess-developer' +customize this variable to indicate changes in the process +status. +") +(put 'ess--mode-line-process-indicator 'risky-local-variable t) + +(defvar-local ess--local-mode-line-process-indicator '("") + "List of local process indicators. +See `ess--mode-line-process-indicator' for how to set it. + +This is an internal varialbe used by tools like `ess-developer' +and `ess-tracebug'.") +(put 'ess--local-mode-line-process-indicator 'risky-local-variable t) + +(defvar ess-process-name-list nil + "Alist of active ESS processes.") + +;;*;; Inferior ESS commands + +(defvar-local ess-load-command "source('%s')\n" + "Dialect specific format-string for building the ess command to load a file. + +This format string should use %s to substitute a file name and should +result in an ESS expression that will command the inferior ESS to load +that file.") + +(defvar-local ess-eval-command nil + "Dialect specific format-string for building the command to evaluate a string. + +It is usually faster to send a string to remote processes than a +file. The latter involves Tramp and can be quite slow. When +possible, a dialect should implement that command and use it +preferentially. + +This format string should use %s as a placeholder for the string +to be evaluated and, optionally, %f for the file name to be +reported in the error references. + +The resulting command should not echo code or print any +transitory output. See also `ess-eval-visibly-command' and +`ess-eval-visibly-noecho-command'.") + +(defvar-local ess-build-eval-message-function nil + "Dialect-specific function for formatting an evaluation message.") + +(defcustom inferior-ess-dump-command "dump(\"%s\",file=\"%s\")\n" + "Format-string for building the ess command to dump an object into a file. + +Use first %s to substitute an object name +Use second %s to substitute the dump file name." + :group 'ess-command + :type 'string) + +(defvar-local inferior-ess-help-command "help(\"%s\")\n" + "Format-string for building the ESS command to ask for help on an object. + +This format string should use %s to substitute an object name.") + +(defcustom inferior-ess-r-help-command ".ess.help('%s')\n" + "Format-string for building the R command to ask for help on an object. + +This format string should use %s to substitute an object name. +If set, changes will take effect when next R session is started." + :group 'ess-command + :type 'string) + +(defvar-local ess-get-help-topics-function nil + "Dialect specific help topics retrieval") + +(defvar-local ess-display-help-on-object-function nil + "Dialect specific function for displaying help on object.") + +(defvar-local ess-find-help-file-function nil + "Dialect specific function for displaying help on object.") + +(defvar-local ess-build-help-command-function nil + "Dialect specific function for building an help command.") + +(defvar-local inferior-ess-exit-command "q()\n" + "Format-string for building the ess command to exit. + +This format string should use %s to substitute an object name.") + +(defvar-local inferior-ess-search-list-command nil + "`ess-language' command that prints out the search list; +i.e. the list of directories and (recursive) objects that `ess-language' uses +when it searches for objects. + +Really set in -customize-alist in ess[dl]-*.el") + +(defcustom inferior-ess-safe-names-command + "tryCatch(base::print(base::names(%s), max=1e6), error=function(e){})\n" + "Format string for ESS command to extract names from an object *safely*. + +%s is replaced by an \"object name\" -- usually a list or data frame, but in R also + e.g., 'package:stats'." + :group 'ess-command + :type 'string) + +(defcustom inferior-ess-get-prompt-command "options()$prompt\n" + "Command to find the value of the current S prompt." + :group 'ess-command + :type 'string) + +;;*;; Regular expressions +(defvar-local inferior-ess-prompt nil + "The regular expression used for recognizing prompts. + +It is always used in transcript mode. In inferior ess mode it is +used only if `comint-use-prompt-regexp' is t. + +If not set in language's customise-alist it is constructed at run time +from `inferior-ess-primary-prompt' and `inferior-ess-secondary-prompt'.") + + +(defvar-local ess-change-sp-regexp "" + "The regexp for matching the S/R/.. commands that change the search path.") + +(defvar ess-S+-change-sp-regexp + "\\(attach(\\([^)]\\|$\\)\\|detach(\\|collection(\\|library(\\|module(\\|source(\\)" + "The regexp for matching the S-plus commands that change the search path.") + +(defvar ess-S-change-sp-regexp + "\\(attach(\\([^)]\\|$\\)\\|detach(\\|library(\\|source(\\)" + "The regexp for matching the S commands that change the search path.") + +(defvaralias 'ess-R-change-sp-regexp 'ess-r-change-sp-regexp) +(defvar ess-r-change-sp-regexp + "\\(attach(\\([^)]\\|$\\)\\|detach(\\|library(\\|require(\\|source(\\)" + "The regexp for matching the R commands that change the search path.") + +;;*;; Process-dependent variables + +(defvar ess-search-list nil + "Deprecated. Use (ess-search-list) or (ess-process-get 'search-list) instead.") +(make-obsolete-variable 'ess-search-list nil "ESS[12.09]") + +(defvar-local ess-sl-modtime-alist nil + "Alist of modification times for all ess directories accessed this session.") + +(defvar ess-sp-change nil + "Variable not used. Use (ess-process-get 'sp-for-help-changed?) instead.") +(make-obsolete-variable 'ess-sp-change nil "ESS[12.09]") +;; (make-variable-buffer-local 'ess-sp-change) + +(defvar-local ess-prev-load-dir/file nil + "This symbol saves the (directory . file) pair used in the last +`ess-load-file' command. Used for determining the default in the next one.") + +(defvar-local ess-object-list nil + ;; This is a list of the currently known object names. It is + ;; current only for one command entry; it exists under the + ;; assumption that the list of objects doesn't change while entering + ;; a command. + "Cache of object names.") + +(defvar-local ess-help-topics-list nil + ;; List of currently known help topics. + "Cache of help topics.") + +;;*;; Miscellaneous system variables + +(defvar ess-temp-point nil + "Variable used to retain a buffer position past let or let*.") + + +;; SJE: Wed 29 Dec 2004 - following 3 ess-object* variables can be removed +;; soon if no-one needs the completion code. +(defvar ess-object-name-db-file "ess-namedb" + "File containing definitions for `ess-object-name-db'.") + +(defvar ess-object-name-db-file-loaded '() + "List of programs whose name-db file has been loaded.") + +(defvar-local ess-object-name-db nil + "Alist of lists of object names, with directory names as keys. +The file ess-namedb.el is loaded (if it exists) to define this variable. +See also function `ess-create-object-name-db'.") + +;;;*;;; Font-lock support + +;; "Reserved Words" -- part 1 -- +(defvar ess-RS-constants + '("TRUE" "FALSE" "NA" "NULL" "Inf" "NaN")) +(defvar ess-R-constants + (append ess-RS-constants + '("NA_integer_" "NA_real_" "NA_complex_" "NA_character_"))) +(defvar ess-S-constants + (append ess-RS-constants + '("T" "F"))) + +(defvar ess-R-keywords + '("if" "else" "repeat" "while" "function" "for" "in" "next" "break" + "switch" "function" "return" "on.exit" "stop" ".Defunct" "tryCatch" + "withRestarts" "invokeRestart" + "recover" "browser") + "Reserved words or special functions in the R language.") + +(defvar ess-S-keywords + (append ess-R-keywords '("terminate"))) + +;; only some of these keywords "look like functions but are not": +(defvar ess-S-non-functions + '("if" "for" "function" "while")) + +;; first the common ones +(define-obsolete-variable-alias 'ess-S-modifyiers 'ess-S-modifiers "18.10") +(defvar ess-S-modifiers + '("library" "attach" "detach" "source" "module" + "message" "warning")) + +(define-obsolete-variable-alias 'ess-R-modifyiers 'ess-R-modifiers "18.10") +(defvar ess-R-modifiers + '("library" "attach" "detach" "source" "require" + "setwd" "options" "par" "load" "rm" + "message" "warning" ".Deprecated" + "signalCondition" "withCallingHandlers")) + +(defvar ess-R-message-prefixes + '("Error:" "Error in" + "Warning:" "Warning in" + "Warning messages")) +(defvar ess-S-message-prefixes + (append ess-R-message-prefixes + '("Syntax error:" "Dumped"))) + +(defvar ess-R-assign-ops + ;; don't want "=" here which is not only for assign + '("<<-" "<-" "->" "->>")) +(defvar ess-S-assign-ops ess-R-assign-ops) + +(defvar ess-R-function-name-regexp + (concat "\\(" "\\sw+" "\\)" + "[ \t]*" "\\(<-\\)" + "[ \t\n]*" "function\\b")) + +(defvar ess-S-function-name-regexp + ess-R-function-name-regexp) + +(defvar ess-font-lock-keywords nil + "Internal. Holds a name of the dialect sepcific font-lock +keywords in the current buffer. See `ess-R-font-lock-keywords' +for an example.") + +(defvar ess-fl-keyword:fun-calls + (cons "\\(\\sw+\\)[\t ]*(" '(1 ess-function-call-face keep)) + "Font lock for function calls.") + +(defvar ess-fl-keyword:numbers + (cons "\\b\\.?[0-9]+[.eEL]?[0-9]*\\b" 'ess-numbers-face) + "Font lock for numbers.") + +(defvar ess-fl-keyword:delimiters + (cons "\\s(\\|\\s)" 'ess-paren-face) + "Font lock for parenthesis.") + +(defvar ess-fl-keyword:= + (cons "=" 'ess-paren-face) + "Font lock for equal sign (=).") + +(defvar ess-fl-keyword:operators + (cons "[-=+>" table) ; \n single-line comment end + (modify-syntax-entry ?\{ "(} " table) + (modify-syntax-entry ?\} "){ " table) + (modify-syntax-entry ?\[ "(] " table) + (modify-syntax-entry ?\] ")[ " table) + (modify-syntax-entry ?\( "() " table) + (modify-syntax-entry ?\) ")( " table) + (modify-syntax-entry ?\r " " table) + (modify-syntax-entry ?+ "." table) + (modify-syntax-entry ?- "." table) + (modify-syntax-entry ?= "." table) + (modify-syntax-entry ?* "." table) + (modify-syntax-entry ?/ "." table) + (modify-syntax-entry ?> "." table) + (modify-syntax-entry ?< "." table) + (modify-syntax-entry ?& "." table) + (modify-syntax-entry ?| "." table) + (modify-syntax-entry ?! "." table) + (modify-syntax-entry ?\\ "\\" table) + (modify-syntax-entry ?\' "." table) + (modify-syntax-entry ?\` "w" table) + (modify-syntax-entry ?\" "\"" table) + (modify-syntax-entry ?. "w" table) + (modify-syntax-entry ?_ "w" table) + (modify-syntax-entry ?\% "." table) + (modify-syntax-entry ?\# "<" table) + (modify-syntax-entry ?\n ">" table) + table) + "Syntax table for `ess-gretl-mode'.") + +;; syntax table that holds within strings +(defvar ess-gretl-mode-string-syntax-table + (let ((table (make-syntax-table))) + table) + "Syntax table for `ess-gretl-mode' that holds within strings.") + +(defcustom gretl-continuation-offset 4 + "Extra indentation applied to Gretl continuation lines." + :type 'integer + :group 'ess-gretl) + +(defvar gretl-continuation-regexp + "[^#%\n]*\\(\\\\\\|\\.\\.\\.\\)\\s-*\\(\\s<.*\\)?$") + +(defcustom gretl-continuation-string "\\" + "Character string used for Gretl continuation lines. Normally \\." + :type 'string + :group 'ess-gretl) + +;; (defconst gretl-string-regex +;; "\"[^\"]*?\\(\\(\\\\\\\\\\)*\\\\\"[^\"]*?\\)*\"") + +(defconst gretl-function-header-regexp + (concat "^\\s-*\\<\\(function\\)\\>" + "\\([^=;\n]*=[ \t]*\\|[ \t]*\\)\\(\\w+\\)\\>") + "Regexp to match a Gretl function header. +The string `function' and its name are given by the first and third +parenthetical grouping.") + +;; (defconst ess-function-call-regexp +;; "\\s\"?\\(\\(\\sw\\|\\s_\\)+\\(<-\\)?\\)\\s\"?*\\s-*(" +;; "Regexp for function names") + +(defvar gretl-command-words + '("add" "adf" "anova" "append" "ar" "ar1" "arbond" "arch" + "arima" "biprobit" "break" "boxplot" "chow" "clear" "coeffsum" "coint" + "coint2" "corr" "corrgm" "cusum" "data" "dataset" "delete" "diff" + "difftest" "discrete" "dpanel" "dummify" "duration" "elif" "else" "end" + "endif" "endloop" "eqnprint" "equation" "estimate" "fcast" "foreign" "fractint" + "freq" "function" "funcerr" "garch" "genr" "gmm" "gnuplot" "graphpg" + "hausman" "heckit" "help" "hsk" "hurst" "if" "include" "info" + "intreg" "kalman" "kpss" "labels" "lad" "lags" "ldiff" "leverage" + "levinlin" "logistic" "logit" "logs" "loop" "mahal" "makepkg" "meantest" + "mle" "modeltab" "modprint" "modtest" "mpols" "negbin" "nls" "normtest" + "nulldata" "ols" "omit" "open" "orthdev" "outfile" "panel" "pca" + "pergm" "textplot" "poisson" "print" "printf" "probit" "pvalue" "quantreg" + "qlrtest" "qqplot" "quit" "rename" "reset" "restrict" "rmplot" "run" + "runs" "scatters" "sdiff" "set" "setinfo" "setobs" "setmiss" "shell" + "smpl" "spearman" "sprintf" "square" "sscanf" "store" "summary" "system" + "tabprint" "tobit" "tsls" "var" "varlist" "vartest" "vecm" "vif" + "wls" "xcorrgm" "xtab" "debug" "return" "catch" "for" "foreach" + "funcerr" "return" "while" "elif" "const" "3sls" "liml" "fiml" + "sur" "params" "deriv" "orthog" "weights" "series" "scalar" "genr") + "Commands in Gretl (these names are also reserved).") + +(defvar gretl-genr-functions + '("abs" "sin" "cos" "tan" "asin" "acos" "atan" "sinh" + "cosh" "tanh" "asinh" "acosh" "atanh" "log" "ln" "log10" + "log2" "exp" "sqrt" "diff" "ldiff" "sdiff" "lags" "int" + "round" "ceil" "floor" "sort" "dsort" "sortby" "ranking" "orthdev" + "nobs" "firstobs" "lastobs" "uniform" "normal" "cum" "missing" "ok" + "misszero" "lrvar" "quantile" "median" "gini" "zeromiss" "sum" "mean" + "min" "max" "sd" "var" "sst" "cnorm" "dnorm" "qnorm" + "gammafun" "lngamma" "digamma" "resample" "pnobs" "pmin" "pmax" "pmean" + "psd" "hpfilt" "bkfilt" "bwfilt" "fracdiff" "boxcox" "cov" "corr" + "movavg" "I" "zeros" "ones" "seq" "replace" "muniform" "mnormal" + "sumc" "sumr" "meanc" "meanr" "sdc" "minc" "maxc" "minr" + "maxr" "iminc" "imaxc" "iminr" "imaxr" "fft" "ffti" "cmult" + "cdiv" "mcov" "mcorr" "mxtab" "cdemean" "cholesky" "psdroot" "inv" + "invpd" "ginv" "diag" "transp" "vec" "vech" "unvech" "upper" + "lower" "rows" "cols" "det" "ldet" "tr" "onenorm" "infnorm" + "rcond" "rank" "qform" "mlag" "qrdecomp" "eigensym" "eigengen" "nullspace" + "princomp" "mexp" "fdjac" "BFGSmax" "obsnum" "isseries" "isscalar" "islist" + "isstring" "isnull" "nelem" "pdf" "cdf" "invcdf" "pvalue" "critical" + "randgen" "urcpval" "values" "mshape" "svd" "mols" "mpols" "mrls" + "mread" "mwrite" "selifc" "selifr" "polroots" "dummify" "wmean" "wvar" + "wsd" "xpx" "filter" "kfilter" "ksmooth" "ksimul" "trimr" "getenv" + "argname" "obslabel" "readfile" "grab" "strstr" "strncmp" "strlen" "sscanf" + "varname" "varnum" "tolower" "colnames" "rownames" "ljungbox" "msortby" "lincomb" + "imhof" "toepsolv" "diagcat" "xmin" "xmax" "corrgm" "mcovg" "fcstats" + "bessel" "fraclag" "mreverse" "deseas" "pergm" "irr" "npv" "logistic" + "weekday" "kdensity" "monthlen" "epochday" "setnote" "invmills" "polyfit" "chowlin" + "varsimul" "strsplit" "inlist" "errmsg" "isconst" "irf" "inbundle") + "Builtin functions for Gretl's genr command.") + + +(defvar gretl-option-flags + '("addstats" "all" "anova" "append" + "arch" "arma-init" "asymptotic" "autocorr" "auto" + "autocorr" "auxiliary" "balanced" "bartlett" + "between" "bootstrap" "both" "breusch-pagan" + "byobs" "by" "c" "close" + "coded" "cols" "column" "comfac" + "complete" "conditional" "contiguous" "continue" + "continuous" "control" "covariance" "cross" + "cross-section" "crt" "csv" "ct" + "ctt" "cubes-only" "dat" "database" + "dataset" "db" "degrees" "dhansen" + "difference" "diffuse" "discrete" "dpdstyle" + "drop-empty" "drop-first" "drop-last" "dummy" + "dynamic" "equal" "exit" "exponential" + "fcp" "fixed-effects" "from-file" "full" + "func" "gamma" "geomean" "gls" + "gmm" "gnu-R" "gnu-octave" "gph" + "gzipped" "hausman-reg" "hessian" "hilu" + "impulse-responses" "input" "inst" "integrate" + "intervals" "inverse-fit" "iterate" "jackknife" + "jbera" "jitter" "jmulti" "kendall" + "lags" "lagselect" "lbfgs" "lillie" + "liml" "linear-fit" "list" "loess-fit" + "log" "loglogistic" "lognormal" "logs" + "matrix" "matrix-diff" "medians" "ml" + "model1" "multi" "multinomial" "nc" + "next" "no-corc" "no-dates" "no-df-corr" + "no-gradient-check" "no-header" "no-missing" "no-scaling" + "no-stats" "normal" "normality" "notches" + "numerical" "odbc" "omit-obs" "one-scale" + "opg" "orthdev" "other" "out-of-sample" + "output" "overwrite" "p-values" "panel" + "panel-vars" "plot" "pooled" "preserve" + "print-final" "progress-bar" "progressive" "pwe" + "quadratic-fit" "quiet" "quit" "radians" + "random" "random-effects" "rank-sum" "raw" + "rc" "replace" "restrict" "restructure" + "reverse" "robust" "rolling" "row" + "rtf" "save" "save-all" "save-ehat" + "save-xbeta" "scalars" "seasonals" "send-data" + "sign" "signed-rank" "silent" "simple" + "simple-print" "single-yaxis" "skip-df" "spearman" + "special-time-series" "squares" "squares-only" "stacked-cross-section" + "stacked-time-series" "static" "stdresid" "suppress-fitted" + "swilk" "system" "t-ratios" "tall" + "test-down" "tex" "time-dummies" "time-series" + "to-file" "to_file" "traditional" "trend" + "two-step" "unequal-vars" "uniform" "unit-weights" + "variance-decomp" "vcv" "verbose" "wald" + "weibull" "weights" "white" "white-nocross" + "with-impulses" "with-lines" "write" "www" + "x-12-arima" "y-diff-only" "z-scores" "zeros") + "Gretl option flags.") + +(defvar gretl-internal-vars + '("Fstat" "T" "ahat" "aic" "bic" "chisq" "coeff_ci" + "coeff" "compan" "datatype" "df" "dwpval" "ec" "ehat" + "error" "ess" "fcast" "fcerr" "gmmcrit" "hausman" "hqc" + "h" "jalpha" "jbeta" "jvbeta" "kalman_llt" "kalman_lnl" "kalman_s2" + "kalman_t" "kalman_uhat" "llt" "lnl" "mnlprobs" "ncoeff" "nobs" + "nscan" "nvars" "obs" "pd" "pvalue" "rho" "rlnl" + "rsq" "s00" "s01" "s11" "sample" "sargan" "sigma" + "stderr" "stopwatch" "sysA" "sysB" "sysGamma" "t1" "t2" + "test" "trsq" "uhat" "unit" "vcv" "version" "vma" + "windows" "xlist" "xtxinv" "yhat" ) + "Model- and dataset-related variables.") + +(defconst gretl-block-start-keywords + (list "loop" "foreign" "function" "gmm" "if" "system" "mle" "nls" "restrict")) + +(defconst gretl-block-other-keywords + (list "else" "elif")) + +(defconst gretl-block-end-keywords + (list "end" "endif" "endloop")) + +(defvar gretl-keywords + (append gretl-block-start-keywords + gretl-block-other-keywords + gretl-block-end-keywords + '("break")) + "Reserved words in Gretl.") + + +(defun gretl-at-keyword (kw-list) + ; not a keyword if used as a field name, X.word, or quoted, :word + (and (or (= (point) 1) + (and (not (equal (char-before (point)) ?.)) + (not (equal (char-before (point)) ?:)))) + (not (ess-inside-string-or-comment-p (point))) + (not (ess-inside-brackets-p (point))) + (member (current-word) kw-list))) + + +(defconst gretl-font-lock-keywords + (list + ;; Fontify all builtin keywords. + (cons (concat "\\<\\(" + (mapconcat 'identity gretl-keywords "\\|") + "\\)\\>") + 'font-lock-keyword-face) + ;; Fontify all option flags. + (cons (concat "[ \t]--\\(" + (mapconcat 'identity gretl-option-flags "\\|") + "\\)") + 'font-lock-constant-face) + ;; Fontify all command words. + (cons (concat "\\<\\(" + (mapconcat 'identity gretl-command-words "\\|") + "\\)\\>") + 'font-lock-builtin-face) + ;; Fontify all builtin operators. + (cons "\\(&\\||\\|<=\\|>=\\|==\\|<\\|>\\|!=\\|!\\)" + (if (boundp 'font-lock-builtin-face) + 'font-lock-builtin-face + 'font-lock-preprocessor-face)) + ;; Fontify all internal variables. + (cons (concat "\\$\\(" + (mapconcat 'identity gretl-internal-vars "\\|") + "\\)\\>") + 'font-lock-variable-name-face) + + ;; Fontify all genr functions. + (cons (concat "\\<\\(" + (mapconcat 'identity gretl-genr-functions "\\|") + "\\)\\>") + 'font-lock-variable-name-face) + ;; Fontify all function declarations. + (list gretl-function-header-regexp + '(1 font-lock-keyword-face) + '(3 font-lock-function-name-face nil t))) + "Additional Gretl expressions to highlight.") + + +(defvar gretl-block-begin-regexp + (concat "\\<\\(" + (mapconcat 'identity gretl-block-start-keywords "\\|") + "\\)\\>")) + +(defvar gretl-block-else-regexp + (concat "\\<\\(" + (mapconcat 'identity gretl-block-other-keywords "\\|") + "\\)\\>")) + +(defvar gretl-block-end-regexp + (concat "\\<\\(" + (mapconcat 'identity gretl-block-end-keywords "\\|") + "\\)\\>")) + +(defvar gretl-block-begin-or-end-regexp + (concat gretl-block-begin-regexp "\\|" gretl-block-end-regexp)) + + +(defvar gretl-block-else-or-end-regexp + (concat gretl-block-else-regexp "\\|" gretl-block-end-regexp)) + +(defvar gretl-basic-offset 4) + +(defvar gretl-block-match-alist + '(("loop" . ("endloop")) + ("if" . ("else" "elif" "endif")) + ("nls" . ("end")) + ("mle" . ("end")) + ("gmm" . ("end")) + ("foreign" . ("end")) + ("restrict" . ("end")) + ("kalman" . ("end")) + ("system" . ("end"))) + "Alist with Gretl's matching block keywords. +Has Gretl's begin keywords as keys and a list of the matching else or +end keywords as associated values.") + + + +; get the position of the last open block +(defun gretl-last-open-block-pos (min) + (let ((count 0)) + (while (not (or (> count 0) (<= (point) min))) + (backward-word 1) + (setq count + (cond ((gretl-at-keyword gretl-block-start-keywords) + (+ count 1)) + ((and (zerop (string-match "\\(?:e\\(?:l\\(?:if\\|se\\)\\|nd\\(?:if\\|loop\\)?\\)\\)" (current-word))) + (not (ess-inside-comment-p)) (not (ess-inside-brackets-p))) + (- count 1)) + (t count)))) + (if (> count 0) + (point) + nil))) + + +(defun gretl-last-open-block (min) + (let ((pos (gretl-last-open-block-pos min))) + (and pos + (progn + (goto-char pos) + (+ gretl-basic-offset (current-indentation)))))) + + +; return indent implied by a special form opening on the previous line, if any +(defun gretl-form-indent () + (forward-line -1) + (end-of-line) + (backward-sexp) + (if (gretl-at-keyword gretl-block-other-keywords) + (+ gretl-basic-offset (current-indentation)) + (if (char-equal (char-after (point)) ?\() + (progn + (backward-word 1) + (let ((cur (current-indentation))) + (if (gretl-at-keyword gretl-block-start-keywords) + (+ gretl-basic-offset cur) + nil))) + nil))) + + +(defun gretl-indent-line () + "Indent current line of gretl code." + (interactive) + ; (save-excursion + (end-of-line) + (indent-line-to + (or (and (ess-inside-string-p (point-at-bol)) 0) + (save-excursion (ignore-errors (gretl-form-indent))) + (save-excursion + (let ((endtok (progn + (beginning-of-line) + (forward-to-indentation 0) + (gretl-at-keyword gretl-block-end-keywords)))) + (ignore-errors (+ (gretl-last-open-block (point-min)) + (if endtok (- gretl-basic-offset) 0))))) + ;; previous line ends in = + (save-excursion + (if (and (not (equal (point-min) (line-beginning-position))) + (progn + (forward-line -1) + (end-of-line) (backward-char 1) + (equal (char-after (point)) ?=))) + (+ gretl-basic-offset (current-indentation)) + nil)) + ;; take same indentation as previous line + (save-excursion (forward-line -1) + (current-indentation)) + 0)) + (when (gretl-at-keyword gretl-block-end-keywords) + (forward-word 1))) + +;; (defun gretl-send-string-function (process string visibly) +;; (let ((gretl-process (get-process "gretlcli"))) +;; (process-send-string process (format ess-load-command file))) + + +;; (defun gretl-send-string-function (process string visibly) +;; (let ((file (concat temporary-file-directory "gretl_eval_region.inp"))) +;; (with-temp-file file +;; (insert string)) +;; (process-send-string process (format ess-load-command file)))) + +(defun gretl--get-words-from-command (command start-reg end-reg) + (with-current-buffer (ess-command command) + (goto-char (point-min)) + (let ((beg (or (re-search-forward start-reg nil t) + (point-min))) + (end (progn (goto-char (point-max)) + (or (re-search-backward end-reg) + (point-max)))) + acum) + (goto-char beg) + (skip-chars-forward "\n") + (while (re-search-forward "[^ \t\n]+" end t) + (push (match-string-no-properties 0) acum)) + acum))) + +(defun gretl-get-help-topics-function (name) + (delete-dups + (append gretl-command-words gretl-genr-functions + gretl-block-end-keywords gretl-block-other-keywords + gretl-block-start-keywords + (gretl--get-words-from-command "help\n" "are:" "^For") + (gretl--get-words-from-command "help functions\n" "Accessors:" "^Functions") + (gretl--get-words-from-command "help functions\n" "^Functions" "^For") + ))) + +;; (defvar ess-gretl-error-regexp-alist '(gretl-in gretl-at) +;; "List of symbols which are looked up in `compilation-error-regexp-alist-alist'.") + +;; (add-to-list 'compilation-error-regexp-alist-alist +;; '(gretl-in "^\\s-*in [^ \t\n]* \\(at \\(.*\\):\\([0-9]+\\)\\)" 2 3 nil 2 1)) +;; (add-to-list 'compilation-error-regexp-alist-alist +;; '(gretl-at "^\\s-*\\(at \\(.*\\):\\([0-9]+\\)\\)" 2 3 nil 2 1)) + + +(defvar gretl-customize-alist + '((comint-use-prompt-regexp . t) + (inferior-ess-primary-prompt . "\\? ") + (inferior-ess-secondary-prompt . "\\ ") + (inferior-ess-prompt . "\\? ") + (ess-local-customize-alist . 'gretl-customize-alist) + (inferior-ess-program . "gretlcli") + (ess-get-help-topics-function . 'gretl-get-help-topics-function) + (ess-load-command . "open \"%s\"\n") + ;; (ess-dump-error-re . "in \\w* at \\(.*\\):[0-9]+") + ;; (ess-error-regexp . "\\(^\\s-*at\\s-*\\(?3:.*\\):\\(?2:[0-9]+\\)\\)") + ;; (ess-error-regexp-alist . ess-gretl-error-regexp-alist) + ;; (inferior-ess-objects-command . inferior-gretl-objects-command) + ;; (inferior-ess-search-list-command . "search()\n") + ;; inferior-ess-help-command . gretl-help-command) + (inferior-ess-help-command . "help %s\n") + (ess-language . "gretl") + (ess-dialect . "gretl") + (ess-suffix . "inp") + (ess-dump-filename-template . (replace-regexp-in-string + "S$" ess-suffix ; in the one from custom: + ess-dump-filename-template-proto)) + (ess-change-sp-regexp . nil );ess-r-change-sp-regexp) + (ess-help-sec-regex . ess-help-r-sec-regex) + (ess-help-sec-keys-alist . ess-help-r-sec-keys-alist) + (ess-function-pattern . ess-r-function-pattern) + (ess-object-name-db-file . "ess-r-namedb.el" ) + ;; (ess-imenu-mode-function . nil) + (ess-smart-operators . ess-r-smart-operators) + (inferior-ess-exit-command . "exit\n") + ;;harmful for shell-mode's C-a: -- but "necessary" for ESS-help? + (inferior-ess-start-args . "") + (inferior-ess-language-start . nil) + (ess-STERM . "iESS") + ) + "Variables to customize for Gretl -- set up later than Emacs initialization.") + +;; (defcustom inferior-gretl-program "gretlcli" +;; "*The program to use for running gretl scripts." +;; :type 'string +;; :group 'ess-gretl) + +;; (defvar ess-gretl-versions '("gretcli") +;; "List of partial strings for versions of Julia to access within ESS. +;; Each string specifies the start of a filename. If a filename +;; beginning with one of these strings is found on `exec-path', a M-x +;; command for that version of Julia is made available. ") + +(defcustom inferior-gretl-args "" + "String of arguments used when starting gretl. +These arguments are currently not passed to other versions of gretl that have +been created using the variable `ess-r-versions'." + :group 'ess-gretl + :type 'string) + +;;;###autoload +(define-derived-mode ess-gretl-mode ess-mode "ESS[gretl]" + "Major mode for editing gretl source. See `ess-mode' for more help." + ;; (setq ess-customize-alist gretl-customize-alist) + ;;(setq imenu-generic-expression R-imenu-generic-expression) + (ess-setq-vars-local gretl-customize-alist) + (setq font-lock-defaults `(,gretl-font-lock-keywords)) + (setq-local paragraph-start (concat "\\s-*$\\|" page-delimiter)) + (setq-local paragraph-separate (concat "\\s-*$\\|" page-delimiter)) + (setq-local paragraph-ignore-fill-prefix t) + (setq-local comment-start "# ") + (setq-local comment-add 1) + (setq-local comment-start-skip "\\s<+\\s-*") + (setq-local comment-column 40) + (setq-local ess-indent-line-function 'gretl-indent-line) + (setq-local ess-local-customize-alist gretl-customize-alist) + (when (fboundp 'ess-add-toolbar) (ess-add-toolbar))) + + +(defvar ess-gretl-post-run-hook nil + "Functions run in process buffer after Gretl starts.") + +;;;###autoload +(defun gretl (&optional start-args) + "Call 'gretl', +Optional prefix (C-u) allows to set command line arguments, such as +--vsize. This should be OS agnostic. +If you have certain command line arguments that should always be passed +to gretl, put them in the variable `inferior-gretl-args'." + (interactive "P") + ;; get settings, notably inferior-ess-r-program : + ;; (if (null inferior-gretl-program) + ;; (error "'inferior-gretl-program' does not point to 'gretl-release-basic' executable") + (setq ess-customize-alist gretl-customize-alist) + (ess-write-to-dribble-buffer ;; for debugging only + (format + "\n(Gretl): ess-dialect=%s, buf=%s" + ess-dialect (current-buffer))) + (let* ((r-start-args + (concat inferior-gretl-args " " ; add space just in case + (if start-args + (read-string + (concat "Starting Args [other than `" + inferior-gretl-args + "'] ? ")) + nil)))) + (inferior-ess r-start-args) + (set (make-local-variable 'indent-line-function) 'gretl-indent-line) + (set (make-local-variable 'gretl-basic-offset) 4) + (setq indent-tabs-mode nil) + (goto-char (point-max)) + ;; (if inferior-ess-language-start + ;; (ess-eval-linewise inferior-ess-language-start + ;; nil nil nil 'wait-prompt))) + (with-ess-process-buffer nil + (run-mode-hooks 'ess-gretl-post-run-hook)) + )) + + +;;;; IMENU + +;; (defvar gretl-imenu-generic-expression +;; '(("Function (_)" "^\\s-*function\\s-+\\(_[^ \t\n]*\\)" 1) +;; ("Function" "^\\s-*function\\s-+\\([^_][^ \t\n]*\\)" 1) +;; ("Const" "^\\s-*const \\([^ \t\n]*\\)" 1) +;; ("Type" "^\\s-*\\w*type\\w* \\([^ \t\n]*\\)" 1) +;; ("Load" " *\\(load\\)(\\([^ \t\n)]*\\)" 2) +;; ;; ("Classes" "^.*setClass(\\(.*\\)," 1) +;; ;; ("Coercions" "^.*setAs(\\([^,]+,[^,]*\\)," 1) ; show from and to +;; ;; ("Generics" "^.*setGeneric(\\([^,]*\\)," 1) +;; ;; ("Methods" "^.*set\\(Group\\|Replace\\)?Method(\"\\(.+\\)\"," 2) +;; ;; ;;[ ]*\\(signature=\\)?(\\(.*,?\\)*\\)," 1) +;; ;; ;; +;; ;; ;;("Other" "^\\(.+\\)\\s-*<-[ \t\n]*[^\\(function\\|read\\|.*data\.frame\\)]" 1) +;; ;; ("Package" "^.*\\(library\\|require\\)(\\(.*\\)," 2) +;; ;; ("Data" "^\\(.+\\)\\s-*<-[ \t\n]*\\(read\\|.*data\.frame\\).*(" 1))) +;; )) + + +;; (defun ess-imenu-gretl (&optional arg) +;; "Gretl Language Imenu support for ESS." +;; (interactive) +;; (setq imenu-generic-expression gretl-imenu-generic-expression) +;; (imenu-add-to-menubar "Imenu-gretl")) + + +;; (defun ess-imenu-gretl (&optional arg) +;; "Gretl Language Imenu support for ESS." +;; (interactive) +;; (setq imenu-generic-expression gretl-imenu-generic-expression) +;; (imenu-add-to-menubar "Imenu-jl")) + + +(provide 'ess-gretl) + +;;; ess-gretl.el ends here diff --git a/elpa/ess-20190121.1430/ess-help.el b/elpa/ess-20190121.1430/ess-help.el new file mode 100644 index 00000000..7d4c7f26 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-help.el @@ -0,0 +1,900 @@ +;;; ess-help.el --- Support for viewing ESS help files -*- lexical-binding: t; -*- + +;; Copyright (C) 1989-1994, 2017 Bates, Kademan, Ritter and Smith +;; Copyright (C) 1997, A.J. Rossini +;; Copyright (C) 1998--2001 A.J. Rossini, Martin Maechler, Kurt Hornik and +;; Richard M. Heiberger . +;; Copyright (C) 2001--2010 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. +;; Copyright (C) 2011--2012 A.J. Rossini, Richard M. Heiberger, Martin Maechler, +;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. + +;; Author: David Smith +;; Created: 7 Jan 1994 +;; Maintainer: ESS-core + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; Code for dealing with ESS help files. See README. where +;; is one of `S', `SAS', `Stata'or `XLispStat'. + +;;; Code: + + ; Requires and autoloads +(require 'cl-lib) +(eval-when-compile + (require 'tramp)) +(require 'easymenu) +(require 'info) +(require 'ess-mode) +(require 'ess-inf) +(require 'ess-utils) + +(declare-function ess-r-help-mode 'ess-r-mode) +(declare-function ess-stata-help-mode "ess-stata-lang") + +(defvar ess--help-frame nil + "Stores the frame used for displaying R help buffers.") + + ; ess-help-mode +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;;; In this section: +;;;; +;;;; * The function ess-display-help-on-object +;;;; * The major mode ess-help-mode +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(defun ess--help-major-mode (&optional dialect) + "Determine which help major mode to call, and call it. +DIALECT defaults to `ess-dialect'." + (let ((ess-dialect (or dialect ess-dialect))) + (cond ((string= ess-dialect "R") (require 'ess-r-mode) (ess-r-help-mode)) + ((string= ess-dialect "stata") (require 'ess-stata-lang) (ess-stata-help-mode)) + (t (ess-help-mode))))) + +(defun ess--help-get-bogus-buffer-substring (buffer &optional nr-first) + "Return non-nil if BUFFER looks like a bogus ESS help buffer. +Return the pair (match-beg. match-end) which can be used in error +message. NR-FIRST is the number of characters at the start of the +buffer to examine when deciding if the buffer if bogus. If nil, +the first 150 characters of the buffer are searched." + (if (not nr-first) (setq nr-first 150)) + (with-current-buffer buffer + (let ((PM (point-min)) + (case-fold-search t) + searching res) + (setq res + (or ;; evaluate up to first non-nil (or end): + (< (- (point-max) PM) 80); buffer less than 80 chars + (not (setq searching t)) + ;; todo: move to customize-alist + (progn (goto-char PM) ;; R: + (re-search-forward "Error in help" nr-first t)) + (progn (goto-char PM) ;; S-plus 5.1 : + (re-search-forward "^cat: .*--" nr-first t)) + (progn (goto-char PM) ;; S version 3 ; R : + (re-search-forward "no documentation .+" nr-first t)) + (progn (goto-char PM) ;; stata + (re-search-forward "^help .*not found" nr-first t)))) + (ess-write-to-dribble-buffer + (format " |--> %s [searching %s]\n" res searching)) + (when res + (if searching + (buffer-substring (match-beginning 0) (match-end 0)) + (buffer-string)))))) + +(defun ess-help-get-local-help-buffers () + (ess-force-buffer-current) + (cl-remove-if-not + (lambda (buffer) + (let* ((pattern (concat "*help[" ess-current-process-name "](")) + (name (buffer-name buffer)) + (candidate (when (> (length name) (length pattern)) + (substring name 0 (length pattern))) )) + (when (string= pattern candidate) + buffer))) + (buffer-list))) + +(defvar-local ess-help-type nil + "Type of help file, help, index, vingettes etc. +Local in `ess-help' buffers.") + +(defvar-local ess-help-object nil + "Name of the object the help is displayed for. +Is name of the package for package index. +Local in `ess-help' buffers.") +(put 'ess-help-object 'permanent-local t) + +;;;###autoload +(defun ess-display-help-on-object (object &optional command) + "Display documentation for OBJECT in another window. +If prefix arg is given, force an update of the cached help topics +and query the ESS process for the help file instead of reusing an +existing buffer if it exists. Uses the variable +`inferior-ess-help-command' for the actual help command. Prompts +for the object name based on the cursor location for all cases +except the S-Plus GUI. With S-Plus on Windows (both GUI and in an +inferior Emacs buffer) the GUI help window is used. If COMMAND is +suplied, it is used instead of `inferior-ess-help-command'." + (interactive + (progn + (ess-force-buffer-current) + (when current-prefix-arg ;update cache if prefix + (ess-process-put 'sp-for-help-changed? t)) + (list (ess-find-help-file "Help on")))) + (if (fboundp ess-display-help-on-object-function) + (funcall ess-display-help-on-object-function object command) + (let* ((hb-name (concat "*help[" ess-current-process-name "](" + (replace-regexp-in-string "^\\?\\|`" "" object) ")*")) + (old-hb-p (get-buffer hb-name)) + (tbuffer (get-buffer-create hb-name))) + (when (or (not old-hb-p) + current-prefix-arg + (ess--help-get-bogus-buffer-substring old-hb-p)) + (ess-with-current-buffer tbuffer + (ess--flush-help-into-current-buffer object command) + (setq ess-help-object object) + (ess--help-major-mode) + (setq truncate-lines nil + ess-help-type 'help))) + (unless (ess--help-kill-bogus-buffer-maybe tbuffer) + (ess--switch-to-help-buffer tbuffer))))) + +;;;###autoload +(defalias 'ess-help 'ess-display-help-on-object) + +(defun ess-build-help-command (object) + (if (fboundp ess-build-help-command-function) + (funcall ess-build-help-command-function object) + ;; TODO-CLEANUP: Remove the inferior- prefix for consistency + (format inferior-ess-help-command object))) + +(defun ess--flush-help-into-current-buffer (object &optional command) + (let ((inhibit-modification-hooks t) + (inhibit-read-only t)) + (delete-region (point-min) (point-max)) + (let ((command (if (and command (string-match-p "%s" command)) + (format command object) + command))) + (ess-command (or command (ess-build-help-command object)) (current-buffer))) + (ess-help-underline) + (unless (string= ess-language "STA") + (ess-nuke-help-bs)) + (goto-char (point-min)) + (set-buffer-modified-p 'nil))) + +(defun ess--help-kill-bogus-buffer-maybe (buffer) + "Internal, try to kill bogus BUFFER with message. Return t if killed." + (when ess-help-kill-bogus-buffers + (let ((bog-mes (ess--help-get-bogus-buffer-substring buffer))) + (when bog-mes + ;; The following is giving erroneous messages when help is displayed in the browser + ;; (when (< (length bog-mes) 10) ;;no message at all, how to treat this properly? + ;; (setq bog-mes (format "No documentation found; %s" bog-mes))) + (ess-write-to-dribble-buffer + (format "(ess-help: kill bogus buffer %s ..\n" (buffer-name buffer))) + (message "%s" (replace-regexp-in-string "\n" "" bog-mes)) + ;; (ding) ;; don't ding, in julia a lot of doc strings are very short + (kill-buffer buffer))))) + +(defun ess-display-help-in-browser () + "Displaying html help where available, using \\[browse-url]." + (interactive) + ;; Three ways to find html help, 1) ask sub-process 2) get url/file from subproces + ;; 3) call elisp function to get the file path + ;; For 2 and 3 call browse-url on the output + (let (com-html-help ;1) command for sub-process to trigger + ;help, must contain %s for help obj + com-get-file-path ;2) command for sub-process to return a + ; location for the help page, must + ; contain %s for help obj + fun-get-file-path ;3) elisp function to return the + ;location, gets one argument, help topic + not-implemented + ) + (cond + ((string-match "^R" ess-dialect) + (setq com-html-help "help('%s', help_type='html')\n")) + (t (setq not-implemented t)) + ) + (if not-implemented + (message "Sorry, not implemented for %s " ess-dialect) + (if (or (not ess-help-object) + (not (eq ess-help-type 'help))) + (message "No help topic found") + (if com-html-help + (ess-command (format com-html-help ess-help-object)) + (require 'browse-url) + (if com-get-file-path + (browse-url (car (ess-get-words-from-vector + (format com-get-file-path ess-help-object)))) + (when (functionp fun-get-file-path) + (browse-url (funcall fun-get-file-path ess-help-object))))))))) + +(defun ess--button-action (&optional button) + "Provide help on object at the beginning of line. +It's intended to be used in R-index help pages. Load the package +if necessary. It is bound to RET and C-m in R-index pages." + (interactive) + (let* ((string (button-label button)) + (command (when (fboundp ess-build-help-command-function) + (funcall ess-build-help-command-function string)))) + (ess-display-help-on-object string command))) + +(cl-defgeneric ess-help-commands () + "Return an alist of dialect specific retriever commands. +Currently understood commands: + - package-for-object - command to get the package of current help object + - packages - command to get a list of available packages (REQUIRED) + - package-index - command to get the package index (REQUIRED) + - index-keyword-reg - regexp used to find keywords for linking in index listing + only (1st subexpression is used) + - index-start-reg - regexp from where to start searching for keywords in index listing" + (user-error "Not implemented for %s " ess-dialect)) + +(cl-defmethod ess-help-commands (&context ((string= ess-dialect "R") (eql t))) + '((package-for-object . "sub('package:', '', .ess.findFUN('%s'))\n") + (packages . ".packages(all.available=TRUE)\n") + (package-index . ".ess.help(package='%s', help.type='text')\n") + (index-keyword-reg . "^\\([^ \t\n:]+\\)") + (index-start-reg . "^Index:"))) + +(defun ess-display-package-index () + "Prompt for package name and display its index." + (interactive) + (let* ((coms (ess-help-commands)) + (all-packs (ess-get-words-from-vector (cdr (assoc 'packages coms)))) + (pack (or (when (and ess-help-object + (cdr (assoc 'package-for-object coms)) + (eq ess-help-type 'help)) + (car (ess-get-words-from-vector + (format (cdr (assoc 'package-for-object coms)) + ess-help-object)))) + (car (member (ess-read-object-name-default) all-packs))))) + (setq pack (ess-completing-read "Index of" all-packs nil nil nil nil pack)) + (ess--display-indexed-help-page + (format (cdr (assoc 'package-index coms)) pack) + (cdr (assoc 'index-keyword-reg coms)) + (format "*help[%s](index:%s)*" ess-dialect pack) + 'index nil nil (cdr (assoc 'index-start-reg coms)) pack))) + +(defun ess--display-indexed-help-page (command item-regexp title help-type + &optional action help-echo reg-start help-object) + "Internal function to display help pages with linked actions. +COMMAND to produce the indexed help page, +ITEM-REGEXP -- first subexpression is highlighted, +TITLE of the help page, +HELP-TYPE to be stored in `ess-help-type' local variable, +ACTION is a function with no argument (default is `ess--button-action'), +HELP-ECHO if given becomes the help-echo property of the button, +REG-START gives the start location from where to search linkifying, and HELP-OBJECT becomes `ess-help-object'." + (interactive) + (let ((inhibit-modification-hooks t) + (alist ess-local-customize-alist) + (pname ess-local-process-name) + (buff (get-buffer-create title))) + (with-current-buffer buff + (setq buffer-read-only nil) + (delete-region (point-min) (point-max)) + (setq ess-local-process-name pname) + (ess--help-major-mode) + (ess-setq-vars-local (eval alist)) + (setq ess-help-object help-object + ess-help-sec-regex "\\(^\\s-.*\n\\)\\|\\(^\n\\)") + (ess-command command buff) + (ess-help-underline) + (set-buffer-modified-p 'nil) + (goto-char (point-min)) + (when reg-start ;; go to the beginning of listing + (re-search-forward reg-start nil t)) + (when item-regexp + ;;linkify the buffer + (save-excursion + (while (re-search-forward item-regexp nil t) + (make-text-button (match-beginning 1) (match-end 1) + 'mouse-face 'highlight + 'action (or action #'ess--button-action) + 'help-object (buffer-substring-no-properties (match-beginning 1) (match-end 1)) + 'follow-link t + 'help-echo (or help-echo "help on object"))))) + ;; (save-excursion ;; why R places all these spaces? + ;; (goto-char (point-min)) + ;; (while (re-search-forward " \\{10,\\} *" nil t) + ;; (replace-match "\t\t\t"))) + (setq buffer-read-only t) + (setq ess-help-type help-type) + (setq truncate-lines nil)) + (unless (ess--help-kill-bogus-buffer-maybe buff) + (ess--switch-to-help-buffer buff)))) + +(defun ess-display-help-apropos (&optional pattern) + "Create an ess-apropos buffer with a *linked* list of apropos topics." + (interactive "sPattern: ") + (let (com regexp) + (cond ((equal ess-dialect "R") + (setq com "help.search('%s')\n" + regexp "^\\([^ \t\n:]+::[^ \t\n:]+\\)[ \t\n]+")) + ((equal ess-dialect "julia") + (setq com "apropos(\"%s\")\n" + regexp "^\\(\\(\\w\\|\\s_\\)+\\)(")) + ((equal ess-dialect "stata") + (setq com "hsearch %s\n" + regexp "^[\t ]*[0-9]+\\.[\t ]+\\(.+\\)$")) + (t (error "Not implemented for dialect %s" ess-dialect))) + (ess--display-indexed-help-page + (format com pattern) regexp + (format "*ess-apropos[%s](%s)*" ess-current-process-name pattern) + 'appropos))) + +(defun ess-display-demos () + "Create an ess-demos buffer with a *linked* list of available demos." + (interactive) + (let (com regexp) + (cond ((equal ess-dialect "R") + (setq com "demo()\n" + regexp "^\\([^ \n:]+\\) +")) + (t (error "Not implemented for dialect %s" ess-dialect))) + (ess--display-indexed-help-page + com regexp + (format "*ess-demos[%s]*" ess-current-process-name) + 'demos #'ess--action-demo))) + +(defun ess--action-demo (&optional button) + "Provide help on object at the beginning of line. +It's intended to be used in R-index help pages. Load the package +if necessary. It is bound to RET and C-m in R-index pages." + (interactive) + (let* ((string (button-label button)) + (command + (cond ((equal ess-dialect "R") + (format "demo('%s')\n" string)) + (t (error "Not implemented for dialect %s" ess-dialect))))) + (ess-eval-linewise command) + (ess-switch-to-end-of-ESS))) + +(defun ess-display-vignettes (&optional all) + "Display vignettes if available for the current dialect. +With (prefix) ALL non-nil, use `vignette(*, all=TRUE)`, i.e., from all installed + packages, which can be *very* slow." + (interactive "P") + (cond + ((equal ess-dialect "R") (ess-R-display-vignettes all)) + (t (message "Sorry, not implemented for %s" ess-dialect)))) + +(defun ess-R-display-vignettes (&optional all) + "Display R vignettes in ess-help-like buffer.. +With (prefix) ALL non-nil, use `vignette(*, all=TRUE)`, i.e., from all installed + packages, which can be *very* slow." + (interactive "P") + (let* ((vslist (with-current-buffer + (ess-command + (format ".ess_vignettes(%s)\n" (if all "TRUE" ""))) + (goto-char (point-min)) + (when (re-search-forward "(list" nil t) + (goto-char (match-beginning 0)) + (ignore-errors (eval (read (current-buffer))))))) + (proc-name ess-current-process-name) + (alist ess-local-customize-alist) + (remote (file-remote-p default-directory)) + (buff (get-buffer-create (format "*[%s]vignettes*" ess-dialect))) + (inhibit-modification-hooks t) + (inhibit-read-only t)) + (with-current-buffer buff + (setq buffer-read-only nil) + (delete-region (point-min) (point-max)) + (ess-setq-vars-local (eval alist)) + (setq ess-local-process-name proc-name) + (ess--help-major-mode) + (setq ess-help-sec-regex "^\\w+:$" + ess-help-type 'vignettes) + (set-buffer-modified-p 'nil) + (goto-char (point-min)) + (dolist (el vslist) + (let ((pack (car el))) + (insert (format "\n\n%s:\n\n" (propertize pack 'face 'underline))) + (dolist (el2 (cdr el)) + (let ((path (if remote + (with-no-warnings + ;; Have to wrap this in with-no-warnings because + ;; otherwise the byte compiler complains about + ;; calling tramp-make-tramp-file-name with an + ;; incorrect number of arguments on Both 26+ and 25 emacses. + (if (>= emacs-major-version 26) + (with-parsed-tramp-file-name default-directory nil + (tramp-make-tramp-file-name method user domain host port (nth 1 el2))) + (with-parsed-tramp-file-name default-directory nil + (tramp-make-tramp-file-name method user host (nth 1 el2))))) + (nth 1 el2)))) + (insert-text-button "Pdf" + 'mouse-face 'highlight + 'action (if remote + #'ess--action-open-in-emacs + #'ess--action-R-open-vignette) + 'follow-link t + 'vignette (file-name-sans-extension (nth 2 el2)) + 'package pack + 'help-echo (concat path "/doc/" (nth 2 el2))) + (insert " ") + (insert-text-button "Rnw" + 'mouse-face 'highlight + 'action #'ess--action-open-in-emacs + 'follow-link t + 'help-echo (concat path "/doc/" (nth 3 el2))) + (insert " ") + (insert-text-button "R" + 'mouse-face 'highlight + 'action #'ess--action-open-in-emacs + 'follow-link t + 'help-echo (concat path "/doc/" (nth 4 el2))) + (insert (format "\t%s\n" (nth 0 el2))))))) + (goto-char (point-min)) + (insert (propertize "\t\t**** Vignettes ****\n" 'face 'bold-italic)) + (unless (eobp) (delete-char 1)) + (setq buffer-read-only t)) + (ess--switch-to-help-buffer buff))) + +(defun ess--action-open-in-emacs (pos) + (display-buffer (find-file-noselect (get-text-property pos 'help-echo)))) +(defun ess--action-R-open-vignette (pos) + (ess-eval-linewise (format "vignette('%s', package='%s')\n" + (get-text-property pos 'vignette) + (get-text-property pos 'package)))) + +(defalias 'ess-help-quit 'quit-window) +(make-obsolete 'ess-help-quit 'quit-window "16.04") + +(defun ess--find-displayed-help-window () + (catch 'win + (dolist (f (frame-list)) + (when (frame-visible-p f) + (dolist (w (window-list f)) + (when (with-current-buffer (window-buffer w) (derived-mode-p 'ess-help-mode)) + (throw 'win w))))))) + +(defun ess--switch-to-help-buffer (buff) + "Switch to an ESS help BUFF. +For internal use. Take into account variable `ess-help-own-frame'." + (if (eq ess-help-own-frame t) + ;; 0) always pop new frame + (let* ((frame (make-frame ess-help-frame-alist)) + (action `(display-buffer-same-window (reusable-frames . ,frame)))) + (ess--display-help buff frame action)) + (let ((help-win (or + ;; if this doc is already displayed, reuse + (get-buffer-window buff 'all-frames) + ;; if help window visible, reuse + (and ess-help-reuse-window + (ess--find-displayed-help-window))))) + (cond + ;; 1) existent help window lying somewhere; reuse + (help-win + (set-window-buffer help-win buff) + (let ((action '(display-buffer-reuse-window (reusable-frames . t)))) + (ess--display-help buff nil action))) + ;; 2) + ((eq ess-help-own-frame 'one) + (let* ((frame (if (frame-live-p ess--help-frame) + ess--help-frame + (make-frame ess-help-frame-alist))) + (action `(display-buffer-same-window (reusable-frames . ,frame)))) + (setq ess--help-frame frame) + (ess--display-help buff frame action))) + ;; 3) display help in other window + (t + (ess--display-help buff)))))) + +(defun ess--display-help (buff &optional frame action) + (let ((action (or action `(nil (reusable-frames . ,(or frame ess-display-buffer-reuse-frames)))))) + (when (and (framep frame) + (not (eq (selected-frame) frame))) + ;; VS[04-05-2018]: `display-buffer` framework has no satisfactory + ;; functionality to display buffers in selected windows. So, do some extra + ;; frame selection here. + (raise-frame frame) + (if ess-help-pop-to-buffer + (select-frame-set-input-focus frame) + (select-frame frame))) + (if ess-help-pop-to-buffer + (pop-to-buffer buff action) + (display-buffer buff action)))) + +(defun ess-help-web-search () + "Search the web for documentation." + (interactive) + (ess-execute-dialect-specific ess-help-web-search-command "Search for: ")) + +(defun ess-manual-lookup () + "Search manual for topic." + (interactive) + (ess-execute-dialect-specific ess-manual-lookup-command )) + +(defun ess-reference-lookup () + "Search manual for topic." + (interactive) + (ess-execute-dialect-specific ess-reference-lookup-command)) + +(defvar ess-doc-map + (let (ess-doc-map) + (define-prefix-command 'ess-doc-map) + (define-key ess-doc-map "\C-e" 'ess-describe-object-at-point) + (define-key ess-doc-map "e" 'ess-describe-object-at-point) + (define-key ess-doc-map "\C-d" 'ess-display-help-on-object) + (define-key ess-doc-map "d" 'ess-display-help-on-object) + (define-key ess-doc-map "\C-i" 'ess-display-package-index) + (define-key ess-doc-map "i" 'ess-display-package-index) + (define-key ess-doc-map "\C-a" 'ess-display-help-apropos) + (define-key ess-doc-map "a" 'ess-display-help-apropos) + (define-key ess-doc-map "\C-v" 'ess-display-vignettes) + (define-key ess-doc-map "v" 'ess-display-vignettes) + (define-key ess-doc-map "\C-o" 'ess-display-demos) + (define-key ess-doc-map "o" 'ess-display-demos) + (define-key ess-doc-map "\C-w" 'ess-help-web-search) + (define-key ess-doc-map "w" 'ess-help-web-search) + (define-key ess-doc-map "\C-m" 'ess-manual-lookup) + (define-key ess-doc-map "m" 'ess-manual-lookup) + (define-key ess-doc-map "\C-r" 'ess-reference-lookup) + (define-key ess-doc-map "r" 'ess-reference-lookup) + ess-doc-map + ) + "ESS documentation map.") + + +(defvar ess-help-mode-map + (let ((map (make-keymap))); Full keymap, in order to + (define-key map "\C-m" 'next-line) + (define-key map "h" 'ess-display-help-on-object) + (define-key map "w" 'ess-display-help-in-browser) + (define-key map "i" 'ess-display-package-index) + (define-key map "a" 'ess-display-help-apropos) + (define-key map "v" 'ess-display-vignettes) + ;; (define-key map [mouse-2] 'ess-display-help-on-object) + (define-key map "l" 'ess-eval-line-visibly-and-step) + (define-key map "r" 'ess-eval-region-and-go) + (define-key map "f" 'ess-eval-function-or-paragraph-and-step) + (define-key map "n" 'ess-skip-to-next-section) + (define-key map "p" 'ess-skip-to-previous-section) + (define-key map "/" 'isearch-forward) + (define-key map "x" 'ess-kill-buffer-and-go) + (define-key map "k" 'kill-this-buffer) + ;;-- those should be "inherited" from ess-mode-map ( ./ess-mode.el ) + (define-key map "\C-c\C-s" 'ess-switch-process) + (define-key map "\C-c\C-r" 'ess-eval-region) + (define-key map "\C-c\M-r" 'ess-eval-region-and-go) + (define-key map "\C-c\C-f" 'ess-eval-function) + (define-key map "\M-\C-x" 'ess-eval-function) + (define-key map "\C-c\M-f" 'ess-eval-function-and-go) + (define-key map "\C-c\C-j" 'ess-eval-line) + (define-key map "\C-c\C-n" 'ess-eval-line-visibly-and-step) + (define-key map "\C-c\C-c" 'ess-eval-region-or-function-or-paragraph-and-step) + (define-key map [(control return)] 'ess-eval-region-or-line-visibly-and-step) + (define-key map "\C-c\M-j" 'ess-eval-line-and-go) + (define-key map "\M-\C-a" 'ess-goto-beginning-of-function-or-para) + (define-key map "\M-\C-e" 'ess-goto-end-of-function-or-para) + (define-key map "\C-c\C-y" 'ess-switch-to-ESS) + (define-key map "\C-c\C-z" 'ess-switch-to-end-of-ESS) + (define-key map "\C-c\C-l" 'ess-load-file) + (define-key map "\C-c\M-l" 'ess-load-file); alias, as in 'iESS' where C-c C-l is comint-list-* + (define-key map "\C-c\C-v" 'ess-display-help-on-object) + (define-key map "\C-c\C-k" 'ess-request-a-process) + (define-key map "\C-c\C-d" 'ess-doc-map) + (define-key map "\C-c\C-e" 'ess-extra-map) + (define-key map "\C-c\C-t" 'ess-dev-map) + map) + "Keymap for ESS help mode.") + +;; One reason for the following menu is to the user about key strokes +(defvar ess-help-mode-menu + '("ESS-help" + ["Search Forward" isearch-forward t] + ["Next Section" ess-skip-to-next-section t] + ["Previous Section" ess-skip-to-previous-section t] + ["Help on Section Skipping" ess-describe-sec-map t] + ["Beginning of Buffer" beginning-of-buffer t] + ["End of Buffer" end-of-buffer t] + "-" + ["Help on ..." ess-display-help-on-object t] + ["Apropos of ..." ess-display-help-apropos t] + ["Index of ..." ess-display-package-index t] + ["Vignettes" ess-display-vignettes t] + ["Open in Browser" ess-display-help-in-browser t] + "-" + ["Eval Line" ess-eval-line-and-step t] + ["Eval Paragraph & step" ess-eval-paragraph-and-step t] + ["Eval Region & Go" ess-eval-region-and-go t] + ["Switch to ESS Process" ess-switch-to-ESS t] + ["Switch to End of ESS Proc." ess-switch-to-end-of-ESS t] + ["Switch _the_ Process" ess-switch-process t] + "-" + ["Kill Buffer" kill-this-buffer t] + ["Kill Buffer & Go" ess-kill-buffer-and-go t] + "-" + ["Handy commands" ess-handy-commands t]) + "Menu used in ess-help mode.") + +(easy-menu-define ess-help-mode-menu-map ess-help-mode-map + "Menu keymap for ess-help mode." ess-help-mode-menu) + +(define-derived-mode ess-help-mode special-mode "ESS Help" + "Mode for viewing ESS help files." + ;; FIXME + ;; (if ess-mode-syntax-table ;;set in advance by ess-setq-local + ;; (set-syntax-table ess-mode-syntax-table)) + (setq show-trailing-whitespace nil)) + + +;;*;; User commands defined in ESS help mode + +(defun ess-skip-to-help-section nil + "Jump to a section heading of a help buffer. +The section selected is determined by the command letter used to +invoke the command, as indicated by `ess-help-sec-keys-alist'. +Use \\[ess-describe-sec-map] to see which keystrokes find which +sections." + (interactive) + (let ((old-point (point)) + (case-fold-search nil)) + (goto-char (point-min)) + (let ((the-sec (cdr (assoc last-command-event ess-help-sec-keys-alist)))) + (if (not the-sec) (error "Invalid section key: %c" + last-command-event) + (if (re-search-forward (concat "^" the-sec) nil t) + (recenter) + (message "No %s section in this help. Sorry." the-sec) + (goto-char old-point)))))) + +(defun ess-skip-to-next-section nil + "Jump to next section in ESS help buffer." + (interactive) + (let ((case-fold-search nil)) + (if (re-search-forward ess-help-sec-regex nil 'no-error) nil + (message "No more sections.")))) + +(defun ess-skip-to-previous-section nil + "Jump to previous section in ESS help buffer." + (interactive) + (let ((case-fold-search nil)) + (if (re-search-backward ess-help-sec-regex nil 'no-error) nil + (message "No previous section.")))) + +(defun ess-kill-buffer-and-go nil + "Kill the current buffer and switch back to the ESS process." + (interactive) + (kill-buffer (current-buffer)) + (when (and ess-current-process-name (get-process ess-current-process-name)) + (ess-switch-to-ESS nil))) + +(defun ess-describe-sec-map nil + "Display help for the `s' key." + (interactive) + (let ((keys-alist ess-help-sec-keys-alist)) + (describe-function 'ess-skip-to-help-section) + + (with-current-buffer "*Help*" + (setq buffer-read-only nil) + (goto-char (point-max)) + (insert "\n\nCurrently defined keys are: + +Keystroke Section +--------- -------\n") + (dolist (cs keys-alist) + (insert " " + (car cs) + " " + (cdr cs) "\n"))))) + +(defun ess-helpobjs-at-point--read-obj () + (let* ((obj (ess-read-object-name-default))) + ;; Exclude numbers + (unless (and obj (not (string-match "[[:alpha:]]" obj))) + obj))) + +(defun ess-unqualify-symbol (object) + (if (string-match "^[[:alnum:].]+::?" object) + (substring object (match-end 0)) + object)) + +(defun ess-helpobjs-at-point (slist) + "Return a list (def obj fun). +Obj is a name at point, fun is the name of the function call +point is in, and def is either obj or fun (in that order) which +has a a help file, i.e. it is a member of slist (string-list). +nil otherwise." + (let* ((obj (ess-helpobjs-at-point--read-obj)) + (unqualified-obj (and obj (ess-unqualify-symbol obj))) + ;; FIXME: probably should use syntactic logic here + (fun (ignore-errors + (save-excursion + (save-restriction + (narrow-to-region (max (point-min) (- (point) 1000)) + (point-max)) + (backward-up-list 1) + (backward-char 1) + (ess-read-object-name-default)))))) + (list (or (car (member obj slist)) + (when (member unqualified-obj slist) + obj) + (car (member fun slist))) + obj fun))) + +(defun ess-find-help-file (p-string) + "Find help, prompting for P-STRING. +Note that we can't search SAS, Stata or XLispStat for additional information." + (ess-make-buffer-current) + (cond + ((fboundp ess-find-help-file-function) + (funcall ess-find-help-file-function p-string)) + ;; Fixme: Are `ess-find-help-file-function' and + ;; `ess-get-help-topics-function' redundant? + ((fboundp ess-get-help-topics-function) + (let* ((help-files-list (funcall ess-get-help-topics-function ess-current-process-name)) + (hlpobjs (ess-helpobjs-at-point help-files-list))) + (ess-completing-read p-string (append (delq nil hlpobjs) help-files-list) + nil nil nil nil (car hlpobjs)))) + (t + (read-string (format "%s: " p-string))))) + + +;;*;; Utility functions + +(defun ess-get-help-files-list () + "Return a list of files which have help available." + (apply 'nconc + (mapcar (lambda (str) + (let ((dirname (concat str "/.Help"))) + (and (file-directory-p dirname) + (directory-files dirname)))) + (ess-search-list)))) + +(defun ess-get-help-aliases-list () + "Return a list of aliases which have help available." + (message "Retrieving RDS aliases...") + ;; ess-command locks display, make sure the above message is visible + (redisplay t) + (ess-write-to-dribble-buffer "Processing RDS files ...\n") + (prog1 (ess-get-words-from-vector ".ess.getHelpAliases()\n") + (message "Retrieving RDS aliases...done"))) + +(defun ess-nuke-help-bs () + "Remove ASCII underlining and overstriking performed by ^H codes." + ;; This function is a modification of nuke-nroff-bs in man.el from the + ;; standard emacs 18 lisp library. + ;; Nuke underlining and overstriking (only by the same letter) + (goto-char (point-min)) + (while (search-forward "\b" nil t) + (let* ((preceding (char-after (- (point) 2))) + (following (following-char))) + (cond ((= preceding following) + ;; x\bx + (delete-char -2)) + ((= preceding ?\_) + ;; _\b + (delete-char -2)) + ((= following ?\_) + ;; \b_ + (delete-region (1- (point)) (1+ (point))))))) + (goto-char (point-min)) + (let ((case-fold-search nil)); 'URL' != 'url' ('libcurl: ' on ?capabilities) + (while (re-search-forward "\\bURL: " nil t); test with ?rtags + ;; quick fix for C-x f confusion (getting into tramp) + (delete-region (match-beginning 0) (match-end 0)))) + ;; Crunch blank lines + (goto-char (point-min)) + (while (re-search-forward "\n\n\n\n*" nil t) + (replace-match "\n\n")) + ;; Nuke blanks lines at start. + (goto-char (point-min)) + (skip-chars-forward "\n") + (delete-region (point-min) (point))) + +(defun ess-help-underline () + "Replace _^H codes with underline face." + (save-excursion + (goto-char (point-min)) + (while (search-forward "_" nil t) + (backward-delete-char 2) + (put-text-property (point) (1+ (point)) 'face 'underline)))) + +;;*;; Link to Info +;;;###autoload +(defun ess-goto-info (node) + "Display node NODE from `ess-mode' info." + (require 'info) + (split-window) + ;;(other-window 1) + (Info-goto-node (concat "(ess)" node))) + + +;; describe object at point + +(defvar-local ess-describe-object-at-point-commands nil + "Commands cycled by `ess-describe-object-at-point'. +Dialect specific.") + +(defvar ess--descr-o-a-p-commands nil) + +(defun ess-describe-object-at-point () + "Get info for object at point, & display it in an electric buffer or tooltip. +If region is active use it instead of the object at point. + +This is an electric command (`ess--execute-electric-command'), +which means that you can use the last key to cycle through the +action set (in this case `C-e'). After invocation of this command +all standard Emacs commands, except those containing 'window' in +their names, remove the electric *ess-describe* buffer. Use +`other-window' to switch to *ess-describe* window. + +Customize `ess-describe-at-point-method' if you wan to display +the description in a tooltip. See also +`ess-r-describe-object-at-point-commands' (and similar option for +other dialects)." + (interactive) + (if (not ess-describe-object-at-point-commands) + (message "Not implemented for dialect %s" ess-dialect) + (ess-force-buffer-current) + (let ((map (make-sparse-keymap)) + (objname (or (and (use-region-p) + (buffer-substring-no-properties (point) (mark))) + (ess-symbol-at-point))) + ess--descr-o-a-p-commands) ;; used in ess--describe-object-at-point + (unless objname (error "No object at point ")) + (define-key map (vector last-command-event) 'ess--describe-object-at-point) + ;; todo: put digits into the map + (let* ((inhibit-quit t) ;; C-g removes the buffer + (buf (ess--execute-electric-command + map (format "Press %s to cycle" + (single-key-description last-command-event)) + nil nil objname)) + ;; read full command + (keys (read-key-sequence-vector "")) + (command (and keys (key-binding keys)))) + (when (and (commandp command) + (bufferp buf) + (or (not (symbolp command)) ;; kill on lambdas + (not (string-match "window" (symbol-name command))))) + (kill-buffer buf)) ;; bury does not work here :( (emacs bug?) + (setq unread-command-events + (append keys unread-command-events)))))) + +(defun ess--describe-object-at-point (_ev objname) + (setq ess--descr-o-a-p-commands (or ess--descr-o-a-p-commands + (symbol-value ess-describe-object-at-point-commands))) + (let* ((com (format (car (pop ess--descr-o-a-p-commands)) objname)) + (buf (get-buffer-create "*ess-describe*")) + pos) + (unless (eq ess-describe-at-point-method 'tooltip) + ;; can take some time for the command to execute + (display-buffer buf)) + (sit-for .01) + (ess-command (concat com "\n") buf) ;; erases buf + (with-current-buffer buf + (goto-char (point-min)) + (insert (propertize (format "%s:\n\n" com) 'face 'font-lock-string-face)) + (forward-line -1) + (setq pos (point)) + ;; set the keys that we are used to in help mode + (special-mode) + (local-set-key "k" 'kill-this-buffer)) + (if (eq ess-describe-at-point-method 'tooltip) + (ess-tooltip-show-at-point + (with-current-buffer buf (buffer-string)) 0 30) + (display-buffer buf) + (set-window-point (get-buffer-window buf) pos) ;; don't move window point + buf))) + +(provide 'ess-help) +;;; ess-help.el ends here diff --git a/elpa/ess-20190121.1430/ess-inf.el b/elpa/ess-20190121.1430/ess-inf.el new file mode 100644 index 00000000..873d6e70 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-inf.el @@ -0,0 +1,3044 @@ +;;; ess-inf.el --- Support for running S as an inferior Emacs process -*- lexical-binding: t; -*- + +;; Copyright (C) 1989-1994 Bates, Kademan, Ritter and Smith +;; Copyright (C) 1997-1999 A.J. Rossini , +;; Martin Maechler . +;; Copyright (C) 2000--2010 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. +;; Copyright (C) 2011--2012 A.J. Rossini, Richard M. Heiberger, Martin Maechler, +;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. + +;; Author: David Smith +;; Created: 7 Jan 1994 +;; Maintainer: ESS-core + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; Code for handling running ESS processes. + +;;; Code: + +(eval-when-compile + (require 'cl-lib) + (require 'tramp) + (require 'subr-x)) +(require 'ess-utils) + +(require 'ansi-color) +(require 'comint) +(require 'overlay) +(require 'project) +(require 'compile) +(require 'format-spec) +(require 'ess-tracebug) + +;; Don't require tramp at run time. It's an expensive library to load. +;; Instead, guard calls with (require 'tramp) and silence the byte +;; compiler. +(declare-function tramp-sh-handle-expand-file-name "tramp-sh") +(declare-function tramp-dissect-file-name "tramp") +(declare-function tramp-tramp-file-p "tramp") +(declare-function inferior-ess-r-mode "ess-r-mode") +(declare-function inferior-ess-julia-mode "ess-julia") +(declare-function inferior-ess-stata-mode "ess-stata-mode") + +(declare-function ess-mode "ess") +(declare-function ess-complete-object-name "ess-r-completion") + +(defvar add-log-current-defun-header-regexp) + +;; The following declares can be removed once we drop Emacs 25 +(declare-function tramp-file-name-method "tramp") +(declare-function tramp-file-name-user "tramp") +(declare-function tramp-file-name-host "tramp") +(declare-function tramp-file-name-localname "tramp") +(declare-function tramp-file-name-hop "tramp") + +(defvar inferior-ess-mode-syntax-table + (let ((tab (copy-syntax-table comint-mode-syntax-table))) + tab) + "Syntax table for `inferior-ess-mode'.") + +(defun ess--inferior-major-mode (dialect) + "Set major mode according to DIALECT." + (cond ((string= "R" dialect) + (progn (require 'ess-r-mode) + (inferior-ess-r-mode))) + ((string= "julia" dialect) + (progn (require 'ess-julia) + (inferior-ess-julia-mode))) + ((string= "stata" dialect) + (progn (require 'ess-stata-mode) + (inferior-ess-stata-mode))) + ;; FIXME: we need this horrible hack so that + ;; inferior-ess-mode-syntax-table gets set for + ;; languages that still rely on the old way of doing + ;; things (before we used define-derived-mode for + ;; inferior modes). + (t + (progn + (setq-local inferior-ess-mode-syntax-table + (eval (or (alist-get 'inferior-ess-mode-syntax-table ess-customize-alist) + (alist-get 'ess-mode-syntax-table ess-customize-alist)))) + (inferior-ess-mode))))) + + ;;*;; Process handling + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; In this section: +;;; +;;; * User commands for starting an ESS process +;;; * Functions called at startup +;;; * Process handling code +;;; * Multiple process implementation +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;;*;; Starting a process +(defun ess-proc-name (n name) + "Return name of process N, as a string, with NAME prepended. +If `ess-plain-first-buffername', then initial process is number-free." + (concat name + (if (not (and ess-plain-first-buffername + (= n 1))) ; if not both first and plain-first add number + (concat ":" (number-to-string n))))) + +(defun inferior-ess (&optional ess-start-args customize-alist no-wait) + "Start inferior ESS process. + +Without a prefix argument, starts a new ESS process, or switches +to the ESS process associated with the current buffer. With +ESS-START-ARGS (perhaps specified via \\[universal-argument]), +starts the process with those args. The current buffer is used +if it is an `inferior-ess-mode' or `ess-transcript-mode' buffer. + +If `ess-ask-about-transfile' is non-nil, you will be asked for a +transcript file to use. If there is no transcript file, the +buffer name will be like *R* or *R2*, determined by +`ess-gen-proc-buffer-name-function'. + +Takes the program name from the variable `inferior-ess-program'. +Arguments to `inferior-ess-program' can be given with +`inferior-ess-start-args'. + +See Info node `(ess)Customizing startup' and +`display-buffer-alist' to control where and how the buffer is +displayed. + +\(Type \\[describe-mode] in the process buffer for a list of +commands.) + +CUSTOMIZE-ALIST is the list of dialect-specific variables. When +non-nil, NO-WAIT tells ESS not to wait for the process to finish. +This may be useful for debugging." + ;; Use the current buffer if it is in inferior-ess-mode or ess-trans-mode + ;; If not, maybe ask about starting directory and/or transcript file. + ;; If no transfile, use buffer *S* + ;; This function is primarily used to figure out the Process and + ;; buffer names to use for inferior-ess. + (let* ((ess-customize-alist (or customize-alist ess-customize-alist)) + (temp-ess-dialect (eval (cdr (assoc 'ess-dialect ess-customize-alist))))) + (run-hooks 'ess-pre-run-hook) + (ess-write-to-dribble-buffer + (format "(inf-ess 1): lang=%s, dialect=%s, tmp-dialect=%s, buf=%s\n" + ess-language ess-dialect temp-ess-dialect (current-buffer))) + (let* ((process-environment process-environment) + ;; Use temp-ess-dialect if not R, R program name otherwise + (temp-dialect (if ess-use-inferior-program-in-buffer-name ;VS[23-02-2013]: fixme: this should not be here + (if (string-equal temp-ess-dialect "R") + (file-name-nondirectory inferior-ess-r-program) + temp-ess-dialect) + temp-ess-dialect)) + ;; Find the next non-existent process N (*R:N*) + (procname (let ((ntry 1)) + (while (get-process (ess-proc-name ntry temp-dialect)) + (setq ntry (1+ ntry))) + (ess-proc-name ntry temp-dialect))) + (buf-name-str (funcall ess-gen-proc-buffer-name-function procname)) + (cur-dir (inferior-ess--maybe-prompt-startup-directory procname temp-dialect)) + (default-directory cur-dir) + buf method) + (ess-write-to-dribble-buffer + (format "(inf-ess 1.1): procname=%s temp-dialect=%s, buf-name=%s \n" + procname temp-dialect buf-name-str)) + + (cond + ;; 1) try to use current buffer, if inferior-ess-mode but no process + ((and (not (comint-check-proc (current-buffer))) + (derived-mode-p 'inferior-ess-mode)) + (setq buf (current-buffer)) + ;; don't change existing buffer name in this case; It is very + ;; commong to restart the process in the same buffer. + (setq buf-name-str (buffer-name)) + (setq method 1)) + + ;; 2) Take the *R:N* buffer if already exists (and contains dead proc!) + ;; fixme: buffer name might have been changed, iterate over all + ;; inferior-ess buffers + ((get-buffer buf-name-str) + (setq buf (get-buffer buf-name-str)) + (setq method 2)) + + ;; 3) Pick up a transcript file or create a new buffer + (t + (setq buf (if ess-ask-about-transfile + (let ((transfilename (read-file-name "Use transcript file (default none):" + cur-dir + ""))) + (if (string= transfilename "") + (get-buffer-create buf-name-str) + (find-file-noselect (expand-file-name transfilename)))) + (get-buffer-create buf-name-str))) + (setq method 3))) + + (ess-write-to-dribble-buffer + (format "(inf-ess 2.0) Method #%d start=%s buf=%s\n" method cur-dir buf)) + + (set-buffer buf) + (set 'default-directory cur-dir) + ;; TODO: Get rid of this, we should rely on modes to set the + ;; variables they need. + (ess-setq-vars-local ess-customize-alist) + + (ess-write-to-dribble-buffer + (format "(inf-ess 2.1): ess-language=%s, ess-dialect=%s buf=%s \n" + ess-language ess-dialect (current-buffer))) + + (let* ((infargs (or ess-start-args + inferior-ess-start-args)) + (proc (get-process procname))) + ;; If ESS process NAME is running, switch to it + (if (and proc (comint-check-proc (process-buffer proc))) + (progn ;; fixme: when does this happen? -> log: + (ess-write-to-dribble-buffer (format "(inf-ess ..): popping to proc\n")) + (pop-to-buffer (process-buffer proc))) + ;; Otherwise, crank up a new process + (ess--inferior-major-mode ess-dialect) + (setq ess-local-process-name procname) + (with-current-buffer buf + (rename-buffer buf-name-str t)) + ;; Show the buffer + ;; TODO: Remove inferior-ess-own-frame after ESS 19.04, then just have: + ;; (pop-to-buffer buf) + (pop-to-buffer buf (with-no-warnings + (when inferior-ess-own-frame + '(display-buffer-pop-up-frame)))) + ;; create the process + (setq buf + (inferior-ess-make-comint buf-name-str + procname + infargs)) + + (set-buffer buf) + (set 'default-directory cur-dir) + + (setq proc (get-buffer-process buf)) + + ;; set the process sentinel to save the history + (set-process-sentinel proc 'ess-process-sentinel) + ;; add this process to ess-process-name-list, if needed + (let ((conselt (assoc procname ess-process-name-list))) + (unless conselt + (setq ess-process-name-list + (cons (cons procname nil) ess-process-name-list)))) + (ess-make-buffer-current) + (goto-char (point-max)) + (setq ess-sl-modtime-alist nil) + + ;; add the process filter to catch certain output + (set-process-filter proc 'inferior-ess-output-filter) + (inferior-ess-mark-as-busy proc) + + (unless no-wait + (ess-write-to-dribble-buffer "(inferior-ess: waiting for process to start (before hook)\n") + (ess-wait-for-process proc nil 0.01 t)) + + (unless (and proc (eq (process-status proc) 'run)) + (error "Process %s failed to start" procname)) + + (set (make-local-variable 'font-lock-fontify-region-function) + #'inferior-ess-fontify-region) + + (when ess-setwd-command + (ess-set-working-directory cur-dir)) + + (run-hooks 'ess-post-run-hook) + + ;; user initialization can take some time ... + (unless no-wait + (ess-write-to-dribble-buffer "(inferior-ess 3): waiting for process after hook") + (ess-wait-for-process proc))))))) + +(defun ess--accumulation-buffer (proc) + (let ((abuf (process-get proc :accum-buffer))) + (if (buffer-live-p abuf) + abuf + (let ((abuf (get-buffer-create (format " *%s:accum*" (process-name proc))))) + (process-put proc :accum-buffer abuf) + (with-current-buffer abuf + (buffer-disable-undo) + (setq-local inhibit-modification-hooks t)) + abuf)))) + +(defvar-local inferior-ess-objects-command nil + "The language/dialect specific command for listing objects. +It is initialized from the corresponding inferior--objects-command +and then made buffer local."); and the *--* ones are customized! + +(defvar-local ess-save-lastvalue-command nil + "The command to save the last value. See S section for more details. +Default depends on the ESS language/dialect and hence made buffer local") + +(defvar-local ess-retr-lastvalue-command nil + "The command to retrieve the last value. See S section for more details. +Default depends on the ESS language/dialect and hence made buffer local") + +(defvar compilation--parsed) +(defvar ess--tb-last-input) +(defvar compilation--parsed) +(defun inferior-ess-fontify-region (beg end &optional verbose) + "Fontify output by output to avoid fontification spilling over prompts." + (let* ((buffer-undo-list t) + (inhibit-point-motion-hooks t) + (font-lock-dont-widen t) + (font-lock-extend-region-functions nil) + (pos1 beg) + (pos2)) + (when (< beg end) + (with-silent-modifications + ;; fontify chunks from prompt to prompt + (while (< pos1 end) + (goto-char pos1) + (comint-next-prompt 1) + (setq pos2 (min (point) end)) + (save-restriction + (narrow-to-region pos1 pos2) + (font-lock-default-fontify-region pos1 pos2 verbose)) + (setq pos1 pos2)) + ;; highlight errors + (setq compilation--parsed beg) + `(jit-lock-bounds ,beg . ,end))))) + +(defun ess-gen-proc-buffer-name:simple (proc-name) + "Function to generate buffer name by wrapping PROC-NAME in *proc-name*. +See `ess-gen-proc-buffer-name-function'." + (format "*%s*" proc-name)) + +(defun ess-gen-proc-buffer-name:directory (proc-name) + "Function to generate buffer name by wrapping PROC-NAME in *PROC-NAME:DIR-NAME*. +DIR-NAME is a short directory name. See +`ess-gen-proc-buffer-name-function'." + (format "*%s:%s*" proc-name (file-name-nondirectory + (directory-file-name default-directory)))) + +(defun ess-gen-proc-buffer-name:abbr-long-directory (proc-name) + "Function to generate buffer name in the form *PROC-NAME:ABBREVIATED-LONG-DIR-NAME*. +PROC-NAME is a string representing an internal process +name. ABBREVIATED-LONG-DIR-NAME is an abbreviated full directory +name. Abbreviation is performed by `abbreviate-file-name'. See +`ess-gen-proc-buffer-name-function'." + (format "*%s:%s*" proc-name (abbreviate-file-name default-directory))) + +(defun ess-gen-proc-buffer-name:project-or-simple (proc-name) + "Function to generate buffer name in the form *PROC-NAME:PROJECT-ROOT*. +PROC-NAME is a string representing an internal process name. +PROJECT-ROOT is directory name returned by `project-roots'. If no +project directory has been found use +`ess-gen-proc-buffer-name:simple'. See +`ess-gen-proc-buffer-name-function'." + (if-let ((p (project-current)) + (proj (car (project-roots p)))) + (format "*%s:%s*" proc-name (file-name-nondirectory + (directory-file-name proj))) + (ess-gen-proc-buffer-name:simple proc-name))) + +(defun ess-gen-proc-buffer-name:project-or-directory (proc-name) + "Function to generate buffer name in the form *PROC-NAME:PROJECT-ROOT*. +PROC-NAME is a string representing an internal process name. +PROJECT-ROOT is directory name returned by `project-roots' if +defined. If no project directory has been found, use +`ess-gen-proc-buffer-name:directory'. See +`ess-gen-proc-buffer-name-function'." + (if-let ((p (project-current)) + (proj (car (project-roots p)))) + (format "*%s:%s*" proc-name (file-name-nondirectory + (directory-file-name proj))) + (ess-gen-proc-buffer-name:directory proc-name))) + +;; This ensures that people who have this set in their init file don't +;; get errors about undefined functions after upgrading ESS: +(define-obsolete-function-alias 'ess-gen-proc-buffer-name:projectile-or-simple + 'ess-gen-proc-buffer-name:project-or-simple "ESS 19.04") +(define-obsolete-function-alias 'ess-gen-proc-buffer-name:projectile-or-directory + 'ess-gen-proc-buffer-name:project-or-directory "ESS 19.04") + +(defun inferior-ess-available-p (&optional proc) + "Return non-nil if PROC is not busy." + (when-let ((proc (or proc (and ess-local-process-name + (get-process ess-local-process-name))))) + (unless (process-get proc 'busy) + (or (ess-debug-active-p proc) ; don't send empty lines in debugger + (when-let ((last-check (process-get proc 'last-availability-check))) + (time-less-p (process-get proc 'last-eval) last-check)) + (progn + ;; Send an empty string and waiting a bit to make sure we are not busy. + (process-send-string proc "\n") + (inferior-ess-mark-as-busy proc) + (process-put proc 'availability-check t) + ;; Start with a very conservative waiting time and quickly average + ;; down to the actual response. + (let ((avresp (or (process-get proc 'average-response-time) 0.1)) + (ts (current-time))) + (when (accept-process-output proc (max 0.005 (* 2.0 avresp))) + (let ((avresp (/ (+ (* 2.0 avresp) + (float-time (time-subtract (current-time) ts))) + 3.0))) + (process-put proc 'average-response-time avresp))) + (process-put proc 'last-availability-check ts)) + (not (process-get proc 'busy))))))) + +(defun inferior-ess--set-status (proc string) + "Internal function to set the satus of the PROC. +Return non-nil if the process is in a ready (aka not busy) +state." + ;; todo: do it in one search, use starting position, use prog1 + (let ((ready (string-match-p (concat "\\(" inferior-ess-primary-prompt "\\)\\'") string))) + (process-put proc 'busy-end? (and ready (process-get proc 'busy))) + ;; When "\n" inserted from inferior-ess-available-p, delete the prompt. + (when (and ready + (process-get proc 'availability-check) + (string-match-p (concat "^" inferior-ess-primary-prompt "\\'") string)) + (process-put proc 'suppress-next-output? t)) + (process-put proc 'availability-check nil) + (when ready + (process-put proc 'running-async? nil)) + (process-put proc 'busy (not ready)) + (process-put proc 'sec-prompt + (when inferior-ess-secondary-prompt + (string-match (concat "\\(" inferior-ess-secondary-prompt "\\)\\'") string))) + ready)) + +(defun inferior-ess-mark-as-busy (proc) + (process-put proc 'busy t) + (process-put proc 'sec-prompt nil)) + +(defun inferior-ess-run-callback (proc string) + ;; callback is stored in 'callbacks proc property. Callbacks is a list that + ;; can contain either functions to be called with two artuments PROC and + ;; STRING, or cons cells of the form (func . suppress). If SUPPRESS is non-nil + ;; next process output will be suppressed. + (unless (process-get proc 'busy) + ;; only one callback is implemented for now + (let* ((cb (car (process-get proc 'callbacks))) + (listp (not (functionp cb))) + (suppress (and listp (consp cb) (cdr cb))) + (cb (if (and listp (consp cb)) + (car cb) + cb))) + (when cb + (when ess-verbose + (ess-write-to-dribble-buffer "executing callback ...\n")) + (when suppress + (process-put proc 'suppress-next-output? t)) + (process-put proc 'callbacks nil) + (condition-case-unless-debug err + (funcall cb proc string) + (error (message "%s" (error-message-string err)))))))) + +(defun ess--if-verbose-write-process-state (proc string &optional filter) + (ess-if-verbose-write + (format "\n%s: + --> busy:%s busy-end:%s sec-prompt:%s interruptable:%s <-- + --> running-async:%s callback:%s suppress-next-output:%s <-- + --> dbg-active:%s is-recover:%s <-- + --> string:%s\n" + (or filter "NORMAL-FILTER") + (process-get proc 'busy) + (process-get proc 'busy-end?) + (process-get proc 'sec-prompt) + (process-get proc 'interruptable?) + (process-get proc 'running-async?) + (if (process-get proc 'callbacks) "yes") + (process-get proc 'suppress-next-output?) + (process-get proc 'dbg-active) + (process-get proc 'is-recover) + (if (> (length string) 150) + (format "%s .... %s" (substring string 0 50) (substring string -50)) + string)))) + +(defun inferior-ess-output-filter (proc string) + "Standard output filter for the inferior ESS process PROC. +Ring Emacs bell if process output starts with an ASCII bell, and pass +the rest to `comint-output-filter'. +Taken from octave-mod.el." + (inferior-ess--set-status proc string) + (ess--if-verbose-write-process-state proc string) + (inferior-ess-run-callback proc string) + (if (process-get proc 'suppress-next-output?) + ;; works only for surpressing short output, for time being is enough (for callbacks) + (process-put proc 'suppress-next-output? nil) + (comint-output-filter proc (inferior-ess-strip-ctrl-g string)))) + +(defun inferior-ess-strip-ctrl-g (string) + "Strip leading `^G' character. +If STRING starts with a `^G', ring the Emacs bell and strip it. +Depending on the value of `visible-bell', either the frame will +flash or you'll hear a beep. Taken from octave-mod.el." + (if (string-match "^\a" string) + (progn + (ding) + (setq string (substring string 1)))) + string) + +(defun ess-process-sentinel (proc message) + "Sentinel for use with ESS processes. +This marks the process with a message, at a particular time point." + (let ((abuf (process-get proc :accum-buffer))) + (when (buffer-live-p abuf) + (kill-buffer abuf))) + (let ((pbuf (process-buffer proc))) + (when (buffer-live-p pbuf) + (with-current-buffer pbuf + (save-excursion + (setq message (substring message 0 -1)) ; strip newline + (set-buffer (process-buffer proc)) + (comint-write-input-ring) + (goto-char (point-max)) + (insert-before-markers + (format "\nProcess %s %s at %s\n" + (process-name proc) message (current-time-string)))))))) + +(defun inferior-ess-make-comint (bufname procname switches) + "Make a comint process in buffer BUFNAME with process PROCNAME. +SWITCHES is passed to `comint-exec'." + (let* ((buffer (get-buffer-create bufname)) + (proc (get-process procname))) + ;; If no process, or nuked process, crank up a new one Otherwise, + ;; leave buffer and existing process alone. + (cond ((or (not proc) (not (memq (process-status proc) '(run stop)))) + (with-current-buffer buffer + (if (eq (buffer-size) 0) nil + (goto-char (point-max)) + (insert "\^L\n"))) ; page boundaries = Interactive sessions + (let ((process-environment + (nconc + (list "STATATERM=emacs" + (format "PAGER=%s" inferior-ess-pager)) + process-environment)) + (tramp-remote-process-environment + (nconc ;; it contains a pager already, so append + (when (boundp 'tramp-remote-process-environment) + (copy-sequence tramp-remote-process-environment)) + (list "STATATERM=emacs" + (format "PAGER=%s" inferior-ess-pager))))) + (comint-exec buffer + procname + inferior-ess-program + nil + (ess-line-to-list-of-words + switches))))) + buffer)) + + +;;*;; Requester functions called at startup + +;; FIXME EMACS 25.1: +;; Deprecate `ess-directory-function' in favour of `project-find-functions'? +(defun inferior-ess--get-startup-directory () + (let ((dir (or (and ess--enable-experimental-projects + (fboundp 'project-current) + (cdr (project-current))) + (and ess-directory-function + (funcall ess-directory-function)) + ess-startup-directory + default-directory))) + (directory-file-name dir))) + +(defun inferior-ess--maybe-prompt-startup-directory (procname dialect) + "Possibly prompt for a startup directory. +When `ess-ask-for-ess-directory' is non-nil, prompt. PROCNAME is +the name of the inferior process (e.g. \"R:1\"), and DIALECT is +the language dialect (e.g. \"R\")." + (let ((default-dir (if (fboundp 'inferior-ess-r--adjust-startup-directory) + (inferior-ess-r--adjust-startup-directory + (inferior-ess--get-startup-directory) dialect) + (inferior-ess--get-startup-directory)))) + (if ess-ask-for-ess-directory + (let ((prompt (format "%s starting project directory? " procname))) + (ess-prompt-for-directory default-dir prompt)) + default-dir))) + +(defun ess-prompt-for-directory (default prompt) + "PROMPT for a directory, using DEFAULT as the usual." + (let* ((def-dir (file-name-as-directory default)) + (the-dir (expand-file-name + (file-name-as-directory + (read-directory-name prompt def-dir def-dir t nil))))) + (if (file-directory-p the-dir) nil + (error "%s is not a valid directory" the-dir)) + the-dir)) + + +;;*;; General process handling code +(defmacro with-ess-process-buffer (no-error &rest body) + "Execute BODY in the process buffer of `ess-current-process-name'. +If NO-ERROR is t don't trigger error when there is not current +process. Symbol *proc* is bound to the current process during the +evaluation of BODY." + (declare (indent 1) (debug t)) + `(let ((*proc* (and ess-local-process-name (get-process ess-local-process-name)))) + (if *proc* + (with-current-buffer (process-buffer *proc*) + ,@body) + (unless ,no-error + (error "No current ESS process"))))) + +(defmacro ess-with-current-buffer (buffer &rest body) + "Like `with-current-buffer' but with transfer of some essential +local ESS vars like `ess-local-process-name'." + (declare (indent 1) (debug t)) + (let ((lpn (make-symbol "lpn")) + (alist (make-symbol "alist"))) + `(let ((,lpn ess-local-process-name) + (,alist ess-local-customize-alist)) + (with-current-buffer ,buffer + (ess-setq-vars-local (eval ,alist)) + (setq ess-local-process-name ,lpn) + ,@body)))) + +(dolist (mode '(emacs-lisp-mode lisp-interaction-mode)) + (font-lock-add-keywords + mode + '(("(\\(ess-with-current-buffer\\)\\s +\\(\\(\\w\\|\\s_\\)+\\)" + (1 font-lock-keyword-face) + (2 font-lock-variable-name-face))))) + +(defun ess-get-process (&optional name use-another) + "Return the ESS process named by NAME. +If USE-ANOTHER is non-nil, and the process NAME is not +running (anymore), try to connect to another if there is one. By +default (USE-ANOTHER is nil), the connection to another process +happens interactively (when possible)." + (setq name (or name ess-local-process-name)) + (if (null name) + (error "No ESS process is associated with this buffer now") + (update-ess-process-name-list) + (if (assoc name ess-process-name-list) + (get-process name) + ;; else : + ;; was (error "Process %s is not running" name) + (ess-write-to-dribble-buffer + (format "ess-get-process: process '%s' not running" name)) + (if (= 0 (length ess-process-name-list)) + (save-current-buffer + (ess-write-to-dribble-buffer + (format " .. restart proc %s for language %s (buf %s)\n" + name ess-language (current-buffer))) + (message "trying to (re)start process %s for language %s ..." + name ess-language) + (ess-start-process-specific ess-language ess-dialect) + ;; and return the process: "call me again" + (ess-get-process name)) + + ;; else: there are other running processes + (if use-another ; connect to another running process : the first one + (let ((other-name (car (elt ess-process-name-list 0)))) + ;; "FIXME": try to find the process name that matches *closest* + (message "associating with *other* process '%s'" other-name) + (ess-get-process other-name)) + ;; else + (ding) + (if (y-or-n-p + (format "Process %s is not running, but others are. Switch? " name)) + (progn + (ess-force-buffer-current + (concat ess-dialect " process to use: ") 'force) + (ess-get-process ess-current-process-name)) + (error "Process %s is not running" name))))))) + +(defun inferior-ess-default-directory () + (ess-get-process-variable 'default-directory)) + +;;--- Unfinished idea (ESS-help / R-help ) -- probably not worth it... +;;- (defun ess-set-inferior-program (filename) +;;- "Allows to set or change `inferior-ess-program', the program (file)name." +;;- (interactive "fR executable (script) file: ") +;;- ;; "f" : existing file {file name completion} ! +;;- (setq inferior-ess-program filename)) +;; the inferior-ess-program is initialized in the customize..alist, +;; e.g. from inferior-ess-r-program ... --> should change rather these. +;; However these really depend on the current ess-language! +;; Plan: 1) must know and use ess-language +;; 2) change the appropriate inferior--program +;; (how?) in R/S : assign(paste("inferior-",ESSlang,"-p...."), filename)) + + +;;*;; Multiple process handling code + +(defun ess-make-buffer-current nil + "Make the process associated with the current buffer the current ESS process. +Returns the name of the process, or nil if the current buffer has none." + (update-ess-process-name-list) + ;; (if ess-local-process-name + ;; (setq ess-current-process-name ess-local-process-name)) + ess-local-process-name) + +(defun ess-get-process-variable (var) + "Return the variable VAR (symbol) local to ESS process called NAME (string)." + (buffer-local-value var (process-buffer (ess-get-process ess-local-process-name)))) + +(defun ess-set-process-variable (var val) + "Set variable VAR (symbol) local to ESS process called NAME (string) to VAL." + (with-current-buffer (process-buffer (ess-get-process ess-local-process-name)) + (set var val))) + +(defun ess-process-live-p (&optional proc) + "Check if the local ess process is alive. +Return nil if current buffer has no associated process, or +process was killed. PROC defaults to `ess-local-process-name'" + (and (or proc ess-local-process-name) + (let ((proc (or proc (get-process ess-local-process-name)))) + (and (processp proc) + (process-live-p proc))))) + +(defun ess-process-get (propname &optional proc) + "Return the variable PROPNAME (symbol) from the plist of the current ESS process. +PROC defaults to process with name `ess-local-process-name'." + (process-get (or proc (get-process ess-local-process-name)) propname)) + +(defun ess-process-put (propname value &optional proc) + "Set the variable PROPNAME (symbol) to VALUE in the plist of the current ESS process. +PROC defaults to the process given by `ess-local-process-name'" + (process-put (or proc (get-process ess-local-process-name)) propname value)) + +(defun ess-start-process-specific (language dialect) + "Start an ESS process. +Typically from a language-specific buffer, using LANGUAGE (and DIALECT)." + (save-current-buffer + (let ((dsymb (intern dialect))) + (ess-write-to-dribble-buffer + (format " ..start-process-specific: lang:dialect= %s:%s, current-buf=%s\n" + language dialect (current-buffer))) + (cond ;; ((string= dialect "R") (R)) + ;; ((string= language "S") ; + ;; (message "ESS process not running, trying to start R, since language = 'S") + ;; (R)) + ;; ((string= dialect STA-dialect-name) (stata)) + ;;general case + ((fboundp dsymb) + (funcall dsymb)) + (t ;; else: ess-dialect is not a function + + ;; Typically triggered from + ;; ess-force-buffer-current("Process to load into: ") + ;; \--> ess-request-a-process("Process to load into: " no-switch) + (error "No ESS processes running; not yet implemented to start (%s,%s)" + language dialect)))))) + +(defun ess-request-a-process (message &optional noswitch ask-if-1) + "Ask for a process, and make it the current ESS process. +If there is exactly one process, only ask if ASK-IF-1 is non-nil. +Also switches to the process buffer unless NOSWITCH is non-nil. Interactively, +NOSWITCH can be set by giving a prefix argument. +Returns the name of the selected process." + (interactive + (list "Switch to which ESS process? " current-prefix-arg)) + ; prefix sets 'noswitch + (ess-write-to-dribble-buffer "ess-request-a-process: {beginning}\n") + (update-ess-process-name-list) + + (setq ess-dialect (or ess-dialect + (ess-completing-read + "Set `ess-dialect'" + (delete-dups (list "R" "S+" (if (boundp 'S+-dialect-name) S+-dialect-name "S+") + "stata" (if (boundp 'STA-dialect-name) STA-dialect-name "stata") + "julia" "SAS" "XLS" "ViSta"))))) + + (let* ((pname-list (delq nil ;; keep only those mathing dialect + (append + (mapcar (lambda (lproc) + (and (equal ess-dialect + (buffer-local-value + 'ess-dialect + (process-buffer (get-process (car lproc))))) + (not (equal ess-local-process-name (car lproc))) + (car lproc))) + ess-process-name-list) + ;; append local only if running + (when (assoc ess-local-process-name ess-process-name-list) + (list ess-local-process-name))))) + (num-processes (length pname-list)) + (auto-started?)) + (if (or (= 0 num-processes) + (and (= 1 num-processes) + (not (equal ess-dialect ;; don't auto connect if from different dialect + (buffer-local-value + 'ess-dialect + (process-buffer (get-process + (car pname-list)))))))) + ;; try to start "the appropriate" process + (progn + (ess-write-to-dribble-buffer + (concat " ... request-a-process:\n " + (format + "major mode %s; current buff: %s; ess-language: %s, ess-dialect: %s\n" + major-mode (current-buffer) ess-language ess-dialect))) + (ess-start-process-specific ess-language ess-dialect) + (ess-write-to-dribble-buffer + (format " ... request-a-process: buf=%s\n" (current-buffer))) + (setq num-processes 1 + pname-list (car ess-process-name-list) + auto-started? t))) + ;; now num-processes >= 1 : + (let* ((proc-buffers (mapcar (lambda (lproc) + (buffer-name (process-buffer (get-process lproc)))) + pname-list)) + (proc + (if (or auto-started? + (and (not ask-if-1) (= 1 num-processes))) + (progn + (message "using process '%s'" (car proc-buffers)) + (car pname-list)) + ;; else + (unless (and ess-current-process-name + (get-process ess-current-process-name)) + (setq ess-current-process-name nil)) + (when message + (setq message (replace-regexp-in-string ": +\\'" "" message))) ;; <- why is this here?? + ;; ask for buffer name not the *real* process name: + (let ((buf (ess-completing-read message (append proc-buffers (list "*new*")) nil t nil nil))) + (if (equal buf "*new*") + (progn + (ess-start-process-specific ess-language ess-dialect) ;; switches to proc-buff + (caar ess-process-name-list)) + (process-name (get-buffer-process buf)) + )) + ))) + (if noswitch + (pop-to-buffer (current-buffer)) ;; VS: this is weird, but is necessary + (pop-to-buffer (buffer-name (process-buffer (get-process proc))))) + proc))) + +(defun ess-force-buffer-current (&optional prompt force no-autostart ask-if-1) + "Make sure the current buffer is attached to an ESS process. +If not, or FORCE (prefix argument) is non-nil, prompt for a +process name with PROMPT. If NO-AUTOSTART is nil starts the new +process if process associated with current buffer has +died. `ess-local-process-name' is set to the name of the process +selected. `ess-dialect' is set to the dialect associated with +the process selected. ASK-IF-1 asks user for the process, even if +there is only one process running." + (interactive + (list (concat ess-dialect " process to use: ") current-prefix-arg nil)) + ;; fixme: why the above interactive is not working in emacs 24? + (setq prompt (or prompt "Process to use: ")) + (let ((proc-name (ess-make-buffer-current))) + (if (and (not force) proc-name (get-process proc-name)) + nil ; do nothing + ;; Make sure the source buffer is attached to a process + (if (and ess-local-process-name (not force) no-autostart) + (error "Process %s has died" ess-local-process-name) + ;; ess-local-process-name is nil -- which process to attach to + (let ((proc (ess-request-a-process prompt 'no-switch ask-if-1))) + (setq ess-local-process-name proc)))))) + +(defalias 'inferior-ess-force #'ess-force-buffer-current) + +(defun ess-switch-process () + "Force a switch to a new underlying process." + (interactive) + (ess-force-buffer-current "Process to use: " 'force nil 'ask-if-1)) + +(defun ess-get-next-available-process (&optional dialect ignore-busy) + "Return first available (aka not busy) process of dialect DIALECT. +DIALECT defaults to the local value of ess-dialect. Return nil if +no such process has been found." + (setq dialect (or dialect ess-dialect)) + (when dialect + (let (proc) + (catch 'found + (dolist (p (cons ess-local-process-name + (mapcar 'car ess-process-name-list))) + (when p + (setq proc (get-process p)) + (when (and proc + (process-live-p proc) + (equal dialect + (buffer-local-value 'ess-dialect (process-buffer proc))) + (or ignore-busy + (inferior-ess-available-p proc))) + (throw 'found proc)))))))) + + +;;*;;; Commands for switching to the process buffer + +(defun ess-switch-to-ESS (eob-p) + "Switch to the current inferior ESS process buffer. +With (prefix) EOB-P non-nil, positions cursor at end of buffer." + (interactive "P") + (ess-force-buffer-current) + (pop-to-buffer (buffer-name (process-buffer (get-process ess-current-process-name))) + '(nil . ((inhibit-same-window . t)))) + (when eob-p (goto-char (point-max)))) + +(defun ess-switch-to-ESS-deprecated (eob-p) + (interactive "P") + (ess-switch-to-ESS eob-p) + (message "C-c C-y is deprecated, use C-c C-z instead (ess-switch-to-inferior-or-script-buffer)")) + +(defun ess-switch-to-end-of-ESS () + "Switch to the end of the inferior ESS process buffer." + (interactive) + (ess-switch-to-ESS t)) + +(defun ess-switch-to-inferior-or-script-buffer (toggle-eob) + "If in script, switch to the iESS. If in iESS switch to most recent script buffer. +This is a single-key command. Assuming that it is bound to C-c +C-z, you can navigate back and forth between iESS and script +buffer with C-c C-z C-z C-z ... If variable +`ess-switch-to-end-of-proc-buffer' is t (the default) this +function switches to the end of process buffer. If TOGGLE-EOB is +given, the value of `ess-switch-to-end-of-proc-buffer' is +toggled." + (interactive "P") + (let ((map (make-sparse-keymap)) + (EOB (if toggle-eob + (not ess-switch-to-end-of-proc-buffer) + ess-switch-to-end-of-proc-buffer))) + (define-key map (vector last-command-event) + (lambda (_ev eob) (interactive) + (if (not (derived-mode-p 'inferior-ess-mode)) + (ess-switch-to-ESS eob) + (let ((dialect ess-dialect) + (loc-proc-name ess-local-process-name) + (blist (cdr (buffer-list)))) + (while (and blist + (with-current-buffer (car blist) + (not (or (and + (ess-derived-mode-p) + (equal dialect ess-dialect) + (null ess-local-process-name)) + (and + (ess-derived-mode-p) + (equal loc-proc-name ess-local-process-name)))))) + (pop blist)) + (if blist + (pop-to-buffer (car blist)) + (message "Found no buffers for ess-dialect %s associated with process %s" + dialect loc-proc-name)))))) + (ess--execute-electric-command map nil nil nil EOB))) + + +(defun ess-get-process-buffer (&optional name) + "Return the buffer associated with the ESS process named by NAME." + (process-buffer (ess-get-process (or name ess-local-process-name)))) + +(defun update-ess-process-name-list () + "Remove names with no process." + (let (defunct) + (dolist (conselt ess-process-name-list) + (let ((proc (get-process (car conselt)))) + (unless (and proc (eq (process-status proc) 'run)) + (push conselt defunct)))) + (dolist (pointer defunct) + (setq ess-process-name-list (delq pointer ess-process-name-list)))) + (if (eq (length ess-process-name-list) 0) + (setq ess-current-process-name nil))) + + +;;; Functions for evaluating code + +;;*;; Utils for evaluation + +(defun ess-build-eval-command (string &optional visibly output file &rest args) + "Format an evaluation command. +Wrap STRING with `ess-quote-special-chars' and dispatch on +`ess-build-eval-command--override'." + (setq string (ess-quote-special-chars string)) + (ess-build-eval-command--override string visibly output file args)) + +(cl-defgeneric ess-build-eval-command--override + (string &optional _visibly _output file &rest _args) + "Default method to build eval command." + (and ess-eval-command + (format-spec ess-eval-command + `((?s . ,string) + (?f . ,file))))) + +(cl-defgeneric ess-build-load-command (file &optional _visibly _output &rest _args) + "Format a loading command. +Dispatches on the dialect-specific `ess-build-load-command' +and `ess-load-command', in that order." + (and ess-load-command + (format ess-load-command file))) + +(defun ess-wait-for-process (&optional proc sec-prompt wait force-redisplay timeout) + "Wait for 'busy property of the process to become nil. +If SEC-PROMPT is non-nil return if secondary prompt is detected +regardless of whether primary prompt was detected or not. If WAIT +is non-nil wait for WAIT seconds for process output before the +prompt check, default 0.002s. When FORCE-REDISPLAY is non-nil +force redisplay. You better use WAIT >= 0.1 if you need +FORCE-REDISPLAY to avoid excesive redisplay. If TIMEOUT is +non-nil stop waiting for output after TIMEOUT seconds." + (setq proc (or proc (get-process ess-local-process-name))) + (setq wait (or wait 0.005)) + (setq timeout (or timeout most-positive-fixnum)) + (let ((start-time (float-time)) + (elapsed 0)) + (save-excursion + (while (and + (or (eq (process-status proc) 'run) + (progn + (when (process-buffer proc) + (display-buffer (process-buffer proc))) + (error "ESS process has died unexpectedly"))) + (< elapsed timeout) + (or (accept-process-output proc wait) + (unless (and sec-prompt (process-get proc 'sec-prompt)) + (process-get proc 'busy)))) + (when force-redisplay + (redisplay 'force)) + (setq elapsed (- (float-time) start-time)) + (when (> elapsed .3) + (setq wait .3)))))) + +(defun inferior-ess-ordinary-filter (proc string) + (inferior-ess--set-status proc string) + (ess--if-verbose-write-process-state proc string "ordinary-filter") + (inferior-ess-run-callback proc string) + (with-current-buffer (process-buffer proc) + (insert string))) + +(defvar ess-presend-filter-functions nil + "List of functions to call before sending the input string to the process. +Each function gets one argument, a string containing the text to +be send to the subprocess. It should return the string sent, +perhaps the same string that was received, or perhaps a modified +or transformed string. + +The functions on the list are called sequentially, and each one +is given the string returned by the previous one. The string +returned by the last function is the text that is actually sent +to the process. You can use `add-hook' to add functions to this +list either globally or locally. The hook is executed in current +buffer. Before execution, the local value of this hook in the +process buffer is appended to the hook from the current buffer.") + +(defvar ess--inhibit-presend-hooks nil + "If non-nil don't run presend hooks.") + +(defun ess--run-presend-hooks (process string) + ;; run ess-presend-filter-functions and comint-input-filter-functions + (if ess--inhibit-presend-hooks + string + ;;return modified string + (let* ((pbuf (process-buffer process)) + ;; also run proc buffer local hooks + (functions (unless (eq pbuf (current-buffer)) + (buffer-local-value 'ess-presend-filter-functions pbuf)))) + (setq functions (append (delq t (copy-sequence functions)) ;; even in let, delq distructs + ess-presend-filter-functions)) + (while (and functions string) + ;; cannot use run-hook-with-args here because string must be passed from one + ;; function to another + (if (eq (car functions) t) + (let ((functions + (default-value 'ess-presend-filter-functions))) + (while (and functions string) + (setq string (funcall (car functions) string)) + (setq functions (cdr functions)))) + (setq string (funcall (car functions) string))) + (setq functions (cdr functions))) + (with-current-buffer pbuf + (run-hook-with-args 'comint-input-filter-functions string)) + string))) + +(defun ess--concat-new-line-maybe (string) + "Append \\n at the end of STRING if missing." + (if (string-match "\n\\'" string (max (- (length string) 2) 0)) + string + (concat string "\n"))) + +(defvar ess--dbg-del-empty-p t + "Internal variable to control removal of empty lines during the debugging. +Let-bind it to nil before calling `ess-send-string' or +`ess-send-region' if no removal is necessary.") + +(defun inferior-ess--interrupt-subjob-maybe (proc) + "Internal. Interrupt the process if interruptable? process variable is non-nil. +Hide all the junk output in temporary buffer." + (when (process-get proc 'interruptable?) + (let ((cb (cadr (process-get proc 'callbacks))) + (buf (get-buffer-create " *ess-temp-buff*")) + (old-filter (process-filter proc)) + (old-buff (process-buffer proc))) + (unwind-protect + (progn + (ess-if-verbose-write "interrupting subjob ... start") + (process-put proc 'interruptable? nil) + (process-put proc 'callbacks nil) + (process-put proc 'running-async? nil) + ;; this is to avoid putting junk in user's buffer on process + ;; interruption + (set-process-buffer proc buf) + (set-process-filter proc 'inferior-ess-ordinary-filter) + (interrupt-process proc) + (when cb + (ess-if-verbose-write "executing interruption callback ... ") + (funcall cb proc)) + ;; should be very fast as it inputs only the prompt + (ess-wait-for-process proc) + (ess-if-verbose-write "interrupting subjob ... finished") + ) + (set-process-buffer proc old-buff) + (set-process-filter proc old-filter))))) + + +;;*;; Evaluation primitives + +(defun ess-send-string (process string &optional visibly message _type) + "ESS wrapper for `process-send-string'. +Run `comint-input-filter-functions' and current buffer's and +PROCESS' `ess-presend-filter-functions' hooks on the input +STRING. VISIBLY can be nil, t, 'nowait or a string. If string +the behavior is as with 'nowait with the differences that +inserted string is VISIBLY instead of STRING (evaluated command +is still STRING). In all other cases the behavior is as +described in `ess-eval-visibly'. STRING need not end with +\\n. TYPE is a symbol indicating type of the string. +MESSAGE is a message to display." + ;; No support of `visibly' when there's no secondary prompt + (let ((visibly (if (and (eq visibly t) + (null inferior-ess-secondary-prompt)) + 'nowait + visibly)) + (string (ess--run-presend-hooks process string))) + (inferior-ess--interrupt-subjob-maybe process) + (inferior-ess-mark-as-busy process) + (process-put process 'last-eval (current-time)) + (cond + ;; Wait after each line + ((eq visibly t) + (let ((ess--inhibit-presend-hooks t)) + (ess-eval-linewise string))) + ;; Insert command and eval invisibly + ((or (stringp visibly) + (eq visibly 'nowait)) + (with-current-buffer (process-buffer process) + (save-excursion + (goto-char (process-mark process)) + (insert-before-markers + (propertize (format "%s\n" + (replace-regexp-in-string + "\n" "\n+ " + (if (stringp visibly) visibly string))) + 'font-lock-face 'comint-highlight-input))) + (process-send-string process (ess--concat-new-line-maybe string)))) + (t + (process-send-string process (ess--concat-new-line-maybe string)))) + (when message + (message "%s" message)))) + +(defun ess-send-region (process start end &optional visibly message type) + "Low level ESS version of `process-send-region'. +If VISIBLY call `ess-eval-linewise', else call +`ess-send-string'. If MESSAGE is supplied, display it at the +end. Run current buffer's and PROCESS' +`ess-presend-filter-functions' hooks. TYPE is a symbol indicating +type of the region." + (cond + ((ess-tracebug-p) + (ess-tracebug-send-region process start end visibly message type)) + (t (ess-send-region--override process start end visibly message type)))) + +(cl-defgeneric ess-send-region--override (process start end visibly message type) + (ess-send-string process (buffer-substring start end) visibly message type)) + + +;;*;; Evaluation commands + +(defun ess-load-file--normalise-file (file) + "Handle Tramp and system peculiarities." + (require 'tramp) + (let* ((file (if (tramp-tramp-file-p file) + (tramp-file-name-localname (tramp-dissect-file-name file)) + file)) + (file (if ess-microsoft-p + (ess-replace-in-string file "[\\]" "/") + file))) + (abbreviate-file-name file))) + +(defun ess-load-file--normalise-buffer (file) + (when (ess-check-source file) + (error "Buffer %s has not been saved" (buffer-name file))) + (let ((source-buffer (get-file-buffer file))) + (if source-buffer + (with-current-buffer source-buffer + (when (buffer-modified-p) (save-buffer)) + (ess-force-buffer-current "Process to load into: ") + (ess-check-modifications)) + (ess-force-buffer-current "Process to load into: ")))) + +;;;###autoload +(defun ess-load-file (&optional filename) + "Load FILENAME into an inferior ESS process. +This handles Tramp when working on a remote." + (interactive (list (or (and (ess-derived-mode-p) + (buffer-file-name)) + (expand-file-name + (read-file-name "Load source file: " nil nil t))))) + (ess-load-file--normalise-buffer filename) + ;; Pop up an inferior window + (save-selected-window + (ess-switch-to-ESS t)) + (ess-load-file--override filename)) + +(cl-defgeneric ess-load-file--override (filename) + (let ((file (ess-load-file--normalise-file filename))) + (let ((command (ess-build-load-command file nil t))) + (ess-send-string (ess-get-process) command t)))) + +;; C-c C-l *used to* eval code: +(defun ess-msg-and-comint-dynamic-list-input-ring () + "Display a list of recent inputs entered into the current buffer." + (interactive) + (message "C-c C-l no longer loads a source file in [iESS], rather use C-c M-l instead") + (comint-dynamic-list-input-ring)) + +;; ;;; VS[03-09-2012]: Test Cases: +;; (ess-command "a<-0\n" nil nil nil nil (get-process "R")) +;; (ess-async-command-delayed "Sys.sleep(5);a<-a+1;cat(1:10)\n" nil +;; (get-process "R") (lambda (proc) (message "done"))) +;; (ess-async-command-delayed "Sys.sleep(5)\n" nil (get-process "R") +;; (lambda (proc) (message "done"))) +;; (process-get (get-process "R") 'running-async?) + +(defun ess-command--get-proc (proc no-prompt-check) + (if proc + (unless ess-local-process-name + (setq ess-local-process-name (process-name proc))) + (setq proc (ess-get-process ess-local-process-name))) + (unless no-prompt-check + (when (process-get proc 'busy) + (user-error "ESS process not ready. Finish your command before trying again"))) + proc) + +(defun ess-command (cmd &optional out-buffer _sleep no-prompt-check wait proc force-redisplay) + "Send the ESS process CMD and delete the output from the ESS process buffer. +If an optional second argument OUT-BUFFER exists save the output +in that buffer. OUT-BUFFER is erased before use. CMD should have +a terminating newline. Guarantees that the value of `.Last.value' +will be preserved. + +SLEEP is deprecated and no longer has any effect. WAIT and +FORCE-REDISPLAY are as in `ess-wait-for-process' and are passed +to `ess-wait-for-process'. + +PROC should be a process, if nil the process name is taken from +`ess-local-process-name'. This command doesn't set 'last-eval +process variable. + +Note: for critical, or error prone code you should consider +wrapping the code into: + + local({ + olderr <- options(error=NULL) + on.exit(options(olderr)) + ... + })" + (let ((out-buffer (or out-buffer (get-buffer-create " *ess-command-output*"))) + (proc (ess-command--get-proc proc no-prompt-check))) + (with-current-buffer (process-buffer proc) + (let ((primary-prompt inferior-ess-primary-prompt) + (oldpb (process-buffer proc)) + (oldpf (process-filter proc)) + (oldpm (marker-position (process-mark proc)))) + (ess-if-verbose-write (format "(ess-command %s ..)" cmd)) + ;; Swap the process buffer with the output buffer before + ;; sending the command + (unwind-protect + (progn + (set-process-buffer proc out-buffer) + (set-process-filter proc 'inferior-ess-ordinary-filter) + (with-current-buffer out-buffer + (setq inferior-ess-primary-prompt primary-prompt) + (setq buffer-read-only nil) + (erase-buffer) + (set-marker (process-mark proc) (point-min)) + (inferior-ess-mark-as-busy proc) + (process-send-string proc cmd) + ;; Need time for ess-create-object-name-db on PC + (if no-prompt-check + (sleep-for 0.02) ; 0.1 is noticeable! + (ess-wait-for-process proc nil wait force-redisplay) + (ess-mpi-handle-messages (current-buffer)) + ;; Remove prompt + ;; If output is cat(..)ed this deletes the output + (goto-char (point-max)) + (delete-region (point-at-bol) (point-max))) + (ess-if-verbose-write " .. ok{ess-command}"))) + (ess-if-verbose-write " .. exiting{ess-command}\n") + ;; Restore the process buffer in its previous state + (set-process-buffer proc oldpb) + (set-process-filter proc oldpf) + (set-marker (process-mark proc) oldpm)))) + out-buffer)) + +(defun ess-boolean-command (com &optional buf wait) + "Like `ess-command' but expects COM to print TRUE or FALSE. +If TRUE (or true) is found return non-nil otherwise nil. +Example (ess-boolean-command \"2>1\n\")" + (with-current-buffer (ess-command com buf nil nil wait) + (goto-char (point-min)) + (let ((case-fold-search t)) + (re-search-forward "true" nil t)))) + +(defun ess-string-command (com &optional buf wait) + "Returns the output of COM as a string." + (with-current-buffer (ess-command com buf nil nil wait) + (ess-kill-last-line) + (buffer-substring (point-min) (point-max)))) + +(defun ess-async-command (com &optional buf proc callback interrupt-callback) + "Asynchronous version of `ess-command'. +COM, BUF, WAIT and PROC are as in `ess-command'. + +CALLBACK is a function of two arguments (PROC STRING) to run +after the successful execution. When INTERRUPT-CALLBACK is +non-nil, user evaluation can interrupt the +job. INTERRUPT-CALLBACK should be either t or a function of one +argument (PROC) to be called on interruption. + +NOTE: Currently this function should be used only for background +jobs like caching. ESS tries to suppress any output from the +asynchronous command, but long output of COM will most likely end +up in user's main buffer." + (setq proc (or proc (get-process ess-local-process-name))) + (cond ((not (and proc (eq (process-status proc) 'run))) + (error "Process %s is dead" proc)) + ((process-get proc 'busy) + (error "Process %s is busy" proc)) + ((process-get proc 'running-async?) + (error "Process %s is already running an async command" proc))) + (when (eq interrupt-callback t) + (setq interrupt-callback (lambda (_proc)))) + (process-put proc 'callbacks (list (cons callback 'suppress-output) + interrupt-callback)) + (process-put proc 'interruptable? (and interrupt-callback t)) + (process-put proc 'running-async? t) + (ess-command com buf nil 'no-prompt-check .01 proc)) + +(defun ess-async-command-delayed (com &optional buf proc callback delay) + "Delayed asynchronous ess-command. +COM and BUF are as in `ess-command'. DELAY is a number of idle +seconds to wait before starting the execution of the COM. On +interruption (by user's evaluation) ESS tries to rerun the job +after next DELAY seconds, and the whole process repeats itself +until the command manages to run completely. DELAY defaults to +`ess-idle-timer-interval' + 3 seconds. You should always provide +PROC for delayed evaluation, as the current process might change, +leading to unpredictable consequences. This function is a wrapper +of `ess-async-command' with an explicit interrupt-callback." + (unless proc + (error "You must provide PROC argument to ess-async-command-delayed")) + (let* ((delay (or delay + (+ ess-idle-timer-interval 3))) + (int-cb `(lambda (proc) + (ess-async-command-delayed ,com ,buf proc ,callback ,delay))) + (com-fun `(lambda () + (when (eq (process-status ,proc) 'run) ; do nothing if not running + (if (or (process-get ,proc 'busy) ; if busy, try later + (process-get ,proc 'running-async?)) + ;; idle timer doesn't work here + (run-with-timer ,delay nil 'ess-async-command-delayed + ,com ,buf ,proc ,callback ,delay)) + (ess-async-command ,com ,buf ,proc ,callback ',int-cb))))) + (run-with-idle-timer delay nil com-fun))) + +(defun ess-load-library () + "Prompt and load dialect specific library/package/module. +Note that add-ons in R are called 'packages' and the name of this +function has nothing to do with R package mechanism, but it +rather serves a generic, dialect independent purpose. It is also +similar to `load-library' Emacs function." + (interactive) + (let ((ess-eval-visibly-p t) + (packs (ess-installed-packages)) + pack) + (setq pack (ess-completing-read "Load" packs)) + (ess-load-library--override pack) + (ess--mark-search-list-as-changed) + (display-buffer (buffer-name (process-buffer (get-process ess-current-process-name)))))) + +(cl-defgeneric ess-installed-packages () + "Return a list of installed packages.") + +(cl-defgeneric ess-load-library--override (pack) + "Load library/package PACK.") + + +;;*;; Evaluating lines, paragraphs, regions, and buffers. + +(defun ess-eval-linewise + (text &optional invisibly eob even-empty wait-last-prompt sleep-sec wait-sec) + "Evaluate TEXT in the ESS process buffer as if typed in w/o tabs. +Waits for prompt after each line of input, so won't break on large texts. + +If optional second arg INVISIBLY is non-nil, don't echo commands. +If it is a string, just include that string. If optional third +arg EOB is non-nil go to end of ESS process buffer after +evaluation. If optional 4th arg EVEN-EMPTY is non-nil, also send +empty text (e.g. an empty line). If 5th arg WAIT-LAST-PROMPT is +non-nil, also wait for the prompt after the last line; if 6th arg +SLEEP-SEC is a number, ESS will call '(\\[sleep-for] SLEEP-SEC) +at the end of this function. If the 7th arg WAIT-SEC is set, it +will be used instead of the default .001s and be passed to +\\[ess-wait-for-process]. + +Run `comint-input-filter-functions' and +`ess-presend-filter-functions' of the associated PROCESS on the +TEXT." + (unless (numberp wait-sec) + (setq wait-sec 0.001)) + (ess-force-buffer-current "Process to use: ") + ;; Use this to evaluate some code, but don't wait for output. + (let* ((deactivate-mark) ; keep local {do *not* deactivate wrongly} + (sprocess (ess-get-process ess-current-process-name)) + (sbuffer (process-buffer sprocess)) + (win (get-buffer-window sbuffer t))) + (setq text (ess--concat-new-line-maybe + (ess--run-presend-hooks sprocess text))) + (with-current-buffer sbuffer + (setq text (propertize text 'field 'input 'front-sticky t)) + (goto-char (marker-position (process-mark sprocess))) + (if (stringp invisibly) + (insert-before-markers (concat "*** " invisibly " ***\n"))) + ;; dbg: + ;; dbg (ess-write-to-dribble-buffer + ;; dbg (format "(eval-visibly 2): text[%d]= '%s'\n" (length text) text)) + (while (or (> (length text) 0) even-empty) + (setq even-empty nil) + (let* ((pos (string-match "\n\\|$" text)) + (input (if (= (length text) 0) + "\n" + (concat (substring text 0 pos) "\n")))) + (setq text (substring text (min (length text) (1+ pos)))) + (goto-char (marker-position (process-mark sprocess))) + (if win (set-window-point win (process-mark sprocess))) + (unless invisibly + ;; for consistency with comint :( + (insert (propertize input 'font-lock-face 'comint-highlight-input)) + (set-marker (process-mark sprocess) (point))) + (inferior-ess-mark-as-busy sprocess) + (process-send-string sprocess input)) + (when (or (> (length text) 0) + wait-last-prompt) + (ess-wait-for-process sprocess t wait-sec))) + (if eob (with-temp-buffer (buffer-name sbuffer))) + (goto-char (marker-position (process-mark sprocess))) + (when win + (with-selected-window win + (goto-char (point)) + ;; this is crucial to avoid reseting window-point + (recenter (- -1 scroll-margin)))))) + (if (numberp sleep-sec) + (sleep-for sleep-sec))) + + +;;;*;;; Evaluate only + +(defun ess-eval-region--normalise-region (start end) + "Clean the region from START to END for evaluation. +This trims newlines at beginning and end of the region because +they might throw off the debugger." + (save-excursion + (goto-char start) + (skip-chars-forward "\n\t ") + (setq start (point)) + (unless mark-active + (ess-blink-region start end)) + (goto-char end) + (skip-chars-backward "\n\t ") + (setq end (point)))) + +(defun ess-eval-region (start end vis &optional message type) + "Send the region from START to END to the inferior ESS process. +VIS switches the meaning of `ess-eval-visibly'. If given, +MESSAGE is `message'ed. TYPE is a symbol indicating what type of +region this is. If command `rectangle-mark-mode' is active, send +the lines of the rectangle separately to the inferior process." + (interactive "r\nP") + (ess-force-buffer-current "Process to use: ") + (message "Starting evaluation...") + (unless ess-local-customize-alist + ;; External applications might call ess-eval-* functions; make it + ;; easier for them + (ess-setq-vars-local (symbol-value (ess-get-process-variable 'ess-local-customize-alist)))) + (if (and (bound-and-true-p rectangle-mark-mode) + ;; TODO: Remove this check after dropping support for Emacs + ;; 24, replace by putting this at the top of this file: + ;; (declare-function extract-rectangle-bounds "rect") + (fboundp 'extract-rectangle-bounds)) + ;; If we're in rectangle-mark-mode, loop over each line of the + ;; rectangle. Send them separately. + (let ((reclines (extract-rectangle-bounds (min (mark) (point)) (max (mark) (point))))) + (mapc (lambda (l) + (ess--eval-region (car l) (cdr l) vis message type)) + reclines)) + (ess--eval-region start end vis message type))) + +(defun ess--eval-region (start end vis &optional message type) + "Helper function for `ess-eval-region', which see. +START, END, VIS, MESSAGE, and TYPE described there." + (ess-eval-region--normalise-region start end) + (let ((visibly (if vis (not ess-eval-visibly) ess-eval-visibly)) + (message (or message "Eval region")) + (proc (ess-get-process))) + (save-excursion + (ess-send-region proc start end visibly message type))) + (when ess-eval-deactivate-mark + (ess-deactivate-mark)) + (list start end)) + +(defun ess-eval-buffer (&optional vis) + "Send the current buffer to the inferior ESS process. +VIS has same meaning as for `ess-eval-region'." + (interactive "P") + (ess-eval-region (point-min) (point-max) vis "Eval buffer" 'buffer)) + +(defun ess-eval-buffer-from-beg-to-here (&optional vis) + "Send region from beginning to point to the inferior ESS process. +VIS has same meaning as for `ess-eval-region'." + (interactive "P") + (ess-eval-region (point-min) (point) vis "Eval buffer till point")) + +(defun ess-eval-buffer-from-here-to-end (&optional vis) + "Send region from point to end of buffer to the inferior ESS process. +VIS has same meaning as for `ess-eval-region'." + (interactive "P") + (ess-eval-region (point) (point-max) vis "Eval buffer till end")) + +(defun ess-eval-function (&optional vis) + "Send the current function to the inferior ESS process. +Prefix arg VIS toggles visibility of ess-code as for +`ess-eval-region'. Returns nil if not inside a function." + (interactive "P") + (save-excursion + (ignore-errors + ;; Evaluation is forward oriented + (forward-line -1) + (ess-next-code-line 1)) + (let ((pos (point)) + beg end msg) + (end-of-defun) + (beginning-of-defun) + ;; While we are the beginning of the function, get the function + ;; name + (setq msg (format "Eval function: %s" + (propertize (if (looking-at-p add-log-current-defun-header-regexp) + (add-log-current-defun) + (buffer-substring-no-properties (point) (point-at-eol))) + 'face 'font-lock-function-name-face))) + (setq beg (point)) + (end-of-defun) + (setq end (point)) + (when (or (< pos beg) + (< end pos)) + (error "Not in a function")) + (if (ess-tracebug-p) + (ess-tracebug-send-function (get-process ess-local-process-name) beg end vis msg) + (ess-eval-region beg end vis msg))))) + +(defun ess-eval-paragraph (&optional vis) + "Send the current paragraph to the inferior ESS process. +Prefix arg VIS toggles visibility of ess-code as for `ess-eval-region'." + (interactive "P") + (save-excursion + (ignore-errors + ;; Evaluation is forward oriented + (forward-line -1) + (ess-next-code-line 1)) + (let ((beg (progn (backward-paragraph) (point))) + (end (progn (forward-paragraph) (point)))) + (ess-eval-region beg end vis)))) + +(defun ess-eval-function-or-paragraph (&optional vis) + "Send the current function if \\[point] is inside one. +Otherwise send the current paragraph to the inferior ESS process. +Prefix arg VIS toggles visibility of ess-code as for +`ess-eval-region'. Returns 'function if a function was evaluated +or 'paragraph if a paragraph." + (interactive "P") + (condition-case nil + (progn (ess-eval-function vis) + 'function) + ;; TODO: Maybe be smarter than just catching all errors? + (error (ess-eval-paragraph vis) + 'paragraph))) + +(defun ess-eval-function-or-paragraph-and-step (&optional vis) + "Send the current function if \\[point] is inside one. +Otherwise send the current paragraph to the inferior ESS process. +Prefix arg VIS toggles visibility of ess-code as for +`ess-eval-region'." + (interactive "P") + (ess-skip-thing (ess-eval-function-or-paragraph vis)) + (ess-next-code-line)) + +(defun ess-eval-region-or-function-or-paragraph (&optional vis) + "Send the region, function, or paragraph depending on context. +Send the region if it is active. If not, send function if `point' +is inside one, otherwise the current paragraph. Treats +rectangular regions as `ess-eval-region' does. Prefix arg VIS +toggles visibility of ess-code as for `ess-eval-region'." + (interactive "P") + (if (use-region-p) + (ess-eval-region (region-beginning) (region-end) vis) + (ess-eval-function-or-paragraph vis))) + +(defun ess-eval-region-or-function-or-paragraph-and-step (&optional vis) + "Send the region, function, or paragraph depending on context. +Send the region if it is active. If not, send function if `point' +is inside one, otherwise the current paragraph. Treats +rectangular regions as `ess-eval-region' does. After evaluation +step to the next code line or to the end of region if region was +active. Prefix arg VIS toggles visibility of ess-code as for +`ess-eval-region'." + (interactive "P") + (ess-skip-thing (ess-eval-region-or-function-or-paragraph vis)) + (ess-next-code-line)) + +(defun ess-eval-region-or-line-and-step (&optional vis) + "Evaluate region if active, otherwise `ess-eval-line-and-step'. +See `ess-eval-region' for the meaning of VIS. Treats rectangular +regions as `ess-eval-region' does." + (interactive "P") + (if (use-region-p) + (ess-eval-region (region-beginning) (region-end) vis) + (ess-eval-line-and-step))) + +(defun ess-eval-region-or-line-visibly-and-step () + "Evaluate region if active, otherwise the current line and step. +Evaluation is done visibly. + +Note that when inside a package and namespaced evaluation is in +place (see `ess-r-set-evaluation-env') evaluation of multiline +input will fail." + (interactive) + (ess-force-buffer-current) + (display-buffer (ess-get-process-buffer)) + (let ((ess-eval-visibly t)) + (ess-eval-region-or-line-and-step))) + +(defun ess-eval-line (&optional vis) + "Send the current line to the inferior ESS process. +VIS has same meaning as for `ess-eval-region'." + (interactive "P") + (let* ((beg (point-at-bol)) + (end (point-at-eol)) + (msg (format "Loading line: %s" (buffer-substring beg end)))) + (ess-eval-region beg end vis msg))) + +(defun ess-eval-line-and-step (&optional vis) + "Evaluate the current line and step to the \"next\" line. +See `ess-eval-region' for VIS." + (interactive "P") + (ess-eval-line vis) + (ess-skip-thing 'line) + (ess-next-code-line)) + +(defun ess-eval-line-visibly-and-step (&optional simple-next) + "Evaluate the current line visibly and step to the \"next\" line. +If SIMPLE-NEXT is non-nil, possibly via prefix arg, first skip +empty and commented lines. When the variable `ess-eval-empty' +is non-nil both SIMPLE-NEXT and EVEN-EMPTY are interpreted as +true. + +Note that when inside a package and namespaced evaluation is in +place (see `ess-r-set-evaluation-env'), the evaluation of +multiline input will fail." + (interactive "P") + (ess-force-buffer-current) + (display-buffer (ess-get-process-buffer)) + (let ((ess-eval-visibly t) + (ess-eval-empty (or ess-eval-empty simple-next))) + (ess-eval-line) + (ess-skip-thing 'line) + (ess-next-code-line))) + +(defun ess-eval-line-invisibly-and-step () + "Evaluate the current line invisibly and step to the next line. +Evaluate all comments and empty lines." + (interactive) + (let ((ess-eval-visibly nil)) + (ess-eval-line-and-step))) +(define-obsolete-function-alias 'ess-eval-line-and-step-invisibly 'ess-eval-line-invisibly-and-step "18.10") + + +;;;*;;; Evaluate and switch to S + +(defun ess-eval-region-and-go (start end &optional vis) + "Send region from START to END to the inferior process buffer. +START and END default to the current region, and rectangular +regions are treated as `ess-eval-region'. VIS has same meaning as +for `ess-eval-region'." + (interactive "r\nP") + (ess-eval-region start end vis) + (ess-switch-to-ESS t)) + +(defun ess-eval-buffer-and-go (&optional vis) + "Send the current buffer to the inferior S and switch to the process buffer. +VIS has same meaning as for `ess-eval-region'." + (interactive "P") + (ess-eval-buffer vis) + (ess-switch-to-ESS t)) + +(defun ess-eval-function-and-go (&optional vis) + "Send the current function, then switch to the inferior process buffer. +VIS has same meaning as for `ess-eval-region'." + (interactive "P") + (ess-eval-function vis) + (ess-switch-to-ESS t)) + +(defun ess-eval-line-and-go (&optional vis) + "Send the current line, then switch to the inferior process buffer. +VIS has same meaning as for `ess-eval-region'." + (interactive "P") + (ess-eval-line vis) + (ess-switch-to-ESS t)) + +(defun ess-eval-paragraph-and-go (&optional vis) + "Send the current paragraph, then switch to the inferior process buffer. +VIS has same meaning as for `ess-eval-region'." + (interactive "P") + (ess-eval-paragraph vis) + (ess-switch-to-ESS t)) + +(defun ess-eval-paragraph-and-step (&optional vis) + "Evaluate the current paragraph and move point to the next line. +If not inside a paragraph, evaluate the next one. VIS has same +meaning as for `ess-eval-region'." + (interactive "P") + (ess-eval-paragraph vis) + (ess-skip-thing 'paragraph) + (ess-next-code-line)) + + ; Inferior ESS mode +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;;; In this section: +;;;; +;;;; * The major mode inferior-ess-mode +;;;; * Process handling code +;;;; * Completion code +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;;*;; Major mode definition + +(defvar inferior-ess-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "\C-y" 'ess-yank) + (define-key map "\r" 'inferior-ess-send-input) + (define-key map "\C-a" 'comint-bol) + ;; 2010-06-03 SJE + ;; disabled this in favour of ess-dirs. Martin was not sure why this + ;; key was defined anyway in this mode. + ;;(define-key map "\M-\r" 'ess-transcript-send-command-and-move) + (define-key map "\C-c\M-l" 'ess-load-file);; no longer overwrites C-c C-l; + ;; but for now the user deserves a message: + (define-key map "\C-c\C-l" 'ess-msg-and-comint-dynamic-list-input-ring) + (define-key map "\C-c`" 'ess-show-traceback) + (define-key map [(control ?c) ?~] 'ess-show-call-stack) + (define-key map "\C-c\C-d" 'ess-dump-object-into-edit-buffer) + (define-key map "\C-c\C-v" 'ess-display-help-on-object) + (define-key map "\C-c\C-q" 'ess-quit) + (define-key map "\C-c\C-s" 'ess-execute-search) + (define-key map "\C-c\C-x" 'ess-execute-objects) + (define-key map "\C-c\034" 'ess-abort) ; \C-c\C-backslash + (define-key map "\C-c\C-z" 'ess-switch-to-inferior-or-script-buffer) ; mask comint map + (define-key map "\C-d" 'delete-char) ; EOF no good in S + (define-key map "\t" 'completion-at-point) + (define-key map "\C-c\t" 'ess-complete-object-name-deprecated) + (define-key map "\M-?" 'ess-list-object-completions) + (define-key map "\C-c\C-k" 'ess-request-a-process) + (define-key map "," 'ess-smart-comma) + (define-key map (kbd "C-c C-=") 'ess-cycle-assign) + (define-key map "\C-c\C-d" 'ess-doc-map) + (define-key map "\C-c\C-e" 'ess-extra-map) + (define-key map "\C-c\C-t" 'ess-dev-map) + map) + "Keymap for `inferior-ess' mode.") + +(easy-menu-define + inferior-ess-mode-menu inferior-ess-mode-map + "Menu for use in Inferior S mode" + '("iESS" + ["What is this? (beta)" ess-mouse-me t] + ["Quit" ess-quit t] + ;; ["Send and move" ess-transcript-send-command-and-move t] + ["Copy command" comint-copy-old-input t] + ["Send command" inferior-ess-send-input t] + ["Switch to Script Buffer" ess-switch-to-inferior-or-script-buffer t] + ["Get help on S object" ess-display-help-on-object t] + "------" + ("Process" + ["Process Echoes" (lambda () (interactive) + (setq comint-process-echoes (not comint-process-echoes))) + :active t + :style toggle + :selected comint-process-echoes] + ("Eval visibly " + :filter ess--generate-eval-visibly-submenu )) + "------" + ("Utils" + ;; need a toggle switch for above, AJR. + ["Attach directory" ess-execute-attach t] + ["Display object list" ess-execute-objects t] + ["Display search list" ess-execute-search t] + ["Edit S Object" ess-dump-object-into-edit-buffer t] + ["Enter S command" ess-execute t] + ["Jump to Error" ess-parse-errors t] + ["Load source file" ess-load-file t] + ["Resynch S completions" ess-resynch t] + ;; ["Recreate R and S versions known to ESS" (ess-r-s-versions-creation+menu) t] + ) + "------" + ("start-dev" :visible nil); <-- ?? + ("end-dev" :visible nil) + "------" + ("Font Lock" + :active ess-font-lock-keywords + :filter ess--generate-font-lock-submenu) + "------" + ["Describe" describe-mode t] + ["Send bug report" ess-submit-bug-report t] + ["About" (ess-goto-info "Entering Commands") t] + )) + + +(defvar ess-mode-minibuffer-map + (let ((map (make-sparse-keymap))) + (set-keymap-parent map minibuffer-local-map) + (define-key map "\t" 'ess-complete-object-name) + (define-key map "\C-\M-i" 'ess-complete-object-name) ;; doesn't work:( + (define-key map "\C-c\C-s" 'ess-execute-search) + (define-key map "\C-c\C-x" 'ess-execute-objects) + map) + "Keymap used in `ess-execute'.") + +(define-derived-mode inferior-ess-mode comint-mode "iESS" + "Major mode for interacting with an inferior ESS process. +To learn more about how to use inferior ess modes, see Info +node `(ess)Top'. If you accidentally suspend your process, use +\\[comint-continue-subjob] to continue it." + ;; initialize all custom vars: + (when ess-customize-alist + (ess-setq-vars-local ess-customize-alist)) + (setq-local comint-input-sender 'inferior-ess-input-sender) + + (when ess-history-file + (setq comint-input-ring-file-name + (expand-file-name (if (eql t ess-history-file) + (concat "." ess-dialect "history") + ess-history-file) + ess-history-directory)) + (comint-read-input-ring)) + + (setq-local font-lock-fontify-region-function + #'inferior-ess-fontify-region) + + + ;; If comint-process-echoes is t inferior-ess-input-sender + ;; recopies the input, otherwise not + (setq-local comint-process-echoes (not (member ess-language '("SAS" "XLS" "OMG" "julia")))) + + (when comint-use-prompt-regexp ;; why comint is not setting this? bug? + (setq-local inhibit-field-text-motion t)) + + (unless inferior-ess-prompt ;; build when unset + (setq inferior-ess-prompt + (concat "\\(" + inferior-ess-primary-prompt + (when inferior-ess-secondary-prompt "\\|") + inferior-ess-secondary-prompt + "\\)"))) + (setq comint-prompt-regexp (concat "^" inferior-ess-prompt)) + + (setq mode-line-process + '(" [" + ess--mode-line-process-indicator + ess--local-mode-line-process-indicator + "]: %s")) + + ;;; Completion support ---------------- + (remove-hook 'completion-at-point-functions 'comint-completion-at-point t) ;; reset the hook + (add-hook 'completion-at-point-functions 'comint-c-a-p-replace-by-expanded-history nil 'local) + (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local) + + ;; hyperlinks support + (goto-address-mode t) + + ;; Avoid spaces after filenames + (setq-local comint-completion-addsuffix (cons "/" "")) + + (setq comint-input-autoexpand t) ; Only for completion, not on input. + + (add-hook 'window-configuration-change-hook #'ess-set-width nil t) + (setq-local indent-tabs-mode nil) + + (setq-local paragraph-start (concat inferior-ess-primary-prompt "\\|\^L")) + (setq-local paragraph-separate "\^L") + (setq-local jit-lock-chunk-size inferior-ess-jit-lock-chunk-size)) + + + +;;*;; Commands used exclusively in inferior-ess-mode + +;;;*;;; Main user commands + +(defun inferior-ess-input-sender (proc string) + (inferior-ess--interrupt-subjob-maybe proc) + (let ((comint-input-filter-functions nil)) ; comint runs them, don't run twise. + (if comint-process-echoes + (ess-eval-linewise string nil nil ess-eval-empty) + (ess-send-string proc string)))) + +(defvar ess-help-arg-regexp "\\(['\"]?\\)\\([^,=)'\"]*\\)\\1" + "Reg(ular) Ex(pression) of help(.) arguments. MUST: 2nd \\(.\\) = arg.") + +(defun inferior-ess-send-input () + "Sends the command on the current line to the ESS process." + (interactive) + (run-hooks 'ess-send-input-hook) + (unless (ess-process-get 'busy) + ;; avoid new line insertion + (ess-process-put 'prev-prompt nil)) + (comint-send-input) + (setq ess-object-list nil)) + +(defun inferior-ess--goto-input-start:field () + "Move point to the begining of input skiping all continuation lines. +If in the output field, goes to the begining of previous input +field. +Note: `inferior-ess-secondary-prompt' should match exactly." + (goto-char (field-beginning)) + ;; move to the begining of non-output field + (while (and (not (= (point) (point-min))) + (eq (field-at-pos (point)) 'output)) + (goto-char (field-beginning nil t))) + ;; skip all secondary prompts + (let ((pos (field-beginning (point) t)) + (secondary-prompt (concat "^" inferior-ess-secondary-prompt))) + (while (and pos + (if (eq (get-text-property pos 'field) 'output) + (string-match secondary-prompt (field-string-no-properties pos)) + t)) + (goto-char pos) + (setq pos (previous-single-property-change pos 'field))))) + +(defun inferior-ess--goto-input-end:field () + "Move point to the end of input skiping all continuation lines. +If in the output field, goes to the begining of previous input +field. NOTE: to be used only with fields, see +`comint-use-prompt-regexp'." + ;; this func is not used but might be useful some day + (goto-char (field-end)) + (let ((pos (point)) + (secondary-prompt (concat "^" inferior-ess-secondary-prompt))) + (while (and pos + (if (eq (get-text-property pos 'field) 'output) + (string-match secondary-prompt (field-string-no-properties pos)) + t)) + (goto-char pos) + (setq pos (next-single-property-change pos 'field))))) + +(defun inferior-ess--get-old-input:field () + "Return the ESS command surrounding point (use with fields)." + (save-excursion + (if (eq (field-at-pos (point)) 'output) + (if (called-interactively-p 'any) + (error "No command on this line") + ;; else, just return "" + "") + (inferior-ess--goto-input-start:field) + (let ((command (field-string-no-properties (point))) + (pos (next-single-property-change (point) 'field )) + (secondary-prompt (concat "^" inferior-ess-secondary-prompt))) + (while (and pos + (cond + ((eq (get-text-property pos 'field) 'input) + (setq command (concat command "\n" (field-string-no-properties pos)))) + ((eq (get-text-property pos 'field) 'output) + (string-match secondary-prompt (field-string-no-properties pos))) + (t)));; just skip if unknown + (setq pos (next-single-property-change pos 'field))) + command)))) + +;; todo: error when entering a multiline function +;; check.integer <- function(N){ +;; is.integer(N) | !length(grep("[^[:digit:]]", as.character(N))) +;; } +(defun inferior-ess--goto-input-start:regexp () + "Move point to the begining of input skiping all continuation lines. +If in the output field, goes to the begining of previous input." + (beginning-of-line) + (unless (looking-at inferior-ess-prompt) + (re-search-backward (concat "^" inferior-ess-prompt) nil t)) + ;; at bol + (when (and inferior-ess-secondary-prompt + (looking-at inferior-ess-secondary-prompt)) + (while (and (> (forward-line -1) -1) + (looking-at inferior-ess-secondary-prompt)))) + (unless (looking-at inferior-ess-prompt) + (error "Beggining of input not found")) + (comint-skip-prompt)) + +(defun inferior-ess--get-old-input:regexp () + "Return the ESS command surrounding point (use regexp)." + ;;VS[03-09-2012]: This should not rise errors!! Troubles comint-interrupt-subjob + (save-excursion + (let* ((inhibit-field-text-motion t) + command) + (beginning-of-line) + (when (and inferior-ess-secondary-prompt + (looking-at inferior-ess-secondary-prompt)) + (inferior-ess--goto-input-start:regexp)) + (beginning-of-line) + (if (looking-at inferior-ess-prompt) ; cust.var, might not include sec-prompt + (progn + (comint-skip-prompt) + (setq command (buffer-substring-no-properties (point) (point-at-eol))) + (when inferior-ess-secondary-prompt + (while (progn (forward-line 1) + (looking-at inferior-ess-secondary-prompt)) + (re-search-forward inferior-ess-secondary-prompt (point-at-eol) t) + (setq command (concat command "\n" + (buffer-substring-no-properties (point) (point-at-eol)))))) + (forward-line -1) + (setq ess-temp-point (point)) ;; this is ugly, used by transcript + command) + (message "No command at this point") + "")))) + +(defun inferior-ess-get-old-input () + "Return the ESS command surrounding point." + (if comint-use-prompt-regexp + (inferior-ess--get-old-input:regexp) + (inferior-ess--get-old-input:field))) + + +;;;*;;; Hot key commands + +(defun ess-execute-objects (posn) + "Send the objects() command to the ESS process. +By default, gives the objects at position 1. +A prefix argument toggles the meaning of `ess-execute-in-process-buffer'. +A prefix argument of 2 or more means get objects for that position. +A negative prefix argument gets the objects for that position + and toggles `ess-execute-in-process-buffer' as well." + (interactive "P") + (ess-make-buffer-current) + (let* ((num-arg (if (listp posn) + (if posn -1 1) + (prefix-numeric-value posn))) + (the-posn (if (< num-arg 0) (- num-arg) num-arg)) + (invert (< num-arg 0)) + (the-command (format inferior-ess-objects-command the-posn ".*")) + (the-message (concat ">>> Position " + (number-to-string the-posn) + " (" + (nth (1- the-posn) (ess-search-list)) + ")\n"))) + (ess-execute the-command invert "S objects" the-message))) + +(defun ess-execute-search (invert) + "Send the `inferior-ess-search-list-command' command to the `ess-language' process. +[search(..) in S]" + (interactive "P") + (ess-execute inferior-ess-search-list-command invert "S search list")) + +;; FIXME --- this *only* works in S / S-plus; not in R +;; ----- ("at least" is not assigned to any key by default) +(defun ess-execute-attach (dir &optional posn) + "Attach a directory in the `ess-language' process with the attach() command. +When used interactively, user is prompted for DIR to attach and +prefix argument is used for POSN (or 2, if absent.) +Doesn't work for data frames." + (interactive "Attach directory: \nP") + (ess-execute (concat "attach(\"" + (directory-file-name (expand-file-name dir)) + "\"" + (if posn (concat "," (number-to-string + (prefix-numeric-value posn)))) + ")") 'buffer) + (ess-process-put 'sp-for-help-changed? t)) + +(defun ess-execute-screen-options (&optional invisibly) + "Cause S to set the \"width\" option to 1 less than the window width. +Also sets the \"length\" option to 99999. When INVISIBLY is +non-nil, don't echo to R subprocess. This is a good thing to put +in `ess-r-post-run-hook' or `ess-S+-post-run-hook'." + (interactive) + (if (null ess-execute-screen-options-command) + (message "Not implemented for '%s'" ess-dialect) + (let ((command (ess-calculate-width 'window))) + (if invisibly + (ess-command command) + (ess-eval-linewise command nil nil nil 'wait-prompt))))) + +(defun ess-calculate-width (opt) + "Calculate width command given OPT. +OPT can be 'window, 'frame, or an integer. Return a command +suitable to send to the inferior process (e.g. \"options(width=80, length=999999)\")." + (when (null ess-execute-screen-options-command) + (error "Not implemented for %s" ess-dialect)) + (let (command) + (cond ((integerp opt) + (setq command (format ess-execute-screen-options-command opt))) + ((eql 'window opt) + ;; We cannot use (window-width) here because it returns sizes + ;; in default (frame) characters which leads to incorrect + ;; sizes with scaled fonts.To solve this we approximate font + ;; width in pixels and use window-pixel-width to compute the + ;; approximate number of characters that fit into line. + (let* ((wedges (window-inside-pixel-edges)) + (wwidth (- (nth 2 wedges) (nth 0 wedges))) + (nchars (floor (/ wwidth (default-font-width))))) + (setq command (format ess-execute-screen-options-command + nchars)))) + ((eql 'frame opt) + (setq command + (format ess-execute-screen-options-command (frame-width)))) + (t (error "OPT (%s) not 'window, 'frame or an integer" opt))) + command)) + +(defun ess-set-width () + "Set the width option. +A part of `window-configuration-change-hook' in inferior ESS +buffers." + (when (and ess-auto-width + ess-execute-screen-options-command) + ;; `window-configuration-change-hook' runs with the window selected. + (let ((proc (get-buffer-process (window-buffer))) + command) + ;; TODO: Set the width once the process is no longer busy. + (when (and (process-live-p proc) + (not (process-get proc 'busy))) + (setq command (ess-calculate-width ess-auto-width)) + (if ess-auto-width-visible + (ess-eval-linewise command nil nil nil 'wait-prompt) + (ess-command command)))))) + +(defun ess-execute (command &optional invert buff message) + "Send a command to the ESS process. +A newline is automatically added to COMMAND. Prefix arg (or second arg +INVERT) means invert the meaning of +`ess-execute-in-process-buffer'. If INVERT is 'buffer, output is +forced to go to the process buffer. If the output is going to a +buffer, name it *BUFF*. This buffer is erased before use. Optional +fourth arg MESSAGE is text to print at the top of the buffer (defaults +to the command if BUFF is not given.)" + (interactive (list + ;; simpler way to set proc name in mb? + (let ((enable-recursive-minibuffers t) + (proc-name (progn (ess-force-buffer-current) + ess-local-process-name))) + (with-current-buffer (get-buffer " *Minibuf-1*") ;; fixme: hardcoded name + (setq ess-local-process-name proc-name)) + (read-from-minibuffer "Execute> " nil + ess-mode-minibuffer-map)) + current-prefix-arg)) + (ess-make-buffer-current) + (let ((the-command (concat command "\n")) + (buff-name (concat "*" (or buff "ess-output") "*")) + (in-pbuff (if invert (or (eq invert 'buffer) + (not ess-execute-in-process-buffer)) + ess-execute-in-process-buffer))) + (if in-pbuff + (ess-eval-linewise the-command) + (let ((buff (ess-create-temp-buffer buff-name))) + (ess-command the-command buff);; sleep? + (with-current-buffer buff + (ansi-color-apply-on-region (point-min) (point-max)) + (goto-char (point-min)) + (if message (insert message) + (if buff nil + ;; Print the command in the buffer if it has not been + ;; given a special name + (insert "> " the-command))) + (setq ess-local-process-name ess-current-process-name)) + (ess-display-temp-buffer buff))))) + + +;;;*;;; Quitting + +(cl-defgeneric ess-quit--override (_arg) + "Stops the inferior process" + (let ((proc (ess-get-process))) + (ess-cleanup) + (goto-char (marker-position (process-mark proc))) + (insert inferior-ess-exit-command) + (process-send-string proc inferior-ess-exit-command))) + +(defun ess-quit (&optional arg) + "Issue an exiting command to the inferior process. +Runs `ess-cleanup'. ARG gets passed to a language specific +method, see `ess-quit--override'." + (interactive "P") + (ess-force-buffer-current "Process to quit: " nil 'no-autostart) + (ess-interrupt) + (ess-make-buffer-current) + (ess-quit--override arg)) + +(defun ess-interrupt () + "Interrupt the inferior process. +This sends an interrupt and quits a debugging session." + (interactive) + (inferior-ess-force) + (let ((proc (ess-get-process))) + ;; Interrupt current task before reloading. Useful if the process is + ;; prompting for input, for instance in R in case of a crash + (interrupt-process proc comint-ptyp) + ;; Workaround for Windows terminals + (unless (memq system-type '(gnu/linux darwin)) + (process-send-string nil "\n")) + (ess-wait-for-process proc) + ;; Quit debugging session before reloading + (when (ess-debug-active-p) + (ess-debug-command-quit) + (ess-wait-for-process proc)))) + +(defun ess-abort () + "Kill the ESS process, without executing .Last or terminating devices. +If you want to finish your session, use \\[ess-quit] instead." +;;; Provided as a safety measure over the default binding of C-c C-z in +;;; comint-mode-map. + (interactive) + (ding) + (message "WARNING: \\[inferior-ess-exit-command] will not be executed and graphics devices won't finish properly!") + (sit-for 2) + (if (y-or-n-p "Still abort? ") + (comint-quit-subjob) + (message "Good move."))) + +(defun ess-cleanup () + "Possibly kill or offer to kill, depending on the value of +`ess-S-quit-kill-buffers-p', all buffers associated with this ESS process. +Leaves you in the ESS process buffer. It's a good idea to run this +before you quit. It is run automatically by \\[ess-quit]." + (interactive) + (let ((the-procname (or (ess-make-buffer-current) ess-local-process-name))) + (unless the-procname + (error "I don't know which ESS process to clean up after!")) + (when + (or (eq ess-S-quit-kill-buffers-p t) + (and + (eq ess-S-quit-kill-buffers-p 'ask) + (y-or-n-p + (format + "Delete all buffers associated with process %s? " the-procname)))) + (dolist (buf (buffer-list)) + (with-current-buffer buf + ;; Consider buffers for which ess-local-process-name is + ;; the same as the-procname + (when (and (not (get-buffer-process buf)) + ess-local-process-name + (equal ess-local-process-name the-procname)) + (kill-buffer buf))))) + (ess-switch-to-ESS nil))) + +(defun inferior-ess-reload (&optional start-args) + "Reload the inferior process. +START-ARGS gets passed to the dialect-specific +`inferior-ess-reload-override'." + (interactive) + (inferior-ess-force) + ;; Interrupt early so we can get working directory + (ess-interrupt) + (save-window-excursion + ;; Make sure we don't ask for directory again + ;; Use current working directory as default + (let ((project-find-functions nil) + (ess-directory-function nil) + (ess-startup-directory (ess-get-working-directory)) + (ess-ask-for-ess-directory nil)) + (ess-quit 'no-save) + (inferior-ess--wait-for-exit (ess-get-process)) + (inferior-ess-reload--override start-args)))) + +(cl-defmethod inferior-ess-reload--override (start-args) + (user-error "Reloading not implemented for %s %s" ess-dialect start-args)) + +(defun inferior-ess--wait-for-exit (proc) + "Wait for process exit. +This should be used instead of `ess-wait-for-process' for waiting +after issuing a quit command as the latter assumes a live process." + (let ((start-time (float-time))) + (while (eq (process-status proc) 'run) + (accept-process-output proc 0.002) + (when (> (- (float-time) start-time) 1) + (error "Timeout while quitting process"))))) + +(defun ess-list-object-completions nil + "List all possible completions of the object name at point." + (interactive) + (ess-complete-object-name)) + + +;;;*;;; Support functions + +(defun ess-extract-onames-from-alist (alist posn &optional force) + "Return the object names in position POSN of ALIST. +ALIST is an alist like `ess-sl-modtime-alist'. POSN should be in 1 .. (length +ALIST). If optional third arg FORCE is t, the corresponding element +of the search list is re-read. Otherwise it is only re-read if it's a +directory and has been modified since it was last read." + (let* ((entry (nth (1- posn) alist)) + (dir (car entry)) + (timestamp (car (cdr entry))) + (new-modtime (and timestamp + (ess-dir-modtime dir)))) + ;; Refresh the object listing if necessary + (if (or force (not (equal new-modtime timestamp))) + (setcdr (cdr entry) (ess-object-names dir posn))) + (cdr (cdr entry)))) + +(defun ess-dir-modtime (dir) + "Return the last modtime if DIR is a directory, and nil otherwise." + (and ess-filenames-map + (file-directory-p dir) + (nth 5 (file-attributes dir)))) + +(defun ess-object-modtime (object) + "Return the modtime of the S object OBJECT (a string). +Searches along the search list for a file named OBJECT and returns its modtime +Returns nil if that file cannot be found, i.e., for R or any non-S language!" + (let ((path (ess-search-list)) + result) + (while (and (not result) path) + (setq result (file-attributes + (concat (file-name-as-directory (car path)) + object))) + (setq path (cdr path))) + (nth 5 result))) + +(defun ess-modtime-gt (mod1 mod2) + "Return t if MOD1 is later than MOD2." + (and mod1 + (or (> (car mod1) (car mod2)) + (and (= (car mod1) (car mod2)) + (> (car (cdr mod1)) (car (cdr mod2))))))) + +(defun ess-get-object-list (name &optional exclude-first) + "Return a list of current S object names associated with process NAME, +using `ess-object-list' if that is non-nil. +If exclude-first is non-nil, don't return objects in first positon (.GlobalEnv)." + (or ess-object-list ;; <<- MM: this is now always(?) nil; we cache the *-modtime-alist + (with-current-buffer (process-buffer (ess-get-process name)) + (ess-make-buffer-current) + (ess-write-to-dribble-buffer (format "(get-object-list %s) .." name)) + (if (or (not ess-sl-modtime-alist) + (ess-process-get 'sp-for-help-changed?)) + (progn (ess-write-to-dribble-buffer "--> (ess-get-modtime-list)\n") + (ess-get-modtime-list)) + ;;else + (ess-write-to-dribble-buffer " using existing ess-sl-modtime-alist\n")) + (let* ((alist ess-sl-modtime-alist) + (i 2) + (n (length alist)) + result) + (ess-write-to-dribble-buffer (format " (length alist) : %d\n" n)) + (unless exclude-first + ;; re-read of position 1 : + (setq result (ess-extract-onames-from-alist alist 1 'force))) + (ess-write-to-dribble-buffer + (format " have re-read pos=1: -> length %d\n" (length result))) + ;; Re-read remaining directories if necessary. + (while (<= i n) + (setq result + (append result + (ess-extract-onames-from-alist alist i))) + (setq i (1+ i))) + (setq ess-object-list (delete-dups result)))))) + +(defun ess-get-words-from-vector (command &optional no-prompt-check wait proc) + "Evaluate the S command COMMAND, which returns a character vector. +Return the elements of the result of COMMAND as an alist of +strings. COMMAND should have a terminating newline. +NO-PROMPT-CHECK, WAIT, and PROC are passed to `ess-command'. +FILTER may be the keyword 'non-... or nil. To avoid truncation of +long vectors, wrap your command (%s) like this, or a version with +explicit options(max.print=1e6): \"local({ out <- try({%s}); +print(out, max=1e6) })\n\"." + (unless proc + (inferior-ess-force)) + (let* ((tbuffer (get-buffer-create + " *ess-get-words*")); initial space: disable-undo + (word-RE + (concat "\\(" + "\\\\\\\"" "\\|" "[^\"]" ; \" or non-"-char + "\\)*")) + (full-word-regexp + (concat "\"" "\\(" word-RE "\\)" + "\"" + "\\( \\|$\\)"; space or end + )) + words) + (ess-command command tbuffer 'sleep no-prompt-check wait proc) + (with-current-buffer tbuffer + (goto-char (point-min)) + (while (re-search-forward full-word-regexp nil t) + (setq words (cons (buffer-substring (match-beginning 1) (match-end 1)) + words)))) + (ess-if-verbose-write + (if (> (length words) 5) + (format " |-> (length words)= %d\n" (length words)) + (format " |-> words= '%s'\n" words))) + (reverse words))) + +(defun ess-compiled-dir (dir) + "Return non-nil if DIR is an S object directory with special files. +I.e. if the filenames in DIR are not representative of the objects in DIR." + (or (file-exists-p (concat (file-name-as-directory dir) "___nonfile")) + (file-exists-p (concat (file-name-as-directory dir) "__BIGIN")) + (file-exists-p (concat (file-name-as-directory dir) "___NONFI")))) + +(defun ess-object-names (obj &optional pos) + "Return alist of S object names in directory (or object) OBJ. +If OBJ is a directory name (begins with `/') returns a listing of +that dir. This may use the search list position POS if necessary. +If OBJ is an object name, returns result of the command +`inferior-ess-safe-names-command'. If POS is supplied return the +result of the command in `inferior-ess-objects-command'. If OBJ +is nil or not a directory, POS must be supplied. In all cases, +the value is an list of object names." + (cond ((and (stringp obj) + (string-match-p "ESSR" obj)) + nil) + ;; FIXME: in both cases below, the same fallback "objects(POS)" is used -- merge! + ((and obj (file-accessible-directory-p obj)) + ;; Check the pre-compiled object list in ess-object-name-db first + + ;; FIXME: If used at all, ess-object-name-db should not only + ;; ----- be used in the directory case !! + (or (cdr-safe (assoc obj ess-object-name-db)) + ;; Take a directory listing + (and ess-filenames-map + ;; first try .Data subdirectory: + ;;FIXME: move ".Data" or ``this function'' to ess-sp6-d.el etc: + (let ((dir (concat (file-name-as-directory obj) ".Data"))) + (if (not (file-accessible-directory-p dir)) + (setq dir obj)) + (and (not (ess-compiled-dir dir)) + (directory-files dir)))) + ;; Get objects(pos) instead + (and (or (ess-write-to-dribble-buffer + (format "(ess-object-names ..): directory %s not used\n" obj)) + t) + pos + (ess-get-words-from-vector + (format inferior-ess-objects-command pos))))) + ((and obj ;; want names(obj) + (ess-get-words-from-vector + (format inferior-ess-safe-names-command obj)))) + (pos + (ess-get-words-from-vector + (format inferior-ess-objects-command pos))))) + +(defun ess-slot-names (obj) + "Return alist of S4 slot names of S4 object OBJ." + (ess-get-words-from-vector (format "slotNames(%s)\n" obj))) + +(defun ess-function-arguments (funname &optional proc) + "Get FUNARGS from cache or ask the process for it. +Return FUNARGS - a list with the first element being a +cons (PACKAGE_NAME . TIME_STAMP), second element is a string +giving arguments of the function as they appear in documentation, +third element is a list of arguments of all methods. If PROC is +given, it should be an ESS process. If PACKAGE_NAME is nil, and +TIME_STAMP is less recent than the time of the last user +interaction to the process, then update the entry. PACKAGE_NAME +is also nil when FUNNAME was not found, or FUNNAME is a special +name that contains :,$ or @." + (when (and funname ;; usually returned by ess--fn-name-start (might be nil) + (or proc (ess-process-live-p))) + (let* ((proc (or proc (get-process ess-local-process-name))) + (cache (or (process-get proc 'funargs-cache) + (let ((cache (make-hash-table :test 'equal))) + (process-put proc 'funargs-cache cache) + cache))) + (args (gethash funname cache)) + (pack (caar args)) + (ts (cdar args))) + (when (and args + (and (time-less-p ts (process-get proc 'last-eval)) + (or (null pack) + (equal pack "")))) + ;; reset cache + (setq args nil)) + (or args + (cadr (assoc funname (process-get proc 'funargs-pre-cache))) + (and + (not (process-get proc 'busy)) + (with-current-buffer (ess-command (format ess-funargs-command + (ess-quote-special-chars funname)) + nil nil nil nil proc) + (goto-char (point-min)) + (when (re-search-forward "(list" nil t) + (goto-char (match-beginning 0)) + (setq args (ignore-errors (eval (read (current-buffer))))) + (when args + (setcar args (cons (car args) (current-time))))) + ;; push even if nil + (puthash (substring-no-properties funname) args cache))))))) + +;;; SJE: Wed 29 Dec 2004 --- remove this function. +;;; rmh: Wed 5 Jan 2005 --- bring it back for use on Windows +(defun ess-create-object-name-db () + "Create a database of object names in standard S directories. +This database is saved in the file specified by +`ess-object-name-db-file', and is loaded when `ess-mode' is +loaded. It defines the variable `ess-object-name-db', which is +used for completions. Before you call this function, modify the S +search list so that it contains all the non-changing (i.e. +system) S directories. All positions of the search list except +for position 1 are searched and stored in the database. After +running this command, you should move ess-namedb.el to a +directory in the `load-path'." + (interactive) + (setq ess-object-name-db nil) + (let ((search-list (cdr (ess-search-list))) + (pos 2) + name + (buffer (get-buffer-create " *ess-db*")) + (temp-object-name-db nil)) + + (ess-write-to-dribble-buffer + (format "(object db): search-list=%s \n " search-list)) + (while search-list + (message "Searching %s" (car search-list)) + (setq temp-object-name-db (cons (cons (car search-list) + (ess-object-names nil pos)) + temp-object-name-db)) + (setq search-list (cdr search-list)) + (ess-write-to-dribble-buffer + (format "(object db): temp-obj-name-db=%s \n pos=%s" + temp-object-name-db pos)) + (setq pos (1+ pos))) + (with-current-buffer buffer + (erase-buffer) + (insert "(setq ess-object-name-db '") + (prin1 temp-object-name-db (current-buffer)) + (insert ")\n") + (setq name (expand-file-name ess-object-name-db-file)) + (write-region (point-min) (point-max) name) + (message "Wrote %s" name)) + (kill-buffer buffer) + (setq ess-object-name-db temp-object-name-db))) + +(defun ess-resynch nil + "Reread all directories/objects in variable `ess-search-list' to form completions." + (interactive) + (if (ess-make-buffer-current) nil + (error "Not an ESS process buffer")) + (setq ess-sl-modtime-alist nil) + (setq ess-object-list nil) + (setq ess-object-name-db nil) ; perhaps it would be better to reload? + (ess-process-put 'sp-for-help-changed? t) + (ess-get-modtime-list)) + +(defun ess-filename-completion () + "Return completion only within string or comment." + (save-restriction ;; explicitely handle inferior-ess + (ignore-errors + (when (and (derived-mode-p 'inferior-ess-mode) + (> (point) (process-mark (get-buffer-process (current-buffer))))) + (narrow-to-region (process-mark (get-buffer-process (current-buffer))) + (point-max)))) + (when (ess-inside-string-or-comment-p (point)) + (append (comint-filename-completion) '(:exclusive no))))) + +(defun ess-complete-filename () + "Do file completion only within strings." + (save-restriction ;; explicitely handle inferior-ess + (ignore-errors + (when (and (derived-mode-p 'inferior-ess-mode) + (> (point) (process-mark (get-buffer-process (current-buffer))))) + (narrow-to-region (process-mark (get-buffer-process (current-buffer))) + (point-max)))) + (when (or (ess-inside-string-or-comment-p (point))) ;; usable within ess-mode as well + (comint-dynamic-complete-filename)))) + +(defun ess-after-pathname-p nil + ;; Heuristic: after partial pathname if it looks like we're in a + ;; string, and that string looks like a pathname. Not the best for + ;; use with unix() (or it's alias, !). Oh well. + (save-excursion + (save-match-data + (let ((opoint (point))) + (and (re-search-backward "\\(\"\\|'\\)[~/#$.a-zA-Z0-9][^ \t\n\"']*" + nil t) + (eq opoint (match-end 0))))))) + + +;;*;; Functions handling the search list + +(defun ess-search-list (&optional force-update) + "Return the current search list as a list of strings. +Elements which are apparently directories are expanded to full +dirnames. Don't try to use cache if FORCE-UPDATE is non-nil. Is +*NOT* used by \\[ess-execute-search], but by \\[ess-resynch], +\\[ess-get-object-list], \\[ess-get-modtime-list], +\\[ess-execute-objects], \\[ess-object-modtime], +\\[ess-create-object-name-db], and (indirectly) by +\\[ess-get-help-files-list]." + (with-current-buffer + (ess-get-process-buffer ess-current-process-name);to get *its* local vars + (let ((result nil) + (slist (ess-process-get 'search-list)) + (tramp-mode nil)) ;; hack for bogus file-directory-p below + (if (and slist + (not force-update) + (not (ess-process-get 'sp-for-help-changed?))) + slist + ;; else, re-compute: + (ess-write-to-dribble-buffer " (ess-search-list ... ) ") + (let ((tbuffer (get-buffer-create " *search-list*")) + (homedir default-directory) + (my-search-cmd inferior-ess-search-list-command); from ess-buffer + elt) + (ess-command my-search-cmd tbuffer 0.05); <- sleep for dde only; does (erase-buffer) + (with-current-buffer tbuffer + ;; guaranteed by the initial space in its name: (buffer-disable-undo) + (goto-char (point-min)) + (ess-write-to-dribble-buffer + (format "after '%s', point-max=%d\n" my-search-cmd (point-max))) + (while (re-search-forward "\"\\([^\"]*\\)\"" nil t) + (setq elt (buffer-substring (match-beginning 1) (match-end 1))) + ;;Dbg: (ess-write-to-dribble-buffer (format " .. elt= %s \t" elt)) + (if (and (string-match "^[^/]" elt) + (file-directory-p (concat homedir elt))) + (progn + ;;Dbg: (ess-write-to-dribble-buffer "*IS* directory\n") + (setq elt (concat homedir elt))) + ;;else + ;;dbg + ;;- (ess-write-to-dribble-buffer "not dir.\n") + ) + (setq result (append result (list elt)))) + (kill-buffer tbuffer))) + result)))) + +;;; ess-sl-modtime-alist is a list with elements as follows: +;;; * key (directory or object name) +;;; * modtime (list of 2 integers) +;;; * name, name ... (accessible objects in search list posn labeled by key) +;;; It is a buffer-local variable (belonging to e.g. *R*, *S+6*, .. etc) +;;; and has the same number of elements and is in the same order as the +;;; S search list + +(defun ess-get-modtime-list (&optional cache-var-name exclude-first) + "Record directories in the search list, and the objects in those directories. +The result is stored in CACHE-VAR-NAME. If nil, CACHE-VAR-NAME +defaultst to `ess-sl-modtime-alist'. If EXCLUDE-FIRST is non-nil +don't recompile first object in the search list." + ;; Operation applies to process of current buffer + (let* ((searchlist (if exclude-first + (cdr (ess-search-list)) + (ess-search-list))) + (index (if exclude-first 2 1)) + (cache-name (or cache-var-name 'ess-sl-modtime-alist)) + pack newalist) + (while searchlist + (setq pack (car searchlist)) + (setq newalist + (append + newalist + (list (or (assoc pack (symbol-value cache-name)) + (append + (list pack (ess-dir-modtime pack)) + (prog2 + (message "Forming completions for %s..." pack) + (ess-object-names pack index) + (message "Forming completions for %s...done" pack))))))) + (setq index (1+ index)) + (setq searchlist (cdr searchlist))) + ;;DBG: + (ess-write-to-dribble-buffer + (format "(%s): created new alist of length %d\n" + cache-var-name (length newalist))) + (set cache-name newalist))) + + +(defun ess-search-path-tracker (str) + "Check if input STR changed the search path. +This function monitors user input to the inferior ESS process so +that Emacs can keep the process variable 'search-list' up to +date. `ess-completing-read' in \\[ess-read-object-name] uses this +list indirectly when it prompts for help or for an object to +dump. From ESS 12.09 this is not necessary anymore, as the search +path is checked on idle time. It is kept for robustness and +backward compatibility only." + (when ess-change-sp-regexp + (if (string-match ess-change-sp-regexp str) + (ess-process-put 'sp-for-help-changed? t)))) + + +;;; Miscellaneous routines + +;;;*;;; Routines for reading object names +(defun ess-read-object-name (p-string) + "Read an object name from the minibuffer with completion, and return it. +P-STRING is the prompt string." + (let* ((default (ess-read-object-name-dump)) + (object-list (ess-get-object-list ess-local-process-name)) + (spec (ess-completing-read p-string object-list nil nil nil nil default))) + (list (cond + ((string= spec "") default) + (t spec))))) + +(defun ess-read-object-name-default () + "Return the object name at point, or nil if none." + (ignore-errors + (save-excursion + ;; The following line circumvents an 18.57 bug in following-char + (if (eobp) (backward-char 1)) ; Hopefully buffer is not empty! + ;; Get onto a symbol + (catch 'nosym ; bail out if there's no symbol at all before point + (while (let ((sc (char-syntax (following-char)))) + (not (or (= sc ?w) (= sc ?_)))) + (if (bobp) (throw 'nosym nil) (backward-char 1)))) + (let* + ((end (progn (forward-sexp 1) (point))) + (beg (progn (backward-sexp 1) (point)))) + (buffer-substring-no-properties beg end))))) + +(defun ess-read-object-name-dump () + "Return the object name at point, or \"Temporary\" if none." + (ignore-errors + (save-excursion + ;; Get onto a symbol + (catch 'nosym ; bail out if there's no symbol at all before point + (while (/= (char-syntax (following-char)) ?w) + (if (bobp) (throw 'nosym nil) (backward-char 1))) + (let* + ((end (progn (forward-sexp 1) (point))) + (beg (progn (backward-sexp 1) (point))) + (object-name (buffer-substring beg end))) + (or object-name "Temporary")))))) + +;;;; start of ess-smart-operators +;;;; inspired by slime repl shortcuts + +(defvar ess--handy-history nil) + +(defun ess-handy-commands () + "Request and execute a command from `ess-handy-commands' list." + (interactive) + (let* ((commands (or ess--local-handy-commands + ess-handy-commands)) + (hist (and (assoc (car ess--handy-history) + commands) + (car ess--handy-history)))) + (call-interactively + (cdr (assoc (ess-completing-read "Execute" + (sort (mapcar 'car commands) + 'string-lessp) + nil t nil 'ess--handy-history hist) + commands))))) + +(defun ess-smart-comma () + "If comma is invoked at the process marker of an ESS inferior +buffer, request and execute a command from `ess-handy-commands' +list." + (interactive) + (let ((proc (get-buffer-process (current-buffer)))) + (if (and proc + (eq (point) (marker-position (process-mark proc)))) + (ess-handy-commands) + (if ess-smart-operators + (progn + (delete-horizontal-space) + (insert ", ") + (unless (derived-mode-p 'inferior-ess-mode) + (indent-according-to-mode))) + (insert ","))))) + + ; directories +(defun ess-set-working-directory (path &optional no-error) + "Set the current working to PATH for the ESS buffer and iESS process. +NO-ERROR prevents errors when this has not been implemented for +`ess-dialect'." + (interactive "DChange working directory to: ") + (if ess-setwd-command + (let* ((remote (file-remote-p path)) + (path (if remote + (progn + (require 'tramp-sh) + (tramp-sh-handle-expand-file-name path)) + path)) + (lpath (if remote + (with-parsed-tramp-file-name path v v-localname) + path))) + (ess-eval-linewise (format ess-setwd-command lpath)) + ;; use set instead of setq to take effect even when let bound + (set 'default-directory (file-name-as-directory path))) + (unless no-error + (error "Not implemented for dialect %s" ess-dialect)))) + +(defalias 'ess-change-directory 'ess-set-working-directory) +(define-obsolete-function-alias + 'ess-use-dir 'ess-set-working-directory "ESS 18.10") + +(defun ess-use-this-dir (&rest _ignore) + "Set the current process directory to the directory of this file. +`default-directory' is used as a fallback." + (interactive) + (let ((dir (if buffer-file-name + (file-name-directory buffer-file-name) + default-directory))) + (ess-set-working-directory (abbreviate-file-name dir)))) + +(defun ess-get-working-directory (&optional no-error) + "Retrive the current working directory from the current ess process." + (if ess-getwd-command + (abbreviate-file-name (car (ess-get-words-from-vector ess-getwd-command))) + (unless no-error + (error "Not implemented for dialect %s" ess-dialect)))) + +(defun ess-synchronize-dirs () + "Set Emacs' current directory to be the same as the subprocess directory. +To be used in `ess-idle-timer-functions'." + (when (and ess-can-eval-in-background + ess-getwd-command + (inferior-ess-available-p)) + (ess-when-new-input last-sync-dirs + (ess-if-verbose-write "\n(ess-synchronize-dirs)\n") + (setq default-directory + (car (ess-get-words-from-vector ess-getwd-command))) + default-directory))) + +(defun ess-dirs () + "Set Emacs' current directory to be the same as the *R* process." + ;; Note: This function is not necessary anymore. The Emacs + ;; default-directory and subprocess working directory are + ;; synchronized automatically. + (interactive) + (let ((dir (car (ess-get-words-from-vector "getwd()\n")))) + (message "(ESS / default) directory: %s" dir) + (setq default-directory (file-name-as-directory dir)))) + +;; search path +(defun ess--mark-search-list-as-changed () + "Internal. Mark all the search-list related variables as changed." + ;; other guys might track their own + (ess-process-put 'sp-for-help-changed? t) + (ess-process-put 'sp-for-ac-changed? t)) + +(defun ess-cache-search-list () + "To be used in `ess-idle-timer-functions', to set search path related variables." + (when (and ess-can-eval-in-background + inferior-ess-search-list-command) + (ess-when-new-input last-cache-search-list + (let ((path (ess-search-list 'force)) + (old-path (process-get *proc* 'search-list))) + (when (not (equal path old-path)) + (process-put *proc* 'search-list path) + (ess--mark-search-list-as-changed) + path))))) + + +;;*;; Temporary buffer handling + +;; (defun ess-create-temp-buffer (name) +;; "Create an empty buffer called NAME, but doesn't display it." +;; (let ((buff (get-buffer-create name))) +;; (save-excursion +;; (set-buffer buff) +;; (erase-buffer)) +;; buff)) + + +;; Ed Kademan's version: +;; From: Ed Kademan +;; Subject: Re: ess-mode 5.1.16; search list +;; To: rossini@biostat.washington.edu (A.J. Rossini) +;; Cc: Martin Maechler , ess-bugs@stat.math.ethz.ch +;; Date: 26 Jul 2000 16:12:12 -0400 + +;; Dear Tony Rossini, + +;; I was having trouble looking at the search list under ess. When I +;; started up multiple inferior processes---each for a different +;; dialect---ess-mode would issue the wrong variant of the "search" +;; command when I typed C-c C-s. In case it is useful let me tell you +;; what I did to get it to work for me. + +;; I added the component: +;; (inferior-ess-search-list-command . "search()\n") +;; to S+3-customize-alist and ess-r-customize-alist, and then I redefined the +;; ess-create-temp-buffer function as follows: +(defun ess-create-temp-buffer (name) + "Create an empty buffer called NAME." + (let ((buff (get-buffer-create name)) + (elca (eval ess-local-customize-alist))) + (with-current-buffer buff + (erase-buffer) + (ess-setq-vars-local elca buff)) + buff)) +;;These two steps seem to insure that the temporary buffer in which the +;;search results appear has the correct version of the local variables. +;;I am not that well acquainted with the ess code and don't know whether +;;this is a good fundamental way of fixing the problem, or even whether +;;or not this breaks some other feature of ess-mode that I never use. +;;Thanks for listening. +;;Ed K. +;;-- +;;Ed Kademan 508.651.3700 +;;PHZ Capital Partners 508.653.1745 (fax) +;;321 Commonwealth Road +;;Wayland, MA 01778 + +(defun ess-display-temp-buffer (buff) + "Display the buffer BUFF. +Uses `temp-buffer-show-function' and respects +`ess-display-buffer-reuse-frames'." + (if (fboundp temp-buffer-show-function) + (funcall temp-buffer-show-function buff)) + (display-buffer buff '(display-buffer-reuse-window) ess-display-buffer-reuse-frames)) + +(defun ess--inject-code-from-file (file) + ;; this is different from ess-load-file + (let ((content (with-temp-buffer + (insert-file-contents file) + (buffer-string)))) + (when (string= ess-dialect "R") + ;; don't detect intermediate prompts + (setq content (concat "{" content "}\n"))) + (ess-command content))) + +(defun ess-check-modifications nil + "Check whether loading this file would overwrite some ESS objects +which have been modified more recently than this file, and confirm +if this is the case." + ;; FIXME: this should really cycle through all top-level assignments in + ;; the buffer + ;;VS[02-04-2012|ESS 12.03]: this is sooo ugly + (when (> (length ess-change-sp-regexp) 0) + (and (buffer-file-name) ess-filenames-map + (let ((sourcemod (nth 5 (file-attributes (buffer-file-name)))) + (objname)) + (save-excursion + (goto-char (point-min)) + ;; Get name of assigned object, if we can find it + (setq objname + (and + (re-search-forward + "^\\s *\"?\\(\\(\\sw\\|\\s_\\)+\\)\"?\\s *[<_]" + nil + t) + (buffer-substring (match-beginning 1) + (match-end 1))))) + (and + sourcemod ; the file may have been deleted + objname ; may not have been able to + ; find name + (ess-modtime-gt (ess-object-modtime objname) sourcemod) + (not (y-or-n-p + (format + "The ESS object %s is newer than this file. Continue? " + objname))) + (error "Aborted")))))) + +(defun ess-check-source (fname) + "If file FNAME has an unsaved buffer, offer to save it. +Returns t if the buffer existed and was modified, but was not saved." + (let ((buff (get-file-buffer fname))) + ;; RMH: Corrections noted below are needed for C-c C-l to work + ;; correctly when issued from *S* buffer. + ;; The following barfs since + ;; 1. `if' does not accept a buffer argument, `not' does. + ;; 2. (buffer-file-name) is not necessarily defined for *S* + ;;(if buff + ;; (let ((deleted (not (file-exists-p (buffer-file-name))))) + ;; Next 2 lines are RMH's solution: + (if (not (not buff)) + (let ((deleted (not (file-exists-p fname)))) + (if (and deleted (not (buffer-modified-p buff))) + ;; Buffer has been silently deleted, so silently save + (with-current-buffer buff + (set-buffer-modified-p t) + (save-buffer)) + (if (and (buffer-modified-p buff) + (or ess-mode-silently-save + (y-or-n-p + (format "Save buffer %s first? " + (buffer-name buff))))) + (with-current-buffer buff + (save-buffer)))) + (buffer-modified-p buff))))) + + +;;*;; Error messages + +(defun ess-parse-errors (&optional showerr _reset) + "Jump to error in last loaded ESS source file. +With prefix argument SHOWERR, only show the errors ESS reported. RESET +is for compatibility with `next-error' and is ignored." + (interactive "P") + (ess-make-buffer-current) + (let ((errbuff (get-buffer ess-error-buffer-name))) + (when (not errbuff) + (error "You need to do a load first!")) + (set-buffer errbuff) + (goto-char (point-max)) + ;; FIXME: R does not give "useful" error messages by default. We + ;; could try to use a more useful one, via + ;; options(error=essErrorHandler) + (cond ((re-search-backward ess-error-regexp nil t) + (let* ((filename (buffer-substring (match-beginning 3) (match-end 3))) + (fbuffer (get-file-buffer filename)) + (linenum + (string-to-number + (buffer-substring (match-beginning 2) (match-end 2)))) + (errmess (buffer-substring (match-beginning 1) (match-end 1)))) + (if showerr + (ess-display-temp-buffer errbuff) + (if fbuffer nil + (setq fbuffer (find-file-noselect filename)) + (with-current-buffer fbuffer + ;; TODO: ess-mode is surely wrong here, but I don't + ;; think we need this whole function anymore? + (when (fboundp 'ess-mode) + (ess-mode)))) + (pop-to-buffer fbuffer) + (ess-goto-line linenum)) + (princ errmess t))) + (t + (message "Not a syntax error.") + (ess-display-temp-buffer errbuff))))) + +(defun ess-error (msg) + "Something bad has happened. +Display the S buffer, and cause an error displaying MSG." + (display-buffer (process-buffer (get-process ess-local-process-name))) + (error msg)) + +(make-obsolete 'ess-error nil "18.10") + +(provide 'ess-inf) +;;; ess-inf.el ends here diff --git a/elpa/ess-20190121.1430/ess-jags-d.el b/elpa/ess-20190121.1430/ess-jags-d.el new file mode 100644 index 00000000..a5797765 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-jags-d.el @@ -0,0 +1,257 @@ +;;; ess-jags-d.el --- ESS[JAGS] dialect + +;; Copyright (C) 2008-2011 Rodney Sparapani + +;; Author: Rodney Sparapani +;; Created: 13 March 2008 +;; Maintainer: ESS-help + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Code: + +(require 'ess-bugs-l) +(require 'ess-bugs-d) +(require 'ess-utils) +(require 'ess-inf) +(require 'ess-mode) + +(defvar ess-jags-command "jags" "Default JAGS program in PATH.") +(make-local-variable 'ess-jags-command) + +(defvar ess-jags-monitor '("") "Default list of variables to monitor.") +(make-local-variable 'ess-jags-monitor) + +(defvar ess-jags-thin 1 "Default thinning parameter.") +(make-local-variable 'ess-jags-thin) + +(defvar ess-jags-chains 1 "Default number of chains.") +(make-local-variable 'ess-jags-chains) + +(defvar ess-jags-burnin 10000 "Default burn-in.") +(make-local-variable 'ess-jags-burnin) + +(defvar ess-jags-update 10000 "Default number of updates after burnin.") +(make-local-variable 'ess-jags-update) + +(defvar ess-jags-system t "Default whether JAGS recognizes the system command.") + +(defvar ess-jags-font-lock-keywords + (list + ;; .jag files + (cons "#.*\n" font-lock-comment-face) + + (cons "^[ \t]*\\(model\\|var\\)\\>" + font-lock-keyword-face) + + (cons (concat "\\& " ess-bugs-file-root ".jog ") + ;else + "> " ess-bugs-file-root ".jog 2>&1 ") + + ; ;.txt not recognized by BOA and impractical to over-ride + ; "&& (rm -f " ess-bugs-file-root ".ind; " + ; "ln -s " ess-bugs-file-root "index.txt " ess-bugs-file-root ".ind; " + ; "for i in " ess-jags-temp-chains "; do; " + ; "rm -f " ess-bugs-file-root "$i.out; " + ; "ln -s " ess-bugs-file-root "chain$i.txt " ess-bugs-file-root "$i.out; done) " + + ess-bugs-batch-post-command) + + (comint-send-input) + )) + +(defun ess-jags-na-bug () + "ESS[JAGS]: Perform Next-Action for .jag" + + (if (equal 0 (buffer-size)) (ess-jags-switch-to-suffix ".jag") + ;else + (ess-save-and-set-local-variables) + (ess-jags-switch-to-suffix ".jmd" + ess-jags-chains ess-jags-monitor ess-jags-thin ess-jags-burnin ess-jags-update)) + ) + +;;;###autoload +(define-derived-mode ess-jags-mode ess-bugs-mode "ESS[JAGS]" + "Major mode for JAGS." + (setq-local comment-start "#") + (setq font-lock-defaults '(ess-jags-font-lock-keywords nil t)) + (setq ess-language "S") ; mimic S for ess-smart-underscore + (unless (and (fboundp 'w32-shell-dos-semantics) + (w32-shell-dos-semantics)) + (add-hook 'comint-output-filter-functions 'ess-bugs-exit-notify-sh)) + ) + +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.[Jj][Aa][Gg]\\'" . ess-jags-mode)) + +;; FIXME: What is this doing here!? +(setq features (delete 'ess-bugs-d features)) +(provide 'ess-jags-d) + +;;; ess-jags-d.el ends here diff --git a/elpa/ess-20190121.1430/ess-julia.el b/elpa/ess-20190121.1430/ess-julia.el new file mode 100644 index 00000000..b4f4bfcc --- /dev/null +++ b/elpa/ess-20190121.1430/ess-julia.el @@ -0,0 +1,469 @@ +;; ess-julia.el --- ESS julia mode and inferior interaction -*- lexical-binding: t; -*- +;; +;; Copyright (C) 2012-2015 Vitalie Spinu and the ESS Core team. +;; +;; Author: Vitalie Spinu +;; Maintainer: Vitalie Spinu +;; Created: 02-04-2012 (ESS 12.03) +;; Keywords: ESS, julia +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;; This file is *NOT* part of GNU Emacs. +;; This file is part of ESS +;; +;; This program 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 3, 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 +;; https://www.r-project.org/Licenses/ +;; +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Commentary: +;; +;; Customise inferior-julia-program to point to your julia binary +;; and start the inferior with M-x julia. +;; +;; As of Sept 2015, this file depends heavily on julia-mode.el from the Julia +;; sources. If you install ESS using `make', this will work fine, otherwise +;; ensure that julia-mode.el is on your path before loading this file. +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Code: + +(require 'compile) +(require 'ess-utils) +(require 'ess-r-mode) +(require 'ess-help) +(require 'julia-mode) +(require 'ess-inf) + +(defvar ac-prefix) +(declare-function company-in-string-or-comment "company") +(declare-function company-doc-buffer "company") + +(defcustom inferior-julia-args "" + "String of arguments (see 'julia --help') used when starting julia." + :group 'ess-julia + :type 'string) + +(eval-when-compile + (require 'cl-lib)) + +(defun ess-julia-send-string-function (process string _visibly) + "Send the Julia STRING to the PROCESS. +VISIBLY is not currently used." + (let ((file (concat temporary-file-directory "julia_eval_region.jl"))) + (with-temp-file file + (insert string)) + (process-send-string process (format ess-load-command file)))) + + +;;; HELP +(defun ess-julia-get-help-topics (&optional proc) + (append (with-current-buffer (ess-command "ESS.all_help_topics()\n") + (split-string (buffer-string) "\n")) + (ess-julia--get-objects proc))) + +(defun ess-julia--retrive-topics (url) + (with-current-buffer (url-retrieve-synchronously url) + (require 'url) + (goto-char (point-min)) + (let (out) + (while (re-search-forward "toctree.*href=\"\\(.+\\)\">\\(.+\\)Introduction + (let* ((pages (or ess-julia--manual-topics + (setq ess-julia--manual-topics + (ess-julia--retrive-topics "https://docs.julialang.org/en/latest/manual/")))) + (page (ess-completing-read "Lookup:" pages nil t))) + (browse-url (get-text-property 1 :manual page)))) + +(defun ess-julia-input-sender (proc string) + "Function to send PROC STRING submitted by user. +See `comint-input-sender'." + (save-current-buffer + (let* ((help-?-regexp "^ *\\(?:\\(?1: *?\\? *\\)\\(?2:.+\\)\\)") + (help-?-match (string-match help-?-regexp string))) + (cond (help-?-match + (ess-display-help-on-object (match-string 2 string)) + (process-send-string proc "\n")) + (t ;; normal command + (inferior-ess-input-sender proc string)))))) + +(cl-defmethod ess-installed-packages (&context ((string= ess-dialect "julia") (eql t))) + "Return list of installed julia packages." + ;; FIXME: This doesn't work if the user hasn't done "using Pkg" yet + (ess-get-words-from-vector "keys(Pkg.installed())\n")) + +(cl-defmethod ess-load-library--override (pack &context ((string= ess-dialect "julia") (eql t))) + (ess-eval-linewise (format "using %s\n" pack))) + + +;;; COMPLETION +(defun ess-julia-latexsub-completion () + "Complete latex input, and return format required by `completion-at-point-functions'." + (if (julia-latexsub) ; julia-latexsub returns nil if it performed a completion, the point otherwise + nil + (lambda () t) ;; bypass other completion methods + )) + +(defun ess-julia-object-completion () + "Return completions at point in a format required by `completion-at-point-functions'." + (let ((proc (ess-get-next-available-process ess-dialect t)) + (beg (ess-symbol-start))) + (if proc + (when beg + (let* ((prefix (buffer-substring-no-properties beg (point))) + (obj (and (string-match "\\(.*\\)\\..*$" prefix) + (match-string 1 prefix))) + (beg (if obj + (+ beg 1 (length obj)) + beg))) + (list beg (point) + (nreverse (mapcar 'car (ess-julia--get-objects proc obj))) + :exclusive 'no))) + (when (string-match "complet" (symbol-name last-command)) + (message "No ESS process of dialect %s started" ess-dialect) + nil)))) + +(defun ess-julia-objects (prefix &optional proc) + "Given PREFIX get all cached objects from PROC." + (when prefix + (let ((proc (or proc (ess-get-next-available-process nil t)))) + (if (string-match "\\(.*\\)\\..*$" prefix) + (let ((module (match-string 1 prefix))) + (mapcar (lambda (el) (concat module "." (car el))) + (ess-julia--get-objects proc module))) + (ess-julia--get-objects proc))))) + +(defun ess-julia--get-objects (&optional proc obj) + "Return all available objects. +Local caching might be used. If MODULE is givven, return only +objects from that MODULE." + (setq proc (or proc (ess-get-process))) + (when (stringp proc) + (setq proc (get-process proc))) + (when (process-live-p proc) + (let ((objects (process-get proc 'objects))) + (if (process-get proc 'busy) + (if obj + (assoc obj objects) + (process-get proc 'objects)) + (if obj + (or (cdr (assoc obj objects)) + ;; don't cache composite objects and datatypes + (ess-julia--get-components proc obj)) + ;; this segment is entered when user completon at top level is + ;; requested, either Tab or AC. Hence Main is always updated. + (let ((modules (ess-get-words-from-vector + "ESS.main_modules()\n" nil nil proc)) + (loc (process-get proc 'last-objects-cache)) + (lev (process-get proc 'last-eval))) + (prog1 + (apply #'nconc + (mapcar + (lambda (mod) + ;; we are caching all modules, and reinit Main every + ;; time user enters commands + (copy-sequence + (or (and (or (not (equal mod "Main")) + (ignore-errors (time-less-p lev loc))) + (cdr (assoc mod objects))) + (ess-julia--get-components proc mod t)))) + modules)) + (process-put proc 'last-objects-cache (current-time))))))))) + +(defun ess-julia--get-components (proc obj &optional cache?) + (with-current-buffer (ess-command (format "ESS.components(%s)\n" obj) + nil nil nil nil proc) + (goto-char (point-min)) + (let (list) + (while (re-search-forward + "^\\([^ \t\n]+\\) +\\([^ \t\n]+\\)$" nil t) + (push (cons (match-string 1) (match-string 2)) list)) + (when cache? + (let ((objects (process-get proc 'objects))) + (push (cons obj list) objects) + (process-put proc 'objects objects))) + list))) + +(defun ess-julia-get-object-help-string (sym) + "Help string for ac." + (let ((proc (ess-get-next-available-process nil t))) + (if (null proc) + "No free ESS process found" + (let ((buf (get-buffer-create " *ess-command-output*"))) + (with-current-buffer (process-buffer proc) + (ess-with-current-buffer buf + (ess--flush-help-into-current-buffer sym nil))) + (with-current-buffer buf + (ess-help-underline) + (goto-char (point-min)) + (buffer-string)))))) + +(defvar ac-source-ess-julia-objects + '((prefix . ess-symbol-start) + (requires . 2) + (candidates . ess-ac-julia-objects) + (document . ess-julia-get-object-help-string)) + "Auto-completion source for julia objects.") + +(defun ess-ac-julia-objects () + (require 'auto-complete) + (ess-julia-objects ac-prefix)) + +(declare-function company-begin-backend "company.el") + +(defun company-ess-julia-objects (command &optional arg &rest ignored) + (interactive (list 'interactive)) + (cl-case command + (interactive (company-begin-backend 'company-ess-julia-objects)) + (prefix (unless (company-in-string-or-comment) + (let ((start (ess-symbol-start))) + (when start (buffer-substring-no-properties start (point)))))) + (candidates (let ((proc (ess-get-next-available-process))) + (when proc + (all-completions arg (mapcar (lambda (x) (or (car-safe x) x)) + (ess-julia-objects arg proc)))))) + (doc-buffer (company-doc-buffer (ess-julia-get-object-help-string arg))))) + + +;;; ERRORS +(defvar ess-julia-error-regexp-alist '(ess-julia-in ess-julia-at ess-julia-while-load) + "List of symbols which are looked up in `compilation-error-regexp-alist-alist'.") + +(add-to-list 'compilation-error-regexp-alist-alist + '(ess-julia-in "^\\s-*in [^ \t\n]* \\(at \\(.*\\):\\([0-9]+\\)\\)" 2 3 nil 2 1)) +(add-to-list 'compilation-error-regexp-alist-alist + '(ess-julia-at "^\\S-+\\s-+\\(at \\(.*\\):\\([0-9]+\\)\\)" 2 3 nil 2 1)) +(add-to-list 'compilation-error-regexp-alist-alist + '(ess-julia-while-load "^\\s-*\\(while loading\\s-\\(.*\\), in .* on line +\\([0-9]+\\)\\)" 2 3 nil 2 1)) + + +;;; ELDOC +(defun ess-julia-eldoc-function () + "Return the doc string, or nil. +If an ESS process is not associated with the buffer, do not try +to look up any doc strings." + (interactive) + (when (and ess-can-eval-in-background + (ess-process-live-p) + (not (ess-process-get 'busy))) + (let ((funname (or (and ess-eldoc-show-on-symbol ;; aggressive completion + (symbol-name (ess-symbol-at-point))) + (car (ess--fn-name-start))))) + (when funname + (let* ((args (copy-sequence (nth 2 (ess-function-arguments funname)))) + (W (- (window-width (minibuffer-window)) (+ 4 (length funname)))) + (doc (concat (propertize funname 'face font-lock-function-name-face) ": "))) + (when args + (setq args (sort args (lambda (s1 s2) + (< (length s1) (length s2))))) + (setq doc (concat doc (pop args))) + (while (and args (< (+ (length doc) (length (car args))) W)) + (setq doc (concat doc " " + (pop args)))) + (when (and args (< (length doc) W)) + (setq doc (concat doc " {--}"))) + doc)))))) + + +;;; IMENU +(defvar ess-julia-imenu-generic-expression + ;; don't use syntax classes, screws egrep + '(("Function (_)" "[ \t]*function[ \t]+\\(_[^ \t\n]*\\)" 1) + ("Function" "^[ \t]*function[ \t]+\\([^_][^\t\n]*\\)" 1) + ("Const" "[ \t]*const \\([^ \t\n]*\\)" 1) + ("Type" "^[ \t]*[a-zA-Z0-9_]*type[a-zA-Z0-9_]* \\([^ \t\n]*\\)" 1) + ("Require" " *\\(\\brequire\\)(\\([^ \t\n)]*\\)" 2) + ("Include" " *\\(\\binclude\\)(\\([^ \t\n)]*\\)" 2) + )) + + +;;; CORE +(defvar ess-julia-customize-alist + '((inferior-ess-primary-prompt . "a> ") ;; from julia> + (inferior-ess-secondary-prompt . nil) + (inferior-ess-prompt . "\\w*> ") + (ess-local-customize-alist . 'ess-julia-customize-alist) + (inferior-ess-program . inferior-julia-program) + (ess-get-help-topics-function . 'ess-julia-get-help-topics) + (ess-help-web-search-command . "https://docs.julialang.org/en/latest/search/?q=%s") + (ess-manual-lookup-command . 'ess-julia-manual-lookup-function) + ;; (ess-reference-lookup-command . 'ess-julia-reference-lookup-function) + (ess-load-command . "include(expanduser(\"%s\"))\n") + (ess-funargs-command . "ESS.fun_args(\"%s\")\n") + (ess-dump-error-re . "in \\w* at \\(.*\\):[0-9]+") + (ess-error-regexp . "\\(^\\s-*at\\s-*\\(?3:.*\\):\\(?2:[0-9]+\\)\\)") + (ess-error-regexp-alist . ess-julia-error-regexp-alist) + (ess-mode-completion-syntax-table . ess-julia-completion-syntax-table) + ;; (inferior-ess-objects-command . inferior-ess-r-objects-command) + ;; (inferior-ess-search-list-command . "search()\n") + (inferior-ess-help-command . "ESS.help(\"%s\")\n") + ;; (inferior-ess-help-command . "help(\"%s\")\n") + (ess-language . "julia") + (ess-dialect . "julia") + (ess-suffix . "jl") + (ess-dump-filename-template . (replace-regexp-in-string + "S$" ess-suffix ; in the one from custom: + ess-dump-filename-template-proto)) + (ess-mode-editing-alist . nil) + (ess-change-sp-regexp . nil );ess-r-change-sp-regexp) + (ess-help-sec-regex . ess-help-r-sec-regex) + (ess-help-sec-keys-alist . ess-help-r-sec-keys-alist) + (ess-function-pattern . ess-r-function-pattern) + (ess-object-name-db-file . "ess-jl-namedb.el" ) + (ess-smart-operators . ess-r-smart-operators) + (inferior-ess-exit-command . "exit()\n") + ;;harmful for shell-mode's C-a: -- but "necessary" for ESS-help? + (inferior-ess-start-args . "") + (inferior-ess-language-start . nil) + (ess-STERM . "iESS") + (ess-editor . ess-r-editor) + (ess-pager . ess-r-pager) + (ess-getwd-command . "pwd()\n") + (ess-setwd-command . "cd(expanduser(\"%s\"))\n")) + "Variables to customize for Julia.") + +(defvar ess-julia-completion-syntax-table + (let ((table (copy-syntax-table ess-r-mode-syntax-table))) + (modify-syntax-entry ?. "_" table) + ;; (modify-syntax-entry ?: "_" table) + ;; (modify-syntax-entry ?$ "_" table) + (modify-syntax-entry ?@ "_" table) + table) + "Syntax table used for completion and help symbol lookup. +It makes underscores and dots word constituent chars.") + +(cl-defmethod ess-help-commands (&context ((string= ess-dialect "julia") (eql t))) + '((packages . "_ess_list_categories()\n") + (package-index . "_ess_print_index(\"%s\")\n") + (index-keyword-reg . "^\\(.*+\\):$*") + (index-start-reg . ":"))) + +(defvar ess-julia-mode-syntax-table (copy-syntax-table julia-mode-syntax-table)) + +(defvar ess-julia-mode-map + (let ((map (make-sparse-keymap))) + (set-keymap-parent map ess-mode-map) + map) + "Keymap for `ess-julia-mode'.") + +;;;###autoload +(define-derived-mode ess-julia-mode julia-mode "ESS[julia]" + "Major mode for julia files." + (setq-local ess-local-customize-alist ess-julia-customize-alist) + (setq ess-dialect "julia") + (ess-setq-vars-local ess-julia-customize-alist) + ;; eldoc + (add-function :before-until (local 'eldoc-documentation-function) + #'ess-julia-eldoc-function) + (when ess-use-eldoc (eldoc-mode)) + ;; auto-complete + (ess--setup-auto-complete '(ac-source-ess-julia-objects)) + ;; company + (ess--setup-company '(company-ess-julia-objects)) + ;; for emacs >= 24 + (remove-hook 'completion-at-point-functions 'ess-filename-completion 'local) ;; should be first + (add-hook 'completion-at-point-functions 'ess-julia-object-completion nil 'local) + (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local) + (if (fboundp 'ess-add-toolbar) (ess-add-toolbar)) + (setq imenu-generic-expression ess-julia-imenu-generic-expression) + (imenu-add-to-menubar "Imenu-jl")) + +;; Inferior mode +(defvar inferior-ess-julia-mode-syntax-table + (copy-syntax-table ess-julia-mode-syntax-table) + "Syntax table for `inferior-ess-julia-mode'.") + +(define-derived-mode inferior-ess-julia-mode inferior-ess-mode "iESS[julia]" + "Major mode for inferior julia processes." + (ess-setq-vars-local ess-julia-customize-alist) + (setq-local comint-use-prompt-regexp t) + (setq ess-dialect "julia") + ;; eldoc + (add-function :before-until (local 'eldoc-documentation-function) + #'ess-julia-eldoc-function) + (when ess-use-eldoc (eldoc-mode)) + ;; auto-complete + (ess--setup-auto-complete '(ac-source-ess-julia-objects) t) + ;; company + (ess--setup-company '(company-ess-julia-objects) t) + (remove-hook 'completion-at-point-functions 'ess-filename-completion 'local) ;; should be first + (add-hook 'completion-at-point-functions 'ess-julia-object-completion nil 'local) + (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local) + (add-hook 'completion-at-point-functions 'ess-julia-latexsub-completion nil 'local) + (setq comint-input-sender #'ess-julia-input-sender)) + +(defvar ess-julia-mode-hook nil) +(defvar ess-julia-post-run-hook nil + "Functions run in process buffer after starting julia process.") + +;;;###autoload +(defun julia (&optional start-args) + "Start an inferior julia process. +Optional prefix START-ARGS (\\[universal-argument]) allows to set +command line arguments, such as --load=. This should be OS +agnostic. If you have certain command line arguments that should +always be passed to julia, put them in the variable +`inferior-julia-args'." + (interactive "P") + ;; get settings, notably inferior-julia-program : + (if (null inferior-julia-program) + (error "'inferior-julia-program' does not point to 'julia' or 'julia-basic' executable") + (setq ess-customize-alist ess-julia-customize-alist) + (ess-write-to-dribble-buffer ;; for debugging only + (format + "\n(julia): ess-dialect=%s, buf=%s, start-arg=%s\n current-prefix-arg=%s\n" + ess-dialect (current-buffer) start-args current-prefix-arg)) + (let* ((jl-start-args + (concat inferior-julia-args " " ; add space just in case + (if start-args + (read-string + (concat "Starting Args" + (if inferior-julia-args + (concat " [other than '" inferior-julia-args "']")) + " ? ")) + nil)))) + (inferior-ess jl-start-args) + + (ess--tb-start) + ;; remove ` from julia's logo + (goto-char (point-min)) + (while (re-search-forward "`" nil t) + (replace-match "'")) + ;; remove an offending unmatched parenthesis + (goto-char (point-min)) + (forward-line 4) + (when (re-search-forward "(" nil t) + (replace-match "|")) + (goto-char (point-max)) + ;; --> julia helpers from ../etc/ess-julia.jl : + (ess--inject-code-from-file (format "%sess-julia.jl" ess-etc-directory)) + (with-ess-process-buffer nil + (run-mode-hooks 'ess-julia-post-run-hook))))) + +(add-to-list 'auto-mode-alist '("\\.jl\\'" . ess-julia-mode)) + +(provide 'ess-julia) +;;; ess-julia.el ends here diff --git a/elpa/ess-20190121.1430/ess-mode.el b/elpa/ess-20190121.1430/ess-mode.el new file mode 100644 index 00000000..0c2c34c3 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-mode.el @@ -0,0 +1,692 @@ +;;; ess-mode.el -- Emacs Speaks Statistics root mode. -*- lexical-binding: t; -*- +;; +;; Copyright (C) 1994-2018 ESS Core Team +;; Maintainer: ESS-core +;; +;; Keywords: languages +;; +;; 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 +;; https://www.r-project.org/Licenses/ +;; +;;; Commentary: +;; +;;; Code: + +(require 'ess) + +(eval-when-compile + (require 'cl-lib) + (require 'subr-x)) +(require 'ess-custom) +(require 'ess-utils) +(require 'ess-inf) + +;; Silence the byte compiler +(declare-function run-ess-r "ess-r-mode") +(declare-function S+ "ess-sp6-d") +(declare-function SAS "ess-sas-d") + +;; ESS mode +;; Major mode definition + +(defvar ess-mode-map + (let ((map (make-sparse-keymap))) + (define-key map [remap yank] 'ess-yank) + (define-key map "\C-c\C-r" 'ess-eval-region) + (define-key map "\C-c\M-r" 'ess-eval-region-and-go) + (define-key map "\C-c\C-b" 'ess-eval-buffer) + (define-key map "\C-c\M-b" 'ess-eval-buffer-and-go) + (define-key map (kbd "C-c C-") 'ess-eval-buffer-from-beg-to-here) + (define-key map (kbd "C-c C-") 'ess-eval-buffer-from-here-to-end) + (define-key map "\C-c\C-f" 'ess-eval-function) + (define-key map "\C-c\M-f" 'ess-eval-function-and-go) + (define-key map "\C-c\C-c" 'ess-eval-region-or-function-or-paragraph-and-step) + (define-key map "\C-c\C-p" 'ess-eval-paragraph-and-step) + (define-key map "\C-c\M-p" 'ess-eval-paragraph-and-go) + (define-key map "\C-\M-x" 'ess-eval-region-or-function-or-paragraph) + (define-key map "\C-c\C-n" 'ess-eval-line-visibly-and-step) + (define-key map "\C-c\C-j" 'ess-eval-line) + (define-key map [(control return)] 'ess-eval-region-or-line-visibly-and-step) + (define-key map "\C-c\M-j" 'ess-eval-line-and-go) + ;; FIXME: The next three can only work in S/R - mode + (define-key map "\C-\M-a" 'ess-goto-beginning-of-function-or-para) + (define-key map "\C-\M-e" 'ess-goto-end-of-function-or-para) + (define-key map "\C-xnd" 'ess-narrow-to-defun-or-para) + (define-key map "\C-xnf" 'ess-narrow-to-defun-or-para) + (define-key map "\C-c\C-y" 'ess-switch-to-ESS-deprecated) + (define-key map "\C-c\C-z" 'ess-switch-to-inferior-or-script-buffer) + (define-key map "\C-c\C-l" 'ess-load-file) + ;;; Make an alias because C-c C-l is taken up by comint in inferiors + (define-key map "\C-c\M-l" 'ess-load-file) + (define-key map "\C-c\C-v" 'ess-display-help-on-object) + (define-key map "\C-c\C-s" 'ess-switch-process) + (define-key map "\C-c\t" 'ess-complete-object-name-deprecated) + (define-key map "\M-?" 'ess-list-object-completions) + (define-key map "\C-c\C-k" 'ess-force-buffer-current) + (define-key map "\C-c`" 'ess-show-traceback) + (define-key map [(control ?c) ?~] 'ess-show-call-stack) + (define-key map "\C-\M-q" 'ess-indent-exp) + (define-key map "{" 'skeleton-pair-insert-maybe) + (define-key map "}" 'skeleton-pair-insert-maybe) + (define-key map "\C-\M-h" 'ess-mark-function-or-para) + (define-key map "\t" 'ess-indent-or-complete) + (define-key map "\C-c\C-q" 'ess-quit) + (define-key map "\M-\r" 'ess-use-this-dir) + (define-key map "," 'ess-smart-comma) + (define-key map "\C-c\C-d" 'ess-doc-map) + (define-key map "\C-c\C-e" 'ess-extra-map) + (define-key map "\C-c\C-t" 'ess-dev-map) + (define-key map (kbd "C-c C-=") 'ess-cycle-assign) + map) + "Keymap for `ess-mode'.") + +;; Redefine substituted commands +(substitute-key-definition 'indent-new-comment-line + 'ess-indent-new-comment-line + ess-mode-map global-map) + +(defvar ess-extra-map + (let (ess-extra-map) + (define-prefix-command 'ess-extra-map) + (define-key ess-extra-map "\C-d" 'ess-dump-object-into-edit-buffer) + (define-key ess-extra-map "d" 'ess-dump-object-into-edit-buffer) + (define-key ess-extra-map "\C-e" 'ess-execute) + (define-key ess-extra-map "e" 'ess-execute) + (define-key ess-extra-map "\C-i" 'ess-install-library) + (define-key ess-extra-map "i" 'ess-install-library) + (define-key ess-extra-map "\C-l" 'ess-load-library) + (define-key ess-extra-map "l" 'ess-load-library) + (define-key ess-extra-map "\C-r" 'inferior-ess-reload) + (define-key ess-extra-map "r" 'inferior-ess-reload) + (define-key ess-extra-map "\C-s" 'ess-set-style) + (define-key ess-extra-map "s" 'ess-set-style) + (define-key ess-extra-map "\C-t" 'ess-build-tags-for-directory) + (define-key ess-extra-map "t" 'ess-build-tags-for-directory) + (define-key ess-extra-map "\C-w" 'ess-execute-screen-options) + (define-key ess-extra-map "w" 'ess-execute-screen-options) + (define-key ess-extra-map "/" 'ess-set-working-directory) + ess-extra-map) + "ESS extra map.") + +(easy-menu-define + ess-mode-menu ess-mode-map + "Menu for use in `ess-mode'." + '("ESS" ; ESS-mode + ["What is this? (beta)" ess-mouse-me t] + ["Load file" ess-load-file t] + ["Eval region | func | para" ess-eval-region-or-function-or-paragraph t] + ["Eval region | func | para & step" ess-eval-region-or-function-or-paragraph-and-step t] + ["Eval region | line" ess-eval-region-or-line-visibly-and-step t] + ["Enter expression" ess-execute t] + ;; sub menus + "------" + ("Process" + ["Goto end of process buffer" ess-switch-to-end-of-ESS t] + ["Switch to process buffer" ess-switch-to-inferior-or-script-buffer t] + ["Switch Process" ess-switch-process t] + ;; ["Recreate R and S versions known to ESS" (ess-r-s-versions-creation+menu) t] + ("Start Process" + ["R" R :help "Start a new R process" :active t] + ["S" S :help "Start a new S process" :active t] + ["Sqpe" Sqpe ess-microsoft-p] ;; :help "Start a new Sqpe process" :active t + ["S+6-exisiting" S+6-existing ess-microsoft-p] ;; :help "Access an existing S process" :active t + ["SAS" SAS-menu t] ;; :help "Start a new SAS process" :active t + ;; The following menu item "Other" is a place-holder that will + ;; be replaced with the other versions of R and Sqpe that can be run. + ;; See `ess-r-versions-create' and ess-site.el + ("Other" + ["No other R or Sqpe versions" nil nil]) + ["About" + (ess-goto-info "Starting up") t] + ;; :help "Read about starting a new ESS process" :active t] + ) + ("Eval visibly " + :filter ess--generate-eval-visibly-submenu)) + "------" + ("ESS Eval" + ["Eval region | func | para" ess-eval-region-or-function-or-paragraph t] + ["Eval region | func | para & step" ess-eval-region-or-function-or-paragraph-and-step t] + ["Eval region | line & step" ess-eval-region-or-line-visibly-and-step t] + "-----" + ["Eval buffer" ess-eval-buffer t] + ["Eval buffer till here" ess-eval-buffer-from-beg-to-here t] + ["Eval buffer from here" ess-eval-buffer-from-here-to-end t] + ["Eval region" ess-eval-region t] + ["Eval function" ess-eval-function t] + ["Eval line" ess-eval-line t] + ["Eval line & step" ess-eval-line-and-step t] + ["Eval paragraph" ess-eval-paragraph t] + ["Eval paragraph & step" ess-eval-paragraph-and-step t] + ["Eval chunk" ess-eval-chunk ess-noweb-mode] + ["Eval chunk and step" ess-eval-chunk-and-step ess-noweb-mode] + ["Eval thread" ess-eval-thread ess-noweb-mode] + ["About" (ess-goto-info "Evaluating code") t] + ) + ("Eval and Go" + ["Eval buffer" ess-eval-buffer-and-go t] + ["Eval region" ess-eval-region-and-go t] + ["Eval function" ess-eval-function-and-go t] + ["Eval line" ess-eval-line-and-go t] + ["Eval paragraph" ess-eval-paragraph-and-go t] + ["Eval chunk" ess-eval-chunk-and-go ess-noweb-mode] + ["Eval thread" ess-eval-thread-and-go ess-noweb-mode] + ["About" (ess-goto-info "Evaluating code") t] + ) + ("Motion" + ["Beginning of function or para" ess-goto-beginning-of-function-or-para t] + ["End of function or para" ess-goto-end-of-function-or-para t] + "-----" + ["Backward list" backward-list t] + ["Forward list" forward-list t] + ["Next parenthesis" down-list t] + ["Enclosing parenthesis" backward-up-list t] + ["Backward sexp" backward-sexp t] + ["Forward sexp" forward-sexp t] + ["About" (Info-goto-node "(Emacs)Lists") t] + ) + ("ESS Edit" + ["Edit new object" ess-dump-object-into-edit-buffer t] + ["Complete Filename" comint-replace-by-expanded-filename t] + ["Complete File or Object" ess-indent-or-complete t] + ["Kill sexp" kill-sexp t] + ["Mark function" ess-mark-function-or-para t] + ["Indent expression" ess-indent-exp t] + ["Indent line" ess-indent-command t] + ["Toggle Auto-Fill Mode" auto-fill-mode t] + ["Undo" undo t] + ["About" (ess-goto-info "Edit buffer") t] + ) + "------" + ("start-dev" :visible nil) + ("end-dev" :visible nil) + "------" + ("Font Lock" + :active ess-font-lock-keywords + :filter ess--generate-font-lock-submenu) + "------" + ["Describe" describe-mode t] + ["About editing" (ess-goto-info "Editing") t] + ["Read ESS info" (ess-goto-info "") t] + ["Send bug report" ess-submit-bug-report t])) + +;;;###autoload +(define-derived-mode ess-mode prog-mode "ESS" + "Major mode for editing ESS source. +Optional arg ALIST describes how to customize the editing mode. +Optional arg PROC-NAME is name of associated inferior process. + +\\{ess-mode-map} + +You can send text to the inferior ESS process from other buffers containing +ESS source. + `ess-eval-region' sends the current region to the ESS process. + `ess-eval-buffer' sends the current buffer to the ESS process. + `ess-eval-function' sends the current function to the ESS process. + `ess-eval-line' sends the current line to the ESS process. + `ess-switch-to-ESS' switches the current buffer to the ESS process buffer. + `ess-switch-to-end-of-ESS' switches the current buffer to the ESS process + buffer and puts point at the end of it. + + `ess-eval-region-and-go', `ess-eval-buffer-and-go', + `ess-eval-function-and-go', and `ess-eval-line-and-go' switch to the S + process buffer after sending their text. + + `ess-load-file' sources a file of commands to the ESS process. + +\\[ess-indent-command] indents for ESS code. +\\[backward-delete-char-untabify] converts tabs to spaces as it moves back. +Comments are indented in a similar way to Emacs-lisp mode: + `###' beginning of line + `##' the same level of indentation as the code + `#' the same column on the right, or to the right of such a + column if that is not possible.(default value 40). + \\[indent-for-comment] command automatically inserts such a + `#' in the right place, or aligns such a comment if it is + already inserted. +\\[ess-indent-exp] command indents each line of the syntactic unit following point. + +Variables controlling indentation style: + `ess-tab-always-indent' + Non-nil means TAB in ESS mode should always reindent the current line, + regardless of where in the line point is when the TAB command is used. + `ess-auto-newline' + Non-nil means automatically newline before and after braces inserted in S + code. + `ess-indent-offset' + Indentation of ESS statements within surrounding block. + The surrounding block's indentation is the indentation of the line on + which the open-brace appears. + `ess-offset-block' + Indentation of blocks opened with curly braces or anonymous parentheses. + `ess-offset-arguments' + Indentation of function arguments or bracket indices. + `ess-offset-arguments-newline' + Indentation of function arguments or bracket indices when the opening + delimiter is immediately followed by a newline. + `ess-offset-continued' + Indentation style for continued statements. + `ess-align-nested-calls' + Functions whose nested calls should be aligned. + `ess-align-arguments-in-calls' + Calls in which arguments should be aligned. + `ess-align-continuations-in-calls' + Whether ignore indentation after an operator in calls + `ess-align-blocks' + Blocks that should always be aligned vertically. + `ess-indent-from-lhs' + Whether function calls given as argument should be indented from the + parameter name. + `ess-indent-from-chain-start' + Whether to indent arguments from the first of several consecutive calls. + `ess-indent-with-fancy-comments' + Non-nil means distinguish between #, ##, and ### for indentation. + +Furthermore, \\[ess-set-style] command enables you to set up predefined ess-mode +indentation style. See `ess-style-alist' for predefined styles." + ;; TODO: get rid of these and rely on modes to set variables properly + (when-let ((alist (buffer-local-value 'ess-local-customize-alist (current-buffer)))) + (ess-setq-vars-local alist)) + (when-let ((alist ess-mode-editing-alist)) + (ess-setq-vars-local alist)) + + ;; Keep out of the code. + (setq-local indent-tabs-mode nil) + + (put 'ess-local-process-name 'permanent-local t) ; protect from RCS + (setq mode-line-process + '(" [" + (:eval (ess--get-mode-line-indicator)) + ess--local-mode-line-process-indicator + "]")) + ;; completion + (add-hook 'comint-dynamic-complete-functions 'ess-complete-filename nil 'local) + (delq t comint-dynamic-complete-functions) + (set (make-local-variable 'comint-completion-addsuffix) + (cons "/" "")) + (add-hook 'hack-local-variables-hook #'ess--set-style-in-buffer nil t) + (add-hook 'ess-idle-timer-functions 'ess-synchronize-dirs nil 'local)) + +(defun ess--set-style-in-buffer () + "Set `ess-style' taking into account file and directory local variables. +This is added to `hack-local-variables-hook'." + (setq-local ess-style (or (alist-get 'ess-style file-local-variables-alist) + ess-style)) + (ess-set-style ess-style t)) + +(defun ess--get-mode-line-indicator () + "Get `ess--mode-line-process-indicator' from process buffer. +Internal function to be used for dynamic mode-line dysplay in +`ess-mode'." + (if ess-local-process-name + (let* ((proc (get-process ess-local-process-name)) + (buff (when proc (process-buffer proc)))) + (if (and proc (buffer-live-p buff)) + (with-current-buffer buff (mapcar 'eval ess--mode-line-process-indicator)) + "none")) + "none")) + + +;;; User commands in ess-mode + +(defun ess-install-library (&optional update package) + "Install PACKAGE for current dialect. +With UPDATE, update cached package list." + (interactive "P") + (ess-install-library--override update package)) + +(cl-defgeneric ess-install-library--override (update package) + "See `ess-install-library' for UPDATE, PACKAGE." + (when update (message "Don't know how to update for %s" ess-dialect)) + (error "Cannot install %s, not available for %s" package ess-dialect)) + + +;; Motion / manipulation commands + +(defun ess-goto-beginning-of-function-or-para () + "If inside a function go to the beginning of it. +Otherwise go to the beginning of paragraph." + (interactive) + (let ((pos (point)) + beg end) + (beginning-of-defun) + (setq beg (point)) + (end-of-defun) + (setq end (point)) + (goto-char beg) + (when (or (< beg pos) + (> end pos)) + (let ((par-pos (save-excursion + (goto-char pos) + (forward-comment most-negative-fixnum) + (backward-paragraph) + (forward-comment most-positive-fixnum) + (point)))) + (when (<= end par-pos) + (goto-char par-pos)))))) + +(defun ess-goto-end-of-function-or-para () + "If inside a function go to end of it. +Otherwise go to the end of paragraph." + (interactive) + (let ((pos (point)) + beg end) + (end-of-defun) + (setq end (point)) + (beginning-of-defun) + (setq beg (point)) + (goto-char end) + (when (or (< beg pos) + (> end pos)) + (let ((par-pos (save-excursion + (goto-char pos) + (forward-comment most-positive-fixnum) + (forward-paragraph) + (point)))) + (when (<= par-pos beg) + (goto-char par-pos)))))) + +(defun ess-mark-function-or-para () + "Put mark at end of ESS function, point at beginning." + (interactive) + (ess-goto-beginning-of-function-or-para) + (push-mark (point)) + (ess-goto-end-of-function-or-para) + (exchange-point-and-mark)) + +(define-obsolete-function-alias 'ess-mark-function 'ess-mark-function-or-para "15.09") + +(defun ess-narrow-to-defun-or-para () + "Make text outside current function invisible. +If text is already narrowed, this is removed before narrowing to the +current function." + (interactive) + (save-excursion + (widen) + (let* ((beg (ess-goto-beginning-of-function-or-para)) + (end (ess-goto-end-of-function-or-para))) + (narrow-to-region beg end)))) + +(define-obsolete-function-alias 'ess-narrow-to-defun 'ess-narrow-to-defun-or-para "15.09") + +(defun ess-indent-new-comment-line () + "Like `indent-new-comment-line' but accounts for roxygen comments." + (interactive) + (cond ((and (fboundp 'ess-roxy-indent-new-comment-line) + (string= ess-dialect "R")) + (ess-roxy-indent-new-comment-line)) + (t + (indent-new-comment-line)))) + + +;;; Formatting / indentation + +(defun ess-set-style (&optional style quiet) + "Set up the `ess-mode' style variables from the `ess-style' variable. +If STYLE argument is given, use that instead. It makes the ESS +indentation style variables buffer local. When non-nil, QUIET +suppresses messaging." + (interactive) + (let ((ess-styles (mapcar 'symbol-name (mapcar 'car ess-style-alist)))) + (unless style + (setq style + (intern (ess-completing-read "Set ESS mode indentation style" + ess-styles nil t nil nil ess-style)))) + (setq style (or style ess-style)) + (make-local-variable 'ess-style) + (if (memq (symbol-name style) ess-styles) + (setq ess-style style) + (error (format "Bad ESS style: %s" style))) + (if (not quiet) + (message "ESS-style: %s" ess-style)) + ;; finally, set the indentation style variables making each one local + (mapc (lambda (ess-style-pair) + (make-local-variable (car ess-style-pair)) + (set (car ess-style-pair) + (cdr ess-style-pair))) + (cdr (assq ess-style ess-style-alist))) + ess-style)) + +(defun ess-indent-command (&optional whole-exp) + "Indent current line as ESS code, or in some cases insert a tab character. +If `ess-tab-always-indent' is non-nil (the default), always indent +current line. Otherwise, indent the current line only if point is at +the left margin or in the line's indentation; otherwise insert a tab. +A numeric argument, regardless of its value, means indent rigidly all +the lines of the expression starting after point so that this line +becomes properly indented. The relative indentation among the lines +of the expression are preserved. + +If in a roxygen block at the beginning of the line with +`ess-roxy-hide-show-p' non-nil, call `ess-roxy-toggle-hiding' +instead of indenting." + (interactive "P") + (cond ((and (fboundp 'ess-roxy-entry-p) + (fboundp 'ess-roxy-toggle-hiding) + (bolp) + (ess-roxy-entry-p) + ess-roxy-hide-show-p) + (ess-roxy-toggle-hiding)) + (whole-exp + ;; If arg, always indent this line as S + ;; and shift remaining lines of expression the same amount. + (let ((shift-amt (ess-indent-line)) + beg end) + (save-excursion + (if ess-tab-always-indent + (beginning-of-line)) + (setq beg (point)) + (backward-up-list 1) + (forward-list 1) + (setq end (point)) + (goto-char beg) + (forward-line 1) + (setq beg (point))) + (if (> end beg) + (indent-code-rigidly beg end shift-amt)))) + ((and (not ess-tab-always-indent) + (save-excursion + (skip-chars-backward " \t") + (not (bolp)))) + (insert-tab)) + ;; call ess-indent-line + (t (funcall indent-line-function)))) + +(defun ess-indent-or-complete () + "When region is selected indent the region. +Otherwise, if `ess-tab-complete-in-script' is non-nil, try to +indent, if code is already indented, complete instead. The +default of `ess-tab-complete-in-script' is nil. Also see +`ess-first-tab-never-complete'." + (interactive) + (if (use-region-p) + (indent-region (region-beginning) (region-end)) + (let ((shift (ess-indent-command))) + (when (and ess-tab-complete-in-script + (numberp shift) ;; can be nil if ess-tab-always-indent is nil + (equal shift 0) + (or (eq last-command 'ess-indent-or-complete) + (null ess-first-tab-never-complete) + (and (eq ess-first-tab-never-complete 'unless-eol) + (looking-at "\\s-*$")) + (and (eq ess-first-tab-never-complete 'symbol) + (not (looking-at "\\w\\|\\s_"))) + (and (eq ess-first-tab-never-complete 'symbol-or-paren) + (not (looking-at "\\w\\|\\s_\\|\\s)"))) + (and (eq ess-first-tab-never-complete 'symbol-or-paren-or-punct) + (not (looking-at "\\w\\|\\s_\\|\\s)\\|\\s."))))) + (completion-at-point))))) + +(defun ess-indent-exp () + "Indent each line of the ESS grouping following point." + (interactive) + (cond ((and (fboundp 'ess-r-indent-exp) + (string= ess-dialect "R")) + (ess-r-indent-exp)) + (t + (save-excursion + (let ((start (point)) + (end (ignore-errors (forward-sexp 1) (point)))) + (when end + (indent-region start end))))))) + +(defun ess-indent-line () + "Indent current line as ESS code. +Return the amount the indentation changed by." + ;; fixme: make this work with standard indent-line-function + (cond ((fboundp ess-indent-line-function) + (funcall ess-indent-line-function)) + ;; else S and R default behavior + ((fboundp 'ess-r-indent-line) + (ess-r-indent-line)) + ;; fallback on Emacs + (t (funcall indent-line-function)))) + + +;;; Dump Objects + +;;;###autoload +(defun ess-dump-object-into-edit-buffer (object) + "Edit an ESS OBJECT in its own buffer. +Without a prefix argument, this simply finds the file pointed to by +`ess-source-directory'. If this file does not exist, or if a +prefix argument is given, a dump() command is sent to the ESS process to +generate the source buffer." + (interactive + (progn + (ess-force-buffer-current "Process to dump from: ") + (ess-read-object-name "Object to edit"))) + (let* ((dirname (file-name-as-directory + (if (stringp ess-source-directory) + ess-source-directory + (with-current-buffer (process-buffer (ess-get-process + ess-local-process-name)) + (ess-setq-vars-local ess-customize-alist) + (apply ess-source-directory nil))))) + (filename (concat dirname (format ess-dump-filename-template object))) + (old-buff (get-file-buffer filename))) + ;; If the directory doesn't exist, offer to create it + (if (file-exists-p (directory-file-name dirname)) nil + (if (y-or-n-p ; Approved + (format "Directory %s does not exist. Create it? " dirname)) + (make-directory (directory-file-name dirname)) + (error "Directory %s does not exist" dirname))) + ;; Three options: + ;; (1) Pop to an existing buffer containing the file in question + ;; (2) Find an existing file + ;; (3) Create a new file by issuing a dump() command to S + ;; Force option (3) if there is a prefix arg + (if current-prefix-arg + (ess-dump-object object filename) + (if old-buff + (progn + (pop-to-buffer old-buff) + (message "Popped to edit buffer.")) + ;; No current buffer containing desired file + (if (file-exists-p filename) + (progn + (ess-find-dump-file-other-window filename) + (message "Read %s" filename)) + ;; No buffer and no file + (ess-dump-object object filename)))))) + +(defun ess-dump-object (object filename) + "Dump the ESS object OBJECT into file FILENAME." + (unless (file-writable-p filename) + (error "Can't dump %s as %f is not writeable" object filename)) + (let ((dump-cmd (format inferior-ess-dump-command object filename))) + ;; Make sure we start fresh + (when (get-file-buffer filename) + (kill-buffer (get-file-buffer filename))) + (ess-command dump-cmd) + (message "Dumped in %s" filename) + (ess-find-dump-file-other-window filename) + ;; PD, 1Apr97 + ;;This ensures that the object gets indented according to ess-mode, + ;;not as the R/S deparser does it. At the same time, it gets rid + ;;of the mess generated by sending TAB characters to the readline + ;;functions in R when you eval-buffer-*. + (indent-region (point-min-marker) (point-max-marker) nil) + (set-buffer-modified-p nil) ; no need to safe just because of indenting + ;; Don't make backups for temporary files; it only causes clutter. + ;; The ESS object itself is a kind of backup, anyway. + (unless ess-keep-dump-files + (make-local-variable 'make-backup-files) + (setq make-backup-files nil)) + ;; Don't get confirmation to delete dumped files when loading + (when (eq ess-keep-dump-files 'check) + (setq ess-keep-dump-files nil)) + ;; Delete the file if necessary + (when ess-delete-dump-files + (delete-file (buffer-file-name))))) + +(defun ess-find-dump-file-other-window (filename) + "Find ESS source file FILENAME in another window." + (if (file-exists-p filename) nil + (ess-write-to-dribble-buffer + (format "%s does not exist. Bad dump, starting fresh." filename))) + ;; Generate a buffer with the dumped data + (find-file-other-window filename) + (setq-local ess-local-customize-alist ess-customize-alist) + (ess-mode) + (auto-save-mode 1) ; Auto save in this buffer + (setq ess-local-process-name ess-current-process-name) + (if ess-function-template + (progn + (goto-char (point-max)) + (if (re-search-backward ess-dumped-missing-re nil t) + (progn + (replace-match ess-function-template t t) + (set-buffer-modified-p nil) ; Don't offer to save if killed now + (goto-char (point-min)) + (condition-case nil + ;; This may fail if there are no opens + (down-list 1) + (error nil))))))) + + + +;;; Runners + +(defun ess-define-runner (name dialect &optional path) + "Create a function NAME. +This function starts the inferior process with the specified +version. DIALECT can be \"R,\" \"S,\", \"SAS.\" If given, PATH +should be the absolute path to the program. It defaults to NAME." + (let ((name name) + (dialect dialect) + (path path)) + (fset (intern name) + (lambda (&optional start-args) + "Start this process version in an inferior ESS buffer. +Function defined using `ess-define-runner'." + (interactive "P") + (cond ((string= dialect "R") + (let ((inferior-ess-r-program (or path name))) + (require 'ess-r-mode) + (run-ess-r start-args))) + ((string= dialect "S") + (let ((inferior-S+-program (or path name))) + (require 'ess-sp6-d) + (S+))) + ((string= dialect "SAS") + (let ((inferior-SAS-program (or path name))) + (require 'ess-sas-d) + (SAS)))))))) + + + +(provide 'ess-mode) + +;;; ess-mode.el ends here diff --git a/elpa/ess-20190121.1430/ess-mouse.el b/elpa/ess-20190121.1430/ess-mouse.el new file mode 100644 index 00000000..88e877f5 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-mouse.el @@ -0,0 +1,222 @@ +;;; ess-mouse.el --- Support for mouse- or cursor-sensitive actions + +;; Copyright (C) 2001 Richard M. Heiberger +;; Copyright (C) 2002--2004 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Author: Richard M. Heiberger +;; Created: 25 Mar 2001 +;; Maintainer: ESS-core + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; Support for mouse- or cursor-sensitive actions. This is based on +;; and uses mouseme.el. mouseme.el only does mouse sensititivity. +;; The new functions ess-mouse-me and ess-mouse-me-helper do similar +;; things based on the cursor, not the mouse, and can be bound to a +;; keystroke. + +;;; Code: + + ; Requires and autoloads + +;;*;; Requires +(require 'mouseme) +(require 'ess-trns) +;;(if (or (equal window-system 'w32) +;; (equal window-system 'win32) +;; (equal window-system 'mswindows)) +;; (require 'essiw32b)) + +(defun ess-mouse-me () + "Popup a menu of functions to run on selected string or region." + (interactive) + (ess-mouse-me-helper + (lambda (name) + (or (x-popup-menu (list '(0 0) + (get-buffer-window (get-buffer (buffer-name)))) + (funcall mouse-me-build-menu-function name)) + (error "No command to run"))))) + + + +(defun ess-mouse-me-helper (func) + "Determine the string to use to process EVENT and call FUNC to get cmd." + (let (name sp sm mouse beg end cmd mmtype) + ;; temporarily goto where the event occurred, get the name clicked + ;; on and enough info to figure out what to do with it + (save-match-data + (save-excursion + (setq sp (point)) ; saved point + (setq sm (mark t)) ; saved mark +;;; (set-buffer (window-buffer (posn-window (event-start event)))) +;;; (setq mouse (goto-char (posn-point (event-start event)))) + (setq mouse (point)) ;; ess-mouse-me-helper + ;; if there is a region and point is inside it + ;; check for sm first incase (null (mark t)) + ;; set name to either the thing they clicked on or region + (if (and sm + (or (and transient-mark-mode mark-active) + (eq last-command 'mouse-drag-region)) + (>= mouse (setq beg (min sp sm))) + (<= mouse (setq end (max sp sm)))) + (setq name (buffer-substring beg end)) + (setq name (funcall mouse-me-get-string-function)) + (if (listp name) + (setq beg (nth 1 name) + end (nth 2 name) + name (car name)) + (goto-char mouse) + (while (not (looking-at (regexp-quote name))) + (backward-char 1)) + (setq beg (point)) + (setq end (search-forward name)))))) + ;; check if name is null, meaning they clicked on no word + (if (or (null name) + (and (stringp name) (string= name "" ))) + (error "No string to pass to function")) + ;; popup a menu to get a command to run + (setq cmd (funcall func name)) + ;; run the command, eval'ing if it was a list + (if (listp cmd) + (setq cmd (eval cmd))) + (setq mmtype (get cmd 'mouse-me-type)) + (cond ((eq mmtype 'region) + (funcall cmd beg end)) + ((eq mmtype 'string) + (funcall cmd name)) + (t + (funcall cmd name))))) + +(defcustom ess-S-mouse-me-menu-commands-alist + '("S-Plus 4 and 6 GUI under Windows" + ("Edit.data" . ess-mouse-me-Edit.data) + "----" + ("print" . ess-mouse-me-print) + ("summary" . ess-mouse-me-summary) + ("plot" . ess-mouse-me-plot) + ("show" . ess-mouse-me-show) + ("help" . ess-display-help-on-object) + ("args" . ess-mouse-me-args) + "----" + ("Browser on" . ess-mouse-me-browser-on) + ("Browser off" . ess-mouse-me-browser-off)) + "Command menu used by `mouse-me-build-menu'. +A alist of elements where each element is either a cons cell or a string. +If a cons cell the car is a string to be displayed in the menu and the +cdr is either a function to call passing a string to, or a list which evals +to a function to call passing a string to. If the element is a string +it makes a non-selectable element in the menu. To make a separator line +use a string consisting solely of hyphens. + +The function returned from this menu will be called with one string +argument. Or if the function has the symbol property `mouse-me-type' +and if its value is the symbol `region' it will be called with the +beginning and ending points of the selected string. If the value is +the symbol `string' it will be called with one string argument." + :type '(repeat sexp) + :group 'mouseme) + + +(defun ess-mouse-me-Edit.data (string) + (ess-mouse-me-eval-expanded string "Edit.data(" ")" nil nil nil)) + +(defun ess-mouse-me-print (string) + (ess-mouse-me-eval-expanded string "" "" nil nil t)) +(defun ess-mouse-me-summary (string) + (ess-mouse-me-eval-expanded string "summary(" ")" nil nil t)) +(defun ess-mouse-me-plot (string) + (ess-mouse-me-eval-expanded string "plot(" ")") nil nil nil) +(defun ess-mouse-me-show (string) + (ess-mouse-me-eval-expanded string "show(" ")") nil nil nil) +(defun ess-mouse-me-args (string) + (ess-mouse-me-eval-expanded string "args(" ")" nil nil t)) + +(defun ess-mouse-me-browser-on (string) + (if (equal (substring ess-dialect 0 1) "R") + (ess-eval-linewise (concat "debug(" string ")")) + (ess-mouse-me-eval-expanded string "trace(" ", exit=browser)") nil nil nil)) + +(defun ess-mouse-me-browser-off (string) + (if (equal (substring ess-dialect 0 1) "R") + (ess-eval-linewise (concat "undebug(" string ")")) + (ess-mouse-me-eval-expanded string "untrace(" ")") nil nil nil)) + + + +(defun ess-mouse-me-eval-expanded (string &optional head tail commands-buffer + page value-returned) + "Send the expanded STRING to the inferior-ess process using `ess-command' +after first concating the HEAD and TAIL. Put answer in COMMANDS-BUFFER if +specified, otherwise in \"tmp-buffer\". In either +case the buffer containing the answer is renamed to the value of the +constructed command. If PAGE is non-nil, expand +the string one more time by embedding it in a \"page()\" command." + (interactive) + (let* (scommand + page-scommand + (lproc-name ess-local-process-name) + (ess-mouse-customize-alist ess-local-customize-alist)) + (if (not head) (setq head "summary(")) + (if (not tail) (setq tail ")")) + (if (not commands-buffer) (setq commands-buffer + (get-buffer-create "tmp-buffer"))) + (setq scommand (concat head string tail)) + + (ess-make-buffer-current) + (pop-to-buffer-same-window commands-buffer) + (ess-setq-vars-local (eval ess-mouse-customize-alist) (current-buffer)) + (setq ess-local-process-name lproc-name) + (ess-command (concat scommand "\n") commands-buffer) + (if (not value-returned) (pop-to-buffer-same-window (nth 1 (buffer-list)))) + (if (not value-returned) + nil + (if ess-microsoft-p ;; there ought to be a filter + (while (search-forward "\r" nil t) ;; function to keep the ^M + (replace-match "" nil t))) ;; from showing up at all + (ess-transcript-mode) + (setq ess-local-process-name lproc-name) + (rename-buffer scommand)))) + + + ; Provide package + +(provide 'ess-mouse) + + + +;;;;;;;; STARTUP STUFF ;;;;;;;;;;;; + +(make-variable-buffer-local 'mouse-me-menu-commands) + +(defun ess-S-mouse-me-menu-commands () + (if (equal ess-language "S") + (setq mouse-me-menu-commands ess-S-mouse-me-menu-commands-alist))) + +;; (define-key ess-mode-map [S-mouse-3] 'ess-mouse-me) +;; (define-key inferior-ess-mode-map [S-mouse-3] 'ess-mouse-me) +;; (defun ess-S-mouse-me-ess-transcript-mode () +;; (define-key ess-transcript-mode-map [S-mouse-3] 'ess-mouse-me)) +;; +(add-hook 'ess-mode-hook 'ess-S-mouse-me-menu-commands) +(add-hook 'inferior-ess-mode-hook 'ess-S-mouse-me-menu-commands) +(add-hook 'ess-transcript-mode-hook 'ess-S-mouse-me-menu-commands) +;; (add-hook 'ess-transcript-mode-hook 'ess-S-mouse-me-ess-transcript-mode) + + +;;; ess-mouse.el ends here diff --git a/elpa/ess-20190121.1430/ess-pkg.el b/elpa/ess-20190121.1430/ess-pkg.el new file mode 100644 index 00000000..b78a11f6 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-pkg.el @@ -0,0 +1,22 @@ +(define-package "ess" "20190121.1430" "Emacs Speaks Statistics" + '((emacs "25.1") + (julia-mode "0.3")) + :authors + '(("David Smith" . "dsmith@stats.adelaide.edu.au") + ("A.J. Rossini" . "blindglobe@gmail.com") + ("Richard M. Heiberger" . "rmh@temple.edu") + ("Kurt Hornik" . "Kurt.Hornik@R-project.org") + ("Martin Maechler" . "maechler@stat.math.ethz.ch") + ("Rodney A. Sparapani" . "rsparapa@mcw.edu") + ("Stephen Eglen" . "stephen@gnu.org") + ("Sebastian P. Luque" . "spluque@gmail.com") + ("Henning Redestig" . "henning.red@googlemail.com") + ("Vitalie Spinu" . "spinuvit@gmail.com") + ("Lionel Henry" . "lionel.hry@gmail.com") + ("J. Alexander Branham" . "alex.branham@gmail.com")) + :maintainer + '("ESS Core Team" . "ESS-core@r-project.org") + :url "https://ess.r-project.org/") +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/ess-20190121.1430/ess-r-a.el b/elpa/ess-20190121.1430/ess-r-a.el new file mode 100644 index 00000000..02fdadce --- /dev/null +++ b/elpa/ess-20190121.1430/ess-r-a.el @@ -0,0 +1,153 @@ +;;; ess-r-a.el -- Possible local customizations for R with ESS. + +;; Copyright (C) 1997--2005 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Author: A.J. Rossini +;; Created: 17 November 1999 +;; Maintainer: ESS-core + +;; Keywords: languages + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; The purpose of this file is to demonstrate some of the extras that +;; have been constructed for the ESS R mode; if they prove +;; interesting, then they might be migrated to ess-r-mode, the primary +;; ESS R mode tools. + +;;; Code: +(require 'ess-inf) +(require 'ess-r-mode) + +;; you can invoke ESS/R from emacs by typing +;; C-u M-x essr +;; with vsize set to (for example) 40M, and nsize set to 600000. + +;; Undefined on non-apple devices +(declare-function ns-do-applescript "nsfns.m" (script)) +(declare-function do-applescript "ess-r-a" (script)) +(unless (fboundp 'do-applescript) + (defalias 'do-applescript 'ns-do-applescript)) + +(defalias 'essr + (read-kbd-macro + "C-u M-x R RET - - vsize = 40M SPC - - nsize = 600000 2*RET")) + +(defun ess-r-do-region (start end &optional message) + "Send the current region to R via AppleScript." + (interactive "r\nP") + (message "Starting evaluation...") + (do-applescript (concat + "try\n" + "tell application \"R\"\n" + "activate\n" + "with timeout of 0 seconds\n" + "cmd \"" (buffer-substring start end) + "\"\n" + "end timeout\n" + "end tell\n" + "end try\n")) + (message "Finished evaluation")) + +(defun ess-r-do-line () + "Send the current line to R via AppleScript." + (interactive) ;; "r\nP") + (message "Starting evaluation...") + (save-excursion + (let ((end (point))) + (move-to-column 0) + (do-applescript (concat + "try\n" + "tell application \"R\"\n" + "activate\n" + "with timeout of 0 seconds\n" + "cmd \"" (buffer-substring (point) end) + "\"\n" + "end timeout\n" + "end tell\n" + "end try\n")))) + (message "Finished evaluation")) + +(defun ess-r-var (beg end) + "Load the current region of numbers into an R variable. Prompts for +a variable name. If none is given, it uses a default variable name, +e. BEG and END denote the region in the current buffer to be sent." + (interactive "r") + (save-window-excursion + (let ((tmp-file (make-temp-file "ess-r-var")) + cmd + var) + (write-region beg end tmp-file) + + ;; Decide on the variable name to use in R; could use completion. + (setq var (read-string "R Variable name (default e): ")) + (if (equal var "") + (setq var "e")) + + ;; Command to send to the R process. Get R to delete the file + ;; rather than Emacs in case it takes R a long time to run the + ;; scan command. + (setq cmd (concat var " <- scan(\"" tmp-file "\"); " + "unlink(\"" tmp-file "\")" )) + + ;; Put the output from the scan command into the process buffer so + ;; the user has a record of it. + (ess-execute cmd 'buffer)))) + + +;;; Peter Dalgaard's code. +;;; This needs to be cleaned and validated! + +(defun pd::set-up-demo () + (run-ess-r) + (split-window-vertically 6) + (find-file "demos.R") + + ;; Don't need to run this as a function -- ought to be fine if set + ;; just once. + + (defun ajr::scroll-to-end::peterD (emacs) + "Goal: map prompt to bottom of the screen after every command. +Alternatively, use the scroll-in-place package, not sure where that +is)." + (interactive) + (other-buffer 1) + (if (= emacs "emacs") + (setq scroll-up-aggressively t) + (setq scroll-conservatively -4)) ;; <- change this + (other-buffer -1)) + + (defun show-max-other-window () + (interactive) + (other-window 1) + (comint-show-maximum-output) + (other-window -1)) + + ;; call this once + ;; (ajr::scroll-to-end::peterD "emacs") + + (global-set-key [f11] 'show-max-other-window) + (global-set-key [f12] 'ess-eval-line-visibly-and-step)) + + + ; Provide package + +(provide 'ess-r-a) + +;;; ess-r-a.el ends here diff --git a/elpa/ess-20190121.1430/ess-r-completion.el b/elpa/ess-20190121.1430/ess-r-completion.el new file mode 100644 index 00000000..42ae394e --- /dev/null +++ b/elpa/ess-20190121.1430/ess-r-completion.el @@ -0,0 +1,520 @@ +;;; ess-r-completion.el --- R completion -*- lexical-binding: t; -*- +;; +;; Copyright (C) 2015 A.J. Rossini, Richard M. Heiberger, Martin Maechler, Kurt +;; Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. +;; +;; Author: Vitalie Spinu +;; Maintainer: ESS-core +;; +;; Keywords: languages, statistics +;; +;; 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 +;; https://www.r-project.org/Licenses/ +;; +;;; Commentary: +;; +;;; Code: + + +;;; ElDoc + +(require 'cl-lib) +(require 'ess-utils) +(require 'ess-inf) +(require 'ess-help) + +(defvar ac-auto-start) +(defvar ac-prefix) +(defvar ac-point) +(defvar ac-use-comphist) +(declare-function company-begin-backend "company") +(declare-function company-doc-buffer "company") + +(defun ess-r-eldoc-function () + "Return the doc string, or nil. +If an ESS process is not associated with the buffer, do not try +to look up any doc strings." + (interactive) + (when (and eldoc-mode ess-can-eval-in-background) + (let* ((proc (ess-get-next-available-process)) + (funname (and proc (or (and ess-eldoc-show-on-symbol ;; Aggressive completion + (thing-at-point 'symbol)) + (car (ess--fn-name-start)))))) + (when funname + (let* ((args (ess-function-arguments funname proc)) + (bargs (cadr args)) + (doc (mapconcat (lambda (el) + (if (equal (car el) "...") + "..." + (concat (car el) "=" (cdr el)))) + bargs ", ")) + (margs (nth 2 args)) + (W (- (window-width (minibuffer-window)) (+ 4 (length funname)))) + doc1) + (when doc + (setq doc (ess-eldoc-docstring-format funname doc)) + (when (and margs (< (length doc1) W)) + (setq doc1 (concat doc (propertize " || " 'face font-lock-function-name-face))) + (while (and margs (< (length doc1) W)) + (let ((head (pop margs))) + (unless (assoc head bargs) + (setq doc doc1 + doc1 (concat doc1 head "=, "))))) + (when (equal (substring doc -2) ", ") + (setq doc (substring doc 0 -2))) + (when (and margs (< (length doc) W)) + (setq doc (concat doc " {--}")))) + doc)))))) + +(defun ess-eldoc-docstring-format (funname doc) + (save-match-data + (let* (;; (name (symbol-name sym)) + (truncate (or (not (eq t eldoc-echo-area-use-multiline-p)) + (eq ess-eldoc-abbreviation-style 'aggressive))) + ;; Subtract 1 from window width since will cause a wraparound and + ;; resize of the echo area. + (W (1- (- (window-width (minibuffer-window)) + (+ 2 (length funname)))))) + (setq doc + (if (or (<= (length doc) W) + (null ess-eldoc-abbreviation-style) + (eq 'none ess-eldoc-abbreviation-style)) + doc + ;;MILD filter + (setq doc (replace-regexp-in-string "TRUE" "T" doc)) + (setq doc (replace-regexp-in-string "FALSE" "F" doc)) + (if (or (<= (length doc) W) + (eq 'mild ess-eldoc-abbreviation-style)) + doc + ;;NORMAL filter (deal with long defaults) + (setq doc (replace-regexp-in-string + ;; function calls inside default docs foo(xxxx{..}) + "([^)]\\{8\\}\\([^)]\\{4,\\}\\))" + "{.}" doc nil nil 1)) + (if (<= (length doc) W) + doc + (setq doc (replace-regexp-in-string + " +[^ \t=,\"\]+=[^ \t]\\{10\\}\\([^ \t]\\{4,\\}\\)\\(,\\|\\'\\)" + "{.}," doc nil nil 1)) + (if (<= (length doc) W) + doc + (setq doc (replace-regexp-in-string + " +[^ \t=,\"]+=\\([^ \t]\\{10,\\}\\)\\(,\\|\\'\\)" + "{.}," doc nil nil 1)) + (if (or (<= (length doc) W) + (eq 'normal ess-eldoc-abbreviation-style)) + doc + ;;STRONG filter (replace defaults) + (setq doc (replace-regexp-in-string + " *[^ \t=,\"\\]* = \\([^ \t]\\{4,\\}\\)\\(,\\|\\'\\)" + "{.}," doc nil nil 1)) + (if (<= (length doc) W) + doc + (setq doc (replace-regexp-in-string + "\\(=[^FT0-9].+?\\)\\(, [^ =,\"\\]+=\\|\\'\\)" + "" doc nil nil 1)) + (setq doc (replace-regexp-in-string + "\\(=[^FT0-9].+?\\)\\(, [^ =,\"\\]+,\\|\\'\\)" + "" doc nil nil 1)) + (if (or (<= (length doc) W) + (eq 'strong ess-eldoc-abbreviation-style)) + doc + ;;AGGRESSIVE filter (truncate what is left) + (concat (substring doc 0 (- W 4)) "{--}"))))))))) + (when (and truncate + (> (length doc) W)) + (setq doc (concat (substring doc 0 (- W 4)) "{--}"))) + (format "%s: %s" (propertize funname 'face 'font-lock-function-name-face) doc)))) + + +;;; OBJECTS + +(defun ess-r-object-completion () + "Return completions at point in a format required by `completion-at-point-functions'." + (if (ess-make-buffer-current) + (let* ((funstart (cdr (ess--fn-name-start))) + (completions (ess-r-get-rcompletions funstart)) + (token (pop completions))) + (when completions + (list (- (point) (length token)) (point) + completions))) + (when (string-match "complete" (symbol-name last-command)) + (message "No ESS process associated with current buffer") + nil))) + +(defun ess-complete-object-name () + "Perform completion on `ess-language' object preceding point. +Uses \\[ess-r-complete-object-name] when `ess-use-R-completion' is non-nil, +or \\[ess-internal-complete-object-name] otherwise." + (interactive) + (if (ess-make-buffer-current) + (if ess-use-R-completion + (ess-r-complete-object-name) + (ess-internal-complete-object-name)) + ;; else give a message on second invocation + (when (string-match "complete" (symbol-name last-command)) + (message "No ESS process associated with current buffer") + nil))) + +(defun ess-list-object-completions nil + "List all possible completions of the object name at point." + (interactive) + (ess-complete-object-name)) + +(defun ess-complete-object-name-deprecated () + "Gives a deprecated message." + (interactive) + (ess-complete-object-name) + (message "C-c TAB is deprecated, completions has been moved to [M-TAB] (aka C-M-i)") + (sit-for 2 t)) + +;; This one is needed for R <= 2.6.x -- hence *not* obsoleting it +(defun ess-internal-complete-object-name () + "Perform completion on `ess-language' object preceding point. +The object is compared against those objects known by +`ess-get-object-list' and any additional characters up to ambiguity are +inserted. Completion only works on globally-known objects (including +elements of attached data frames), and thus is most suitable for +interactive `command-line' entry, and not so much for function editing +since local objects (e.g. argument names) aren't known. + +Use \\[ess-resynch] to re-read the names of the attached directories. +This is done automatically (and transparently) if a directory is +modified (S only!), so the most up-to-date list of object names is always +available. However attached dataframes are *not* updated, so this +command may be necessary if you modify an attached dataframe." + (interactive) + (ess-make-buffer-current) + (if (memq (char-syntax (preceding-char)) '(?w ?_)) + (let* ((comint-completion-addsuffix nil) + (bounds (ess-bounds-of-symbol)) + (beg (car bounds)) + (end (cdr bounds)) + (full-prefix (buffer-substring beg end)) + (pattern full-prefix) + ;; See if we're indexing a list with `$' + (listname (if (string-match "\\(.+\\)\\$\\(\\(\\sw\\|\\s_\\)*\\)$" + full-prefix) + (progn + (setq pattern + (if (not (match-beginning 2)) "" + (substring full-prefix + (match-beginning 2) + (match-end 2)))) + (substring full-prefix (match-beginning 1) + (match-end 1))))) + ;; are we trying to get a slot via `@' ? + (classname (if (string-match "\\(.+\\)@\\(\\(\\sw\\|\\s_\\)*\\)$" + full-prefix) + (progn + (setq pattern + (if (not (match-beginning 2)) "" + (substring full-prefix + (match-beginning 2) + (match-end 2)))) + (ess-write-to-dribble-buffer + (format "(ess-C-O-Name : slots..) : patt=%s" + pattern)) + (substring full-prefix (match-beginning 1) + (match-end 1))))) + (components (if listname + (ess-object-names listname) + (if classname + (ess-slot-names classname) + ;; Default case: It hangs here when + ;; options(error=recover) : + (ess-get-object-list ess-current-process-name))))) + ;; always return a non-nil value to prevent history expansions + (or (completion-in-region beg end components) 'none)))) + +(defun ess-r-get-rcompletions (&optional start end prefix allow-3-dots) + "Call R internal completion utilities (rcomp) for possible completions. +Optional START and END delimit the entity to complete, default to +bol and point. If PREFIX is given, perform completion on +PREFIX. First element of the returned list is the completion +token. Needs version of R >= 2.7.0." + (let* ((start (or start + (if prefix + 0 + (save-excursion (comint-bol nil) (point))))) + (end (or end (if prefix (length prefix) (point)))) + (prefix (or prefix (buffer-substring start end))) + ;; (opts1 (if no-args "op<-rc.options(args=FALSE)" "")) + ;; (opts2 (if no-args "rc.options(op)" "")) + (call1 (format ".ess_get_completions(\"%s\", %d)" + (ess-quote-special-chars prefix) + (- end start))) + (cmd (if allow-3-dots + (concat call1 "\n") + (concat "local({ r <- " call1 "; r[r != '...='] })\n")))) + (ess-get-words-from-vector cmd))) + +(defun ess-r-complete-object-name () + "Completion in R via R's completion utilities (formerly 'rcompgen'). +To be used instead of ESS' completion engine for R versions >= 2.7.0." + (interactive) + (let ((possible-completions (ess-r-get-rcompletions)) + token-string) + (when possible-completions + (setq token-string (pop possible-completions)) + (or (completion-in-region (- (point) (length token-string)) + (point) + possible-completions) + 'none)))) + +(defvar ess--cached-sp-objects nil) + +(defun ess--get-cached-completions (prefix &optional _point) + (if (string-match-p "[]:$@[]" prefix) + ;; call proc for objects + (cdr (ess-r-get-rcompletions nil nil prefix)) + ;; else, get cached list of objects + (with-ess-process-buffer 'no-error ;; use proc buf alist + (ess-when-new-input last-cached-completions + (if (and ess--cached-sp-objects + (not (process-get *proc* 'sp-for-ac-changed?))) + ;; if global cache is already there, only re-read local .GlobalEnv + (progn + (unless ess-sl-modtime-alist + ;; initialize if empty + (setq ess-sl-modtime-alist '((".GlobalEnv" nil)))) + ;; fixme: Make adaptive. Not on all remotes are slow; For lots of + ;; objects in .GlobalEnv,locals could also be slow. + (unless (file-remote-p default-directory) + (ess-extract-onames-from-alist ess-sl-modtime-alist 1 'force))) + (if ess--cached-sp-objects + (ess-get-modtime-list 'ess--cached-sp-objects 'exclude-first) + (ess-get-modtime-list) + (setq ess--cached-sp-objects (cdr ess-sl-modtime-alist))) + ;; reread new package, but not rda, much faster and not needed anyways + (process-put *proc* 'sp-for-ac-changed? nil))) + (apply 'append + (cl-cddar ess-sl-modtime-alist) ; .GlobalEnv + (mapcar 'cddr ess--cached-sp-objects))))) + + +;;; ARGUMENTS + +(define-obsolete-variable-alias 'ess-ac-R-argument-suffix 'ess-R-argument-suffix "15.3") +(defcustom ess-R-argument-suffix " = " + "Suffix appended by `ac-source-R' and `ac-source-R-args' to candidates." + :group 'ess-R + :type 'string) + +(defvar ess-r--funargs-pre-cache + '(("plot" + (("graphics") + (("x" . "") ("y" . "NULL") ("type" . "p") ("xlim" . "NULL") ("ylim" . "NULL") ("log" . "") ("main" . "NULL") ("sub" . "NULL") ("xlab" . "NULL") ("ylab" . "NULL") + ("ann" . "par(\"ann\")") ("axes" . "TRUE") ("frame.plot" . "axes") ("panel.first" . "NULL") ("panel.last" . "NULL") ("asp" . "NA") ("..." . "")) + ("x" "y" "..." "ci" "type" "xlab" "ylab" "ylim" "main" "ci.col" "ci.type" "max.mfrow" "ask" "mar" "oma" "mgp" "xpd" "cex.main" "verbose" "scale" "xlim" "log" "sub" "ann" "axes" "frame.plot" + "panel.first" "panel.last" "asp" "center" "edge.root" "nodePar" "edgePar" "leaflab" "dLeaf" "xaxt" "yaxt" "horiz" + "zero.line" "verticals" "col.01line" "pch" "legend.text" "formula" "data" "subset" "to" "from" "newpage" "vp" "labels" + "hang" "freq" "density" "angle" "col" "border" "lty" "add" "predicted.values" "intervals" "separator" "col.predicted" + "col.intervals" "col.separator" "lty.predicted" "lty.intervals" "lty.separator" "plot.type" "main2" "par.fit" "grid" + "panel" "cex" "dimen" "abbrev" "which" "caption" "sub.caption" "id.n" "labels.id" "cex.id" "qqline" "cook.levels" + "add.smooth" "label.pos" "cex.caption" "rows" "levels" "conf" "absVal" "ci.lty" "xval" "do.points" "col.points" "cex.points" + "col.hor" "col.vert" "lwd" "set.pars" "range.bars" "col.range" "xy.labels" "xy.lines" "nc" "yax.flip" "mar.multi" "oma.multi"))) + ("print" + (("base") + (("x" . "") ("digits" . "NULL") ("quote" . "TRUE") ("na.print" . "NULL") ("print.gap" . "NULL") ("right" . "FALSE") ("max" . "NULL") ("useSource" . "TRUE") ("..." . "")) + ("x" "..." "digits" "signif.stars" "intercept" "tol" "se" "sort" "verbose" "indent" "style" ".bibstyle" "prefix" "vsep" "minlevel" "quote" "right" "row.names" "max" "na.print" "print.gap" + "useSource" "diag" "upper" "justify" "title" "max.levels" "width" "steps" "showEnv" "newpage" "vp" "cutoff" "max.level" "give.attr" "units" "abbrCollate" "print.x" "deparse" "locale" "symbolic.cor" + "loadings" "zero.print" "calendar")))) + "Alist of cached arguments for time consuming functions.") + + +;;; HELP + +(defun ess-r-get-object-help-string (sym) + "Help string for ac." + (let ((proc (ess-get-next-available-process))) + (if (null proc) + "No free ESS process found" + (let ((buf (get-buffer-create " *ess-command-output*"))) + (when (string-match ":+\\(.*\\)" sym) + (setq sym (match-string 1 sym))) + (with-current-buffer (process-buffer proc) + (ess-with-current-buffer buf + (ess--flush-help-into-current-buffer sym nil))) + (with-current-buffer buf + (ess-help-underline) + (goto-char (point-min)) + (buffer-string)))))) + +(defun ess-r-get-arg-help-string (sym &optional proc) + "Help string for ac." + (setq sym (replace-regexp-in-string " *= *\\'" "" sym)) + (let ((proc (or proc (ess-get-next-available-process)))) + (if (null proc) + "No free ESS process found" + (let ((fun (car ess--fn-name-start-cache))) + (with-current-buffer (ess-command (format ".ess_arg_help('%s','%s')\n" sym fun) + nil nil nil nil proc) + (goto-char (point-min)) + (forward-line) + (buffer-substring-no-properties (point) (point-max))))))) + + +;;; COMPANY +;;; https://company-mode.github.io/ + +(defun company-R-objects (command &optional arg &rest ignored) + (interactive (list 'interactive)) + (cl-case command + (interactive (company-begin-backend 'company-R-objects)) + (prefix (unless (ess-inside-string-or-comment-p) + (let ((start (ess-symbol-start))) + (when start + (buffer-substring-no-properties start (point)))))) + (candidates (let ((proc (ess-get-next-available-process))) + (when proc + (with-current-buffer (process-buffer proc) + (all-completions arg (ess--get-cached-completions arg)))))) + (doc-buffer (company-doc-buffer (ess-r-get-object-help-string arg))))) + +(defun company-R-args (command &optional arg &rest ignored) + (interactive (list 'interactive)) + (cl-case command + (interactive (company-begin-backend 'company-R-args)) + (prefix (unless (ess-inside-string-or-comment-p) + (let ((start (ess-arg-start))) + (when start + (let ((prefix (buffer-substring-no-properties start (point)))) + (if ess-company-arg-prefix-length + (cons prefix (>= (length prefix) + ess-company-arg-prefix-length)) + prefix)))))) + (candidates (let* ((proc (ess-get-next-available-process)) + (args (delete "..." (nth 2 (ess-function-arguments + (car ess--fn-name-start-cache) proc)))) + (args (mapcar (lambda (a) (concat a ess-R-argument-suffix)) + args))) + (all-completions arg args))) + (meta (let ((proc (ess-get-next-available-process))) + (when (and proc + (with-current-buffer (process-buffer proc) + (not (file-remote-p default-directory)))) + ;; fixme: ideally meta should be fetched with args + (let ((doc (ess-r-get-arg-help-string arg proc))) + (replace-regexp-in-string "^ +\\| +$" "" + (replace-regexp-in-string "[ \t\n]+" " " doc)))))) + (sorted t) + (require-match 'never) + (doc-buffer (company-doc-buffer (ess-r-get-arg-help-string arg))))) + +(defvar-local ess-r--installed-packages-cache nil) + +(defun ess-r-installed-packages () + "Return a list of currently installed R packages. +The value is cached once per session and is not updated if new +packages are installed." + (let ((proc (ess-get-next-available-process))) + (when proc + (with-current-buffer (process-buffer proc) + (or ess-r--installed-packages-cache + (setq ess-r--installed-packages-cache + (ess-get-words-from-vector + "print(unlist(lapply(.libPaths(), dir)), max=1e6)\n"))))))) + +;; completion for library names -- only active within 'library(...)' +(defun company-R-library (command &optional arg &rest ignored) + (interactive (list 'interactive)) + (cl-case command + (interactive (company-begin-backend 'company-R-library)) + (prefix (and (member (car (ess--fn-name-start)) + '("library" "require")) + (let ((start (ess-symbol-start))) + (and start (buffer-substring start (point)))))) + (candidates (all-completions arg (ess-r-installed-packages))) + (annotation "") + (duplicates nil) + (sorted t))) + + +;;; AC SOURCES +;;; http://cx4a.org/software/auto-complete/index.html + +(defvar ac-source-R + '((prefix . ess-ac-start) + ;; (requires . 0) ::) + (candidates . ess-ac-candidates) + ;; (action . ess-ac-action-args) ;; interfere with ac-fallback mechanism on RET (which is extremely annoing in inferior buffers) + (document . ess-ac-help)) + "Combined ad-completion source for R function arguments and R objects.") + +(defun ess-ac-start () + (when (ess-process-live-p) + (or (ess-arg-start) + (ess-symbol-start)))) + +(defun ess-ac-candidates () + "OBJECTS + ARGS." + (let ((args (ess-ac-args))) + ;; sort of intrusive but right + (if (and ac-auto-start + (< (length ac-prefix) ac-auto-start)) + args + (if args + (append args (ess-ac-objects t)) + (ess-ac-objects))))) + +(defun ess-ac-help (sym) + (if (string-match-p "= *\\'" sym) + (ess-r-get-arg-help-string sym) + (ess-r-get-object-help-string sym))) + +;; OBJECTS +(defvar ac-source-R-objects + '((prefix . ess-symbol-start) + ;; (requires . 2) + (candidates . ess-ac-objects) + (document . ess-r-get-object-help-string)) + "Auto-completion source for R objects.") + +(defun ess-ac-objects (&optional no-kill) + "Get all cached objects." + (let ((aprf ac-prefix)) + (when (and aprf (ess-process-live-p)) + (unless no-kill ;; workaround + (kill-local-variable 'ac-use-comphist)) + (ess--get-cached-completions aprf ac-point)))) + +;; ARGS +(defvar ac-source-R-args + '((prefix . ess-arg-start) + ;; (requires . 0) + (candidates . ess-ac-args) + ;; (action . ess-ac-action-args) + (document . ess-r-get-arg-help-string)) + "Auto-completion source for R function arguments.") + +(defun ess-ac-args () + "Get the args of the function when inside parentheses." + (when (and ess--fn-name-start-cache ;; set in a call to ess-arg-start + (ess-process-live-p)) + (let ((args (nth 2 (ess-function-arguments (car ess--fn-name-start-cache))))) + (if args + (set (make-local-variable 'ac-use-comphist) nil) + (kill-local-variable 'ac-use-comphist)) + (delete "..." args) + (mapcar (lambda (a) (concat a ess-R-argument-suffix)) + args)))) + +(defvar ess--ac-help-arg-command + "getArgHelp('%s','%s')") + +(provide 'ess-r-completion) + +;;; ess-r-completion.el ends here diff --git a/elpa/ess-20190121.1430/ess-r-flymake.el b/elpa/ess-20190121.1430/ess-r-flymake.el new file mode 100644 index 00000000..0e70f629 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-r-flymake.el @@ -0,0 +1,247 @@ +;;; ess-r-flymake.el --- A ess-r Flymake backend -*- lexical-binding: t; -*- +;; +;; Copyright (C) 2018 J. Alexander Branham (alex DOT branham AT gmail DOT com) +;; Copyright (C) 2018 ESS-core team +;; Maintainer: ESS-core +;; +;; This file is NOT part of GNU Emacs. +;; +;; This 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 3, or (at your option) any later +;; version. +;; +;; This 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. +;; +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, +;; MA 02110-1301 USA. +;; +;;; Commentary: +;; +;; Flymake is the built-in Emacs package that supports on-the-fly +;; syntax checking. This file adds support for this in ess-r-mode by +;; relying on the lintr package, available on CRAN and currently +;; hosted at https://github.com/jimhester/lintr. +;; +;; It is enabled by default. +;; +;;; Code: + +(eval-when-compile (require 'cl-lib)) +(require 'ess-custom) +(require 'ess-inf) +(require 'flymake) +(require 'project) + +;; Appease the byte compiler for Emacs 25. Remove after dropping +;; support for Emacs 25. +(declare-function flymake-diag-region "flymake") +(declare-function flymake-make-diagnostic "flymake") +(declare-function flymake--overlays "flymake") + +(defcustom ess-r-flymake-linters + '("closed_curly_linter = NULL" + "commas_linter = NULL" + "commented_code_linter = NULL" + "infix_spaces_linter = NULL" + "line_length_linter = NULL" + "object_length_linter = NULL" + "object_name_linter = NULL" + "object_usage_linter = NULL" + "open_curly_linter = NULL" + "pipe_continuation_linter = NULL" + "single_quotes_linter = NULL" + "spaces_inside_linter = NULL" + "spaces_left_parentheses_linter = NULL" + "trailing_blank_lines_linter = NULL" + "trailing_whitespace_linter = NULL") + "Default linters to use. +Can be either a string with R expression to be used as +is (e.g. 'lintr::default_linters'). Or a list of strings where +each element is passed as argument to 'lintr::with_defaults'." + :group 'ess-R + :type '(choice string (repeat string)) + :package-version '(ess . "18.10")) + +(defcustom ess-r-flymake-lintr-cache t + "If non-nil, cache lintr results." + :group 'ess-R + :type 'boolean + :package-version '(ess . "18.10")) + +(defvar-local ess-r--flymake-proc nil) + +(defvar-local ess-r--lintr-file nil + "Location of the .lintr file for this buffer.") + +(defvar ess-r--flymake-def-linter + (replace-regexp-in-string + "[\n\t ]+" " " + "esslint <- function(str, ...) { + if (!suppressWarnings(require(lintr, quietly=T))) { + cat('@@error: @@`lintr` package not installed') + } else { + if (packageVersion('lintr') <= '1.0.3') { + cat('@@error: @@Need `lintr` version > v1.0.2') + } else { + tryCatch(lintr::lint(commandArgs(TRUE), ...), + error = function(e) { + cat('@@warning: @@', e) + }) + } + } +};")) + +(defun ess-r--find-lintr-file () + "Return the absolute path to the .lintr file. +Check first the current directory, then the project root, then +the user's home directory. Return nil if we couldn't find a .lintr file." + (cond (;; current directory + (file-readable-p (expand-file-name ".lintr" default-directory)) + (expand-file-name ".lintr" default-directory)) + ;; Project root + ((and (fboundp 'ess-r-package-project) + (ess-r-package-project)) (expand-file-name ".lintr" (cdr (ess-r-package-project)))) + ((and (project-current) + (project-roots (project-current))) + (expand-file-name ".lintr" (car (project-roots (project-current))))) + ;; Home directory + ((file-readable-p (expand-file-name ".lintr" (getenv "HOME"))) + (expand-file-name ".lintr" (getenv "HOME"))))) + +(defun ess-r--flymake-linters () + "If `ess-r-flymake-linters' is a string, use that. +Otherwise, construct a string to pass to lintr::with_defaults." + (replace-regexp-in-string + "[\n\t ]+" " " + (if (stringp ess-r-flymake-linters) + ess-r-flymake-linters + (concat "lintr::with_defaults(" + (mapconcat #'identity + ess-r-flymake-linters + ", ") + ")")))) + +(defun ess-r--flymake-msg-type (str) + "Transform STR into log level." + (cond ((string= str "error: ") :error) + ((string= str "warning: ") :warning) + ((string= str "style: ") :note) + (t (error "Invalid msg type %s" str)))) + +(defun ess-r--flymake-check-errors () + "Check for critical errors and return non-nil if such occurred." + (goto-char (point-min)) + (when (re-search-forward "@@\\(\\(error\\|warning\\): \\)@@" nil t) + (let ((type (ess-r--flymake-msg-type (match-string 1))) + (msg (buffer-substring-no-properties (match-end 0) (point-max)))) + (flymake-log type msg) + (eq type :error)))) + +(defun ess-r--flymake-parse-output (msg-buffer src-buffer report-fn) + "Parse the content of MSG-BUFFER for lint locations. +SRC-BUFFER is the original source buffer. Collect all messages +into a list and call REPORT-FN on it." + (with-current-buffer msg-buffer + (if (ess-r--flymake-check-errors) + (with-current-buffer src-buffer + ;; we are in the sentinel here; don't throw but remove our hook instead + (remove-hook 'flymake-diagnostic-functions 'ess-r-flymake t)) + (goto-char (point-min)) + (cl-loop + while (search-forward-regexp + ;; Regex to match the output lint() gives us. + (rx line-start ":" + ;; row + (group-n 1 (one-or-more num)) ":" + ;; column + (group-n 2 (one-or-more num)) ": " + ;; type + (group-n 3 (| "style: " "warning: " "error: ")) + ;; msg + (group-n 4 (one-or-more not-newline)) line-end) + nil t) + for msg = (match-string 4) + for (beg . end) = (let ((line (string-to-number (match-string 1))) + (col (string-to-number (match-string 2)))) + (flymake-diag-region src-buffer line col)) + for type = (ess-r--flymake-msg-type (match-string 3)) + collect (flymake-make-diagnostic src-buffer beg end type msg) + into diags + finally (funcall report-fn diags))))) + +(defun ess-r-flymake (report-fn &rest _args) + "A Flymake backend for ESS-R modes. Relies on the lintr package. +REPORT-FN is flymake's callback function." + (unless (executable-find inferior-ess-r-program) + (error "Cannot find program '%s'" inferior-ess-r-program)) + ;; Kill the process if earlier check was found. The sentinel of the earlier + ;; check will detect this. + (when (process-live-p ess-r--flymake-proc) + (kill-process ess-r--flymake-proc)) + (if (and (eql ess-use-flymake 'process) + (not (ess-process-live-p))) + (progn + (funcall report-fn nil) + (mapc #'delete-overlay (flymake--overlays))) + (let ((src-buffer (current-buffer))) + (setq ess-r--flymake-proc + (make-process + :name "ess-r-flymake" :noquery t :connection-type 'pipe + :buffer (generate-new-buffer " *ess-r-flymake*") + :command (list inferior-R-program + "--no-save" "--no-restore" "--no-site-file" "--no-init-file" "--slave" + "-e" (concat + (when ess-r--lintr-file + (concat "options(lintr.linter_file = \"" ess-r--lintr-file "\");")) + ess-r--flymake-def-linter + ;; commandArgs(TRUE) returns everything after + ;; --args as a character vector + "esslint(commandArgs(TRUE)" + (unless ess-r--lintr-file + (concat ", linters = " (ess-r--flymake-linters))) + (when ess-r-flymake-lintr-cache + ", cache = TRUE") + ")") + "--args" (buffer-substring-no-properties + (point-min) (point-max))) + :sentinel + (lambda (proc _event) + (cond + ((eq 'exit (process-status proc)) + (unwind-protect + (if (eq proc (buffer-local-value 'ess-r--flymake-proc src-buffer)) + (ess-r--flymake-parse-output (process-buffer proc) src-buffer report-fn) + (flymake-log :warning "Canceling obsolete check %s" proc)) + (kill-buffer (process-buffer proc)))) + ((not (eq 'run (process-status proc))) + (kill-buffer (process-buffer proc)))))))))) + +(defun ess-r-setup-flymake () + "Setup flymake for ESS. +Activate flymake only if `ess-use-flymake' is non-nil." + (when ess-use-flymake + (when (< emacs-major-version 26) + (error "ESS-flymake requires Emacs version 26 or later")) + (when (string= "R" ess-dialect) + (setq ess-r--lintr-file (ess-r--find-lintr-file)) + (add-hook 'flymake-diagnostic-functions #'ess-r-flymake nil t) + ;; Try not to enable flymake if flycheck is already running: + (unless (bound-and-true-p flycheck-mode) + (flymake-mode))))) + +;; Enable flymake in Emacs 26+ +(when (<= 26 emacs-major-version) + (if (eval-when-compile (<= 26 emacs-major-version)) + (add-hook 'ess-mode-hook #'ess-r-setup-flymake) + (when ess-use-flymake + (display-warning 'ess "ESS was compiled with older version of emacs;\n `ess-r-flymake' won't be available")))) + +(provide 'ess-r-flymake) + +;;; ess-r-flymake.el ends here diff --git a/elpa/ess-20190121.1430/ess-r-mode.el b/elpa/ess-20190121.1430/ess-r-mode.el new file mode 100644 index 00000000..c8b9dae8 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-r-mode.el @@ -0,0 +1,2345 @@ +;;; ess-r-mode.el --- R customization + +;; Copyright (C) 1997--2010 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. +;; Copyright (C) 2011--2017 A.J. Rossini, Richard M. Heiberger, Martin Maechler, +;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. + +;; Author: A.J. Rossini +;; Created: 12 Jun 1997 +;; Maintainer: ESS-core + +;; Keywords: languages, statistics + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; This file defines all the R customizations for ESS. See ess-s-lang.el +;; for general S language customizations. + +;;; Code: + +(eval-when-compile + (require 'subr-x)) +(require 'cl-lib) +(require 'compile) +(require 'easymenu) +(require 'eldoc) +(require 'seq) +(require 'ess-mode) +(require 'ess-help) +(require 'ess-s-lang) +(require 'ess-roxy) +(require 'ess-r-completion) +(require 'ess-r-syntax) +(require 'ess-r-package) +(require 'ess-trns) +(require 'ess-r-xref) +(when (>= emacs-major-version 26) (require 'ess-r-flymake)) ; Flymake rewrite in Emacs 26 + +;; Silence the byte compiler +(defvar add-log-current-defun-header-regexp) + +;; TODO: Refactor so as to not rely on dynamic scoping. After that +;; refactor, also remove the file-local-variable byte-compile-warnings +;; (not lexical) at the bottom. +(defvar block) +(defvar containing-sexp) +(defvar indent-point) +(defvar infinite) +(defvar last-newline) +(defvar last-pos) +(defvar offset) +(defvar prefix-break) +(defvar prev-containing-sexp) +(defvar start) +(defvar start-pos) +(defvar style) +(defvar type) + + + +;;*;; Mode definition + +;;;*;;; UI (Keymaps / Menus) +;;;###autoload +(defvar ess-dev-map + (let (ess-dev-map) + (define-prefix-command 'ess-dev-map) + (define-key ess-dev-map "\C-s" 'ess-r-set-evaluation-env) + (define-key ess-dev-map "s" 'ess-r-set-evaluation-env) + (define-key ess-dev-map "T" 'ess-toggle-tracebug) + (define-key ess-dev-map "\C-l" 'ess-r-devtools-load-package) + (define-key ess-dev-map "l" 'ess-r-devtools-load-package) + (define-key ess-dev-map "`" 'ess-show-traceback) + (define-key ess-dev-map "~" 'ess-show-call-stack) + (define-key ess-dev-map "\C-w" 'ess-watch) + (define-key ess-dev-map "w" 'ess-watch) + (define-key ess-dev-map "\C-d" 'ess-debug-flag-for-debugging) + (define-key ess-dev-map "d" 'ess-debug-flag-for-debugging) + (define-key ess-dev-map "\C-u" 'ess-debug-unflag-for-debugging) + (define-key ess-dev-map "u" 'ess-debug-unflag-for-debugging) + (define-key ess-dev-map [(control ?D)] 'ess-debug-unflag-for-debugging) + (define-key ess-dev-map "\C-b" 'ess-bp-set) + (define-key ess-dev-map "b" 'ess-bp-set) + (define-key ess-dev-map [(control ?B)] 'ess-bp-set-conditional) + (define-key ess-dev-map "B" 'ess-bp-set-conditional) + (define-key ess-dev-map "\C-L" 'ess-bp-set-logger) + (define-key ess-dev-map "L" 'ess-bp-set-logger) + (define-key ess-dev-map "\C-o" 'ess-bp-toggle-state) + (define-key ess-dev-map "o" 'ess-bp-toggle-state) + (define-key ess-dev-map "\C-k" 'ess-bp-kill) + (define-key ess-dev-map "k" 'ess-bp-kill) + (define-key ess-dev-map "\C-K" 'ess-bp-kill-all) + (define-key ess-dev-map "K" 'ess-bp-kill-all) + (define-key ess-dev-map "\C-n" 'ess-bp-next) + (define-key ess-dev-map "n" 'ess-bp-next) + (define-key ess-dev-map "i" 'ess-debug-goto-input-event-marker) + (define-key ess-dev-map "I" 'ess-debug-goto-input-event-marker) + (define-key ess-dev-map "\C-p" 'ess-bp-previous) + (define-key ess-dev-map "p" 'ess-bp-previous) + (define-key ess-dev-map "\C-e" 'ess-debug-toggle-error-action) + (define-key ess-dev-map "e" 'ess-debug-toggle-error-action) + (define-key ess-dev-map "0" 'ess-electric-selection) + (define-key ess-dev-map "1" 'ess-electric-selection) + (define-key ess-dev-map "2" 'ess-electric-selection) + (define-key ess-dev-map "3" 'ess-electric-selection) + (define-key ess-dev-map "4" 'ess-electric-selection) + (define-key ess-dev-map "5" 'ess-electric-selection) + (define-key ess-dev-map "6" 'ess-electric-selection) + (define-key ess-dev-map "7" 'ess-electric-selection) + (define-key ess-dev-map "8" 'ess-electric-selection) + (define-key ess-dev-map "9" 'ess-electric-selection) + (define-key ess-dev-map "?" 'ess-tracebug-show-help) + ess-dev-map) + "Keymap for commands related to development and debugging.") + +(defvar ess-r-package-check-map + (let (ess-r-package-check-map) + (define-prefix-command 'ess-r-package-check-map) + (define-key ess-r-package-check-map "\C-c" 'ess-r-devtools-check-package) + (define-key ess-r-package-check-map "c" 'ess-r-devtools-check-package) + (define-key ess-r-package-check-map "\C-w" 'ess-r-devtools-check-with-winbuilder) + (define-key ess-r-package-check-map "w" 'ess-r-devtools-check-with-winbuilder) + (define-key ess-r-package-check-map "h" 'ess-r-rhub-check-package) + ess-r-package-check-map) + "Keymap for R package checks.") + +(defvar ess-r-package-dev-map + (let (ess-r-package-dev-map) + (define-prefix-command 'ess-r-package-dev-map) + (define-key ess-r-package-dev-map "\C-s" 'ess-r-package-set-package) + (define-key ess-r-package-dev-map "s" 'ess-r-package-set-package) + (define-key ess-r-package-dev-map "\C-a" 'ess-r-devtools-ask) + (define-key ess-r-package-dev-map "a" 'ess-r-devtools-ask) + (define-key ess-r-package-dev-map "\C-e" 'ess-r-devtools-execute-command) + (define-key ess-r-package-dev-map "e" 'ess-r-devtools-execute-command) + (define-key ess-r-package-dev-map "\C-b" 'ess-r-devtools-build) + (define-key ess-r-package-dev-map "b" 'ess-r-devtools-build) + (define-key ess-r-package-dev-map "\C-c" 'ess-r-package-check-map) + (define-key ess-r-package-dev-map "c" 'ess-r-package-check-map) + (define-key ess-r-package-dev-map "\C-d" 'ess-r-devtools-document-package) + (define-key ess-r-package-dev-map "d" 'ess-r-devtools-document-package) + (define-key ess-r-package-dev-map "g" 'ess-r-devtools-install-github) + (define-key ess-r-package-dev-map "\C-i" 'ess-r-devtools-install-package) + (define-key ess-r-package-dev-map "i" 'ess-r-devtools-install-package) + (define-key ess-r-package-dev-map "\C-l" 'ess-r-devtools-load-package) + (define-key ess-r-package-dev-map "l" 'ess-r-devtools-load-package) + (define-key ess-r-package-dev-map "\C-t" 'ess-r-devtools-test-package) + (define-key ess-r-package-dev-map "t" 'ess-r-devtools-test-package) + (define-key ess-r-package-dev-map "\C-u" 'ess-r-devtools-unload-package) + (define-key ess-r-package-dev-map "u" 'ess-r-devtools-unload-package) + ess-r-package-dev-map)) + +(easy-menu-define ess-roxygen-menu nil + "Roxygen submenu." + '("Roxygen" + :visible (and ess-dialect (string-match "^R" ess-dialect)) + ["Update/Generate Template" ess-roxy-update-entry t] + ["Preview Rd" ess-roxy-preview-Rd t] + ["Preview HTML" ess-roxy-preview-HTML t] + ["Preview text" ess-roxy-preview-text t] + ["Hide all" ess-roxy-hide-all t] + ["Toggle Roxygen Prefix" ess-roxy-toggle-roxy-region t])) + +(easy-menu-define ess-tracebug-menu nil + "Tracebug submenu." + '("Tracebug" + :visible (and ess-dialect (string-match "^R" ess-dialect)) + ;; :enable ess-local-process-name + ["Active?" ess-toggle-tracebug + :style toggle + :selected (or (and (ess-process-live-p) + (ess-process-get 'tracebug)) + ess-use-tracebug)] + ["Show traceback" ess-show-traceback (ess-process-live-p)] + ["Show call stack" ess-show-call-stack (ess-process-live-p)] + ["Watch" ess-watch (and (ess-process-live-p) + (ess-process-get 'tracebug))] + ["Error action cycle" ess-debug-toggle-error-action (and (ess-process-live-p) + (ess-process-get 'tracebug))] + "----" + ["Flag for debugging" ess-debug-flag-for-debugging ess-local-process-name] + ["Unflag for debugging" ess-debug-unflag-for-debugging ess-local-process-name] + "----" + ["Set BP" ess-bp-set t] + ["Set conditional BP" ess-bp-set-conditional t] + ["Set logger BP" ess-bp-set-logger t] + ["Kill BP" ess-bp-kill t] + ["Kill all BPs" ess-bp-kill-all t] + ["Next BP" ess-bp-next t] + ["Previous BP" ess-bp-previous t] + "-----" + ["About" ess-tracebug-show-help t])) + +(easy-menu-define ess-r-package-menu nil + "Package Development submenu." + '("Package development" + :visible (and ess-dialect (string-match "^R" ess-dialect)) + ["Active?" ess-r-package-mode + :style toggle + :selected ess-r-package-mode] + ["Select package for evaluation" ess-r-set-evaluation-env t])) + +(easy-menu-add-item ess-mode-menu nil ess-roxygen-menu "end-dev") +(easy-menu-add-item ess-mode-menu nil ess-r-package-menu "end-dev") +(easy-menu-add-item ess-mode-menu nil ess-tracebug-menu "end-dev") +(easy-menu-add-item inferior-ess-mode-menu nil ess-r-package-menu "end-dev") +(easy-menu-add-item inferior-ess-mode-menu nil ess-tracebug-menu "end-dev") + +(defvar ess-r-mode-syntax-table + (let ((table (copy-syntax-table S-syntax-table))) + ;; Letting Emacs treat backquoted names and %ops% as strings solves + ;; many problems with regard to nested strings and quotes + (modify-syntax-entry ?` "\"" table) + (modify-syntax-entry ?% "\"" table) + ;; Underscore is valid in R symbols + (modify-syntax-entry ?_ "_" table) + (modify-syntax-entry ?: "." table) + (modify-syntax-entry ?@ "." table) + (modify-syntax-entry ?$ "." table) + table) + "Syntax table for `ess-r-mode'.") + + +(defvar ess-r-completion-syntax-table + (let ((table (copy-syntax-table ess-r-mode-syntax-table))) + (modify-syntax-entry ?. "_" table) + (modify-syntax-entry ?: "_" table) + (modify-syntax-entry ?$ "_" table) + (modify-syntax-entry ?@ "_" table) + table) + "Syntax table used for completion and help symbol lookup. +It makes underscores and dots word constituent chars.") + +(defvar ess-r-namespaced-load-verbose t + "Whether to display information on namespaced loading. +When t, loading a file into a namespaced will output information +about which objects are exported and which stay hidden in the +namespace.") + +(defun ess-r-font-lock-syntactic-face-function (state) + (let ((string-end (save-excursion + (and (nth 3 state) + (ess-goto-char (nth 8 state)) + (ess-forward-sexp) + (point))))) + (when (eq (nth 3 state) ?`) + (put-text-property (nth 8 state) string-end 'ess-r-backquoted t)) + (cond + ((eq (nth 3 state) ?%) + (if (eq (point) (1- string-end)) + (when (cdr (assq 'ess-fl-keyword:operators ess-R-font-lock-keywords)) + 'ess-operator-face) + (if (cdr (assq 'ess-R-fl-keyword:%op% ess-R-font-lock-keywords)) + 'ess-%op%-face + 'default))) + ((save-excursion + (and (cdr (assq 'ess-R-fl-keyword:fun-defs ess-R-font-lock-keywords)) + (ess-goto-char string-end) + (ess-looking-at "<-") + (ess-goto-char (match-end 0)) + (ess-looking-at "function\\b" t))) + font-lock-function-name-face) + ((save-excursion + (and (cdr (assq 'ess-fl-keyword:fun-calls ess-R-font-lock-keywords)) + (ess-goto-char string-end) + (ess-looking-at "("))) + ess-function-call-face) + ((eq (nth 3 state) ?`) + 'default) + ((nth 3 state) + font-lock-string-face) + (t + font-lock-comment-face)))) + +(defvar ess-r--non-fn-kwds + '("in" "else" "break" "next" "repeat")) + +(defvar-local ess-r--keyword-regexp nil) +(defun ess-r--find-fl-keyword (limit) + "Search for R keyword and set the match data. +To be used as part of `font-lock-defaults' keywords." + (unless ess-r--keyword-regexp + (let (fn-kwds non-fn-kwds) + (dolist (kw ess-R-keywords) + (if (member kw ess-r--non-fn-kwds) + (push kw non-fn-kwds) + (push kw fn-kwds))) + (setq ess-r--keyword-regexp + (concat "\\(" + (regexp-opt non-fn-kwds 'words) + "\\)\\|\\(" + (regexp-opt fn-kwds 'words) + "\\)")))) + (let (out) + (while (and (not out) + (re-search-forward ess-r--keyword-regexp limit t)) + (save-match-data + (setq out (if (match-beginning 1) + ;; Non-function-like keywords: Always fontified + ;; except for `in` for which we check it's part + ;; of a `for` construct. Ideally we'd check that + ;; other keywords like `break` or `next` are + ;; part of the right syntactic construct but + ;; that requires robust and efficient detection + ;; of complete expressions. + (if (string= (match-string 1) "in") + (save-excursion + (goto-char (match-beginning 1)) + (and (ess-backward-up-list) + (forward-word -1) + (looking-at "for\\s-*("))) + t) + ;; Function-like keywords: check if they are + ;; followed by an open paren + (looking-at "\\s-*("))))) + out)) + +(define-obsolete-variable-alias 'R-customize-alist 'ess-r-customize-alist "ESS 18.10.2") +(defvar ess-r-customize-alist + (append + '((ess-local-customize-alist . 'ess-r-customize-alist) + (ess-dialect . "R") + (ess-suffix . "R") + (ess-traceback-command . ess-r-traceback-command) + (ess-call-stack-command . ess-r-call-stack-command) + (ess-mode-completion-syntax-table . ess-r-completion-syntax-table) + (ess-build-eval-message-function . #'ess-r-build-eval-message) + (ess-help-web-search-command . #'ess-r-sos) + (ess-build-help-command-function . #'ess-r-build-help-command) + (ess-dump-filename-template . ess-r-dump-filename-template) + (ess-change-sp-regexp . ess-r-change-sp-regexp) + (ess-help-sec-regex . ess-help-r-sec-regex) + (ess-help-sec-keys-alist . ess-help-r-sec-keys-alist) + (ess-function-pattern . ess-r-function-pattern) + (ess-object-name-db-file . "ess-r-namedb.el") + (ess-smart-operators . ess-r-smart-operators) + (inferior-ess-program . inferior-ess-r-program) + (inferior-ess-objects-command . inferior-ess-r-objects-command) + (inferior-ess-search-list-command . "search()\n") + (inferior-ess-help-command . inferior-ess-r-help-command) + (inferior-ess-exit-command . "q()") + (inferior-ess-start-args . "") + (ess-error-regexp-alist . ess-r-error-regexp-alist) + (ess-describe-object-at-point-commands . 'ess-r-describe-object-at-point-commands) + (ess-STERM . "iESS") + (ess-editor . ess-r-editor) + (ess-pager . ess-r-pager)) + S-common-cust-alist) + "Variables to customize for R.") + +(cl-defmethod ess-build-tags-command (&context ((string= ess-dialect "R") (eql t))) + "Return tags command for R." + "rtags('%s', recursive = TRUE, pattern = '\\\\.[RrSs](rw)?$',ofile = '%s')") + +(defvar ess-r-traceback-command + "local({cat(geterrmessage(), \ +'---------------------------------- \n', \ +fill=TRUE); try(traceback(), silent=TRUE)})\n") + +(defvar ess-r-call-stack-command "traceback(1)\n") + +(defvar ess-r-dump-filename-template + (replace-regexp-in-string + "S$" "R" ess-dump-filename-template-proto)) + +(defvar ess-r-ac-sources + '(ac-source-R)) + +(defvar ess-r-company-backends + '((company-R-library company-R-args company-R-objects :separate))) + +(defconst ess-help-r-sec-regex "^[A-Z][A-Za-z].+:$" + "Reg(ular) Ex(pression) of section headers in help file.") + +(defconst ess-help-r-sec-keys-alist + '((?a . "\\s *Arguments:") + (?d . "\\s *Description:") + (?D . "\\s *Details:") + (?t . "\\s *Details:") + (?e . "\\s *Examples:") + (?n . "\\s *Note:") + (?r . "\\s *References:") + (?s . "\\s *See Also:") + (?u . "\\s *Usage:") + (?v . "\\s *Value[s]?") ; + ) + "Alist of (key . string) pairs for use in help section searching.") + +(defvar ess-r-error-regexp-alist '(R R1 R2 R3 R4 R-recover) + "List of symbols which are looked up in `compilation-error-regexp-alist-alist'.") + +;; Takes precidence over R1 below in english locales, and allows spaces in file path +(add-to-list 'compilation-error-regexp-alist-alist + '(R "\\(\\(?: at \\|(@\\)\\([^#()\n]+\\)[#:]\\([0-9]+\\)\\)" 2 3 nil 2 1)) + +(add-to-list 'compilation-error-regexp-alist-alist + ;; valgrind style (stl_numeric.h:183) + '(R1 "(\\([^ ):\n]+\\):\\([0-9]+\\)?)" 1 2 nil 2)) + +(add-to-list 'compilation-error-regexp-alist-alist + '(R2 "(\\(\\w+ \\([^())\n]+\\)#\\([0-9]+\\)\\))" 2 3 nil 2 1)) + +;; Precedes R4 and allows spaces in file path +(add-to-list 'compilation-error-regexp-alist-alist + ;; Starts at bol or with ": " (patterns 3,4,5,6,9) + '(R3 "\\(?:^ *\\|: ?\\)\\([^-+[:digit:] \t\n]:?[^: \t\n]*\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):\\)?" 1 2 3 2 1)) + +(add-to-list 'compilation-error-regexp-alist-alist + ;; Don't start with digit; no spaces + '(R4 "\\([^-+ [:digit:]][^: \t\n]+\\):\\([0-9]+\\):\\([0-9]+\\):" 1 2 3 2 1)) + +(add-to-list 'compilation-error-regexp-alist-alist + '(R-recover " *[0-9]+: +\\([^:\n\t]+?\\)#\\([0-9]+:\\)" 1 2 nil 2 1)) + +;; gnu C errors +;; (add-to-list 'compilation-error-regexp-alist-alist +;; '(R_C "^\\([^-+ [:digit:]][^: \t\n]+\\):\\([0-9]+\\):\\([0-9]+\\):" 2 3 nil 2 1)) + + +(defvar ess-r-versions + (let ((r-ver '("R-1" "R-2" "R-3" "R-devel" "R-patched"))) + (if (eq system-type 'darwin) (append r-ver '("R32" "R64")) r-ver)) + "List of partial strings for versions of R to access within ESS. +Each string specifies the start of a filename. If a filename +beginning with one of these strings is found on `exec-path', a +command for that version of R is made available. For example, if the +file \"R-1.8.1\" is found and this variable includes the string +\"R-1\", a function called `M-x R-1.8.1' will be available to run that +version of R. +If duplicate versions of the same program are found (which happens if +the same path is listed on `exec-path' more than once), they are +ignored by calling `delete-dups'. +Set this variable to nil to disable searching for other versions of R. +If you set this variable, you need to restart Emacs (and set this variable +before ess-site is loaded) for it to take effect.") + +(define-obsolete-variable-alias 'ess-r-versions-created 'ess-r-created-runners "ESS 18.10") +(defvar ess-r-created-runners nil + "List of R-versions found from `ess-r-versions' on the system.") + + +;;;*;;; Mode init + +(define-obsolete-variable-alias 'ess-R-post-run-hook 'ess-r-post-run-hook "ESS 18.10.2") +(defvar ess-r-post-run-hook nil + "Functions run in process buffer after the initialization of R process.") + +;;;###autoload +(defun run-ess-r (&optional start-args) + "Call 'R', the 'GNU S' system from the R Foundation. +Optional prefix (\\[universal-argument]) allows to set command line arguments, such as +--vsize. This should be OS agnostic. +If you have certain command line arguments that should always be passed +to R, put them in the variable `inferior-R-args'. + +START-ARGS can be a string representing an argument, a list of +such strings, or any other non-nil value. In the latter case, you +will be prompted to enter arguments interactively." + (interactive "P") + (ess-write-to-dribble-buffer ;; for debugging only + (format + "\n(R): ess-dialect=%s, buf=%s, start-arg=%s\n current-prefix-arg=%s\n" + ess-dialect (current-buffer) start-args current-prefix-arg)) + (let* ((r-always-arg + (if (or ess-microsoft-p (eq system-type 'cygwin)) + "--ess " + ;; else: "unix alike" + (if (not ess-R-readline) "--no-readline "))) + (start-args + (cond ((stringp start-args) + start-args) + ((and start-args + (listp start-args) + (cl-every 'stringp start-args)) + (mapconcat 'identity start-args " ")) + (start-args + (read-string + (concat "Starting Args" + (if r-always-arg + (concat " [other than '" r-always-arg "']")) + " ? "))))) + (r-start-args + (concat r-always-arg + inferior-R-args " " ; add space just in case + start-args)) + (cust-alist (copy-alist ess-r-customize-alist)) + (gdbp (string-match-p "gdb" r-start-args)) + use-dialog-box) + + (when gdbp + (setcdr (assoc 'inferior-ess-secondary-prompt cust-alist) + (format "\\(%s\\)\\|\\((gdb) \\)" + (cdr (assoc 'inferior-ess-secondary-prompt cust-alist))))) + + (when (or ess-microsoft-p + (eq system-type 'cygwin)) + (setq use-dialog-box nil) + (when ess-microsoft-p ;; default-process-coding-system would break UTF locales on Unix + (setq default-process-coding-system '(undecided-dos . undecided-dos)))) + + (inferior-ess r-start-args cust-alist gdbp) + + (ess-process-put 'funargs-pre-cache ess-r--funargs-pre-cache) + + (remove-hook 'completion-at-point-functions 'ess-filename-completion 'local) ;; should be first + (add-hook 'completion-at-point-functions 'ess-r-object-completion nil 'local) + (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local) + (add-hook 'xref-backend-functions #'ess-r-xref-backend nil 'local) + (setq comint-input-sender 'inferior-ess-r-input-sender) + + (if gdbp + (progn + ;; We need to use callback, because R might start with a gdb process + (ess-process-put 'callbacks '(R-initialize-on-start)) + ;; trigger the callback + (process-send-string (get-process ess-local-process-name) "\n")) + (ess-wait-for-process) + (R-initialize-on-start) + (comint-goto-process-mark)) + + (ess-write-to-dribble-buffer + (format "(R): inferior-ess-language-start=%s\n" + inferior-ess-language-start)))) + +;;;###autoload +(defalias 'R #'run-ess-r) + +(defun inferior-ess-r--adjust-startup-directory (dir dialect) + "Adjust startup directory DIR if DIALECT is R. +If in a package project, prefer the tests directory but only if +the package directory was selected in the first place." + (if (string= dialect "R") + (let* ((project-dir (cdr (ess-r-package-project))) + (tests-dir (expand-file-name (file-name-as-directory "tests") + project-dir))) + (if (and project-dir + (string= project-dir dir) + (string= default-directory tests-dir)) + tests-dir + dir)) + dir)) + +(defun R-initialize-on-start (&optional proc string) + "This function is run after the first R prompt. +Executed in process buffer." + (interactive) + ;; sometimes needed (MM w/ Emacs 25.1, on F24 where PAGER is 'more'): + ;; carefully set "pager" option "when needed": + (let ((pager-cmd (format + "if(identical(getOption('pager'), + file.path(R.home(), 'bin', 'pager'))) + options(pager='%s')\n" + inferior-ess-pager))) + (ess-command pager-cmd)) + (inferior-ess-r-load-ESSR) + (when inferior-ess-language-start + (ess-command (concat inferior-ess-language-start "\n"))) + ;; tracebug + (when ess-use-tracebug (ess-tracebug 1)) + (with-ess-process-buffer nil + (add-hook 'ess-presend-filter-functions 'ess-R-scan-for-library-call nil 'local) + (run-mode-hooks 'ess-r-post-run-hook))) + +(defun ess-r--skip-function () + ;; Assumes the point is at function start + (if (looking-at-p ess-r-set-function-start) + (forward-list 1) ; get over the entire setXyz(...) + (forward-list 1) ; get over arguments + (if (looking-at-p "[ \t\n]*{") + (forward-sexp 1) ;; move over {...} + ;; {..}-less case + (skip-chars-forward " \t\n") + (goto-char (cadr (ess-continuations-bounds)))))) + +(defun ess-r-beginning-of-function (&optional arg) + "Leave (and return) the point at the beginning of the current ESS function. +When ARG is positive, search for beginning of function backward, +otherwise forward. Value of ARG is currently ignored. Return the +new position." + (interactive) + (setq arg (or arg 1)) + (let ((init-point (point)) + done) + ;; ;; in case we are at the start of a function, skip past new lines + (when (> arg 0) + (skip-chars-backward " \t\n")) + ;; start search from eol to capture current function start + (end-of-line 1) + (while (and (not done) + (re-search-backward ess-function-pattern nil t arg)) + (unless (ess-inside-string-or-comment-p) + ;; capture top level forms only + (when (= (car (syntax-ppss (match-beginning 0))) 0) + (setq done t)))) + (if done + (point) + (goto-char init-point)))) + +(defun ess-r-end-of-function (&optional arg) + "Leave the point at the end of the current function. +When ARG is positive, search for end of function forward, +otherwise backward. Value of ARG is currently ignored. Return the +new position." + (interactive) + (setq arg (or arg 1)) + (let* ((start-pos (point)) + (search-fn (lambda () + (let ((foundp nil)) + (while (and (not foundp) + (re-search-forward ess-r-function-pattern nil t)) + (setq foundp (not (ess-inside-string-or-comment-p)))) + (if foundp + (progn (goto-char (match-beginning 0)) + (ess-r--skip-function)) + (goto-char start-pos)))))) + (ess-r-beginning-of-function) + (if (< (point) start-pos) + ;; Moved back. We were either inside a function or after a function. + (progn + (ess-r--skip-function) + (when (and (> arg 0) + (<= (point) start-pos)) + (funcall search-fn))) + (funcall search-fn)) + (point))) + +;;;###autoload +(define-derived-mode ess-r-mode ess-mode "ESS[R]" + "Major mode for editing R source. See `ess-mode' for more help." + (ess-setq-vars-local ess-r-customize-alist) + (setq-local ess-font-lock-keywords 'ess-R-font-lock-keywords) + (setq-local paragraph-start (concat "\\s-*$\\|" page-delimiter)) + (setq-local paragraph-separate (concat "\\s-*$\\|" page-delimiter)) + (setq-local paragraph-ignore-fill-prefix t) + (setq-local indent-line-function 'ess-indent-line) + (setq-local comment-indent-function #'ess-calculate-indent) + (setq-local add-log-current-defun-header-regexp "^\\(.+\\)\\s-+<-[ \t\n]*function") + (setq-local font-lock-syntactic-face-function #'ess-r-font-lock-syntactic-face-function) + ;; eldoc + (add-function :before-until (local 'eldoc-documentation-function) + #'ess-r-eldoc-function) + (when ess-use-eldoc (eldoc-mode)) + ;; auto-complete + (ess--setup-auto-complete ess-r-ac-sources) + ;; company + (ess--setup-company ess-r-company-backends) + (setq-local prettify-symbols-alist ess-r-prettify-symbols) + (setq font-lock-defaults '(ess-build-font-lock-keywords nil nil ((?\. . "w") (?\_ . "w")))) + (remove-hook 'completion-at-point-functions 'ess-filename-completion 'local) ;; should be first + (add-hook 'completion-at-point-functions 'ess-r-object-completion nil 'local) + (add-hook 'completion-at-point-functions 'ess-filename-completion nil 'local) + (add-hook 'xref-backend-functions #'ess-r-xref-backend nil 'local) + + (if (fboundp 'ess-add-toolbar) (ess-add-toolbar)) + ;; imenu is needed for `which-function' + (setq imenu-generic-expression ess-imenu-S-generic-expression) + (when ess-imenu-use-S + (imenu-add-to-menubar "Imenu-R")) + (setq-local beginning-of-defun-function #'ess-r-beginning-of-function) + (setq-local end-of-defun-function #'ess-r-end-of-function) + (ess-roxy-mode)) +;;;###autoload +(defalias 'R-mode 'ess-r-mode) +;;;###autoload +(defalias 'r-mode 'ess-r-mode) + + +;;;###autoload +(add-to-list 'auto-mode-alist '("/R/.*\\.q\\'" . ess-r-mode)) +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.[rR]\\'" . ess-r-mode)) +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.[rR]profile\\'" . ess-r-mode)) +;;;###autoload +(add-to-list 'auto-mode-alist '("NAMESPACE\\'" . ess-r-mode)) +;;;###autoload +(add-to-list 'auto-mode-alist '("CITATION\\'" . ess-r-mode)) + + +;;*;; Miscellaneous + +(defun ess-R-arch-2-bit (arch) + "Translate R's architecture shortcuts/directory names to 'bits'. +ARCH \"32\" or \"64\" (for now)." + (if (string= arch "i386") "32" + ;; else: + "64")) + +(defun ess-rterm-arch-version (long-path &optional give-cons) + "Find a name for LONG-PATH, an absolute path to R on Windows. +Returns either Name, a string, or a (Name . Path) cons, such as + +(\"R-2.12.1-64bit\" . \"C:/Program Files/R/R-2.12.1/bin/x64/Rterm.exe\") + +\"R-x.y.z/bin/Rterm.exe\" will return \"R-x.y.z\", for R-2.11.x and older. +\"R-x.y.z/bin/i386/Rterm.exe\" will return \"R-x.y.z-32bit\", for R-2.12.x and newer. +\"R-x.y.z/bin/x64/Rterm.exe\" will return \"R-x.y.z-64bit\", for R-2.12.x and newer." + (let* ((dir (directory-file-name (file-name-directory long-path))) + (dir2 (directory-file-name (file-name-directory dir))) + (v-1up (file-name-nondirectory dir));; one level up + (v-2up (file-name-nondirectory dir2));; two levels up; don't want "bin" ... + (v-3up (file-name-nondirectory ;; three levels up; no "bin" for i386, x64 ... + (directory-file-name (file-name-directory dir2)))) + (val (if (string= v-2up "bin") + (concat v-3up "-" (ess-R-arch-2-bit v-1up) "bit") + ;; pre R-2.12.x, or when there's no extra arch-specific sub directory: + v-2up))) + (if give-cons + (cons val long-path) + val))) + +(defun ess-r-define-runners () + "Generate functions for starting other versions of R. +See `ess-r-versions' for strings that determine which functions +are created. On MS Windows, this works using +`ess-rterm-version-paths' instead. + +The functions will normally be placed on the menubar and stored +as `ess-r-created-runners' upon ESS initialization." + (when ess-r-versions + ;; try to find R versions in ess-r-versions. + (let ((versions + ;; Find which versions of R we want. Remove the pathname, leaving just + ;; the name of the executable. + (if ess-microsoft-p + (mapcar (lambda (v) (car (ess-rterm-arch-version v 'give-cons))) + ess-rterm-version-paths) + (delete-dups + (mapcar #'file-name-nondirectory + (apply #'nconc + (mapcar #'ess-find-exec-completions + ess-r-versions))))))) + ;; Iterate over each string in VERSIONS, creating a new defun each time. + (setq ess-r-created-runners versions) + (if ess-microsoft-p + (cl-mapcar (lambda (v p) (ess-define-runner v "R" p)) versions ess-rterm-version-paths) + (mapc (lambda (v) (ess-define-runner v "R")) versions)) + ;; Add to menu + (when ess-r-created-runners + ;; new-menu will be a list of 3-vectors, of the form: + ;; ["R-1.8.1" R-1.8.1 t] + (let ((new-menu (mapcar (lambda(x) (vector x (intern x) t)) + ess-r-created-runners))) + (easy-menu-add-item ess-mode-menu '("Start Process") + (cons "Other" new-menu))))))) +(define-obsolete-function-alias + 'ess-r-versions-create 'ess-r-define-runners "ESS 18.10") + +(defvar ess-newest-R nil + "Stores the newest version of R that has been found. +Used as a cache, within `ess-find-newest-R'. Do not use this value +directly, but instead call the function \\[ess-find-newest-R].") + + +(defcustom ess-prefer-higher-bit t + "Non-nil means prefer higher bit architectures of R. +e.g. prefer 64 bit over 32 bit. This is currently used only +by the code on Windows for finding the newest version of R." + :group 'ess-R + :type 'boolean) + +(defun ess-rterm-prefer-higher-bit () + "Optionally remove 32bit Rterms from being candidate for `R-newest'. +Return the list of candidates for being `R-newest'. Filtering is +done iff `ess-prefer-higher-bit' is non-nil. This is used only by +Windows when running `ess-find-newest-R'." + (if ess-prefer-higher-bit + ;; filter out 32 bit elements + (let ((filtered + (delq nil + (mapcar (lambda (x) (unless (string-match "/i386/Rterm.exe" x) x)) + ess-rterm-version-paths)))) + (if (null filtered) + ;; if none survived filtering, keep the original list + ess-rterm-version-paths + filtered)) + ess-rterm-version-paths)) + + +(defun ess-find-newest-R () + "Find the newest version of R on the system. +Once the value is found, cache it in the variable `ess-newest-R' +for future use as finding the newest version of R can be +potentially time-consuming." + (or ess-newest-R + (message "Finding all versions of R on your system...") + (setq ess-newest-R + (ess-newest-r + (if ess-microsoft-p + (ess-rterm-prefer-higher-bit) + (add-to-list 'ess-r-created-runners + inferior-ess-r-program)))))) + +(defun R-newest (&optional start-args) + "Find the newest version of R available, and run it. +Subsequent calls to `R-newest' will run that version, rather than searching +again for the newest version. Providing an optional prefix START-ARGS (\\[universal-argument]) will +prompt for command line arguments." + (interactive "P") + (let ((rnewest (ess-find-newest-R))) + (if (not rnewest) + (error "No version of R could be found") + ;; Else: we have a working version of R. + ;; Have to be careful to avoid recursion... + (message "%s" (concat "Newest version of R is " rnewest)) + (fset 'R-newest + (intern + (if ess-microsoft-p + (ess-rterm-arch-version rnewest) + rnewest))) + ;;(fset 'R-newest (intern rnewest)) + (R-newest start-args)))) + +;; (ess-r-version-date "R-2.5.1") (ess-r-version-date "R-patched") +;; (ess-r-version-date "R-1.2.1") (ess-r-version-date "R-1.8.1") +;; Windows: +;; (ess-r-version-date "C:/Program Files (x86)/R/R-2.11.1/bin/Rterm.exe") +;; Note that for R-devel, ver-string is something like +;; R version 2.6.0 Under development (unstable) (2007-07-14 r42234) +;; Antique examples are 'R 1.0.1 (April 14, 2000)' or 'R 1.5.1 (2002-06-17).' +(defun ess-r-version-date (rver) + "Return the date of the version of R named RVER. +The date is returned as a date string. If the version of R could +not be found from the output of the RVER program, \"-1\" is +returned." + (let ((date "-1") + (ver-string (shell-command-to-string + ;; here, MS Windows (shell-command) needs a short name: + (concat (if (and ess-microsoft-p + ;; silence byte compiler warns about w32-fns + (fboundp 'w32-short-file-name)) + (w32-short-file-name rver) + rver) + " --version")))) + (when (string-match + "R \\(version \\)?[1-9][^\n]+ (\\(2[0-9-]+\\)\\( r[0-9]+\\)?)" + ver-string) + (setq date (match-string 2 ver-string))) + (cons date rver))) + +(defun ess-current-R-version () + "Get the version of R currently running in the ESS buffer as a string." + (ess-make-buffer-current) + (car (ess-get-words-from-vector "as.character(.ess.Rversion)\n"))) + +(defun ess-current-R-at-least (version) + "Is the version of R (in the ESS buffer) at least (\">=\") VERSION ? +Examples: (ess-current-R-at-least '2.7.0) + or (ess-current-R-at-least \"2.5.1\")" + (ess-make-buffer-current) + (string= "TRUE" + (car (ess-get-words-from-vector + (format "as.character(.ess.Rversion >= \"%s\")\n" version))))) + +(defun ess-newest-r (rvers) + "Check all the versions of RVERS to see which is the newest. +Return the name of the newest version of R." + (let ((rtimes (mapcar 'ess-r-version-date rvers))) + (ess-find-newest-date rtimes))) + +(defun ess-find-newest-date (rvers) + "Find the newest version of R given in the a-list RVERS. +Each element of RVERS is a dotted pair (date . R-version), where +date is given as e.g.\"2007-11-30\" so that we can compare dates +as strings. If a date is listed as \"-1\", that version of R +could not be found. + +If the value returned is nil, no valid newest version of R could be found." + (let (new-r this-r + (new-time "0")) + (while rvers + (setq this-r (car rvers) + rvers (cdr rvers)) + (when (string< new-time (car this-r)) + (setq new-time (car this-r) + new-r (cdr this-r)))) + new-r)) + +(defun ess-find-rterm (&optional ess-R-root-dir bin-Rterm-exe) + "Find the full path of all occurences of Rterm.exe under the ESS-R-ROOT-DIR. +If ESS-R-ROOT-DIR is nil, construct it by looking for an +occurence of Rterm.exe in the `exec-path'. If there are no +occurences of Rterm.exe in the `exec-path', then use +`ess-program-files' (which evaluates to something like +\"c:/progra~1/R/\" in English locales) which is the default +location for the R distribution. If BIN-RTERM-EXE is nil, then +use \"bin/Rterm.exe\"." + (if (not ess-R-root-dir) + (let ((Rpath (executable-find "Rterm"))) + (setq ess-R-root-dir + (expand-file-name + (if Rpath + (concat (file-name-directory Rpath) "../../") + (concat ess-program-files "/R/")))) + (ess-write-to-dribble-buffer + (format "(ess-find-rterm): ess-R-root-dir = '%s'\n" ess-R-root-dir)))) + + (if (not bin-Rterm-exe) (setq bin-Rterm-exe "bin/Rterm.exe")) + + (when (file-directory-p ess-R-root-dir) ; otherwise file-name-all-.. errors + (setq ess-R-root-dir + (replace-regexp-in-string "[\\]" "/" ess-R-root-dir)) + (let ((R-ver + (ess-drop-non-directories + (ess-flatten-list + (mapcar (lambda (r-prefix) + (file-name-all-completions r-prefix ess-R-root-dir)) + (append '("rw") ess-r-versions)))))) + (mapcar (lambda (dir) + (let ((R-path + (concat ess-R-root-dir + (replace-regexp-in-string "[\\]" "/" dir) + bin-Rterm-exe))) + (if (file-exists-p R-path) R-path))) + R-ver)))) + +(cl-defmethod ess-font-lock-keywords (&context (major-mode ess-r-transcript-mode)) + 'ess-R-font-lock-keywords) + +;;;###autoload +(define-derived-mode ess-r-transcript-mode ess-transcript-mode "ESS R Transcript" + "A Major mode for R transcript files." + :syntax-table ess-r-mode-syntax-table + (ess-setq-vars-local ess-r-customize-alist) + (setq-local ess-font-lock-keywords 'ess-R-font-lock-keywords) + (setq-local paragraph-start (concat "\\s-*$\\|" page-delimiter)) + (setq-local paragraph-separate (concat "\\s-*$\\|" page-delimiter)) + (setq-local paragraph-ignore-fill-prefix t) + (setq-local indent-line-function 'ess-indent-line) + (setq-local add-log-current-defun-header-regexp "^\\(.+\\)\\s-+<-[ \t\n]*function") + (setq-local font-lock-syntactic-face-function #'ess-r-font-lock-syntactic-face-function) + (setq-local prettify-symbols-alist ess-r-prettify-symbols) + (setq font-lock-defaults '(ess-build-font-lock-keywords + nil nil ((?\. . "w") (?\_ . "w") (?' . "."))))) + +(fset 'r-transcript-mode 'ess-r-transcript-mode) + +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.[Rr]out" . ess-r-transcript-mode)) +;;;###autoload +(add-to-list 'interpreter-mode-alist '("Rscript" . ess-r-mode)) +;;;###autoload +(add-to-list 'interpreter-mode-alist '("r" . ess-r-mode)) + +(defun ess-r-fix-T-F (&optional from quietly) + "Change T/F into TRUE and FALSE cautiously. +Do not change in comments and strings. Start at FROM, which +defaults to point, and change to end of buffer. When QUIETLY, do +not issue messages." + (interactive "d\nP"); point and prefix (C-u) + (save-excursion + (goto-char from) + (ess-rep-regexp "\\(\\([][=,()]\\|<-\\) *\\)T\\>" "\\1TRUE" + 'fixcase nil (not quietly)) + (goto-char from) + (ess-rep-regexp "\\(\\([][=,()]\\|<-\\) *\\)F\\>" "\\1FALSE" + 'fixcase nil (not quietly)))) +(define-obsolete-function-alias 'R-fix-T-F 'ess-r-fix-T-F + "ESS 18.10") + +(defvar ess--packages-cache nil + "Cache var to store package names. +Used by `ess-r-install-library'.") + +(defvar ess--CRAN-mirror nil + "CRAN mirror name cache.") + +(cl-defmethod ess-install-library--override + (update package &context ((string= ess-dialect "R") (eql t))) + "Prompt and install R PACKAGE. +With argument UPDATE, update cached packages list." + (inferior-ess-r-force) + (when (equal "@CRAN@" (car (ess-get-words-from-vector "getOption('repos')[['CRAN']]\n"))) + (ess-set-CRAN-mirror ess--CRAN-mirror) + (ess-wait-for-process (get-process ess-current-process-name)) + (unless package (setq update t))) + (when (or update + (not ess--packages-cache)) + (message "Fetching R packages ... ") + (setq ess--packages-cache + (ess-get-words-from-vector "print(rownames(available.packages()), max=1e6)\n"))) + (let* ((ess-eval-visibly-p t) + (package (or package + (ess-completing-read "Package to install" ess--packages-cache)))) + (process-send-string (get-process ess-current-process-name) + (format "install.packages('%s')\n" package)) + (display-buffer (buffer-name (process-buffer (get-process ess-current-process-name)))))) + +(defun ess-setRepositories () + "Call setRepositories()." + (interactive) + (if (not (string-match "^R" ess-dialect)) + (message "Sorry, not available for %s" ess-dialect) + (ess-eval-linewise "setRepositories(FALSE)\n"))) + +(defun ess-set-CRAN-mirror (&optional mirror) + "Set cran MIRROR." + (interactive) + (let ((mirror-cmd "local({r <- getOption('repos'); r['CRAN'] <- '%s';options(repos=r)})\n")) + (if mirror + (ess-command (format mirror-cmd mirror)) + (when-let ((M1 (ess-get-words-from-vector "local({out <- getCRANmirrors(local.only=TRUE); print(paste(out$Name,'[',out$URL,']', sep=''))})\n")) + (mirror (ess-completing-read "Choose CRAN mirror" M1 nil t)) + (url (seq-contains M1 mirror #'string=))) + (setq ess--CRAN-mirror (progn (string-match "\\(.*\\)\\[\\(.*\\)\\]$" url) + (match-string 2 url))) + (ess-command (format mirror-cmd ess--CRAN-mirror))))) + (message "CRAN mirror: %s" (car (ess-get-words-from-vector "getOption('repos')[['CRAN']]\n")))) +(define-obsolete-function-alias 'ess-setCRANMiror 'ess-set-CRAN-mirror "ESS 18.10") + +(defun ess-r-check-install-package (pkg) + "Check if package PKG is installed and offer to install if not." + (unless (ess-boolean-command (format "print(requireNamespace('%s', quietly = TRUE))\n" pkg)) + (if (y-or-n-p (format "Package '%s' is not installed. Install? " pkg)) + (ess-eval-linewise (format "install.packages('%s')\n" pkg)) + (signal 'quit nil)))) + +(defun ess-r-sos (cmd) + "Interface to findFn in the library sos." + (interactive "sfindFn: ") + (ess-r-check-install-package "sos") + (ess-eval-linewise (format "sos::findFn(\"%s\", maxPages=10)" cmd))) + +(defun ess-R-scan-for-library-call (string) + "Detect `library/require' call in STRING and update tracking vars. +Placed into `ess-presend-filter-functions' for R dialects." + (when (string-match-p "\\blibrary(\\|\\brequire(" string) + (ess--mark-search-list-as-changed)) + string) + +(cl-defmethod ess-installed-packages (&context ((string= ess-dialect "R") (eql t))) + ;;; FIXME? .packages() does not cache; installed.packages() does but is slower first time + (ess-get-words-from-vector "print(.packages(T), max=1e6)\n")) + +(cl-defmethod ess-load-library--override (pack &context ((string= ess-dialect "R") (eql t))) + "Load an R package." + (ess-eval-linewise (format "library('%s')\n" pack))) + +(define-obsolete-function-alias 'ess-library 'ess-load-library "ESS[12.09-1]") + +;;; smart-comma was a bad idea +(eval-after-load "eldoc" + '(eldoc-add-command "ess-smart-comma")) + + +;;*;; Interaction with R + +;;;*;;; Evaluation + +(defun ess-r-arg (param value &optional wrap) + (let ((value (if wrap + (concat "'" value "'") + value))) + (concat ", " param " = " value))) + +(defun ess-r-build-args (visibly output namespace) + (let ((visibly (ess-r-arg "visibly" (if visibly "TRUE" "FALSE"))) + (output (ess-r-arg "output" (if output "TRUE" "FALSE"))) + (pkg (when namespace (ess-r-arg "package" namespace t))) + (verbose (when (and namespace + ess-r-namespaced-load-verbose) + (ess-r-arg "verbose" "TRUE")))) + (concat visibly output pkg verbose))) + +(cl-defmethod ess-build-eval-command--override + (string &context ((string= ess-dialect "R") (eql t)) + &optional visibly output file &rest args) + "R method to build eval command." + (let* ((namespace (caar args)) + (namespace (unless ess-debug-minor-mode + (or namespace (ess-r-get-evaluation-env)))) + (cmd (if namespace ".ess.ns_eval" ".ess.eval")) + (file (when file (ess-r-arg "file" file t))) + (rargs (ess-r-build-args visibly output namespace))) + (concat cmd "(\"" string "\"" rargs file ")\n"))) + +(cl-defmethod ess-build-load-command (string &context ((string= ess-dialect "R") (eql t)) + &optional visibly output file &rest args) + (let* ((namespace (or file (ess-r-get-evaluation-env))) + (cmd (if namespace ".ess.ns_source" ".ess.source")) + (rargs (ess-r-build-args visibly output namespace))) + (concat cmd "('" string "'" rargs ")\n"))) + +(defun ess-r-build-eval-message (message) + (let ((env (cond (ess-debug-minor-mode + (substring-no-properties ess-debug-indicator 1)) + ((ess-r-get-evaluation-env))))) + (if env + (format "[%s] %s" env message) + message))) + +(defvar-local ess-r-evaluation-env nil + "Environment into which code should be evaluated. +When this variable is nil, code is evaluated in the current +environment. Currently only packages can be set as evaluation +environments. Use `ess-r-set-evaluation-env' to set this +variable.") + +(defun ess-r-get-evaluation-env () + "Get current evaluation env." + (or ess-r-evaluation-env + (and ess-current-process-name + (ess-get-process-variable 'ess-r-evaluation-env)))) + +(defun ess-r-set-evaluation-env (&optional arg) + "Select a package namespace for evaluation of R code. + +Call interactively with a prefix argument to disable evaluation +in a namespace. When calling from a function, ARG can be a +string giving the package to select, any other non-nil value to +disable, or nil to prompt for a package. + +If `ess-r-prompt-for-attached-pkgs-only' is non-nil, prompt only for +attached packages." + (interactive "P") + (let ((env (cond ((stringp arg) arg) + ((null arg) (ess-r--select-package-name)) + (t "*none*")))) + (if (equal env "*none*") + (let ((cur-env (ess-r-get-evaluation-env))) + ;; fixme: does not work if env is set at process level + (setq ess-r-evaluation-env nil) + (delq 'ess-r--evaluation-env-mode-line ess--local-mode-line-process-indicator) + (message (format "Evaluation in %s disabled" (propertize cur-env 'face font-lock-function-name-face)))) + (setq ess-r-evaluation-env env) + (add-to-list 'ess--local-mode-line-process-indicator 'ess-r--evaluation-env-mode-line t) + (message (format "Evaluating in %s" (propertize env 'face font-lock-function-name-face)))) + (force-mode-line-update))) + +(defvar-local ess-r--evaluation-env-mode-line + '(:eval (let ((env (ess-r-get-evaluation-env))) + (if env + (format " %s" + (propertize (if (equal env (ess-r-package-name)) + "pkg" + env) + 'face 'mode-line-emphasis)) + "")))) +(put 'ess-r--evaluation-env-mode-line 'risky-local-variable t) + +(defvar ess-r-namespaced-load-only-existing t + "Whether to load only objects already existing in a namespace.") + +(cl-defmethod ess-load-file--override (file &context ((string= ess-dialect "R") (eql t))) + (cond + ;; Namespaced evaluation + ((ess-r-get-evaluation-env) + (ess-r-load-file-namespaced file)) + ;; Evaluation into current env via .ess.source() + (t + (let ((command (ess-build-load-command file nil t))) + (ess-send-string (ess-get-process) command))))) + +(defun ess-r-load-file-namespaced (&optional file) + "Load FILE into a package namespace. + +This prompts for a package when no package is currently +selected (see `ess-r-set-evaluation-env')." + (interactive) + (ess-force-buffer-current "R process to use: ") + (let* ((pkg-name (ess-r-get-evaluation-env)) + (command (ess-build-load-command file nil t pkg-name))) + (ess-send-string (ess-get-process) command))) + +(cl-defmethod ess-send-region--override (process start end visibly message type + &context ((string= ess-dialect "R") (eql t))) + (cond + ;; Namespaced evaluation + ((ess-r-get-evaluation-env) + (ess-r-send-region-namespaced process start end visibly message)) + ;; Evaluation into current env + (t + (ess-send-string process (buffer-substring start end) visibly message type)))) + +(defun ess-r-send-region-namespaced (proc beg end &optional visibly message) + "Ask for for the package and devSource region into it." + (let* ((pkg-name (or (ess-r-get-evaluation-env) + (ess-r-set-evaluation-env)))) + (message (ess-r-build-eval-message (or message "Eval region")))) + (ess-send-string proc (buffer-substring start end) visibly message)) + + +;;;*;;; Help + +(defun ess-r-namespaced-object-p (object) + (string-match "^[[:alnum:].]+::" object)) + +(defun ess-r-build-help-command--qualified (object) + (when (ess-r-namespaced-object-p object) + (let* ((pkg-name (substring object (match-beginning 0) (- (match-end 0) 2))) + (object (concat "'" (substring object (match-end 0)) "'")) + (pkg (ess-r-arg "package" pkg-name t))) + (concat ".ess.help(" object pkg ")\n")))) + +(defun ess-r-build-help-command--get-package-dir (object dont-ask) + ;; Ugly hack to avoid tcl/tk dialogues + (let ((pkgs (ess-get-words-from-vector + (format "as.character(utils::help('%s'))\n" object)))) + (when (> (length pkgs) 1) + (if dont-ask + (car pkgs) + (ess-completing-read "Choose location" pkgs nil t))))) + +(defun ess-r-build-help-command--unqualified (object dont-ask) + (if (eq ess-help-type 'index) + ;; we are in index page, qualify with namespace + (ess-r-build-help-command--qualified (format "%s::%s" ess-help-object object)) + (let ((pkg-dir (ess-r-build-help-command--get-package-dir object dont-ask)) + (command (format inferior-ess-r-help-command object))) + (if pkg-dir + ;; Invoking `print.help_files_with_topic' + (format "do.call(structure, c('%s', attributes(%s)))\n" pkg-dir command) + command)))) + +(defun ess-r-build-help-command (object &optional dont-ask) + (or (ess-r-build-help-command--qualified object) + (ess-r-build-help-command--unqualified object dont-ask))) + +(defconst inferior-ess-r--input-help (format "^ *help *(%s)" ess-help-arg-regexp)) +(defconst inferior-ess-r--input-?-help-regexp "^ *\\(?:\\(?1:[a-zA-Z ]*?\\?\\{1,2\\}\\) *\\(?2:.+\\)\\)") +(defconst inferior-ess-r--page-regexp (format "^ *page *(%s)" ess-help-arg-regexp)) + +(defvar ess-help-r--last-help-type nil + "Variable holding the last known help type. +If it changes, we flush the cache.") + +(defun ess-help-r--check-last-help-type () + (let ((help-type (ess-string-command "getOption('help_type')\n"))) + (when (not (string= help-type ess-help-r--last-help-type)) + (let ((help-buffers (ess-help-get-local-help-buffers))) + (mapc #'kill-buffer help-buffers)) + (setq ess-help-r--last-help-type help-type)))) + +(defun ess-help-r--process-help-input (proc string) + (let ((help-match (and (string-match inferior-ess-r--input-help string) + (match-string 2 string))) + (help-?-match (and (string-match inferior-ess-r--input-?-help-regexp string) + string)) + (page-match (and (string-match inferior-ess-r--page-regexp string) + (match-string 2 string)))) + (when (or help-match help-?-match page-match) + (ess-help-r--check-last-help-type) + (cond (help-match + (ess-display-help-on-object help-match) + (process-send-string proc "\n")) + (help-?-match + (ess-help-r--display-help-? proc string help-?-match) + (process-send-string proc "\n")) + (page-match + (switch-to-buffer-other-window + (ess-command (concat page-match "\n") + (get-buffer-create (concat page-match ".rt")))) + (ess-r-transcript-mode) + (process-send-string proc "\n"))) + t))) + +(defun ess-help-r--display-help-? (proc string help-?-match) + (cond ((string-match "\\?\\?\\(.+\\)" help-?-match) + (ess--display-indexed-help-page (concat help-?-match "\n") + "^\\([^ \t\n]+::[^ \t\n]+\\)[ \t\n]+" + (format "*ess-apropos[%s](%s)*" + ess-current-process-name (match-string 1 help-?-match)) + 'appropos)) + ((string-match "^ *\\? *\\([^ \t]+\\)$" help-?-match) + (ess-display-help-on-object (match-string 1 help-?-match))) + ;; Anything else we send to process almost unchanged + (t + (let ((help-?-match (and (string-match inferior-ess-r--input-?-help-regexp string) + (format "%s%s" (match-string 1 string) + (ess-help-r--sanitize-topic (match-string 2 string)))))) + (ess-display-help-on-object help-?-match "%s\n"))))) + +(defun ess-help-r--sanitize-topic (string) + "Enclose help topic STRING into `` to avoid ?while ?if etc hangs." + (if (string-match "\\([^:]*:+\\)\\(.*\\)$" string) ; treat foo::bar corectly + (format "%s`%s`" (match-string 1 string) (match-string 2 string)) + (format "`%s`" string))) + + +;;;*;;; Utils for inferior R process + +(defun inferior-ess-r-input-sender (proc string) + (save-current-buffer + (or (ess-help-r--process-help-input proc string) + (inferior-ess-input-sender proc string)))) + +(defun inferior-ess-r-load-ESSR () + "Load/INSTALL/Update ESSR." + (let* ((pkg-dir (expand-file-name "ESSR" ess-etc-directory)) + (src-dir (expand-file-name "R" pkg-dir))) + (if (not (or (and (boundp 'ess-remote) ess-remote) + (file-remote-p (ess-get-process-variable 'default-directory)))) + (inferior-ess-r-load-ESSR--local pkg-dir src-dir) + (inferior-ess-r-load-ESSR--remote pkg-dir src-dir)))) + +(defun inferior-ess-r-load-ESSR--local (pkg-dir src-dir) + (let ((cmd (format "local({ + source('%s/.load.R', local=TRUE) #define load.ESSR + load.ESSR('%s') + })\n" + src-dir src-dir))) + (ess-write-to-dribble-buffer (format "load-ESSR cmd:\n%s\n" cmd)) + (with-current-buffer (ess-command cmd) + (let ((msg (buffer-string))) + (when (> (length msg) 1) + (message (format "load ESSR: %s" msg))))))) + +(defun inferior-ess-r-load-ESSR--remote (pkg-dir src-dir) + (let* ((loadremote (expand-file-name "LOADREMOTE" pkg-dir)) + (r-load-code (if (file-exists-p loadremote) + (with-temp-buffer + (insert-file-contents loadremote) + (buffer-string)) + (error "Cannot find ESSR source code")))) + (unless (ess-boolean-command (format r-load-code essr-version) nil 0.1) + (let ((errmsg (with-current-buffer " *ess-command-output*" (buffer-string))) + (files (directory-files src-dir t "\\.R$"))) + (ess-write-to-dribble-buffer (format "error loading ESSR.rda: \n%s\n" errmsg)) + ;; should not happen, unless extrem conditions (ancient R or failed download)) + (message "Failed to download ESSR.rda (see *ESS* buffer). Injecting ESSR code from local machine") + ;; For this case we cannot do it at R level + (ess-command (format ".ess.ESSRversion <- '%s'\n" essr-version)) + (mapc #'ess--inject-code-from-file files))))) + +(cl-defmethod ess-quit--override (arg &context ((string= ess-dialect "R") (eql t))) + "With ARG, do not offer to save the workspace." + (let ((cmd (format "base::q('%s')\n" (if arg "no" "default"))) + (sprocess (ess-get-process ess-current-process-name))) + (when (not sprocess) (error "No ESS process running")) + (ess-cleanup) + (goto-char (marker-position (process-mark sprocess))) + (ess-send-string sprocess cmd t))) + +(defcustom inferior-ess-r-reload-hook nil + "Hook run when reloading the R inferior buffer." + :type 'hook + :group 'ess-R) + +(cl-defmethod inferior-ess-reload--override (start-args + &context ((string= ess-dialect "R") (eql t))) + "Call `run-ess-r' with START-ARGS. +Then run `inferior-ess-r-reload-hook'." + (run-ess-r start-args) + (run-hooks 'inferior-ess-r-reload-hook)) + +(defun inferior-ess-r-force (&optional prompt force no-autostart ask-if-1) + (setq ess-dialect "R") + (ess-force-buffer-current prompt force no-autostart ask-if-1)) + + +;;*;; Editing Tools + +;;;*;;; Indentation Engine + +;; Written by Lionel Henry in mid 2015 + +(defun ess-r-indent-line () + "Indent current line as ESS R code. +Return the amount the indentation changed by." + (let ((indent (ess-calculate-indent nil)) + beg shift-amt + (case-fold-search nil) + (pos (- (point-max) (point)))) + (beginning-of-line) + (setq beg (point)) + (skip-chars-forward " \t") + (setq shift-amt (- indent (current-column))) + (if (zerop shift-amt) + (if (> (- (point-max) pos) (point)) + (goto-char (- (point-max) pos))) + (delete-region beg (point)) + (indent-to indent) + ;; If initial point was within line's indentation, + ;; position after the indentation. + ;; Else stay at same point in text. + (when (> (- (point-max) pos) (point)) + (goto-char (- (point-max) pos)))) + shift-amt)) + +(defun ess-r-indent-exp () + (save-excursion + (when current-prefix-arg + (ess-climb-to-top-level)) + (let* ((bounds (ess-continuations-bounds)) + (end (cadr bounds)) + (beg (if current-prefix-arg + (car bounds) + (forward-line) + (point)))) + (indent-region beg end)))) + +(defun ess-indent-call (&optional start) + (save-excursion + (when (ess-escape-calls) + (setq start (or start (point))) + (skip-chars-forward "^[(") + (forward-char) + (ess-up-list) + (indent-region start (point))))) + +(defun ess-offset (offset) + (setq offset (eval (intern (concat "ess-offset-" (symbol-name offset))))) + (when (and (not (eq offset nil)) + (listp offset) + (or (numberp (cadr offset)) + (eq (cadr offset) t) + (error "Malformed offset"))) + (setq offset (cadr offset))) + (cond ((numberp offset) + offset) + ((null offset) + 0) + (t + ess-indent-offset))) + +(defun ess-offset-type (offset) + (setq offset (eval (intern (concat "ess-offset-" (symbol-name offset))))) + (if (listp offset) + (car offset) + offset)) + +(defun ess-overridden-blocks () + (append (when (memq 'fun-decl ess-align-blocks) + (list (car ess-prefixed-block-patterns))) + (when (memq 'control-flow ess-align-blocks) + (append (cdr ess-prefixed-block-patterns) + '("}?[ \t]*else"))))) + +(defun ess-calculate-indent (&optional parse-start) + "Return appropriate indentation for current line as ESS code. +In usual case returns an integer: the column to indent to. +Returns nil if line starts inside a string, t if in a comment." + (save-excursion + (beginning-of-line) + (let* ((indent-point (point)) + (state (syntax-ppss)) + (containing-sexp (cadr state)) + (prev-containing-sexp (car (last (butlast (nth 9 state)))))) + (back-to-indentation) + (cond + ;; Strings + ((ess-inside-string-p) + (current-indentation)) + ;; Comments + ((ess-calculate-indent--comments)) + ;; Indentation of commas + ((looking-at ",") + (ess-calculate-indent--comma)) + ;; Arguments: Closing + ((ess-call-closing-p) + (ess-calculate-indent--call-closing-delim)) + ;; Block: Contents (easy cases) + ((ess-calculate-indent--block-relatively)) + ;; Block: Prefixed block + ((ess-calculate-indent--prefixed-block-curly)) + ;; Continuations + ((ess-calculate-indent--continued)) + ;; Block: Overridden contents + ((ess-calculate-indent--aligned-block)) + ;; Block: Opening + ((ess-block-opening-p) + (ess-calculate-indent--block-opening)) + ;; Bare line + ((and (null containing-sexp) + (not (ess-unbraced-block-p))) + 0) + ;; Block: Closing + ((ess-block-closing-p) + (ess-calculate-indent--block 0)) + ;; Block: Contents + ((ess-block-p) + (ess-calculate-indent--block)) + ;; Arguments: Nested calls override + ((ess-calculate-indent--nested-calls)) + ;; Arguments: Contents + (t + (ess-calculate-indent--args)))))) + +(defun ess-calculate-indent--comments () + (when ess-indent-with-fancy-comments + (cond + ;; ### or #! + ((or (looking-at "###") + (and (looking-at "#!") + (= 1 (line-number-at-pos)))) + 0) + ;; Single # comment + ((looking-at "#[^#']") + comment-column)))) + +(defun ess-calculate-indent--comma () + (when (ess-inside-call-p) + (let ((indent (save-excursion + (ess-calculate-indent--args))) + (unindent (progn (skip-chars-forward " \t") + ;; return number of skiped chars + (skip-chars-forward ", \t")))) + (- indent unindent)))) + +(defun ess-calculate-indent--call-closing-delim () + (cond ((save-excursion + (ess-skip-blanks-backward t) + (eq (char-before) ?,)) + (ess-calculate-indent--args nil)) + ((save-excursion + (and (ess-ahead-operator-p) + (or (ess-ahead-definition-op-p) + (not ess-align-continuations-in-calls)))) + (ess-calculate-indent--continued)) + (t + (ess-calculate-indent--args 0)))) + +(defun ess-calculate-indent--block-opening () + (cond + ;; Block is an argument in a function call + ((when containing-sexp + (ess-at-containing-sexp + (ess-behind-call-opening-p "[[(]"))) + (ess-calculate-indent--block 0)) + ;; Top-level block + ((null containing-sexp) 0) + ;; Block is embedded in another block + ((ess-at-containing-sexp + (+ (current-indentation) + (ess-offset 'block)))))) + +(defun ess-calculate-indent--aligned-block () + ;; Check for `else' opening + (if (and (memq 'control-flow ess-align-blocks) + (looking-at "else\\b") + (ess-climb-if-else)) + (progn + (when (looking-at "else\\b") + (ess-skip-curly-backward)) + (current-column)) + ;; Check for braced and unbraced blocks + (ess-save-excursion-when-nil + (let ((offset (if (looking-at "[{})]") + 0 (ess-offset 'block)))) + (when (and (cond + ;; Unbraced blocks + ((ess-climb-block-prefix)) + ;; Braced blocks + (containing-sexp + (when (ess-at-containing-sexp + (looking-at "{")) + (ess-escape-prefixed-block)))) + (cl-some 'looking-at + (ess-overridden-blocks))) + (+ (current-column) offset)))))) + +(defun ess-calculate-indent--block-relatively () + (ess-save-excursion-when-nil + (let ((offset (if (looking-at "[})]") 0 (ess-offset 'block))) + (start-line (line-number-at-pos))) + (cond + ;; Braceless block continuations: only when not in a call + ((ess-save-excursion-when-nil + (and (not (looking-at "{")) + (ess-goto-char (ess-unbraced-block-p)) + (not (looking-at "function\\b")) + (or (null containing-sexp) + (ess-at-containing-sexp + (not (looking-at "(")))))) + (ess-maybe-climb-broken-else 'same-line) + (ess-skip-curly-backward) + (+ (current-column) + (ess-offset 'block))) + ;; Don't indent relatively other continuations + ((ess-ahead-continuation-p) + nil) + ;; If a block already contains an indented line, we can indent + ;; relatively from that first line + ((ess-save-excursion-when-nil + (and (not (looking-at "}")) + containing-sexp + (goto-char containing-sexp) + (looking-at "{") + (progn + (forward-line) + (back-to-indentation) + (/= (line-number-at-pos) start-line)) + (not (looking-at "[ \t]*\\(#\\|$\\)")) + (save-excursion + (or (ess-jump-expression) + (ess-jump-continuations)) + (< (line-number-at-pos) start-line)))) + (current-column)) + ;; If a block is not part of a call, we can indent relatively + ;; from the opening {. First check that enclosing { is first + ;; thing on line + ((and containing-sexp + (not (ess-unbraced-block-p)) + (goto-char containing-sexp) + (ess-block-opening-p) + (equal (point) (save-excursion + (back-to-indentation) + (point)))) + (+ (current-column) offset)))))) + +(defun ess-arg-block-p () + (unless (or (null containing-sexp) + ;; Unbraced blocks in a { block are not arg blocks + (and (ess-unbraced-block-p) + (ess-at-containing-sexp + (looking-at "{")))) + (cond + ;; Unbraced body + ((ess-at-indent-point + (and (ess-unbraced-block-p) + (goto-char containing-sexp) + (ess-behind-call-opening-p "[[(]"))) + 'body) + ;; Indentation of opening brace as argument + ((ess-at-containing-sexp + (ess-behind-call-opening-p "[[(]")) + 'opening) + ;; Indentation of body or closing brace as argument + ((ess-at-containing-sexp + (and (or (looking-at "{") + (ess-behind-block-paren-p)) + prev-containing-sexp + (goto-char prev-containing-sexp) + (ess-behind-call-opening-p "[[(]"))) + 'body)))) + +(defun ess-calculate-indent--block (&optional offset) + (let ((arg-block (ess-arg-block-p))) + (cond (arg-block + (ess-calculate-indent--arg-block offset arg-block)) + (t + ;; Block is not part of an arguments list. Climb over any + ;; block opening (function declaration, etc) to indent from + ;; starting indentation. + (or (ess-climb-block-prefix) + (and (goto-char containing-sexp) + (ess-climb-block-prefix))) + (+ (current-indentation) (or offset (ess-offset 'block))))))) + +(defun ess-calculate-indent--arg-block (offset arg-block) + (let* ((block-type (cond ((or (ess-at-containing-sexp + (and (eq arg-block 'body) + (ess-climb-block-prefix "function"))) + (ess-at-indent-point + (and (eq arg-block 'opening) + (ess-backward-sexp 2) + (looking-at "function\\b")))) + 'fun-decl) + ((ess-at-indent-point + (ess-unbraced-block-p)) + 'unbraced) + ((ess-at-containing-sexp + (not (ess-ahead-attached-name-p))) + 'bare-block) + (t))) + (call-pos (if (and (not (eq block-type 'unbraced)) + (not (eq arg-block 'opening))) + (goto-char prev-containing-sexp) + (prog1 containing-sexp + (goto-char indent-point))))) + (ess-calculate-indent--args offset (ess-offset-type 'block) + call-pos indent-point block-type))) + +;; This function is currently the speed bottleneck of the indentation +;; engine. This is due to the need to call (ess-maximum-args-indent) +;; to check if some previous arguments have been pushed off from their +;; natural indentation: we need to check the whole call. This is very +;; inefficient especially when indenting a region containing a large +;; function call (e.g. some dplyr's data cleaning code). Should be +;; solved by implementing a cache as in (syntax-ppss), though it's +;; probably not worth the work. +(defun ess-calculate-indent--args (&optional offset type call-pos to block) + (let* ((call-pos (or call-pos containing-sexp)) + (max-col (prog1 (unless (eq type 'prev-line) + (ess-maximum-args-indent call-pos to)) + (goto-char call-pos))) + (override (and ess-align-arguments-in-calls + (save-excursion + (ess-climb-object) + (cl-some 'looking-at + ess-align-arguments-in-calls)))) + (type-sym (cond (block 'block) + ((looking-at "[[:blank:]]*[([][[:blank:]]*\\($\\|#\\)") + 'arguments-newline) + (t 'arguments))) + (type (or type + (and override 'open-delim) + (ess-offset-type type-sym))) + (offset (or offset + (and (not block) (eq type 'open-delim) 0) + (ess-offset type-sym))) + (indent + (cond + ;; Indent from opening delimiter + ((eq type 'open-delim) + (ess-calculate-indent--args-open-delim)) + ;; Indent from attached name + ((eq type 'prev-call) + (ess-calculate-indent--args-prev-call)) + ;; Indent from previous line indentation + ((eq type 'prev-line) + (ess-calculate-indent--args-prev-line)) + (t + (error "Malformed offset"))))) + (if max-col + (ess-adjust-argument-indent indent offset max-col block) + (+ indent offset)))) + +(defun ess-calculate-indent--args-open-delim () + (forward-char) + (current-column)) + +(defun ess-calculate-indent--args-prev-call () + ;; Handle brackets chains such as ][ (cf data.table) + (ess-climb-chained-delims) + ;; Handle call chains + (if ess-indent-from-chain-start + (while (and (ess-backward-sexp) + (when (looking-back "[[(][ \t,]*" (line-beginning-position)) + (goto-char (match-beginning 0))))) + (ess-backward-sexp)) + (when ess-indent-from-lhs + (ess-climb-lhs)) + (if (and nil + (eq block 'fun-decl) + (not (eq arg-block 'opening)) + (not (eq (ess-offset-type type-sym) 'open-delim))) + (+ (ess-offset 'block) (current-column)) + (current-column))) + +(defun ess-calculate-indent--args-prev-line () + (ess-at-indent-point + (cond + ;; Closing delimiters are actually not indented at + ;; prev-line, but at opening-line + ((looking-at "[]})]") + (ess-up-list -1) + (when (looking-at "{") + (ess-climb-block-prefix)) + (current-indentation)) + ;; Function blocks need special treatment + ((and (eq type 'prev-line) + (eq block 'fun-decl)) + (goto-char containing-sexp) + (ess-climb-block-prefix) + (current-indentation)) + ;; Regular case + (t + ;; Find next non-empty line to indent from + (while (and (= (forward-line -1) 0) + (looking-at "[ \t]*\\($\\|#\\)"))) + (goto-char (ess-code-end-position)) + ;; Climb relevant structures + (unless (ess-climb-block-prefix) + (when (eq (char-before) ?,) + (forward-char -1)) + (ess-climb-expression) + (ess-climb-continuations)) + ;; The following ensures that only the first line + ;; counts. Otherwise consecutive statements would get + ;; increasingly more indented. + (when (and block + containing-sexp + (not (eq block 'unbraced)) + (save-excursion + (/= (line-number-at-pos) + (progn (goto-char containing-sexp) + (line-number-at-pos))))) + (setq offset 0)) + (current-indentation))))) + +;; Indentation of arguments needs to keep track of how previous +;; arguments are indented. If one of those has a smaller indentation, +;; we push off the current line from its natural indentation. For +;; block arguments, we still need to push off this column so we ignore +;; it. +(defun ess-adjust-argument-indent (base offset max-col push) + (if push + (+ (min base max-col) offset) + (min (+ base offset) max-col))) + +;; When previous arguments are shifted to the left (can happen in +;; several situations) compared to their natural indentation, the +;; following lines should not get indented past them. The following +;; function checks the minimum indentation for all arguments of the +;; current function call or bracket indexing. +(defun ess-maximum-args-indent (&optional from to) + (let* ((to (or to (point))) + (to-line (line-number-at-pos to)) + (from-line (progn + (goto-char (1+ (or from containing-sexp))) + (line-number-at-pos))) + (prev-pos (1- (point))) + max-col) + (while (< (line-number-at-pos) to-line) + (forward-line) + (back-to-indentation) + ;; Ignore the line with the function call, the line to be + ;; indented, and empty lines. + (unless (or (>= (line-number-at-pos) to-line) + (looking-at "[ \t]*\\($\\|#\\)")) + (let ((indent (cond + ;; First line: minimum indent is right after ( + ((= (line-number-at-pos) from-line) + (save-excursion + (goto-char (1+ containing-sexp)) + (current-column))) + ;; Handle lines starting with a comma + ((save-excursion + (looking-at ",")) + (+ (current-indentation) 2)) + (t + (current-indentation))))) + (setq max-col (min indent (or max-col indent)))))) + max-col)) + +;; Move to leftmost side of a call (either the first letter of its +;; name or its closing delim) +(defun ess-move-to-leftmost-side () + (when (or (looking-at "[({]") + (ess-behind-call-p)) + (ess-save-excursion-when-nil + (let ((start-col (current-column))) + (skip-chars-forward "^{[(") + (forward-char) + (ess-up-list) + (forward-char -1) + (< (current-column) start-col))))) + +(defun ess-max-col () + (let ((max-col (point))) + (save-excursion + (while (< (point) indent-point) + (unless (and ess-indent-with-fancy-comments + (looking-at "### ")) + (setq max-col (min max-col (current-column)))) + (forward-line) + (back-to-indentation))) + max-col)) + +(defun ess-calculate-indent--prefixed-block-curly () + (when (looking-at "{") + (ess-save-excursion-when-nil + (let ((block-type (ess-climb-block-prefix))) + (cond ((ess-save-excursion-when-nil + (and (memq 'fun-decl-opening ess-indent-from-lhs) + (string= block-type "function") + (ess-climb-operator) + (ess-behind-assignment-op-p) + (ess-climb-expression))) + (current-column)) + ((= (save-excursion + (back-to-indentation) + (point)) + (point)) + (ess-calculate-indent--continued))))))) + +(defun ess-calculate-indent--continued () + "If a continuation line, return an indent of this line, otherwise nil." + (save-excursion + (let* ((start-line (line-number-at-pos)) + (prev-pos 0) + (cascade (eq (ess-offset-type 'continued) 'cascade)) + (climbed (ess-climb-continuations cascade)) + max-col) + (when climbed + (cond + ;; Overridden calls + ((and ess-align-continuations-in-calls + (not (eq climbed 'def-op)) + containing-sexp + (save-excursion + (goto-char containing-sexp) + (looking-at "[[(]"))) + (setq max-col (ess-max-col)) + (ess-move-to-leftmost-side) + (+ (min (current-column) max-col) + (if (eq climbed 'def-op) + (ess-offset 'continued) + 0))) + ;; Regular case + (t + (let ((first-indent (or (eq climbed 'def-op) + (save-excursion + (when (ess-ahead-closing-p) + (ess-climb-expression)) + (not (ess-climb-continuations cascade)))))) + ;; Record all indentation levels between indent-point and + ;; the line we climbed. Some lines may have been pushed off + ;; their natural indentation. These become the new + ;; reference. + (setq max-col (ess-max-col)) + ;; Indenting continuations from the front of closing + ;; delimiters looks better + (when + (ess-ahead-closing-p) + (backward-char)) + (+ (min (current-column) max-col) + (cond + ((eq (ess-offset-type 'continued) 'cascade) + (ess-offset 'continued)) + (first-indent + (ess-offset 'continued)) + (t + 0)))))))))) + +(defun ess-calculate-indent--nested-calls () + (when ess-align-nested-calls + (let ((calls (mapconcat 'identity ess-align-nested-calls "\\|")) + match) + (save-excursion + (and containing-sexp + (looking-at (concat "\\(" calls "\\)(")) + (setq match (match-string 1)) + (goto-char containing-sexp) + (looking-at "(") + (ess-backward-sexp) + (looking-at (concat match "(")) + (current-column)))))) + + +;;;*;;; Call filling engine + +;; Unroll arguments to a single line until closing marker is found. +(defun ess-fill--unroll-lines (bounds &optional jump-cont) + (let* ((last-pos (point-min)) + (containing-sexp (ess-containing-sexp-position)) + prefix-break) + (goto-char (car bounds)) + (goto-char (ess-code-end-position)) + (while (and (/= (point) last-pos) + (< (line-end-position) + (cadr bounds)) + (not prefix-break)) + (setq last-pos (point)) + ;; Check whether we ended up in a sub call. In this case, jump + ;; over it, otherwise, join lines. + (let ((contained-sexp (ess-containing-sexp-position))) + (cond ((and contained-sexp + containing-sexp + (not (= containing-sexp contained-sexp))) + (goto-char (1+ contained-sexp)) + (ess-up-list)) + ;; Jump over continued statements + ((and jump-cont (ess-ahead-operator-p 'strict)) + (ess-climb-token) + (ess-jump-continuations)) + ;; Jump over comments + ((looking-at "#") + (forward-line) + (ess-indent-line)) + (t + (join-line 1)))) + (goto-char (ess-code-end-position))) + (goto-char (car bounds)))) + +(defvar ess-fill--orig-pos nil + "Original position of cursor.") + +(defvar ess-fill--orig-state nil + "Backup of original code to cycle back to original state.") + +(defvar ess-fill--second-state nil + "Backup of code produce by very first cycling. +If this is equal to orig-state, no need to cycle back to original +state.") + +(defvar ess-fill--style-level nil + "Filling style used in last cycle.") + +(defun ess-fill--substring (bounds) + (buffer-substring (car bounds) (marker-position (cadr bounds)))) + +;; Detect repeated commands +(defun ess-fill-style (type bounds) + (let ((max-level + ;; This part will be simpler once we have the style alist + (cond ((eq type 'calls) + ;; No third style either when ess-offset-arguments is + ;; set to 'open-delim, or when ess-fill-calls-newlines + ;; is nil and no numeric prefix is given + (if (and (not (eq (ess-offset-type 'arguments) + 'open-delim)) + (or ess-fill-calls-newlines + (numberp current-prefix-arg))) + 3 + 2)) + ((eq type 'continuations) + 2)))) + (if (not (memq last-command '(fill-paragraph-or-region + fill-paragraph))) + (progn + ;; Record original state on first cycling + (setq ess-fill--orig-state (ess-fill--substring bounds)) + (setq ess-fill--orig-pos (point)) + (setq ess-fill--second-state nil) + (setq ess-fill--style-level 1)) + ;; Also record state on second cycling + (when (and (= ess-fill--style-level 1) + (null ess-fill--second-state)) + (setq ess-fill--second-state (ess-fill--substring bounds))) + (cond ((>= ess-fill--style-level max-level) + (let ((same-last-and-orig (string= (ess-fill--substring bounds) + ess-fill--orig-state)) + (same-2nd-and-orig (string= ess-fill--orig-state + ess-fill--second-state))) + ;; Avoid cycling to the same state twice + (cond ((and same-last-and-orig + same-2nd-and-orig) + (setq ess-fill--style-level 2)) + ((or same-last-and-orig + same-2nd-and-orig) + (setq ess-fill--style-level 1)) + (t + (setq ess-fill--style-level 0))))) + (ess-fill--style-level + (setq ess-fill--style-level (1+ ess-fill--style-level)))))) + ess-fill--style-level) + +(defun ess-fill-args (&optional style) + (let ((start-pos (point-min)) + (orig-col (current-column)) + (orig-line (line-number-at-pos)) + (bounds (ess-args-bounds 'marker)) + ;; Set undo boundaries manually + (undo-inhibit-record-point t) + last-pos last-newline prefix-break + infinite) + (when (not bounds) + (error "Could not find function bounds")) + (setq style (or style (ess-fill-style 'calls bounds))) + (if (= style 0) + (progn + (delete-region (car bounds) (marker-position (cadr bounds))) + (insert ess-fill--orig-state) + ;; Restore the point manually. (save-excursion) wouldn't + ;; work here because we delete the text rather than just + ;; modifying it. + (goto-char ess-fill--orig-pos) + (message "Back to original formatting")) + (when ess-blink-refilling + (ess-blink-region (nth 2 bounds) + (1+ (marker-position (cadr bounds))))) + (undo-boundary) + (save-excursion + (ess-fill--unroll-lines bounds t) + (cond + ;; Some styles start with first argument on a newline + ((and (memq style '(2 4)) + ess-fill-calls-newlines + (not (looking-at "[ \t]*#"))) + (newline-and-indent)) + ;; Third level, start a newline after N arguments + ((and (= style 3) + (not (looking-at "[ \t]*#"))) + (let ((i (if (numberp current-prefix-arg) + current-prefix-arg + 1))) + (while (and (> i 0) + (ess-jump-arg) + (ess-jump-char ",")) + (setq i (1- i)))) + (newline-and-indent))) + (ess-fill-args--roll-lines) + ;; Reindent surrounding context + (ess-indent-call (car bounds))) + ;; Signal marker for garbage collection + (set-marker (cadr bounds) nil) + (undo-boundary)))) + +(defun ess-fill-args--roll-lines () + (while (and (not (looking-at "[])]")) + (/= (point) (or last-pos 1)) + (not infinite)) + (setq prefix-break nil) + ;; Record start-pos as future breaking point to avoid breaking + ;; at `=' sign + (while (looking-at "[ \t]*[\n#]") + (forward-line) + (back-to-indentation)) + (setq start-pos (point)) + (while (and (< (current-column) fill-column) + (not (looking-at "[])]")) + (/= (point) (or last-pos 1)) + ;; Break after one pass if prefix is active + (not prefix-break)) + (when (memq style '(2 3)) + (setq prefix-break t)) + (ess-jump-token ",") + (setq last-pos (point)) + ;; Jump expression and any continuations. Reindent all lines + ;; that were jumped over + (let ((cur-line (line-number-at-pos)) + end-line) + (cond ((ess-jump-arg) + (setq last-newline nil)) + ((ess-token-after= ",") + (setq last-newline nil) + (setq last-pos (1- (point))))) + (save-excursion + (when (< cur-line (line-number-at-pos)) + (setq end-line (line-number-at-pos)) + (ess-goto-line (1+ cur-line)) + (while (and (<= (line-number-at-pos) end-line) + (/= (point) (point-max))) + (ess-indent-line) + (forward-line)))))) + (when (or (>= (current-column) fill-column) + prefix-break + ;; Ensures closing delim on a newline + (and (= style 4) + (looking-at "[ \t]*[])]") + (setq last-pos (point)))) + (if (and last-pos (/= last-pos start-pos)) + (goto-char last-pos) + (ess-jump-char ",")) + (cond ((looking-at "[ \t]*[#\n]") + (forward-line) + (ess-indent-line) + (setq last-newline nil)) + ;; With levels 2 and 3, closing delim goes on a newline + ((looking-at "[ \t]*[])]") + (when (and (memq style '(2 3 4)) + ess-fill-calls-newlines + (not last-newline)) + (newline-and-indent) + ;; Prevent indenting infinitely + (setq last-newline t))) + ((not last-newline) + (newline-and-indent) + (setq last-newline t)) + (t + (setq infinite t)))))) + +(defun ess-fill-continuations (&optional style) + (let ((bounds (ess-continuations-bounds 'marker)) + (undo-inhibit-record-point t) + (last-pos (point-min)) + last-newline infinite) + (when (not bounds) + (error "Could not find statements bounds")) + (setq style (or style (ess-fill-style 'continuations bounds))) + (if (= style 0) + (progn + (delete-region (car bounds) (marker-position (cadr bounds))) + (insert ess-fill--orig-state) + (goto-char ess-fill--orig-pos) + (message "Back to original formatting")) + (when ess-blink-refilling + (ess-blink-region (car bounds) (marker-position (cadr bounds)))) + (undo-boundary) + (save-excursion + (ess-fill--unroll-lines bounds) + (while (and (< (point) (cadr bounds)) + (/= (point) (or last-pos 1)) + (not infinite)) + (setq last-pos (point)) + (when (and (ess-jump-expression) + (indent-according-to-mode) + (not (> (current-column) fill-column))) + (setq last-newline nil)) + (ess-jump-operator) + (if (or (and (> (current-column) fill-column) + (goto-char last-pos)) + (= style 2)) + (progn + (ess-jump-operator) + (unless (= (point) (cadr bounds)) + (when last-newline + (setq infinite t)) + (newline-and-indent) + (setq last-newline t))) + (setq last-newline nil))) + (ess-indent-call (car bounds))) + (set-marker (cadr bounds) nil) + (undo-boundary)))) + + + +;;;*;;; Inferior R mode + +(defvar inferior-ess-r-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "\M-\r" 'ess-dirs) + map) + "Keymap for `inferior-ess-r-mode'.") + +;; TOTHINK: Prevent string delimiting characters from messing up output in the +;; inferior buffer +(defvar inferior-ess-r-mode-syntax-table + (let ((table (copy-syntax-table ess-r-mode-syntax-table))) + (modify-syntax-entry ?% "." table) + (modify-syntax-entry ?\' "." table) + table) + "Syntax table for `inferior-ess-r-mode'.") + +(define-derived-mode inferior-ess-r-mode inferior-ess-mode "iESS" + "Major mode for interacting with inferior R processes." + (setq-local ess-font-lock-keywords 'inferior-ess-r-font-lock-keywords) + (setq-local comint-process-echoes (eql ess-eval-visibly t)) + ;; eldoc + (add-function :before-until (local 'eldoc-documentation-function) + #'ess-r-eldoc-function) + (when ess-use-eldoc (eldoc-mode)) + ;; auto-complete + (ess--setup-auto-complete ess-r-ac-sources t) + ;; company + (ess--setup-company ess-r-company-backends t) + (setq comint-get-old-input #'inferior-ess-get-old-input) + (add-hook 'comint-input-filter-functions 'ess-search-path-tracker nil 'local)) + + + +;;;*;;; R Help mode + +(defvar ess-r-help-mode-map + (let ((map (make-sparse-keymap))) + (set-keymap-parent map (make-composed-keymap button-buffer-map + ess-help-mode-map)) + (define-key map "s<" 'beginning-of-buffer) + (define-key map "s>" 'end-of-buffer) + (define-key map "sa" 'ess-skip-to-help-section) + (define-key map "sd" 'ess-skip-to-help-section) + (define-key map "sD" 'ess-skip-to-help-section) + (define-key map "st" 'ess-skip-to-help-section) + (define-key map "se" 'ess-skip-to-help-section) + (define-key map "sn" 'ess-skip-to-help-section) + (define-key map "sr" 'ess-skip-to-help-section) + (define-key map "ss" 'ess-skip-to-help-section) + (define-key map "su" 'ess-skip-to-help-section) + (define-key map "sv" 'ess-skip-to-help-section) + map) + "Keymap for `ess-r-help-mode'.") + +(define-derived-mode ess-r-help-mode ess-help-mode "R Help" + "Major mode for help buffers." + (setq ess-dialect "R" + ess-help-web-search-command #'ess-r-sos + ess-build-help-command-function #'ess-r-build-help-command + ess-help-sec-regex ess-help-r-sec-regex + ess-help-sec-keys-alist ess-help-r-sec-keys-alist ; TODO: Still necessary? + inferior-ess-help-command inferior-ess-r-help-command + ess-get-help-topics-function #'ess-s-get-help-topics-function) + (ess-r-help-add-links)) + +(define-button-type 'ess-r-help-link + 'follow-link t + 'action (lambda (_) (ess-r-help-button-action))) + +(defun ess-r-help-button-action () + "Display help for button at point." + (let ((text (get-text-property (point) 'ess-r-help-link-text))) + (ess-display-help-on-object text))) + +(defun ess-r-help-add-links () + "Add links to the help buffer." + (let ((help-topics (when (ess-process-live-p) + (ess-s-get-help-topics-function ess-local-process-name))) + (inhibit-read-only t)) + (save-excursion + ;; Search for fancy quotes only. If users have + ;; options(useFancyQuotes) set to something other than TRUE this + ;; probably won't work. If it's FALSE, R outputs ascii ', but + ;; searching through the whole buffer takes too long. + (while (re-search-forward "‘\\([^[:space:]]+?\\)’" nil t) + (let* ((text (match-string 1)) + (text (if (string-match-p ".*()\\'" text) + (substring text nil (- (length text) 2)) + text))) + (when (and (member text help-topics) + (not (string= text ess-help-object))) + (delete-region (match-beginning 0) (match-end 0)) + (insert-text-button text + 'ess-r-help-link-text text + 'type 'ess-r-help-link + 'help-echo (format "mouse-2, RET: Help on %s" text)))))))) + + + + +;; Create functions that can be called for running different versions +;; of R. +;; FIXME: Should be set in ess-custom +(setq ess-rterm-version-paths + (ess-flatten-list + (delete-dups + (if (not ess-directory-containing-R) + (if (getenv "ProgramW6432") + (let ((P-1 (getenv "ProgramFiles(x86)")) + (P-2 (getenv "ProgramW6432"))) + (nconc + ;; Always 32 on 64 bit OS, nil on 32 bit OS + (ess-find-rterm (concat P-1 "/R/") "bin/Rterm.exe") + (ess-find-rterm (concat P-1 "/R/") "bin/i386/Rterm.exe") + + ;; Keep this both for symmetry and because it can happen: + (ess-find-rterm (concat P-1 "/R/") "bin/x64/Rterm.exe") + + ;; Always 64 on 64 bit OS, nil on 32 bit OS + (ess-find-rterm (concat P-2 "/R/") "bin/Rterm.exe") + (ess-find-rterm (concat P-2 "/R/") "bin/i386/Rterm.exe") + (ess-find-rterm (concat P-2 "/R/") "bin/x64/Rterm.exe"))) + (let ((PF (getenv "ProgramFiles"))) + (nconc + ;; Always 32 on 32 bit OS, depends on 32 or 64 process on 64 bit OS + (ess-find-rterm (concat PF "/R/") "bin/Rterm.exe") + (ess-find-rterm (concat PF "/R/") "bin/i386/Rterm.exe") + (ess-find-rterm (concat PF "/R/") "bin/x64/Rterm.exe")))) + (let ((PF ess-directory-containing-R)) + (nconc + (ess-find-rterm (concat PF "/R/") "bin/Rterm.exe") + (ess-find-rterm (concat PF "/R/") "bin/i386/Rterm.exe") + (ess-find-rterm (concat PF "/R/") "bin/x64/Rterm.exe"))))))) +(ess-r-define-runners) + +;;*;; Provide and auto-loads + +;;;###autoload +(add-to-list 'auto-mode-alist '("/Makevars\\(\\.win\\)?$" . makefile-mode)) +;;;###autoload +(add-to-list 'auto-mode-alist '("DESCRIPTION$" . conf-colon-mode)) + +(provide 'ess-r-mode) + +;;; Local variables: +;;; mode: emacs-lisp +;;; byte-compile-warnings: (not lexical) +;;; End: + +;;; ess-r-mode.el ends here diff --git a/elpa/ess-20190121.1430/ess-r-package.el b/elpa/ess-20190121.1430/ess-r-package.el new file mode 100644 index 00000000..3b5155bf --- /dev/null +++ b/elpa/ess-20190121.1430/ess-r-package.el @@ -0,0 +1,562 @@ +;;; ess-r-package.el --- Package development mode for R. -*- lexical-binding: t; -*- + +;; Copyright (C) 2011-2015 Lionel Henry, Vitalie Spinu, A.J. Rossini, Richard +;; M. Heiberger, Martin Maechler, Kurt Hornik, Rodney Sparapani, and +;; Stephen Eglen. + +;; Author: Lionel Henry, Vitalie Spinu +;; Maintainer: ESS-core + +;; Keywords: languages, tools + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; see apropriate documentation section of ESS user manual + +;;; Code: +(require 'cl-lib) +(require 'project) +(require 'ess-custom) +(require 'ess-inf) +(require 'ess-utils) + +(eval-when-compile + (require 'subr-x)) +;; Silence the byte compiler, OK because this file is only loaded by +;; ess-r-mode and has no autoloads. +(defvar ess-r-customize-alist) +(declare-function inferior-ess-r-force "ess-r-mode") +(declare-function ess-r-get-evaluation-env "ess-r-mode") +(declare-function ess-r-set-evaluation-env "ess-r-mode") + +(defvar ess-r-prompt-for-attached-pkgs-only nil + "If nil provide completion for all installed R packages. +If non-nil, only look for attached packages.") + +(define-obsolete-variable-alias 'ess-r-package-auto-set-evaluation-env 'ess-r-package-auto-enable-namespaced-evaluation "18.04") +(define-obsolete-variable-alias 'ess-r-package-auto-set-evaluation-env 'ess-r-package-auto-enable-namespaced-evaluation "18.04") +(defcustom ess-r-package-auto-enable-namespaced-evaluation t + "If non-nil, evaluation env is set to package env automatically. +See also `ess-r-set-evaluation-env' and `ess-r-evaluation-env'." + :group 'ess-r-package + :type 'boolean) + +(defvar-local ess-r-package--info-cache nil + "Current package info cache. +See `ess-r-package-info' for its structure.") + +(define-obsolete-variable-alias 'ess-r-package-library-path 'ess-r-package-library-paths "v18.04") +(defcustom ess-r-package-library-paths nil + "Default path to find user packages. +Can be either a string specifying a directory or a list of directories." + :group 'ess-r-package-library-paths + :type `(choice string (repeat string))) + +(defvar ess-r-package-root-file "DESCRIPTION" + "Presence of this file indicates the project's root.") + +(defvar ess-r-package-dirs + '(("R" . 1) + ("r" . 1) + ("tests" . 1) + ("testthat" . 2) + ("inst" . 1) + ("include" . 2) + ("src" . 1)) + "Alist of directories names and their depth in R package hierarchy. +This list is used to figure out whether the current file belongs +to an R package. If the file specified in `ess-r-package-root-file' +\(DESCRIPTION by default) is found at the presumed root directory +of the package, the current directory is considered to be part of +a R package.") + +(defvar ess-r-package-source-roots + '("R" "src" "tests" "inst/include") + "List of sub-directories within R package where source files are located. +All children of these directories are also considered source +containing directories. Use `ess-r-package-source-dirs' to get +all source dirs recursively within the current package.") + + +;;;*;;; Package Detection + +(defun ess-r-package-project (&optional dir) + "Return the current package as an Emacs project instance. +A project instance is a cons cell of the project type as symbol +and the project path as string. If DIR is provided, the package +is searched from that directory instead of `default-directory'." + (let ((pkg-info (ess-r-package-info dir))) + (when (car pkg-info) + (cons 'ess-r-package (alist-get :root pkg-info))))) + +(cl-defmethod project-roots ((project (head ess-r-package))) + "Return the project root for ESS R packages" + (list (cdr project))) + +(defun ess-r-package-name (&optional dir) + "Return the name of the current package as a string." + (alist-get :name (ess-r-package-info dir))) + +(defun ess-r-package-info (&optional dir) + "Get the description of the R project in directory DIR. +Return an alist with the keys :name and :root. When not in a +package return '(nil). This value is cached buffer-locally for +efficiency reasons." + (if (and (null dir) (car ess-r-package--info-cache)) + ess-r-package--info-cache + (let* ((path (ess-r-package--find-package-path (or dir default-directory))) + (name (when path + (ess-r-package--find-package-name path))) + (info (if name + `((:name . ,name) (:root . ,path)) + '(nil)))) + ;; If DIR was supplied we cannot cache in the current buffer. + (if dir + info + (setq-local ess-r-package--info-cache info))))) + +(defun ess-r-package--all-source-dirs (dir) + (when (file-directory-p dir) + (cl-loop for f in (directory-files-and-attributes dir t "^[^.]") + if (cadr f) + append (cons (car f) (ess-r-package--all-source-dirs (car f)))))) + +(defun ess-r-package-source-dirs () + "Get paths within current R package with source files. +Return nil if not in a package. Search sub-directories listed in +`ess-r-package-source-roots' are searched recursively and +return all physically present directories." + (let ((pkg-root (alist-get :root (ess-r-package-info)))) + (when pkg-root + (let ((files (directory-files-and-attributes pkg-root t "^[^.]"))) + (cl-loop for f in files + if (and (cadr f) + (cl-some (lambda (el) (string-match-p (concat "/" el "$") (car f))) + ess-r-package-source-roots)) + append (cons (car f) + (ess-r-package--all-source-dirs (car f)))))))) + +(defun ess-r--select-package-name () + (inferior-ess-r-force) + (let ((pkgs (ess-get-words-from-vector + (format "print(.packages(%s), max = 1e6)\n" + (if ess-r-prompt-for-attached-pkgs-only "FALSE" "TRUE")))) + (current-pkg (ess-r-package-name))) + (let ((env (ess-r-get-evaluation-env))) + (when env + (setq pkgs (append '("*none*") pkgs)) + (when (equal env current-pkg) + (setq current-pkg "*none*")))) + (ess-completing-read "Package" pkgs nil nil nil nil current-pkg))) + +(defun ess-r-package--find-package-path (&optional dir) + "Get the root of R package that contains current directory. +Root is determined by locating `ess-r-package-root-file'." + (let* ((path (cond + (dir) + ((buffer-file-name) + (file-name-directory (buffer-file-name))) + (t + default-directory))) + (pkg-path + (when path + (or + ;; First check current directory + (and (file-exists-p (expand-file-name ess-r-package-root-file path)) + path) + ;; Check for known directories in current path + (let ((current-dir (file-name-nondirectory (directory-file-name path))) + known-pkg-dir known-path presumptive-path) + (while (and path (not presumptive-path)) + (setq current-dir (file-name-nondirectory (directory-file-name path))) + (if (and (setq known-pkg-dir (assoc current-dir ess-r-package-dirs)) + (setq known-path (ess--parent-dir path (cdr known-pkg-dir))) + (file-exists-p (expand-file-name ess-r-package-root-file known-path))) + (setq presumptive-path known-path) + (setq path (ess--parent-dir path 1)))) + presumptive-path))))) + (when pkg-path + (directory-file-name pkg-path)))) + +(defun ess-r-package--find-package-name (path) + (let ((file (expand-file-name ess-r-package-root-file path)) + (case-fold-search t)) + (when (file-exists-p file) + (with-temp-buffer + (insert-file-contents file) + (goto-char (point-min)) + (when (re-search-forward "package: \\(.*\\)" nil t) + (match-string 1)))))) + + +;;;*;;; UI + +(defun ess-r-package-use-dir () + "Set process directory to current package directory." + (interactive) + (let ((pkg-root (alist-get :root (ess-r-package-info)))) + (if pkg-root + (ess-set-working-directory (abbreviate-file-name pkg-root)) + (user-error "Not in a project")))) + + +;;;*;;; Evaluation + +(defun ess-r-package-enable-namespaced-evaluation () + "Enable namespaced evaluation in current buffer. +Namespaced evaluation is enabled if +`ess-r-package-auto-enable-namespaced-evaluation' is non-nil." + (when ess-r-package-auto-enable-namespaced-evaluation + (let ((root (alist-get :root (ess-r-package-info)))) + ;; Check that we are in a file within R/ + (when (and root + default-directory + (> (length default-directory) (1+ (length root))) + (let ((subpath (substring default-directory + (1+ (length root)) + (length default-directory)))) + (string= (directory-file-name subpath) "R"))) + (ess-r-set-evaluation-env (ess-r-package-name)))))) + +(add-hook 'ess-r-mode-hook 'ess-r-package-enable-namespaced-evaluation) + +(defun ess-r-package-eval-linewise (command &optional msg p actions) + "Send COMMAND to R process. +COMMAND is a command string with %s placeholder for the +arguments. MSG is the message displayed in minibuffer with %s +placeholder for the package name. P is the value of universal +argument usually received from the upstream command and indicates +which action in ACTIONS list to perform; if 0 or nil, first +action, if 1 or (4) second if 2 or (16) third etc. ACTIONS is a +list of strings (R arguments), or functions which return R +arguments, or expressions which return R arguments." + (inferior-ess-r-force) + (let ((pkg-info (ess-r-package-info)) + (args (ess-r-command--build-args p actions))) + (unless (car pkg-info) + (user-error "Not in a package")) + (message msg (alist-get :name pkg-info)) + (display-buffer (ess-get-process-buffer)) + (let ((pkg-path (concat "'" (abbreviate-file-name (alist-get :root pkg-info)) "'"))) + (ess-eval-linewise (format command (concat pkg-path args)))))) + +(defun ess-r-command--build-args (ix &optional actions) + (let* ((n (cond ((null ix) 0) + ((listp ix) (round (log (car ix) 4))) + ((integerp ix) ix) + (t (error "Invalid index")))) + (action (nth n actions)) + (args (cond ((null action) "") + ((stringp action) action) + ((functionp action) (funcall action)) + ((listp action) (eval action)) + (t (error "Invalid action"))))) + (if (string= "" args) + args + (concat ", " args)))) + + +;;;*;;; Devtools Integration + +(defun ess-r-devtools-load-package (&optional arg) + "Interface for `devtools::load_all()'. +With prefix ARG ask for extra args." + (interactive "P") + (ess-r-package-eval-linewise + "devtools::load_all(%s)\n" "Loading %s" arg + '("" (read-string "Arguments: " "recompile = TRUE")))) + +(defun ess-r-devtools-unload-package () + "Interface to `devtools::unload()'." + (interactive) + (ess-r-package-eval-linewise + "devtools::unload(%s)\n" "Unloading %s")) + +(defun ess-r-devtools-check-package (&optional arg) + "Interface for `devtools::check()'. +With prefix ARG ask for extra args." + (interactive "P") + (ess-r-package-eval-linewise + "devtools::check(%s)\n" "Checking %s" arg + '("" (read-string "Arguments: " "vignettes = FALSE")))) + +(defun ess-r-devtools-check-with-winbuilder (&optional arg) + "Interface for `devtools::buildwin()'. +With prefix ARG build with R-devel instead of R-patched." + (interactive "P") + (ess-r-package-eval-linewise + "devtools::build_win(%s)\n" "Checking %s on CRAN's Windows server" arg + '("" "version = 'R-devel'"))) + +(defvar ess-r-rhub--history nil) +(declare-function ess-r-check-install-package "ess-r-mode.el") +(defun ess-r-rhub-check-package (&optional arg) + "Interface for `rhub::check()'. +With prefix ARG run with `valgrind = TRUE'." + (interactive "P") + (inferior-ess-r-force) + (ess-r-check-install-package "rhub") + (let* ((platforms (ess-get-words-from-vector "rhub::platforms()$name\n")) + (platform (completing-read "Platform: " platforms nil t nil + ess-r-rhub--history (car ess-r-rhub--history))) + (cmd (format "rhub::check_for_cran(%%s, platform = '%s')\n" platform)) + (msg (format "Checking %%s on RHUB (%s)" platform))) + (ess-r-package-eval-linewise cmd msg arg '("" "valgrind = TRUE")))) + +(defun ess-r-devtools-build (&optional arg) + "Interface for `devtools::build()'. +With prefix ARG, build with 'vignettes = FALSE'." + (interactive "P") + (ess-r-package-eval-linewise + "devtools::build(%s)\n" "Building %s" arg + '("" "vignettes = FALSE"))) + +(defun ess-r-devtools-test-package (&optional arg) + "Interface for `devtools::test()'. +With prefix argument ARG, run tests on current file only." + (interactive "P") + (ess-r-package-eval-linewise + "devtools::test(%s)\n" "Testing %s" arg + '("" ess-r-devtools--cur-file-filter))) + +(defun ess-r-devtools--cur-file-filter () + (let ((file (or (and buffer-file-name + (file-name-nondirectory buffer-file-name)) + (error "Buffer not visiting a file")))) + (format "filter = \"%s\"" + (if (string-match "test-\\([[:alnum:]]+\\)\\.[rR]" file) + (match-string-no-properties 1 file) + (file-name-base buffer-file-name))))) + +(defvar ess-r-devtools-revdep-check-cmd + "local({ + pkg_path <- %s + res <- devtools::revdep_check(pkg_path) + + if (file.exists(file.path(pkg_path, 'revdep'))) { + save_path <- file.path(pkg_path, 'revdep') + } else { + save_path <- file.path(pkg_path, '.metadata', 'revdep') + } + devtools::revdep_check_save_summary(res, save_path) + + logs_path <- file.path(save_path, 'logs') + if (!dir.exists(logs_path)) { + dir.create(logs_path) + } + devtools::revdep_check_save_logs(res, logs_path) +}) +") + +(defun ess-r-devtools-document-package (&optional arg) + "Interface for `devtools::document()'. +With prefix ARG ask for extra arguments." + (interactive "P") + (ess-r-package-eval-linewise + "devtools::document(%s)\n" "Documenting %s" arg + '("" (read-string "Arguments: ")))) + +(defun ess-r-devtools-install-package (&optional arg) + "Interface to `devtools::install()'. +By default the instalation is \"quick\" with arguments quick = +TRUE, upgrade = FALSE, build = FALSE. On prefix ARG +\\[universal-argument] install with the default +`devtools::install()' arguments." + (interactive "P") + (ess-r-package-eval-linewise + "devtools::install(%s)\n" "Installing %s" arg + '("quick = TRUE, build = FALSE, upgrade = FALSE, keep_source = TRUE" + (read-string "Arguments: " "keep_source = TRUE, force = TRUE")))) + +(defvar ess-r-devtools--install-github-history nil) +(defun ess-r-devtools-install-github (&optional arg) + "Interface to `devtools::install_github()'. +Asks for github repository in the form of user/repo. Force +re-installation when called with a prefix ARG." + (interactive "P") + (let ((command "devtools::install_github(%s%s)") + (repo (format "'%s'" + (read-string "User/Repo: " nil + 'ess-r-devtools--install-github-history + (car ess-r-devtools--install-github-history)))) + (args (if arg + (ess-r-command--build-args 0 '((read-string "Arguments: " "force = TRUE"))) + ""))) + (inferior-ess-r-force) + (display-buffer (ess-get-process-buffer)) + (message "Installing %s from github" repo) + (ess-eval-linewise (format command repo args)))) + +(defun ess-r-devtools-create-package () + "Interface to `devtools::create()'. +Default location is determined by the first element of +`ess-r-package-library-paths'." + (interactive) + (let* ((command "devtools::create(\"%s\")") + (default-path (if (stringp ess-r-package-library-paths) + ess-r-package-library-paths + (car ess-r-package-library-paths))) + (path (read-directory-name "Path: " default-path))) + (ess-eval-linewise (format command path)))) + +(defun ess-r-devtools-execute-command (&optional arg) + "Asks with completion for a devtools command. +When called with prefix ARG asks for additional arguments." + (interactive "P") + (inferior-ess-r-force) + (let* ((devtools-funs (ess-get-words-from-vector ".ess_devtools_functions()\n")) + (fun (completing-read "Function: " devtools-funs)) + (command (format "devtools::%s(%%s)\n" fun))) + (ess-r-package-eval-linewise + command (format "Running %s" fun) arg + '("" (read-string "Arguments: "))))) + + +;;;*;;; Minor Mode + +(defcustom ess-r-package-auto-activate t + "If non-nil, `ess-r-package-mode' is turned on within R packages. +If 't' the minor mode auto-activates in R packages. See +`ess-r-package-exclude-modes' if you wish to inhibit +`ess-r-package-mode' in specific buffers." + :group 'ess-r-package + :type 'boolean) + +(defcustom ess-r-package-exclude-modes '(fundamental-mode) + "A list of modes where `ess-r-package' must not be activated. +The check is done with `derived-mode-p'." + :group 'ess-r-package + :type '(repeat symbol) + :package-version '(ess "18.10")) + +(defcustom ess-r-package-enter-hook nil + "Normal hook run on entering `ess-r-package-mode'." + :group 'ess-r-package + :type 'hook) + +(defcustom ess-r-package-exit-hook nil + "Normal hook run on exiting `ess-r-package-mode'." + :group 'ess-r-package + :type 'hook) + +(defcustom ess-r-package-mode-line + ;; FIXME Emacs 25.1: Use `when-let' + '(:eval (let ((pkg-name (ess-r-package-name))) + (when pkg-name + (format " [pkg:%s]" pkg-name)))) + "Mode line for ESS developer. +Set this variable to nil to disable the mode line entirely." + :group 'ess-r-package + :type 'sexp + :risky t) + +(defvar ess-r-package-mode-map + (let ((ess-r-package-mode-map (make-sparse-keymap))) + (define-key ess-r-package-mode-map "\C-c\C-w" 'ess-r-package-dev-map) + ess-r-package-mode-map)) + +(define-minor-mode ess-r-package-mode + "Minor mode for enabling R package development features. + +\\{ess-r-package-mode-map}" + :init-value nil + :keymap ess-r-package-mode-map + :lighter ess-r-package-mode-line + (if ess-r-package-mode + (progn + ;; Forward relevant R settings for interacting with inferior + ;; processes from any mode + (let ((vars '(ess-dialect + ess-setwd-command + ess-getwd-command + ess-quit-function + inferior-ess-reload-function))) + (mapc (lambda (var) + (set (make-local-variable var) + (eval (cdr (assq var ess-r-customize-alist))))) + vars)) + (add-hook 'project-find-functions #'ess-r-package-project) + (run-hooks 'ess-r-package-enter-hook)) + (remove-hook 'project-find-functions #'ess-r-package-project) + (run-hooks 'ess-r-package-exit-hook))) + +(add-hook 'after-change-major-mode-hook 'ess-r-package-auto-activate) + + +;;;*;;; Activation + +(defun ess-r-package-auto-activate () + "Activate developer if current file is part of a package." + (when (and ess-r-package-auto-activate + (or (buffer-name) default-directory) + (not (eq major-mode 'minibuffer-inactive-mode)) + (or + ;; users probably have these in fundamental mode + (member (buffer-name) '("DESCRIPTION" "NAMESPACE")) + (if ess-r-package-exclude-modes + (not (apply #'derived-mode-p ess-r-package-exclude-modes)) + t))) + (when (car (ess-r-package-info)) + (ess-r-package-mode 1)))) + +(defun ess-r-package-re-activate () + "Restart `ess-r-package-mode'. +First, deactivate package mode if active, and activate if in +package mode. Use this function if state of the buffer such as +`default-directory' has changed." + (when ess-r-package-mode + (ess-r-package-mode -1)) + (setq ess-r-package--info-cache nil) + (ess-r-package-auto-activate)) + +(defvar-local ess-r--old-default-dir nil) +(defun ess-r-package-default-directory-tracker (&rest _) + (unless (equal ess-r--old-default-dir default-directory) + (setq ess-r--old-default-dir default-directory) + (ess-r-package-re-activate))) + +(defun ess-r-package-activate-directory-tracker () + (add-hook 'after-change-functions 'ess-r-package-default-directory-tracker t t)) + +(add-hook 'shell-mode-hook 'ess-r-package-activate-directory-tracker t) +(add-hook 'eshell-mode-hook 'ess-r-package-activate-directory-tracker t) +(when (fboundp 'advice-add) + (require 'shell) + (advice-add 'shell-resync-dirs :after 'ess-r-package-re-activate)) + + +;;;*;;; Deprecated variables and functions +(defun ess-developer (&optional _val) + (error "As of ESS 16.04, `ess-developer' is deprecated. Use `ess-r-set-evaluation-env' instead")) + +(defalias 'ess-toggle-developer 'ess-developer) +(define-obsolete-function-alias 'ess-r-devtools-check-package-buildwin 'ess-r-devtools-check-with-winbuilder) +(define-obsolete-function-alias 'ess-r-devtools-ask 'ess-r-devtools-execute-command "18.04") + +(make-obsolete-variable 'ess-developer "Please use `ess-developer-select-package' and `ess-r-set-evaluation-env' instead." "16.04") +(make-obsolete-variable 'ess-developer-root-file "Please use `ess-r-package-root-file' instead." "16.04") +(make-obsolete-variable 'ess-developer-packages "Please use `ess-r-package-set-package' and `ess-r-set-evaluation-env' instead." "16.04") +(make-obsolete-variable 'ess-developer-load-on-add-commands "Please use `ess-r-package-set-package' and `ess-r-set-evaluation-env' instead." "16.04") +(make-obsolete-variable 'ess-developer-activate-in-package "Please use `ess-r-package-auto-activate' instead." "16.04") +(make-obsolete-variable 'ess-developer-enter-hook "Please use `ess-r-package-enter-hook' instead." "16.04") +(make-obsolete-variable 'ess-developer-exit-hook "Please use `ess-r-package-exit-hook' instead." "16.04") + + +(provide 'ess-r-package) + +;;; ess-r-package.el ends here diff --git a/elpa/ess-20190121.1430/ess-r-syntax.el b/elpa/ess-20190121.1430/ess-r-syntax.el new file mode 100644 index 00000000..be660afe --- /dev/null +++ b/elpa/ess-20190121.1430/ess-r-syntax.el @@ -0,0 +1,1561 @@ +;;; ess-r-syntax.el --- Utils to work with R code + +;; Copyright (C) 2015 Lionel Henry + +;; Author: Lionel Henry +;; Created: 12 Oct 2015 +;; Maintainer: ESS-core + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; API is not yet stable. + +;;; Code: + +(require 'ess-utils) +(require 'regexp-opt) + +(eval-when-compile + (require 'cl-lib)) + + +;;*;; Utils + +;; The three following wrappers return t if successful, nil on error +(defun ess-backward-sexp (&optional N) + (ess-forward-sexp (- (or N 1)))) + +(defun ess-forward-sexp (&optional N) + (or N (setq N 1)) + (condition-case nil + (prog1 t + (goto-char (or (scan-sexps (point) N) + (buffer-end N)))) + (error nil))) + +(defun ess-up-list (&optional N) + (condition-case nil + (let (forward-sexp-function) + (progn (up-list N) t)) + (error nil))) + +(defun ess-backward-up-list (&optional N) + (ess-up-list (- (or N 1)))) + +(defun ess-forward-char (&optional N) + (unless (= (point) (point-max)) + (forward-char (or N 1)) + t)) + +(defun ess-backward-char (&optional N) + (unless (= (point) (point-min)) + (forward-char (- (or N 1))) + t)) + +(defun ess-goto-char (pos) + "Go to POS if it is non-nil. +If POS is nil, return nil. Otherwise return position itself." + (when pos + (goto-char pos))) + +(defun ess-looking-at (regex &optional newlines) + "Like `looking-at' but consumes blanks and comments first." + (save-excursion + (ess-skip-blanks-forward newlines) + (looking-at regex))) + +(defmacro ess-save-excursion-when-nil (&rest body) + (declare (indent 0) + (debug (&rest form))) + `(let ((orig-point (point))) + (cond ((progn ,@body)) + (t (prog1 nil + (goto-char orig-point)))))) + +(defmacro ess-while (test &rest body) + "Like `while' for TEST but return t when BODY gets executed once." + (declare (indent 1) + (debug (&rest form))) + `(let (executed) + (while ,test + (setq executed t) + ,@body) + executed)) + +(defmacro ess-at-indent-point (&rest body) + (declare (indent 0) + (debug (&rest form))) + `(save-excursion + (goto-char indent-point) + (back-to-indentation) + (progn ,@body))) + +(defvar containing-sexp) +(defmacro ess-at-containing-sexp (&rest body) + (declare (indent 0) + (debug (&rest form))) + '(when (not (bound-and-true-p containing-sexp)) + (error "Internal error: containing-sexp is nil or undefined")) + `(save-excursion + (goto-char containing-sexp) + (progn ,@body))) + +(defmacro ess-any (&rest forms) + "Evaluate all arguments and return non-nil if one of the arguments is non-nil. +This is useful to trigger side-effects. FORMS follows the same +syntax as arguments to `cond'." + (declare (indent 0) (debug nil)) + `(let ((forms (list ,@(mapcar (lambda (form) `(progn ,@form)) forms)))) + (cl-some 'identity (mapcar 'eval forms)))) + +(defun ess-char-syntax (string) + (char-to-string (char-syntax (string-to-char string)))) + + +;;*;; Tokenisation + +(defun ess-token-type (token) (car (nth 0 token))) +(defun ess-token-value (token) (cdr (nth 0 token))) +(defun ess-token-start (token) (car (nth 1 token))) +(defun ess-token-end (token) (cdr (nth 1 token))) + +(defun ess-token-refined-type (token) + (ess-token-type (ess-refine-token token))) + +(defun ess-token-after (&optional token) + "Return next TOKEN. +Cons cell containing the token type and string representation." + (save-excursion + (when token + (goto-char (ess-token-end token))) + (ess-jump-token))) + +(defun ess-token-before (&optional token) + "Return previous TOKEN. +Cons cell containing the token type and string representation." + (save-excursion + (when token + (goto-char (ess-token-start token))) + (ess-climb-token))) + +(defun ess-climb-token (&optional type string) + (ess-save-excursion-when-nil + (ess-escape-comment) + (ess-skip-blanks-backward t) + (let ((token (or (ess-climb-token--back) + (ess-climb-token--back-and-forth) + (progn (forward-char -1) (ess-token-after))))) + (if (or type string) + (when (ess-token= token type string) + token) + token)))) + +(defun ess-token--cons (type value) + (if (eq type 'self) + (cons value nil) + (cons type value))) + +(defun ess-climb-token--back () + (let* ((token-end (point)) + (token-type (if (= (point) (point-min)) + "buffer-start" + (ess-climb-token--operator))) + (token-value (buffer-substring-no-properties (point) token-end))) + (unless (null token-type) + (list (ess-token--cons token-type token-value) + (cons (point) token-end))))) + +(defsubst ess-climb-token--char (&rest chars) + (ess-while (and chars + (eq (char-before) (car chars)) + (ess-backward-char)) + (setq chars (cdr chars)))) + +;; Difficult to use regexps here because we want to match greedily +;; backward +(defun ess-climb-token--operator () + (when (pcase (char-before) + ((or `?+ `?/ `?^ `?~ `?? `?!) + (ess-backward-char)) + (`?= + (prog1 (ess-backward-char) + (or (ess-climb-token--char ?=) + (ess-climb-token--char ?!) + (ess-climb-token--char ?:) + (ess-climb-token--char ?>) + (ess-climb-token--char ?<)))) + ((or `?& `?| `?* `?@ `?$) + (prog1 (ess-backward-char) + (ess-climb-token--char (char-after)))) + (`?< + (ess-backward-char)) + (`?> + (prog1 (ess-backward-char) + (or (ess-climb-token--char ?-) + (and (looking-back "->" (- (point) 2)) + (goto-char (- (point) 2)))))) + (`?- + (prog1 (ess-backward-char) + (ess-climb-token--char ?< ?<))) + (`?: + (prog1 (ess-backward-char) + (ess-climb-token--char ?: ?:)))) + 'self)) + +(defun ess-climb-token--back-and-forth () + (let ((limit (point))) + (when (ess-skip-token-backward) + (save-restriction + (narrow-to-region (point) limit) + (ess-token-after))))) + +(defun ess-skip-token-backward () + (ess-save-excursion-when-nil + (cond + ;; Punctuation + ((memq (char-before) '(?, ?\;)) + (ess-backward-char)) + ;; Quoting delimiters + ((memq (char-syntax (char-before)) '(?\" ?$)) + (ess-backward-sexp)) + ;; Syntaxic delimiters + ((memq (char-syntax (char-before)) '(?\( ?\))) + (prog1 (ess-backward-char) + ;; Also skip double brackets + (ess-save-excursion-when-nil + (when (let ((current-delim (char-after))) + (ess-skip-blanks-backward) + (and (memq (char-before) '(?\[ ?\])) + (eq current-delim (char-before)))) + (ess-backward-char))))) + ;; Identifiers and numbers + ((/= (skip-syntax-backward "w_") 0))))) + +(defun ess-jump-token (&optional type string) + "Consume a token forward. +Return a cons cell containing the token type and the token string +content. Return nil when the end of the buffer is reached." + (ess-save-excursion-when-nil + (ess-skip-blanks-forward t) + (let* ((token-start (point)) + (token-type (or (ess-jump-token--regexps) + (ess-jump-token--literal) + (ess-jump-token--infix-op) + (ess-jump-token--punctuation) + (progn (forward-char) "unknown"))) + (token-value (buffer-substring-no-properties token-start (point)))) + (let ((token (list (ess-token--cons token-type token-value) + (cons token-start (point))))) + (if (or type string) + (when (ess-token= token type string) + token) + token))))) + +(defun ess-jump-token--literal () + (cond + ;; Simply assume anything starting with a digit is a number. May be + ;; too liberal but takes care of fractional numbers, integers such + ;; as 10L, etc. False positives are not valid R code anyway. + ((looking-at "[0-9]") + (ess-forward-sexp) + "number") + ((or (looking-at "\\sw\\|\\s_") + (eq (char-after) ?`)) + (ess-forward-sexp) + "identifier") + ((memq (char-after) '(?\" ?\')) + (ess-forward-sexp) + "string"))) + +(defun ess-jump-token--punctuation () + (or (when (= (point) (point-max)) + "buffer-end") + (pcase (char-after) + (`?\; + (forward-char) + 'self) + (`?, + (forward-char) + ;; Treat blanks after comma as part of an argument + (ess-skip-blanks-forward t) + ",")))) + +(defvar ess-r-prefix-keywords-list + '("if" "for" "while" "function")) + +(defvar ess-r-keywords-list + (append ess-r-prefix-keywords-list '("else"))) + +(defvar ess-r-delimiters-list + '("(" ")" "{" "}" "[" "]" "[[" "]]")) + +(defvar ess-r-operators-list + '("+" "-" "*" "/" "%%" "**" "^" + "&" "&&" "|" "||" "!" "?" "~" + "==" "!=" "<" "<=" ">=" ">" + "=" "<-" "<<-" "->" "->>" + "$" "@" ":" "::" ":::" ":=")) + +(defvar ess-r-keywords-re + (concat (regexp-opt ess-r-keywords-list) "\\_>")) + +(defvar ess-r-delimiters-re + (regexp-opt ess-r-delimiters-list)) + +(defvar ess-r-operators-re + (regexp-opt ess-r-operators-list)) + +(defun ess-jump-token--regexps () + (when (or (looking-at ess-r-keywords-re) + (looking-at ess-r-delimiters-re) + (looking-at ess-r-operators-re)) + (goto-char (match-end 0)) + 'self)) + +(defun ess-jump-token--infix-op () + (or (when (looking-at ess-r-operators-re) + (goto-char (match-end 0)) + 'self) + (when (eq (char-after) ?%) + (ess-forward-sexp) + "%infix%"))) + +(defun ess-escape-token () + (ess-escape-comment) + (ess-skip-blanks-forward) + (or (ess-escape-string) + (when (ess-token-delimiter-p (ess-token-after)) + (prog1 t + (mapc (lambda (delims) + (while (and (ess-token-after= nil delims) + (eq (char-before) (string-to-char + (car delims)))) + (ess-backward-char))) + '(("[" "[[") ("]" "]]"))))) + (ess-token-after= '("," ";")) + (and (ess-token-after= "identifier") + (not (memq (char-syntax (char-before)) '(?w ?_)))) + (progn (skip-syntax-backward ".") + (ess-token-operator-p (ess-token-after))) + (/= (skip-syntax-backward "w_") 0))) + +(defun ess-refine-token (token) + (let ((refined-type + (pcase (ess-token-type token) + ;; Parameter assignment + (`"=" + (save-excursion + (goto-char (ess-token-start token)) + (let ((containing-sexp (ess-containing-sexp-position))) + (when (and containing-sexp + (ess-at-containing-sexp + (and (ess-token-after= "(") + (ess-token-before= '("identifier" "string")))) + (save-excursion + (and (ess-climb-token) + (ess-token-before= '("," "("))))) + "param-assign")))) + ;; Quoted identifiers + (`"string" + (when (or + ;; Quoted parameter names + (ess-refined-token= (ess-token-after) "param-assign") + ;; Quoted call names + (ess-token-after= "(")) + "identifier")) + ((or `"(" `")") + (or (save-excursion + (if (ess-token-close-delimiter-p token) + (ess-climb-paired-delims nil token) + (goto-char (ess-token-start token))) + (when (ess-token-keyword-p (ess-token-before)) + "prefixed-expr-delimiter")) + ;; Fixme: probably too crude. Better handled in parser + (when (ess-token= token ")") + (save-excursion + (ess-climb-paired-delims ")" token) + (when (ess-token-before= '("identifier" "string" ")" "]" "]]" "}")) + "argslist-delimiter"))))) + ((or `"{" `"}") + (save-excursion + (unless (ess-climb-paired-delims "}" token) + (goto-char (ess-token-start token))) + (when (ess-refined-token= (ess-token-before) "prefixed-expr-delimiter") + "prefixed-expr-delimiter")))))) + (if refined-type + (list (cons refined-type (ess-token-value token)) + (nth 1 token)) + token))) + +(defun ess-token-balancing-delim (token) + (pcase (ess-token-type token) + (`"(" ")") + (`")" "(") + (`"[" "]") + (`"]" "[") + (`"[[" "]]") + (`"]]" "[["))) + + +;;;*;;; Token predicates + +(defun ess-token= (token &optional type string) + (when (and (null type) + (null string)) + (error "No condition supplied")) + (let ((type (if (stringp type) (list type) type)) + (string (if (stringp string) (list string) string))) + (and (if type (member (ess-token-type token) type) t) + (if string (member (ess-token-value token) string) t)))) + +(defun ess-refined-token= (token type &optional string) + (ess-token= (ess-refine-token token) type string)) + +(defun ess-token-after= (type &optional string) + (ess-token= (ess-token-after) type string)) + +(defun ess-token-before= (type &optional string) + (ess-token= (ess-token-before) type string)) + +(defun ess-token-open-delimiter-p (token) + (string= (ess-char-syntax (ess-token-type token)) "(")) + +(defun ess-token-close-delimiter-p (token) + (string= (ess-char-syntax (ess-token-type token)) ")")) + +(defun ess-token-delimiter-p (token) + (or (ess-token-open-delimiter-p token) + (ess-token-close-delimiter-p token))) + +(defun ess-token-operator-p (token &optional strict) + (and (or (member (ess-token-type token) ess-r-operators-list) + (string= (ess-token-type token) "%infix%")) + (or (null strict) + (not (ess-refined-token= token "param-assign"))))) + +(defun ess-token-keyword-p (token) + (member (ess-token-type token) ess-r-keywords-list)) + + +;;;*;;; Tokens properties and accessors + +(defun ess-token-make-hash (&rest specs) + (let ((table (make-hash-table :test #'equal))) + (mapc (lambda (spec) + ;; alist + (if (listp (cdr spec)) + (mapc (lambda (cell) + (puthash (car cell) (cdr cell) table)) + spec) + ;; Cons cell + (mapc (lambda (token) + (puthash token (cdr spec) table)) + (car spec)))) + specs) + table)) + +(defvar ess-token-r-powers-delimiters + '(("(" . 100) + ("[" . 100) + ("[[" . 100))) + +(defvar ess-token-r-powers-operator + '(("?" . 5) + ("else" . 8) + ("<-" . 10) + ("<<-" . 10) + ("=" . 15) + ("->" . 20) + ("->>" . 20) + ("~" . 25) + ("|" . 30) + ("||" . 30) + ("&" . 35) + ("&&" . 35) + ("!" . 40) + ("<" . 45) + (">" . 45) + ("<=" . 45) + (">=" . 45) + ("==" . 45) + ("+" . 50) + ("-" . 50) + ("*" . 55) + ("/" . 55) + ("%infix%" . 60) + (":" . 65) + ("^" . 70) + ("$" . 75) + ("@" . 75) + ("::" . 80) + (":::" . 80))) + +(defvar ess-token-r-power-table + (ess-token-make-hash ess-token-r-powers-operator + ess-token-r-powers-delimiters)) + +(defvar ess-token-r-right-powers-operator + '((")" . 1))) + +(defvar ess-token-r-right-power-table + (ess-token-make-hash ess-token-r-powers-operator + ess-token-r-right-powers-operator)) + +(defvar ess-token-r-nud-table + (ess-token-make-hash + '(("identifier" . identity) + ("literal" . identity) + ("number" . identity) + ("function" . identity) + ("if" . identity) + ("while" . identity) + ("for" . identity)) + '(("(" . ess-parser-nud-block) + ("{" . ess-parser-nud-block)))) + +(defvar ess-token-r-rnud-table + (ess-token-make-hash + '(("identifier" . identity) + ("literal" . identity) + ("number" . identity)) + '((")" . ess-parser-rnud-paren) + ("}" . ess-parser-nud-block)))) + +(defvar ess-token-r-leds-operator + (let ((operators-list (append '("%infix%" "else") ess-r-operators-list))) + (cons operators-list #'ess-parser-led-lassoc))) + +(defvar ess-token-r-leds-delimiter + '(("(" . ess-parser-led-funcall) + ("[" . ess-parser-led-funcall) + ("[[" . ess-parser-led-funcall))) + +(defvar ess-token-r-led-table + (ess-token-make-hash ess-token-r-leds-operator + ess-token-r-leds-delimiter)) + +(defvar ess-token-r-rid-table + (ess-token-make-hash + '((")" . ess-parser-rid-expr-prefix)))) + + +;;;*;;; Nud, led and rid functions + +(defun ess-parser-nud-block (prefix-token) + (let ((right (list (cons "TODO" nil)))) + (ess-parser-advance-pair nil prefix-token) + (ess-node (cons "block" nil) + (cons (ess-token-start prefix-token) (point)) + (list prefix-token right)))) + +(defun ess-parser-led-lassoc (start infix-token) + (let* ((power (ess-parser-power infix-token)) + (end (ess-parse-expression power))) + (ess-node (cons "binary-op" nil) + (cons (ess-parser-token-start start) (point)) + (list start infix-token end)))) + +(defun ess-parser-led-funcall (left infix-token) + (when (ess-token= left (append '("identifier" "string" "node") + ess-r-prefix-keywords-list)) + (let* ((power (ess-parser-power infix-token)) + (right (ess-parse-arglist power infix-token)) + (type (if (ess-token= left ess-r-prefix-keywords-list) + "prefixed-expr" + "funcall"))) + (when (string= type "prefixed-expr") + (setq right (list right (ess-parse-expression 0)))) + (ess-node (cons type nil) + (cons (ess-parser-token-start left) (point)) + (list left right))))) + +(defun ess-parser-rid-expr-prefix (right suffix-token) + (when (ess-refined-token= suffix-token "prefixed-expr-delimiter") + (ess-parser-rnud-paren suffix-token right))) + +(defun ess-parser-rnud-paren (suffix-token &optional prefixed-expr) + (let* ((infix-token (save-excursion + (ess-parser-advance-pair nil suffix-token))) + (power (ess-parser-power infix-token)) + (args (ess-parse-arglist power suffix-token)) + (left (if prefixed-expr + (ess-parser-advance) + (ess-parse-expression power))) + (type (cond (prefixed-expr "prefixed-expr") + (left "funcall") + (t "enclosed-expr")))) + (when prefixed-expr + (setcdr (car prefixed-expr) (list infix-token suffix-token))) + (ess-node (cons type nil) + (cons (ess-parser-token-start suffix-token) (point)) + (if prefixed-expr + (list prefixed-expr args left) + (list args left))))) + + +;;;*;;; Parsing + +(defun ess-parser-advance (&optional type value) + (if (bound-and-true-p ess-parser--backward) + (ess-climb-token type value) + (ess-jump-token type value))) + +(defun ess-parser-advance-pair (&optional type token) + (if (bound-and-true-p ess-parser--backward) + (ess-climb-paired-delims type token) + (ess-jump-paired-delims type token))) + +(defun ess-parser-next-token () + (if (bound-and-true-p ess-parser--backward) + (ess-token-before) + (ess-token-after))) + +(defun ess-parser-token-start (token) + (if (bound-and-true-p ess-parser--backward) + (ess-token-end token) + (ess-token-start token))) + +(defun ess-parser-power (token) + (or (if (bound-and-true-p ess-parser--backward) + (gethash (ess-token-type token) ess-token-r-right-power-table) + (gethash (ess-token-type token) ess-token-r-power-table)) + 0)) + +(defun ess-node (type pos contents) + (let ((pos (if (bound-and-true-p ess-parser--backward) + (cons (cdr pos) (car pos)) + pos)) + (contents (if (bound-and-true-p ess-parser--backward) + (nreverse contents) + contents))) + (list type pos contents))) + +(defalias 'ess-node-start #'ess-token-start) +(defalias 'ess-node-end #'ess-token-end) + +(defun ess-parse-start-token (token) + (let* ((table (if (bound-and-true-p ess-parser--backward) + ess-token-r-rnud-table + ess-token-r-nud-table)) + (nud (gethash (ess-token-type token) table))) + (when (fboundp nud) + (funcall nud token)))) + +(defun ess-parse-infix-token (infix-token left) + (let ((infix-power (ess-parser-power infix-token)) + (led (or (when (bound-and-true-p ess-parser--backward) + (gethash (ess-token-type infix-token) ess-token-r-rid-table)) + (gethash (ess-token-type infix-token) ess-token-r-led-table)))) + (funcall led left infix-token))) + +(defun ess-parse-expression (&optional power) + (let ((current (ess-parse-start-token (ess-parser-advance))) + (power (or power 0)) + (next (ess-parser-next-token)) + (last-sucessful-pos (point)) + last-success) + (setq last-success current) + (while (and current (< power (ess-parser-power next))) + (ess-parser-advance) + (when (setq current (ess-parse-infix-token next current)) + (setq last-sucessful-pos (point)) + (setq last-success current)) + (setq next (ess-parser-next-token))) + (goto-char last-sucessful-pos) + last-success)) + +(defun ess-parse-arglist (power start-token) + (let ((start-pos (point)) + (arg-start-pos (point)) + (arglist (list start-token)) + (closing-delim (ess-token-balancing-delim start-token)) + expr) + (while (and (setq expr (ess-parse-expression)) + (push (ess-node (cons "arg" nil) + (cons arg-start-pos (point)) + (list expr)) + arglist) + (ess-parser-advance ",")) + (setq arg-start-pos (point))) + (push (ess-parser-advance closing-delim) arglist) + (ess-node (cons "arglist" nil) + (cons start-pos (1- (point))) + (nreverse arglist)))) + +(defun forward-ess-r-expr () + (interactive) + (ess-save-excursion-when-nil + (ess-escape-token) + (ess-parse-expression))) + +(defun forward-ess-r-sexp () + (interactive) + (ess-save-excursion-when-nil + (ess-escape-token) + (let* ((orig-token (ess-token-after)) + (tree (ess-parse-expression)) + (sexp-node (ess-parser-tree-assoc orig-token tree))) + (when sexp-node + (goto-char (ess-token-end sexp-node)) + sexp-node)))) + +(defun backward-ess-r-expr () + (interactive) + (let ((ess-parser--backward t)) + (ess-parse-expression))) + +(defun backward-ess-r-sexp () + (interactive) + (error "Todo")) + +(defun ess-parser-tree-assoc (key tree) + (let ((next tree) + stack last-node result) + (while (and next (null result)) + (cond ((eq next 'node-end) + (pop last-node)) + ((nth 2 next) + (push 'node-end stack) + (dolist (node (nth 2 next)) + (push node stack)) + (push next last-node)) + ((equal next key) + (setq result (car last-node)))) + (setq next (pop stack))) + result)) + + +;;*;; Point predicates + +(defun ess-inside-call-p (&optional call) + "Return non-nil if point is in a function or indexing call." + (let ((containing-sexp (or (bound-and-true-p containing-sexp) + (ess-containing-sexp-position)))) + (save-excursion + (and (prog1 (ess-goto-char containing-sexp) + (ess-climb-chained-delims)) + (save-excursion + (forward-char) + (ess-up-list)) + (or (ess-behind-call-opening-p "(") + (looking-at "\\[")) + (ess-inside-call-name-p call))))) + +(defun ess-inside-continuation-p () + (unless (or (looking-at ",") + (ess-behind-call-opening-p "[[(]")) + (or (save-excursion + (ess-jump-object) + (and (not (ess-ahead-param-assign-p)) + (ess-behind-operator-p))) + (save-excursion + (ess-climb-object) + (ess-climb-operator) + (and (ess-behind-operator-p) + (not (ess-ahead-param-assign-p))))))) + +(defun ess-inside-call-name-p (&optional call) + (save-excursion + (ess-climb-call-name call))) + +(defun ess-inside-prefixed-block-p (&optional call) + "Return non-nil if point is in a prefixed block. +Prefixed blocks refer to the blocks following function +declarations, control flow statements, etc. + +If CALL is not nil, check if the prefix corresponds to CALL. If +nil, return the prefix." + (save-excursion + (ess-escape-prefixed-block call))) + + +;;*;; Syntactic Travellers and Predicates + +;;;*;;; Blanks, Characters, Comments and Delimiters + +(defun ess-skip-blanks-backward (&optional newlines) + "Skip blanks and newlines backward, taking end-of-line comments into account." + (ess-any ((ess-skip-blanks-backward-1)) + ((when newlines + (ess-while (and (/= (point) (point-min)) + (= (point) (line-beginning-position))) + (forward-line -1) + (goto-char (ess-code-end-position)) + (ess-skip-blanks-backward-1)))))) + +(defun ess-skip-blanks-backward-1 () + (and (/= (point) (point-min)) + (/= 0 (skip-syntax-backward " ")))) + +(defun ess-skip-blanks-forward (&optional newlines) + "Skip blanks and newlines forward, taking end-of-line comments into account." + (ess-any ((/= 0 (skip-syntax-forward " "))) + ((ess-while (and newlines + (= (point) (ess-code-end-position)) + (when (ess-save-excursion-when-nil + ;; Handles corner cases such as point being on last line + (let ((orig-point (point))) + (forward-line) + (back-to-indentation) + (> (point) orig-point))) + (skip-chars-forward " \t") + t)))))) + +(defun ess-jump-char (char) + (ess-save-excursion-when-nil + (ess-skip-blanks-forward t) + (when (looking-at char) + (goto-char (match-end 0))))) + +(defun ess-escape-comment () + (when (ess-inside-comment-p) + (prog1 (comment-beginning) + (skip-chars-backward "#+[ \t]*")))) + +(defun ess-ahead-closing-p () + (memq (char-before) '(?\] ?\} ?\)))) + +(defun ess-ahead-boundary-p () + (looking-back "[][ \t\n(){},]" (1- (point)))) + +(defun ess-escape-string () + (and (nth 3 (syntax-ppss)) + (ess-goto-char (nth 8 (syntax-ppss))))) + +(defun ess-climb-paired-delims (&optional type token) + (ess-save-excursion-when-nil + (let ((token (or token (ess-token-before)))) + (goto-char (ess-token-end token)) + (when (if type + (ess-token= token type) + (ess-token-delimiter-p token)) + (and (ess-backward-sexp) + (ess-token-after)))))) + +(defun ess-jump-paired-delims (&optional type token) + (ess-save-excursion-when-nil + (let ((token (or token (ess-token-after)))) + (goto-char (ess-token-start token)) + (when (if type + (ess-token= token type) + (ess-token-delimiter-p token)) + (and (ess-forward-sexp) + (ess-token-before)))))) + + +;;;*;;; Blocks + +(defun ess-block-opening-p () + (save-excursion + (cond + ((looking-at "{")) + ;; Opening parenthesis not attached to a function opens up a + ;; block too. Only pick up those that are last on their line + ((ess-behind-block-paren-p))))) + +(defun ess-block-closing-p () + (save-excursion + (cond + ((looking-at "}")) + ((looking-at ")") + (forward-char) + (backward-sexp) + (not (looking-back + (concat ess-r-name-pattern "[[:blank:]]*") + (line-beginning-position))))))) + +(defun ess-block-p () + (or (save-excursion + (when containing-sexp + (goto-char containing-sexp) + (ess-block-opening-p))) + (ess-unbraced-block-p))) + +;; Parenthesised expressions +(defun ess-behind-block-paren-p () + (and (looking-at "(") + (not (ess-ahead-attached-name-p)))) + +(defun ess-climb-block (&optional ignore-ifelse) + (ess-save-excursion-when-nil + (cond + ((and (not ignore-ifelse) + (ess-climb-if-else 'to-start))) + ((and (eq (char-before) ?\}) + (prog2 + (forward-char -1) + (ess-up-list -1) + (ess-climb-block-prefix))))))) + +(defvar ess-prefixed-block-patterns + (mapcar (lambda (fun) (concat fun "[ \t\n]*(")) + '("function" "if" "for" "while"))) + +(defun ess-behind-prefixed-block-p (&optional call) + (if call + (looking-at (concat call "[ \t]*(")) + (cl-some 'looking-at ess-prefixed-block-patterns))) + +(defun ess-unbraced-block-p (&optional ignore-ifelse) + "This indicates whether point is in front of an unbraced +prefixed block following a control flow statement. Returns +position of the control flow function (if, for, while, etc)." + (save-excursion + (and (ess-backward-sexp) + (or (and (looking-at "else\\b") + (not ignore-ifelse)) + (and (looking-at "(") + (ess-backward-sexp) + (cl-some 'looking-at ess-prefixed-block-patterns) + (if ignore-ifelse + (not (looking-at "if\\b")) + t))) + (point)))) + +(defun ess-climb-block-prefix (&optional call ignore-ifelse) + "Climb the prefix of a prefixed block. +Prefixed blocks refer to the blocks following function +declarations, control flow statements, etc. + +Should be called either in front of a naked block or in front +of the curly brackets of a braced block. + +If CALL not nil, check if the prefix corresponds to CALL. If nil, +return the prefix." + (ess-save-excursion-when-nil + (or (and (not ignore-ifelse) + (prog1 (and (ess-climb-if-else-call) + (or (null call) + (looking-at call))) + (when (ess-token-after= "else") + (ess-climb-token "}")))) + (let ((pos (ess-unbraced-block-p ignore-ifelse))) + (and (ess-goto-char pos) + (if call + (looking-at call) + (cond ((looking-at "function") + "function") + ((looking-at "for") + "for") + ((looking-at "if") + "if") + ((looking-at "else") + "else")))))))) + +(defun ess-escape-prefixed-block (&optional call) + "Climb outside of a prefixed block." + (let ((containing-sexp (or (bound-and-true-p containing-sexp) + (ess-containing-sexp-position)))) + (or (ess-save-excursion-when-nil + (and (ess-goto-char containing-sexp) + (looking-at "{") + (ess-climb-block-prefix call))) + (ess-escape-unbraced-block call)))) + +(defun ess-escape-unbraced-block (&optional call) + (ess-save-excursion-when-nil + (while (and (not (ess-unbraced-block-p)) + (or (ess-escape-continuations) + (ess-escape-call)))) + (ess-climb-block-prefix call))) + +(defun ess-jump-block () + (cond + ;; if-else blocks + ((ess-jump-if-else)) + ;; Prefixed blocks such as `function() {}' + ((ess-behind-prefixed-block-p) + (ess-jump-prefixed-block)) + ;; Naked blocks + ((and (or (looking-at "{") + (ess-behind-block-paren-p)) + (ess-forward-sexp))))) + +(defun ess-jump-prefixed-block (&optional call) + (ess-save-excursion-when-nil + (when (ess-behind-prefixed-block-p call) + (ess-forward-sexp 2) + (ess-skip-blanks-forward t) + (if (looking-at "{") + (ess-forward-sexp) + (prog1 (ess-jump-expression) + (ess-jump-continuations)))))) + + +;;;*;;; Calls + +(defun ess-call-closing-p () + (save-excursion + (when (cond ((looking-at ")") + (ess-up-list -1)) + ((looking-at "]") + (when (ess-up-list -1) + (prog1 t (ess-climb-chained-delims))))) + (ess-ahead-attached-name-p)))) + +(defun ess-behind-call-opening-p (pattern) + (and (looking-at pattern) + (ess-ahead-attached-name-p))) + +;; Should be called just before the opening brace +(defun ess-ahead-attached-name-p () + (save-excursion + (ess-climb-object))) + +(defun ess-ahead-param-assign-p () + "Return non-nil if looking at a function argument. +To be called just before the `=' sign." + (ess-refined-token= (ess-token-before) "param-assign")) + +(defun ess-behind-arg-p () + (save-excursion + (ess-jump-arg))) + +(defun ess-behind-parameter-p () + (save-excursion + (ess-jump-parameter))) + +(defun ess-jump-parameter () + (ess-save-excursion-when-nil + (and (ess-jump-name) + (when (looking-at "[ \t]*=\\([^=]\\)") + (goto-char (match-beginning 1)) + (ess-skip-blanks-forward) + t)))) + +(defun ess-jump-arg () + (ess-save-excursion-when-nil + (ess-skip-blanks-forward t) + (ess-any ((ess-jump-parameter)) + ((ess-jump-expression)) + ((ess-jump-continuations))))) + +(defun ess-arg-bounds () + "Should be called in front of the argument." + (save-excursion + (let ((beg (point))) + (and (ess-jump-arg) + (list beg (point)))))) + +(defun ess-climb-call (&optional call) + "Climb functions (e.g. ggplot) and parenthesised expressions." + (or (ess-while (ess-save-excursion-when-nil + (ess-climb-name) + (and (ess-climb-chained-delims ?\]) + ;; (ess-climb-expression) + (if (eq (char-before) ?\)) + (ess-climb-call) + (ess-climb-name)) + ))) + (ess-save-excursion-when-nil + (when (and (memq (char-before) '(?\] ?\) ?\})) + (ess-backward-sexp)) + (if call + (and (ess-climb-name) + (looking-at call))) + (prog1 t + (ess-climb-name)))))) + +(defun ess-climb-call-name (&optional call) + (ess-save-excursion-when-nil + (ess-jump-name) + (ess-skip-blanks-forward) + (and (ess-behind-call-opening-p "[[(]") + (ess-climb-name) + (or (null call) + (looking-at call))))) + +(defun ess-step-to-first-arg () + (let ((containing-sexp (ess-containing-sexp-position))) + (cond ((ess-inside-call-p) + (goto-char containing-sexp) + (forward-char) + t) + ((ess-inside-call-name-p) + (ess-jump-name) + (ess-skip-blanks-forward) + (forward-char) + t)))) + +(defun ess-jump-to-next-arg () + (and (ess-jump-arg) + (prog1 (ess-jump-char ",") + (ess-skip-blanks-forward t)))) + +(defun ess-jump-call () + (ess-save-excursion-when-nil + (or (and (ess-jump-object) + (cond ((eq (char-before) ?\))) + ((looking-at "\\[") + (ess-jump-chained-brackets)) + ((looking-at "(") + (ess-forward-sexp)))) + (and (looking-at "[ \t]*(") + (ess-forward-sexp))))) + +(defun ess-behind-call-p () + (save-excursion + (ess-jump-object) + (ess-skip-blanks-forward) + (looking-at "[[(]"))) + +(defun ess-climb-chained-delims (&optional delim) + "Should be called with point between delims, e.g. `]|['." + (setq delim (if delim + (list delim) + '(?\] ?\)))) + (ess-while (ess-save-excursion-when-nil + (when (memq (char-before) delim) + (ess-backward-sexp))))) + +(defun ess-jump-chained-brackets () + (ess-while (ess-save-excursion-when-nil + (when (eq (char-after) ?\[) + (ess-forward-sexp))))) + +(defun ess-escape-call (&optional call) + (let ((containing-sexp (ess-containing-sexp-position))) + (if (ess-inside-call-p) + (ess-save-excursion-when-nil + (goto-char containing-sexp) + (ess-climb-chained-delims) + (and (ess-climb-name) + (or (null call) + (looking-at call)))) + ;; At top level or inside a block, check if point is on the + ;; function name. + (ess-save-excursion-when-nil + (let ((orig-pos (point))) + (and (ess-jump-name) + (looking-at "[[(]") + (ess-climb-name) + (or (null call) + (looking-at call)) + (/= (point) orig-pos))))))) + +(defun ess-escape-calls () + (ess-while (ess-escape-call))) + +(defun ess-jump-inside-call () + (ess-save-excursion-when-nil + (when (ess-jump-name) + (ess-skip-blanks-forward) + (when (looking-at "(") + (forward-char) + t)))) + +(defun ess-args-bounds (&optional marker) + (let ((containing-sexp (ess-containing-sexp-position))) + (when (ess-inside-call-p) + (save-excursion + (let ((beg (1+ containing-sexp)) + (call-beg (ess-at-containing-sexp + (ess-climb-name) + (point)))) + ;; (ess-up-list) can't find its way when point is on a + ;; backquoted name, so start from `beg'. + (and (goto-char beg) + (ess-up-list) + (prog1 t + (forward-char -1)) + (let ((end (if marker + (point-marker) + (point)))) + (list beg end call-beg)))))))) + +(defun ess-args-alist () + "Return all arguments as an alist with cars set to argument +names and cdrs set to the expressions given as argument. Both +cars and cdrs are returned as strings." + (save-excursion + (when (ess-step-to-first-arg) + (let (args current-arg) + (while (and (setq current-arg (ess-cons-arg)) + (setq args (nconc args (list current-arg))) + (ess-jump-to-next-arg))) + args)))) + +(defun ess-cons-arg () + "Return a cons cell of the current argument with car set to the +parameter name (nil if not specified) and cdr set to the argument +expression." + (save-excursion + (ess-skip-blanks-forward t) + (let ((param (when (ess-behind-parameter-p) + (buffer-substring-no-properties + (point) + (prog2 + (ess-jump-name) + (point) + (ess-jump-char "=") + (ess-skip-blanks-forward))))) + (arg (buffer-substring-no-properties + (point) + (progn + (ess-jump-arg) + (point))))) + (cons param arg)))) + + +;;;*;;; Statements + +(defun ess-behind-operator-p (&optional strict) + (ess-token-operator-p (ess-token-after) strict)) + +(defun ess-ahead-operator-p (&optional strict) + (ess-token-operator-p (ess-token-before) strict)) + +(defun ess-climb-lhs (&optional no-fun-arg climb-line) + (ess-save-excursion-when-nil + (let ((start-line (line-number-at-pos))) + (ess-climb-operator) + (when (and (or climb-line (equal (line-number-at-pos) start-line)) + (ess-behind-definition-op-p no-fun-arg)) + (prog1 t + (ess-climb-expression)))))) + +(defun ess-jump-lhs () + (ess-save-excursion-when-nil + (and (ess-jump-name) + (ess-behind-definition-op-p) + (ess-jump-operator)))) + +(defun ess-climb-operator () + (when (ess-token-operator-p (ess-token-before)) + (prog1 (ess-climb-token) + (ess-skip-blanks-backward)))) + +;; Currently doesn't check that the operator is not binary +(defun ess-climb-unary-operator () + (ess-save-excursion-when-nil + (let ((token (ess-climb-token))) + (member (ess-token-type token) '("+" "-" "!" "?" "~"))))) + +;; Currently returns t if we climbed lines, nil otherwise. +(defun ess-climb-continuations (&optional cascade ignore-ifelse) + (let* ((start-line (line-number-at-pos)) + (state (list :start-line start-line + :last-line start-line + :moved 0 + :last-pos (point) + :prev-point nil + :def-op nil + :expr nil))) + (when (ess-while (and (<= (plist-get state :moved) 1) + (or (ess-save-excursion-when-nil + (and (ess-climb-operator) + (ess-climb-continuations--update-state state cascade 'op) + (ess-climb-expression ignore-ifelse))) + (ess-climb-unary-operator)) + (/= (plist-get state :last-pos) (point))) + (ess-climb-continuations--update-state state cascade nil) + (plist-put state :last-pos (point))) + (when (and (plist-get state :prev-point) + (or (= (plist-get state :moved) 3) + (not (plist-get state :expr)))) + (goto-char (plist-get state :prev-point))) + (if (plist-get state :def-op) + 'def-op + (< (line-number-at-pos) (plist-get state :start-line)))))) + +(defun ess-climb-continuations--update-state (state cascade &optional op) + ;; Climbing multi-line expressions should not count as moving up + (when op + (plist-put state :expr (ess-ahead-closing-p))) + (let ((cur-line (line-number-at-pos))) + (when (and (plist-get state :last-line) + (< cur-line (plist-get state :last-line)) + (or cascade (not (plist-get state :expr)))) + (plist-put state :moved (1+ (plist-get state :moved))) + (plist-put state :last-line cur-line))) + ;; Don't update counter after climbing operator or climbing too high + (when (and (not op) + (<= (plist-get state :moved) 1)) + (plist-put state :prev-point (point))) + (when (and (ess-behind-definition-op-p) + (<= (plist-get state :moved) 1)) + (plist-put state :def-op t)) + t) + +(defun ess-jump-operator () + (when (ess-behind-operator-p) + (ess-jump-token) + (ess-skip-blanks-forward t) + t)) + +(defun ess-jump-continuation () + (and (ess-jump-operator) + (ess-jump-expression))) + +(defun ess-jump-continuations () + (let (last-pos) + (when (ess-while (and (or (null last-pos) + (/= (point) last-pos)) + (setq last-pos (point)) + (ess-jump-continuation))) + ;; In calls, operators can start on newlines + (let ((start-line (line-number-at-pos))) + (when (ess-save-excursion-when-nil + (and (ess-inside-call-p) + (ess-skip-blanks-forward t) + (/= (line-number-at-pos) start-line) + (ess-behind-operator-p))) + (ess-jump-continuations))) + t))) + +(defun ess-ahead-continuation-p (&optional or-parameter) + (or (ess-token-operator-p (ess-token-before) (not or-parameter)) + (save-excursion + (ess-climb-block-prefix)) + (ess-token-after= "else") + (save-excursion + (ess-climb-if-else-call)))) + +(defun ess-token-definition-op-p (token strict) + (and (ess-token= token '("<-" "<<-" ":=" "~" "=")) + (if strict + (not (ess-refined-token= token "param-assign")) + t))) + +(defun ess-behind-definition-op-p (&optional strict) + (ess-token-definition-op-p (ess-token-after) strict)) + +(defun ess-ahead-definition-op-p (&optional strict) + (ess-token-definition-op-p (ess-token-before) strict)) + +(defun ess-behind-assignment-op-p () + (let ((token (ess-token-after))) + (and (ess-token= token '("<-" "=")) + (not (ess-refined-token= token "param-assign"))))) + +(defun ess-escape-continuations () + (ess-any ((unless (ess-ahead-boundary-p) + (ess-climb-expression))) + ((ess-while (ess-climb-continuations))))) + +(defun ess-continuations-bounds (&optional marker) + (save-excursion + (let ((orig-point (point)) + (beg (progn + (ess-escape-continuations) + (point)))) + (when beg + (ess-jump-expression) + (ess-jump-continuations) + (let ((end (if marker + (point-marker) + (point)))) + (list beg end)))))) + +(defun ess-climb-to-top-level () + (while (ess-goto-char (ess-containing-sexp-position))) + (ess-escape-continuations)) + + +;;;*;;; Statements: Control Flow + +(defun ess-climb-if-else-call (&optional multi-line) + "Climb if, else, and if else calls." + (ess-save-excursion-when-nil + (cond ((ess-climb-paired-delims ")") + (when (ess-climb-token "if") + ;; Check for `else if' + (prog1 t + (ess-save-excursion-when-nil + (let ((orig-line (line-number-at-pos))) + (and (ess-climb-token "else") + (or multi-line + (eq orig-line (line-number-at-pos))))))))) + ((ess-climb-token "else"))))) + + +(defun ess-climb-if-else-body (&optional from-else) + (cond + ;; Climb braced body + ((ess-save-excursion-when-nil + (and (when (progn (ess-skip-blanks-backward t) + (eq (char-before) ?\})) + (prog1 t (forward-char -1))) + (ess-up-list -1)))) + ;; Climb unbraced body + ((when from-else + (ess-save-excursion-when-nil + (ess-skip-blanks-backward t) + (prog1 (ess-climb-expression 'ignore-ifelse) + (or (ess-climb-continuations nil 'ignore-ifelse) + (ess-climb-block-prefix nil 'ignore-ifelse)))))))) + +(defun ess-climb-if-else (&optional to-start) + "Climb horizontal as well as vertical if-else chains, with or +without curly braces." + ;; Don't climb if we're atop the current chain of if-else + (unless (ess-token-after= "if") + (ess-save-excursion-when-nil + (let ((from-else (ess-token-after= "else"))) + (when (and (ess-climb-if-else-body from-else) + (ess-climb-if-else-call to-start)) + ;; If we start from a final else and climb to another else, we + ;; are in the wrong chain of if-else. In that case, + ;; climb-recurse to the top of the current chain and climb + ;; again to step in the outer chain. + (when (save-excursion (and from-else + (ess-jump-token "else") + (not (ess-jump-token "if")))) + (ess-climb-if-else 'to-start) + (ess-climb-continuations) + (ess-climb-block-prefix nil 'ignore-ifelse) + (ess-climb-if-else-call nil)) + (ess-maybe-climb-broken-else) + (when to-start + (ess-climb-if-else to-start)) + t))))) + +;; Broken else: if \n else +(defun ess-maybe-climb-broken-else (&optional same-line) + (ess-save-excursion-when-nil + ;; Don't record current line if not needed (expensive operation) + (let ((cur-line (when same-line (line-number-at-pos)))) + (and (ess-climb-token "else") + (if same-line + (= cur-line (line-number-at-pos)) + t))))) + +(defun ess-skip-curly-backward () + (re-search-backward "}[ \t]*" (line-beginning-position) t)) + +(defun ess-jump-if-else () + (let (from) + (ess-while (ess-save-excursion-when-nil + (ess-skip-blanks-forward t) + (cond + ((and (not (eq from 'if)) + (ess-jump-if) + (setq from 'if))) + ((looking-at "else") + (ess-forward-sexp) + (or (ess-jump-if) + (progn + (ess-skip-blanks-forward t) + (ess-jump-expression))) + (setq from 'else)) + (t + nil)))))) + +(defun ess-jump-if () + (ess-save-excursion-when-nil + (ess-skip-blanks-forward t) + (and (looking-at "if[ \t\n]*(") + (ess-forward-sexp 2) + (progn + (ess-skip-blanks-forward t) + (ess-jump-expression))))) + + +;;;*;;; Function Declarations + +(defun ess-behind-defun-p () + (or (looking-at "function[ \t]*(") + (ess-behind-enclosed-defun-p))) + +(defun ess-behind-enclosed-defun-p () + (save-excursion + (and (ess-behind-call-p) + (ess-jump-inside-call) + (cl-some (lambda (arg) + (string-match "^function\\b" + (cdr arg))) + (ess-args-alist))))) + + +;;;*;;; Names / Objects / Expressions + +;; Should climb any names, including backquoted ones or those +;; containing `@' or `$'. Difficult to achieve with regexps, but +;; skipping chars is faster anyway. +(defun ess-climb-object () + (ess-save-excursion-when-nil + (let (climbed) + (ess-skip-blanks-backward) + ;; Backquoted names can contain any character + (if (and (memq (char-before) '(?` ?\" ?\')) + (ess-backward-sexp)) + (setq climbed t) + (while (cl-some (apply-partially '/= 0) + `(,(skip-syntax-backward "w_") + ,(skip-chars-backward "\"'"))) + (setq climbed t))) + ;; Recurse if we find an indexing char + (when (memq (char-before) '(?$ ?@)) + (forward-char -1) + (ess-climb-object)) + climbed))) + +;; Todo: split name and object climbing +(defun ess-climb-name () + (ess-climb-object)) + +;; This jumps both object names and atomic objects like strings or +;; numbers. +(defun ess-jump-object () + (cond + ;; Jump over object names + ((ess-jump-name)) + ;; Jump over strings)) + ((ess-save-excursion-when-nil + (skip-chars-forward " \t") + (memq (char-after) '(?\" ?\'))) + (ess-forward-sexp)))) + +(defun ess-jump-name () + (ess-save-excursion-when-nil + (let (climbed quote-char) + (skip-chars-forward " \t") + ;; Jump over backquoted names + (cond ((and (eq (char-after) ?`) + (looking-back ess-r-symbol-pattern + (1- (point)))) + (forward-char) + (setq climbed t)) + ((eq (char-after) ?`) + (forward-char) + (when (ess-while (not (memq (char-after) '(?` ?\C-J))) + (forward-char)) + (setq climbed t) + (forward-char))) + ;; Jump over regular names + ((when (/= 0 (skip-syntax-forward "w_")) + ;; Maybe point was inside backticks + (when (eq (char-after) ?`) + (forward-char)) + (setq climbed t)))) + climbed))) + +(defun ess-climb-expression (&optional ignore-ifelse) + (ess-save-excursion-when-nil + (or (ess-climb-block ignore-ifelse) + (ess-climb-call) + (ess-climb-object)))) + +(defun ess-jump-expression () + (or (ess-jump-block) + (ess-jump-call) + (ess-jump-object))) + +(provide 'ess-r-syntax) + +;;; ess-r-syntax.el ends here diff --git a/elpa/ess-20190121.1430/ess-r-xref.el b/elpa/ess-20190121.1430/ess-r-xref.el new file mode 100644 index 00000000..456df45f --- /dev/null +++ b/elpa/ess-20190121.1430/ess-r-xref.el @@ -0,0 +1,132 @@ +;;; ess-r-xref.el --- An xref backend for R. -*- lexical-binding: t -*- +;; +;; Author: Aaron Jacobs +;; Created: 21 January 2018 +;; Maintainer: ESS-core +;; +;; Keywords: languages, statistics, xref +;; +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; This file contains an xref backend for `ess-r-mode'. + +;;; Code: + +(require 'xref) +(require 'ess-inf) +(require 'ess-utils) +(require 'ess-r-package) +(require 'ess-tracebug) + +;; Silence the byte compiler. OK because this file is only loaded by ess-r-mode. +(declare-function inferior-ess-r-force "ess-r-mode") + + +(defvar ess-r-xref-pkg-sources nil + "Alist of R package->directory associations. +This variable is used as a cache of package->directory +associations, but could be used by the users for a more refined +control of package locations than `ess-r-package-library-paths'.") + +(defun ess-r-xref-backend () + "An `xref-backend-functions' implementation for `ess-r-mode'. +R's xref backend searches for `ess-r-package-library-paths' when +srcrefs point to temporary locations." + 'ess-r) + +(cl-defmethod xref-backend-identifier-at-point ((_backend (eql ess-r))) + (let ((sym (ess-symbol-at-point))) + (when sym + (symbol-name sym)))) + +(cl-defmethod xref-backend-definitions ((_backend (eql ess-r)) symbol) + (let ((xref (ess-r-xref--xref symbol))) + (when xref + (list xref)))) + +(cl-defmethod xref-backend-apropos ((_backend (eql ess-r))) + ;; Not yet supported. + nil) + +(cl-defmethod xref-backend-identifier-completion-table ((_backend (eql ess-r))) + (inferior-ess-r-force) + (ess-get-words-from-vector ".ess_all_functions()\n")) + +(defun ess-r-xref--srcref (symbol) + (inferior-ess-r-force) + ;; Look for `symbol' inside the package namespace + (let* ((pkg (ess-r-package-name)) + (pkg (if pkg + (concat "\"" pkg "\"") + "NULL"))) + (with-current-buffer (ess-command (format ".ess_srcref(\"%s\", %s)\n" symbol pkg)) + (goto-char (point-min)) + (when (re-search-forward "(" nil 'noerror) + (goto-char (match-beginning 0)) + (read (current-buffer)))))) + +(defun ess-r-xref--pkg-srcfile (symbol r-src-file) + "Look in the source directory of the R package containing symbol SYMBOL for R-SRC-FILE." + (let* ((env-name (ess-string-command (format ".ess_fn_pkg(\"%s\")\n" symbol))) + (pkg (if (string-equal env-name "") + (user-error "Can't find package for symbol %s" symbol) + env-name)) + (dir (or (assoc-default pkg ess-r-xref-pkg-sources) + (cond ((stringp ess-r-package-library-paths) + (expand-file-name pkg ess-r-package-library-paths)) + ((listp ess-r-package-library-paths) + (cl-loop for d in ess-r-package-library-paths + for p = (expand-file-name pkg d) + when (file-exists-p p) return p)) + (t (user-error "Invalid value of `ess-r-package-library-paths'"))))) + (file (when dir (expand-file-name r-src-file dir)))) + (when file + (unless (file-readable-p file) + (user-error "Can't read %s" file)) + ;; Cache package's source directory. + (unless (assoc pkg ess-r-xref-pkg-sources) + (push `(,pkg . ,dir) ess-r-xref-pkg-sources)) + file))) + +(defun ess-r-xref--xref (symbol) + "Create an xref for the source file reference of R symbol SYMBOL." + (let ((ref (ess-r-xref--srcref symbol))) + (when ref + (let ((file (nth 0 ref)) + (line (nth 1 ref)) + (col (nth 2 ref))) + (or + ;; 1) Result of ESS evaluation + (let* ((ess-ref (gethash file ess--srcrefs)) + (ess-buff (when ess-ref (ess--dbg-find-buffer (car ess-ref))))) + (when ess-buff + ;; FIXME: this breaks when eval is on larger spans than function + (xref-make symbol (xref-make-buffer-location ess-buff (nth 2 ess-ref))))) + ;; 2) Actual file location + (when (file-readable-p file) + (xref-make symbol (xref-make-file-location file line col))) + ;; 3) Temporary sources - truncate and locate in ess-r-package-library-paths + (when (string-match "/\\(R/.*\\)$" file) + (let ((pkg-file (ess-r-xref--pkg-srcfile symbol (match-string 1 file)))) + (when pkg-file + (xref-make symbol (xref-make-file-location + (expand-file-name pkg-file) line col)))))))))) + +(provide 'ess-r-xref) + +;;; ess-r-xref.el ends here diff --git a/elpa/ess-20190121.1430/ess-rd.el b/elpa/ess-20190121.1430/ess-rd.el new file mode 100644 index 00000000..24a92d53 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-rd.el @@ -0,0 +1,474 @@ +;; ess-rd.el --- Support for editing R documentation (Rd) source -*- lexical-binding: t; -*- + +;; Copyright (C) 1997--2005 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Author: KH +;; Created: 25 July 1997 +;; Maintainer: ESS-core + +;; This file is part of ESS (Emacs Speaks Statistics). + +;; This file is free software; you may 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 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 on the World +;; Wide Web at https://www.gnu.org/copyleft/gpl.html. You can also +;; obtain it by writing to the Free Software Foundation, Inc., 675 Mass +;; Ave, Cambridge, MA 02139, USA. + + +;;; Commentary: +;; + +;;; Code: +(require 'ess-custom) +(require 'ess-utils) +(require 'ess-help) +(require 'ess-inf) +;; Silence the byte compiler, see TODO below; can we remove these? +(defvar ess-help-r-sec-regex) +(defvar ess-help-r-sec-keys-alist) +(defvar ess-r-customize-alist) + +(defvar Rd-mode-abbrev-table nil + "Abbrev table for R documentation keywords. +All Rd mode abbrevs start with a grave accent (`).") +(if Rd-mode-abbrev-table + () + (define-abbrev-table 'Rd-mode-abbrev-table ()) + (define-abbrev Rd-mode-abbrev-table "`ag" "\\arguments") + (define-abbrev Rd-mode-abbrev-table "`al" "\\alias") + (define-abbrev Rd-mode-abbrev-table "`au" "\\author") + (define-abbrev Rd-mode-abbrev-table "`bf" "\\bold") + (define-abbrev Rd-mode-abbrev-table "`co" "\\code") + (define-abbrev Rd-mode-abbrev-table "`de" "\\describe") + (define-abbrev Rd-mode-abbrev-table "`dn" "\\description") + (define-abbrev Rd-mode-abbrev-table "`dt" "\\details") + (define-abbrev Rd-mode-abbrev-table "`em" "\\emph") + (define-abbrev Rd-mode-abbrev-table "`en" "\\enumerate") + (define-abbrev Rd-mode-abbrev-table "`ex" "\\examples") + (define-abbrev Rd-mode-abbrev-table "`fi" "\\file") + (define-abbrev Rd-mode-abbrev-table "`fo" "\\format") + (define-abbrev Rd-mode-abbrev-table "`it" "\\item") + (define-abbrev Rd-mode-abbrev-table "`iz" "\\itemize") + (define-abbrev Rd-mode-abbrev-table "`kw" "\\keyword") + (define-abbrev Rd-mode-abbrev-table "`li" "\\link") + (define-abbrev Rd-mode-abbrev-table "`me" "\\method") + (define-abbrev Rd-mode-abbrev-table "`na" "\\name") + (define-abbrev Rd-mode-abbrev-table "`no" "\\note") + (define-abbrev Rd-mode-abbrev-table "`re" "\\references") + (define-abbrev Rd-mode-abbrev-table "`sa" "\\seealso") + (define-abbrev Rd-mode-abbrev-table "`se" "\\section") + (define-abbrev Rd-mode-abbrev-table "`so" "\\source") + (define-abbrev Rd-mode-abbrev-table "`ss" "\\subsection") + (define-abbrev Rd-mode-abbrev-table "`sy" "\\synopsis") + (define-abbrev Rd-mode-abbrev-table "`ta" "\\tabular") + (define-abbrev Rd-mode-abbrev-table "`ti" "\\title") + (define-abbrev Rd-mode-abbrev-table "`us" "\\usage") + (define-abbrev Rd-mode-abbrev-table "`va" "\\value")) + +(defvar Rd-mode-syntax-table + (let ((tab (copy-syntax-table text-mode-syntax-table))) + (modify-syntax-entry ?\\ "\\" tab) + (modify-syntax-entry ?\{ "(}" tab) + (modify-syntax-entry ?\} "){" tab) + ;; Nice for editing, not for parsing ... + (modify-syntax-entry ?\( "()" tab) + (modify-syntax-entry ?\) ")(" tab) + (modify-syntax-entry ?\[ "(]" tab) + (modify-syntax-entry ?\] ")[" tab) + ;; To get strings right + ;; (modify-syntax-entry ?\' "\"" Rd-mode-syntax-table) + (modify-syntax-entry ?\" "\"" tab) + ;; To make abbrevs starting with a grave accent work ... + (modify-syntax-entry ?\` "w" tab) + ;; Comments + (modify-syntax-entry ?\% "<" tab) + (modify-syntax-entry ?\n ">" tab) + tab) + "Syntax table for `Rd-mode'.") + +(defvar Rd-mode-parse-syntax-table + (let ((tab (copy-syntax-table Rd-mode-syntax-table))) + ;; To make parse-partial-sexps do the thing we want for computing + ;; indentations + (modify-syntax-entry ?\( "_" tab) + (modify-syntax-entry ?\) "_" tab) + (modify-syntax-entry ?\[ "_" tab) + (modify-syntax-entry ?\] "_" tab) + tab) + "Syntax table for parsing Rd mode.") + +(defvar Rd-section-names + '("Rdversion" "arguments" "alias" "author" "concept" "describe" "description" + "details" "docType" "encoding" "enumerate" "examples" "format" + "itemize" "keyword" "name" "note" "preformatted" "references" + "seealso" "section" "source" "subsection" "synopsis" + "tabular" "title" "usage" + "value")) + +(defvar Rd-keywords + '( + ;; the next two lines: only valid in R <= 2.8.1 + ;; commented out on 2011-01-14 for ESS version 5.13: + ;; "Alpha" "Gamma" "alpha" "beta" "epsilon" "lambda" "mu" "pi" "sigma" + ;; "ge" "le" "left" "right" + ;; + "R" "RdOpts" "S3method" "S4method" "Sexpr" "acronym" + "bold" "cite" "code" "command" "cr" "dQuote" "deqn" "dfn" "dontrun" + "dontshow" "donttest" "dots" "email" "emph" "enc" "env" "eqn" "figure" "file" + "href" "if" "ifelse" + "item" "kbd" "ldots" "linkS4class" "link" "method" + "newcommand" "option" "out" + "pkg" "sQuote" "renewcommand" + "samp" "strong" "tab" "url" "var" "verb" + ;; System macros (from /share/Rd/macros/system.Rd ): + "CRANpkg" "PR" "sspace" "doi" + "packageTitle" "packageDescription" "packageAuthor" + "packageMaintainer" "packageDESCRIPTION" "packageIndices" + )) + +(defvar Rd-font-lock-keywords + (list + (cons + (concat "\\\\\\(" + (mapconcat 'identity Rd-section-names "\\|") + "\\>\\)") + 'font-lock-reference-face) ; Rd-bold-face + (cons + (concat "\\\\\\(" + (mapconcat 'identity Rd-keywords "\\|") + "\\>\\)") + 'font-lock-keyword-face) + '("^#\\(ifn?def\\)\\s-+\\(\\sw+\\)" + (1 font-lock-builtin-face) + (2 font-lock-variable-name-face nil t)) + '("^#\\(endif\\)" 1 font-lock-builtin-face)) + "Additional Rd expressions to highlight.") + +(defvar Rd-indent-level 2 + "Indentation of Rd code with respect to containing blocks.") + +(defvar Rd-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "\t" 'indent-according-to-mode) + (define-key map "\C-j" 'reindent-then-newline-and-indent) + (define-key map "\C-m" 'reindent-then-newline-and-indent) + (define-key map "\C-c\C-p" 'Rd-preview-help) + (define-key map "\C-c\C-j" 'Rd-mode-insert-item) + (define-key map "\C-c\C-e" 'Rd-mode-insert-skeleton) + (define-key map "\C-c\C-f" 'Rd-font) + ;; ^C^F ^E : \emph{ . } + ;; ^C^F ^C : \code{ . } + ;; ^C^F ^L : \link{ . } + ;; ^C^F L : \code{\link{ . }} etc + (define-key map "\C-c\C-s" 'Rd-mode-insert-section) + (define-key map "\C-c\C-n" 'ess-eval-line-visibly-and-step) + (define-key map "\C-c\C-r" 'ess-eval-region) + (define-key map "\C-c\C-c" 'ess-eval-region-or-function-or-paragraph-and-step) + (define-key map "\C-\M-x" 'ess-eval-region-or-function-or-paragraph) + (define-key map "\C-c\C-v" 'ess-display-help-on-object) + (define-key map "\C-c\C-w" 'ess-switch-process); is on C-c C-s in ess-mode.. + (define-key map "\C-c\C-y" 'ess-switch-to-ESS) + (define-key map "\C-c\C-z" 'ess-switch-to-end-of-ESS) + map) + "Keymap used in Rd mode.") + +(defvar Rd-mode-menu + (list "Rd" + ["Markup [word]" Rd-font t] + ["Insert Item" Rd-mode-insert-item t] + ["Insert Section" Rd-mode-insert-section t] + ["Insert Skeleton" Rd-mode-insert-skeleton t] + "-" + ["Preview" Rd-preview-help t] + "-" + ["Eval Line" ess-eval-line-visibly-and-step t] + ["Eval Region" ess-eval-region t] + ["Switch to ESS Process" ess-switch-to-ESS t] + ["Switch the ESS Process" ess-switch-process t] + ["Switch to end{ESS Pr}" ess-switch-to-end-of-ESS t] + "-" + ["Toggle Abbrev Mode" abbrev-mode t] + ["Toggle Auto-Fill Mode" auto-fill-mode t] + "-" + ["Submit Bug Report" Rd-submit-bug-report t] + "-" + ["Describe Rd Mode" Rd-describe-major-mode t]) + "Menu used in Rd mode.") + +(defvar Rd-mode-hook nil + "Hook to be run when Rd mode is entered.") + +(defvar Rd-to-help-command "R CMD Rd2txt" + "Shell command for converting R documentation source to help text.") + + +(defvar Rd-font-list + '((?\C-b "\\bold{" "}") + (?\C-c "\\code{" "}") + (?\C-e "\\emph{" "}") + (?\C-l "\\link{" "}") + (?l "\\code{\\link{" "}}") + (?\C-m "\\email{" "}") + (?\C-q "\\eqn{" "}") + (?\C-u "\\url{" "}") + ) + "List of \"fonts\" used by `Rd-font'. +Each entry is a list. The first element is the key to activate +the font. The second element is the string to insert before +point, and the third element is the string to insert after +point.") + + +;;;###autoload +(define-derived-mode Rd-mode text-mode "Rd" + "Major mode for editing R documentation source files. + +Type \\[list-abbrevs] to display the built-in abbrevs for Rd +keywords.To automatically turn on the abbrev(iate) features, add +the following to your Emacs configuration file: + + (add-hook 'Rd-mode-hook #'abbrev-mode)" + (setq ess-language "S" ess-dialect "R") + (ess-setq-vars-local ess-r-customize-alist) + + (setq-local indent-line-function 'Rd-mode-indent-line) + (setq fill-column 72) + (setq-local comment-start-skip "\\s<+\\s-*") + (setq-local comment-start "% ") + (setq-local comment-end "") + (setq font-lock-defaults + '(Rd-font-lock-keywords nil nil)) + + ;; Here is a workaround for an Emacs bug related to indirect buffers and + ;; spurious lockfiles that rears its ugly head with .Rd files + ;; https://lists.gnu.org/archive/html/bug-gnu-emacs/2013-02/msg01368.html + ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=14328 + (setq-local create-lockfiles nil) + + (require 'easymenu) + (easy-menu-define Rd-mode-menu-map Rd-mode-map + "Menu keymap for Rd mode." Rd-mode-menu) + + (turn-on-auto-fill)) + +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.Rd\\'" . Rd-mode)) + +;; FIXME: The following should be moved to ess-utils.el, no? (MM thinks) +(defun ess-point (position) + "Return the value of point at a certain POSITION." + (save-excursion + (cond + ((eq position 'bol) (beginning-of-line)) + ((eq position 'eol) (end-of-line)) + ((eq position 'boi) (back-to-indentation)) + ((eq position 'bonl) (forward-line 1)) + ((eq position 'bopl) (forward-line -1)) + (t (error "Unknown buffer position requested: %s" position))) + (point))) + +(defun Rd-describe-major-mode () + "Describe the current major mode." + (interactive) + (describe-function major-mode)) + +(defun Rd-mode-in-verbatim-p () + (let ((pos (point))) + (save-excursion + (if (and (re-search-backward + "\\\\\\(usage\\|examples\\|synopsis\\)" nil t) + (re-search-forward "\\s(" nil t)) + (condition-case () + (progn + (up-list 1) + (< pos (point))) + (error t)) + nil)))) + +(defun Rd-mode-in-preprocessor-line-p () + (save-excursion + (beginning-of-line) + (looking-at "[ \t]*#\\(ifdef\\|endif\\)"))) + +(defun Rd-mode-calculate-indent () + "Return appropriate indentation for current line in Rd mode." + (interactive) + (save-excursion + (beginning-of-line) + (cond + ((Rd-mode-in-verbatim-p) + ;; Don't do anything in verbatims + nil) + ((Rd-mode-in-preprocessor-line-p) + ;; Indent to 0 + 0) + (t + (let ((p (progn + (re-search-forward "[ \t]*\\s)*" (ess-point 'eol) t) + (point)))) + (if (or (< (forward-line -1) 0) + (Rd-mode-in-verbatim-p)) + 0 + (set-syntax-table Rd-mode-parse-syntax-table) + (while (and (or (looking-at "[ \t]*$") + (Rd-mode-in-preprocessor-line-p)) + (not (bobp))) + (forward-line -1)) + (re-search-forward "[ \t]*\\s)*" (ess-point 'eol) t) + (prog1 + (+ (current-indentation) + (* (car (parse-partial-sexp (point) p)) + Rd-indent-level)) + (set-syntax-table Rd-mode-syntax-table)))))))) + +(defun Rd-mode-indent-line () + "Indent current line as Rd source." + (interactive) + (let ((ic (Rd-mode-calculate-indent)) + (rp (- (current-column) (current-indentation)))) + (if ic ; Not inside a verbatim + (if (< ic 0) + (error "Unmatched parenthesis") + (indent-line-to ic) + (if (> rp 0) + (move-to-column (+ ic rp))))))) + +(defun Rd-mode-insert-item () + (interactive) + (reindent-then-newline-and-indent) + (insert "\\item{") + ) + +(defun Rd-mode-insert-section () + (interactive) + (let ((s (ess-completing-read + "Insert section: " + (mapcar (lambda (x) (cons x x)) Rd-section-names) + nil t))) + (if (string= s "") + (progn (insert "\\section{}{") (backward-char 2)) + (insert (format "\\%s{" s))))) + +(defun Rd-mode-insert-skeleton () + (interactive) + ;; Hmm: in theory this should be kept in sync with prompt() + ;; --- maybe using prompt() [or promptClass()...] would be better anyway?! + (insert "\\name{}\n") + (insert "\\alias{}\n") + (insert "\\title{}\n") + (insert "\\description{\n}\n") + (insert "\\usage{\n}\n") + (insert "\\arguments{\n}\n") + (insert "\\value{\n}\n") + (insert "\\details{\n}\n") + (insert "\\references{\n}\n") + (insert "\\seealso{\n}\n") + (insert "\\examples{\n}\n") + (insert "\\author{}\n") + (insert "\\keyword{}\n")) + +;; This is an `easy' version of (defun TeX-font ..) in AUCtex's tex.el ; +;; see TeX-font-list and also LaTeX-font-list in latex.el + +(defun Rd-font (what) + "Insert template for font command. +WHAT determines the font to use, as specified by `Rd-font-list'." + (interactive "c") + ;;TeX had : (Rd-update-style) + (let* ((entry (assoc what Rd-font-list)) + (before (nth 1 entry)) + (after (nth 2 entry))) + (cond ((null entry) ;; help on possibilities : + (let ((help + (concat + "Rd Markup (available from C-c C-f):\n\n\t" + "KEY Rd-Markup\n\n" + (mapconcat + (lambda (entry) + ;; A textual description of an ENTRY in TeX-font-list. + (concat (format "%11s " + (key-description + (char-to-string (nth 0 entry)))) + (format "%14s %-3s" + (nth 1 entry) (nth 2 entry)))) + Rd-font-list "\n")))) + (with-output-to-temp-buffer "*Help*" + (set-buffer "*Help*") + (insert help)))) + + ((region-active-p) + (save-excursion + (cond ((> (mark) (point)) + (insert before) + (goto-char (mark)) + (insert after)) + (t + (insert after) + (goto-char (mark)) + (insert before))))) + (t + (insert before) + (save-excursion + (insert after)))))) + +(defun Rd-preview-help (&optional via-shell) + "Preview the current Rd buffer contents as help. +If optional VIA-SHELL is set, using `Rd-to-help-command'. +If the current buffer is not associated with a file, create a +temporary one in `temporary-file-directory'." + (interactive "P") + (require 'ess-help) + (let ((file buffer-file-name) + (pbuf (get-buffer-create "R Help Preview")) + del-p) + (unless file + (setq file (make-temp-file "RD_" nil ".Rd")) + (write-region (point-min) (point-max) file) + (setq del-p t)) + + (if via-shell ;; FIXME eventually get rid of this option + ;; only method in ESS <= 14.09 -- calls "R" even if in "R-devel"; slower + (let ((shcmd (format "%s '%s'" Rd-to-help-command file))) + (set-buffer pbuf) + (erase-buffer) + (ess-write-to-dribble-buffer + (format "Rd-preview-help: (shell-command |%s| t)" shcmd)) + (shell-command shcmd t)) + ;; else directly: + (ess-force-buffer-current "R process to use: ") + (ess-command (format ".ess_Rd2txt(\"%s\")\n" file) pbuf) + (set-buffer pbuf)) + + ;; FIXME(2): once got rid of via-shell, consider + ;; (ess--flush-help-into-current-buffer file "tools::Rd2txt(\"%s\")\n") + ;; instead of all this : + (ess-setq-vars-local ess-r-customize-alist) + ;; mostly cut'n'paste from ess--flush-help* (see FIXME(2)): + (ess-help-underline) + (ess--help-major-mode) + ;; FIXME: Is this really needed? + (setq ess-help-sec-regex ess-help-r-sec-regex + ess-help-sec-keys-alist ess-help-r-sec-keys-alist) + (goto-char (point-min)) + (set-buffer-modified-p 'nil) + (setq buffer-read-only t) + (setq truncate-lines nil) + (when del-p (delete-file file)) + (unless (get-buffer-window pbuf 'visible) + (display-buffer pbuf t)))) + +(define-obsolete-function-alias 'Rd-submit-bug-report 'ess-submit-bug-report "2018-08-16") + +(provide 'ess-rd) + +;;; ess-rd.el ends here diff --git a/elpa/ess-20190121.1430/ess-rdired.el b/elpa/ess-20190121.1430/ess-rdired.el new file mode 100644 index 00000000..e226d9ca --- /dev/null +++ b/elpa/ess-20190121.1430/ess-rdired.el @@ -0,0 +1,279 @@ +;;; ess-rdired.el --- prototype object browser for R, looks like dired mode. -*- lexical-binding: t; -*- + +;; Copyright (C) 2002--2019 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, Stephen Eglen, and J. Alexander Branham. + +;; Author: Stephen Eglen +;; Created: Thu 24 Oct 2002 +;; Maintainer: ESS-core + +;; This file is part of ESS + +;; This file is not part of GNU Emacs. + +;; ess-rdired.el 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. + +;; ess-rdired.el 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 +;; https://www.r-project.org/Licenses/ + +;; This provides a dired-like buffer for R objects. Instead of +;; operating on files, we operate on R objects in the current +;; environment. Objects can be viewed, edited, deleted, plotted and +;; so on. + +;;; Commentary: + +;; Do "M-x R" to start an R session, then create a few variables: +;; +;; s <- sin(seq(from=0, to=8*pi, length=100)) +;; x <- c(1, 4, 9) +;; y <- rnorm(20) +;; z <- TRUE + +;; Then in Emacs, do "M-x ess-rdired" and you should see the following in +;; the buffer *R dired*: +;; Name Class Length Size +;; s numeric 100 848 bytes +;; x numeric 3 80 bytes +;; y numeric 20 208 bytes +;; z logical 1 56 bytes + +;; Type "?" in the buffer to see the documentation. e.g. when the +;; cursor is on the line for `s', type 'p' to plot it, or `v' to view +;; its contents in a buffer. Then type 'd' to delete it. + +;; How it works. + +;; Most of the hardwork is done by the R routine .rdired.objects(), +;; which, when called, produces the list of objects in a tidy format. +;; This function is stored within the Lisp variable `ess-rdired-objects'. + +;; Todo - How to select alternative environments? Currently only +;; shows objects in the .GlobalEnv? See BrowseEnv() in 1.6.x for way +;; of browsing other environments. + +;; Todo - problem with fix -- have to wait for fix() command to return +;; before *R* buffer can be used again. This can get stuck, umm. not +;; sure what is going wrong here. Maybe add a hook to the temp buffer +;; so that when buffer is killed, we send an instruction to R to +;; update the value of the variable to the contents of the buffer. +;; This way *R* doesn't have to wait. + +;; Todo - small bug in .rdired.objects -- if we have a variable called +;; `my.x', its value is replaced by the value of my.x used in the +;; sapply() calls within .rdired.objects(). + +;;; Code: + +(require 'ess-custom) +(require 'ess-inf) + +(defvar ess-rdired-objects "local({.rdired.objects <- function(objs) { + if (length(objs)==0) { + \"No objects to view!\" + } else { + mode <- sapply(objs, function(my.x) { + eval( parse( text=sprintf('data.class(get(\"%s\"))', my.x))) }) + length <- sapply(objs, function(my.x) { + eval( parse( text=sprintf('length(get(\"%s\"))', my.x))) }) + size <- sapply(objs, function(my.x) { + eval( parse( text=sprintf('format(object.size(get(\"%s\")), units=\"b\")', my.x))) }) + d <- data.frame(mode, length, size) + + var.names <- row.names(d) + + ## If any names contain spaces, we need to quote around them. + quotes = rep('', length(var.names)) + spaces = grep(' ', var.names) + if (any(spaces)) + quotes[spaces] <- '\"' + var.names = paste(quotes, var.names, quotes, sep='') + row.names(d) <- paste(' ', var.names, sep='') + d + } +}; cat('\n'); print(.rdired.objects(ls(envir = .GlobalEnv)))})\n" + "Function to call within R to print information on objects. +The last line of this string should be the instruction to call +the function which prints the output for rdired.") + +(defvar ess-rdired-buffer "*R dired*" + "Name of buffer for displaying R objects.") + +(defvar ess-rdired-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "d" 'ess-rdired-delete) + (define-key map "x" 'ess-rdired-delete) + (define-key map "v" 'ess-rdired-view) + (define-key map "V" 'ess-rdired-View) + (define-key map "p" 'ess-rdired-plot) + (define-key map "y" 'ess-rdired-type) + (define-key map "\C-c\C-s" 'ess-rdired-switch-process) + (define-key map "\C-c\C-y" 'ess-switch-to-ESS) + (define-key map "\C-c\C-z" 'ess-switch-to-end-of-ESS) + map)) + +(define-derived-mode ess-rdired-mode tabulated-list-mode "Rdired" + "Major mode for output from `ess-rdired'. +`ess-rdired' provides a dired-like mode for R objects. It shows the +list of current objects in the current environment, one-per-line. You +can then examine these objects, plot them, and so on." + (setq mode-name (concat "RDired " ess-local-process-name)) + (setq tabulated-list-format + `[("Name" 18 t) + ("Class" 10 t) + ("Length" 10 ess-rdired--length-predicate) + ("Size" 10 ess-rdired--size-predicate)]) + (add-hook 'tabulated-list-revert-hook #'ess-rdired nil t) + (tabulated-list-init-header) + (tabulated-list-print)) + +;;;###autoload +(defun ess-rdired () + "Show R objects from the global environment in a separate buffer. +You may interact with these objects, see `ess-rdired-mode' for +details." + (interactive) + (let ((proc ess-local-process-name) + (buff (get-buffer-create ess-rdired-buffer))) + (ess-command ess-rdired-objects buff nil nil nil (get-buffer-process proc)) + (with-current-buffer buff + (setq ess-local-process-name proc) + (goto-char (point-min)) + (let ((buffer-read-only nil) + text) + ;; Delete two lines. One filled with +'s from R's prompt + ;; printing, the other with the header info from the data.frame + (delete-region (point-min) (1+ (point-at-eol 2))) + (setq text (split-string (buffer-string) "\n" t "\n")) + (delete-region (point-min) (point-max)) + (setq tabulated-list-entries + (mapcar #'ess-rdired--tabulated-list-entries text)) + (ess-rdired-mode))) + (pop-to-buffer buff))) + +(defun ess-rdired--tabulated-list-entries (text) + "Return a value suitable for `tabulated-list-entries' from TEXT." + (let (name class length size) + (if (not (string-match-p " +\"" text)) + ;; Normal-world + (setq text (split-string text " " t) + name (nth 0 text) + text (cdr text)) + ;; Else, someone has spaces in their variable names + (string-match "\"\\([^\"]+\\)" text) + (setq name (substring (match-string 0 text) 1) + text (split-string (substring text (1+ (match-end 0))) " " t))) + (setq class (nth 0 text) + length (nth 1 text) + size (nth 2 text)) + (list name + `[(,name + help-echo "mouse-2, RET: View this object" + action ess-rdired-view) + ,class + ,length + ,size]))) + +(defun ess-rdired-edit () + "Edit the object at point." + (interactive) + (ess-command (concat "edit(" (tabulated-list-get-id) ")\n"))) + +(defun ess-rdired-view (&optional _button) + "View the object at point." + (interactive) + (ess-execute (ess-rdired-get (tabulated-list-get-id)) + nil "R view" )) + +(defun ess-rdired-get (name) + "Generate R code to get the value of the variable NAME. +This is complicated because some variables might have spaces in their names. +Otherwise, we could just pass the variable name directly to *R*." + (concat "get(" (ess-rdired-quote name) ")") + ) + +(defun ess-rdired-quote (name) + "Quote NAME if not already quoted." + (if (equal (substring name 0 1) "\"") + name + (concat "\"" name "\""))) + +(defun ess-rdired-View () + "View the object at point in its own buffer. +Like `ess-rdired-view', but the object gets its own buffer name." + (interactive) + (let ((objname (tabulated-list-get-id))) + (ess-execute (ess-rdired-get objname) + nil (concat "R view " objname )))) + +(defun ess-rdired-plot () + "Plot the object on current line." + (interactive) + (let ((objname (tabulated-list-get-id))) + (ess-eval-linewise (format "plot(%s)" (ess-rdired-get objname))))) + +(defun ess-rdired-type () + "Run the mode() on command at point." + (interactive) + (let ((objname (tabulated-list-get-id)) + ;; create a temp buffer, and then show output in echo area + (tmpbuf (get-buffer-create "**ess-rdired-mode**"))) + (if objname + (progn + (ess-command (concat "mode(" (ess-rdired-get objname) ")\n") + tmpbuf ) + (set-buffer tmpbuf) + (message (concat + objname ": " + (buffer-substring (+ 4 (point-min)) (1- (point-max))))) + (kill-buffer tmpbuf))))) + +(defalias 'ess-rdired-expunge #'ess-rdired-delete) + +(defun ess-rdired-delete () + "Delete the object at point." + (interactive) + (let ((objname (tabulated-list-get-id))) + (when (yes-or-no-p (format "Really delete %s? " objname)) + (ess-eval-linewise (format "rm(%s)" (ess-rdired-quote objname)) nil nil nil t) + (revert-buffer)))) + +(defun ess-rdired-switch-process () + "Switch to examine different *R* process. +If you have multiple R processes running, e.g. *R*, *R:2*, *R:3*, you can +use this command to choose which R process you would like to examine. +After switching to a new process, the buffer is updated." + (interactive) + (ess-switch-process) + (ess-rdired)) + +(defun ess-rdired--length-predicate (A B) + "Enable sorting by length in `ess-rdired' buffers. +Return t if A's length is < than B's length." + (let ((lenA (aref (cadr A) 2)) + (lenB (aref (cadr B) 2))) + (< (string-to-number lenA) (string-to-number lenB)))) + +(defun ess-rdired--size-predicate (A B) + "Enable sorting by size in `ess-rdired' buffers. +Return t if A's size is < than B's size." + (let ((lenA (aref (cadr A) 3)) + (lenB (aref (cadr B) 3))) + (< (string-to-number lenA) (string-to-number lenB)))) + +(define-obsolete-function-alias 'ess-rdired-quit #'quit-window "ESS 19.04") +(define-obsolete-function-alias 'ess-rdired-next-line #'forward-to-indentation "ESS 19.04") +(define-obsolete-function-alias 'ess-rdired-previous-line #'backward-to-indentation "ESS 19.04") +(define-obsolete-function-alias 'ess-rdired-move-to-object #'back-to-indentation "ESS 19.04") + +(provide 'ess-rdired) + +;;; ess-rdired.el ends here diff --git a/elpa/ess-20190121.1430/ess-roxy.el b/elpa/ess-20190121.1430/ess-roxy.el new file mode 100644 index 00000000..007395b3 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-roxy.el @@ -0,0 +1,1049 @@ +;;; ess-roxy.el --- convenient editing of in-code roxygen documentation +;; +;; Copyright (C) 2009--2018 Henning Redestig, A.J. Rossini, Richard +;; M. Heiberger, Martin Maechler, Kurt Hornik, Rodney Sparapani, Stephen +;; Eglen, Vitalie Spinu, and J. Alexander Branham. +;; +;; Author: Henning Redestig +;; Keywords: convenience, tools +;; +;; This file is part of ESS +;; +;; This program 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 3 of the +;; License, or (at your option) any later version. +;; +;; This program 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. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see +;; . + + +;;; Commentary: + +;; Lots of inspiration from doc-mode, +;; https://nschum.de/src/emacs/doc-mode/ +;; +;; Features:: +;; +;; - basic highlighting +;; - generating and updating templates from function definition and customized default template +;; - C-c C-o C-o :: update template +;; - navigating and filling roxygen fields +;; - C-c TAB, M-q, C-a, ENTER, M-h :: advised tag completion, fill-paragraph, +;; ess-roxy-move-beginning-of-line, newline-and-indent +;; - C-c C-o n,p :: next, previous roxygen entry +;; - C-c C-o C-c :: Unroxygen region. Convenient for editing examples. +;; - folding visibility using hs-minor-mode +;; - TAB :: advised ess-ident-command, hide entry if in roxygen doc. +;; - preview +;; - C-c C-o C-r :: create a preview of the Rd file as generated +;; using roxygen +;; - C-c C-o C-t :: create a preview of the Rd HTML file as generated +;; using roxygen and the tools package +;; - C-c C-o t :: create a preview of the Rd text file +;; +;; Known issues: +;; +;; - hideshow mode does not work very well. In particular, if ordinary +;; comments precede a roxygen entry, then both will be hidden in the +;; same overlay from start and not unfoldable using TAB since the +;; roxygen prefix is not present. The planned solution is implement +;; a replacement for hideshow. +;; - only limited functionality for S4 documentation. + +;;; Code: + +(require 'ess-utils) +(require 'ess-custom) +(require 'ess-utils) +(require 'hideshow) +(require 'outline) +(eval-when-compile + (require 'cl-lib) + (require 'subr-x)) +(require 'ess-rd) +(require 'ess-r-syntax) + +(defvar roxy-str) +(defvar ess-r-mode-syntax-table) +(declare-function ess-fill-args "ess-r-mode") +(declare-function ess-fill-continuations "ess-r-mode") + +(defvar-local ess-roxy-re nil + "Regular expression to recognize roxygen blocks.") + + +;;*;; Roxy Minor Mode + +(defvar ess-roxy-mode-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "C-c C-o h") 'ess-roxy-hide-all) + (define-key map (kbd "C-c C-o n") 'ess-roxy-next-entry) + (define-key map (kbd "C-c C-o p") 'ess-roxy-previous-entry) + (define-key map (kbd "C-c C-o C-o") 'ess-roxy-update-entry) + (define-key map (kbd "C-c C-o C-r") 'ess-roxy-preview-Rd) + (define-key map (kbd "C-c C-o C-w") 'ess-roxy-preview-HTML) + (define-key map (kbd "C-c C-o C-t") 'ess-roxy-preview-text) + (define-key map (kbd "C-c C-o C-c") 'ess-roxy-toggle-roxy-region) + (define-key map [remap back-to-indentation] 'ess-roxy-goto-end-of-roxy-comment) + (define-key map [remap newline] 'ess-roxy-newline-and-indent) + (define-key map [remap newline-and-indent] 'ess-roxy-newline-and-indent) + (define-key map [remap ess-indent-command] 'ess-roxy-ess-indent-command) + (define-key map [remap move-beginning-of-line] 'ess-roxy-move-beginning-of-line) + (define-key map [remap beginning-of-visual-line] 'ess-roxy-move-beginning-of-line) + map)) + +(defvar ess-roxy-font-lock-keywords nil + "Cache set by `ess-roxy-generate-keywords'. +Used to remove keywords added by function `ess-roxy-mode'.") + +(defun ess-roxy-generate-keywords () + "Generate a list of keywords suitable for `font-lock-add-keywords'." + (setq-local ess-roxy-font-lock-keywords + `((,(concat ess-roxy-re " *\\([@\\]" + (regexp-opt ess-roxy-tags-param t) + "\\)\\>") + (1 'font-lock-keyword-face prepend)) + (,(concat ess-roxy-re " *\\(@" + (regexp-opt '("param" "importFrom" "importClassesFrom" + "importMethodsFrom") + 'words) + "\\)\\(?:[ \t]+\\(\\(?:\\sw+,?\\)+\\)\\)") + (1 'font-lock-keyword-face prepend) + (3 'font-lock-variable-name-face prepend)) + (,(concat "[@\\]" (regexp-opt ess-roxy-tags-noparam t) "\\>") + (0 'font-lock-variable-name-face prepend)) + (,(concat ess-roxy-re) + (0 'bold prepend))))) + +(defvar ess-roxy-fold-examples nil + "Whether to fold `@examples' when opening a buffer. +Use you regular key for `outline-show-entry' to reveal it.") + +;;;###autoload +(define-minor-mode ess-roxy-mode + "Minor mode for editing ROxygen documentation." + :keymap ess-roxy-mode-map + (if ess-roxy-mode + ;; Turn on `ess-roxy-mode': + (progn + (setq-local ess-roxy-re (concat "^" (string-trim comment-start) "+'")) + (font-lock-add-keywords nil (ess-roxy-generate-keywords)) + (add-hook 'completion-at-point-functions #'ess-roxy-complete-tag 'local) ;; should be first + ;; Hideshow Integration + (when ess-roxy-hide-show-p + (hs-minor-mode 1) + (when ess-roxy-start-hidden-p + (ess-roxy-hide-all))) + ;; Outline Integration + (when ess-roxy-fold-examples + (ess-roxy-hide-all-examples)) + ;; Autofill + (setq-local paragraph-start (concat "\\(" ess-roxy-re "\\)*" paragraph-start)) + (setq-local paragraph-separate (concat "\\(" ess-roxy-re "\\)*" paragraph-separate)) + (setq-local adaptive-fill-function 'ess-roxy-adaptive-fill-function) + ;; Hooks + (add-hook 'ess-presend-filter-functions 'ess-roxy-remove-roxy-re nil t)) + ;; Turn off `ess-roxy-mode': + ;; Hideshow + (when (and ess-roxy-hide-show-p hs-minor-mode) + (hs-show-all) + (hs-minor-mode)) + ;; Hooks + (remove-hook 'ess-presend-filter-functions 'ess-roxy-remove-roxy-re t) + (font-lock-remove-keywords nil ess-roxy-font-lock-keywords) + ;; (setq-local syntax-propertize-function nil) + ;; (setq-local font-lock-fontify-region-function nil) + ;; (setq-local font-lock-unfontify-region-function nil) + ) + ;; Regardless of turning on or off we need to re-fontify the buffer: + (when font-lock-mode + (font-lock-flush))) + + + +;;*;; Outline Integration + +(defvar ess-roxy-outline-regexp "^#+' +@examples\\|^[^#]") + +(defun ess-roxy-substitute-outline-regexp (command) + (let ((outline-regexp (if (ess-roxy-entry-p "examples") + ess-roxy-outline-regexp + outline-regexp))) + (funcall command))) + +(declare-function outline-cycle "outline-magic") +(defun ess-roxy-cycle-example () + (interactive) + (unless (featurep 'outline-magic) + (error "Please install and load outline-magic")) + ;; Don't show children when cycling @examples + (let ((this-command 'outline-cycle-overwiew)) + (ess-roxy-substitute-outline-regexp #'outline-cycle))) + +(defun ess-roxy-show-example () + (interactive) + (ess-roxy-substitute-outline-regexp #'outline-show-entry)) + +(defun ess-roxy-hide-example () + (interactive) + (ess-roxy-substitute-outline-regexp #'outline-hide-entry)) + +(defun ess-roxy-hide-all-examples () + (interactive) + (save-excursion + (goto-char (point-min)) + (while (re-search-forward "^#+' +@examples\\b" nil t) + ;; Handle edge cases + (when (ess-roxy-entry-p "examples") + (ess-roxy-hide-example))))) + +(when (featurep 'outline-magic) + (substitute-key-definition 'outline-cyle + 'ess-roxy-cyle-example + ess-roxy-mode-map outline-mode-menu-bar-map)) + +(substitute-key-definition 'outline-hide-entry + 'ess-roxy-hide-example + ess-roxy-mode-map outline-minor-mode-map) + +(substitute-key-definition 'outline-show-entry + 'ess-roxy-show-example + ess-roxy-mode-map outline-minor-mode-map) + + +;;*;; Function definitions + +(defun ess-back-to-roxy () + "Go to roxy prefix." + (end-of-line) + (re-search-backward (concat ess-roxy-re " ?") (point-at-bol)) + (goto-char (match-end 0))) + +(defun ess-roxy-beg-of-entry () + "Get point number at start of current entry, 0 if not in entry." + (save-excursion + (let (beg) + (beginning-of-line) + (setq beg -1) + (if (not (ess-roxy-entry-p)) + (setq beg 0) + (setq beg (point))) + (while (and (= (forward-line -1) 0) (ess-roxy-entry-p)) + (setq beg (point))) + beg))) + +(defun ess-roxy-in-header-p () + "True if point is the description / details field." + (save-excursion + (let ((res t) + (cont (ess-roxy-entry-p))) + (beginning-of-line) + (while cont + (if (looking-at (concat ess-roxy-re " *[@].+")) + (progn (setq res nil) + (setq cont nil))) + (setq cont (and (= (forward-line -1) 0) (ess-roxy-entry-p))) + )res))) + +(defun ess-roxy-beg-of-field () + "Get point number at beginning of current field, 0 if not in entry." + (save-excursion + (let (cont beg) + (beginning-of-line) + (setq beg 0) + (setq cont t) + (while (and (ess-roxy-entry-p) cont) + (setq beg (point)) + (if (looking-at (concat ess-roxy-re " *[@].+")) + (setq cont nil)) + (if (ess-roxy-in-header-p) + (if (looking-at (concat ess-roxy-re " *$")) + (progn + (forward-line 1) + (setq beg (point)) + (setq cont nil)))) + (if cont (setq cont (= (forward-line -1) 0)))) + beg))) + +(defun ess-roxy-end-of-entry () + "Get point number at end of current entry, 0 if not in entry." + (save-excursion + (let ((end)) + (end-of-line) + (setq end -1) + (if (not (ess-roxy-entry-p)) + (setq end 0) + (setq end (point))) + (while (and (= (forward-line 1) 0) (ess-roxy-entry-p)) + (end-of-line) + (setq end (point))) + end))) + +(defun ess-roxy-end-of-field () + "Get point number at end of current field, 0 if not in entry." + (save-excursion + (let ((end nil) + (cont nil)) + (setq end 0) + (if (ess-roxy-entry-p) (progn (end-of-line) (setq end (point)))) + (beginning-of-line) + (forward-line 1) + (setq cont t) + (while (and (ess-roxy-entry-p) cont) + (save-excursion + (end-of-line) + (setq end (point))) + (if (or (and (ess-roxy-in-header-p) + (looking-at (concat ess-roxy-re " *$"))) + (looking-at (concat ess-roxy-re " *[@].+"))) + (progn + (forward-line -1) + (end-of-line) + (setq end (point)) + (setq cont nil))) + (if cont (setq cont (= (forward-line 1) 0)))) + end))) + +(defun ess-roxy-entry-p (&optional field) + "Non-nil if point is in a roxy entry. +FIELD allows checkinf for a specific field with +`ess-roxy-current-field'." + (and ess-roxy-mode + (save-excursion + (beginning-of-line) + (looking-at-p ess-roxy-re)) + (or (null field) + (string= (ess-roxy-current-field) field)))) + +(defun ess-roxy-narrow-to-field () + "Go to to the start of current field." + (interactive) + (let ((beg (ess-roxy-beg-of-field)) + (end (ess-roxy-end-of-field))) + (narrow-to-region beg end))) + +(defun ess-roxy-extract-field () + (let ((field (buffer-substring (ess-roxy-beg-of-entry) + (ess-roxy-end-of-entry))) + (prefix-re (ess-roxy-guess-str)) + (roxy-re ess-roxy-re)) + (with-temp-buffer + (setq ess-roxy-re roxy-re) + (insert field) + (goto-char (point-min)) + (while (re-search-forward prefix-re (point-max) 'noerror) + (replace-match "")) + (buffer-substring (point-min) (point-max))))) + +(defun ess-roxy-adaptive-fill-function () + "Return prefix for filling paragraph or nil if not determined." + (when (ess-roxy-entry-p) + (let ((roxy-str (car (split-string (ess-roxy-guess-str) "'")))) + (if (ess-roxy-in-header-p) + (save-excursion + (ess-back-to-roxy) + (re-search-forward "\\([ \t]*\\)" (line-end-position) t) + (concat roxy-str "' " (match-string 1))) + (concat roxy-str "' " (make-string ess-indent-offset ? )))))) + +(defun ess-roxy-current-field () + "Return the name of the field at point." + (and (not (ess-roxy-in-header-p)) + (save-excursion + (goto-char (ess-roxy-beg-of-field)) + (if (re-search-forward (concat ess-roxy-re + "[ \t]+@\\([[:alpha:]]+\\)") + (line-end-position) t) + (match-string-no-properties 1))))) + +(defun ess-roxy-maybe-indent-line () + "Indent line when point is in a field, but not in its first line." + (when (and (not (ess-roxy-in-header-p)) + (not (equal (ess-roxy-current-field) "examples")) + (save-excursion + (beginning-of-line) + (let ((line-n (count-lines 1 (point)))) + (goto-char (ess-roxy-beg-of-field)) + (not (equal line-n (count-lines 1 (point))))))) + (ess-back-to-roxy) + (delete-region (point) (progn (skip-chars-forward " \t") (point))) + (insert (make-string ess-indent-offset ? )))) + +(defun ess-roxy-goto-func-def () + "Put point at start of function. +Go to the beginning of the current one or below the current +roxygen entry, error otherwise" + (if (ess-roxy-entry-p) + (progn + (ess-roxy-goto-end-of-entry) + (forward-line 1) + (beginning-of-line)) + (beginning-of-defun))) + +(defun ess-roxy-get-args-list-from-def () + "Get args list for current function." + (save-excursion + (ess-roxy-goto-func-def) + (let ((args (ess-roxy-get-function-args))) + (mapcar (lambda (x) (cons x '(""))) args)))) + +(defun ess-roxy-insert-args (args &optional here) + "Insert an ARGS list to the end of the current roxygen entry. +If HERE is supplied start inputting `here'. Finish at end of +line." + (let* ((arg-des nil) + (roxy-str (ess-roxy-guess-str))) + (if (or (not here) (< here 1)) + (progn + (ess-roxy-goto-end-of-entry) + (beginning-of-line) + (if (not (looking-at "\=")) + (progn + (end-of-line)))) + (goto-char here)) + (while (stringp (car (car args))) + (setq arg-des (pop args)) + (unless (string= (car arg-des) "") + (progn + (insert (concat "\n" + roxy-str " @param " (car arg-des) " ")) + (insert + (ess-replace-in-string (concat (car (cdr arg-des))) "\n" + (concat "\n" roxy-str))) + (if ess-roxy-fill-param-p + (fill-paragraph))))))) + +(defun ess-roxy-merge-args (fun ent) + "Take two args lists (alists) and return their union. +The result holds all keys from both FUN and ENT but no duplicates and +association from ent are preferred over entries from fun. Also, +drop entries from ent that are not in fun and are associated with +the empty string." + (let ((res-arg nil) + (arg-des)) + (while (stringp (car (car fun))) + (setq arg-des (pop fun)) + (if (assoc (car arg-des) ent) + (setq res-arg + (cons (cons (car arg-des) (cdr (assoc (car arg-des) ent))) res-arg)) + (setq res-arg (cons (cons (car arg-des) '("")) res-arg)))) + (while (stringp (car (car ent))) + (setq arg-des (pop ent)) + (if (and (not (assoc (car arg-des) res-arg)) (not (string= (car (cdr arg-des)) ""))) + (setq res-arg (cons (cons (car arg-des) (cdr arg-des)) res-arg)))) + (nreverse res-arg))) + +(defun ess-roxy-update-entry () + "Update the entry at point or the entry above the current function. +Add a template empty roxygen documentation if no roxygen entry is +available. The template can be customized via the variable +`ess-roxy-template-alist'. The parameter descriptions can are +filled if `ess-roxy-fill-param-p' is non-nil." + (interactive) + (unless (derived-mode-p 'ess-r-mode) + (user-error "%s mode not yet supported" major-mode)) + (save-excursion + (let* ((args-fun (ess-roxy-get-args-list-from-def)) + (args-ent (ess-roxy-get-args-list-from-entry)) + (args (ess-roxy-merge-args args-fun args-ent)) + (roxy-str (ess-roxy-guess-str)) + (line-break "") + here key template tag-def) + (ess-roxy-goto-func-def) + (if (not (= (forward-line -1) 0)) + (progn + (insert "\n") + (forward-line -1))) + (if (and (not (looking-at "^\n")) (not (ess-roxy-entry-p))) + (progn + (end-of-line) + (insert "\n"))) + (if (ess-roxy-entry-p) + (progn + (setq here (1- (ess-roxy-delete-args))) + (ess-roxy-insert-args args here)) + (setq template (copy-sequence ess-roxy-template-alist)) + (while (stringp (car (car template))) + (setq tag-def (pop template)) + (if (string= (car tag-def) "param") + (ess-roxy-insert-args args (point)) + (if (string= (car tag-def) "description") + (insert (concat line-break roxy-str " " + (cdr tag-def) "\n" roxy-str)) + (if (string= (car tag-def) "details") + (insert (concat line-break roxy-str " " (cdr tag-def))) + (insert (concat line-break roxy-str " @" + (car tag-def) " " (cdr tag-def)))) + )) + (setq line-break "\n")))))) + +(defun ess-roxy-goto-end-of-entry () + "Put point at the bottom of the current entry or above the function at point. +Return t if the point is left in a roxygen entry, otherwise nil. +Error if point is not in function or roxygen entry." + (when (not (ess-roxy-entry-p)) + (beginning-of-defun) + (forward-line -1)) + (if (ess-roxy-entry-p) + (progn (goto-char (ess-roxy-end-of-entry)) + t) + (forward-line) + nil) + (ess-roxy-entry-p)) + +(defun ess-roxy-goto-beg-of-entry () + "Put point at the top of the entry at point or above the function at point. +Return t if the point is left in a roxygen +entry, otherwise nil. Error if point is not in function or +roxygen entry." + (if (not (ess-roxy-entry-p)) + (progn + (goto-char (nth 0 (end-of-defun))) + (forward-line -1))) + (if (ess-roxy-entry-p) + (progn + (goto-char (ess-roxy-beg-of-entry)) + t) + (forward-line) nil)) + +(defun ess-roxy-delete-args () + "Remove all args from the entry at point or above the function at point. +Return 0 if no deletions were made other wise the point at where +the last deletion ended" + (save-excursion + (let* ((args nil) + (cont t) + (field-beg 0) + entry-beg entry-end field-end) + (ess-roxy-goto-end-of-entry) + (setq entry-beg (ess-roxy-beg-of-entry)) + (setq entry-end (ess-roxy-end-of-entry)) + (goto-char entry-end) + (beginning-of-line) + (while (and (<= entry-beg (point)) (> entry-beg 0) cont) + (if (looking-at + (concat ess-roxy-re " *@param")) + (progn + (setq field-beg (ess-roxy-beg-of-field)) + (setq field-end (ess-roxy-end-of-field)) + (delete-region field-beg (+ field-end 1)))) + (setq cont nil) + (if (= (forward-line -1) 0) + (setq cont t))) + field-beg))) + +(defun ess-roxy-get-args-list-from-entry () + "Fill an args list from the entry above the function where the point is." + (save-excursion + (let* (args entry-beg field-beg field-end args-text arg-name desc) + (if (ess-roxy-goto-end-of-entry) + (progn + (setq roxy-str (ess-roxy-guess-str)) + (beginning-of-line) + (setq entry-beg (ess-roxy-beg-of-entry)) + (while (and (< entry-beg (point)) (> entry-beg 0)) + (if (looking-at + (concat ess-roxy-re " *@param")) + (progn + (setq field-beg (ess-roxy-beg-of-field)) + (setq field-end (ess-roxy-end-of-field)) + (setq args-text (buffer-substring-no-properties + field-beg field-end)) + (setq args-text + (ess-replace-in-string args-text roxy-str "")) + (setq args-text + (ess-replace-in-string + args-text "[[:space:]]*@param *" "")) + ;; (setq args-text + ;; (ess-replace-in-string args-text "\n" "")) + (string-match "[^[:space:]]*" args-text) + (setq arg-name (match-string 0 args-text)) + (setq desc (replace-regexp-in-string + (concat "^" (regexp-quote arg-name) " *") "" args-text)) + (setq args (cons (list (concat arg-name) + (concat desc)) + args)))) + (forward-line -1)) + args) + nil)))) + +(defun ess-roxy-toggle-roxy-region (beg end) + "Toggle prefix roxygen string from BEG to END. +Add the prefix if missing, remove if found. BEG and END default +to the region, if active, and otherwise the entire line. This is +convenient for editing example fields." + (interactive "r") + (unless (and beg end) + (setq beg (line-beginning-position) + end (line-end-position))) + (ess-roxy-roxy-region beg end (ess-roxy-entry-p))) + +(defun ess-roxy-roxy-region (beg end &optional on) + (save-excursion + (let (RE to-string + (roxy-str (ess-roxy-guess-str))) + (narrow-to-region beg (- end 1)) + (if on + (progn (setq RE (concat ess-roxy-re " +?")) + (setq to-string "")) + (setq RE "^") + (setq to-string (concat roxy-str " "))) + (goto-char beg) + (while (re-search-forward RE (point-max) 'noerror) + (replace-match to-string)) + (widen)))) + +(defun ess-roxy-preview () + "Generate documentation for roxygen entry at point. +Use a connected R session (starting one if necessary) and +`ess-roxy-package' to generate the Rd code for the entry at +point. Place it in a buffer and return that buffer." + (unless (derived-mode-p 'ess-r-mode) + (user-error "Preview only supported in R buffers, try `ess-r-devtools-document-package' instead")) + (let* ((beg (ess-roxy-beg-of-entry)) + (tmpf (make-temp-file "ess-roxy")) + (roxy-buf (get-buffer-create " *RoxygenPreview*")) + (R-old-roxy + (concat + "..results <- roxygen2:::roc_process(rd_roclet(), parse.files(P), \"\");" + "cat(vapply(..results, function(x) roxygen2:::rd_out_cache$compute(x, format(x)), character(1)))" )) + (R-new-roxy + (concat + "..results <- roc_proc_text(rd_roclet(), readChar(P, file.info(P)$size));" + "cat(vapply(..results, format, character(1)), \"\n\")" )) + (out-rd-roclet + (cond ((string= "roxygen" ess-roxy-package) + "make.Rd2.roclet()$parse") + ;; must not line break strings to avoid getting +s in the output + ((string= "roxygen2" ess-roxy-package) + (concat "(function(P) { if(packageVersion('roxygen2') < '3.0.0') {" + R-old-roxy "} else {" R-new-roxy "} })")) + (t (error "Need to hard code the roclet output call for roxygen package '%s'" + ess-roxy-package))))) + (when (= beg 0) + (error "Point is not in a Roxygen entry")) + (save-excursion + (goto-char (ess-roxy-end-of-entry)) + (forward-line 1) + (if (end-of-defun) + (append-to-file beg (point) tmpf) + (while (and (forward-line 1) + (not (looking-at-p "^$")) + (not (eobp)) + (not (looking-at-p ess-roxy-re)))) + (append-to-file beg (point) tmpf)) + (ess-force-buffer-current) + (unless (ess-boolean-command (concat "print(suppressWarnings(require(" ess-roxy-package + ", quietly=TRUE)))\n")) + (error (concat "Failed to load the " ess-roxy-package " package; " + "in R, try install.packages(\"" ess-roxy-package "\")"))) + (ess-command (concat out-rd-roclet "(\"" tmpf "\")\n") roxy-buf) + (with-current-buffer roxy-buf + ;; Kill characters up to % in case we missed stripping prompts + ;; or +'s: + (goto-char (point-min)) + (when (re-search-forward "%" (line-end-position) t) + (backward-char) + (delete-region (line-beginning-position) (point))))) + (delete-file tmpf) + roxy-buf)) + +(defun ess-roxy-preview-HTML (&optional visit-instead-of-browse) + "Use a (possibly newly) connected R session and the roxygen package to +generate a HTML page for the roxygen entry at point and open that +buffer in a browser. Visit the HTML file instead of showing it in +a browser if `visit-instead-of-browse' is non-nil." + (interactive "P") + (let* ((roxy-buf (ess-roxy-preview)) + (rd-tmp-file (make-temp-file "ess-roxy-" nil ".Rd")) + (html-tmp-file (make-temp-file "ess-roxy-" nil ".html")) + (rd-to-html (concat "Rd2HTML(\"" rd-tmp-file "\",\"" + html-tmp-file "\", stages=c(\"render\"))")) + ) + (with-current-buffer roxy-buf + (set-visited-file-name rd-tmp-file) + (save-buffer) + (kill-buffer roxy-buf)) + (ess-force-buffer-current) + (ess-command "print(suppressWarnings(require(tools, quietly=TRUE)))\n") + (if visit-instead-of-browse + (progn + (ess-command (concat rd-to-html "\n")) + (find-file html-tmp-file)) + (ess-command (concat "browseURL(" rd-to-html ")\n"))))) + +(defun ess-roxy-preview-text () + "Use the connected R session and the roxygen package to +generate the text help page of the roxygen entry at point." + (interactive) + (with-current-buffer (ess-roxy-preview) + (Rd-preview-help))) + +(defun ess-roxy-preview-Rd (&optional name-file) + "Preview Rd for the roxygen entry at point. +Use the connected R session and the roxygen package to +generate the Rd code for the roxygen entry at point. If called +with a non-nil NAME-FILE (\\[universal-argument]), +also set the visited file name of the created buffer to +facilitate saving that file." + (interactive "P") + (let ((roxy-buf (ess-roxy-preview))) + (pop-to-buffer roxy-buf) + (if name-file + (save-excursion + (goto-char 1) + (search-forward-regexp "name{\\(.+\\)}") + (set-visited-file-name (concat (match-string 1) ".Rd")))) + (Rd-mode) + ;; why should the following be needed here? [[currently has no effect !!]] + ;; usually in a *.Rd file fontification happens automatically + (font-lock-ensure))) + + +(defun ess-roxy-guess-str (&optional not-here) + "Guess the prefix used in the current roxygen block. +If NOT-HERE is non-nil, guess the prefix for nearest roxygen +block before the point." + (save-excursion + (if (ess-roxy-entry-p) + (progn + (goto-char (point-at-bol)) + (search-forward-regexp ess-roxy-re)) + (if not-here + (search-backward-regexp ess-roxy-re))) + (if (or not-here (ess-roxy-entry-p)) + (match-string 0) + (if (derived-mode-p 'ess-r-mode) + ess-roxy-str + (concat (string-trim comment-start) "'"))))) + +(defun ess-roxy-hide-block () + "Hide current roxygen comment block." + (interactive) + (save-excursion + (let ((end-of-entry (ess-roxy-end-of-entry)) + (beg-of-entry (ess-roxy-beg-of-entry))) + (hs-hide-block-at-point nil (list beg-of-entry end-of-entry))))) + +(defun ess-roxy-toggle-hiding () + "Toggle hiding/showing of a block. +See `hs-show-block' and `ess-roxy-hide-block'." + (interactive) + (hs-life-goes-on + (if (hs-overlay-at (point-at-eol)) + (hs-show-block) + (ess-roxy-hide-block)))) + +(defun ess-roxy-show-all () + "Hide all Roxygen entries in current buffer." + (interactive) + (ess-roxy-hide-all t)) + +(defun ess-roxy-hide-all (&optional show) + "Hide all Roxygen entries in current buffer." + (interactive) + (when (not ess-roxy-hide-show-p) + (user-error "First enable hide-show with `ess-roxy-hide-show-p'")) + (hs-life-goes-on + (save-excursion + (goto-char (point-min)) + (while (re-search-forward (concat ess-roxy-re) (point-max) t 1) + (let ((end-of-entry (ess-roxy-end-of-entry))) + (if show + (hs-show-block) + (ess-roxy-hide-block)) + (goto-char end-of-entry) + (forward-line 1)))))) + +(defun ess-roxy-previous-entry () + "Go to beginning of previous Roxygen entry." + (interactive) + (if (ess-roxy-entry-p) + (progn + (goto-char (ess-roxy-beg-of-entry)) + (forward-line -1))) + (search-backward-regexp ess-roxy-re (point-min) t 1) + (goto-char (ess-roxy-beg-of-entry))) + +(defun ess-roxy-next-entry () + "Go to beginning of next Roxygen entry." + (interactive) + (if (ess-roxy-entry-p) + (progn + (goto-char (ess-roxy-end-of-entry)) + (forward-line 1))) + (search-forward-regexp ess-roxy-re (point-max) t 1) + (goto-char (ess-roxy-beg-of-entry))) + +(defun ess-roxy-get-function-args () + "Return the arguments specified for the current function as a list of strings." + (save-excursion + (let ((args-txt + (progn + (beginning-of-defun) + (buffer-substring-no-properties + (progn + (search-forward-regexp "\\([=,-]+ *function *\\|^\s*function\\)" nil nil 1) + (+ (point) 1)) + (progn + (ess-roxy-match-paren) + (point)))))) + (setq args-txt (replace-regexp-in-string "#+[^\"']*\n" "" args-txt)) + (setq args-txt (replace-regexp-in-string "([^)]+)" "" args-txt)) + (setq args-txt (replace-regexp-in-string "=[^,]+" "" args-txt)) + (setq args-txt (replace-regexp-in-string "[ \t\n]+" "" args-txt)) + (split-string args-txt ",")))) + +(defun ess-roxy-match-paren () + "Go to the matching parenthesis." + (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1)) + ((looking-at "\\s\)") (forward-char 1) (backward-list 1)))) + +(defun ess-roxy-complete-tag () + "Complete the tag at point." + (let ((bounds (ess-bounds-of-symbol))) + (when (and bounds + (save-excursion + (goto-char (car bounds)) + (eq (following-char) ?@))) + (list (1+ (car bounds)) (cdr bounds) + (append ess-roxy-tags-noparam ess-roxy-tags-param))))) + +(defun ess-roxy-tag-completion () + "Completion data for Emacs >= 24." + (when (save-excursion (re-search-backward "@\\<\\(\\w*\\)" (point-at-bol) t)) + (let ((token (match-string-no-properties 1)) + (beg (match-beginning 1)) + (end (match-end 1))) + (when (and end (= end (point))) + (list beg end (append ess-roxy-tags-noparam ess-roxy-tags-param) :exclusive 'no))))) + +(defun ess-roxy-remove-roxy-re (string) + "Remove `ess-roxy-str' from STRING before sending to R process. +Useful for sending code from example section. This function is +placed in `ess-presend-filter-functions'." + ;; Only strip the prefix in the @examples field, and only when + ;; STRING is entirely contained inside it. This allows better + ;; behaviour for evaluation of regions. + (let ((roxy-re ess-roxy-re)) + (if (and (ess-roxy-entry-p "examples") + ;; don't send just @examples if we're looking at a line + ;; like: ##' @examples + (not (string-match-p (concat roxy-re "[[:space:]]*@") string)) + ;; (with-temp-buffer + ;; ;; Need to carry the buffer-local value of + ;; ;; `ess-roxy-re' into the temp buffer: + ;; (setq ess-roxy-re roxy-re) + ;; (insert string) + ;; (ess-roxy-entry-p)) + ) + (replace-regexp-in-string (concat ess-roxy-re "\\s-*") "" string) + string))) + +(defun ess-roxy-find-par-end (stop-point &rest stoppers) + (mapc #'(lambda (stopper) + (when (and (> stop-point (point)) + (save-excursion + (re-search-forward stopper stop-point t))) + (setq stop-point (match-beginning 0)))) + stoppers) + (save-excursion + (goto-char stop-point) + (line-end-position 0))) + + +;;*;; Advices +(defmacro ess-roxy-with-filling-context (examples &rest body) + "Setup context (e.g. `comment-start') for filling roxygen BODY. +EXAMPLES should be non-nil if filling an example block." + (declare (indent 2) (debug (&rest form))) + `(let ((comment-start (concat ess-roxy-re "[ \t]+#")) + (comment-start-skip (concat ess-roxy-re "[ \t]+# *")) + (comment-use-syntax nil) + (adaptive-fill-first-line-regexp (concat ess-roxy-re "[ \t]*")) + (paragraph-start (concat "\\(" ess-roxy-re "\\(" paragraph-start + "\\|[ \t]*@" "\\)" "\\)\\|\\(" paragraph-start "\\)")) + (temp-table (if ,examples + (make-syntax-table ess-r-mode-syntax-table) + Rd-mode-syntax-table))) + (when ,examples + ;; Prevent the roxy prefix to be interpreted as comment or string + ;; starter + (modify-syntax-entry ?# "w" temp-table) + (modify-syntax-entry ?' "w" temp-table)) + ;; Neutralise (comment-normalize-vars) because it modifies the + ;; comment-start regexp in such a way that paragraph filling of + ;; comments in @examples fields does not work + (cl-letf (((symbol-function 'comment-normalize-vars) #'ignore)) + (with-syntax-table temp-table + ,@body)))) + +(defun ess-roxy-ess-indent-command (&optional whole-exp) + "Hide this block if we are at the beginning of the line. +Else call `ess-indent-command'." + (interactive "P") + (if (and (bolp) (ess-roxy-entry-p) ess-roxy-hide-show-p) + (progn (ess-roxy-toggle-hiding)) + (ess-indent-command whole-exp))) + +(defun ess--roxy-fill-block (fun &optional args) + "Fill a roxygen block. +FUN should be a filling function and ARGS gets passed to it." + (let* ((saved-pos (point)) + (saved-line (line-number-at-pos)) + (saved-col (current-column)) + (buffer (current-buffer)) + (par-start (save-excursion + (if (save-excursion + (and (backward-paragraph) + (forward-paragraph) + (<= (point) saved-pos))) + (line-beginning-position) + (progn (backward-paragraph) (point))))) + (par-end (ess-roxy-find-par-end + (save-excursion + (forward-paragraph) + (point)) + (concat ess-roxy-re "[ \t]*@examples\\b") "^[^#]"))) + ;; Refill the whole structural paragraph sequentially, field by + ;; field, stopping at @examples + (ess-roxy-with-filling-context nil + (save-excursion + (save-restriction + (narrow-to-region par-start par-end) + (goto-char (point-min)) + (while (< (point) (point-max)) + (ess-roxy-maybe-indent-line) + (apply fun args) + (forward-paragraph))))))) + +(defun ess-r--fill-paragraph (orig-fun &rest args) + "ESS fill paragraph for R mode. +Overrides `fill-paragraph' which is ORIG-FUN when necessary and +passes ARGS to it." + (cond + ;; Regular case + ((not (derived-mode-p 'ess-r-mode)) + (apply orig-fun args)) + ;; Filling of code comments in @examples roxy field + ((and (ess-roxy-entry-p) + (save-excursion + (ess-roxy-goto-end-of-roxy-comment) + (looking-at "#"))) + (ess-roxy-with-filling-context t + (apply orig-fun args))) + ((and (not (ess-roxy-entry-p)) + (ess-inside-comment-p)) + (apply orig-fun args)) + ;; Filling of call arguments with point on call name + ((and ess-fill-calls + (ess-inside-call-name-p)) + (save-excursion + (skip-chars-forward "^([") + (forward-char) + (ess-fill-args))) + ;; Filling of continuations + ((and ess-fill-continuations + (ess-inside-continuation-p)) + (ess-fill-continuations)) + ;; Filling of call arguments + ((and ess-fill-calls + (ess-inside-call-p)) + (ess-fill-args)) + ;; Filling of roxy blocks + ((ess-roxy-entry-p) + (ess--roxy-fill-block orig-fun args)) + (t + (apply orig-fun args)))) +(advice-add 'fill-paragraph :around #'ess-r--fill-paragraph) + +(defun ess-roxy-move-beginning-of-line (arg) + "Move point to the beginning of the current line or roxygen comment. +If not in a roxygen comment, call `move-beginning-of-line', which +see for ARG. If in a roxygen field, leave point at the end of a +roxygen comment. If already there, move to the beginning of the +line." + (interactive "^p") + (if (ess-roxy-entry-p) + (let ((pos (point))) + (ess-roxy-goto-end-of-roxy-comment) + (when (eql (point) pos) + (move-beginning-of-line nil))) + (move-beginning-of-line arg))) + +(defun ess-roxy-goto-end-of-roxy-comment () + "Leave point at the end of a roxygen comment. +If not in a roxygen entry, call `back-to-indentation'." + (interactive) + (if (ess-roxy-entry-p) + (progn + (end-of-line) + (re-search-backward (concat ess-roxy-re " *") (point-at-bol) t) + (goto-char (match-end 0))) + (back-to-indentation))) + +(defun ess-roxy-indent-new-comment-line () + (if (not (ess-roxy-entry-p)) + (indent-new-comment-line) + (ess-roxy-indent-on-newline))) + +(defun ess-roxy-newline-and-indent () + "Start a newline and insert the roxygen prefix. +Only do this if in a roxygen block and +`ess-roxy-insert-prefix-on-newline' is non-nil." + (interactive) + (if (and (ess-roxy-entry-p) + ess-roxy-insert-prefix-on-newline) + (ess-roxy-indent-on-newline) + (newline-and-indent))) + +(defun ess-roxy-indent-on-newline () + "Insert a newline in a roxygen field." + (cond + ;; Point at beginning of first line of entry; do nothing + ((= (point) (ess-roxy-beg-of-entry)) + (newline-and-indent)) + ;; Otherwise: skip over roxy comment string if necessary and then + ;; newline and then inset new roxy comment string + (t + (let ((point-after-roxy-string + (save-excursion (forward-line 0) + (ess-back-to-roxy) + (point)))) + (goto-char (max (point) point-after-roxy-string))) + (newline-and-indent) + (insert (concat (ess-roxy-guess-str t) " "))))) + +(defun ess-roxy-cpp-fill-paragraph (&rest _args) + "Advice for `c-fill-paragraph' that accounts for roxygen comments." + (cond + ;; Fill roxy @example's. + ((ess-roxy-entry-p "examples") + (ess--roxy-fill-block 'fill-paragraph) nil) + ;; Fill roxy entries. + ((ess-roxy-entry-p) + (ess--roxy-fill-block 'fill-paragraph) nil) + ;; Return t to signal to go on to `c-fill-paragraph'. + (t t))) + +(advice-add 'c-fill-paragraph :before-while 'ess-roxy-cpp-fill-paragraph) + +(defun ess-roxy-enable-in-cpp () + "Enable `ess-roxy-mode' in C++ buffers in R packages." + (when (and (fboundp 'ess-r-package-project) + (ess-r-package-project)) + (ess-roxy-mode))) + +(with-eval-after-load "cc-mode" + (add-hook 'c++-mode-hook #'ess-roxy-enable-in-cpp)) + +(provide 'ess-roxy) + +;;; ess-roxy.el ends here diff --git a/elpa/ess-20190121.1430/ess-rutils.el b/elpa/ess-20190121.1430/ess-rutils.el new file mode 100644 index 00000000..ed5bb541 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-rutils.el @@ -0,0 +1,407 @@ +;;; ess-rutils.el --- R functions and keybindings to use in iESS. + +;; Author: Sebastian Luque +;; Created: Thu Nov 10 02:20:36 2004 (UTC) +;; Last-Updated: 2013-09-22T16:08:47+0000 +;; By: Sebastian P. Luque +;; Version: $Id$ + +;; Copyright (c) 2005-2013 Sebastian P. Luque + +;; This program 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 3, or (at your option) +;; any later version. +;; This program 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; This library provides key bindings for performing basic R functions, +;; such as loading and managing packages, as well as object manipulation +;; (listing, viewing, and deleting), and an alternative to RSiteSearch() +;; that uses the browse-url function. Load the library with the method you +;; prefer (e.g. M-x load-file), but the easiest is probably to: a) make +;; sure your load-path variable includes the directory where ess-rutils.el +;; resides, and b) include (require 'ess-rutils) statement in your +;; ~/.emacs. +;; +;; Usage: +;; +;; Once R is started with M-x R, you should have the key bindings defined +;; at the end of this file working in your iESS process buffers. Simply +;; type the desired key binding. +;; +;; Acknowledgements: +;; +;; I am grateful to John Fox for having written his init.el file for +;; XEmacs, which motivated this Emacs alternative. I wanted to add some +;; object management comforts and came across Stephen Eglen's +;; ess-rdired.el, which provides a lot of these. ess-rutils.el builds upon +;; on a *lot* of ideas from ess-rdired.el. + +;; TODO: Refactor and remove byte-compile-warnings file-local variable. +;; TODO: This should be more tightly integrated with ess-r-mode and ESSR. +;; TODO: Should be active in ess-r-mode not only ess-inf +;; TODO: Both S level Utils and this package's Rutils are in the menu; confusing and inconvenient. +(defvar pkg) + +;;; Code: + +;; Autoloads and requires +(require 'ess-r-mode) +(require 'ess-rdired) + +(defvar ess-rutils-buf "*R temp*" + "Name of temporary R buffer.") + +(defvar ess-rutils-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "l" 'ess-rutils-loadpkg) + (define-key map "i" 'ess-rutils-mark-install) + (define-key map "I" 'ess-rutils-install) + (define-key map "u" 'ess-rutils-unmark) + (define-key map "q" 'ess-rutils-quit) + map) + "Keymap for the *R temp* buffer.") + +(define-derived-mode ess-rutils-mode special-mode "R utils" + "Major mode for output from `ess-rutils-local-pkgs' and `ess-rutils-repos-pkgs'. +Useful bindings to handle package loading and installing." + (setq ess-dialect "R")) + +(defun ess-rutils-local-pkgs () + "List all packages in all libraries." + (interactive) + (with-current-buffer (get-buffer-create ess-rutils-buf) + (setq buffer-read-only nil)) + (ess-execute + "writeLines(paste(' ', sort(.packages(all.available=TRUE)), sep=''))" + nil + (substring ess-rutils-buf 1 (- (length ess-rutils-buf) 1))) + (pop-to-buffer ess-rutils-buf) + (save-excursion + (beginning-of-line) (open-line 1) + (insert "**Available packages in all local R libraries**")) + (ess-rutils-mode)) + +(defun ess-rutils-namepkg () + "Return name of the package on current line." + (save-excursion + (beginning-of-line) + (if (looking-at "*") + nil + (forward-char 2) + (let (beg) + (setq beg (point)) + (end-of-line) ;assume package names are separated by newlines. + (buffer-substring-no-properties beg (point)))))) + +(defun ess-rutils-loadpkg () + "Load package from a library." + (interactive) + (let ((oklocal nil)) + (save-excursion + (goto-char (point-min)) + (if (search-forward "libraries**" nil t) + (setq oklocal t))) + (if oklocal + (progn + (setq pkg (ess-rutils-namepkg)) + (ess-execute (concat "library('" pkg "', character.only=TRUE)") + 'buffer)) + nil))) + +(defun ess-rutils-repos-pkgs () + "List available packages. +Use the repositories as listed by getOptions(\"repos\") in the +current R session." + (interactive) + (with-current-buffer (get-buffer-create ess-rutils-buf) + (setq buffer-read-only nil)) + (ess-execute (concat "writeLines(paste(' \"', " + "rownames(available.packages()), '\"', sep=''))") + nil + (substring ess-rutils-buf 1 (- (length ess-rutils-buf) 1))) + (pop-to-buffer ess-rutils-buf) + (save-excursion + (kill-line 5) + (insert "**packages available to install**\n")) + (ess-rutils-mode)) + +(defun ess-rutils-mark-install (arg) + "Mark the current package for installing. +ARG lines to mark is passed to `ess-rutils-mark'." + (interactive "p") + ;; if this is not an install package buffer return nil. + (let ((okmark nil)) + (save-excursion + (goto-char (point-min)) + (if (search-forward "install**" nil t) + (setq okmark t))) + (if okmark + (ess-rutils-mark "I" arg) + nil))) + +(defun ess-rutils-unmark (arg) + "Unmark the packages, passing ARG lines to unmark to `ess-rutils-mark'." + (interactive "p") + (ess-rutils-mark " " arg)) + +;; The next two functions almost verbatim from ess-rdired.el. +(defun ess-rutils-mark (mark-char arg) + "Use MARK-CHAR to mark package on current line, or next ARG lines." + ;; If we are on first line, mark all lines. + (let ((buffer-read-only nil) + move) + (if (eq (point-min) + (save-excursion (beginning-of-line) (point))) + (progn + ;; we are on first line, so make a note of point, and count + ;; how many objects we want to delete. Then at end of defun, + ;; restore point. + (setq move (point)) + (forward-line 1) + (setq arg (count-lines (point) (point-max))))) + (while (and (> arg 0) (not (eobp))) + (setq arg (1- arg)) + (beginning-of-line) + (progn + (insert mark-char) + (delete-char 1) + (forward-line 1))) + (if move + (goto-char move)))) + +(defun ess-rutils-install () + "Install all packages flagged for installation, and return to the iESS buffer. +User is asked for confirmation." + (interactive) + (let ((inst "install.packages(c(") + (count 0)) + (save-excursion + (goto-char (point-min)) + (forward-line) + ;; as long as number of lines between buffer start and point is smaller + ;; than the total number of lines in buffer, go to the beginning of the + ;; line, check if line is flagged, and if it is, advance the counter by + ;; one, create the root of install function, add the package name, + ;; insert a comma, and move forward a line. + (while (< (count-lines (point-min) (point)) + (count-lines (point-min) (point-max))) + (beginning-of-line) + (if (looking-at "^I ") + (setq count (1+ count) + inst (concat inst (ess-rutils-namepkg) ", " ))) + (forward-line 1))) + (if (> count 0) ;found packages to install + (progn + ;; Fix the install function created before and close it. + (setq inst (concat + (substring inst 0 (- (length inst) 2)) "))")) + ;; + (if (yes-or-no-p (format "Install %d %s " count + (if (> count 1) "packages" "package"))) + (progn + (ess-execute inst 'buffer) + (ess-rutils-quit)))) + ;; else nothing to install + (message "no packages flagged to install")))) + +(defun ess-rutils-update-pkgs (lib repos) + "Update packages in library LIB and repos REPOS. +Defaults are the first element returned by .libPaths() for LIB, +and the repository named CRAN returned by getOption(\"repos\") +for REPOS. This also uses checkBuilt=TRUE to rebuild installed +packages if needed." + (interactive "DPath to library to update: \nsrepos: ") + (if (string= "" lib) + (setq lib + (car (ess-get-words-from-vector + "as.character(.libPaths())\n")))) + (if (string= "" repos) + (setq repos + (car (ess-get-words-from-vector + "as.character(getOption(\"repos\")[\"CRAN\"])\n")))) + (ess-execute (concat "update.packages(lib.loc='" + lib "', repos='" repos + "', ask=FALSE, checkBuilt=TRUE)") 'buffer)) + +(defun ess-rutils-apropos (string) + "Search for STRING using apropos." + (interactive "sApropos search for? ") + (with-current-buffer (get-buffer-create ess-rutils-buf) + (setq buffer-read-only nil)) + (ess-execute (concat "apropos('" string "')") + nil + (substring ess-rutils-buf 1 (- (length ess-rutils-buf) 1))) + (pop-to-buffer ess-rutils-buf) + (ess-rutils-mode)) + +(defun ess-rutils-rm-all () + "Remove all R objects." + (interactive) + (if (y-or-n-p "Delete all objects? ") + (ess-execute "rm(list=ls())" 'buffer))) + +(defun ess-rutils-load-wkspc (file) + "Load workspace FILE into R." + (interactive "fFile with workspace to load: ") + (ess-execute (concat "load('" file "')") 'buffer)) + +(defun ess-rutils-save-wkspc (file) + "Save FILE workspace. +File extension not required." + (interactive "FSave workspace to file (no extension): ") + (ess-execute (concat "save.image('" file ".RData')") 'buffer)) + +(defun ess-rutils-quit () + "Kill the ess-rutils buffer and return to the iESS buffer." + (interactive) + (ess-switch-to-end-of-ESS) + (kill-buffer ess-rutils-buf)) + +(defun ess-rutils-html-docs (&optional remote) + "Use `browse-url' to navigate R html documentation. +Documentation is produced by a modified help.start(), that +returns the URL produced by GNU R's http server. If called with a +prefix, the modified help.start() is called with update=TRUE. The +optional REMOTE argument should be a string with a valid URL for +the 'R_HOME' directory on a remote server (defaults to NULL)." + (interactive) + (let* ((update (if current-prefix-arg "update=TRUE" "update=FALSE")) + (remote (if (or (and remote (not (string= "" remote)))) + (concat "remote=" remote) "remote=NULL")) + (rhtml (format ".ess_help_start(%s, %s)\n" update remote)) + (tmpbuf (get-buffer-create "**ess-rutils-mode**"))) + (ess-command rhtml tmpbuf) + (set-buffer tmpbuf) + (let* ((begurl (search-backward "http://")) + (endurl (search-forward "index.html")) + (url (buffer-substring-no-properties begurl endurl))) + (browse-url url)) + (kill-buffer tmpbuf))) + +(defun ess-rutils-rsitesearch (string) + "Search the R archives for STRING, and show results using `browse-url'. +If called with a prefix, options are offered (with completion) +for matches per page, sections of the archives to search, +displaying results in long or short formats, and sorting by any +given field. Options should be separated by value of +`crm-default-separator'." + (interactive "sSearch string: ") + (let ((site "https://search.r-project.org/cgi-bin/namazu.cgi?query=") + (okstring (replace-regexp-in-string " +" "+" string))) + (if current-prefix-arg + (let ((mpp (concat + "&max=" + (completing-read + "Matches per page: " + '(("20" 1) ("30" 2) ("40" 3) ("50" 4) ("100" 5))))) + (format (concat + "&result=" + (completing-read + "Format: " '(("normal" 1) ("short" 2)) + nil t "normal" nil "normal"))) + (sortby (concat + "&sort=" + (completing-read + "Sort by: " + '(("score" 1) ("date:late" 2) ("date:early" 3) + ("field:subject:ascending" 4) + ("field:subject:decending" 5) + ("field:from:ascending" 6) ("field:from:decending" 7) + ("field:size:ascending" 8) ("field:size:decending" 9)) + nil t "score" nil "score"))) + (restrict (concat + "&idxname=" + (mapconcat + 'identity + (completing-read-multiple + "Limit search to: " + '(("Rhelp02a" 1) ("functions" 2) + ("docs" 3) ("Rhelp01" 4)) + nil t "Rhelp02a,functions,docs" nil + "Rhelp02a,functions,docs") "&idxname=")))) + (browse-url (concat site okstring mpp format sortby restrict))) + (browse-url (concat site okstring "&max=20&result=normal&sort=score" + "&idxname=Rhelp02a&idxname=functions&idxname=docs"))))) + +(defun ess-rutils-help-search (string) + "Search for STRING using help.search()." + (interactive "sString to search for? ") + (with-current-buffer (get-buffer-create ess-rutils-buf) + (setq buffer-read-only nil)) + (ess-execute (concat "help.search('" string "')") + nil + (substring ess-rutils-buf 1 (- (length ess-rutils-buf) 1))) + (pop-to-buffer ess-rutils-buf) + (ess-rutils-mode)) + +;; Customizable variable to allow ess-rutils-keys to activate default key bindings. +;; Suggested by Richard M. Heiberger. +(defcustom ess-rutils-keys t + "Non-nil means activate ess-rutils keybindings and menu." + :group 'ess-R + :type 'boolean) + +;; Keybindings +(defun ess-rutils-keys () + "Provide key bindings." + (interactive) + (when ess-rutils-keys + (define-key inferior-ess-mode-map [(control c) (control \.) (l)] + 'ess-rutils-local-pkgs) + (define-key inferior-ess-mode-map [(control c) (control \.) (r)] + 'ess-rutils-repos-pkgs) + (define-key inferior-ess-mode-map [(control c) (control \.) (u)] + 'ess-rutils-update-pkgs) + (define-key inferior-ess-mode-map [(control c) (control \.) (a)] + 'ess-rutils-apropos) + (define-key inferior-ess-mode-map [(control c) (control \.) (m)] + 'ess-rutils-rm-all) + (define-key inferior-ess-mode-map [(control c) (control \.) (o)] + 'ess-rdired) + (define-key inferior-ess-mode-map [(control c) (control \.) (w)] + 'ess-rutils-load-wkspc) + (define-key inferior-ess-mode-map [(control c) (control \.) (s)] + 'ess-rutils-save-wkspc) + (define-key inferior-ess-mode-map [(control c) (control \.) (d)] + 'ess-change-directory) + (define-key inferior-ess-mode-map [(control c) (control \.) (H)] + 'ess-rutils-html-docs))) + +(easy-menu-define ess-rutils-mode-menu inferior-ess-mode-menu + "Submenu of `inferior-ess-mode' to use with RUtils." + '("RUtils" + ["Manage objects" ess-rdired t] + ["Remove objects" ess-rutils-rm-all t] + "------" + ["Local packages" ess-rutils-local-pkgs t] + ["Packages in repositories" ess-rutils-repos-pkgs t] + ["Update packages" ess-rutils-update-pkgs t] + "------" + ["Load workspace" ess-rutils-load-wkspc t] + ["Save workspace" ess-rutils-save-wkspc t] + ["Change directory" ess-change-directory t] + "------" + ["Browse HTML" ess-rutils-html-docs t] + ["Apropos" ess-rutils-apropos t])) + +(easy-menu-add-item inferior-ess-mode-menu nil ess-rutils-mode-menu "Utils") +(add-hook 'inferior-ess-mode-hook 'ess-rutils-keys) + +(make-obsolete 'ess-rutils-rhtml-fn "overwrite .ess_help_start instead." "ESS 18.10") + +(provide 'ess-rutils) + +;;; ess-rutils.el ends here + +;; Local Variables: +;; byte-compile-warnings: (not lexical) +;; End: diff --git a/elpa/ess-20190121.1430/ess-s-lang.el b/elpa/ess-20190121.1430/ess-s-lang.el new file mode 100644 index 00000000..f7c697f8 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-s-lang.el @@ -0,0 +1,782 @@ +;;; ess-s-lang.el --- Support for editing S source code + +;; Copyright (C) 1989-1997 D. Bates, Kademan, Ritter, D.M. Smith, K. Hornik, +;; R.M. Heiberger, M. Maechler, and A.J. Rossini. +;; Copyright (C) 1998-2015 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Author: A.J. Rossini +;; Created: 26 Aug 1997 +;; Maintainer: ESS-core + +;; This file is part of ESS (Emacs Speaks Statistics). + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; Code for general editing S source code (specializes to S, S+, R). + +;;; Code: + + ; Requires and autoloads + +(require 'ess-mode) +(require 'ess-help) +(require 'ess-utils) +(require 'ess-inf) + +(autoload 'speedbar-add-supported-extension "speedbar.el") + + ; Configuration variables + +(defvar S-syntax-table + (let ((S-syntax-table (make-syntax-table))) + (modify-syntax-entry ?\\ "\\" S-syntax-table) + (modify-syntax-entry ?+ "." S-syntax-table) + (modify-syntax-entry ?- "." S-syntax-table) + (modify-syntax-entry ?= "." S-syntax-table) + (modify-syntax-entry ?% "." S-syntax-table) + (modify-syntax-entry ?< "." S-syntax-table) + (modify-syntax-entry ?> "." S-syntax-table) + (modify-syntax-entry ?& "." S-syntax-table) + (modify-syntax-entry ?| "." S-syntax-table) + (modify-syntax-entry ?\' "\"" S-syntax-table) + (modify-syntax-entry ?\" "\"" S-syntax-table) + (modify-syntax-entry ?# "<" S-syntax-table) ; open comment + (modify-syntax-entry ?\n ">" S-syntax-table) ; close comment + ;;(modify-syntax-entry ?. "w" S-syntax-table) ; "." used in S obj names + (modify-syntax-entry ?. "_" S-syntax-table) ; see above/below, + ; plus consider separation. + (modify-syntax-entry ?$ "_" S-syntax-table); foo$comp = 1 symbol(completion) + (modify-syntax-entry ?@ "_" S-syntax-table); foo@slot = 1 symbol(completion) + (modify-syntax-entry ?_ "_" S-syntax-table) + (modify-syntax-entry ?: "_" S-syntax-table) + (modify-syntax-entry ?* "." S-syntax-table) + (modify-syntax-entry ?< "." S-syntax-table) + (modify-syntax-entry ?> "." S-syntax-table) + (modify-syntax-entry ?/ "." S-syntax-table) + S-syntax-table) + "Syntax table for S code." + ) + +(defvar S-editing-alist + '((paragraph-start . (concat "\\s-*$\\|" page-delimiter)) + (paragraph-separate . (concat "\\s-*$\\|" page-delimiter)) + (paragraph-ignore-fill-prefix . t) + ;;(comment-indent-function . 'S-comment-indent) + ;;(ess-comment-indent . 'S-comment-indent) + ;;(ess-indent-line . 'S-indent-line) + ;;(ess-calculate-indent . 'ess-calculate-indent) + (indent-line-function . 'ess-indent-line) + ;;(ess-keep-dump-files . 'ask) + ;; For Changelog add, require ' ' before <- : "attr<-" is a function name : + (add-log-current-defun-header-regexp . "^\\(.+\\)\\s-+<-[ \t\n]*function")) + "General options for S and S+ source files.") + +(defvar inferior-S-language-start + '(concat "options(" + "STERM='" ess-STERM "'" + ", str.dendrogram.last=\"'\"" + (if ess-editor (concat ", editor='" ess-editor "'")) + (if ess-pager (concat ", pager='" ess-pager "', help.pager='" ess-pager "'")) + ", show.error.locations=TRUE" + ")") + "S language expression for startup -- default for all S dialects.") + +(defconst S-common-cust-alist + '((ess-language . "S") + (inferior-ess-exit-command . "q()\n") + (inferior-ess-language-start . (eval inferior-S-language-start)) + (comint-use-prompt-regexp . t) ;;use fields if nil + (comint-process-echoes . t) + ;; these prompt are the same for all S-languages As long as custom prompt + ;; ends in inferior-ess-primary-prompt everything should work as expected. + (inferior-ess-primary-prompt . "> ") + ;; (inferior-ess-secondary-prompt . "[+:] ") ;; catch Selection: and alike + (inferior-ess-secondary-prompt . "+ ") ;; catch Selection: and alike + (comment-start . "#") + (comment-add . 1) + (comment-start-skip . "#+ *") + (comment-use-syntax . t) ; see log for bug report 2013-06-07 + (comment-column . 40) + (ess-no-skip-regexp . (concat "^ *@\\|" (default-value 'ess-no-skip-regexp))) + ;; inferior-ess-prompt is used by comint for navigation, only if + ;; comint-use-prompt-regexp is t; (transcript-mode also relies on this regexp) + (inferior-ess-prompt . inferior-S-prompt) + (ess-get-help-topics-function . #'ess-s-get-help-topics-function) + (ess-getwd-command . "getwd()\n") + (ess-setwd-command . "setwd('%s')\n") + (ess-funargs-command . ".ess_funargs(\"%s\")\n") + (fill-nobreak-predicate . 'ess-inside-string-p) + (ess-execute-screen-options-command . "options(width=%d, length=99999)\n") + (font-lock-defaults . '(ess-build-font-lock-keywords + nil nil ((?\. . "w") (?\_ . "w"))))) + "S-language common settings for all -customize-alist s") + +(defconst S+common-cust-alist + (append + '((ess-suffix . "S") + (ess-help-sec-regex . ess-help-S+-sec-regex) + (ess-help-sec-keys-alist . ess-help-S+sec-keys-alist) + (ess-change-sp-regexp . ess-S+-change-sp-regexp) + (ess-function-pattern . ess-s-function-pattern) + (ess-function-template . " <- \n#\nfunction()\n{\n\n}\n") + (ess-dump-filename-template . (replace-regexp-in-string + "S$" ess-suffix ; in the one from custom: + ess-dump-filename-template-proto)) + (ess-traceback-command . "traceback()\n") + (ess-mode-editing-alist . S-editing-alist) + + (ess-dumped-missing-re + . "\\(\\(<-\\|=\\)\nDumped\n\\'\\)\\|\\(\\(<-\\|=\\)\\(\\s \\|\n\\)*\\'\\)") + (ess-syntax-error-re + . "\\(Syntax error: .*\\) at line \\([0-9]*\\), file \\(.*\\)$") + (inferior-ess-objects-command . inferior-Splus-objects-command) + (ess-describe-object-at-point-commands . 'ess-S-describe-object-at-point-commands) + (ess-editor . S-editor) + (ess-pager . S-pager)) + S-common-cust-alist) + "Common settings for all S+<*>-customize-alist s" + ) + +;;; Changes from S to S-PLUS 3.x. (standard S3 should be in ess-s-lang!). + +(defconst ess-help-S+sec-keys-alist + '((?a . "ARGUMENTS:") + (?b . "BACKGROUND:") + (?B . "BUGS:") + (?d . "DESCRIPTION:") + (?D . "DETAILS:") + (?e . "EXAMPLES:") + (?n . "NOTE:") + (?O . "OPTIONAL ARGUMENTS:") + (?R . "REQUIRED ARGUMENTS:") + (?r . "REFERENCES:") + (?s . "SEE ALSO:") + (?S . "SIDE EFFECTS:") + (?u . "USAGE:") + (?v . "VALUE:")) + "Alist of (key . string) pairs for use in section searching.") +;;; `key' indicates the keystroke to use to search for the section heading +;;; `string' in an S help file. `string' is used as part of a +;;; regexp-search, and so specials should be quoted. + +;; S ver.3 (NOT S-Plus) +(defconst ess-help-S3-sec-keys-alist + '((?a . "ARGUMENTS:") + (?b . "BACKGROUND:") + (?B . "BUGS:") + (?d . "DESCRIPTION:") + (?D . "DETAILS:") + (?e . "EXAMPLES:") + (?n . "NOTE:") + (?r . "REFERENCES:") + (?s . "SEE ALSO:") + (?S . "SIDE EFFECTS:") + (?u . "USAGE:") + (?v . "VALUE:")) + "Help section keys for S ver.3.") + +;; S ver.4 (NOT S-Plus) +(defconst ess-help-S4-sec-keys-alist + '((?a . "ARGUMENTS:") + (?b . "BACKGROUND:") + (?B . "BUGS:") + (?d . "DESCRIPTION:") + (?D . "DETAILS:") + (?e . "EXAMPLES:") + (?n . "NOTE:") + (?r . "REFERENCES:") + (?s . "SEE ALSO:") + (?S . "SIDE EFFECTS:") + (?u . "USAGE:") + (?v . "VALUE:")) + "Help section keys for S4.") + + +(defconst ess-help-S+-sec-regex "^[A-Z. ---]+:$" + "Reg(ular) Ex(pression) of section headers in help file.") + + ; Function Definitions + +(defun S-comment-indent () + "Indentation for S comments." + (if (or (looking-at "###") + (and (looking-at "#!") (= 1 (line-number-at-pos)))) + (current-column) + (if (looking-at "##") + (let ((tem (when ;; FIXME ess-calculate-indent is R specific + (fboundp 'ess-calculate-indent) + (ess-calculate-indent)))) + (if (listp tem) (car tem) tem)) + (skip-chars-backward " \t") + (max (if (bolp) 0 (1+ (current-column))) + comment-column)))) + +;; VS: these are ess-indent-line and ess-calculate-indent from 2004 already,so +;; commented out to avoid confusion: + +;; (defun S-indent-line () +;; "Indent current line as S code. +;; Return the amount the indentation changed by." +;; (let ((indent (S-calculate-indent nil)) +;; beg shift-amt +;; (case-fold-search nil) +;; (pos (- (point-max) (point)))) +;; (beginning-of-line) +;; (setq beg (point)) +;; (cond ((eq indent nil) +;; (setq indent (current-indentation))) +;; (t +;; (skip-chars-forward " \t") +;; (cond ((and ess-indent-with-fancy-comments ;; ### or #! +;; (or (looking-at "###") +;; (and (looking-at "#!") (= 1 (line-number-at-pos))))) +;; (setq indent 0)) +;; ;; Single # comment +;; ((and ess-indent-with-fancy-comments +;; (looking-at "#") (not (looking-at "##"))) +;; (setq indent comment-column)) +;; (t +;; (if (eq indent t) (setq indent 0)) +;; (if (listp indent) (setq indent (car indent))) +;; (cond ((and (looking-at "else\\b") +;; (not (looking-at "else\\s_"))) +;; (setq indent (save-excursion +;; (ess-backward-to-start-of-if) +;; (+ ess-else-offset (current-indentation))))) +;; ((= (following-char) ?}) +;; (setq indent +;; (+ indent +;; (- ess-close-brace-offset ess-indent-offset)))) +;; ((= (following-char) ?{) +;; (setq indent (+ indent ess-brace-offset)))))))) +;; (skip-chars-forward " \t") +;; (setq shift-amt (- indent (current-column))) +;; (if (zerop shift-amt) +;; (if (> (- (point-max) pos) (point)) +;; (goto-char (- (point-max) pos))) +;; (delete-region beg (point)) +;; (indent-to indent) +;; ;; If initial point was within line's indentation, +;; ;; position after the indentation. +;; ;; Else stay at same point in text. +;; (if (> (- (point-max) pos) (point)) +;; (goto-char (- (point-max) pos)))) +;; shift-amt)) + +;; (defun S-calculate-indent (&optional parse-start) +;; "Return appropriate indentation for current line as S code. +;; In usual case returns an integer: the column to indent to. +;; Returns nil if line starts inside a string, t if in a comment." +;; (save-excursion +;; (beginning-of-line) +;; (let ((indent-point (point)) +;; (beginning-of-defun-function nil) ;; don't call ess-beginning-of-function +;; (case-fold-search nil) +;; state +;; containing-sexp) +;; (if parse-start +;; (goto-char parse-start) +;; (beginning-of-defun)) +;; (while (< (point) indent-point) +;; (setq parse-start (point)) +;; (setq state (parse-partial-sexp (point) indent-point 0)) +;; (setq containing-sexp (car (cdr state)))) +;; (cond ((or (nth 3 state) (nth 4 state)) +;; ;; return nil or t if should not change this line +;; (nth 4 state)) +;; ((null containing-sexp) +;; ;; Line is at top level. May be data or function definition, +;; (beginning-of-line) +;; (if (and (/= (following-char) ?\{) +;; (save-excursion +;; (ess-backward-to-noncomment (point-min)) +;; (ess-continued-statement-p))) +;; ess-continued-statement-offset +;; 0)) ; Unless it starts a function body +;; ((/= (char-after containing-sexp) ?{) +;; ;; line is expression, not statement: +;; ;; indent to just after the surrounding open. +;; (goto-char containing-sexp) +;; (let ((bol (save-excursion (beginning-of-line) (point)))) + +;; ;; modified by shiba@isac 7.3.1992 +;; (cond ((and (numberp ess-expression-offset) +;; (re-search-backward "[ \t]*expression[ \t]*" bol t)) +;; ;; This regexp match every "expression". +;; ;; modified by shiba +;; ;;(forward-sexp -1) +;; (beginning-of-line) +;; (skip-chars-forward " \t") +;; ;; End +;; (+ (current-column) ess-expression-offset)) +;; ((and (numberp ess-arg-function-offset) +;; (re-search-backward +;; "=[ \t]*\\s\"?\\(\\w\\|\\s_\\)+\\s\"?[ \t]*" +;; bol +;; t)) +;; (forward-sexp -1) +;; (+ (current-column) ess-arg-function-offset)) +;; ;; "expression" is searched before "=". +;; ;; End + +;; (t +;; (progn (goto-char (1+ containing-sexp)) +;; (current-column)))))) +;; (t +;; ;; Statement level. Is it a continuation or a new statement? +;; ;; Find previous non-comment character. +;; (goto-char indent-point) +;; (ess-backward-to-noncomment containing-sexp) +;; ;; Back up over label lines, since they don't +;; ;; affect whether our line is a continuation. +;; (while (eq (preceding-char) ?\,) +;; (ess-backward-to-start-of-continued-exp containing-sexp) +;; (beginning-of-line) +;; (ess-backward-to-noncomment containing-sexp)) +;; ;; Now we get the answer. +;; (if (ess-continued-statement-p) +;; ;; This line is continuation of preceding line's statement; +;; ;; indent ess-continued-statement-offset more than the +;; ;; previous line of the statement. +;; (progn +;; (ess-backward-to-start-of-continued-exp containing-sexp) +;; (+ ess-continued-statement-offset (current-column) +;; (if (save-excursion (goto-char indent-point) +;; (skip-chars-forward " \t") +;; (eq (following-char) ?{)) +;; ess-continued-brace-offset 0))) +;; ;; This line starts a new statement. +;; ;; Position following last unclosed open. +;; (goto-char containing-sexp) +;; ;; Is line first statement after an open-brace? +;; (or +;; ;; If no, find that first statement and indent like it. +;; (save-excursion +;; (forward-char 1) +;; (while (progn (skip-chars-forward " \t\n") +;; (looking-at "#")) +;; ;; Skip over comments following openbrace. +;; (forward-line 1)) +;; ;; The first following code counts +;; ;; if it is before the line we want to indent. +;; (and (< (point) indent-point) +;; (current-column))) +;; ;; If no previous statement, +;; ;; indent it relative to line brace is on. +;; ;; For open brace in column zero, don't let statement +;; ;; start there too. If ess-indent-offset is zero, use +;; ;; ess-brace-offset + ess-continued-statement-offset +;; ;; instead. +;; ;; For open-braces not the first thing in a line, +;; ;; add in ess-brace-imaginary-offset. +;; (+ (if (and (bolp) (zerop ess-indent-offset)) +;; (+ ess-brace-offset ess-continued-statement-offset) +;; ess-indent-offset) +;; ;; Move back over whitespace before the openbrace. +;; ;; If openbrace is not first nonwhite thing on the line, +;; ;; add the ess-brace-imaginary-offset. +;; (progn (skip-chars-backward " \t") +;; (if (bolp) 0 ess-brace-imaginary-offset)) +;; ;; If the openbrace is preceded by a parenthesized exp, +;; ;; move to the beginning of that; +;; ;; possibly a different line +;; (progn +;; (if (eq (preceding-char) ?\)) +;; (forward-sexp -1)) +;; ;; Get initial indentation of the line we are on. +;; (current-indentation)))))))))) + +;;*;; S/R Pretty-Editing + +(defun ess-fix-comments (&optional dont-query verbose) + "Fix ess-mode buffer so that single-line comments start with at least '##', +and ensure space before subsequent text." + (interactive "P") + (ess-replace-regexp-dump-to-src "#\\([A-Za-z0-9]\\)" "# \\1" nil verbose) + (ess-replace-regexp-dump-to-src "^\\([ \t]*#\\)\\([^#]\\)" + "\\1#\\2" dont-query verbose)) + +(defun ess-dump-to-src (&optional dont-query verbose) + "Make the changes in an S - dump() file to improve human readability." + (interactive "P") + (ess-replace-regexp-dump-to-src "^\"\\([a-z.][a-z.0-9]*\\)\" *<-\n" + "\n\\1 <- " + dont-query verbose)) + +(defun ess-num-var-round (&optional dont-query verbose) + "Is VERY useful for dump(.)'ed numeric variables; ROUND some of them by + replacing endings of 000000*.. and 999999*. Martin Maechler" + (interactive "P") + (save-excursion + (goto-char (point-min)) + (let ((num 0) + (str "") + (rgxp "000000+[1-9]?[1-9]?\\>") + (to "")) + (if dont-query + (ess-rep-regexp rgxp to nil nil verbose) + (query-replace-regexp rgxp to nil)) + (while (< num 9) + (setq str (concat (int-to-string num) "999999+[0-8]*")) + (if (and (numberp verbose) (> verbose 1)) + (message (format "\nregexp: '%s'" str))) + (goto-char (point-min)) + (ess-rep-regexp str (int-to-string (1+ num)) + 'fixedcase 'literal verbose) + (setq num (1+ num)))))) + +(defun ess-fix-dot (before-chars &optional dont-query verbose) + "Remove trailing decimal '.' (\"dot\"), before BEFORE; typically from S-plus" + ;; typically, before-chars = "]:" or more + (ess-replace-regexp-dump-to-src + (concat "\\([0-9]\\)\\.\\( *[" before-chars "]\\)") + ;; 111 ^ + "\\1\\2" dont-query verbose)) + +(defun ess-fix-dot-1 (&optional do-query verbose) + "Remove trailing decimal '.' (\"dot\"), before ':' or ']', i.e., +in cases where it's ugly and nonsense. DO-QUERY(prefix) asks before replacing." + (interactive "P") + (ess-fix-dot "]:" (not do-query) verbose)) + +(defun ess-fix-dot-more (&optional dont-query verbose) + "Remove trailing decimal '.' (\"dot\", typically from S+) in more cases + than `ess-fix-dot-1'." + (interactive "P") + (ess-fix-dot-1 nil verbose) + (ess-fix-dot ",)" dont-query verbose)) + +(defun ess-fix-EQ-assign (&optional dont-query verbose not-all) + "Replace \"=\" by \"<-\" in places where it 'might make sense', e.g., +for function assignments and lines not ending in \",\". +Be *careful* for list()s of functions and when argument not-all is +nil (as by default) !" + ;;TODO: "in the few places we can be very sure.." + ;;---- is hard in general: local functions: ok; but functions in + ;; list(a = function(x) abs(x), b= function(y) bound(y)) *NOT* ok! + (interactive "P") + (ess-replace-regexp-dump-to-src + "^\\( *[a-z.][_a-z.0-9]*\\) *= *\\(function *(\\)" + "\\1 <- \\2" dont-query verbose) + (unless not-all + ;; "too" aggressive {proposing to replace function argument specs}: + (ess-replace-regexp-dump-to-src ;; all those *not* ending in "," + ;; including Mat[ i, ] = ..., + ;; but not `names(x) = "..."' for that is "confused" with plot(x=x,..) + "^\\( *[a-z.][][, \"_a-z.0-9]*\\) *= *\\([a-z.0-9({]\\(.*[^,]\\)? *$\\)" + "\\1 <- \\2" nil ;; always query - often has many "false positives" + verbose))) + +;;; All of the above three : +(defun ess-MM-fix-src (&optional dont-query verbose) + "Clean up ess-source code which has been produced by dump(..), and other +code typically produced by other tools. Produces more readable code, +and one that is well formatted in emacs ess-mode." + (interactive "P") + ;; each of the following does a save-excursion: + (ess-dump-to-src dont-query) + (ess-fix-comments dont-query) + (ess-num-var-round dont-query verbose) + (ess-fix-dot-more dont-query verbose) + (ess-fix-EQ-assign dont-query verbose 'not-all)) + +(defun ess-fix-miscellaneous (&optional from verbose) + "Fix Miscellaneous S/R `ill-formation's from current \\[point]. + Particularly use \"<-\"and put spaces around operators." + (interactive "d\nP"); Defaults: point and prefix (C-u) + ;; activate by (setq ess-verbose t) + (ess-if-verbose-write + (format "ess-fix-misc begin (from = %s, verbose = %s)\n" from verbose)) + (save-excursion + + (when (and (string= ess-dialect "R") + (fboundp 'ess-r-fix-T-F)) + (ess-r-fix-T-F from (not verbose))) + + ;; activate by (setq ess-verbose t) + (ess-if-verbose-write "ess-fix-misc: after fix-T-F\n");___D___ + + ;; former C and matlab programmers leave trailing ";" : + ;; (goto-char from) (ess-rep-regexp "; *$" "" nil 'literal verbose) + ;; (ess-if-verbose-write "ess-fix-misc: after trailing ';'\n");___D___ + (goto-char from) (ess-rep-regexp ";\\( *\\)#" "\\1#" nil nil verbose) + (ess-if-verbose-write "ess-fix-misc: after ';' before #\n");___D___ + + ;;from R 1.9.x "_" is valid in names; here assume no initial / trailing '_' + ;; BUG: The following changes "beta_ " or " _abc" + ;; (goto-char from) (ess-rep-regexp " +_ *" " <- " nil 'literal verbose) + ;; (goto-char from) (ess-rep-regexp "_ +" " <- " nil 'literal verbose) + + (ess-if-verbose-write "ess-fix-misc: before 'around \"<-\"' :\n");___D___ + ;; ensure space around "<-" ---- but only replace if necessary: + (goto-char from) + (ess-rep-regexp "\\([^< \t\n]\\)\\(<" (not ">=") : + (goto-char from);; --> " <", care with "->": + (ess-rep-regexp "\\([^-< \t\n]\\)\\([<>]\\)" "\\1 \\2" nil nil verbose) + ;; ">" -> "> " , for "<", don't split "<-" nor "<<-": + (goto-char from) + (ess-rep-regexp "\\(>=?\\)\\([^= \t\n]\\)" "\\1 \\2" nil nil verbose) + (goto-char from) + (ess-rep-regexp "\\(<=?\\)\\([^-<= \t\n]\\)" "\\1 \\2" nil nil t) + + (ess-if-verbose-write "ess-fix-misc: before \"=\" \"==\" .. :\n");___D___ + ;; -- ensure space around "=", "==", "!=" : + (goto-char from) ;; --> " =" + (ess-rep-regexp "\\([^=!<> ]\\)\\([=!]?\\)=" "\\1 \\2=" nil nil verbose) + (goto-char from) (ess-rep-regexp "=\\([^= ]\\)" "= \\1" nil nil verbose) + + (goto-char from) ;; add a space between "{" and surrounding ..char: + (ess-rep-regexp "{\\([.A-Za-z()]\\)" "{ \\1" 'fix nil verbose) + (ess-rep-regexp "\\([()]\\){" "\\1 {" 'fix nil verbose) + (goto-char from) ;; add a space between "}" and a preceding wordchar: + (ess-rep-regexp "\\([A-Za-z0-9()]\\)}" "\\1 }" 'fix nil verbose) + (ess-space-around "else" from verbose) + + (ess-if-verbose-write "ess-fix-misc: after \"{ ... }\" :\n");___D___ + (goto-char from) ;; add a space inside "){" + (ess-rep-regexp "){" ") {" 'fix nil verbose) + + ;; add a newline and indent before a "}" + ;; --- IFF there's NO "{" or "#" AND some NON-white text on the same line: + ;;D (if verbose (message "\t R-fix-misc..: Hard.. '}'")) + (goto-char from) + (ess-rep-regexp "^\\([^#{\n]*[^#{ \t\n]+[ \t]*\\)}[ \t]*$" + "\\1\n}" 'fix nil verbose) + (ess-if-verbose-write "ess-fix-misc __end__\n");___D___ + )) + +(defun ess-cycle-assign () + "Cycle between assignment symbols in `ess-assign-list'. +On consecutive calls, replace the assignment symbol before point +with the next symbol from that list. This function sets the last +keypress to repeat it, so if it is bound to \"C-c C-=\" pressing +\"=\" again cycles to the next assignment." + (interactive) + (if (eq last-command this-command) + (let ((slist ess-assign-list) + str) + ;; The or statements in the setq allow cycling past the end of + ;; ess-assign-list. + (while (and (setq str (or (car slist) (car ess-assign-list)) + slist (or (cdr slist) ess-assign-list)) + (not (and (re-search-backward str + (- (point) (length str)) t) + (not (replace-match (car slist)))))))) + (insert (car ess-assign-list))) + (set-transient-map + (let ((map (make-sparse-keymap)) + (key (format "%c" (event-basic-type last-input-event)))) + (define-key map (kbd key) #'ess-cycle-assign) + map))) + +(defun ess-insert-assign (arg) + "Insert the first element of `ess-assign-list' unless in string or comment. +If the character before point is the first element of +`ess-assign-list', replace it with the last character typed. + +If `ess-language' is not \"S\", call `self-insert-command' with ARG." + (interactive "p") + (if (string= ess-language "S") + (let* ((assign (car ess-assign-list)) + (event (event-basic-type last-input-event)) + (char (ignore-errors (format "%c" event)))) + (cond ((and char (ess-inside-string-or-comment-p)) + (insert char)) + ((re-search-backward assign (- (point) (length assign)) t) + (if (and char (numberp event)) + (replace-match char t t) + (replace-match ""))) + (t (insert assign)))) + (funcall #'self-insert-command arg))) + +;; In case people had this in their config don't cause errors: +(define-obsolete-function-alias 'ess-smart-S-assign 'ess-insert-assign "ESS 18.10") +(define-obsolete-function-alias 'ess-disable-smart-S-assign #'ignore "ESS 18.10") + +(defun ess-add-MM-keys () + "Define MM's user keys, currently \\\\[ess-insert-function-outline], and + \\\\[ess-execute-screen-options]." + (interactive) + (require 'ess-mode); typically unnecessary + (require 'ess-inf); dito + (define-key inferior-ess-mode-map "\C-cw" 'ess-execute-screen-options) + + ;; Make M-- : [Alt] + [-] (in addition to / instead of "_" = (on US-keyboard) [Shift]+ [-] + ;; Note this overwrites 'M--' as "negative argument" (still on 'C--'): + (define-key ess-mode-map [?\M--] 'ess-insert-assign) + (define-key inferior-ess-mode-map [?\M--] 'ess-insert-assign) + ) + + +(defun ess-dump-args-and-go (Sfunc) ; &optional buff) + "Dump the function name, with arguments, to a buffer for editing. + +Currently, this needs to: + 1. set the buffer to the right mode, with the right settings + 2. format the statement, + 3. c/function/Sfunc/ +and I need to relearn emacs lisp (but I had to, anyway." + (interactive "sFunction ? ") + (let* ((buffname "ess-complete.R") + (buf (ess-execute (format "args(%s)" Sfunc) t buffname))) + (pop-to-buffer buf) + (while (search-forward "function" nil t) + (replace-match Sfunc nil t)) + (when (fboundp 'ess-r-mode) + (ess-r-mode)))) + +(defun ess-chm-display-help-on-object (object &rest args) + (ess-eval-linewise (concat "help(" object ")"))) + + +;;; S imenu support + +;; don't use syntax classes, bad for etags +(defvar ess-imenu-S-generic-expression + '(("Functions" "^\\([^ \t\n]+\\)[ \t\n]*<-[ \t\n]*function[ ]*(" 1) + ("Classes" "^.*setClass(\\(.*\\)," 1) + ("Coercions" "^.*setAs(\\([^,]+,[^,]*\\)," 1) ; show from and to + ("Generics" "^.*setGeneric(\\([^,]*\\)," 1) + ("Methods" "^.*set\\(Group\\|Replace\\)?Method(\\([^,]+,[^,]*\\)" 2) + ;;[ ]*\\(signature=\\)?(\\(.*,?\\)*\\)," 1) + ;; + ;;("Other" "^\\(.+\\)\\s-*<-[ \t\n]*[^\\(function\\|read\\|.*data\.frame\\)]" 1) + ("Package" "^.*\\(library\\|require\\)(\\([^)]*\\)" 2) + ("Data" "^\\(.+\\)[ \t\n]-*<-[ \t\n]*\\(read\\|.*data\.frame\\).*(" 1))) + +(defun ess-imenu-S (&optional arg) + "S Language Imenu support for ESS." + (declare (obsolete "It is set automatically in major modes" "ESS 19.04")) + (imenu-add-to-menubar "Imenu-S")) + +(define-obsolete-function-alias 'ess-imenu-R 'ess-imenu-S "ESS 19.04") + + + ;;; Speedbar stuff. +(defun ess-S-initialize-speedbar () + "Extend to all extensions; see initialization, and edit." + (speedbar-add-supported-extension ".R") + (speedbar-add-supported-extension ".S") + (speedbar-add-supported-extension ".s") + (speedbar-add-supported-extension ".q")) + + ;(if (featurep 'speedbar) + ; (progn + ; (message "enabling speedbar support") + ; (require 'speedbar) + ; (ess-S-initialize-speedbar))) + +(eval-when-compile + (condition-case nil + (progn + (require 'speedbar) + (when (featurep 'speedbar) + + (defun S-speedbar-buttons (buffer) + "attempted hack." + + ;;(speedbar-make-tag-line) + ;;(speedbar-insert-button) + (speedbar-with-writable)) + + (fset 'R-speedbar-buttons 'S-speedbar-buttons) + + (defun S-speedbar-menu-items ( ) + "Need to write.") + + (ess-S-initialize-speedbar))) + (error nil))) + +(defun ess-s-get-help-topics-function (name) + "Return a list of current S help topics associated with process NAME. +If 'sp-for-help-changed?' process variable is non-nil or +`ess-help-topics-list' is nil, (re)-populate the latter and +return it. Otherwise, return `ess-help-topics-list'." + (with-ess-process-buffer nil + (when (fboundp 'ess-help-r--check-last-help-type) + (ess-help-r--check-last-help-type)) + (cond + ;; (Re)generate the list of topics + ((or (not ess-help-topics-list) + (ess-process-get 'sp-for-help-changed?)) + (ess-process-put 'sp-for-help-changed? nil) + (setq ess-help-topics-list + (delete-dups + (append (ess-get-object-list name 'exclude-1st) + (ess-get-help-files-list) + (ess-get-help-aliases-list))))) + (t + ess-help-topics-list)))) + +;;; On a PC, the default is S+. +;; Elsewhere (unix and linux) the default is S+ +(cond (ess-microsoft-p + ;; MS-Windows------------------------------------------------- + + ;; (fset 'S + ;; (if (equal (file-name-nondirectory shell-file-name) "cmdproxy.exe") + ;; 'S+-msdos + ;; 'S+)) + (defun S-by-icon (&rest x) + (interactive) + (message "Please start S+ from the icon. + Then you can connect emacs to it with `M-x S-existing'.") + ) + (fset 'S 'S-by-icon) + (fset 'S-existing + (if (equal (file-name-nondirectory shell-file-name) "cmdproxy.exe") + 'S+-msdos-existing + 'S+-existing)) + (fset 'Sqpe 'Sqpe+) + (fset 's-mode 'S+-mode) + (fset 's-transcript-mode 'S+-transcript-mode)) + + (t ;;((eq system-type 'gnu/linux) + ;; Linux etc (including Mac OSX !?) -------------------------- + (fset 'S 'S+) + (fset 's-mode 'S+-mode) + (fset 's-transcript-mode 'S+-transcript-mode))) + +;;;;* Alias S-mode to s-mode +;;; Emacs will set the mode for a file based on the file's header. +;;; The mode name is indicated by putting it between -*- on the top line. +;;; (Other commands can go here too, see an Emacs manual.) +;;; For a file you also load, you will want a leading # (comment to S) +;;; Emacs will downcase the name of the mode, e.g., S, so we must provide +;;; s-mode in lower case too. That is, "#-*- S-*-" invokes s-mode and +;;; not S-mode. +(fset 'S-transcript-mode 's-transcript-mode) +(fset 'S-mode 's-mode) + + +(define-obsolete-function-alias 'ess-toggle-S-assign-key #'ignore "ESS 18.10") +(define-obsolete-function-alias 'ess-smart-underscore 'ess-insert-assign "ESS 18.10") +(define-obsolete-function-alias 'ess-insert-S-assign 'ess-insert-assign "ESS 18.10") + +(define-obsolete-function-alias 'ess-toggle-underscore 'ess-disable-smart-S-assign "ESS 18.10") +(define-obsolete-function-alias 'ess-toggle-S-assign 'ess-disable-smart-S-assign "ESS 18.10") + +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.[Ss]t\\'" . S-transcript-mode)) +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.Sout" . S-transcript-mode)) + +(provide 'ess-s-lang) + +;;; ess-s-lang.el ends here diff --git a/elpa/ess-20190121.1430/ess-sas-a.el b/elpa/ess-20190121.1430/ess-sas-a.el new file mode 100644 index 00000000..c961b32c --- /dev/null +++ b/elpa/ess-20190121.1430/ess-sas-a.el @@ -0,0 +1,1458 @@ +;;; ess-sas-a.el --- clean-room implementation of many SAS-mode features + +;; Copyright (C) 1997--2009 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Author: Rodney A. Sparapani +;; Maintainer: ESS-core@r-project.org +;; Created: 17 November 1999 +;; Keywords: languages + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Code: + +(require 'ess-mode) +;; Silence the byte compiler +;; FIXME: This is a lot, perhaps they can be moved? +(defvar sas-indent-width) +(defvar SAS-customize-alist) +(defvar sas-mode-local-map) +(declare-function ess-num-or-zero "ess-sas-d") +;; FIXME: What is this doing here??? +(declare-function ess-add-ess-process "essd-els") +(declare-function ess-listing-minor-mode "ess-sas-l") +;;; Table of Contents +;;; Section 1: Variable Definitions +;;; Section 2: Function Definitions +;;; Section 3: Key Definitions + +;;; Section 1: Variable Definitions + +(defvar ess-sas-file-path "." + "Full path-name of the sas file to perform operations on.") + +(defcustom ess-sas-data-view-libname " " + "SAS code to define a library for `ess-sas-data-view-fsview' +or `ess-sas-data-view-insight'." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-data-view-submit-options + (if ess-microsoft-p "-noenhancededitor -nosysin -log NUL:" + "-nodms -nosysin -log /dev/null -terminal") + "The command-line options necessary for your OS with respect to +`ess-sas-data-view-fsview' and `ess-sas-data-view-insight'." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-data-view-fsview-command "; proc fsview data=" + "SAS code to open a SAS dataset with `ess-sas-data-view-fsview'." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-data-view-fsview-statement " " + "SAS code to perform a PROC FSVIEW statement with `ess-sas-data-view-fsview'." + :group 'ess-sas + :type 'string) + + +(make-variable-buffer-local 'ess-sas-data-view-fsview-statement) + +(defcustom ess-sas-data-view-insight-command "; proc insight data=" + "SAS code to open a SAS dataset with `ess-sas-data-view-insight'." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-data-view-insight-statement " " + "SAS code to perform a PROC FSVIEW statement with `ess-sas-data-view-insight'." + :group 'ess-sas + :type 'string) + +(make-variable-buffer-local 'ess-sas-data-view-insight-statement) + +(defcustom ess-sas-graph-view-suffix-regexp + "[.]\\([eE]?[pP][sS]\\|[pP][dD][fF]\\|[gG][iI][fF]\\|[jJ][pP][eE]?[gG]\\|[tT][iI][fF][fF]?\\)" + "GSASFILE suffix regexp." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-graph-view-viewer-alist + ;;creates something like + ;;'(("[pP][dD][fF]" . "/usr/local/bin/acroread") ("[eE]?[pP][sS]" . "/usr/local/bin/gv"))) + (let ((ess-tmp-alist nil) + (ess-tmp-ps nil) (ess-tmp-pdf nil)) + + (setq ess-tmp-ps (executable-find (if ess-microsoft-p "gsview32" "gsview"))) + + (if (not ess-tmp-ps) (setq ess-tmp-ps (executable-find "gv"))) + + (if (not ess-tmp-ps) (setq ess-tmp-ps (executable-find "ghostview"))) + + (setq ess-tmp-pdf (executable-find "evince")) + + (if (not ess-tmp-pdf) (setq ess-tmp-pdf (executable-find "xpdf"))) + + (if (not ess-tmp-pdf) (setq ess-tmp-pdf (if ess-microsoft-p "acrord32" "acroread"))) + + (if (and ess-tmp-ps ess-tmp-pdf) + (setq ess-tmp-alist (list (cons "[eE]?[pP][sS]" ess-tmp-ps) + (cons "[pP][dD][fF]" ess-tmp-pdf))) + + (if ess-tmp-ps + (setq ess-tmp-alist (list (cons "[eE]?[pP][sS]" ess-tmp-ps) + (cons "[pP][dD][fF]" ess-tmp-ps)))))) + + "Associate file name extensions with graphics image file viewers." + :group 'ess-sas + :type '(choice (const nil) (alist))) + +(defcustom ess-sas-log-max 0 + "If >0 and .log file exceeds this many bytes, just \"refresh\" this many bytes." + :group 'ess-sas + :type 'integer) + +(defcustom ess-sas-rtf-font-name "Courier" ; "Bitstream Vera Sans Mono" + "Name of font with which to create MS RTF." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-shell-buffer "*shell*" + "Name that you want to use for the shell buffer; buffer-local." + :group 'ess-sas + :type 'string) + +(make-variable-buffer-local 'ess-sas-shell-buffer) + +(defcustom ess-sas-shell-buffer-remote-host nil + "Remote host that you want to open a shell on." + :group 'ess-sas + :type '(choice (const nil) string)) + +(make-variable-buffer-local 'ess-sas-shell-buffer-remote-host) + +(defcustom ess-sas-shell-buffer-remote-init "ssh" + "Command to open a shell on a remote host." + :group 'ess-sas + :type 'string) + +(make-variable-buffer-local 'ess-sas-shell-buffer-remote-init) + +(defcustom ess-sas-submit-mac-virtual-pc nil + "Non-nil means that you want to run Windows SAS in a +Virtual PC emulator on your Mac; buffer-local." + :group 'ess-sas + :type 'boolean) + +(make-variable-buffer-local 'ess-sas-submit-mac-virtual-pc) + +(defcustom sas-program "sas" + "Command to invoke SAS, default for buffer-local `ess-sas-submit-command'." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-submit-command sas-program + "Command to invoke SAS in batch; buffer-local." + :group 'ess-sas + :type 'string) + +(make-variable-buffer-local 'ess-sas-submit-command) + +(defcustom ess-sas-submit-command-options "-rsasuser" + "Options to pass to SAS in batch; buffer-local." + :group 'ess-sas + :type 'string) + +(make-variable-buffer-local 'ess-sas-submit-command-options) + +(defvar-local ess-sas-submit-method + (if (and (and ess-microsoft-p + (fboundp 'w32-shell-dos-semantics)) + (w32-shell-dos-semantics)) + 'ms-dos 'sh) + "Method used by `ess-sas-submit'. +The default is based on the value of the emacs variable `system-type' +and, on Windows, the function `w32-shell-dos-semantics'. +'sh if *shell* runs sh, ksh, csh, tcsh or bash +'ms-dos if *shell* follows MS-DOS semantics + +Unix users will get 'sh by default. + +Windows users running bash in *shell* will get 'sh by default. + +Windows users running MS-DOS in *shell* will get 'ms-dos by default. + +Users accessing a remote machine with `telnet', `rlogin', `ssh', etc., +should set this variable to 'sh regardless of their local shell +(since their remote shell is 'sh).") + +(defcustom ess-sas-graph-view-viewer-default + (if ess-microsoft-p "explorer" + (if (equal ess-sas-submit-method 'sh) "sdtimage")) + "Default graphics image file viewer." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-submit-post-command + (if (equal ess-sas-submit-method 'sh) "&" + (if ess-microsoft-p "-icon")) + "Command-line statement to post-modify SAS invocation." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-submit-pre-command ;;"nohup" + (if (equal ess-sas-submit-method 'sh) + ;; nice is tricky, higher numbers give you lower priorities + ;; if you are using csh/tcsh, the default priority is 4 + ;; if you are using most other shells, the default priority is 10, + ;; and some implementations are higher, i.e. zsh unless you + ;; specify "setopt no_bg_nice" in your ~/.zshrc + ;; therefore, on the same machine, you can run at a higher or + ;; lower priority by changing shells, although, the command + ;; line is the same! + ;; the following code should give you a priority of 10 regardless + ;; of which shell is in use, but it will default to the old + ;; behavior if csh or variant is not recognized + ;; this should avoid the necessity of each user needing to set this + ;; variable correctly based on the shell that they use and provide + ;; an environment where all shells are treated equally + + (let* ((temp-shell (getenv "SHELL")) + ;; AJR: old CYGWIN versions return nil for (getenv + ;; "SHELL"), so we need to deal with it 'cause I have to + (temp-char (if temp-shell + (string-match "/" temp-shell) + nil))) + (while temp-char + (setq temp-shell (substring temp-shell (+ 1 temp-char))) + (setq temp-char (string-match "/" temp-shell))) + + (cond ((or (equal temp-shell "csh") (equal temp-shell "tcsh")) + "nohup nice +6") + (t "nohup nice"))) + (if ess-microsoft-p "start")) + "Command-line statement to precede SAS invocation, e.g. start or nohup." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-suffix-1 "txt" + "The first suffix to associate with SAS." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-suffix-2 "csv" + "The second suffix to associate with SAS." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-suffix-regexp + (concat "[.]\\([sS][aA][sS]\\|[lL][oO][gG]\\|[lL][sS][tT]" + (if ess-sas-suffix-1 (concat + "\\|" (downcase ess-sas-suffix-1) "\\|" (upcase ess-sas-suffix-1))) + (if ess-sas-suffix-2 (concat + "\\|" (downcase ess-sas-suffix-2) "\\|" (upcase ess-sas-suffix-2))) + "\\)") + "Regular expression for SAS suffixes." + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-tab-stop-list + '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100 104 108 112 116 120) + "List of tab stop positions used by `tab-to-tab-stop' in ESS[SAS]." + :type '(repeat integer) + :group 'ess-sas) + +(defcustom ess-sas-temp-root "-temp" + "Appended to root name of the temporary .sas file for `ess-sas-submit-region'." + :group 'ess-sas + :type 'string) + +(defvar ess-sas-versions '("sas") + "List of partial strings for versions of SAS to access within ESS. +Each string specifies the start of a filename. If a filename +beginning with one of these strings is found on `exec-path', a M-x +command for that version of SAS is made available. For example, if the +file \"sas8\" is found and this variable includes the string +\"sas\", a function called `M-x SAS8' will be available to run that +version of SAS. +If duplicate versions of the same program are found (which happens if +the same path is listed on `exec-path' more than once), they are +ignored by calling `delete-dups'. +If you set this variable, you need to restart Emacs (and set this variable +before ess-site is loaded) for it to take effect.") + +(defvar ess-sas-global-unix-keys nil + "Non-nil if function keys use Unix-like SAS key definitions in all modes.") + +(defvar ess-sas-local-pc-keys nil + "Non-nil if function keys use PC-like SAS key definitions +in SAS-mode and related modes.") + +(defvar ess-sas-local-unix-keys nil + "Non-nil if function keys use Unix-like SAS key definitions +in SAS-mode and related modes.") + +;;; Section 2: Function Definitions + + +(defun ess-ebcdic-to-ascii-search-and-replace () + "Search and replace EBCDIC text with ASCII equivalents." + (interactive) + (let ((ess-tmp-dd (executable-find "dd")) (ess-tmp-recode (executable-find "recode")) + (ess-tmp-util nil) (ess-tmp-util-args nil)) + + (if ess-tmp-dd (progn + (setq ess-tmp-util ess-tmp-dd) + (setq ess-tmp-util-args "conv=ascii")) + + (setq ess-tmp-util ess-tmp-recode) + (setq ess-tmp-util-args "EBCDIC..ISO-8859-1")) + + (if ess-tmp-util + (while (search-forward-regexp "[^\f\t\n -~][^\f\t\n -?A-JQ-Yb-jp-y]*[^\f\t\n -~]?" nil t) + (call-process-region (match-beginning 0) (match-end 0) + ess-tmp-util t (list t nil) t ess-tmp-util-args))))) + + +(defun ess-exit-notify-sh (string) + "Detect completion or failure of submitted job and notify the user." + ;(let* ((exit-done "\\[[0-9]+\\]\\ *\\+*\\ *\\(Exit\\|Done\\).*$") + (let* ((exit-done "\\[[0-9]+\\]\\ *\\+*\\ *\\(Exit\\|Done\\)[^\r\n]*") ; GNU Emacs needs this + (beg (string-match exit-done string))) + (if beg + (message "%s" (substring string beg (match-end 0)))))) + + +(defun ess-sas-append-log () + "Append ess-temp.log to the current .log file." + (interactive) + (ess-sas-goto "log" 'revert) + (goto-char (point-max)) + (insert-file-contents (concat (ess-sas-temp-root) ".log")) + (save-buffer)) + +(defun ess-sas-append-lst () + "Append ess-temp.lst to the current .lst file." + (interactive) + (ess-sas-goto "lst" 'revert) + (goto-char (point-max)) + (insert-file-contents (concat (ess-sas-temp-root) ".lst")) + (save-buffer)) + +(defun ess-sas-backward-delete-tab () + "Moves the cursor to the previous tab-stop, deleting any characters +on the way." + (interactive) + + (let* (;; point of search + ;;(ess-sas-search-point nil) + ;; column of search + ;;(ess-sas-search-column nil) + ;; limit of search + ;;(ess-sas-search-limit nil) + ;; text to be inserted after a back-tab, if any + ;;(ess-sas-end-text "end;") + ;; current-column + (ess-sas-column (current-column)) + ;; remainder of current-column and sas-indent-width + (ess-sas-remainder (% ess-sas-column sas-indent-width))) + + (if (not (= ess-sas-column 0)) + (progn + (if (= ess-sas-remainder 0) + (setq ess-sas-remainder sas-indent-width)) + + (let ((backward-delete-char-untabify-method 'nil)) + (backward-delete-char-untabify ess-sas-remainder t) + (setq ess-sas-column (- ess-sas-column ess-sas-remainder)) + (move-to-column ess-sas-column) + (setq left-margin ess-sas-column)) + )) + )) + +;; this feature was far too complicated to perfect +;; (if ess-sas-smart-back-tab (progn +;; (save-excursion +;; (setq ess-sas-search-point +;; (search-backward-regexp "end" nil t)) + +;; (if (and ess-sas-search-point +;; (search-backward-regexp "%" (+ ess-sas-search-point -1) t)) +;; (setq ess-sas-search-point (+ ess-sas-search-point -1)) +;; ) + +;; (if (and ess-sas-search-point +;; (not (equal ess-sas-column (current-column)))) +;; (setq ess-sas-search-point nil)) +;; ) + +;; (save-excursion +;; (setq ess-sas-search-point +;; (search-backward-regexp "do\\|select" +;; ess-sas-search-point t)) + +;; (setq ess-sas-search-column (current-column)) + +;; (if ess-sas-search-point (progn +;; (save-excursion +;; (search-backward-regexp "^" nil t) +;; (setq ess-sas-search-limit (point)) +;; ) + +;; (if (search-backward-regexp "if.*then\\|else" ess-sas-search-limit t) +;; (setq ess-sas-search-point (point))) + +;; (if (search-backward-regexp "%" ess-sas-search-limit t) (progn +;; (setq ess-sas-end-text "%end;") +;; (setq ess-sas-search-point (point)) +;; )) + +;; (setq ess-sas-search-column (current-column)) + +;; (if (not (equal ess-sas-column ess-sas-search-column)) +;; (setq ess-sas-search-point nil)) +;; ))) + +;; (if ess-sas-search-point (insert ess-sas-end-text)) +;; )) + +(defun ess-sas-cd () + "Change directory, taking into account various issues with respect to +`ess-sas-file-path'." + ;(interactive) + (ess-sas-file-path) + (ess-sas-goto-shell t) + (comint-send-input) + (if (equal ess-sas-submit-method 'sh) + (insert "cd \"" (car (last (split-string (file-name-directory ess-sas-file-path) + "\\([a-zA-Z][a-zA-Z]:\\|]\\)"))) "\"") + (if (equal ess-sas-submit-method 'ms-dos) (progn + (if (string-equal ":" (substring ess-sas-file-path 1 2)) (progn + (insert (substring ess-sas-file-path 0 2)) + (comint-send-input))) + (insert "cd \"" (convert-standard-filename + (file-name-directory ess-sas-file-path)) "\"")))) + (comint-send-input)) + +(defun ess-sas--change-alist (item value alist) + "Modify ALIST to set VALUE to ITEM. +If there is a pair whose car is ITEM, replace its cdr by VALUE. +If there is not such pair, create new pair (ITEM . VALUE) and +return new alist whose car is the new pair and cdr is ALIST. +\[tomo's ELIS like function]" + (let ((pair (assoc item alist))) + (if pair + (progn + (setcdr pair value) + alist) + (cons (cons item value) alist)))) + +(defun ess-sas-create-local-variables-alist (&optional file-or-buffer) + "Create an alist of local variables from file-or-buffer, use the +current buffer if nil." + (if file-or-buffer (set-buffer (ess-get-file-or-buffer file-or-buffer))) + (ess-sas--change-alist 'ess-kermit-remote-directory ess-kermit-remote-directory nil)) + +(define-obsolete-function-alias + 'ess-change-alist 'ess-sas--change-alist "ESS 18.10") + +(defun ess-sas-data-view-fsview (&optional ess-sas-data) + "Open a dataset for viewing with PROC FSVIEW." + (interactive) + (ess-save-and-set-local-variables) + + (save-excursion (let ((ess-tmp-sas-data nil) + (ess-tmp-sas-data-view-fsview-statement ess-sas-data-view-fsview-statement) + (ess-search-regexp + "[ \t=]\\([a-zA-Z_][a-zA-Z_0-9]*[.][a-zA-Z_][a-zA-Z_0-9]*\\)\\(&.*\\)?[. ,()\t;/]") + (ess-search-except + "^\\([wW][oO][rR][kK]\\|[fF][iI][rR][sS][tT]\\|[lL][aA][sS][tT]\\)[.]")) + + (if ess-sas-data nil (save-match-data + (search-backward-regexp "[ \t=]" nil t) + + (save-excursion + (setq ess-tmp-sas-data + (ess-search-except ess-search-regexp ess-search-except))) + + (if (not ess-tmp-sas-data) + (setq ess-tmp-sas-data + (ess-search-except ess-search-regexp ess-search-except t))) + + (setq ess-sas-data (read-string "Permanent SAS Dataset: " ess-tmp-sas-data)) + + ;; (ess-sas-goto-shell t) + (ess-sas-cd) + + (insert (concat ess-sas-submit-pre-command " " ess-sas-submit-command + " -initstmt \"" ess-sas-data-view-libname ess-sas-data-view-fsview-command + ess-sas-data ";" ess-tmp-sas-data-view-fsview-statement "; run;\" " + ess-sas-submit-command-options " " + ess-sas-data-view-submit-options " " ess-sas-submit-post-command)) + (comint-send-input) + ))))) + +(defun ess-sas-data-view-insight (&optional ess-sas-data) + "Open a dataset for viewing with PROC INSIGHT." + (interactive) + (ess-save-and-set-local-variables) + + (save-excursion (let ((ess-tmp-sas-data nil) + (ess-tmp-sas-data-view-insight-statement ess-sas-data-view-insight-statement) + (ess-search-regexp + "[ \t=]\\([a-zA-Z_][a-zA-Z_0-9]*[.][a-zA-Z_][a-zA-Z_0-9]*\\)\\(&.*\\)?[. ,()\t;]") + (ess-search-except + "^\\([wW][oO][rR][kK]\\|[fF][iI][rR][sS][tT]\\|[lL][aA][sS][tT]\\)[.]")) + + (if ess-sas-data nil (save-match-data + (search-backward-regexp "[ \t=]" nil t) + + (save-excursion + (setq ess-tmp-sas-data + (ess-search-except ess-search-regexp ess-search-except))) + + (if (not ess-tmp-sas-data) + (setq ess-tmp-sas-data + (ess-search-except ess-search-regexp ess-search-except t))) + + (setq ess-sas-data (read-string "Permanent SAS Dataset: " ess-tmp-sas-data)) + + ;; (ess-sas-goto-shell t) + (ess-sas-cd) + + (insert (concat ess-sas-submit-pre-command " " ess-sas-submit-command + " -initstmt \"" ess-sas-data-view-libname ess-sas-data-view-insight-command + ess-sas-data ";" ess-tmp-sas-data-view-insight-statement "; run;\" " + ess-sas-data-view-submit-options " " ess-sas-submit-post-command)) + (comint-send-input) + ))))) + +(defun ess-sas-graph-view () + "Open a GSASFILE for viewing." + (interactive) + ;; (ess-sas-goto-shell t) + (ess-sas-cd) + (ess-sas-goto-log 'no-error-check) + + (save-excursion + (let ( + (ess-tmp-length (length ess-sas-graph-view-viewer-alist)) + (ess-tmp-counter 0) + (ess-tmp-graph nil) + (ess-tmp-graph-alist nil) + (ess-tmp-glyph nil) + (ess-tmp-graph-regexp + (concat "[cCub][oOty][rRpt][dDue][sSt][ ][wW][rR][iI][tT][tT][eE][nN][ ]+[tT][oO][ ]\n?[ ]*\\(.*" + ;; (concat "[ ][rR][eE][cC][oO][rR][dD][sS][ ][wW][rR][iI][tT][tT][eE][nN][ ]+[tT][oO][ ]\n?[ ]*\\(.*" + ess-sas-graph-view-suffix-regexp "\\)"))) + ; (concat "['\"]\\(.*" ess-sas-graph-suffix-regexp "\\)['\"]"))) + + (save-match-data + (search-backward-regexp "[ \t=]" nil t) + + (save-excursion + (setq ess-tmp-graph (ess-search-except ess-tmp-graph-regexp))) + + (if (not ess-tmp-graph) + (setq ess-tmp-graph (ess-search-except ess-tmp-graph-regexp nil t))) + + (setq ess-tmp-graph (read-string "GSASFILE: " + (or ess-tmp-graph ess-sas-file-path))) + + ;;GNU Emacs graphics file image viewing mode loaded? + (if (and (boundp 'auto-image-file-mode) auto-image-file-mode + (string-match "[.][jJ][pP][eE]?[gG]" ess-tmp-graph)) + (find-file ess-tmp-graph) + ;;else XEmacs graphics file image viewing mode loaded? + (if (and (fboundp 'image-mode) + (string-match "[.]\\([jJ][pP][eE]?[gG]\\|[gG][iI][fF]\\)" + ess-tmp-graph)) + (find-file ess-tmp-graph) + ;;else use the appropriate graphics file image viewer + (while (< ess-tmp-counter ess-tmp-length) + (setq ess-tmp-graph-alist + (nth ess-tmp-counter ess-sas-graph-view-viewer-alist)) + (setq ess-tmp-graph-regexp (car ess-tmp-graph-alist)) + + (if (string-match + (concat "[.]" ess-tmp-graph-regexp) ess-tmp-graph) + (progn + (ess-sas-goto-shell t) + (insert ess-sas-submit-pre-command " " + (cdr ess-tmp-graph-alist) " " ess-tmp-graph + (if (equal ess-sas-submit-method 'sh) " &")) + (setq ess-tmp-glyph 'alist) + (setq ess-tmp-counter ess-tmp-length)) + ;;else + (setq ess-tmp-counter (+ ess-tmp-counter 1)))) + + (if (not ess-tmp-glyph) + (progn + (ess-sas-goto-shell t) + (insert ess-sas-submit-pre-command " " + ess-sas-graph-view-viewer-default " " ess-tmp-graph + (if (equal ess-sas-submit-method 'sh) " &")))) + + (comint-send-input))))))) + +(defun ess-sas-file-path (&optional force) + "Define `ess-sas-file-path' to be the current buffer depending on suffix." + (interactive) + + (save-match-data (let ((ess-sas-temp-file (expand-file-name (buffer-name)))) + (if (or force (string-match ess-sas-suffix-regexp ess-sas-temp-file)) ;;(progn + (setq ess-sas-file-path + (nth 0 (split-string ess-sas-temp-file "[<]"))))))) + +(defun ess-sas-file-path-remote-host () + "Return the remote host, if any, associated with `ess-sas-file-path'." + (interactive) + + (let* ((temp-colon-pos (string-match ":" ess-sas-file-path)) + (temp-list + (if (or (not temp-colon-pos) (> temp-colon-pos 2)) + (if (equal ess-sas-file-path ".") nil + (split-string (file-name-directory ess-sas-file-path) + "\\(@\\|:\\|]\\)")) + (list ess-sas-file-path))) + (temp-list-length (length temp-list))) + (if (= temp-list-length 1) (setq temp-list nil) + (if (= temp-list-length 2) (setq temp-list (car temp-list)) + (setq temp-list (nth 1 temp-list)))) + + (if temp-list (setq temp-list + (car (last (split-string temp-list "/"))))) + temp-list)) + +(defun ess-sas-goto (suffix &optional revert no-create) + "Find a file associated with a SAS file by suffix and revert if necessary." +; (interactive) +; (let ((ess-temp-regexp (concat ess-sas-suffix-regexp "[.]?[1-9]?\\'"))) +; can we identify common nonsense extensions like .log.1 or .sas.2? + (let ((ess-temp-regexp (concat ess-sas-suffix-regexp "\\(@.+\\)?\\'"))) + (save-match-data + (if (or (string-match ess-temp-regexp (expand-file-name (buffer-name))) + (string-match ess-temp-regexp ess-sas-file-path)) + (progn + (ess-sas-file-path) + (let* ( + (ess-sas-temp-file (replace-match (concat "." suffix) t t + ess-sas-file-path)) + (ess-sas-temp-buff (find-buffer-visiting ess-sas-temp-file)) + (ess-temp-kermit-remote-directory ess-kermit-remote-directory)) + + (if ess-sas-temp-buff (switch-to-buffer ess-sas-temp-buff) + ;; else + (if no-create (setq revert nil) + (if (file-exists-p ess-sas-temp-file) + (find-file ess-sas-temp-file)))) + ;; else + ;; (let* ((ess-sas-buffer-list (buffer-list)) + ;; (ess-sas-buffer-list-index 0) + ;; (ess-sas-buffer-list-file nil) + ;; (ess-sas-buffer-list-length (length ess-sas-buffer-list))) + ;; (while (< ess-sas-buffer-list-index ess-sas-buffer-list-length) + ;; (setq ess-sas-buffer-list-file + ;; (buffer-file-name (nth ess-sas-buffer-list-index ess-sas-buffer-list))) + ;; (if (and ess-sas-buffer-list-file + ;; (string-match (concat "." suffix) ess-sas-buffer-list-file)) + ;; (switch-to-buffer (nth ess-sas-buffer-list-index ess-sas-buffer-list)) + ;; (setq ess-sas-buffer-list-index ess-sas-buffer-list-length) + ;; ) + ;; (setq ess-sas-buffer-list-index (+ 1 ess-sas-buffer-list-index)) + ;; ))) + + (if (and (not no-create) + (or (string-equal suffix "log") + (string-equal suffix "lst"))) + (ess-kermit-get (file-name-nondirectory ess-sas-temp-file) + ess-temp-kermit-remote-directory)) + + (if revert + (if (and (> ess-sas-log-max 0) (string-equal suffix "log") + (> (ess-num-or-zero (nth 7 (file-attributes ess-sas-temp-file))) + ess-sas-log-max)) + (progn + (insert-file-contents ess-sas-temp-file nil 0 + ess-sas-log-max t) + t) + + (ess-revert-wisely)) nil))))))) + +;;(defun ess-sas-file (suffix &optional revert) +;; "Please use `ess-sas-goto' instead." +;; (let* ((tail (downcase (car (split-string +;; (car (last (split-string (buffer-name) "[.]"))) "[<]")))) +;;(if (fboundp 'file-name-extension) (file-name-extension (buffer-name)) +;; (substring (buffer-name) -3))) +;; (tail-in-tail-list (member tail (list "sas" "log" "lst" +;; ess-sas-suffix-1 ess-sas-suffix-2))) +;; (root (if tail-in-tail-list (expand-file-name (buffer-name)) +;; ess-sas-file-path)) +;; (ess-sas-arg (concat (file-name-sans-extension root) "." suffix)) +;; (ess-sas-buf (find-buffer-visiting ess-sas-arg))) +;; (if (equal tail suffix) (if revert (ess-revert-wisely)) +;; (if (not ess-sas-buf) (find-file ess-sas-arg) +;; (switch-to-buffer ess-sas-buf) +;; (if revert (ess-revert-wisely)))))) + + +(defun ess-sas-goto-file-1 () + "Switch to ess-sas-file-1 and revert from disk." + (interactive) + (ess-sas-goto ess-sas-suffix-1 'revert)) + +(defun ess-sas-goto-file-2 () + "Switch to ess-sas-file-2 and revert from disk." + (interactive) + (ess-sas-goto ess-sas-suffix-2 'revert)) + +(defun ess-sas-goto-log (&optional ess-tmp-no-error-check) + "Switch to the .log file, revert from disk and search for error messages." + (interactive) + + (let ((ess-sas-error (concat + "^ERROR [0-9]+-[0-9]+:\\|^ERROR:\\|_ERROR_=1 _N_=\\|_ERROR_=1[ ]?$" + "\\|NOTE: MERGE statement has more than one data set with repeats" + "\\|NOTE: Variable .* is uninitialized." + "\\|NOTE: SAS went to a new line when INPUT statement reached past" + "\\|NOTE 485-185: Informat .* was not found" + "\\|NOTE: Estimated G matrix is not positive definite." + "\\|NOTE: Compressing data set .* increased size by" + "\\|NOTE: ERROR DETECTED IN ANNOTATE=" + "\\|WARNING: Apparent symbolic reference .* not resolved." + "\\|WARNING: Length of character variable has already been set." + "\\|WARNING: Not all variables in the list " + "\\|WARNING: RUN statement ignored due to previous errors." + "\\|WARNING: Values exist outside the axis range" + "\\|WARNING: Truncated record." + "\\|Bus Error In Task\\|Segmentation Violation In Task")) + (ess-sas-save-point nil)); (ess-sas-pop-mark nil)) + + (if (ess-sas-goto "log" 'revert) (progn + (setq ess-sas-save-point (point)) + (goto-char (point-min))) + (setq ess-sas-save-point (point))) + + ;(if (number-char-or-marker-p ess-sas-save-point) (progn + (if ess-tmp-no-error-check (goto-char ess-sas-save-point) + (if (or (search-forward-regexp ess-sas-error nil t) + (and (goto-char (point-min)) + (search-forward-regexp ess-sas-error nil t))) + t + (goto-char ess-sas-save-point))))) + +(defun ess-sas-goto-lst () + "Switch to the .lst file and revert from disk." + (interactive) + (ess-sas-goto "lst" 'revert)) + +(defun ess-sas-goto-sas (&optional revert) + "Switch to the .sas file." + (interactive) + (ess-sas-goto "sas" revert)) + +(defun ess-sas-goto-shell (&optional set-buffer) + "Set `ess-sas-file-path' and goto `ess-sas-shell-buffer'. If +optional argument is non-nil, then set-buffer rather than switch." + (interactive) + (ess-sas-file-path) + + ; The following let* block is an attempt to deal with remote directories. + (let* ((temp-shell-buffer-remote-host + (or ess-sas-shell-buffer-remote-host (ess-sas-file-path-remote-host))) + (temp-shell-buffer-remote-init ess-sas-shell-buffer-remote-init) + (temp-shell-buffer + (if temp-shell-buffer-remote-host + (concat "*" temp-shell-buffer-remote-host "*") + ess-sas-shell-buffer)) + ) + + (if (get-buffer temp-shell-buffer) + (if set-buffer (set-buffer temp-shell-buffer) + (switch-to-buffer temp-shell-buffer)) + (shell) + (rename-buffer temp-shell-buffer) + (ess-sleep) ; GNU Emacs needs this + + (if temp-shell-buffer-remote-host (progn + (insert (concat + temp-shell-buffer-remote-init " " temp-shell-buffer-remote-host)) + (comint-send-input)) + ) + + (if (eq ess-sas-submit-method 'sh) + (add-hook 'comint-output-filter-functions 'ess-exit-notify-sh)) ;; 19.28 + ;; nil t) works for newer emacsen + ) + ) + + (goto-char (point-max)) + ; (insert "cd " ess-temp-directory) + ; (comint-send-input)) + ) + +(defun ess-sas-interactive () + "And now for something completely different." + (interactive) + ;;(ess-sas-file-path) + (setq ess-customize-alist SAS-customize-alist) + ;; (let ((ess-temp-sas-file + ;; (nth 0 (split-string + ;; (car (last (split-string ess-sas-file-path "\\([a-zA-Z][a-zA-Z]:\\|]\\)"))) "[.]")))) + (setq ess-sas-shell-buffer "*iESS[SAS]*") + (ess-sas-goto-shell) + (ess-add-ess-process) + (ess-setq-vars-local ess-customize-alist) + (inferior-ess-mode) + (ess-eval-linewise (concat ess-sas-submit-command " " ess-sas-submit-command-options " -stdio")) + ;;" -altlog " ess-temp-sas-file ".log -altprint " + ;; ess-temp-sas-file ".lst -stdio")) + (ess-sas-goto-sas) + (setq ess-sas-submit-method 'iESS) + (setq ess-eval-visibly-p nil) + ) + +;;(defun ess-sas-interactive () +;; (interactive) +;; (ess-sas-file-path) +;; (setq ess-sas-submit-method 'iESS) +;; +;; (let ((ess-temp-stderr " ") (ess-temp-stdout " ") (ess-temp-stdin " ")) +;; (setq ess-sas-shell-buffer "*LOG*") +;; (ess-sas-goto-shell) +;; (insert "tty") +;; (comint-send-input) +;; (sleep-for ess-sleep-for) +;; (save-excursion (setq ess-temp-stderr (ess-search-except "\\(/dev/[a-z0-9/]+\\)" nil t))) +;; (setq ess-sas-shell-buffer "*OUTPUT*") +;; (ess-sas-goto-shell) +;; (insert "tty") +;; (comint-send-input) +;; (sleep-for ess-sleep-for) +;; (save-excursion (setq ess-temp-stdout (ess-search-except "\\(/dev/[a-z0-9/]+\\)" nil t))) +;; (setq ess-sas-shell-buffer "*PROGRAM*") +;; (ess-sas-goto-shell) +;;;; (insert "tty") +;; (comint-send-input) +;; (sleep-for ess-sleep-for) +;; (insert "sh") +;; (comint-send-input) +;; (sleep-for ess-sleep-for) +;; (save-excursion (setq ess-temp-stdin (ess-search-except "\\(/dev/[a-z0-9/]+\\)" nil t))) +;; (insert (concat ess-sas-submit-command " " ess-sas-submit-command-options " -stdio <" +;; ess-temp-stdin " >1 " ess-temp-stdout " >2 " ess-temp-stderr)) +;; (comint-send-input) +;; (ess-add-ess-process) +;; (ess-sas-goto-sas) +;;)) + +(defun ess-sas-kill-buffers () + "Kill all buffers related to a .sas file." + (interactive) + (ess-sas-file-path) + (ess-sas-goto "log" nil t) + (kill-buffer nil) + (ess-sas-goto "lst" nil t) + (kill-buffer nil) + (ess-sas-goto ess-sas-suffix-1 nil t) + (kill-buffer nil) + (ess-sas-goto ess-sas-suffix-2 nil t) + (kill-buffer nil) + (ess-sas-goto "sas" nil t) + (kill-buffer nil) + ) + +; else +(defun ess-sas-rtf-portrait (&optional ess-tmp-font-size) + "Creates an MS RTF portrait file from the current buffer." + (interactive) +; (ess-sas-file-path t) + (ess-revert-wisely) + + (set-visited-file-name (concat (buffer-name) ".rtf")) +; (ess-sas-goto "rtf" t) + (if 'buffer-read-only (setq buffer-read-only nil)) + (ess-rtf-replace-chars) + + (goto-char (point-min)) + (insert (concat + "{\\rtf1\\ansi{\\fonttbl\\f1\\fmodern " ess-sas-rtf-font-name ";}\n" + "\\margl720\\margr720\\margt720\\margb720\n" + "{\\colortbl;\\red0\\green0\\blue0;\\red0\\green0\\blue255;\\red0\\green255\\blue255;\\red0\\green255\\blue0;\\red255\\green0\\blue255;\\red255\\green0\\blue0;\\red255\\green255\\blue0;\\red255\\green255\\blue255;\\red0\\green0\\blue128;\\red0\\green128\\blue128;\\red0\\green128\\blue0;\\red128\\green0\\blue128;\\red128\\green0\\blue0;\\red128\\green128\\blue0;\\red128\\green128\\blue128;\\red192\\green192\\blue192;}\n" + "{\\stylesheet{\\s15\\plain\\f1\\fs16\\cf1\\cb8\\lang1024 Emacs Text;}{\\*\\cs16 \\additive\\f1\\fs16\\cf1\\cb8\\lang1024 Emacs Base Style;}}\n" + "{\\plain\\s15{\\cs16\\cs16\\f1\\fs16\\cf1\\cb8\\lang1024{\\cs16\\f1\\fs16\\cf1\\cb8\\lang1024\n")) + + (goto-char (point-max)) + (insert "}}}}\n") + + (save-buffer) + (kill-buffer (current-buffer))) + +(defun ess-rtf-replace-chars () + "Convert a text file to an MS RTF file." + (interactive) + (goto-char (point-min)) + (while (re-search-forward "\n" nil t) (replace-match "\\par\n" nil t)) + (goto-char (point-min)) + (while (re-search-forward "\f" nil t) (replace-match "\\page\n" nil t)) + (goto-char (point-min)) + (while (re-search-forward "\t" nil t) (replace-match "\\tab" nil t))) + +(defun ess-sas-rtf-landscape (&optional ess-tmp-font-size) + "Creates an MS RTF landscape file from the current buffer." + (interactive) + (ess-revert-wisely) + + (set-visited-file-name (concat (buffer-name) ".rtf")) + + (if 'buffer-read-only (setq buffer-read-only nil)) + (ess-rtf-replace-chars) + + (goto-char (point-min)) + (insert (concat + "{\\rtf1\\ansi{\\fonttbl\\f1\\fmodern " ess-sas-rtf-font-name ";}\n" + "\\margl720\\margr720\\margt720\\margb720\n" + "{\\*\\pgdsctbl\n" + "{\\pgdsc0\\pgdscuse195\\lndscpsxn\\pgwsxn15840\\pghsxn12240\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\pgdscnxt0 Default;}}\n" + "\\landscape\\paperh12240\\paperw15840\\margl1800\\margr1800\\margt1440\\margb1440\\sectd\\sbknone\\lndscpsxn\\pgwsxn15840\\pghsxn12240\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\ftnbj\\ftnstart1\\ftnrstcont\\ftnnar\\aenddoc\\aftnrstcont\\aftnstart1\\aftnnrlc\n" + "{\\colortbl;\\red0\\green0\\blue0;\\red0\\green0\\blue255;\\red0\\green255\\blue255;\\red0\\green255\\blue0;\\red255\\green0\\blue255;\\red255\\green0\\blue0;\\red255\\green255\\blue0;\\red255\\green255\\blue255;\\red0\\green0\\blue128;\\red0\\green128\\blue128;\\red0\\green128\\blue0;\\red128\\green0\\blue128;\\red128\\green0\\blue0;\\red128\\green128\\blue0;\\red128\\green128\\blue128;\\red192\\green192\\blue192;}\n" + "{\\stylesheet{\\s15\\plain\\f1\\fs16\\cf1\\cb8\\lang1024 Emacs Text;}{\\*\\cs16 \\additive\\f1\\fs16\\cf1\\cb8\\lang1024 Emacs Base Style;}}\n" + "{\\plain\\s15{\\cs16\\cs16\\f1\\fs16\\cf1\\cb8\\lang1024{\\cs16\\f1\\fs16\\cf1\\cb8\\lang1024\n")) + + (goto-char (point-max)) + (insert "}}}}\n") + + (save-buffer) + (kill-buffer (current-buffer))) + +(defun ess-sas-rtf-us-landscape () + "Creates an MS RTF US landscape file from the current buffer." + (interactive) + (ess-sas-rtf-portrait "16") + (ess-sas-goto "rtf" t) + (goto-char (point-min)) + (forward-line 3) + (insert (concat "{\\*\\pgdsctbl\n" + "{\\pgdsc0\\pgdscuse195\\lndscpsxn\\pgwsxn15840\\pghsxn12240\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\pgdscnxt0 Default;}}\n" + "\\landscape\\paperh12240\\paperw15840\\margl1800\\margr1800\\margt1440\\margb1440\\sectd\\sbknone\\lndscpsxn\\pgwsxn15840\\pghsxn12240\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\ftnbj\\ftnstart1\\ftnrstcont\\ftnnar\\aenddoc\\aftnrstcont\\aftnstart1\\aftnnrlc\n")) + (save-buffer) + (kill-buffer (current-buffer))) + +(defun ess-sas-rtf-a4-landscape () + "Creates an MS RTF A4 landscape file from the current buffer." + (interactive) + (ess-sas-rtf-portrait "16") + (ess-sas-goto "rtf" t) + (goto-char (point-min)) + (forward-line 3) + (insert (concat "{\\*\\pgdsctbl\n" + "{\\pgdsc0\\pgdscuse195\\lndscpsxn\\pgwsxn16837\\pghsxn11905\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\pgdscnxt0 Default;}}\n" + "\\landscape\\paperh11905\\paperw16837\\margl1800\\margr1800\\margt1440\\margb1440\\sectd\\sbknone\\lndscpsxn\\pgwsxn16837\\pghsxn11905\\marglsxn1800\\margrsxn1800\\margtsxn1440\\margbsxn1440\\ftnbj\\ftnstart1\\ftnrstcont\\ftnnar\\aenddoc\\aftnrstcont\\aftnstart1\\aftnnrlc\n")) + (save-buffer) + (kill-buffer (current-buffer))) + +(defun ess-sas-submit () + "Save the .sas file and submit to shell using a function that +depends on the value of `ess-sas-submit-method'" + (interactive) + (ess-sas-file-path) + (ess-sas-goto-sas) + (save-buffer) + (hack-local-variables) + ;(ess-save-and-set-local-variables) + + (cond + ((eq ess-sas-submit-method 'ms-dos) + (ess-sas-submit-windows ess-sas-submit-command + ess-sas-submit-command-options)) + ((eq ess-sas-submit-method 'iESS) + (ess-sas-submit-iESS ess-sas-submit-command + ess-sas-submit-command-options)) + ((eq ess-sas-submit-method 'sh) + (ess-sas-submit-sh ess-sas-submit-command + ess-sas-submit-command-options)) + (t (ess-sas-submit-sh ess-sas-submit-command + ess-sas-submit-command-options))) + ; (ess-sas-goto-sas) + ) + +(defun ess-sas-submit-iESS (arg1 arg2) + "iESS +Submit a batch job in an inferior-ESS buffer. The buffer should +(1) have telnet access and be running a shell on a remote machine +or +(2) be running a shell on the local machine. + +The user can telnet to the remote computer and then declare the +*telnet-buffer* to be an inferior ESS buffer with the `ess-add-ess-process' +command. When using a remote computer, the .sas file must live on the +remote computer and be accessed through `ange-ftp'. When +`ess-sas-submit' saves a file, it is therefore saved on the remote +computer. The various functions such as `ess-sas-goto-lst' retrieve +their files from the remote computer. Local copies of the .sas .lst +.log and others may be made manually with `write-buffer'." + ;; (ess-eval-linewise (concat "cd default-directory)) +(ess-force-buffer-current "Process to load into: ") +(ess-eval-linewise + (concat "cd " (car (last + (split-string (file-name-directory ess-sas-file-path) "\\(:\\|]\\)"))))) +(ess-eval-linewise (concat arg1 " " arg2 " " (buffer-name) " &"))) + +(defun ess-sas-submit-region () + "Write region to temporary file, and submit to SAS." + (interactive) + (ess-sas-file-path) + (hack-local-variables t) + (write-region (region-beginning) (region-end) + (concat (ess-sas-temp-root) ".sas")) + + (let ((arg1 ess-sas-submit-command) + (arg2 ess-sas-submit-command-options)) + (save-excursion + (ess-sas-goto-shell t) + + (if (and (when + ;; Silence byte compiler warns about w32-fns + (fboundp 'w32-shell-dos-semantics) + (w32-shell-dos-semantics)) + (string-equal ":" (substring ess-sas-file-path 1 2))) + (progn + (insert (substring ess-sas-file-path 0 2)) + (comint-send-input) + )) + + (insert "cd \"" (convert-standard-filename + (file-name-directory ess-sas-file-path)) "\"") + (comint-send-input) + + (insert (concat ess-sas-submit-pre-command " " arg1 + " " arg2 + " " (ess-sas-temp-root) " " ess-sas-submit-post-command)) + (comint-send-input) + )) + ) + +(defun ess-sas-submit-sh (arg1 arg2) + "Unix or bash in the *shell* buffer. +Multiple processing is supported on this platform. +SAS may not be found in your PATH. You can alter your PATH to include +SAS or you can specify the PATHNAME (PATHNAME can NOT contain spaces), +i.e. let arg1 be your local equivalent of +\"/usr/local/sas612/sas\"." + (if (string-equal (substring + (file-name-nondirectory ess-sas-file-path) 0 1) ess-kermit-prefix) + (progn + (ess-kermit-send) + (ess-sas-goto-shell t) + (insert ess-sas-submit-pre-command " " arg1 " " + (substring (file-name-sans-extension + (file-name-nondirectory ess-sas-file-path)) 1) + " " arg2 " " ess-sas-submit-post-command) + (comint-send-input)) + ;;else + ;; (ess-sas-goto-shell t) + (ess-sas-cd) + ; (insert "cd " (car (last (split-string (file-name-directory ess-sas-file-path) + ;"\\([a-zA-Z][a-zA-Z]:\\|]\\)")))) + ; (comint-send-input) + (insert ess-sas-submit-pre-command " " arg1 " " + (file-name-sans-extension (file-name-nondirectory ess-sas-file-path)) + " " arg2 " " ess-sas-submit-post-command)) + ; (ess-sleep) + (comint-send-input)) + +(defun ess-sas-submit-windows (arg1 arg2) + "Windows using MS-DOS prompt in the *shell* buffer. +Multiple processing is supported on this platform. +On most Windows installations, SAS will not be found in your +PATH so you should alter your PATH to include SAS, i.e. + +SET PATH=%PATH%;C:\\Program Files\\SAS + +Or you can specify the PATHNAME directly (you must escape +spaces by enclosing the string in \\\"'s), i.e. let +`ess-sas-submit-command' be \"\\\"C:\\Program Files\\SAS\\sas.exe\\\"\". +Keep in mind that the maximum command line length in MS-DOS is +127 characters so altering your PATH is preferable." + ;(ess-save-and-set-local-variables) + (ess-sas-goto-shell t) + (if (string-equal ":" (substring ess-sas-file-path 1 2)) + (progn + (insert (substring ess-sas-file-path 0 2)) + (comint-send-input) + ) + ) + (insert "cd \"" (convert-standard-filename + (file-name-directory ess-sas-file-path)) "\"") + (comint-send-input) + (insert ess-sas-submit-pre-command " " arg1 " -sysin \"" + (file-name-sans-extension (file-name-nondirectory ess-sas-file-path)) "\" " + arg2 " " ess-sas-submit-post-command) + (comint-send-input)) + +(defun ess-sas-tab-to-tab-stop () + "Tab to next tab-stop and set left margin." + (interactive) + (tab-to-tab-stop) + (setq left-margin (current-column)) + ) + +(defun ess-sas-temp-root () + "Return `ess-sas-file-path' sans extension with `ess-sas-temp-root' appended." + (concat (file-name-sans-extension ess-sas-file-path) ess-sas-temp-root)) + +(defun ess-sas-transcript (&optional strip) + "Comment .log messages to create a .sas program; use C-u to strip." + (interactive "P") + (save-excursion + (goto-char (point-min)) + + (while (search-forward-regexp (concat + "^\\(\\(1[ \t]+The SAS System\\| \\|NOTE\\|WARNING\\|ERROR\\|" + "[ \t]+\\(\\(real\\|cpu\\) time\\|Licensed to\\|Engine:\\|" + "Physical Name:\\|File Name=\\|Owner Name=\\|Group Name=\\|" + "Access Permission=\\|File Size (bytes)=\\|Pipe command=\\|" + "RECFM=[DFNPV],LRECL=\\|[0-9]+:[0-9]+[ /t]+[0-9]+:[0-9]+\\|" + "[1-9][0-9]* at [0-9]+:[0-9]+[ /t]+[1-9][0-9]* at [0-9]+:[0-9]+\\)\\).*$" + "\\|[0-9]+\\([ \t]+!\\)?\\|MPRINT([_A-Z]+):\\|" + "[ \t]+\\(values at the places given by: (Line):(Column).\\|" + "The m\\(in\\|ax\\)imum record length was [1-9][0-9]*.\\|" + "One or more lines were truncated.\\|" + "Each place is given by: (Number of times) at (Line):(Column).\\|" + "[0-9][0-9]:[0-9][0-9] [MTWFS][aeioudhnrst]+day, [JFMASOND]" + "[aeiouybcghlmnprstv]+ [1-9][0-9]?, 20[0-9][0-9]\\)\\)") + nil t) (replace-match (if strip " " "/*\\&*/") t)) + )) + +(defun ess-sas-toggle-sas-listing-mode (&optional force) + "Toggle SAS-listing-mode for .lst files." + (interactive) + (ess-sas-goto-lst) + + (if (equal (cdr (assoc "\\.[lL][sS][tT]\\'" auto-mode-alist)) 'SAS-listing-mode) (progn + (setq auto-mode-alist (delete '("\\.[lL][sS][tT]\\'" . SAS-listing-mode) auto-mode-alist)) + (setq buffer-read-only nil) + (ess-listing-minor-mode 0)) + (setq auto-mode-alist (append '(("\\.[lL][sS][tT]\\'" . SAS-listing-mode)) auto-mode-alist)) + (setq buffer-read-only t) + (ess-listing-minor-mode 1))) + +(defun ess-sas-toggle-sas-log-mode () + "Toggle SAS-log-mode for .log files." + (interactive) + + (ess-sas-goto-log) + (kill-buffer nil) + + ; (if (equal (cdr (assoc "\\.[lL][oO][gG]\\'" auto-mode-alist)) 'SAS-log-mode) (progn + ; (setq auto-mode-alist (delete '("\\.[lL][oO][gG]\\'" . SAS-log-mode) auto-mode-alist)) + ; (setq buffer-read-only nil) + ; (ess-transcript-minor-mode 0) + ; (font-lock-mode 0)) + ; (setq auto-mode-alist (append '(("\\.[lL][oO][gG]\\'" . SAS-log-mode)) auto-mode-alist)) + ; (setq buffer-read-only t) + ; (ess-transcript-minor-mode 1) + ; (font-lock-mode 1) + ; (font-lock-fontify-buffer)) + + (if (equal (cdr (assoc "\\.[lL][oO][gG]\\'" auto-mode-alist)) 'SAS-log-mode) + (setq auto-mode-alist (delete '("\\.[lL][oO][gG]\\'" . SAS-log-mode) auto-mode-alist)) + (setq auto-mode-alist (append '(("\\.[lL][oO][gG]\\'" . SAS-log-mode)) auto-mode-alist))) + (ess-sas-goto-log)) + +(define-obsolete-variable-alias + 'ess-sas-versions-created 'ess-sas-created-runners "ESS 18.10") +(defvar ess-sas-created-runners) +(defun ess-sas-define-runners () + "Generate the `M-x SASV' functions for starting other versions of SAS. +See `ess-sas-versions' for strings that determine which functions are created. + +The local variable `ess-sas-created-runners' is used to return list of +the new SAS defuns, if any, that were created. The defuns will normally +be placed on the menubar upon ESS initialization." + ;; This works by creating a temp buffer where the template function is + ;; edited so that V is replaced by the version number + (let ((versions + ;; Find which versions of SAS we want. Remove the pathname, + ;; leaving just the name of the executable. + (delete-dups + (mapcar #'file-name-nondirectory + (apply #'nconc + (mapcar #'ess-find-exec-completions + ess-sas-versions)))))) + ;; Iterate over each string in VERSIONS, creating a new defun each time. + (setq ess-sas-created-runners + (mapc (lambda (v) (ess-define-runner v "SAS")) versions)))) +(define-obsolete-function-alias + 'ess-sas-create-versions 'ess-sas-define-runners "ESS 18.10") + + +;;; Section 3: Key Definitions + + +(defun ess-sas-edit-keys-set (&optional arg) + "Set TAB/RET key in `SAS-mode'. +If arg is nil + TAB is `sas-indent-line' and + RET is `newline-and-indent'. +Else + TAB is `ess-sas-tab-to-tab-stop', + C-TAB is `ess-sas-backward-delete-tab' and + RET is `newline'." + (interactive) + + (if arg + (progn + (define-key sas-mode-local-map [(control tab)] + 'ess-sas-backward-delete-tab) + (define-key sas-mode-local-map [return] 'newline) + (define-key sas-mode-local-map "\t" 'ess-sas-tab-to-tab-stop)) + ;;else + (define-key sas-mode-local-map [return] 'newline-and-indent) + (define-key sas-mode-local-map "\t" 'sas-indent-line))) + +(defvar ess-sas-edit-keys-toggle nil + "Toggle TAB/RET key in `SAS-mode'. +nil binds TAB to `sas-indent-line' and RET to `newline-and-indent'. +Non-nil binds TAB to `ess-sas-tab-to-tab-stop', +C-TAB to `ess-sas-backward-delete-tab', and RET to `newline'.") + +(defun ess-sas-edit-keys-toggle (&optional arg) + "Toggle `ess-sas-edit-keys-toggle'. Optional arg is still +accepted for backward compatibility, however, arg is ignored." + (interactive) + + (setq ess-sas-edit-keys-toggle (not ess-sas-edit-keys-toggle)) + (ess-sas-edit-keys-set ess-sas-edit-keys-toggle) + ) + +(defvar ess-sas-global-pc-keys nil + "Non-nil if function keys use PC-like SAS key definitions in all modes.") + +(defun ess-sas-global-pc-keys () + "PC-like SAS key definitions" + (interactive) + (global-set-key [(control f1)] 'ess-sas-rtf-portrait) + (global-set-key [(control f2)] 'ess-sas-rtf-landscape) + (global-set-key (quote [f2]) 'ess-revert-wisely) + (global-set-key (quote [f3]) 'ess-sas-goto-shell) + (global-set-key (quote [f4]) 'ess-sas-goto-file-1) + (global-set-key (quote [f5]) 'ess-sas-goto-sas) + (global-set-key (quote [f6]) 'ess-sas-goto-log) + (global-set-key [(control f6)] 'ess-sas-append-log) + (global-set-key (quote [f7]) 'ess-sas-goto-lst) + (global-set-key [(control f7)] 'ess-sas-append-lst) + (global-set-key (quote [f8]) 'ess-sas-submit) + (global-set-key [(control f8)] 'ess-sas-submit-region) + (global-set-key (quote [f9]) 'ess-sas-data-view-fsview) + (global-set-key [(control f9)] 'ess-sas-data-view-insight) + ;; (global-set-key (quote [f10]) 'ess-sas-toggle-sas-log-mode) + ;; (global-set-key [(control f10)] 'ess-sas-toggle-sas-listing-mode) + ;; (global-set-key (quote [f11]) 'ess-sas-goto-file-2) + ;; (global-set-key [(control f11)] 'ess-ebcdic-to-ascii-search-and-replace) + (global-set-key (quote [f12]) 'ess-sas-graph-view) + (global-set-key [(control tab)] 'ess-sas-backward-delete-tab) + ;; (define-key sas-mode-local-map "\C-c\C-p" 'ess-sas-file-path) + (setq ess-sas-global-pc-keys t) + (setq ess-sas-global-unix-keys nil) + (setq ess-sas-local-pc-keys nil) + (setq ess-sas-local-unix-keys nil) + ) + +(defun ess-sas-global-unix-keys () + "Unix/Mainframe-like SAS key definitions" + (interactive) + (global-set-key [(control f1)] 'ess-sas-rtf-portrait) + (global-set-key [(control f2)] 'ess-sas-rtf-landscape) + (global-set-key (quote [f2]) 'ess-revert-wisely) + (global-set-key (quote [f3]) 'ess-sas-submit) + (global-set-key [(control f3)] 'ess-sas-submit-region) + (global-set-key (quote [f4]) 'ess-sas-goto-sas) + (global-set-key (quote [f5]) 'ess-sas-goto-log) + (global-set-key [(control f5)] 'ess-sas-append-log) + (global-set-key (quote [f6]) 'ess-sas-goto-lst) + (global-set-key [(control f6)] 'ess-sas-append-lst) + (global-set-key (quote [f7]) 'ess-sas-goto-file-1) + (global-set-key (quote [f8]) 'ess-sas-goto-shell) + (global-set-key (quote [f9]) 'ess-sas-data-view-fsview) + (global-set-key [(control f9)] 'ess-sas-data-view-insight) + ;; (global-set-key (quote [f10]) 'ess-sas-toggle-sas-log-mode) + ;; (global-set-key [(control f10)] 'ess-sas-toggle-sas-listing-mode) + ;; (global-set-key (quote [f11]) 'ess-sas-goto-file-2) + ;; (global-set-key [(control f11)] 'ess-ebcdic-to-ascii-search-and-replace) + (global-set-key (quote [f12]) 'ess-sas-graph-view) + (global-set-key [(control tab)] 'ess-sas-backward-delete-tab) + ;;(define-key sas-mode-local-map "\C-c\C-p" 'ess-sas-file-path) + (setq ess-sas-global-pc-keys nil) + (setq ess-sas-global-unix-keys t) + (setq ess-sas-local-pc-keys nil) + (setq ess-sas-local-unix-keys nil) + ) + +(defun ess-sas-local-pc-keys () + "PC-like SAS key definitions." + (interactive) + (define-key sas-mode-local-map [(control f1)] 'ess-sas-rtf-portrait) + (define-key sas-mode-local-map [(control f2)] 'ess-sas-rtf-landscape) + (define-key sas-mode-local-map (quote [f2]) 'ess-revert-wisely) + (define-key sas-mode-local-map (quote [f3]) 'ess-sas-goto-shell) + (define-key sas-mode-local-map (quote [f4]) 'ess-sas-goto-file-1) + (define-key sas-mode-local-map (quote [f5]) 'ess-sas-goto-sas) + (define-key sas-mode-local-map (quote [f6]) 'ess-sas-goto-log) + (define-key sas-mode-local-map [(control f6)] 'ess-sas-append-log) + (define-key sas-mode-local-map (quote [f7]) 'ess-sas-goto-lst) + (define-key sas-mode-local-map [(control f7)] 'ess-sas-append-lst) + (define-key sas-mode-local-map (quote [f8]) 'ess-sas-submit) + (define-key sas-mode-local-map [(control f8)] 'ess-sas-submit-region) + (define-key sas-mode-local-map (quote [f9]) 'ess-sas-data-view-fsview) + (define-key sas-mode-local-map [(control f9)] 'ess-sas-data-view-insight) + (define-key sas-mode-local-map (quote [f10]) 'ess-sas-toggle-sas-log-mode) + (define-key sas-mode-local-map [(control f10)] 'ess-sas-toggle-sas-listing-mode) + (define-key sas-mode-local-map (quote [f11]) 'ess-sas-goto-file-2) + (define-key sas-mode-local-map [(control f11)] 'ess-ebcdic-to-ascii-search-and-replace) + (define-key sas-mode-local-map (quote [f12]) 'ess-sas-graph-view) + ;(define-key sas-mode-local-map "\C-c\C-p" 'ess-sas-file-path) + (setq ess-sas-global-pc-keys nil) + (setq ess-sas-global-unix-keys nil) + (setq ess-sas-local-pc-keys t) + (setq ess-sas-local-unix-keys nil) + ) + +(defun ess-sas-local-unix-keys () + "Unix/Mainframe-like SAS key definitions" + (interactive) + (define-key sas-mode-local-map [(control f1)] 'ess-sas-rtf-portrait) + (define-key sas-mode-local-map [(control f2)] 'ess-sas-rtf-landscape) + (define-key sas-mode-local-map (quote [f2]) 'ess-revert-wisely) + (define-key sas-mode-local-map (quote [f3]) 'ess-sas-submit) + (define-key sas-mode-local-map [(control f3)] 'ess-sas-submit-region) + (define-key sas-mode-local-map (quote [f4]) 'ess-sas-goto-sas) + (define-key sas-mode-local-map (quote [f5]) 'ess-sas-goto-log) + (define-key sas-mode-local-map [(control f5)] 'ess-sas-append-log) + (define-key sas-mode-local-map (quote [f6]) 'ess-sas-goto-lst) + (define-key sas-mode-local-map [(control f6)] 'ess-sas-append-lst) + (define-key sas-mode-local-map (quote [f7]) 'ess-sas-goto-file-1) + (define-key sas-mode-local-map (quote [f8]) 'ess-sas-goto-shell) + (define-key sas-mode-local-map (quote [f9]) 'ess-sas-data-view-fsview) + (define-key sas-mode-local-map [(control f9)] 'ess-sas-data-view-insight) + (define-key sas-mode-local-map (quote [f10]) 'ess-sas-toggle-sas-log-mode) + (define-key sas-mode-local-map [(control f10)] 'ess-sas-toggle-sas-listing-mode) + (define-key sas-mode-local-map (quote [f11]) 'ess-sas-goto-file-2) + (define-key sas-mode-local-map [(control f11)] 'ess-ebcdic-to-ascii-search-and-replace) + (define-key sas-mode-local-map (quote [f12]) 'ess-sas-graph-view) + ;(define-key sas-mode-local-map "\C-c\C-p" 'ess-sas-file-path) + (setq ess-sas-global-pc-keys nil) + (setq ess-sas-global-unix-keys nil) + (setq ess-sas-local-pc-keys nil) + (setq ess-sas-local-unix-keys t) + ) + +(defun ess-kermit-get (&optional ess-file-arg ess-dir-arg) + "Get a file with Kermit. WARNING: Experimental! From your *shell* +buffer, start kermit and then log in to the remote machine. Open +a file that starts with `ess-kermit-prefix'. From that buffer, +execute this command. It will retrieve a file from the remote +directory that you specify with the same name, but without the +`ess-kermit-prefix'." + + (interactive) + + ;; (save-match-data + (let ((ess-temp-file (if ess-file-arg ess-file-arg (buffer-name))) + (ess-temp-file-remote-directory ess-dir-arg)) + + (if (string-equal ess-kermit-prefix (substring ess-temp-file 0 1)) + (progn + ;; I think there is a bug in the buffer-local variable handling in GNU Emacs 21.3 + ;; Setting ess-kermit-remote-directory every time is somehow resetting it to the + ;; default on the second pass. So, here's a temporary work-around. It will fail + ;; if you change the default, so maybe this variable should not be customizable. + ;; In any case, there is also trouble with local variables in XEmacs 21.4.9 and + ;; 21.4.10. XEmacs 21.4.8 is fine. + (if ess-temp-file-remote-directory + (setq ess-kermit-remote-directory ess-temp-file-remote-directory) + + (if (string-equal "." ess-kermit-remote-directory) + (setq ess-kermit-remote-directory (read-string "Remote directory to transfer file from: " + ess-kermit-remote-directory)))) + + (setq ess-temp-file-remote-directory ess-kermit-remote-directory) + ;; (setq ess-temp-file (substring ess-temp-file (match-end 0))) + (ess-sas-goto-shell) + (insert "cd " ess-temp-file-remote-directory "; " ess-kermit-command " -s " + (substring ess-temp-file 1) " -a " ess-temp-file) + (comint-send-input) + ;; (insert (read-string "Press Return to connect to Kermit: " nil nil "\C-\\c")) + ;; (comint-send-input) + ;; (insert (read-string "Press Return when Kermit is ready to recieve: " nil nil + ;; (concat "receive ]" ess-sas-temp-file))) + ;; (comint-send-input) + ;; (insert (read-string "Press Return when transfer is complete: " nil nil "c")) + ;; (comint-send-input) + (insert (read-string "Press Return when shell is ready: ")) + (comint-send-input) + (switch-to-buffer (find-buffer-visiting ess-temp-file)) + (ess-revert-wisely) + )))) + +(defun ess-kermit-send () + "Send a file with Kermit. WARNING: Experimental! From +a file that starts with `ess-kermit-prefix', +execute this command. It will transfer this file to the remote +directory with the same name, but without the `ess-kermit-prefix'." + + (interactive) + + ;; (save-match-data + (let ((ess-temp-file (expand-file-name (buffer-name))) + (ess-temp-file-remote-directory nil)) + + (if (string-equal ess-kermit-prefix (substring (file-name-nondirectory ess-temp-file) 0 1)) + (progn + ;; I think there is a bug in the buffer-local variable handling in GNU Emacs 21.3 + ;; Setting ess-kermit-remote-directory every time is somehow resetting it to the + ;; default on the second pass. Here's a temporary work-around. It will fail + ;; if you change the default, so maybe this variable should not be customizable. + ;; In any case, there is also trouble with local variables in XEmacs 21.4.9 and + ;; 21.4.10. XEmacs 21.4.8 is fine. + (if (string-equal "." ess-kermit-remote-directory) + (setq ess-kermit-remote-directory (read-string "Remote directory to transfer file to: " + ess-kermit-remote-directory))) + + (setq ess-temp-file-remote-directory ess-kermit-remote-directory) + + ;; (setq ess-temp-file (substring ess-temp-file (match-end 0))) + (ess-sas-goto-shell) + (insert "cd " ess-temp-file-remote-directory "; " ess-kermit-command " -a " + (substring (file-name-nondirectory ess-temp-file) 1) " -g " ess-temp-file) + (comint-send-input) + ;; (insert (read-string "Press Return to connect to Kermit: " nil nil "\C-\\c")) + ;; (comint-send-input) + ;; (insert (read-string "Press Return when Kermit is ready to recieve: " nil nil + ;; (concat "receive ]" ess-sas-temp-file))) + ;; (comint-send-input) + ;; (insert (read-string "Press Return when transfer is complete: " nil nil "c")) + ;; (comint-send-input) + (insert (read-string "Press Return when shell is ready: ")) + (comint-send-input) + (switch-to-buffer (find-buffer-visiting ess-temp-file)) + (ess-revert-wisely) + )))) + +(provide 'ess-sas-a) + +;;; ess-sas-a.el ends here diff --git a/elpa/ess-20190121.1430/ess-sas-d.el b/elpa/ess-20190121.1430/ess-sas-d.el new file mode 100644 index 00000000..7929e070 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-sas-d.el @@ -0,0 +1,335 @@ +;;; ess-sas-d.el --- SAS customization + +;; Copyright (C) 1997--2001 Richard M. Heiberger and A. J. Rossini +;; Copyright (C) 2002--2004 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Author: Richard M. Heiberger +;; Created: 20 Aug 1997 +;; Maintainer: ESS-core + +;; Keywords: languages + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; This file defines all the SAS customizations for ESS behaviors. See +;; ess-sas-l and ess-sas-a for the underlying general modifications. + +;;; Code: + +;;; Autoloads: + +(require 'comint) +(require 'shell) +(require 'executable) +(require 'ess-sas-l) + +(defvar inferior-SAS-args "-stdio -linesize 80 -noovp -nosyntaxcheck" + "Arguments to use for starting SAS.") + +(defvar inferior-SAS-args-temp nil + "Hack variable, needed for args preprocessing. +Better logic needed! (see 2 uses, in this file).") + +(defvar SAS-mode-syntax-table + (let ((tab (make-syntax-table))) + (modify-syntax-entry ?\\ "." tab) ;; backslash is punctuation + (modify-syntax-entry ?+ "." tab) + (modify-syntax-entry ?- "." tab) + (modify-syntax-entry ?= "." tab) + (modify-syntax-entry ?% "w" tab) + (modify-syntax-entry ?< "." tab) + (modify-syntax-entry ?> "." tab) + (modify-syntax-entry ?& "w" tab) + (modify-syntax-entry ?| "." tab) + (modify-syntax-entry ?\' "\"" tab) + (modify-syntax-entry ?* ". 23" tab) ; comment character + (modify-syntax-entry ?\; "." tab) + (modify-syntax-entry ?_ "w" tab) + (modify-syntax-entry ?< "." tab) + (modify-syntax-entry ?> "." tab) + (modify-syntax-entry ?/ ". 14" tab) ; comment character + (modify-syntax-entry ?. "w" tab) + tab) + "Syntax table for `SAS-mode'.") + +(defun ess-SAS-pre-run-hook (temp-ess-dialect) + "Set up log and list files for interactive SAS." + + (let* ((ess-shell-buffer-name-flag (get-buffer "*shell*")) + ess-shell-buffer-name + ;; isn't pretty yet. + ;; ess-local-process-name is defined after this function. + ;; it needs to be defined prior to this function. + (tmp-procname (let ((ntry 0) + (done nil)) + ;; find a non-existent process + (while (not done) + (setq ntry (1+ ntry) + done (not + (get-process (ess-proc-name + ntry + temp-ess-dialect))))) + (ess-proc-name ntry temp-ess-dialect))) + ;; Following was tmp-local-process-name. Stolen from inferior-ess + (ess-sas-lst-bufname (concat "*" tmp-procname ".lst*")) + (ess-sas-log-bufname (concat "*" tmp-procname ".log*")) + (explicit-shell-file-name "/bin/sh") + inferior-SAS-redirect-args + ess-sas-lst + ess-sas-log) + + (ess-write-to-dribble-buffer + (format "(ess-SAS-pre-run-hook 1): ess-lang=%s, ess-dialect=%s, temp-dialect=%s, buf=%s \n" + ess-language + ess-dialect + temp-ess-dialect + (current-buffer))) + ;; If someone is running a *shell* buffer, rename it to avoid + ;; inadvertent nuking. + (if ess-shell-buffer-name-flag + (with-current-buffer "*shell*" + (setq ess-shell-buffer-name + (rename-buffer "*ess-shell-regular*" t)))) + + ;; Construct the LST buffer for output + (if (get-buffer ess-sas-lst-bufname) + nil + (shell) + (accept-process-output (get-buffer-process (current-buffer))) + (sleep-for 2) ; need to wait, else working too fast! + (setq ess-sas-lst (ess-insert-accept "tty")) + (SAS-listing-mode) + (shell-mode) + (ess-listing-minor-mode t) + (rename-buffer ess-sas-lst-bufname t)) + + ;; Construct the LOG buffer for output + (if (get-buffer ess-sas-log-bufname) + nil + (shell) + (accept-process-output (get-buffer-process (current-buffer))) + (sleep-for 2) ; need to wait, else working too fast! + (setq ess-sas-log (ess-insert-accept "tty")) + ;(SAS-log-mode) + (shell-mode) + (ess-transcript-minor-mode t) + (rename-buffer ess-sas-log-bufname t)) + + (setq inferior-SAS-redirect-args (concat " " + ess-sas-lst + " " + ess-sas-log + " ") + inferior-SAS-args-temp (concat inferior-SAS-redirect-args + inferior-SAS-args)) + + ;; Restore the *shell* buffer + (if ess-shell-buffer-name-flag + (with-current-buffer ess-shell-buffer-name + (rename-buffer "*shell*"))) + + (delete-other-windows) + (split-window-vertically) + (split-window-vertically) + (switch-to-buffer (nth 2 (buffer-list))) + (other-window 2) + (switch-to-buffer ess-sas-log-bufname) + (split-window-vertically) + (other-window 1) + (switch-to-buffer ess-sas-lst-bufname) + (other-window 2) + + ;;workaround + (setq inferior-SAS-program + (concat (file-name-as-directory ess-etc-directory) + "ess-sas-sh-command")) + (setq inferior-ess-program inferior-SAS-program))) + +(defun ess-insert-accept (command) + "Submit command to process, get next line." + (interactive) + (goto-char (point-max)) + (insert command) + (comint-send-input) + (accept-process-output (get-buffer-process (current-buffer))) + (forward-line -1) + (let* ((beg (point)) + (ess-tty-name (progn (end-of-line) (buffer-substring beg (point))))) + (goto-char (point-max)) + ess-tty-name)) + + +(defvar SAS-customize-alist + '((ess-local-customize-alist . 'SAS-customize-alist) + (ess-language . "SAS") + (ess-dialect . "SAS") + (inferior-ess-program . inferior-SAS-program) + (ess-help-sec-regex . "^[A-Z. ---]+:$") + (ess-help-sec-keys-alist . " ") + (ess-object-name-db-file . "ess-sas-namedb.el") + (inferior-ess-objects-command . "objects(%d)");;FIXME + (inferior-ess-help-command . "help(\"%s\",pager=\"cat\",window=F)\n");;FIXME + (inferior-ess-exit-command . "endsas;\n") + (ess-loop-timeout . 500000 ) + (inferior-ess-primary-prompt . "^") + (inferior-ess-secondary-prompt . "^") + (comint-use-prompt-regexp . t) + (inferior-ess-start-args . inferior-SAS-args-temp) + ;; (ess-pre-run-hook . 'ess-SAS-pre-run-hook) + ;; (ess-local-process-name . nil) + ) + "Variables to customize for SAS") + +;;; The functions of interest (mode, inferior mode) + +;;;###autoload +(define-derived-mode SAS-mode ess-mode "[SAS]" + "Major mode for editing SAS source. See `ess-mode' for more help." + (ess-setq-vars-local SAS-customize-alist) + (setq ess-customize-alist SAS-customize-alist) + (setq ess-local-customize-alist SAS-customize-alist) + (setq-local sentence-end ";[\t\n */]*") + (setq-local paragraph-start "^[ \t]*$") + (setq-local paragraph-separate "^[ \t]*$") + (setq-local paragraph-ignore-fill-prefix t) + (setq-local adaptive-fill-mode nil) + (setq-local indent-line-function 'sas-indent-line) + (setq-local comment-start "/*") + (setq-local comment-start-skip "/[*]") + (setq-local comment-end "*/") + (setq-local comment-end-skip "[*]/") + (setq-local comment-column 40) + (setq-local ess-local-process-name nil) + (setq-local tab-stop-list ess-sas-tab-stop-list) + (setq-local font-lock-keywords-case-fold-search t) + ;; Local map settings, AFTER initialization (only if not yet defined) + (unless sas-mode-local-map + (setq sas-mode-local-map (copy-keymap (current-local-map))) + (ess-sas-edit-keys-set ess-sas-edit-keys-toggle) + (if ess-sas-local-unix-keys (ess-sas-local-unix-keys)) + (if ess-sas-local-pc-keys (ess-sas-local-pc-keys)) + (if ess-sas-global-unix-keys (ess-sas-global-unix-keys)) + (if ess-sas-global-pc-keys (ess-sas-global-pc-keys))) + (define-key sas-mode-local-map ";" 'ess-electric-run-semicolon) + (define-key sas-mode-local-map (kbd "\C-c\C-w") 'ess-multi-frame-SAS) + ;; this is a mess + ;; interactive and batch commands share sas-mode-local-map, + ;; but the associated commands are very different + ;; what would be better is two maps like + ;; sas-batch-mode-local-map and sas-interactive-mode-local-map + ;; or smart function definitions that would do the appropriate + ;; thing for either batch or interactive sessions + ;; however, neither of these solutions are planned + ;; therefore, no key definitions can be shared between + ;; batch and interactive at this time, hence the lines that + ;; are commented below: uncomment at your own risk + ;; (define-key sas-mode-local-map "\C-c\C-p" 'ess-sas-file-path) + ;; (define-key sas-mode-local-map "\C-c\C-b" 'ess-sas-submit) + ;; (define-key sas-mode-local-map "\C-c\C-r" 'ess-sas-submit-region) + ;; (define-key sas-mode-local-map "\C-c\C-x" 'ess-sas-goto-log) + ;; (define-key sas-mode-local-map "\C-c\C-y" 'ess-sas-goto-lst) + + (use-local-map sas-mode-local-map) + + (setq font-lock-defaults + ;; KEYWORDS KEYWORDS-ONLY CASE-FOLD ..... + '(SAS-mode-font-lock-defaults nil t))) + + +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.[Ss][Aa][Ss]\\'" . SAS-mode)) + +;; rmh Jul 10 2003 +(defun ess-electric-run-semicolon (arg) + "Insert character. If the line contains \"run;\" or \"quit;\" and nothing else then indent line." + (interactive "P") + (if ess-sas-edit-keys-toggle (insert ";") (let (insertpos) + (if (and (not arg) + (eolp) + (save-excursion + (skip-chars-backward " \t") + (backward-word 1) + (and (looking-at "run\\|quit") + (progn + (skip-chars-backward " \t") + (bolp))))) + (progn + (insert last-command-event) + (ess-indent-line) + (save-excursion + (if insertpos (goto-char (1+ insertpos))) + (delete-char -1)))) + (if insertpos + (save-excursion + (goto-char insertpos) + (self-insert-command (prefix-numeric-value arg))) + (self-insert-command (prefix-numeric-value arg)))))) + +;;;###autoload +(defun SAS-menu () + "Start SAS from the menu." + (interactive) + (if ess-microsoft-p + ;; replace with other choices for starting SAS? + (error "SAS cannot be started this way in ESS on Windows.") + (SAS))) + +(defun SAS () + "Call 'SAS', from SAS Institute." + (interactive) + (setq-default ess-customize-alist SAS-customize-alist) + (let* ((temp-dialect "SAS")) ;(cdr (rassoc ess-dialect SAS-customize-alist)))) + (ess-write-to-dribble-buffer + (format "(SAS): ess-dial=%s, temp-dial=%s\n" + ess-dialect + temp-dialect)) + (ess-SAS-pre-run-hook temp-dialect) + (setq ess-eval-visibly-p nil) + (inferior-ess) + (with-current-buffer "*SAS*" + (use-local-map sas-mode-local-map)))) + + +(defun ess-multi-frame-SAS () + "Put running SAS buffers into separate frames. +Load this function M-x load-file essx-sas.el RET. +Then find-file myfile.sas. If myfile.sas is already in a buffer, kill-buffer +it and then find-file it again. +Place the cursor in a myfile.sas buffer. Run SAS with M-x SAS, +Return the cursor to the myfile.sas buffer, +then enter C-c C-w to put *SAS* *SAS.log* *SAS.lst* buffers into +their own frames." + (interactive) + (delete-other-windows) + (with-current-buffer "*SAS*" + (make-frame)) + (with-current-buffer "*SAS.log*" + (make-frame)) + (with-current-buffer "*SAS.lst*" + (make-frame))) + +(defun ess-num-or-zero (arg) + "If a number, then return that number, otherwise return 0." + (or (and (numberp arg) arg) 0)) + + ; Provide package + +(provide 'ess-sas-d) + +;;; ess-sas-d.el ends here diff --git a/elpa/ess-20190121.1430/ess-sas-l.el b/elpa/ess-20190121.1430/ess-sas-l.el new file mode 100644 index 00000000..dcec9252 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-sas-l.el @@ -0,0 +1,1843 @@ +;;; ess-sas-l.el --- SAS customization + +;; Copyright (C) 1997--2009 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Authors: Richard M. Heiberger +;; A.J. Rossini +;; Rodney Sparapani +;; Created: 20 Aug 1997 +;; Maintainer: ESS-core + +;; Keywords: languages + +;; This file is part of ESS (Emacs Speaks Statistics). + +;; 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 +;; https://www.r-project.org/Licenses/ + + +;;; Commentary: + +;; This is based upon Version 1.4 of SAS mode: + + +;;; sas-mode: indent, run etc, SAS programs. +;;; Copyright (C) 1994--1997 Tom Cook +;;; Author: Tom Cook +;;; Dept. of Biostatistics +;;; University of Wisconsin - Madison +;;; Madison, WI 53706 +;;; cook@biostat.wisc.edu +;;; +;;; Acknowledgements: +;;; Menu code for XEmacs/Lucid emacs and startup mods +;;; contributed by arossini@biostats.hmc.psu.edu +;;; +;;; Last change: 2/1/95 +;;; Last change: 01/15/02 + +;;; Code: + +(require 'ess-mode) +(require 'ess-custom) +(require 'ess-sas-a) + +(declare-function SAS-mode "ess-sas-d") + +(put 'ess-transcript-minor-mode 'permanent-local t) +(or (assq 'ess-transcript-minor-mode minor-mode-alist) + (setq minor-mode-alist + (append minor-mode-alist + (list '(ess-transcript-minor-mode " ESStr"))))) + +(put 'ess-listing-minor-mode 'permanent-local t) +(or (assq 'ess-listing-minor-mode minor-mode-alist) + (setq minor-mode-alist + (append minor-mode-alist + (list '(ess-listing-minor-mode " ESSlst"))))) + +(defun ess-transcript-minor-mode (&optional arg) + "Toggle Ess-Transcript minor mode. +With arg, turn Ess-Transcript minor mode on if arg is positive, off +otherwise. See the command `ess-transcript-mode' for more information +on this mode." + (interactive "P") + (setq ess-transcript-minor-mode + (if (null arg) (not ess-transcript-minor-mode) + (> (prefix-numeric-value arg) 0))) + (force-mode-line-update) + (setq mode-line-process + '(" [" ess-local-process-name "]"))) + +(defun ess-listing-minor-mode (&optional arg) + "Toggle Ess-Listing minor mode. +With arg, turn Ess-Listing minor mode on if arg is positive, off +otherwise. Ess-Listing mode is used solely to place an indicator on +the mode line." + (interactive "P") + (setq ess-listing-minor-mode + (if (null arg) (not ess-listing-minor-mode) + (> (prefix-numeric-value arg) 0))) + (force-mode-line-update) + (setq mode-line-process + '(" [" ess-local-process-name "]"))) + +(defcustom ess-automatic-sas-log-or-lst-mode t + "Automatically turn on `SAS-log-mode' and `SAS-listing-mode' when enabled." + :type 'boolean + :group 'ess-sas) + +(defun ess-SAS-log-mode-p () + "Return t when when a SAS log file is detected. +A SAS log is defined as having: + +1. The first line matches \"^1[ \t]*The SAS System\" +2. The file name ends in .log. +" + (and ess-automatic-sas-log-or-lst-mode + (save-excursion + (goto-char (point-min)) + (looking-at "1[ \t]*The SAS System")) + (if (buffer-file-name) + (string-match ".log$" (buffer-file-name)) + t))) + +(defun ess-SAS-listing-mode-p () + "Return t when SAS listing file is detected. +A .lst file is a SAS listing file when: + +1. The file name ends in .lst +2. The corresponding log file exists and is a SAS log file. +" + (when ess-automatic-sas-log-or-lst-mode + (let* ((bfn (buffer-file-name)) + (log (and bfn + (string-match-p "\\.lst$" bfn) + (replace-regexp-in-string "\\.lst$" ".log" bfn)))) + (and log + (file-exists-p log) + (with-temp-buffer + (insert-file-contents log nil 0 200) + (goto-char (point-min)) + (looking-at "1[ \t]*The SAS System")))))) + +(add-to-list 'magic-mode-alist + '(ess-SAS-log-mode-p . SAS-log-mode)) +(add-to-list 'magic-mode-alist + '(ess-SAS-listing-mode-p . SAS-listing-mode)) + +(define-derived-mode SAS-log-mode SAS-mode "ESS[LOG]" + "`ess-transcript-mode' for SAS." + (ess-transcript-minor-mode 1) + (setq buffer-read-only t) ;; to protect the buffer. + (buffer-disable-undo)) + +(defvar sas-mode-local-map nil "contains modified local keymap for SAS") +(define-derived-mode SAS-listing-mode special-mode "ESS[LST]" + "Fundamental mode with `ess-listing-minor-mode' and read-only." + :keymap sas-mode-local-map + (ess-listing-minor-mode 1) + (buffer-disable-undo)) + +(fset 'sas-log-mode 'SAS-log-mode) +(fset 'SAS-transcript-mode 'SAS-log-mode) +(fset 'sas-transcript-mode 'SAS-log-mode) +(fset 'sas-mode 'SAS-mode) +(fset 'sas-listing-mode 'SAS-listing-mode) + +(defcustom sas-indent-width 4 + "Amount to indent sas statements." + :group 'ess-sas + :type 'integer) + +(defcustom sas-indent-ignore-comment "*" + "Comments that start with this string are ignored in indentation." + :group 'ess-sas + :type 'string) + +(defcustom sas-require-confirmation t + "Require confirmation when revisiting a modified sas-output file." + :group 'ess-sas + :type 'boolean) + +(defcustom sas-pre-run-hook nil + "Hook to execute prior to running SAS via `submit-sas'." + :group 'ess-sas + :type 'hook) + +(defcustom sas-notify t + "Beep and display message when job is done." + :group 'ess-sas + :type 'boolean) + +(defcustom sas-error-notify t + "If `sas-notify' t, indicate errors in log file upon completion." + :group 'ess-sas + :type 'boolean) + +(defcustom sas-get-options nil + "Options to be passed to SAS in sas-get-dataset." + :group 'ess-sas + :type '(choice (const nil) string)) + +(defcustom sas-get-options-history nil + "History list of Options passed to SAS in sas-get-dataset." + :type '(choice (const nil) + (string)) + :group 'ess-sas) + +(defcustom sas-page-number-max-line 3 + "Number of lines from the page break, to search for the page +number." + :group 'ess-sas + :type 'integer) + +(defcustom sas-notify-popup nil + "If this and `sas-notify' are t), popup a window when SAS job ends." + :group 'ess-sas + :type 'boolean) + +(defcustom sas-tmp-libname "_tmp_" + "Libname to use for sas-get-dataset." + :group 'ess-sas + :type 'string) + +(defcustom sas-file-name nil + "The name of the current sas file." + :group 'ess-sas + :type '(choice (const nil) file)) + +;; The next two are ``the inside of [...] in a regexp'' to be used in +;; (skip-chars-(for|back)ward SAS-..-chars) +(defcustom sas-white-chars " \t\n\f" + "This does NOT escape blanks (RMH, 2000/03/20)." + :group 'ess-sas + :type 'string) + +(defcustom sas-comment-chars (concat sas-white-chars ";") + "Doc?" + :group 'ess-sas + :type 'string) + +(defcustom ess-sas-run-regexp-opt t + "If you do not want to run regexp-opt, then set to nil." + :group 'ess-sas + :type 'boolean) + +(defvar sas-buffer-name nil) +(defvar sas-file-root nil) +(defvar sas-submitable nil) +(defvar sas-dataset nil) + +(defvar SAS-mode-font-lock-defaults + (if ess-sas-run-regexp-opt + (list + ;; .log NOTE: messages + (cons "^NOTE [0-9]+-[0-9]+: Line generated by the invoked macro" + font-lock-comment-face) + (cons "^NOTE: .*$" font-lock-comment-face) + (cons "^ [^ @].*[.]$" font-lock-comment-face) + (cons "^ [a-z].*[a-z][ ]?$" font-lock-comment-face) + (cons "^ Engine:[ ]+V.+$" font-lock-comment-face) + (cons "^ Physical Name:[ ]+.+$" font-lock-comment-face) + (cons "^ \\(cpu\\|real\\) time[ ]+[0-9].*$" + font-lock-comment-face) + (cons "^ decimal may be shifted by the" + font-lock-comment-face) + (cons "^NOTE: The infile " font-lock-comment-face) + (cons "^NOTE: 1 record was read from the infile " + font-lock-comment-face) + (cons "^NOTE: [1-9][0-9]* records were read from the infile " + font-lock-comment-face) + (cons "^ Filename=.*,$" font-lock-comment-face) + (cons "^ File Name=.*,$" font-lock-comment-face) + (cons "^ File $" font-lock-comment-face) + (cons "^ Name=.*,$" font-lock-comment-face) + (cons "^ File List=(" font-lock-comment-face) + (cons "^ List=(" font-lock-comment-face) + (cons "^ Owner Name=.*,$" font-lock-comment-face) + (cons "^ Access Permission=.*,$" font-lock-comment-face) + (cons "^ Last Modified=.*,?$" font-lock-comment-face) + (cons "^ File Size (bytes)=[0-9]+$" font-lock-comment-face) + (cons "^ Pipe command=" font-lock-comment-face) + (cons "^NOTE: The file " font-lock-comment-face) + (cons "^NOTE: 1 record was written to the file " + font-lock-comment-face) + (cons "^NOTE: [1-9][0-9]* records were written to the file " + font-lock-comment-face) + (cons "^NOTE: PROC LOGISTIC is modeling the probability that" + font-lock-comment-face) + (cons "^NOTE: PROC GENMOD is modeling the probability that" + font-lock-comment-face) + (cons "^1[ ]+The SAS System.*$" font-lock-comment-face) + (cons "^\014.*$" font-lock-comment-face) + (cons "[*][*][*] ANNOTATE macros are now available [*][*][*]" + font-lock-comment-face) + (cons "For further information on ANNOTATE macros, enter," + font-lock-comment-face) + ;; (cons "^SAS/STAT 9.3_M1, SAS/ETS 9.3_M1, SAS/OR 9.3_M1" + ;; font-lock-comment-face) + (cons "\\(or \\)?%HELPANO.*$" + font-lock-comment-face) + (cons "^Local Variables:$" font-lock-comment-face) + (cons "^End:$" font-lock-comment-face) + (cons "^MPRINT([_A-Z0-9]+)" font-lock-comment-face) + + ;; .log ERROR: messages + ; (cons "^ERROR\\( [0-9]+-[1-9][0-9][0-9]\\)?: .*$" + (cons "^ERROR\\( [0-9]+-[0-9]+\\)?: .*$" + font-lock-keyword-face) + ; ERROR: + (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" + font-lock-keyword-face) + ; ERROR #-###: + (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" + font-lock-keyword-face) + ; ERROR ##-###: + (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" + font-lock-keyword-face) + ; ERROR ###-###: + (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" + font-lock-keyword-face) + (cons "^ a format name." font-lock-keyword-face) + (cons "^ where a numeric operand is required. The condition was: " + font-lock-keyword-face) + (cons "[ ][_]+$" font-lock-keyword-face) + + ;; .log WARNING: messages + ;(cons "^WARNING\\( [0-9]+-[1-9][0-9][0-9]\\)?: .*$" + (cons "^WARNING\\( [0-9]+-[0-9]+\\)?: .*$" + font-lock-function-name-face) + ; WARNING: + (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" + font-lock-function-name-face) + ; WARNING #-###: + (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" + font-lock-function-name-face) + ; WARNING ##-###: + (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" + font-lock-function-name-face) + ; WARNING ###-###: + (cons "^ [^ @].*\\([.][ ]?[ ]?\\|[,a-z][ ]\\)$" + font-lock-function-name-face) + + ;; SAS comments + ;; /* */ style handled by grammar above + (cons "\\(^[0-9]*\\|[:;!]\\)[ \t]*%?\\*[^;/][^;]*;" + font-lock-comment-face) + + ; these over-rides need to come before the more general declarations + (cons "\\") + ; font-lock-keyword-face) + ; + ;; SAS base and SAS/Graph statements + (cons (concat ;"\\<" + (regexp-opt + '( + "do" "to" "by" "goto" ; "go" + "abort" "and" "array" "assess" "attrib" + "baseline" "bayes" "between" "bivar" "block" "bubble" "bubble2" + "change" "choro" "class" "contains" "contrast" + "delete" "display" "dm" "donut" "drop" + "else" "error" "exchange" "exclude" + "fcs" "file" "filename" "format" "freq" + "footnote" "footnote1" "footnote2" "footnote3" "footnote4" "footnote5" + "footnote6" "footnote7" "footnote8" "footnote9" "footnote10" + "goptions" "grid" ; "ge" "gt" + "hazardratio" "hbar" "hbar3d" + "id" "if" "index" "infile" "informat" "input" ; "is" rarely used, but common false pos. + "keep" + "label" "length" "libname" "like" "link" "lsmeans" ; "le" "lt" + "manova" "means" "merge" "missing" "model" "modify" + "not" "null" ; "ne" "note" + "ods" "options" "output" "otherwise" ; "or" + "pageby" "parms" "pie" "pie3d" "plot" "plot2" "prism" "put" + "random" "rename" "repeated" "retain" + "same" "save" "scatter" "select" "set" "skip" "star" "strata" "sum" "sumby" "surface" + "table" "tables" "test" "then" "time" + "title" "title1" "title2" "title3" "title4" "title5" + "title6" "title7" "title8" "title9" "title10" + "univar" "update" + "value" "var" "vbar" "vbar3d" + "weight" "where" "window" "with" + ; "x" + ) 'words)) ;"\\>") + font-lock-keyword-face) + + ;; SAS/GRAPH statements not handled above + (cons (concat "\\<" + (regexp-opt + '("axis" "legend" "pattern" "symbol")) "\\([1-9][0-9]?\\)?" + "\\>") + font-lock-keyword-face) + + ;; SAS functions and SAS macro functions + (cons "%[a-z_][a-z_0-9]*[(;]" font-lock-function-name-face) + ;(cons "\\" + "("); "[ \t]*(") + font-lock-function-name-face) + ) + (list + ;; .log NOTE: messages + (cons "^NOTE: .*$" font-lock-constant-face) + + ;; .log ERROR: messages + (cons "^ERROR: .*$" font-lock-keyword-face) + + ;; .log WARNING: messages + (cons "^WARNING: .*$" font-lock-function-name-face) + + ;; SAS comments + ;; /* */ handled by grammar above + ;; (list "/\\*.*\\*/" 0 font-lock-comment-face t) + (cons "\\(^[0-9]*\\|;\\)[ \t]*\\(%?\\*\\|comment\\).*\\(;\\|$\\)" font-lock-comment-face) + + ;; SAS execution blocks, DATA/RUN, PROC/RUN, SAS Macro Statements + (cons "\\<%do[ \t]*\\(%until\\|%while\\)?\\>" + font-lock-constant-face) + ;;(cons (concat "\\(^[0-9]*\\|;\\)[ \t]*" + ;;"%\\(end\\|global\\|local\\|m\\(acro\\|end\\)\\)" + ;;"\\>") font-lock-constant-face) + (cons "\\<%\\(end\\|global\\|local\\|m\\(acro\\|end\\)\\)\\>" + font-lock-constant-face) + + (cons (concat "\\(^[0-9]*\\|;\\|):\\|%then\\|%else\\)[ \t]*" + "\\(data\\|endsas\\|finish\\|quit\\|run\\|start\\)[ \t\n;]") + font-lock-constant-face) + (cons (concat "\\(^[0-9]*\\|;\\|):\\|%then\\|%else\\)[ \t]*" + ;;"proc[ \t]+[a-z][a-z_0-9]+") font-lock-constant-face) + "proc[ \t]+" + ;;SAS/Base, SAS/Graph, SAS/FSP and common add-ons + "\\(append" + "\\|b\\(genmod\\|lifereg\\|phreg\\)" + "\\|c\\(a\\(lendar\\|talog\\)\\|port\\|o\\(mpare\\|ntents\\|py\\|rr\\)\\)" + "\\|d\\(atasets\\|bcstab\\|isplay\\)\\|ex\\(plode\\|port\\)" + "\\|f\\(orm\\(at\\|s\\)\\|req\\|s\\(browse\\|edit\\|l\\(etter\\|ist\\)\\|view\\)\\)" + "\\|g?\\(chart\\|p\\(lot\\|rint\\)\\)" + "\\|g\\(anno\\|contour\\|device\\|font\\|\\(key\\)?map\\|options\\|project" + "\\|re\\(duce\\|move\\|play\\)\\|slide\\|testit\\|3\\(d\\|grid\\)\\)" + "\\|\\(map\\|[cg]\\)?import\\|i\\(ml\\|nsight\\)" + "\\|means\\|options\\|p\\(menu\\|rintto\\)" + "\\|r\\(ank\\|e\\(gistry\\|port\\)\\)" + "\\|s\\(ort\\|ql\\|tandard\\|ummary\\)" + "\\|t\\(abulate\\|emplate\\|imeplot\\|ran\\(spose\\|tab\\)\\)\\|univariate" + ;;SAS/Stat and SAS/ETS + "\\|a\\(ceclus\\|nova\\|rima\\|utoreg\\)\\|boxplot" + "\\|c\\(a\\(lis\\|n\\(corr\\|disc\\)\\|tmod\\)\\|itibase\\|luster\\|o\\(mputab\\|rresp\\)\\)" + "\\|discrim\\|expand\\|f\\(a\\(ctor\\|stclus\\)\\|orecast\\|req\\)" + "\\|g\\(enmod\\|l\\(immix\\|m\\(mod\\|power\\|select\\)?\\)\\)\\|inbreed\\|k\\(de\\|rige2d\\)" + "\\|l\\(attice\\|ife\\(reg\\|test\\)\\|o\\(ess\\|gistic\\)\\)" + "\\|m\\(ds\\|ixed\\|o\\(de\\(clus\\|l\\)\\|rtgage\\)\\|ulttest\\)" + "\\|n\\(ested\\|l\\(in\\|mixed\\)\\|par1way\\)\\|orthoreg" + "\\|p\\(dlreg\\|hreg\\|l\\(an\\|s\\)\\|ower\\|r\\(in\\(comp\\|qual\\)\\|obit\\)\\)\\|r\\(sr\\)?eg" + "\\|s\\(core\\|im\\(2d\\|lin\\)\\|pectra\\|t\\(atespace\\|dize\\|epdisc\\)\\|urvey\\(means\\|reg\\|select\\)\\|yslin\\)" + "\\|t\\(phreg\\|pspline\\|r\\(ansreg\\|ee\\)\\|test\\)" + "\\|var\\(clus\\|comp\\|iogram\\)\\|x11" + "\\)") font-lock-constant-face) + + ;;(cons (concat "\\(^[0-9]*\\|;\\|%then\\|%else\\)[ \t]*" + ;;"\\(%\\(go[ \t]*to\\|i\\(f\\|n\\(clude\\|put\\)\\)\\|let\\|put\\|sysexec\\)\\)" + ;;"\\>") font-lock-constant-face) + (cons "\\<%\\(go[ \t]*to\\|i\\(f\\|n\\(clude\\|put\\)\\)\\|let\\|put\\|sysexec\\)\\>" + font-lock-constant-face) + + (cons "\\<%\\(by\\|else\\|t\\(o\\|hen\\)\\)\\>" + font-lock-constant-face) + + ;; SAS dataset options/PROC statements followed by an equal sign/left parentheses + + (cons (concat + "[ \t(,]" + "\\(attrib\\|by\\|compress\\|d\\(ata\\|rop\\)\\|f\\(irstobs\\|ormat\\)" + "\\|i\\(d\\|f\\|n\\)\\|ke\\(ep\\|y\\)\\|l\\(abel\\|ength\\)" + "\\|o\\(bs\\|rder\\|ut\\)\\|rename\\|s\\(ortedby\\|plit\\)" + "\\|var\\|where\\)" + "[ \t]*=") + font-lock-keyword-face) + (cons "\\<\\(in\\(:\\|dex[ \t]*=\\)?\\|until\\|wh\\(en\\|ile\\)\\)[ \t]*(" + font-lock-keyword-face) + + ;; SAS statements + (cons (concat + "\\(^[0-9]*\\|):\\|[;,]\\|then\\|else\\)[ \t]*" + "\\(a\\(bort\\|rray\\|ttrib\\)\\|b\\(ayes\\|y\\)" + "\\|c\\(hange\\|lass\\|ontrast\\)" + "\\|d\\(elete\\|isplay\\|m\\|o\\([ \t]+\\(data\\|over\\)\\)?\\|rop\\)" + "\\|e\\(rror\\|stimate\\|xc\\(hange\\|lude\\)\\)" + "\\|f\\(ile\\(name\\)?\\|o\\(otnote\\(10?\\|[2-9]\\)?\\|rmat\\)\\|req\\)" + "\\|go\\([ \t]*to\\|ptions\\)" + "\\|hazardratio\\|[hv]bar\\(3d\\)?" + "\\|i\\(d\\|f\\|n\\(dex\\|f\\(ile\\|ormat\\)\\|put\\|value\\)\\)" + "\\|keep\\|l\\(abel\\|ength\\|i\\(bname\\|nk\\|st\\)\\|smeans\\)" + "\\|m\\(anova\\|e\\(ans\\|rge\\)\\|issing\\|od\\(el\\|ify\\)\\)\\|note" + "\\|o\\(ds\\|ptions\\|therwise\\|utput\\)\\|p\\(arms\\|lot2?\\|ut\\)" + "\\|r\\(andom\\|e\\(name\\|peated\\|tain\\)\\)" + "\\|s\\(ave\\|e\\(lect\\|t\\)\\|kip\\|trata\\|um\\(by\\)?\\)" + "\\|t\\(ables?\\|i\\(me\\|tle\\(10?\\|[2-9]\\)?\\)\\)\\|update" + "\\|va\\(lue\\|r\\)\\|w\\(eight\\|here\\|i\\(ndow\\|th\\)\\)" + + ;; IML statements that are not also SAS statements + "\\|append\\|c\\(lose\\(file\\)?\\|reate\\)\\|edit\\|f\\(ind\\|orce\\|ree\\)" + "\\|insert\\|load\\|mattrib\\|p\\(a[ru]se\\|rint\\|urge\\)" + "\\|re\\(move\\|peat\\|place\\|set\\|sume\\)" + "\\|s\\(et\\(in\\|out\\)\\|how\\|ort\\|tore\\|ummary\\)\\|use\\)?" + + "\\>") font-lock-keyword-face) + + + + ;; (cons "\\<\\(\\(then\\|else\\)[ \t]*\\)?\\(do\\([ \t]*over\\)?\\|else\\)\\>" + ;; font-lock-keyword-face) + + ;; SAS statements that must be followed by a semi-colon + (cons (concat + "\\(^[0-9]*\\|):\\|[;,]\\|then\\|else\\)[ \t]*" + "\\(cards4?\\|datalines\\|end\\|l\\(ostcard\\)\\|page\\|stop\\)?" + "[ \t]*;") font-lock-keyword-face) + + ;; SAS/GRAPH statements not handled above + (cons (concat + "\\(^[0-9]*\\|):\\|[;,]\\)[ \t]*" + "\\(axis\\|legend\\|pattern\\|symbol\\)" + "\\([1-9][0-9]?\\)?\\>") font-lock-keyword-face) + + ;; SAS Datastep functions and SAS macro functions + ;(cons "%[a-z_][a-z_0-9]*[ \t]*[(;]" + ;; SAS macro functions occasionally defined with no arguments + ;; which means they can be followed by any character that can + ;; separate tokens, however, they are most likely to be followed + ;; by operat-ions/ors + (cons "%[a-z_][a-z_0-9]*[- \t();,+*/=<>]" + font-lock-function-name-face) + (cons "\\ (- (point-max) pos) (point)) + (goto-char (- (point-max) pos))))) + + +;;(defun sas-indent-region (start end) +;; "Indent a region of SAS code." +;; (interactive "r") +;; (save-excursion +;; (let ((endmark (copy-marker end))) +;; (goto-char start) +;; (and (bolp) (not (eolp)) +;; (sas-indent-line)) +;; (indent-sexp endmark) +;; (set-marker endmark nil)))) + + +(defun indent-sas-statement (arg) + "Indent all continuation lines sas-indent-width spaces from first +line of statement." + (interactive "p") + (let (end) + (save-excursion + (if (> arg 0) + (while (and (> arg 0) (search-forward ";" (point-max) 1 1)) + (setq end (point)) + (if (bobp) nil (backward-char 1)) + (beginning-of-sas-statement 1) + (forward-char 1) + (indent-region (point) + end + (+ (current-column) (1- sas-indent-width))) + (search-forward ";" (point-max) 1 1) + (setq arg (1- arg))))))) + +;; added 9/31/94 +(defun sas-next-statement-indentation () + "Returns the correct indentation of the next sas statement. +The current version assumes that point is at the end of the statement. +This will (hopefully) be fixed in later versions." + (if (bobp) 0 + (save-excursion + (let ((prev-end (point))) + (beginning-of-sas-statement 1) + (while (and (not (bobp)) + (not (looking-at "*/")) + (looking-at sas-indent-ignore-comment)) + (skip-chars-backward sas-white-chars) + (if (bobp) nil + (backward-char 1)) + (setq prev-end (point)) + (beginning-of-sas-statement 1 t)) + (if (or + (looking-at + (concat "data[ \n\t;]\\|" + (regexp-opt '("cards;" "cards4;" "datalines;" "datalines4;" "lines;" "lines4;")) + "\\|proc[ \n\t]\\|%?do[ \n\t;]\\|%macro[ \n\t]\\|/\\*")) + (save-excursion + (re-search-forward + "\\b%?then\\>[ \n\t]*\\b%?do\\>\\|\\b%?else\\>[ \n\t]*\\b%?do\\>" + prev-end 1 1))) ; fixed 1/30/95 to avoid being fooled by + ; variable names starting with "do" + (+ (current-indentation) sas-indent-width) + (if (looking-at "%?end[ ;\n]\\|%mend[ ;\n]\\|\\*/") + (max (- (current-indentation) sas-indent-width) 0) + (current-indentation))))))) + +;; added 2/1/95 +(defun sas-comment-start-col () + "If the current line is inside a /* */ comment, returns column in which the +opening /* appears. returns 0 otherwise." + (let ((pos (point))) + (save-excursion + (if (and (search-backward "*/" (point-min) 1 1) + (search-forward "/*" pos 1 1)) + (current-indentation) + 0)))) + + +;; Created 6/27/94 to verify that RUN; statements match PROC and DATA +;; statements. Useful since indentation my be goofy w/o "RUN;" +(defun sas-check-run-statements () + "Check to see that \"run\" statements are matched with proc, data statements." + (interactive) + (let (pos + (ok t) + (eob-ok t)) + (save-excursion + (beginning-of-line) + (while ok + (if (re-search-forward + "\\(^[ \t]*run[ ;]\\)\\|\\(^[ \t]*proc \\|^[ \t]*data[ ;]\\)" + nil 1) + (if (match-beginning 2) + (if (re-search-forward + "\\(^[ \t]*run[ ;]\\)\\|\\(^[ \t]*proc \\|^[ \t]*data[ ;]\\)" + nil t) + (progn (setq pos (point)) + (setq ok (match-beginning 1))) + (setq eob-ok nil pos (point-max)))) + (setq ok nil))) + (setq ok (eobp))) + (if (and ok eob-ok) (message "Run statements match") + (goto-char pos) + (beep) + (message "Missing Run Statement.")))) + +(defun sas-fix-life-tables () + "Remove censored and duplicate observations from life tables generated by +Proc Lifetest. Operates on current region. A major space saver if there is +heavy censoring." + (interactive) + (if buffer-read-only (setq buffer-read-only nil)) + (goto-char (point-min)) + (while (re-search-forward "^.*[ ]+[.][ ]+[.][ ]+[.][ ]+.*$" nil t) + (replace-match "" nil nil))) + ; (save-excursion + ; (shell-command-on-region + ; start end + ; "sed '/[ ][.][ ]/d'" t))) +;;"sed \"\\? *\\. *\\. *\\. ?d\"" t))) +;;(vip-goto-line 1) +;;(setq ex-g-flag nil +;;ex-g-variant nil) +;;(vip-ex "1,$g/ \\. \\. \\. /d"))) + +(defun sas-fix-page-numbers (offset &optional page-num) + "Fix number of current page in sas output files after editing. Add +OFFSET to actual page number." + (interactive "P") + (if (not offset) (setq offset 0)) + (if (not page-num) (setq page-num (sas-page-number))) + (save-excursion + (if (/= (preceding-char) ?\C-l) (backward-page 1)) + (let (end len mstart mend) + (save-excursion + (forward-line sas-page-number-max-line) + (setq end (point))) + (if (re-search-forward + "\\(^[0-9]+[ ]\\)\\|\\([ ][0-9]+$\\)" + end t) + (progn (setq len (- (match-end 0) (match-beginning 0)) + mstart (match-beginning 0) + mend (match-end 0)) + (delete-region mstart mend) + (if (eolp) + (insert (format + (concat "%" len "d") (+ page-num offset))) + (insert (substring + (concat (+ (sas-page-number) offset) " ") + 0 len)))))))) + +(defun sas-page-fix (start) + "Fix page numbers in sas output from point to end of file. +If START is given this will be the number for the current page." + (interactive "P") + (let (offset (pnum (sas-page-number))) + (if (not start) (setq offset 0) + (setq offset (- start pnum))) + (while (not (eobp)) + (sas-fix-page-numbers offset pnum) + (setq pnum (1+ pnum)) + (forward-page 1)))) + +(defun fix-page-breaks () + "Fix page breaks in SAS 6 print files." + (interactive) + (save-excursion + (goto-char (point-min)) + (if (looking-at "\f") (delete-char 1)) + ;(replace-regexp "^\\(.+\\)\f" "\\1\n\f\n") + (while (re-search-forward "^\\(.+\\)\f" nil t) + (replace-match "\\1\n\f\n" nil nil)) + (goto-char (point-min)) + ;(replace-regexp "^\f\\(.+\\)" "\f\n\\1") + (while (re-search-forward "^\f\\(.+\\)" nil t) + (replace-match "\f\n\\1" nil nil)) + ; (goto-char (point-min)) + ;(replace-regexp " $" "") + ;(while (re-search-forward "$" nil t) + ; (replace-match "" nil nil)) + (goto-char (point-min)) + ;(replace-regexp " \\([^\\$]+\\)" "\n\\1") + (while (re-search-forward " \\([^\\$]+\\)" nil t) + (replace-match "\n\\1" nil nil)) + (goto-char (point-max)) + (if (not (bobp)) + (progn (backward-char 1) + (if (not (looking-at "\n")) + (progn (forward-char 1) (open-line 1))))))) + +(defun sas-page-number () + ;; like what-page except it returns an integer page number + "Return page number of point in current buffer." + (let ((opoint (point))) (save-excursion + (goto-char (point-min)) + (1+ (sas-how-many page-delimiter opoint))))) + +(defun sas-how-many (regexp &optional end) + ;; a copy of `how-many' which returns an integer + ;; rather than a message + "Return number of matches for REGEXP following point." + (let ((count 0) opoint) + (save-excursion + (while (and (not (eobp)) + (progn (setq opoint (point)) + (re-search-forward regexp end t))) + (if (= opoint (point)) + (forward-char 1) + (setq count (1+ count)))) + count))) + +(defun beginning-of-sas-proc () + "Move point to beginning of sas proc, macro or data step." + (interactive) + (let ((case-fold-search t)) + (forward-char -1) + (while (not (or (looking-at "data\\|proc\\|%macro") + (bobp))) + (re-search-backward "proc\\|data\\|%macro" (point-min) 1) + (beginning-of-sas-statement 1)))) + +(defun next-sas-proc (arg) + "Move point to beginning of next sas proc." + (interactive "P") + (let ((case-fold-search t)) + (forward-char 1) + (if (re-search-forward + "^[ \t]*\\(data[ ;]\\|proc[ ;]\\|endsas[ ;]\\|g?options[ ;]\\|%macro[ ;]\\)" + nil t arg) + (beginning-of-sas-statement 1) + (forward-char -1)))) + +(defun set-sas-file-name () + "Stores the name of the current sas file." + (let ((name (buffer-file-name))) + (cond ((not name)) + ((string-match (substring name -4 nil) + "\\.sas\\|\\.lst\\|\\.log") + + (setq sas-file-name (substring name 0 (- (length name) 4))) + (setq sas-buffer-name (buffer-name)) + (setq sas-file-root (substring sas-buffer-name 0 + (- (length sas-buffer-name) 4)))) + (t (message "This file does not have a standard suffix"))))) + +;; created 6/27/94 +(defun sas-set-alternate-file-name (name) + "Stores the NAME of an alternate sas file. +When this file is submitted with `submit-sas', the alternate file will +be submitted instead. `sas-submitable' is automatically sets to t." + (interactive "f") + (cond ((string-match (substring name -4 nil) + "\\.sas\\|\\.lst\\|\\.log") + (setq sas-file-name (substring name 0 (- (length name) 4))) + (setq sas-submitable t)) + (t (message "This file does not have a standard suffix")))) + +(defun switch-to-sas-source () + "Switches to sas source file associated with the current file." + (interactive) + (switch-to-sas-file "sas")) + +(defun switch-to-sas-lst () + "Switches to sas source file associated with the current file." + (interactive) + (switch-to-sas-file "lst")) + +(defun switch-to-sas-log () + "Switches to sas source file associated with the current file." + (interactive) + (switch-to-sas-file "log")) + +(defun switch-to-sas-source-other-window () + "Switches to sas source file associated with the current file." + (interactive) + (switch-to-sas-file-other-window "sas")) + +(defun switch-to-sas-lst-other-window () + "Switches to sas source file associated with the current file." + (interactive) + (switch-to-sas-file-other-window "lst")) + +(defun switch-to-sas-log-other-window () + "Switches to sas source file associated with the current file." + (interactive) + (switch-to-sas-file-other-window "log")) + +;;(defun switch-to-sas-file (suff &optional revert silent) +;; "Switches to sas \"SUFF\" file associated with the current file" +;; (let* ((sfile sas-file-name) +;; (buf (get-file-buffer (concat sfile "." suff))) +;; (sas-require-confirmation +;; (and sas-require-confirmation (not revert)))) +;; (if (or sas-require-confirmation (string-equal suff "sas") (not buf)) +;; (find-file (concat sfile "." suff)) +;; (progn (switch-to-buffer buf) +;; (if (not (verify-visited-file-modtime (current-buffer))) +;; (progn (revert-buffer t t) +;; (if (not silent) +;; (message "File has changed on disk. Buffer automatically updated.")))))) +;; (setq sas-file-name sfile)) +;; (if (string-equal suff "sas") +;; (if (not (string-equal major-mode "sas-mode")) +;; (sas-mode)) +;; (if (not (string-equal major-mode "sasl-mode")) +;; (sasl-mode)))) +;; +;;(defun switch-to-sas-file-other-window (suff) +;; "Switches to sas \"SUFF\" file associated with the current file" +;; (let* ((sfile sas-file-name) +;; (buf (get-file-buffer (concat sfile "." suff)))) +;; (if (or sas-require-confirmation (string-equal suff "sas") (not buf)) +;; (find-file-other-window (concat sfile "." suff)) +;; (progn (switch-to-buffer-other-window buf) +;; (if (not (verify-visited-file-modtime (current-buffer))) +;; (progn (revert-buffer t t) +;; (message "File has changed on disk. Buffer automatically updated."))))) +;; (setq sas-file-name sfile)) +;; (if (string-equal suff "sas") +;; (if (not (string-equal major-mode "sas-mode")) +;; ;;(sas-mode) +;; ) +;; (if (not (string-equal major-mode "sasl-mode")) +;; ;;(sasl-mode) +;; ))) + +(defun switch-to-sas-file (suff) + "Switches to sas \"SUFF\" file associated with the current file." + (switch-to-buffer (set-sas-file-buffer suff))) + +(defun switch-to-sas-file-other-window (suff) + "Switches to sas \"SUFF\" file associated with the current file." + (switch-to-buffer-other-window (set-sas-file-buffer suff))) + +;; The following was created 6/7/94 to handle buffers without messing up +;; windows. + +(defun set-sas-file-buffer (suff &optional revert silent) + "Sets current buffer to sas \"SUFF\" file associated with the current file." + (let* ((sfile sas-file-name) + (buf (get-file-buffer (concat sfile "." suff))) + (sas-require-confirmation + (and sas-require-confirmation (not revert)))) + (if (or sas-require-confirmation (string-equal suff "sas") (not buf)) + (set-buffer (find-file-noselect (concat sfile "." suff))) + (progn (set-buffer buf) + (if (not (verify-visited-file-modtime (current-buffer))) + (progn (revert-buffer t t) + (if (not silent) + (message "File has changed on disk. Buffer automatically updated.")))))) + (setq sas-file-name sfile)) + ;;(if (string-equal suff "sas") + ;; (if (not (string-equal major-mode "sas-mode")) (sas-mode)) + ;; (if (not (string-equal major-mode "sasl-mode"))(sasl-mode)) + (current-buffer)) + +(defun switch-to-sas-process-buffer () + "Switch to sas-process-buffer." + (interactive) + (let (buf proc-name) + (setq proc-name (concat "SAS" sas-file-name) + buf (concat "*" proc-name "*")) + (switch-to-buffer-other-window buf))) + +(defun submit-sas () + ;; 6/17/94 added sas-submitable local variable. + "Submit SAS file as shell command." + (interactive) + (if ;; can file be run, or is it only for inclusion? + (or sas-submitable + (progn + (beep) + (y-or-n-p + (format + "Submission is disabled for this file. Submit it anyway? ")))) + (progn + ;; if buffer name has changed, tell user + (if (or + (string-equal sas-buffer-name (buffer-name)) + (not + (y-or-n-p + (format + "The name of this buffer has changed. Submit the new file? ")))) + (setq sas-buffer-name (buffer-name)) + (set-sas-file-name)) + (let ((sas-file sas-file-name) + (sas-root sas-file-root) + ;;(sas-buf sas-buffer-name) + proc-name + buf) + + ;; Save buffer to SAS the right file :-). + (if (buffer-modified-p) + (if (y-or-n-p (format "Buffer %s is modified. Save it? " + (buffer-name))) + (save-buffer))) + (setq proc-name (concat "SAS" sas-file) + buf (concat "*" proc-name "*")) + (if (get-buffer buf) + (save-window-excursion (switch-to-buffer buf) + (erase-buffer) + (setq default-directory + (file-name-directory sas-file)))) + + (run-hooks 'sas-pre-run-hook) ;; added 8/24/94 + (message "---- Submitting SAS job ----") + ;; (switch-to-buffer buf) + (make-comint proc-name + sas-program ;added sas-program 4/29/94 + nil + sas-root) + (save-window-excursion + (switch-to-buffer buf) + (setq sas-file-name sas-file) + (bury-buffer buf)) + + (message "---- SAS job submitted ---- ") + + (if sas-notify;; added 4/7/94 + (set-process-sentinel (get-process proc-name) 'sas-sentinel) + (display-buffer buf t)))) + (message "---- File not submitted ----"))) + +;; 5/2/94 Modified sas-sentinel to check for errors in log file upon +;; completion. +(defun sas-sentinel (proc arg);; created 4/7/94 + "Notify user that SAS run is done." + (beep) + ;;(if (string-equal arg "finished\n") + (save-excursion + (let (msg buf win (sbuf (concat "*" (process-name proc) "*"))) + (setq msg + (format "SAS %s %s" + (substring arg 0 -1) + (if sas-error-notify + ;;(save-window-excursion + (progn + (set-buffer sbuf) + (setq buf (set-sas-file-buffer "log" t t)) + (goto-char (point-min)) + (setq win (get-buffer-window buf)) + (save-window-excursion + (if win + (progn + (select-window win) + (if (re-search-forward "^ERROR" nil t) + " (See .log file for errors)" + "")) + (switch-to-buffer buf) + (if (re-search-forward "^ERROR" nil t) + " (See .log file for errors)" + "")))) + ""))) + (set-buffer sbuf) + (goto-char (point-max)) + (insert msg) + (bury-buffer (get-buffer sbuf)) + ;;(if (and sas-notify-popup window-system) + ;; (x-popup-dialog t + ;; (list "SAS Menu" (cons msg nil) ))) + ;;(if (not (minibuffer-window-active-p)) (princ msg)) + (princ msg)))) + +;; 5/2/94 Modified run-sas-on-region to separate log and output buffers. +;; +;;(defun run-sas-on-region (start end append &optional buffer) +;; "Submit region to SAS" +;; (interactive "r\nP") +;; (message "---- Running SAS ----") +;; (let ((sfile sas-file-name) +;; (shell-file-name "/bin/sh") +;; serror buff) +;; (setq buffer (or buffer "*SAS output*")) +;; (save-excursion +;; (shell-command-on-region +;; start end;; added sas-program +;; (concat sas-program " -nonews -stdio 2> /tmp/_temp_.log" nil)) +;; (get-buffer-create "*SAS Log*") +;; (save-window-excursion +;; (switch-to-buffer "*SAS Log*") +;; (erase-buffer) +;; (insert-file-contents "/tmp/_temp_.log") +;; (delete-file "/tmp/_temp_.log") +;; (setq serror (re-search-forward "^ERROR" nil t)) +;; (if serror () (bury-buffer))) +;; (setq buff (get-buffer-create buffer)) +;; (save-window-excursion +;; (switch-to-buffer buff) +;; (setq sas-file-name sfile) +;; (if append +;; (progn +;; (end-of-buffer) +;; (insert "\f\n")) +;; (erase-buffer)) +;; (if (get-buffer "*Shell Command Output*") +;; (progn (insert-buffer "*Shell Command Output*") +;; (kill-buffer "*Shell Command Output*")) +;; (insert "SAS completed with no output.")) +;; (if append () (sasl-mode)) +;; (message "---- SAS Complete ----"))) +;; (if (not serror) +;; (switch-to-buffer-other-window buff) +;; (switch-to-buffer-other-window "*SAS Log*") +;; (goto-char serror) +;; (beep) +;; (message "Error found in log file.") +;; ))) + +(defun switch-to-dataset-log-buffer () + "Switch to log buffer for run-sas-on-region." + (interactive) + (switch-to-buffer-other-window "*SAS Log*")) + +(defun switch-to-dataset-source-buffer () + "Switch to source buffer for run-sas-on-region." + (interactive) + (switch-to-buffer-other-window (format " *sas-tmp-%s*" sas-dataset))) + +;;(defun sas-get-dataset (filename &optional arg opts-p append buffer vars) +;; "Run proc contents and proc print on SAS dataset. Automatically prompts +;;for SAS options to use. Default options are defined by the variable +;;`sas-get-options'. Output may be updated from within output buffer with +;;C-cr if dataset changes. Also, the source code which generates the output +;;may be edited with C-cs. Typing C-cr within the output buffer reexecutes +;;the (modified) source code." +;; (interactive "fName of SAS dataset (file name):") +;; (let ((file (file-name-nondirectory filename)) +;; (dir (file-name-directory filename)) +;; (opts sas-get-options) +;; (minibuffer-history sas-get-options-history) +;; buf); fsize) +;; (setq buffer (or buffer (concat "*" file "*"))) +;; (setq opts (if opts-p opts (read-string "SAS options: " opts))) +;; (setq sas-get-options-history minibuffer-history) +;; (cond ((string-match (substring file -6 nil) "\\.ssd01") +;; (setq file (substring file 0 (- (length file) 6)))) +;; (t (error "This file is not a SAS dataset."))) +;; (setq buf (format " *sas-tmp-%s*" file)) +;; (get-buffer-create buf) +;; (save-window-excursion +;; (switch-to-buffer buf) +;; (erase-buffer) +;; (setq default-directory dir) +;; (if opts +;; (insert (format "options %s ;\n" opts))) +;; (insert (format "title \"Contents of SAS dataset `%s'\" ;\n" file)) +;; (insert (format "libname %s '%s' ;\n" sas-tmp-libname dir)) +;; (if (not (equal arg 1)) +;; (insert (format "proc contents data = %s.%s ;\n" sas-tmp-libname file))) +;; (if (equal arg 2) () +;; (insert (format "proc print data = %s.%s ;\n" sas-tmp-libname file)) +;; (if vars (insert (format " var %s ;\n" vars)))) +;; (run-sas-on-region (point-min) (point-max) append +;; buffer) +;; (get-buffer buffer) +;; (if append () (sasd-mode)) ;; added 5/5/94 +;; (setq sas-dataset file)) +;; (if (get-buffer-window buffer t) +;; (raise-frame (window-frame (get-buffer-window buffer t))) +;; (display-buffer buffer (not append))) +;; )) + +;;(defun revert-sas-dataset () +;; "Revert current sas dataset from disk version" +;; (interactive) +;; (let* ((file sas-dataset) +;; (buf (format " *sas-tmp-%s*" file)) +;; (pos (point))) +;; (save-window-excursion +;; (switch-to-buffer buf) +;; (run-sas-on-region (point-min) (point-max) nil +;; (concat "*" file ".ssd01*")) +;; ) +;; (goto-char pos) ;; added 6/9/94 +;; (sasd-mode) ;; added 5/5/94 +;; (setq sas-dataset file))) + +(defun sas-insert-local-variables () ;; created 6/17/94 + "Add local variables code to end of sas source file." + (interactive) + (save-excursion + (if (re-search-forward "* *Local Variables: *;" nil t) + () + (goto-char (point-max)) + (insert " + +** Local Variables: ; +** End: ; +page ; +")))) + + + +;;-*-emacs-lisp-*- +;;; file name: sas-data.el +;;; +;;; Version 1.0 +;;; +;;; sas-data-mode: manage sas datasets +;;; Copyright (C) 1994 Tom Cook +;;; +;;; This program 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 of the License, or +;;; (at your option) any later version. +;;; +;;; This program 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 +;;; https://www.r-project.org/Licenses/ +;;; +;;; Author: Tom Cook +;;; Dept. of Biostatistics +;;; University of Wisconsin - Madison +;;; Madison, WI 53706 +;;; cook@biostat.wisc.edu +;; Created: 8/11/94 + +;; variables section +(defvar sas-dir-mode-map nil) +(defvar-local sas-directory-name nil + "Name of directory associated with this buffer.") +(defvar-local sas-dir-buf-end nil) +(defvar-local sas-sorted-by-num nil) +;; user variables + +;; keymaps etc... + +(if sas-dir-mode-map () + (setq sas-dir-mode-map (make-sparse-keymap)) + ;;(define-key sas-dir-mode-map "c" 'sas-contents) + (define-key sas-dir-mode-map "p" 'sas-print) + (define-key sas-dir-mode-map "m" 'sas-mark-item) + (define-key sas-dir-mode-map "u" 'sas-unmark-item) + (define-key sas-dir-mode-map " " 'sas-next-line) + (define-key sas-dir-mode-map "\C-n" 'sas-next-line) + (define-key sas-dir-mode-map "\C-p" 'sas-prev-line) + (define-key sas-dir-mode-map "\177" 'sas-prev-line-undo) + (define-key sas-dir-mode-map "\C-b" 'sas-backward-page-narrow) + (define-key sas-dir-mode-map "\C-v" 'sas-forward-page-narrow) + (define-key sas-dir-mode-map "\C-m" 'sas-goto-dataset) + (define-key sas-dir-mode-map [mouse-2] 'sas-mouse-goto-dataset) + (define-key sas-dir-mode-map "t" 'sas-dir-goto-page) + (define-key sas-dir-mode-map "q" 'bury-buffer) + (define-key sas-dir-mode-map "g" 'sas-revert-library) + (define-key sas-dir-mode-map "1" 'digit-argument) + (define-key sas-dir-mode-map "2" 'digit-argument) + (define-key sas-dir-mode-map "3" 'digit-argument) + (define-key sas-dir-mode-map "4" 'digit-argument) + (define-key sas-dir-mode-map "5" 'digit-argument) + (define-key sas-dir-mode-map "6" 'digit-argument) + (define-key sas-dir-mode-map "7" 'digit-argument) + (define-key sas-dir-mode-map "8" 'digit-argument) + (define-key sas-dir-mode-map "9" 'digit-argument) + (define-key sas-dir-mode-map [menu-bar sas run] + '("Submit File " . submit-sas)) + ) + +(define-derived-mode sas-dir-mode special-mode "SAS" + "Major mode for managing sas files." + (setq sas-directory-name (expand-file-name default-directory))) + + +;;(defun sas-make-library (directory &optional update) +;; "Create a buffer with the names of all sas datasets from DIRECTORY." +;; (interactive "DDirectory Name: ") +;; (let ((dir (expand-file-name directory)) buf out cont pos) +;; (setq buf (format " *sas-tmp-%s*" dir)) +;; (setq out (concat "*SAS-dir-" dir)) +;; (setq cont (concat "*SAS-cont-" dir)) +;; (get-buffer-create buf) +;; (if (get-buffer out) +;; (if update +;; (progn +;; (set-buffer out) +;; (setq buffer-read-only nil))) +;; (setq update t)) +;; (pop-to-buffer out) +;; (setq default-directory dir) +;; (setq pos (point)) +;; (if update +;; (progn +;; (save-window-excursion +;; (set-buffer buf) +;; (erase-buffer) +;; (setq default-directory dir) +;; (insert "options linesize=70 pagesize=1000 ;\n") +;; (insert (format "title \"Contents of SAS directory `%s'\" ;\n" +;; dir)) +;; (insert (format "libname %s '%s' ;\n" sas-tmp-libname dir)) +;; (insert (format "proc contents data = %s._all_ directory details memtype=data ;\n" sas-tmp-libname)) +;; (run-sas-on-region (point-min) (point-max) nil +;; out) +;; (set-buffer out) +;; (goto-char (point-min)) +;; (if (= (sas-how-many page-delimiter (point-max)) 0) +;; (let ((buffer-read-only nil)) +;; (erase-buffer) +;; (insert "There are no SAS datasets in this directory") +;; (pop-to-buffer out)) +;; (save-excursion +;; (set-buffer (get-buffer-create cont)) +;; (setq buffer-read-only t) +;; (let ((buffer-read-only nil)) +;; (erase-buffer) +;; (insert-buffer out) +;; (delete-region (point-min) +;; (or (re-search-forward page-delimiter nil t) +;; (point-min))) +;; (sas-page-fix 1) +;; (goto-char (point-min)) +;; (sas-dir-mode) +;; (sas-narrow-to-page))) +;; (if (re-search-forward page-delimiter nil t) +;; (delete-region (progn (beginning-of-line) (point)) +;; (point-max))) +;; (sas-insert-set-properties (point-min) (point-max)) +;; ) +;; (switch-to-buffer out t) +;; (goto-char (point-min)) +;; (sas-dir-mode) +;; (setq sas-dir-buf-end (point-max))) +;; (goto-char pos) +;; (sas-move-to-filename (point-max)))))) + + +(defun sas-move-to-filename (&optional eol) + (or eol (setq eol (progn (end-of-line) (point)))) + (beginning-of-line) + (if (re-search-forward "\\(^ *[0-9]+ *<*\\)[^:0-9\n]" eol t) + (goto-char (match-end 1)))) + +(defun sas-next-line (arg) + "Move down one line." + (interactive "p") + (forward-line arg) + (sas-move-to-filename (point-max))) +;;(and (< (point) sas-dir-buf-end) +;;(forward-line arg) +;;(sas-move-to-filename sas-dir-buf-end))) + +(defun sas-prev-line (arg) + "Move up one line." + (interactive "p") + (beginning-of-line) + (re-search-backward "^ *[0-9]+ *<*[^:0-9\n]" (point-min) t) + (sas-move-to-filename sas-dir-buf-end)) + +(defun sas-insert-set-properties (beg end) + (save-excursion + (goto-char beg) + (while (< (point) end) + (if (sas-move-to-filename) + (put-text-property (point) + (+ 8 (point)) + 'mouse-face 'highlight)) + (forward-line 1)))) + +(defun sas-get-filename () + "Return name of dataset on current line." + (interactive) + (save-excursion + (if (string-equal "*SAS-dir" (substring (buffer-name) 0 8)) + (sas-move-to-filename) + (goto-char (point-min)) + (re-search-forward "Data Set Name: [^.]*\\.")) + (expand-file-name + (downcase (concat sas-directory-name + (buffer-substring + (point) + (save-excursion + (skip-chars-forward "A-Z0-9_") + (point))) ".ssd01"))))) + +(defun sas-get-file-number () + "Return name of dataset on current line." + (interactive) + (if (sas-move-to-filename) + (progn (forward-word -1) + (re-search-forward "[0-9]*") + (string-to-number + (buffer-substring (match-beginning 0) + (match-end 0)))))) + +;;(defun sas-contents () +;; "Run proc contents on current file." +;; (interactive) +;; (let ((buffer-read-only nil) (sas-get-options "linesize=70")) +;; (sas-get-dataset (sas-get-filename) 2 t t (buffer-name)) +;; (end-of-buffer) +;; (backward-page-top-of-window 1))) +;; +;;(defun sas-print () +;; "Run proc contents on current file." +;; (interactive) +;; (sas-get-dataset (sas-get-filename) 1 nil nil nil +;; (sas-create-var-string))) + +(defun sas-goto-page (arg) + "Goto top of page ARG. If no ARG, then goto top of file." + (interactive "P") + (goto-char 1) + (if arg + (if (> arg 1) + (progn + (re-search-forward page-delimiter (point-max) 1 (1- arg))))) + (skip-chars-forward sas-white-chars); was " \f\n" till 5.1.13 + (recenter 1)) + +(defun forward-page-top-of-window (arg) + "Move forward to page boundary and leave first line at top of window. +With arg, repeat, or go back if negative. A page boundary is any line +whose beginning matches the regexp `page-delimiter'." + (interactive "p") + (forward-page arg) + (recenter 0)) + +(defun backward-page-top-of-window (arg) + "Move backward to page boundary and leave first line at top of window. +With arg, repeat, or go back if negative. A page boundary is any line +whose beginning matches the regexp `page-delimiter'." + (interactive "p") + (forward-page (- arg)) + (recenter 0)) + +(defun sas-narrow-to-page () + (save-excursion + (let* ((min (point-min)) + (max (point-max))) + ;;(omin (point-min)) + ;;(omax (point-max))) + (if (or (bolp) (beginning-of-line) + (looking-at page-delimiter)) + (forward-char 1) + (forward-page -1)) + (setq min (point)) + (forward-page 1) + (beginning-of-line) + (setq max (point)) + (narrow-to-region min max)))) + +(defun sas-forward-page-narrow (arg) + "Move forward to page boundary and narrow to page. +With arg, repeat, or go back if negative. A page boundary is any line +whose beginning matches the regexp `page-delimiter'." + (interactive "p") + (widen) + (forward-page arg) + (sas-narrow-to-page) + (goto-char (point-min))) + +(defun sas-backward-page-narrow (arg) + "Move backward to page boundary and narrow to page. +With arg, repeat, or go back if negative. A page boundary is any line +whose beginning matches the regexp `page-delimiter'." + (interactive "p") + (goto-char (point-min)) + (widen) + (forward-page (- arg)) + (sas-narrow-to-page)) + +(defun sas-goto-dataset (&optional page) + (interactive) + (and sas-directory-name + (let ((page (or page (sas-get-file-number)))) + ;;(dir sas-directory-name)) + (if page + (progn + (switch-to-buffer-other-window + (concat "*SAS-cont-" sas-directory-name)) + (widen) + (sas-goto-page page) + (sas-narrow-to-page) + (goto-char (point-min))))))) + +;;(defun sas-mouse-goto-dataset (event) +;; (interactive "e") +;; (let (page buf) +;; (save-window-excursion +;; (save-excursion +;; (set-buffer (window-buffer (posn-window (event-end event)))) +;; (save-excursion +;; (goto-char (posn-point (event-end event))) +;; (setq page (sas-get-file-number))) +;; (sas-goto-dataset page) +;; (setq buf (buffer-name)))) +;; (set-buffer buf) +;; (goto-char (point-min)) +;; (display-buffer buf))) + + +(defun sas-dir-goto-page (page) + (interactive "p") + (widen) + (sas-goto-page page) + (sas-narrow-to-page)) + +(defun sas-mark-item (&optional next) + (interactive) + (sas-move-to-filename) + (beginning-of-line) + (let ((buffer-read-only nil)) + (if (re-search-forward "^\\( *[0-9]+ *\\) \\([A-Z][A-Z_0-9]*\\) " + (save-excursion (end-of-line) (point)) t) + (replace-match "\\1<\\2>"))) + (or next (sas-next-line 1))) + +(defun sas-unmark-item () + (interactive) + (save-excursion + (beginning-of-line) + (let ((buffer-read-only nil)) + (if (re-search-forward "^\\( *[0-9]+ *\\)<\\([A-Z][A-Z_0-9]*\\)>" + (save-excursion (end-of-line) (point)) t) + (replace-match "\\1 \\2 "))))) + +(defun sas-prev-line-undo (arg) + (interactive "p") + (sas-prev-line arg) + (sas-unmark-item) + (sas-move-to-filename)) + +(defun sas-create-var-string () + (and (string-equal "*SAS-cont" (substring (buffer-name) 0 9)) + (let (str) + (goto-char (point-min)) + (while + (re-search-forward "^\\( *[0-9]+ *\\)<\\([A-Z][A-Z_0-9]*\\)>" + nil t) + (setq str (concat str " " (buffer-substring (match-beginning 2) + (match-end 2))))) + str))) + + +(defun ess-imenu-SAS (&optional arg) + "SAS language Imenu support for ESS." + (interactive) + (setq imenu-generic-expression + '( (nil "[ \t\n=]\\([a-zA-Z_][a-zA-Z_0-9]*[.][a-zA-Z_][a-zA-Z_0-9]*\\)[ ,()\t\n;]" 1))) + (imenu-add-to-menubar "SAS Datasets")) + +;;(defun sas-revert-library () +;; "Update current library." +;; (interactive) +;; (if sas-directory-name +;; (sas-make-library sas-directory-name t))) + +(provide 'ess-sas-l) + +;;; ess-sas-l.el ends here diff --git a/elpa/ess-20190121.1430/ess-site.el b/elpa/ess-20190121.1430/ess-site.el new file mode 100644 index 00000000..45b74867 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-site.el @@ -0,0 +1,124 @@ +;;; ess-site.el --- user customization of ESS + +;; Copyright (C) 1993 David M. Smith +;; Copyright (C) 1997--2010 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. +;; Copyright (C) 2011--2018 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, Stephen Eglen, +;; Vitalie Spinu, and Lionel Henry. + +;; Author: David Smith +;; Created: 12 Nov 1993 +;; Maintainer: ESS-core +;; Keywords: local + +;; 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 +;; https://www.r-project.org/Licenses/ + + +;;; Commentary: + +;; This file defines all the site-specific customizations for ESS. It should be +;; edited on a per-site basis. Read the comments (1.1 in Section 1 to see if +;; ess-site.el must be edited. The final directory location of this file must be +;; supplied in ess-lisp-directory. The editing of remaining sections is +;; optional. It should then be byte-compiled, and users who wish to use ESS +;; should add the path to ess-site to their `load-path' and require it: +;; +;; (add-to-list 'load-path "/path/to/ess/lisp-directory");; +;; (require 'ess-site) + +;;; Code: + +;;;; Load path, autoloads, and major modes +;;;; ======================================== +;; +;; For most users the variable ess-lisp-directory will automatically +;; be set correctly. If you are working with an old emacs, one in +;; which file-truename is not defined, then you might need to change +;; the value of ess-lisp-directory to the directory which is to +;; contain the file ess-site.elc. This is probably the current +;; directory, or the value of LISPDIR if it was set in the Makefile. + +;; DEBUG: (setq ess-show-load-messages t); instead of nil above + +;; This sets `ess-lisp-directory' either from the current directory +;; when the file is being `load'ed, or from the installed location +;; otherwise. This way, users can load ESS without having added ESS to +;; `load-path'. +(defvar ess-lisp-directory + ;; A nice default + (directory-file-name + (file-name-directory + (if load-file-name + (file-truename load-file-name) + (locate-library "ess-site") ))) + "Directory containing ess-site.el(c) and other ESS Lisp files.") + +(defvar ess-etc-directory nil + "Location of the ESS etc/ directory. +The ESS etc directory stores various auxillary files that are useful +for ESS, such as icons.") + + +;; Depending on how ESS is loaded the `load-path' might not contain +;; the `lisp' directory. For this reason we need to add it before we +;; start requiring ESS files +(add-to-list 'load-path (file-name-as-directory ess-lisp-directory)) +;; Add ess-lisp-directory/obsolete to load-path; files here will +;; automatically warn that they are obsolete when loaded. +(add-to-list 'load-path (file-name-as-directory (expand-file-name "obsolete" ess-lisp-directory))) + +(require 'ess-utils) +(ess-write-to-dribble-buffer + (format "[ess-site:] ess-lisp-directory = '%s'" ess-lisp-directory)) + + +;; If ess.info is not found, then ess-lisp-directory/../doc/info is added +;; resurrecting Stephen's version with a bug-fix +(unless (locate-file "ess.info" Info-default-directory-list) + (add-to-list 'Info-default-directory-list (expand-file-name "../doc/info/" ess-lisp-directory))) + + +;;; Loading popular dialects (they should become optional in the future) + +;; R and Julia +(require 'ess-sp6-d) +(require 'ess-r-mode) + +(when (require 'julia-mode nil 'no-error) + (require 'ess-julia)) + +;; ess-remote +(require 'essd-els) + +;; Stata, SAS, BUGS, and JAGS +(require 'ess-stata-mode) +(require 'ess-sas-d) +(require 'ess-bugs-d) +(require 'ess-jags-d) + +;;; Speedbar and mouse +(require 'ess-mouse) + +;;; Toolbar support +(require 'ess-toolbar) + +(ess-write-to-dribble-buffer "[ess-site:] *very* end ...") + + +(provide 'ess-site) + +;;; ess-site.el ends here diff --git a/elpa/ess-20190121.1430/ess-sp6-d.el b/elpa/ess-20190121.1430/ess-sp6-d.el new file mode 100644 index 00000000..6fe58c6a --- /dev/null +++ b/elpa/ess-20190121.1430/ess-sp6-d.el @@ -0,0 +1,200 @@ +;;; ess-sp6-d.el --- S-Plus 6 & 7 & 8 customization + +;; Copyright (C) 2001--2005 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Author: A.J. Rossini +;; Created: 2001/02/06 +;; Maintainer: ESS Core Team + +;; Keywords: languages + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; AJR copied S+5 to be S+6. +;; AJR copied S4 to be S+5. +;; DB contributed the changes from ess-sp3-d.el to +;; ess-s4-d.el. (removed the old ugly approach). +;; This file defines Sp5 customizations for ess-mode. Lots of thanks +;; to RMH and JMC for code and suggestions +;; Thanks to MM for making this sensible. + +;;; Code: + +(require 'ess-mode) +(require 'ess-inf) +(require 'ess-s-lang) +(require 'ess-trns) + + +;; You now need to make sure you've defined if you are running 5.0 or 5.1. +;; Lots of things are broken between them, GRR... + +(defun S+-directory-p (directory) + "Splus 5++ directories have a .Data directory and a __Meta directory within." + (and directory + (file-directory-p (concat directory ".Data")) + (file-directory-p (concat directory ".Data/__Meta")))) + +(defvar S+-directory-function #'inferior-ess-default-directory) + +(defvaralias 'S+6-setup-directory-function 'S+-setup-directory-function) +(defvar S+-setup-directory-function + (lambda (startdir) + (when (and startdir (S+-directory-p startdir)) + (setenv "S_WORK" + (if (getenv "S_WORK") + (concat startdir ":" (getenv "S_WORK")) + ;;(message "adding %s to S_WORK" startdir) + startdir))))) + + + +(defvaralias 'S+6-customize-alist 'S+-customize-alist) +(defvar S+-customize-alist + (append + '((ess-local-customize-alist . 'S+-customize-alist) + (ess-dialect . S+-dialect-name) + (ess-function-pattern . ess-r-function-pattern) + + (ess-object-name-db-file . "ess-sp6-namedb.el") + (inferior-ess-program . inferior-S+-program) + (inferior-ess-help-command . "help(\"%s\", pager=\"slynx -dump\", window=FALSE)\n") + (inferior-ess-search-list-command . "searchPaths()\n") + + (ess-directory-function . S+-directory-function) + (ess-setup-directory-function . S+-setup-directory-function) + (inferior-ess-start-args . inferior-S+-start-args) + (ess-STERM . "iESS") + ) + S+common-cust-alist) + + "Variables to customize for S+.") + +(defvar ess-S+-post-run-hook nil + "Functions run in process buffer after the initialization of S+ + process.") + +(defvar ess-S+--injected-code + ".ess_funargs <- function(funname){ + ## funname <- deparse(substitute(object)) + fun <- try(eval(parse(text=funname)), silent = TRUE) + if(is.function(fun)) { + special <- grepl('[:$@[]', funname) + args <- args(fun) + fmls <- formals(args) + fmls.names <- names(fmls) + fmls <- gsub('\\\"', '\\\\\\\"', as.character(fmls), fixed = TRUE) + args.alist <- sprintf(\"'(%s)\", paste(\"(\\\"\", fmls.names, \"\\\" . \\\"\", fmls, \"\\\")\", sep = '', collapse = ' ')) + ## envname <- environmentName(environment(fun)) + envname <- if (special) '' else 'S+' + cat(sprintf('(list \\\"%s\\\" %s )\\n', envname, args.alist)) + } +} +") + +(defalias 'S+6 'S+) +(defun S+ (&optional proc-name) + "Call 'Splus6', based on S version 4, from Bell Labs. +New way to do it." + (interactive) + (setq ess-customize-alist S+-customize-alist) + (ess-write-to-dribble-buffer + (format "\n(S+): ess-dialect=%s, buf=%s\n" ess-dialect (current-buffer))) + (inferior-ess) + (ess-command ess-S+--injected-code) + (if inferior-ess-language-start + (ess-eval-linewise inferior-ess-language-start)) + (with-ess-process-buffer nil + (run-mode-hooks 'ess-S+-post-run-hook))) + + +(defalias 'S+6-mode 'S+-mode) +;;;###autoload +(defun S+-mode (&optional proc-name) + "Major mode for editing S+ source. See `ess-mode' for more help." + (interactive) + (setq ess-customize-alist S+-customize-alist) + (setq-local ess-local-customize-alist S+-customize-alist) + (ess-mode) + (if (fboundp 'ess-add-toolbar) (ess-add-toolbar)) + (setq imenu-generic-expression ess-imenu-S-generic-expression) + (when ess-imenu-use-S (imenu-add-to-menubar "Imenu-S"))) + +(defalias 'S+6-transcript-mode 'S+-transcript-mode) +(define-derived-mode S+-transcript-mode ess-transcript-mode "ESS S Transcript" + "S-PLUS 6 transcript mode." + :syntax-table S-syntax-table) + +(defvar ess-s-versions '("Splus") + "List of partial strings for versions of S to access within ESS. +Each string specifies the start of a filename. If a filename +beginning with one of these strings is found on `exec-path', a M-x +command for that version of S is made available. For example, if the +file \"Splus7\" is found and this variable includes the string +\"Splus\", a function called `M-x Splus7' will be available to run that +version of S. +If duplicate versions of the same program are found (which happens if +the same path is listed on `exec-path' more than once), they are +ignored by calling `delete-dups'. +Set this variable to nil to disable searching for other versions +of S using this method. +If you set this variable, you need to restart Emacs (and set this variable +before ess-site is loaded) for it to take effect.") +(define-obsolete-variable-alias + 'ess-s-versions-created 'ess-s-created-runners "ESS 18.10") +(defvar ess-s-created-runners) +(defun ess-s-define-runners () + "Generate functions for starting other versions of S. +See `ess-s-versions' for strings that determine which functions are created. +It assumes these versions of S can be run as a substitute for Splus6. + +This function returns the list of functions, if any, that were +created. The functions will normally be placed on the menubar upon +ESS initialization." + (when ess-s-versions + (let ((versions + (delete-dups + (mapcar #'file-name-nondirectory + (apply #'nconc + (mapcar #'ess-find-exec-completions + ess-s-versions)))))) + ;; Iterate over each string in VERSIONS, creating a new defun + ;; each time. + (setq ess-s-created-runners + (mapc (lambda (v) (ess-define-runner v "S")) versions)) + ;; Add to menu + (when ess-s-created-runners + ;; new-menu will be a list of 3-vectors, of the form: + ;; ["R-1.8.1" R-1.8.1 t] + (let ((new-menu (mapcar (lambda (x) (vector x (intern x) t)) + ess-s-created-runners))) + (easy-menu-add-item ess-mode-menu '("Start Process") + (cons "Other" new-menu))))))) +;; Define the runners +(ess-s-define-runners) +(define-obsolete-function-alias + 'ess-s-versions-create 'ess-s-define-runners "ESS 18.10") + + + + ; Provide package + +(provide 'ess-sp6-d) + +;;; ess-sp6-d.el ends here diff --git a/elpa/ess-20190121.1430/ess-stata-lang.el b/elpa/ess-20190121.1430/ess-stata-lang.el new file mode 100644 index 00000000..806cf1b9 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-stata-lang.el @@ -0,0 +1,1243 @@ +;;; ess-stata-lang.el --- Stata customization + +;; Copyright (C) 1999--2000, Thomas Lumley, A. J. Rossini, Brendan Halpin. +;; Copyright (C) 1997--2004 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Author: Thomas Lumley , +;; Brendan Halpin +;; Created: 2 Nov 1997 +;; Maintainer: ESS-core + +;; Keywords: languages + +;; This file is part of ESS (Emacs Speaks Statistics). + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; This is based upon Version 0.4 of Stata mode. + +;; Stata modes. Emacs modes for using the Stata statistical package +;; Modified from S-mode, comint-mode +;; +;; (c) thomas lumley 1997 +;; +;; version 0.4 20/7/97 +;; +;; 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. +;; +;; (for the GNU GPL see above) + + +;;; Code: + +(declare-function ess-help-mode "ess-help") + +(require 'make-regexp) ; it's now local to the directory. +;;(load-library "make-regexp") ;; this is necessary for +;; ado-set-font-lock-keywords +;; only needed in Emacs >= 22.x +(require 'comint) +(require 'ess-trns) + +(defconst ess-help-STA-sec-keys-alist + '((?d . "Description") + (?e . "Examples") + (?o . "Options") + (?s . "Also see") + (?S . "Syntax") + (?r . "Remarks") + (?t . "Title")) + "Help section keys. +`key' indicates the keystroke to use to search for the section heading +`string' in an Stata help file. `string' is used as part of a +regexp-search, and so specials should be quoted. +") + +(defconst ess-help-STA-sec-regex "^[A-Z a-z]+:?\n-+\\|http:" + "Reg(ular) Ex(pression) of section headers in help file.") + +(defun ado-set-font-lock-keywords () + "Create font lock keywords for Stata syntax. This is from the +ado-mode of Bill Rising , and uses make-regexp." + ;; (make-local-variable 'ado-font-lock-keywords) + (interactive) + (list + ;; special highlighting + ;; program definitions + (eval-when-compile + (make-regexps + '(("^\\*!.*") font-lock-keyword-face) + )) + (eval-when-compile + (make-regexps + "^" + '(( + "pr" "pro" "prog" "progr" "progra" "program" + ) font-lock-keyword-face) + "[ \t]+" + '(( + "de" "def" "defi" "defin" "define" + "di" "dir" + "drop" + "l" "li" "lis" "list" + ) font-lock-type-face nil) + "[ \t]+" + '(("[_a-z]+[_a-z0-9]*") font-lock-keyword-face nil) + )) + (eval-when-compile + (make-regexps + '(("^[ \t]*version") font-lock-reference-face) + "[ \t]*" + '(("1.0 2.0 2.1 3.0 3.1 4.0 5.0 6 6.0") font-lock-type-face) + )) + (eval-when-compile + (make-regexps + "^" + '(("end" "pause" + ) font-lock-keyword-face) + "[ /t]*.*$" + )) + ;; delimit command + (eval-when-compile + (make-regexps + '(("^[ \t]*#delimit") font-lock-reference-face) + "\\s-*" + '(("\\(cr\\|;\\)\\s-*$") font-lock-type-face nil) + )) + ;; set command (with endless options!) + (eval-when-compile + (make-regexps + '(("^[ \t]*set") font-lock-reference-face) + "[ \t]+" + '(("adosize" "ANSI" + "b" "be" "bee" "beep" "checksum" "contents" + "d" "di" "dis" "disp" "displ" "displa" "display" + "g" "gr" "gra" "grap" "graph" "graphi" "graphic" "graphics" + "help" + "IBM" + "l" "le" "lev" "leve" "level" + "linesize" + "lo" "log" + "mat" "mats" "matsi" "matsiz" "matsize" + "maxobs" "maxvar" + "mem" "memo" "memor" "memory" + "mo" "mor" "more" + "obs" + "ou" "out" "outp" "outpu" "output" + "pagesize" + "r" "rm" "rms" "rmsg" + "se" "see" "seed" "seed0" "shell" + "te" "tex" "text" "texts" "textsi" "textsiz" "textsize" + "tr" "tra" "trac" "trace" + "t" "ty" "typ" "type" "video" + "vir" "virt" "virtu" "virtua" "virtual" + ) + font-lock-reference-face t) + "[ \t]*" + '(("[a-zA-Z0-9]*") font-lock-type-face) + )) + ;; the constraint commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "cons" "const" "constr" "constra" "constrai" "constrain" "constraint" + ) font-lock-reference-face) + "[ \t]+" + '(( + "d" + "de" "def" "defi" "defin" "define" + "di" "dir" + "drop" + "l" "li" "lis" "list" + ) + font-lock-type-face) + "\\b" + )) + ;; the confirm commands - could be a mess! + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "conf" "confi" "confir" "confirm" + ) font-lock-reference-face) + "[ \t]+" + '(( + "e" "ex" "exi" "exis" "exist" "existe" "existen" "existenc" "existence" + "f" "fi" "fil" "file" + "n" "nu" "num" "numb" "numbe" "number" + "v" "va" "var" "vari" "varia" "variab" "variabl" "variable" + ) font-lock-type-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "conf" "confi" "confir" "confirm" + ) font-lock-reference-face) + "[ \t]+" + '(( + "integer" + ) font-lock-type-face) + "[ \t]+" + '(( + "n" "nu" "num" "numb" "numbe" "number" + ) font-lock-type-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "conf" "confi" "confir" "confirm" + ) font-lock-reference-face) + "[ \t]+" + '(( + "n" "ne" "new" + ) font-lock-type-face) + "[ \t]+" + '(( + "f" "fi" "fil" "file" + "v" "va" "var" "vari" "varia" "variab" "variabl" "variable" + ) font-lock-type-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "conf" "confi" "confir" "confirm" + ) font-lock-reference-face) + "[ \t]+" + '(( + "byte" "double" "float" "int" "long" + "numeric" + "str" "stri" "strin" "string" + ) font-lock-type-face) + "[ \t]+" + '(( + "v" "va" "var" "vari" "varia" "variab" "variabl" "variable" + ) font-lock-type-face) + "\\b" + )) + ;;; the str# won't quite look right, but that's the breaks for using + ;;; a tool like this... + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "conf" "confi" "confir" "confirm" + ) font-lock-reference-face) + "[ \t]+" + '(( + "str" + ) font-lock-type-face) + "[1-9]+[0-9]*[ \t]+" + '(( + "v" "va" "var" "vari" "varia" "variab" "variabl" "variable" + ) font-lock-type-face) + "\\b" + )) + ;; the estimates commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "est" "esti" "estim" "estima" "estimat" "estimate" "estimates" + ) font-lock-reference-face) + "[ \t]+" + '(( + "clear" + "di" "dir" "dis" "disp" "displ" "displa" "display" + "drop" + "h" "ho" "hol" "hold" + "li" "lis" "list" + "loc" "loca" "local" + "mat" "matr" "matri" "matrix" + "post" + "repost" + "sca" "scal" "scala" "scalar" + "u" "un" "unh" "unho" "unhol" "unhold" + ) + font-lock-type-face) + "\\b" + )) + ;; the gph commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "gph" + ) font-lock-reference-face) + "[ \t]+" + '(( + "arc" + "box" + "clear" "close" + "font" + "line" + "open" + "pen" "point" + "text" + "vline" "vpoint" "vpoly" "vtext" + ) + font-lock-type-face) + "\\b" + )) + + ;; some of the matrix commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(("mat" "matr" "matri" "matrix") font-lock-reference-face) + "[ \t]+" + '(("ac" "acc" "accu" "accum" + "cole" "coleq" + "coln" "colna" "colnam" "cloname" "colnames" + "d" "def" "defi" "defin" "define" + "di" "dir" "dispCns" "drop" "drop _all" + "glsa" "glsac" "glsacc" "glsaccu" "glsaccum" + "l" "li" "lis" "list" "makeCns" "mlou" "mlout" "post" + "rowe" "roweq" + "rown" "rowna" "rownam" "rowname" "rownames" + "sco" "scor" "score" + "sub" "subs" "subst" "substi" "substit" "substitu" "substitut" "substitute" + "svd" "syme" "symei" "symeig" "symeige" "symeigen" + "veca" "vecac" "vecacc" "vecaccu" "vecaccum" + ) + font-lock-type-face) + "\\b" + )) + ;; the ml commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(("ml") font-lock-reference-face) + "[ \t]+" + '(("b" "be" "beg" "begi" "begin" + "check" "count" + "de" "dep" "depn" "depna" "depnam" "depname" "depnames" + "di" "dis" "disp" "displ" "displa" "display" + "f" "fu" "fun" "func" "funct" "functi" "functio" "function" + "gr" "gra" "grap" "graph" + "init" + "max" "maxi" "maxim" "maximi" "maximiz" "maximize" + "me" "met" "meth" "metho" "method" + "ml" "mlo" "mlou" "mlout" + "mo" "mod" "mode" "model" + "pl" "plo" "plot" + "po" "pos" "post" + "q" "qu" "que" "quer" "query" + "re" "rep" "repo" "repor" "report" + "sa" "sam" "samp" "sampl" "sample" + "se" "sea" "sear" "searc" "search" + "trace") + font-lock-type-face) + "\\b" + )) + ;; the net commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(("net") font-lock-reference-face) + "[ \t]+" + '(( + "cd" + "d" "de" "des" "desc" "descr" "descri" "describ" "describe" + "from" "get" "install" + "link" + "q" "qu" "que" "quer" "query") + font-lock-type-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(("net") font-lock-reference-face) + "[ \t]+" + '(("set") font-lock-reference-face) + "[ \t]+" + '(("ado" "other") font-lock-type-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(("ado") font-lock-reference-face) + "[ \t]+" + '(("d" "de" "des" "desc" "descr" "descri" "describ" "describe" + "dir" + "uninstall") + font-lock-type-face) + "\\b" + )) + ;; the reshape commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(("reshape") font-lock-keyword-face) + "[ \t]+" + '(( + "clear" + "error" + "i" "j" + "long" + "wide" + "xi" "xij") + font-lock-type-face) + "\\b" + )) + ;; the return commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(("ret" "retu" "retur" "return") font-lock-reference-face) + "[ \t]+" + '(("add" "clear" "local" "matrix" "scalar") font-lock-type-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(("sret" "sretu" "sretur" "sreturn") font-lock-reference-face) + "[ \t]+" + '(("clear" "local") font-lock-type-face) + "\\b" + )) + ;; the sts commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(("sts") font-lock-reference-face) + "[ \t]+" + '(( + "g" + "gen" "gene" "gener" "genera" "generat" "generate" + "gr" "gra" "grap" "graph" + "l" "li" "lis" "list" + "t" "te" "tes" "test" + ) + font-lock-type-face) + "\\b" + )) + ;; the sw commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(("sw") font-lock-reference-face) + "[ \t]+" + '(( + "cloglog" "cnreg" "cox" "ereg" "gamma" "glm" "gompertz" "hetprob" + "llogist" "lnormal" "logistic" "logit" "ologit" "oprobit" + "poisson" "probit" "qreg" "reg" "regr" "regre" "regres" "regress" + "scobit" "tobit" "weibull" + ) + font-lock-type-face) + "\\b" + )) + ;; the window commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "win" "wind" "windo" "window" + ) font-lock-reference-face) + "[ \t]+" + '(( + "d" + "di" "dia" "dial" "dialo" "dialog" + "dir" "drop" + "fo" "fop" "fope" "fopen" + "fs" "fsa" "fsav" "fsave" + "l" "list" + "push" + "stop" "stopb" "stopbo" "stopbox" + ) font-lock-type-face) + "\\b" + )) + ;; the window controls + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "win" "wind" "windo" "window" + ) font-lock-reference-face) + "[ \t]+" + '(( + "c" "co" "con" "cont" "contr" "contro" "control" + ) font-lock-reference-face) + '(( + "button" "check" "clear" + "edit" + "mcombo" "msimple" + "radbegin" + "radend" + "radio" + "scombo" + "ssimple" + "static" + ) font-lock-type-face) + "\\b" + )) + ;; the window manage commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "win" "wind" "windo" "window" + ) font-lock-reference-face) + "[ \t]+" + '(( + "man" "mana" "manag" "manage" + ) font-lock-reference-face) + "[ \t]+" + '(( + "forward" + "minimize" + "prefs load" + "prefs save" + "prefs default" + "print graph" + "print log" + "restore" + "update variable" + ) + font-lock-type-face) + "\\b" + )) + ;; the window menu commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "win" "wind" "windo" "window" + ) font-lock-reference-face) + "[ \t]+" + '(( + "m" "me" "men" "menu" + ) font-lock-reference-face) + "[ \t]+" + '(( + "append popout" + "append string" + "append separator" + "clear" + "popout" + "set" + ) + font-lock-type-face) + "\\b" + )) + ;; the xwindow commands + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "xwin" "xwind" "xwindo" "xwindow" + ) font-lock-reference-face) + "[ \t]+" + '(( + "de" "def" "defi" "defin" "define" + "di" "dir" + "drop" + "l" "li" "lis" "list" + ) + font-lock-type-face) + "\\b" + )) + + ;; all the endless Stata keywords (not in a good order) + ;; first those keywords which must start line + ;; note that these will look like text if preceded by a comment + ;; (but comments shouldn't be before the command, anyway) + + (eval-when-compile + (make-regexps + "^[ \t]+" + '(( + "cap" "capt" "captu" "captur" "capture" + "char" "err" "erro" "error" "e" "ex" "exi" "exit" + "par" "pars" "parse" + "set" + ) font-lock-reference-face) + "\\b" + )) + ;; here are some keywords which appear in the middle of lines + ;; note that the really short abbreviations could make a mess of things + ;; + ;; These are split to allow compiling! + (eval-when-compile + (make-regexps + "\\b" + '(( + "_huber" "_qreg" "_robust" + "acprplot" "adjust" + "adopath" "alpha" + "an" "ano" "anov" "anova" "arch" + "areg" "arima" + "as" "ass" "asse" "asser" "assert" + "avplot" "avplots" + "bcskew0" + "be" "bee" "beep" + "biprobit" "bitest" "bitesti" "blogit" + "boxcox" "bprobit" "br" "break" "brier" + "bro" "brow" "brows" "browse" + "bsqreg" "bstat" "by" + "canon" "cat" "cc" "cci" "cchart" "centile" "cf" "ci" "cii" + "clogi" "clogit" "clogitp" "cloglog" + "close" "cmdtool" + "cnr" "cnre" "cnreg" "cnsreg" "codebook" "compare" + "copy" + "cor" "corc" "corr" "corre" "correl" "correla" "correlat" "correlate" + "corrgram" + "cou" "coun" "count" + "cox" "cprplot" "_crcswxx" "cs" "csi" + "ct" "ctset" "cttost" + "cumul" "cusum") + font-lock-reference-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "d" "de" "des" "desc" "descr" "descri" "describ" "describe" + "dfbeta" "dfuller" "di" + "dir" "dis" "disp" "disp_res" "disp_s" + "displ" "displa" "display" + "do" "dotplot" + "dprobit" "ds" "dstdize" "dwstat" + "eivreg" "eq" "ereg" + "fac" "fact" "facto" "factor" + "fit" "for" "fpredict" + "fracplot" "fracpoly" "fsl" + ) font-lock-reference-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "gettoken" "gladder" "glm" "glmpred" "glogit" "gnbreg" "gompertz" + "gphdot" "gphpen" "graph" "gprobit" "greigen" "grmeanby" + "hadimvo" "hausman" "heckman" "heckprob" "hetprob" "hettest" "hilite" + "hist" "hlu" "hotel" + "iqreg" "istdize" "iis" + "ins" "insp" "inspe" "inspec" "inspect" + "integ" "intreg" "ir" "iri" "ivreg" + "kap" "kappa" "kapwgt" "kdensity" "ksm" "ksmirnov" "ktau" + "kwallis" + ) font-lock-reference-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "l" "ladder" "lfit" "lincom" "linktest" + "li" "lis" "list" + "log" + "logistic" + "logi" "logit" + "loneway" "lookfor" + "lo" "loo" "look" "looku" "lookup" + "lpredict" "lroc" "lrtest" "ls" "lsens" "lstat" "ltable" "lv" "lvr2plot" + "man" "matcproc" "mcc" "mcci" + "means" + "mlog" "mlogi" "mlogit" + "mor" "more" + "mvreg" "mx_param" + "n" "nbreg" "newey" "news" + "nl" "nlinit" + "no" "noi" "nois" "noisi" "noisil" "noisily" + "note" "notes" + "nptrend" "numlist" + "olog" "ologi" "ologit" + "ologitp" + "on" "one" "onew" "onewa" "oneway" + "oprob" "oprobi" "oprobit" + "oprobitp" + "orthog" "orthpoly" + "ovtest") + font-lock-reference-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(("pac" "pchart" "pchi" "pcorr" "pergram" + "pl" "plo" "plot" + "pnorm" "poisgof" "poisson" "pperron" + "prais" + "prob" "probi" "probit" + "prtest" "prtesti" + "pwcorr" "pwd" + "q" "qchi" "qnorm" "qqplot" "qreg" "quadchk" "quantile" + "qu" "que" "quer" "query" + "qui" "quie" "quiet" "quietl" "quietly" + "ranksum" "rchart" "regdw" "regph" + "reg" "reg3" "regr" "regre" "regres" "regress" "reshape" + "rot" "rota" "rotat" "rotate" + "rreg" + "run" "runtest" "rvfplot" "rvpplot" + ) font-lock-reference-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "sampsi" "sconfirm" + "sco" "scobit" "scor" "score" + "sdtest" "sdtesti" "search" "serrbar" + "sfrancia" "shell" "shelltool" "shewhart" "signrank" "signtest" + "sktest" "slog" "spearman" "spikeplt" "sqreg" + "st" "st_is" "st_show" "st_ct" + "stcox" "stcoxkm" "stcurv" "stdes" + "stem" + "stereg" "stir" "stmc" "stmh" "stphplot" "stphtest" + "strate" "streg" + "sts" "stse" "stset" "stsum" "stvary" "stweib" + "su" "sum" "summ" "summa" "summar" "summari" "summariz" "summarize" + "sureg" + "svydes" "svyintrg" "svyivreg" "svylc" "svylogit" + "svymean" "svymean" "svymlog" "svyolog" "svyoprob" "svypois" "svyprobt" + "svyprop" "svyratio" "svyreg" "svyset" "svytab" "svytest" "svytotal" + "swilk" "symmetry" "symmi" "symplot" "syntax" "sysdir" + ) font-lock-reference-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "ta" "tab" + "tab1" "tab2" + "tabdisp" + "tabi" + "table" + "tabu" "tabul" "tabula" "tabulat" "tabulate" + "te" "tes" "test" + "testnl" "testparm" "tis" + "tob" "tobi" "tobit" + "token" "tokeni" "tokeniz" "tokenize" + "touch" "tsreport" "tsset" "tsunab" "ttest" "ttesti" + "ty" "typ" "type" + "unab" "using" + "vce" + "verinst" "vif" "vwls" + "weibull" "which" "who" "wntestb" "wntestq" + "xchart" "xcorr" + "xtclog" "xtdes" "xtgee" "xtgls" "xthaus" "xtintreg" + "xtlogit" "xtnbreg" "xtpois" "xtprobit" + "xtrchh" "xtreg" "xtsum" "xttab" "xttest0" "xttobit" "xttrans" + "zip" "zinb" + ) font-lock-reference-face) + "\\b" + )) + + ;; conditional statements + ;; if might not work right ('cuz it is also a keyword) + (eval-when-compile + (make-regexps + "^[ \t]*\\sw+[ \t]*" + '(("if" + ) font-lock-reference-face t t) + "\\b" + )) + + (eval-when-compile + (make-regexps + "^[ \t]*" + '(("if" "while" + ) font-lock-reference-face t t) + "[ \t]+.*{" + )) + ;; else statement (which must just have a {) + (eval-when-compile + (make-regexps + "^[ \t]*" + '(("else" + ) font-lock-reference-face) + "[ \t]*{" + )) + + ;; short version of list --- which can get fooled if used as a var + (eval-when-compile + (make-regexps + '(("^[ \t]*l\\b" + ) font-lock-reference-face) + )) + + ;; all the Stata options + ;; commonly used options + (eval-when-compile + (make-regexps + "[ \t]+" + '(("byte" "int" "long" "str[1-9]+[0-9]?" "float" "double" + "width" "maxobs" "maxvar" + ) font-lock-type-face) + "[ \t]+" + )) + ;; special local variables (used in parsing) + (eval-when-compile + (make-regexps + "^[ \t]+\\(local\\)+[ \t]+" + '(("varlist" "exp" "weight" "if" "in" "using" "options" + ) font-lock-type-face nil t t) + "\\b" + )) + + ;; things used with display + ;; since these are often split across lines, and Stata commands are hard + ;; to delimit, this will highlight even if out of context + + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "_c" "_co" "_con" "_cont" "_conti" "_contin" "_continu" "_continue" + "_n" "_ne" "_new" "_newl" "_newli" "_newlin" "_newline" + "_quote" + "_r" "_re" "_req" "_requ" "_reque" "_reques" "_request" + ) + font-lock-type-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "[ \t]+" + '(( + "_col" "_colu" "_colum" "_column" + "_d" "_du" "_dup" + "_s" "_sk" "_ski" "_skip" + ) + font-lock-type-face) + "([1-9]+[0-9]*)\\b" + )) + (eval-when-compile + (make-regexps + "\\bin[ \t]+" + '(( + "b" "bl" "blu" "blue" + "g" "gr" "gre" "gree" "green" + "r" "re" "red" + "w" "wh" "whi" "whit" "white" + "y" "ye" "yel" "yell" "yello" "yellow" + ) font-lock-type-face) + "\\b" + )) + + ;; labels + (eval-when-compile + (make-regexps + "[ \t]+" + '(("lab" "labe" "label" + ) font-lock-reference-face t) + "[ \t]+" + '(( + "da" "dat" "data" + "de" "def" "defi" "defin" "define" + "di" "dir" + "drop" + "l" "li" "lis" "list" + "save" + "val" "valu" "value" "values" + "var" "vari" "varia" "variab" "variabl" "variable" + ) font-lock-type-face nil t t) + "[ \t]" + )) + + ;; all Stata data-altering stuff + (eval-when-compile + (make-regexps + "\\b" + '(( + "_pctile" "_predict" + "aorder" "append" + "bcskew0" "bsample" "bs" "bstrap" + "cd" "chdir" "clear" "compress" + "contract" "convert" "cross" + "dec" "deco" "decod" "decode" + "discard" "drop" "dydx" + "ed" "edi" "edit" "egen" + "en" "enc" "enco" "encod" "encode" + "erase" + "expand" + "fillin" + "form" "forma" "format" + "fracgen" "fracpred" + "g" "ge" "gen" "gene" "gener" "genera" "generat" "generate" + "gsort" + "impute" + "infile" "infix" "input" "insheet" "integ" "ipolate" + "joinby" + "keep" + "lnskew0" + ) font-lock-keyword-face) + "\\b" + )) + (eval-when-compile + (make-regexps + "\\b" + '(( + "mark" "markout" "marksample" + "matname" + "mer" "merg" "merge" + "mkdir" "mkmat" "mkspline" + "mleval" "mlmatsum" "mlsum""mlvecsum" + "modify" "mov" "move" + "mvdecode" "mvencode" "nlpred" "nobreak" "order" + "ou" "out" "outf" "outfi" "outfil" "outfile" + "outs" "outsh" "outshe" "outshee" "outsheet" + "pctile" + "post" "postclose" "postfile" + "pre" "pred" "predi" "predic" "predict" + "preserve" "range" + "recast" "recode" + "ren" "rena" "renam" "rename" + "renpfix" "replace" "restore" "rm" + "sappend" + "sa" "sav" "save" + "sample" "sdrop" + "separate" + "simul" "sinfile" "smerge" + "smooth" "snapspan" + "so" "sor" "sort" + "ssave" "ssort" "stack" + "stbase" "stfill" "stgen" "stjoin" "stsplit" "sttocc" "sttoct" + "suse" "svmat" + "tsfill" "tsrevar" + "u" "us" "use" + "xi" "xi:" "xtile" "xpose" + "xtdata" "xtpred" + ) font-lock-keyword-face) + "\\b" + )) + + ;; assignment of macros + (eval-when-compile + (make-regexps + "^[ \t]*" + '(("global" "local" "scalar" + ) font-lock-reference-face) + '(("\\([ \t]+[a-zA-Z_]+[a-zA-Z_0-9]*\\b\\)?" + ) font-lock-variable-name-face t) + )) + ;; choosing temp names + (eval-when-compile + (make-regexps + "^[ \t]*" + '(("tempname" "tempfile" "tempvar" + ) font-lock-reference-face) + '(("\\([ \t]+[a-zA-Z_]+[a-zA-Z_0-9`']*\\)+" + ) font-lock-type-face t) + )) + ;; all variable/macro stuff (put late so it will override) + ;; internal constants + (eval-when-compile + (make-regexps + "[^a-zA-Z]" + '(("_merge" "_n" "_pi" "_rc" "_N" + ) font-lock-variable-name-face) + "[^a-zA-Z]" + )) + ;; some generated vars + (eval-when-compile + (make-regexps + '(("_result([1-9]+)" + ) font-lock-variable-name-face) + )) + ;; global macros + (eval-when-compile + (make-regexps + '(("\\$[a-zA-Z_*]+[a-zA-Z_0-9]*" + ) font-lock-variable-name-face t) + )) + ;; local macros + (eval-when-compile + (make-regexps + "`+" + '(("[a-zA-Z_`*]+[a-zA-Z_0-9]*" ;has glitch interior ` is highlighted + ) font-lock-variable-name-face t) + "'+" + )) + ;; other macro commands + (eval-when-compile + (make-regexps + "[ \t]*" + '(( + "ma" "mac" "macr" "macro" + ) font-lock-reference-face) + "[ \t]+" + '(( + "de" "def" "define" + "di" "dir" + "drop" + "l" "li" "lis" "list" + "s" "sh" "shi" "shif" "shift" + ) + font-lock-type-face) + "[ \t]+" + )) + ;; stata 'functions' i.e. things which require () after them + (eval-when-compile + (make-regexps + "\\b" + '(("_caller" + "abs" "acos" "asin" "atan" "autocode" + "Binomial" + "binorm" + "chiprob" "comb" "cond" "cos" + "d" "date" "digamma" "day" + "dofh" "dofm" "dofq" "dofw" "dofy" "dow" "doy" + "e" "exp" + "float" "fprob" "gammap" "get" "group" + "h" "halfyear" "halfyearly" "hofd" + "ibeta" "index" "int" + "invbinomial" "invchi" "invfprob" "invgammap" "invnchi" "invnorm" "invt" + "length" "ln" "lnfact" "lngamma" "log" "log10" "lower" "ltrim" + "m" "matrix" "max" "mdy" "min" "missing" "mod" "mofd" "month" "monthly" + "nchi" "normd" "normprob" "npnchi" + "q" "qofd" "quarter" "quarterly" + "r" "real" "recode" "reldif" "replay" "return" "round" "rtrim" + "s" "scalar" "sign" "sin" "sqrt" "string" "substr" "sum" + "tan" "tprob" "trigamma" "trim" + "uniform" "uniform0" "upper" + "w" "week" "weekly" "wofd" + "y" "year" "yearly" "yh" "ym" "yofd" "yq" "yw" + ) + font-lock-reference-face t) + "(" + )) + ;; stata 'functions' i.e. things which require [] after them + (eval-when-compile + (make-regexps + "\\b" + '(("_b" "_coef" "_se") + font-lock-reference-face t) + "\\[" + )) + ;; common Stata options which require a () after them + (eval-when-compile + (make-regexps + "[, \t]+" + '(("bands" "by" "connect" "density" "gap" "iterate" "ltolerance" "margin" + "psize" "saving" "tlabel" "tolerance" + "xlabel" "xscale" "ylabel" "yscale") + font-lock-type-face t) + "(" + )) + ;; egen 'function' options + (eval-when-compile + (make-regexps + "[ \t]*egen[ \t]+.*=[ \t]*" + '(("count" "diff" "fill" "group" "iqr" + "ma" "max" "mean" "median" "min" "mtr" "pctile" + "rank" "rfirst" "rlast" "rmax" "rmean" "rmin" "rmiss" "robs" "rsd" "rsum" + "sd" "std" "sum") + font-lock-reference-face t) + "(.*)" + )) + ;; All Custom ado files which are 'reliable' and which are not file killers + ;; this might be a useless endeavor --- but I cannot generate tag files + ;; all the s-extensions are listed under Stata's name (since they alter + ;; data and will be moved to the utils directory + (eval-when-compile + (make-regexps + "[ \t]*" + '(("addnote" "anypath" "autolab" "checkvar" "ck1icd9" "ckicd9" + "datetoe" "dattomdy" "den2dem" "dishis" "dtapath" "dupclean" "echo" + "exdupbil" "ezip2hsa" "getdate" "getlbl" "getnames" "getobs" "gplur" + "icd9" "issorted" "isfile" "jultoe" "jultof" "jultomdy" "knowndup" + "labeldir" "linker" + "markit" "makewide" "missize" "mpcounts" + "nodups" "notefile" "prov2zip" + "qcolsum" "qorder" + "random" "readraw" "readzip" "repart" + "setup" "stdrate" + "timeslot" + "wdatetoe" "wdatomdy" "zip2ezip" + "_addext" "_brclean" "_brckado" "_brdlog" + "_ckbad" "_ckdunno" "_ckdupl" "_ckmiss" "_ckok" "_ckwarn" + "_delimit" "_filenm" "_lookup" "_mk_ck" + ) font-lock-function-name-face) + "\\b" + )) + )) + + +(defvar ess-STA-mode-font-lock-defaults (ado-set-font-lock-keywords) + "Set the Stata mode font-lock keywords to Bill Rising's ado-mode keywords.") + +(defvar STA-editing-alist + '((paragraph-start . (concat "[ \t\f]*$\\|" page-delimiter)) + (paragraph-separate . (concat "[ \t\f]*$\\|" page-delimiter)) + (paragraph-ignore-fill-prefix . t) + (comment-column . 40) + ;;(comment-indent-function . 'S-comment-indent) + ;;(ess-comment-indent . 'S-comment-indent) + ;;(ess-indent-line . 'S-indent-line) + ;;(ess-calculate-indent . 'ess-calculate-indent) + (indent-line-function . 'ess-indent-line) + (ess-local-process-name . nil) + ;;(ess-keep-dump-files . 'ask) + (font-lock-defaults . '(ess-STA-mode-font-lock-defaults + nil nil ((?\. . "w"))))) + "General options for editing Stata do and ado source files.") + +;; YOU USED TO HAVE TO (with Thomas's version): +;;;;; Add the following to your .emacs file +;; +;;(autoload 'stata "~/ess-sta-l.el" "inferior stata mode" t ) +;;(autoload 'stata-help "stata" "stata help mode" t) +;;(autoload 'stata-mode "~/ess-sta-l.el" "stata mode" t) +;; +;;(if (assoc "\\.do$" auto-mode-alist) nil +;; (setq auto-mode-alist +;; (append +;; '(("\\.do$" . stata-mode) +;; ("\\.ado$" . stata-mode)) +;; auto-mode-alist))) +;; + + +;; QUESTIONS TO ASK THOMAS: +;; 1 - are 'help' and 'lookup' the same? +;; 2 - what is the point of the review buffer? +;; 3 - how to quit? + +;; +;; NOTE: all of Thomas's functions have been left here, to be removed +;; or merged into real locations as we work on this. +;; + + +;;;;;;;;; Things to change + +(defvar stata-switches "-q" + "Switches to apply to stata invocation.") + +(defvar stata-profile "~/.stataprofile" + "File to read on startup (nil for no file).") + +(define-obsolete-function-alias 'stata-help 'ess-display-help-on-object "ESS[15.09]") +(define-obsolete-function-alias 'stata-lookup 'ess-display-help-apropos "ESS[16.03]") + +;; fixme? Hook this on C-c C-s /ess-execute-search does an R search() right now/ +(defun stata-variables () + "Stata variable list in other buffer." + (interactive) + (let* ((stata-process (get-process "stata")) + (stata-buffer (if stata-process + (process-buffer stata-process) + (error "Stata is not running."))) + oldpf oldpb oldpm) + (set-buffer stata-buffer) + (setq oldpf (process-filter stata-process)) + (setq oldpb (process-buffer stata-process)) + (setq oldpm (marker-position (process-mark stata-process))) + (save-excursion + (if stata-process nil (error "Stata is not running.")) + (beginning-of-line) + (if (looking-at ". ") nil (error "Stata not ready.")) + (save-excursion + (set-process-buffer stata-process + (get-buffer-create "*stata variables*")) + (set-process-filter stata-process 'inferior-ess-ordinary-filter) + (set-buffer "*stata variables*") + (setq buffer-read-only nil) + (erase-buffer) + (process-send-string stata-process "desc \n ") + (stata-prompt-wait stata-process) + (setq buffer-read-only t) + (set-buffer stata-buffer) + (set-process-buffer stata-process oldpb) + (set-marker (process-mark stata-process) oldpm) + (set-process-filter stata-process oldpf))) + (display-buffer "*stata variables*") + (goto-char (point-max)))) + +;;;; +;;; This doesn't do anything at the moment. I have vague plans of +;;; implementing a menu interface using emacs +;;; +(defun stata-watch-for-menu-filter (proc string) + (if (string-match "^!!!window!!!" string) + (stata-handle-menu-code proc string) + (comint-output-filter proc string))) + +(defun stata-handle-menu-code (proc string) + (let ((old-buffer (current-buffer))) + (unwind-protect + (let (moving) + (set-buffer (process-buffer proc)) + (setq moving (= (point) + (process-mark proc))) + (save-excursion + ;; Insert the text, moving the process-marker. + (goto-char (process-mark proc)) + (insert "Handling menu code\n") + (set-marker (process-mark proc) (point))) + (if moving (goto-char (process-mark proc)))) + (set-buffer old-buffer)))) + +;;;; + +(defun stata-prompt-wait (proc &optional start-of-output) + "Wait for a prompt to appear at BOL of current buffer. +PROC is the stata process. Does not change point." + (if start-of-output nil (setq start-of-output (point-min))) + (save-excursion + (while (progn + ;; get output if there is some ready + (accept-process-output proc 0 50) + (goto-char (marker-position (process-mark proc))) + (beginning-of-line) + (if (< (point) start-of-output) (goto-char start-of-output)) + (not (looking-at "^. ")))))) + +(define-derived-mode ess-stata-help-mode ess-help-mode "Stata help" + "Major mode for displaying Stata help in a read-only buffer. +Active commands are Help (\\[stata-help]) and hyperlink +(\\[stata-rehelp] or mouse-2).") + +;;; Suggested function from Brendan Halpin: +(defvar ess-STA-delimit-do-file "delimit-do.do") + +(defun ess-STA-delimit-do () + (save-excursion + (let ((commands (buffer-substring-no-properties (region-beginning) + (region-end)))) + (set-buffer (get-buffer-create ess-STA-delimit-do-file)) + (delete-region (point-min) (point-max)) + (insert "#delimit ;\n" + commands + "\n#delimit cr\n") + (write-file ess-STA-delimit-do-file nil) + (comint-send-string "Stata" + (format "do %s \n" ess-STA-delimit-do-file))))) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + + +(provide 'ess-stata-lang) + +;;; ess-stata-lang.el ends here diff --git a/elpa/ess-20190121.1430/ess-stata-mode.el b/elpa/ess-20190121.1430/ess-stata-mode.el new file mode 100644 index 00000000..c99a00a5 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-stata-mode.el @@ -0,0 +1,228 @@ +;;; ess-stata-mode.el --- Stata customization + +;; Copyright (C) 1997--1999 A. J. Rossini, Thomas Lumley +;; Copyright (C) 1997--2004 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Author: A.J. Rossini +;; Created: 9 Sep 1998 +;; Maintainer: ESS-core + +;; Keywords: languages + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; This file defines all the Stata customizations for ess-mode. It is somewhat +;; based on Stata-mode by Thomas Lumley . + +;;; Code: + +(require 'ess-mode) +(require 'ess-stata-lang) + +(defvar STA-dialect-name "stata" + "Name of 'dialect' for Stata.");easily changeable in a user's .emacs + +(defvar ess-stata-mode-syntax-table + (let ((tbl (copy-syntax-table ess-mode-syntax-table))) + (modify-syntax-entry ?\\ "." tbl) ;nullify escape meaning + (modify-syntax-entry ?\$ "." tbl) + (modify-syntax-entry ?` "(\'" tbl) + (modify-syntax-entry ?\' ")`" tbl) + ;;--------- begin cut-and-paste from lisp/progmodes/c-langs.el + (modify-syntax-entry ?/ ". 124b" tbl) + (modify-syntax-entry ?* ". 23" tbl) + (modify-syntax-entry ?\n "> b" tbl) + ;; Give CR the same syntax as newline, for selective-display + (modify-syntax-entry ?\^m "> b" tbl) + ;;--------- end cut-and-paste ------------------ + (modify-syntax-entry ?+ "." tbl) + (modify-syntax-entry ?- "." tbl) + (modify-syntax-entry ?= "." tbl) + (modify-syntax-entry ?% "." tbl) + (modify-syntax-entry ?< "." tbl) + (modify-syntax-entry ?> "." tbl) + (modify-syntax-entry ?& "." tbl) + (modify-syntax-entry ?| "." tbl) + (modify-syntax-entry ?~ "." tbl) + tbl) + "Syntax table for `ess-stata-mode'.") + +(defvar STA-customize-alist + '((ess-local-customize-alist . 'STA-customize-alist) + (ess-language . "STA") + (ess-dialect . STA-dialect-name) + (ess-suffix . "ado") + (ess-mode-editing-alist . STA-editing-alist) + (ess-help-sec-regex . ess-help-STA-sec-regex) + (ess-help-sec-keys-alist . ess-help-STA-sec-keys-alist) + (ess-loop-timeout . 500000 ) + (ess-object-name-db-file . "ess-sta-namedb.el" ) + (ess-help-web-search-command . "https://www.stata.com/search/?q=%s&restrict=&btnG=Search&client=stata&num=&output=xml_no_dtd&site=stata&ie=&oe=UTF-8&sort=&proxystylesheet=stata") + (ess-eval-linewise-function . #'stata-eval-linewise) + (inferior-ess-program . inferior-STA-program) + (inferior-ess-objects-command . "describe\n") + (inferior-ess-help-command . "help %s\n") ;; assumes set more off + (inferior-ess-exit-command . "exit\n") + ;; --more-- is necessary here (hangs otherwise if startup stata.msg is big) + (inferior-ess-primary-prompt . "[.:] \\|--more--") + (inferior-ess-secondary-prompt . "--more--") + (comint-use-prompt-regexp . t) + (inferior-ess-start-args . inferior-STA-start-args) + (ess-get-help-topics-function . 'ess-get-STA-help-topics) + (inferior-ess-search-list-command . "set more off\n search()\n") + (comment-start . "/\* ") + (comment-end . " \*/") + (comment-start-skip . "/\\*+ *") + (comment-use-syntax . t) ;; needed for multiline + (ess-execute-screen-options-command . "set linesize %s\n") + (ess-getwd-command . "pwd\n") + (ess-setwd-command . "cd \"%s\"\n") + (ess-load-command . "run \"%s\"\n")) + "Variables to customize for Stata.") + + +;;;###autoload +(define-derived-mode ess-stata-mode ess-mode "ESS[STA]" + "Major mode for editing Stata source." + (ess-setq-vars-local STA-customize-alist) + (setq-local comint-use-prompt-regexp t) + (setq-local comment-column 40) + (setq-local comment-end " \*/") + (setq-local comment-start "/\* ") + (setq-local comment-start-skip "/\\*+ *") + (setq-local comment-use-syntax t) + (setq-local indent-line-function 'ess-indent-line) + (setq-local paragraph-ignore-fill-prefix t) + (setq-local paragraph-separate (concat "[ \t\f]*$\\|" page-delimiter)) + (setq-local paragraph-start (concat "[ \t\f]*$\\|" page-delimiter)) + (setq font-lock-defaults '(ess-STA-mode-font-lock-defaults nil nil ((?\. . "w"))))) + +(defalias 'STA-mode 'ess-stata-mode) +(defalias 'stata-mode 'ess-stata-mode) +(defalias 'Stata-mode 'ess-stata-mode) + +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.do\\'" . ess-stata-mode)) +;;;###autoload +(add-to-list 'auto-mode-alist '("\\.ado\\'" . ess-stata-mode)) + + +(defun ess-sta-remove-comments (string) + "Remove one-line comments before sending the STRING to process. + +This function is placed in `ess-presend-filter-functions'. +" + (replace-regexp-in-string "/\\*.*\\*/\\|^//.*$" "" string)) + +;; (ess-sta-remove-comments "aaa /* sdfdsf */ bbb +;; sdfsd +;; ccc +;; // sdfsf +;; sdf /* sdfdsf */ +;; sdfsf +;; " ) + + +(defvar ess-stata-post-run-hook nil + "Functions run in process buffer after the initialization of + stata process.") + +(defun stata (&optional start-args) + "Call Stata." + (interactive "P") + (setq ess-customize-alist STA-customize-alist) + (ess-write-to-dribble-buffer + (format "(STA): ess-dialect=%s , buf=%s \n" + ess-dialect + (current-buffer))) + (let ((sta-start-args + (concat inferior-STA-start-args + (when start-args (read-string "Starting Args [possibly -k####] ? "))))) + (inferior-ess sta-start-args) + (let ((proc (get-process ess-local-process-name))) + (while (process-get proc 'sec-prompt) + ;; get read of all --more-- if stata.msg is too long. + (ess-send-string proc "q") + (ess-wait-for-process proc t)) + (ess-send-string proc "set more off") + (goto-char (point-max)) + (with-current-buffer (process-buffer proc) + (add-hook 'ess-presend-filter-functions 'ess-sta-remove-comments nil 'local) + (run-mode-hooks 'ess-stata-post-run-hook))))) + +(defvar inferior-ess-stata-mode-syntax-table + (let ((tab (copy-syntax-table ess-stata-mode-syntax-table))) + tab) + "Syntax table for `inferior-ess-stata-mode'.") + +(define-derived-mode inferior-ess-stata-mode inferior-ess-mode "iESS" + "Inferior `stata' mode." + (ess-setq-vars-local STA-customize-alist) + (setq-local comint-use-prompt-regexp t) + (setq font-lock-defaults '(ess-STA-mode-font-lock-defaults nil nil ((?\. . "w"))))) + + +(define-derived-mode ess-stata-transcript-mode ess-transcript-mode "ESS Transcript" + :syntax-table ess-stata-mode-syntax-table + "Stata transcript mode." + (ess-setq-vars-local STA-customize-alist) + (setq-local comint-use-prompt-regexp t) + (setq-local comment-column 40) + (setq-local comment-end " \*/") + (setq-local comment-start "/\* ") + (setq-local comment-start-skip "/\\*+ *") + (setq-local comment-use-syntax t) + (setq-local indent-line-function 'ess-indent-line) + (setq-local paragraph-ignore-fill-prefix t) + (setq-local paragraph-separate (concat "[ \t\f]*$\\|" page-delimiter)) + (setq-local paragraph-start (concat "[ \t\f]*$\\|" page-delimiter)) + (setq font-lock-defaults '(ess-STA-mode-font-lock-defaults nil nil ((?\. . "w"))))) + +(defalias 'STA-transcript-mode 'ess-stata-mode-syntax-table) + +(defun ess--STA-retrive-topics-from-search () + (with-current-buffer (ess-command inferior-ess-search-list-command) + (goto-char (point-min)) + (let (topics) + (while (re-search-forward "(help \\(.+?\\)\\( if installed\\| for replacement.*\\)?)$" nil t) + (setq topics + (nconc (split-string (match-string-no-properties 1) ",\\|; +") + topics))) + (nreverse (delete-dups topics)) + ))) + +(defun ess-get-STA-help-topics (&optional name) + "Return a list of current STA help topics associated with process NAME." + (or (ess-process-get 'help-topics) + (progn + (ess-process-put 'help-topics (ess--STA-retrive-topics-from-search)) + (ess-process-get 'help-topics)))) + +(defun stata-eval-linewise (text &optional invisibly &rest args) + ;; The following is required to make sure things work! + (let ((ess-eval-linewise-function nil) + ;; RAS: mindless replacement of semi-colons + (text (if ess-sta-delimiter-friendly + (ess-replace-in-string text ";" "\n") + text))) + (apply #'ess-eval-linewise text t args))) + +(provide 'ess-stata-mode) + +;;; ess-stata-mode.el ends here diff --git a/elpa/ess-20190121.1430/ess-toolbar.el b/elpa/ess-20190121.1430/ess-toolbar.el new file mode 100644 index 00000000..face0b8f --- /dev/null +++ b/elpa/ess-20190121.1430/ess-toolbar.el @@ -0,0 +1,184 @@ +;;; ess-toolbar.el --- Support for a toolbar in ESS. + +;; Copyright (C) 1997--2009 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Author: Stephen Eglen +;; Created: 2004-05-06 +;; Revised: 2009-03-16 +;; Maintainer: ESS-core + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; This code adds a toolbar to ESS modes for editing R and S code. +;; Support can be added for other modes (e.g. STATA), just ask! +;; +;; This code is experimental. It has been tested only on Linux +;; machines. All feedback appreciated. +;; +;; If your emacs can support images, the ESS toolbar should be loaded. +;; +;; If you see a toolbar, but no icons, check out the value of +;; ess-icon-directory. +;; +;; The toolbar can be customized in several ways. To see options, do: +;; M-x customize-group RET ess-toolbar RET +;; If you change any of the variables, you _may_ need to restart Emacs +;; to see any effect. See also the documentation for ess-toolbar-items +;; if you wish to change its value. + +;;; Technical issues. + +;; 2009-03-16: toolbar code in Emacs 23 has changed slightly to 22, +;; and presumably once Emacs 22 is no longer supported, this code can +;; be cleaned up a bit (i.e. no need to set load-path.) + +;;; Code: + +(require 'ess-utils) +(require 'ess-mode) + +(defgroup ess-toolbar nil + "ESS: toolbar support." + :group 'ess + :link '(emacs-commentary-link :tag "Commentary" "ess-toolbar.el") + :prefix "ess-") + +(defcustom ess-use-toolbar + (and (fboundp 'display-images-p) (display-images-p)) + "Non-nil means ESS should support the toolbar." + :type 'boolean) + + +(defcustom ess-toolbar-own-icons nil + "Non-nil means that we only put our toolbar entries in ESS. +Otherwise we get standard toolbar as well as ESS entries. +The standard toolbar items are copied from the default toolbar." + :type 'boolean) + +(defcustom ess-toolbar-global nil + "*Non-nil means that the ESS toolbar is available in all emacs buffers. +Otherwise, the ESS toolbar is present only in R/S mode buffers. +For beginners, this is probably better set to a non-nil value." + :type 'boolean) + +(defcustom ess-toolbar-items + '( (R "startr") + ;;(S "spluslogo" "Start S process") + (S "splus_letter_small") + (ess-eval-line-and-step "rline") + (ess-eval-region "rregion") + (ess-eval-function-or-paragraph-and-step "rregion") + (ess-load-file "rbuffer") + (ess-eval-function "rfunction") + (ess-switch-to-ESS "switch_ess")) + "Items to be added to the ESS toolbar. +Each list element has two items: +1. the name of the function to run +2. the icon to be used (without .xpm extension) + +General toolbar items are also added to the ESS toolbar +iff `ess-toolbar-own-icons' is nil. + +Setting this variable with setq doesn't take effect once you have +loaded ess-site, unless you follow it by a call to +`ess-make-toolbar' afterwards. Instead, change its value using +Custom, and then on all new ESS buffers you should see the +toolbar has changed." + :set (lambda (symbol value) + (set-default symbol value) + (if (fboundp 'ess-make-toolbar) + (ess-make-toolbar))) + :type '(repeat (list (function :tag "Function to run") + (string :tag "Icon")))) + +(defvar ess-icon-directory + (expand-file-name "icons" ess-etc-directory) + "*Location for ESS icons. +This variable should be set automatically by the ESS install process. +Icons should be found in ESS/etc/icons/ directory. +If `ess-icon-directory' is invalid, please report a bug.") + +(unless (file-directory-p ess-icon-directory) + (ess-write-to-dribble-buffer + "`ess-icon-directory' does not exist; using `ess-etc-directory'.\n") + (setq ess-icon-directory ess-etc-directory)) + +(defvar ess-toolbar nil + "Toolbar items to be added to ESS editing buffers.") + +(defun ess-make-toolbar () + "Make the ESS toolbar." + ;; Under Emacs, only worth building the toolbar if tool-bar-map is + ;; available. e.g. when running Emacs within a terminal, tool-bar-map + ;; is not available, so no need to make the tool-bar. + (when (boundp 'tool-bar-map) + (setq ess-toolbar + (if (or ess-toolbar-own-icons (null tool-bar-map)) + (make-sparse-keymap) + (copy-keymap tool-bar-map))) + (let ((tool-bar-map ess-toolbar) + (load-path (list ess-icon-directory))) + ;; in Emacs 22, icons are found by examining load-path, bound here + ;; whereas Emacs 23 seems to want them in image-load-path, set at the + ;; bottom of this file. + (mapc #'ess-add-icon ess-toolbar-items)))) + +(defun ess-add-icon (x) + "Add an ESS item to the Emacs toolbar." + ;; By using tool-bar-add-item-from-menu instead of tool-bar-add-item + ;; we get the tooltips "for free" from ess-mode-map. + (tool-bar-add-item-from-menu (car x) (cadr x) ess-mode-map)) + +(defun ess-add-toolbar () + "Add the ESS toolbar to a particular mode. +The toolbar is added iff `ess-toolbar-global' is nil, else the toolbar +is added globally when ess-toolbar.el is loaded." + (if (and ess-toolbar (not ess-toolbar-global)) + (set (make-local-variable 'tool-bar-map) ess-toolbar))) + +;; Make the toolbars. Each toolbar is hopefully made only when this file +;; is loaded; we don't need it to be remade every time. +(if ess-use-toolbar + (progn + (ess-make-toolbar) + ;; After making the toolbar, if ESS toolbar is needed globally, + ;; add it here. + (if ess-toolbar-global + (setq tool-bar-map ess-toolbar) + (ess-write-to-dribble-buffer "Creating global Emacs toolbar")) + + ;; Check for toolbar support - needed iff ess-use-toolbar is non-nil. + (or + ;; Emacs support for images: + (and (fboundp 'display-images-p) (display-images-p)) + ;; if above tests failed, give a warning. + (progn + (message "Toolbar support for ESS not available in this emacs.") + ;; Not sure if we want to delay startup of ESS. + ;;(sit-for 2) + )) + )) + +;; Following needed for Emacs 23, not Emacs 22 +(when (boundp 'image-load-path) + (add-to-list 'image-load-path ess-icon-directory)) + +(provide 'ess-toolbar) + +;;; ess-toolbar.el ends here diff --git a/elpa/ess-20190121.1430/ess-tracebug.el b/elpa/ess-20190121.1430/ess-tracebug.el new file mode 100644 index 00000000..a0380b63 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-tracebug.el @@ -0,0 +1,2811 @@ +;; ess-tracebug.el --- Tracing and debugging facilities for ESS. -*- lexical-binding: t; -*- +;; +;; Copyright (C) 2011--2017 A.J. Rossini, Richard M. Heiberger, Martin Maechler, +;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. +;; +;; Filename: ess-tracebug.el +;; Author: Vitalie Spinu +;; Maintainer: Vitalie Spinu +;; Copyright (C) 2010-2012, Vitalie Spinu, all rights reserved. +;; Created: Oct 14 14:15:22 2010 +;; URL: https://code.google.com/p/ess-tracebug/ +;; Keywords: tools, languages +;; +;; This file is *NOT* part of GNU Emacs. +;; +;; This program 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 3, any later version. +;; +;; This program 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: +;; Ess-tracebug is a package for interactive debugging of R code from +;; ESS and provides such features as: +;; - visual debugging +;; - browser, recover and conditional breakpoints +;; - watch window and loggers +;; - on the fly debug/undebug of R functions and methods +;; - highlighting of error source references and easy error navigation +;; - interactive traceback. +;; +;; For a complete description please see the documentation in the ESS +;; manual. +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Code: + +(eval-when-compile + (require 'cl) + (require 'cl-lib) + (require 'tramp) + (require 'subr-x)) +(require 'comint) +(require 'compile) +(require 'overlay) +(require 'ring) +(require 'ess-custom) +(require 'ess-utils) + +(defvar text-scale-mode-amount) +(autoload 'text-scale-mode "face-remap" "[autoload]" nil) + +;; Silence the byte compiler. This is OK here because this file is +;; only loaded from ess-inf and has no autoloads. +;; TODO: This is a LOT. Can we move some of this around? +(defvar ess--dbg-del-empty-p) +(defvar inferior-ess-mode-map) +(defvar ess-mode-map) +(defvar ess--inhibit-presend-hooks) +(declare-function ess--accumulation-buffer "ess-inf") +(declare-function ess--if-verbose-write-process-state "ess-inf") +(declare-function ess--run-presend-hooks "ess-inf") +(declare-function ess-boolean-command "ess-inf") +(declare-function ess-build-eval-command "ess-inf") +(declare-function ess-build-load-command "ess-inf") +(declare-function ess-command "ess-inf") +(declare-function ess-dirs "ess-inf") +(declare-function ess-force-buffer-current "ess-inf") +(declare-function ess-get-process "ess-inf") +(declare-function ess-get-process-variable "ess-inf") +(declare-function ess-get-words-from-vector "ess-inf") +(declare-function ess-process-get "ess-inf") +(declare-function ess-process-live-p "ess-inf") +(declare-function ess-process-put "ess-inf") +(declare-function ess-send-string "ess-inf") +(declare-function ess-switch-to-ESS "ess-inf") +(declare-function ess-wait-for-process "ess-inf") +(declare-function ess-eval-region--normalise-region "ess-inf" ) +(declare-function inferior-ess-run-callback "ess-inf") +(declare-function inferior-ess--set-status "ess-inf") +(declare-function ess-helpobjs-at-point--read-obj "ess-help") +(declare-function ess-r-get-evaluation-env "ess-r-mode") +(declare-function ess-r-package--all-source-dirs "ess-r-package") +(declare-function ess-r-package-name "ess-r-package") +(declare-function ess-r-package-source-dirs "ess-r-package") + +;; Do not require tramp at runtime. It is expensive to load. Instead, +;; guard calls with (require 'tramp) and silence the byte compiler +;; here. +(declare-function tramp-dissect-file-name "tramp") +(declare-function tramp-get-remote-tmpdir "tramp") +;; The following declares can be removed once we drop Emacs 25 +(declare-function tramp-file-name-method "tramp") +(declare-function tramp-file-name-user "tramp") +(declare-function tramp-file-name-host "tramp") +(declare-function tramp-file-name-localname "tramp") +(declare-function tramp-file-name-hop "tramp") + + +(defgroup ess-tracebug nil + "Error navigation and debugging for ESS. +Currently only R is supported." + :link '(emacs-library-link :tag "Source Lisp File" "ess-tracebug.el") + :group 'ess) + +(defvar ess-tracebug-indicator " TB" + "String to be displayed in mode-line alongside the process name. +Indicates that ess-tracebug-mode is turned on.") + +(defvar ess-watch-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "k" 'ess-watch-kill) + ;; (define-key ess-watch-mode-map "u" 'ess-watch-undelete) + ;; editing requires a little more work. + (define-key map "a" 'ess-watch-add) + (define-key map "i" 'ess-watch-insert) + (define-key map "e" 'ess-watch-edit-expression) + (define-key map "r" 'ess-watch-rename) + (define-key map "q" 'ess-watch-quit) + (define-key map "u" 'ess-watch-move-up) + (define-key map "U" 'ess-watch-move-down) + (define-key map "d" 'ess-watch-move-down) + (define-key map "n" 'ess-watch-next-block) + (define-key map "p" 'ess-watch-previous-block) + ;; R mode keybindings. + (define-key map "\C-c\C-s" 'ess-watch-switch-process) + (define-key map "\C-c\C-y" 'ess-switch-to-ESS) + (define-key map "\C-c\C-z" 'ess-switch-to-end-of-ESS) + map) + "Keymap for `ess-watch-mode'.") + + +(defcustom ess-tracebug-prefix nil + "Key to be used as prefix for all `ess-tracebug' commands. +Set this to a key cominbation you don't use often, like: + + (setq ess-tracebug-prefix \"\\M-t\") + +The postfix keys are defined in `ess-tracebug-map': +\\{ess-tracebug-map}" + :type '(choice (const nil) (string)) + :group 'ess-tracebug) + +(defcustom ess-tracebug-search-path nil + "List of directories to search for source files. +Elements should be directory names, not file names of directories." + :type '(choice (const :tag "Unset" nil) + (repeat :tag "Directory list" (string :tag "Directory"))) + :group 'ess-debug) + +(defvar ess-watch-buffer "*R watch*" + "Name of the watch buffer.") + +(defcustom ess-watch-height-threshold nil + "Minimum height for splitting *R* window sensibly to make space for watch window. +See `split-height-threshold' for a detailed description. + +If nil, the value of `split-height-threshold' is used." + :group 'ess-debug + :type '(choice (const nil) (integer))) + +(defcustom ess-watch-width-threshold nil + "Minimum width for splitting *R* window sensibly to make space for watch window. +See `split-width-threshold' for a detailed description. + +If nil, the value of `split-width-threshold' is used." + :group 'ess-debug + :type '(choice (const nil) (integer))) + +(defcustom ess-watch-scale-amount -1 + "The number of steps to scale the watch font down (up). +Each step scales the height of the default face in the watch +window by the variable `text-scale-mode-step' (a negative number +of steps decreases the height by the same amount)" + :group 'ess-debug + :type 'integer) + +(defvar-local ess-watch-current-block-overlay nil + "The overlay for currently selected block in the R watch buffer .") + +(defcustom ess-inject-source 'function-and-buffer + "Control the source injection into evaluated code. + +If t, always inject source reference. +If function, inject only for functions, +If function-and-buffer, inject for functions and whole buffer (the default), +If nil, never inject. + +When tracebug is active (the default), ESS instructs the +subprocess to keep the source code references. + +If this variable is t, you won't be able to execute blocks which +don't form a valid R expression. That is, if your expression +spreads multiple paragraphs, and you call +\\[ess-eval-region-or-function-or-paragraph-and-step] on first +paragraph, R will report an error." + :group 'ess-tracebug + :type '(choice (const nil) (const function) (const function-and-buffer) (const t))) + +(defcustom ess-tracebug-enter-hook nil + "List of functions to call on entry to `ess-tracebug' mode. +Use `add-hook' to insert append your functions to this list." + :group 'ess-tracebug + :type 'hook) + +(defcustom ess-tracebug-exit-hook nil + "List of functions to call on exit of `ess-tracebug' mode. +Use `add-hook' to insert append your functions to this list." + :group 'ess-tracebug + :type 'hook) + +(defvaralias 'ess-tracebug-map 'ess-dev-map) + +(defvar ess--tracebug-eval-index 0 + "This is used by to track source references in evaluation with source. +For example, each time `ess-eval-function' is called the evaluated +region is marked. When debugger enteres the code it desplayes +this reference number. Ess-debug finds this number in the +referenced buffer.") + +;; these vars are org variables that store the src block locations +(defvar org-edit-src-beg-marker nil) +(defvar org-babel-current-src-block-location nil + "Marker pointing to the src block currently being executed. +This may also point to a call line or an inline code block. If +multiple blocks are being executed (e.g., in chained execution +through use of the :var header argument) this marker points to +the outer-most code block.") + +;; hash to store soruce references of the form: tmpname -> (filename . src_start) +(defvar ess--srcrefs (make-hash-table :test 'equal :size 100)) + +(defvar ess-tracebug-original-buffer-marker nil + "Marker pointing to the beginning of original source code. +If non-nil, tracebug will insert the source references based on +this location instead of the current buffer. This is useful for +applications, like org-babel, that call ess evaluation functions +from temporary buffers.") + +(defun ess-tracebug-p () + "Return non-nil if tracebug is running." + (ess-process-get 'tracebug)) + +(defun ess-make-source-refd-command (beg end visibly process) + "Saves a region to a temporary file in order to add source references. +BEG and END delimit the region. Returns a string containing an +inferior process command for loading the temporary file. This +command conforms to VISIBLY." + (let* ((filename buffer-file-name) + (proc-dir (ess-get-process-variable 'default-directory)) + (remote (when (file-remote-p proc-dir) + (require 'tramp) + ;; should this be done in process buffer? + (tramp-dissect-file-name proc-dir))) + (orig-marker (or ess-tracebug-original-buffer-marker + org-edit-src-beg-marker + org-babel-current-src-block-location)) + orig-beg) + (setq ess--tracebug-eval-index (1+ ess--tracebug-eval-index)) + (goto-char beg) + (skip-chars-forward " \t\n") + (setq beg (point)) + (goto-char end) + (skip-chars-backward " \t\n") + (setq end (point) + orig-beg beg) + + ;; Delete all old temp files + (when (and (not (ess-process-get 'busy)) + (< 1 (float-time + (time-subtract (current-time) + (ess-process-get 'last-eval))))) + (dolist (f (ess-process-get 'temp-source-files)) + (and (file-exists-p f) + (delete-file f))) + (ess-process-put 'temp-source-files nil)) + + (when (markerp orig-marker) + (setq filename (buffer-file-name (marker-buffer orig-marker))) + (setq orig-beg (+ beg (marker-position orig-marker)))) + + (let ((tmpfile + (expand-file-name (make-temp-name + (concat (file-name-nondirectory + (or filename "unknown")) "!")) + (if remote + (tramp-get-remote-tmpdir remote) + temporary-file-directory)))) + + (ess-process-put 'temp-source-files + (cons tmpfile (ess-process-get 'temp-source-files))) + + (when remote + ;; Get local name (should this be done in process buffer?) + (setq tmpfile (with-parsed-tramp-file-name tmpfile nil localname))) + + (if (not filename) + (puthash tmpfile (list nil ess--tracebug-eval-index nil) ess--srcrefs) + (puthash tmpfile (list filename ess--tracebug-eval-index orig-beg) ess--srcrefs) + (puthash (file-name-nondirectory tmpfile) ; R sometimes strips dirs + (list filename ess--tracebug-eval-index orig-beg) ess--srcrefs) + (with-silent-modifications + (put-text-property beg end 'tb-index ess--tracebug-eval-index))) + (let ((string (ess-process-buffer-substring process beg end))) + (or + ;; Sending string to subprocess is considerably faster than tramp file + ;; transfer. So, give priority to `ess-eval-command' if available + (ess-build-eval-command string visibly t tmpfile) + ;; When no `ess-eval-command' available, use `ess-load-command' + (progn + (write-region beg end tmpfile nil 'silent) + (ess-build-load-command tmpfile visibly t))))))) + +(defun ess-process-buffer-substring (process start end) + (ess--run-presend-hooks process (buffer-substring-no-properties start end))) + +(defun ess-tracebug-send-region (process start end &optional visibly message type) + "Send region to process adding source references as specified +by `ess-inject-source' variable." + (ess-eval-region--normalise-region start end) + (let* ((inject-p (cond ((eq type 'function) + ess-inject-source) + ((eq type 'buffer) + (or (eq ess-inject-source t) + (eq ess-inject-source 'function-and-buffer))) + (t (or (eq ess-inject-source t) + ;; We need to always inject with namespaced + ;; evaluation (fixme: not right place for + ;; this). + (ess-r-get-evaluation-env))))) + (ess--dbg-del-empty-p (unless inject-p ess--dbg-del-empty-p)) + (string (if inject-p + (ess-make-source-refd-command start end visibly process) + (ess-process-buffer-substring process start end))) + (message (if (fboundp ess-build-eval-message-function) + (funcall ess-build-eval-message-function message) + message))) + ;; Don't run the presend hooks twice. + (let ((ess--inhibit-presend-hooks t)) + (process-put process :eval-visibly visibly) + ;; Visible evaluation is not nice when sourcing temporary files. You get + ;; .ess.eval(*code*) instead of *code*. + (setq visibly (unless inject-p visibly)) + (ess-send-string process string visibly message)))) + +(defun ess-tracebug-send-function (proc start end &optional visibly message) + "Like `ess-tracebug-send-region' but with tweaks for functions." + (ess-tracebug-send-region proc start end visibly message 'function)) + +(defvar ess-tracebug-help nil + "ess-dev-map prefix: \\[ess-dev-map] + +* Breakpoints (`ess-dev-map'): + + b . Set BP (repeat to cycle BP type) . `ess-bp-set' + B . Set conditional BP . `ess-bp-set-conditional' + k . Kill BP . `ess-bp-kil' + K . Kill all BPs . `ess-bp-kill-all' + o . Toggle BP state . `ess-bp-toggle-state' + l . Set logger BP . `ess-bp-set-logger' + n . Goto next BP . `ess-bp-next' + p . Goto previous BP . `ess-bp-previous' + + (C- prefixed equivalents are also defined) + +* Debugging (`ess-dev-map'): + ` . Show traceback . `ess-show-traceback' (also on C-c `) + ~ . Show callstack . `ess-show-call-stack' (also on C-c ~) + e . Toggle error action (repeat to cycle). `ess-debug-toggle-error-action' + d . Flag for debugging . `ess-debug-flag-for-debugging' + u . Unflag for debugging . `ess-debug-unflag-for-debugging' + w . Watch window . `ess-watch' + + (C- prefixed equivalents are also defined) + +* Interactive Debugging (`ess-debug-minor-mode-map'): + + M-C . Continue . `ess-debug-command-continue' + M-C-C . Continue multi . `ess-debug-command-continue-multi' + M-N . Next step . `ess-debug-command-next' + M-C-N . Next step multi . `ess-debug-command-next-multi' + M-U . Up frame . `ess-debug-command-up' + M-Q . Quit debugging . `ess-debug-command-quit' + +* Navigation to errors (general emacs functionality): + + C-x `, M-g n . `next-error' + M-g p . `previous-error'") + + +;; * Input Ring: + +;; i . Goto input event marker forwards . `ess-debug-goto-input-event-marker' +;; I . Goto input event marker backwards . `ess-debug-goto-input-event-marker' + + +(defun ess-tracebug-show-help () + "Show help for `ess-tracebug'." + (interactive) + (describe-variable 'ess-tracebug-help)) + +(defun ess-tracebug--propertize (dummy bitmap face &optional string ) + "If `window-system' propertize DUMMY with fringe BITMAP and FACE. +Otherwise, propertize line-prefix and margin with STRING and FACE" + (unless string + (setq string dummy)) + (if window-system + (propertize dummy 'display (list 'left-fringe bitmap face)) + (propertize dummy + 'display (list '(margin left-margin) + (propertize string + 'font-lock-face face + 'face face))))) + + +(defun ess-tracebug (&optional arg) + "Toggle `ess-tracebug' mode. +With ARG, turn `ess-tracebug' mode on if and only if ARG is +positive. + +This mode adds to ESS the interactive debugging, breakpoint and +error navigation functionality. Strictly speaking `ess-tracebug' +is not a minor mode. It integrates globally into ESS and iESS. + +Note: Currently, `ess-tracebug' does not detect some of R's debug +related messages in non-English locales. To set your R messages +to English add the following line to your .Rprofile init file: + + Sys.setlocale(\"LC_MESSAGES\", \"C\") + + +See `ess-tracebug-help' for the overview of ess-tracebug functionality." + + ;; Note: The functionality in ess-tracebug is divided on conceptual + ;; grounds in tracing and debugging and could be + ;; activated/deactivate separately with `ess--tb-start' and + ;; `ess-debug-start' respectively. + + (interactive "P") + (ess-force-buffer-current "R process to activate tracebug in: ") + (with-current-buffer (process-buffer (get-process ess-local-process-name)) + (when (equal ess-dialect "R") + (setq arg + (if arg + (prefix-numeric-value arg) + (if (ess-process-get 'tracebug) -1 1))) + (if (> arg 0) + (unless (ess-process-get 'tracebug) ;; only if already not active + (ess--tb-start) + (ess-debug-start) + ;; (dolist (bf (buffer-list)) + ;; (with-current-buffer bf + ;; (when (and (eq major-mode 'ess-mode) + ;; (equal ess-dialect "R")) + ;; (ess-bp-recreate-all)))) + ;; watch functionality + (if ess-tracebug-prefix + (let ((comm (key-binding ess-tracebug-prefix))) + ;; (message "ess-tracebug-prefix will be removed in future versions. Electric debug keys are now on [C-c] and [C-c C-t] maps.") + ;; (sit-for 1) + (when (commandp comm) + (define-key ess-tracebug-map ess-tracebug-prefix comm)) + (define-key ess-mode-map ess-tracebug-prefix ess-tracebug-map) + (define-key inferior-ess-mode-map ess-tracebug-prefix ess-tracebug-map) + (define-key ess-watch-mode-map ess-tracebug-prefix ess-tracebug-map))) + (run-hooks 'ess-tracebug-enter-hook) + (ess-process-put 'tracebug t) + (message "ess-tracebug mode enabled")) + (when (ess-process-get 'tracebug) ;;only when active + (ess-process-put 'tracebug nil) + ;; unset the map + (when ess-tracebug-prefix + (define-key ess-mode-map ess-tracebug-prefix nil) + (define-key inferior-ess-mode-map ess-tracebug-prefix nil)) + (ess--tb-stop) + (ess-debug-stop) + (run-hooks 'ess-tracebug-exit-hook) + (message "ess-tracebug mode disabled")))))) + +(defalias 'ess-toggle-tracebug 'ess-tracebug) + + +;;;_* TRACEBACK + +;; (defface ess--tb-last-input-face +;; '((((class grayscale) +;; (background light)) (:background "DimGray")) +;; (((class grayscale) +;; (background dark)) (:background "LightGray")) +;; (((class color) (background light) (min-colors 88)) +;; (:overline "medium blue" )) +;; (((class color) (background dark) (min-colors 88)) +;; (:overline "deep sky blue" )) +;; (((background light)) (:weight bold)) +;; (((background dark)) (:weight bold)) +;; ) +;; "Face to highlight currently debugged line." +;; :group 'ess-tracebug ) + +(defface ess-tracebug-last-input-fringe-face + '((((background light) (min-colors 88)) (:foreground "medium blue" :overline "medium blue")) + (((background dark) (min-colors 88)) (:foreground "deep sky blue" :overline "deep sky blue")) + (((background light) (min-colors 8)) (:foreground "blue")) + (((background dark) (min-colors 8)) (:foreground "syan"))) + "Face for fringe bitmap for last-input position." + :group 'ess-tracebug) + +(if (fboundp 'define-fringe-bitmap) + (define-fringe-bitmap 'last-input-arrow + [#b00011111 + #b00010000 + #b00010000 + #b00010000 + #b00010000 + #b00010000 + #b00010000 + #b00010000 + #b00010000 + #b00010000 + #b11010111 + #b01111100 + #b00111000 + #b00010000] nil nil 'top)) + + +(defvar ess--tb-last-input (make-marker) + "Marker pointing to the last user input position in iESS buffer. +This is the place where `ess--tb-last-input-overlay' is moved. +Local in iESS buffers with `ess-tracebug' mode enabled.") + +(defvar ess--tb-last-input-overlay nil + "Overlay to highlight the position of last input in iESS buffer. +Local in iESS buffers.") + +(defvar-local ess--busy-count 0 + "Used to compute the busy indicator.") + +;; (unless (boundp 'ess--busy-slash) +;; (defvar ess--busy-slash '(32 ?\u2014 92 47)) +;; (setq ess--busy-slash (mapcar (lambda (el) (format " %c " el)) +;; ess--busy-slash)) +;; ) + + +(defvar ess--busy-slash '(" " " - " " \\ " " / ")) +(defvar ess--busy-B '(" " " B " " ")) +(defvar ess--busy-stars '(" " " " " * " " ** " " *** " " **** ")) +(defvar ess--busy-vbars '(" " " " " | " " || " " ||| " " |||| ")) + +(defcustom ess-busy-strings ess--busy-slash + "List of strings to replace in turn for busy indication. +The first element of the list is used as an indicator of the +process being ready (i.e. not busy). Implemented lists that you +can use `ess--busy-slash', `ess--busy-B',`ess--busy-stars', +`ess--busy-vbars'" + :group 'ess + :type '(repeat string)) + +(defvar ess--busy-timer nil + "Timer used for busy process indication.") + +(defcustom inferior-ess-replace-long+ t + "Determines if ESS replaces long + sequences in output. +If 'strip, remove all such instances. Otherwise, if non-nil, '+ ++ + + ' containing more than 4 + is replaced by +`ess-long+replacement'." + :group 'ess-tracebug + :type '(choice (const nil :tag "No replacement") + (const 'strip :tag "Replace all") + (const t :tag "Replace 4 or more +"))) + +(defvar ess-long+replacement ". + " + "Replacement used for long + prompt. +Please don't customize this or other prompt related variables. +ESS internal code assumes default R prompts.") + +(defmacro ess-copy-key (from-map to-map fun) + `(define-key ,to-map + (car (where-is-internal ,fun ,from-map)) + ,fun)) + +;;;_ + traceback functions +(defun ess--tb-make-last-input-overlay (beg end) + "Create an overlay to indicate the last input position." + (let ((ove (make-overlay beg end))) + (overlay-put ove 'before-string + (ess-tracebug--propertize "!" 'last-input-arrow 'ess-tracebug-last-input-fringe-face)) + ;; (overlay-put ove 'face 'ess--tb-last-input-face) + (overlay-put ove 'evaporate t) + ove)) + + +(defun ess--tb-start () + "Start traceback session." + (with-current-buffer (process-buffer (get-process ess-local-process-name)) + (unless ess-error-regexp-alist + (error "Can not activate the traceback for %s dialect" ess-dialect)) + (set (make-local-variable 'compilation-error-regexp-alist) + ess-error-regexp-alist) + (let (compilation-mode-font-lock-keywords) + (compilation-setup t)) + (setq next-error-function 'ess-tracebug-next-error-function) + ;; new locals + (make-local-variable 'ess--tb-last-input) + (make-local-variable 'ess--tb-last-input-overlay) + (make-local-variable 'compilation-search-path) + (setq compilation-search-path ess-tracebug-search-path) ;; todo: make this dialect specific + (ess-tracebug--set-left-margin) + (save-excursion + (goto-char comint-last-input-start) + (setq ess--tb-last-input (point)) + (setq ess--tb-last-input-overlay + (ess--tb-make-last-input-overlay + (point-at-bol) (point-at-eol)))) + ;; busy timer + (setq mode-line-buffer-identification + (list (car (propertized-buffer-identification "%3b")) + `(:eval (nth ess--busy-count ess-busy-strings)))) ;; 'face 'mode-line-buffer-id)))) + (make-local-variable 'ess--busy-timer) + (setq ess--busy-timer + (run-with-timer 2 .5 (ess--make-busy-timer-function (get-buffer-process (current-buffer))))) + (add-hook 'kill-buffer-hook (lambda () (when ess--busy-timer (cancel-timer ess--busy-timer)))) + (add-hook 'comint-input-filter-functions 'ess-tracebug-set-last-input nil 'local) + + ;; redefine + ;; todo: all this part should go (partially gone now) + (unless (fboundp 'orig-ess-parse-errors) + (defalias 'orig-ess-parse-errors (symbol-function 'ess-parse-errors)) + (defalias 'ess-parse-errors (symbol-function 'next-error))))) + +(defun ess--tb-stop () + "Stop ess traceback session in the current ess process." + (with-current-buffer (process-buffer (get-process ess-current-process-name)) + ;; restore original definitions + (when (equal ess-dialect "R") + (when (fboundp 'orig-ess-parse-errors) + (defalias 'ess-parse-errors (symbol-function 'orig-ess-parse-errors)) + (fmakunbound 'orig-ess-parse-errors))) + (if (local-variable-p 'ess--tb-last-input-overlay) + (delete-overlay ess--tb-last-input-overlay)) + (kill-local-variable 'ess--tb-last-input-overlay) + (kill-local-variable 'ess--tb-last-input) + (font-lock-remove-keywords nil (compilation-mode-font-lock-keywords)) + (font-lock-ensure) + (kill-local-variable 'compilation-error-regexp-alist) + (kill-local-variable 'compilation-search-path) + (cancel-timer ess--busy-timer) + (remove-hook 'comint-input-filter-functions 'ess-tracebug-set-last-input 'local) + (setq mode-line-buffer-identification (propertized-buffer-identification "%12b")))) + +(defvar ess--dbg-forward-ring (make-ring 10) + "Ring of markers to the positions of user inputs when the +debugger or traceback events are initiated. It is used in +`ess--dbg-goto-input-point'.") + +(defvar ess--dbg-backward-ring (make-ring 10) + "Ring of markers to the positions from which `ess--dbg-goto-input-point' is called. +See the also `ess--dbg-goto-debug-point'") + +;; (setq ess-R--tb-regexp-alist '(R R2 R3 R-recover)) +;;(pop compilation-error-regexp-alist-alist) + +(defun ess-show-traceback () + "Display R traceback and last error message. +Pop up a compilation/grep/occur like buffer. Usual global key +bindings are available \(\\[next-error] and \\[previous-error]\) +for `next-error' and `previous-error' respectively. + +You can bind 'no-select' versions of this commands: +\(define-key compilation-minor-mode-map [(?n)] 'next-error-no-select\) +\(define-key compilation-minor-mode-map [(?p)] 'previous-error-no-select\)" + (interactive) + (if (null ess-traceback-command) + (error "Not implemented for dialect %s" ess-dialect) + (ring-insert ess--dbg-forward-ring (point-marker)) + (ess-force-buffer-current "R process to use: ") + (let ((trbuf (get-buffer-create "*ess-traceback*")) + (lproc-name ess-local-process-name) + (alist ess-mode-editing-alist) + (cmd ess-traceback-command)) + (setq next-error-last-buffer trbuf) + (with-current-buffer trbuf + (setq buffer-read-only nil) + (setq ess-local-process-name lproc-name) + (ess-command cmd trbuf) + (goto-char (point-min)) + ;; fixme: this is R specific check + (if (re-search-forward "No traceback available" nil t) + (message "No traceback available") + (ess-dirs) + (make-local-variable 'compilation-error-regexp-alist) + (when (boundp 'ess-r-error-regexp-alist) + (setq compilation-error-regexp-alist ess-r-error-regexp-alist)) + (make-local-variable 'compilation-search-path) + (setq compilation-search-path ess-tracebug-search-path) + (ess-setq-vars-local alist) + (font-lock-refresh-defaults) + (compilation-minor-mode 1) + (setq next-error-function 'ess-tracebug-next-error-function) + ;(use-local-map ess-traceback-minor-mode-map) + ;; ess keys + (local-set-key "\C-c\C-s" 'ess-watch-switch-process) + (local-set-key "\C-c\C-y" 'ess-switch-to-ESS) + (local-set-key "\C-c\C-z" 'ess-switch-to-end-of-ESS) + + (setq buffer-read-only t) + (pop-to-buffer trbuf)))))) + +(defvar ess-call-stack-command nil) +(defun ess-show-call-stack () + "Display current call stack. +Also see `ess-show-traceback'" + (interactive) + (let ((ess-traceback-command ess-call-stack-command)) + (ess-show-traceback))) + +(defalias 'ess-show-R-traceback 'ess-show-traceback) + +(defun ess--tb-next-error-goto-process-marker () + ;; assumes current buffer is the process buffer with compilation enabled + ;; used in ess-tracebug-next-error-function + ; (with-current-buffer (process-buffer (get-process ess-local-process-name)) ; already in comint buffer .. no need + (comint-goto-process-mark) + (set-window-point (get-buffer-window) (point)) ;moves the cursor + ;; FIXME: Should jump to current-debug-position, but messes the things if in recover + ;; (when (ess-debug-is-active) + ;; (ess-debug-goto-current-debug-position) + ;; ) + ) + +(defun ess-tracebug-next-error-function (n &optional reset) + "Advance to the next error message and visits the file. +This is the value of `next-error-function' in iESS buffers." + ;; Modified version of `compilation-next-error-function'. + (interactive "p") + (if reset (goto-char (point-max))) + (let* (;; (columns compilation-error-screen-columns) ; buffer's local value + ;; (proc (or (get-buffer-process (current-buffer)) + ;; (error "Current buffer has no process"))) + (pbuff-p (get-buffer-process (current-buffer))) + (n (or n 1)) + (beg-pos ; from where the search for next error starts + (if (and pbuff-p + (>= n 0) + (comint-after-pmark-p)) + ess--tb-last-input + (point))) + (at-error t) + (msg + (condition-case nil + (compilation-next-error n nil beg-pos) + (error + (when pbuff-p + (ess--tb-next-error-goto-process-marker)) + (if (< n 0) + (message "Before first reference") + (message "Beyond last reference"));(error-message-string err)) + (setq at-error nil)))) + (msg (if (or (not pbuff-p) + (eq n 0) + (> (point) ess--tb-last-input)) + msg + (ess--tb-next-error-goto-process-marker) + (message "Beyond last-input marker") + (setq at-error nil))) + (marker (point-marker)) + loc) + (when at-error + (setq compilation-current-error (point-marker) + overlay-arrow-position (if (bolp) + compilation-current-error + (copy-marker (line-beginning-position))) + loc (if (fboundp 'compilation--message->loc) + (compilation--message->loc msg) + (car msg))) + (let* ((file (caar (nth 2 loc))) + (col (car loc)) + (line (cadr loc)) + (mkrs (ess--dbg-create-ref-marker file line col))) + (if mkrs + ;; is this really needed? Shall we go directly to the location? + (compilation-goto-locus marker (car mkrs) (cadr mkrs)) + (message "Reference to '%s' not found" file)))))) + + +(defun inferior-ess-move-last-input-overlay () + "Move the overlay to the point." + (let ((pbol (point-at-bol))) + (move-overlay ess--tb-last-input-overlay + pbol (max (- (point) 2) (+ pbol 2))))) + + +;;;_* DEBUGGER +(defgroup ess-debug nil + "Debugging for ESS" + :link '(emacs-library-link :tag "Source Lisp File" "ess-tracebug.el") + :group 'ess-tracebug + :prefix "ess-debug-") + +(defcustom ess-debug-error-action-alist + '(( "" "NONE" "NULL" ) + ( " r" "RECOVER" "utils::recover") + ( " t" "TRACEBACK" "base::traceback")) + "Alist of 'on-error' actions. +Toggled with `ess-debug-toggle-error-action'. Each element must +have the form (DISP SYMB ACTION) where DISP is the string to be +displayed in the mode line when the action is in place. SYMB is +the symbolic name of an action. ACTION is the string giving the +actual expression to be assigned to 'error' user option. See R's +help ?options for more details." + :type '(alist :key-type string + :value-type (group string string)) + :group 'ess-debug) + +(defvar ess--dbg-output-buf-prefix " *ess.dbg" + "The prefix of the buffer name the R debug output is directed to." ) + +(defvar-local ess--dbg-current-ref (make-marker) + "Current debug reference in *ess.dbg* buffers (a marker).") + +(defvar-local ess--dbg-last-ref-marker (make-marker) + "Last debug reference in *ess.dbg* buffer (a marker).") + +(defvar-local ess--dbg-buf-p nil + "This is t in ess.dbg buffers.") + +;; (defcustom ess--dbg-auto-single-key-p t +;; "If t entering the debug state triggers single-key mode. +;; Set it to nil if you want to trigger single-key mode manually +;; with the `ess-tracebug-prefix' key. +;; ") + +(defvar ess--dbg-current-debug-position (make-marker) + "Marker to the current debugged line. +It always point to the beginning of the currently debugged line +and is used by overlay-arrow. +In no-windowed Emacs an `overlay-arrow' is displayed at this position.") + +(unless window-system + (add-to-list 'overlay-arrow-variable-list 'ess--dbg-current-debug-position)) + +(defface ess-debug-current-debug-line-face + '((default (:inherit highlight))) + "Face used to highlight currently debugged line." + :group 'ess-debug) + + +(defvar ess--dbg-current-debug-overlay + (let ((overlay (make-overlay (point) (point)))) + (overlay-put overlay 'face 'ess-debug-current-debug-line-face) + (overlay-put overlay 'evaporate t) + overlay) + ;; should be global variable!! + "The overlay for currently debugged line.") + + +(defcustom ess-debug-blink-interval .2 + "Time in seconds to blink the background of the debug line. +Currently two events are defined 'ref-not-found' and 'same-ref'. +Blinking colors for these events can be customized by +corresponding faces." + :group 'ess-debug + :type 'float) + +(defface ess-debug-blink-ref-not-found-face + '((((class grayscale) (background light)) (:background "DimGray")) + (((class grayscale) (background dark)) (:background "LightGray")) + (((class color) (background light) (min-colors 88)) (:background "IndianRed4")) + (((class color) (background dark) (min-colors 88)) (:background "dark red")) + (((background light) (min-colors 8)) (:foreground "red")) + (((background dark) (min-colors 8)) (:foreground "red"))) + "Face used to blink currently debugged line's background + when the reference file is not found. See also `ess-debug-ask-for-file'" + :group 'ess-debug ) + +(defface ess-debug-blink-same-ref-face + '((((class grayscale) (background light)) (:background "DimGray")) + (((class grayscale) (background dark)) (:background "LightGray")) + (((class color) (background light) (min-colors 88)) (:background "steel blue")) + (((class color) (background dark) (min-colors 88)) (:background "midnight blue")) + (((background light) (min-colors 8)) (:foreground "blue")) + (((background dark) (min-colors 8)) (:foreground "cyan"))) + "Face used to highlight currently debugged line when new debug +reference is the same as the preceding one. It is highlighted for +`ess-debug-blink-interval' seconds." + :group 'ess-debug ) + +(defcustom ess-debug-ask-for-file nil + "If non nil, ask for file if the current debug reference is not found. + +If nil, the currently debugged line is highlighted for +`ess-debug-blink-interval' seconds." + :group 'ess-debug + :type 'boolean) + +(defcustom ess-debug-skip-first-call t + "If non-nil, skip first debugger call. + +In R first call doesn't contain source references and is skipped +by default." + :group 'ess-debug + :type 'boolean) + +(defvar ess-electric-selection-map + (let (ess-electric-selection-map) + (define-prefix-command 'ess-electric-selection-map) + ;; command-c and command-Q are not always working reliably + (define-key ess-electric-selection-map "\M-N" 'ess-debug-command-continue) + (define-key ess-electric-selection-map "\M-C" 'ess-debug-command-continue) + (define-key ess-electric-selection-map "\M-Q" 'ess-debug-command-quit) + (define-key ess-electric-selection-map "0" 'ess-debug-command-digit) + (define-key ess-electric-selection-map "1" 'ess-debug-command-digit) + (define-key ess-electric-selection-map "2" 'ess-debug-command-digit) + (define-key ess-electric-selection-map "3" 'ess-debug-command-digit) + (define-key ess-electric-selection-map "4" 'ess-debug-command-digit) + (define-key ess-electric-selection-map "5" 'ess-debug-command-digit) + (define-key ess-electric-selection-map "6" 'ess-debug-command-digit) + (define-key ess-electric-selection-map "7" 'ess-debug-command-digit) + (define-key ess-electric-selection-map "8" 'ess-debug-command-digit) + (define-key ess-electric-selection-map "9" 'ess-debug-command-digit) + (define-key ess-electric-selection-map "?" 'ess-tracebug-show-help) + ess-electric-selection-map) + "Keymap used to define commands for single key input mode. +This commands are triggered by `ess-electric-selection' . + +\\{ess-electric-selection-map}") + +(ess-if-verbose-write "\n<- debug-vars done") + +;;;_ + debug functions +(defun ess-debug-set-error-action (spec) + "Set the on-error action. +The SPEC should be one of the components of +`ess-debug-error-action-alist'." + (let ((proc (get-process ess-local-process-name))) + (if spec + (with-current-buffer (process-buffer proc) + (process-put proc 'on-error-action (car spec)) + (ess-command (format "options(error= %s )\n" (nth 2 spec)))) + (error "Unknown action")))) + +(defun ess-debug-toggle-error-action () + "Toggle the 'on-error' action. +The action list is in `ess-debug-error-action-alist'." + (interactive) + (ess-force-buffer-current) + (let* ((ev last-command-event) + (com-char (event-basic-type ev)) + (cur-action (or (ess-process-get 'on-error-action) "")) + actions act) + (setq actions + (cdr (member (assoc cur-action ess-debug-error-action-alist) + ess-debug-error-action-alist))) + (unless actions + (setq actions ess-debug-error-action-alist)) + (setq act (pop actions)) + (ess-debug-set-error-action act) + (message "On-error action set to: %s" + (propertize (cadr act) 'face 'font-lock-function-name-face)) + (while (eq (event-basic-type (setq ev (read-event))) com-char) + (unless actions + (setq actions ess-debug-error-action-alist)) + (setq act (pop actions)) + (ess-debug-set-error-action act) + (force-mode-line-update) + (message "On-error action set to: %s" + (propertize (cadr act) 'face 'font-lock-function-name-face))) + (push ev unread-command-events))) + +(defun ess--dbg-activate-overlays () + "Initialize active debug line overlays." + (move-overlay ess--dbg-current-debug-overlay + (point-at-bol) (1+ (point-at-eol)) (current-buffer)) + ;; used by overlay-arrow functionality on no-X, should be bol + (move-marker ess--dbg-current-debug-position (point-at-bol))) + +(defun ess--dbg-deactivate-overlays () + "Deletes markers and overlays. Overlay arrow remains to indicate the last debug position." + (delete-overlay ess--dbg-current-debug-overlay) + (set-marker ess--dbg-current-debug-position nil)) + + +;;;_ + Work Flow +(defun ess-debug-goto-input-event-marker () + "Jump to the point where the last debugger/traceback etc event occurred. + + Mainly useful during/after debugging, to jump to the place +from where the code was initialy executed. This is an +electric-command, which means that after the command is triggered a +single key event is enough to navigate through the input-event-S-ring. +If the key-event which triggered the command is Shift modified +the input-event-S-ring is traversed backwards. + +The input-event-S-ring is a virtual object which consists of two +rings `ess--dbg-forward-ring' and `ess--dbg-backward-ring' which +are joint at their tops. + +See the more info at https://code.google.com/p/ess-tracebug/#Work-Flow" + (interactive) + (let* ((ev last-command-event) + (com-char (event-basic-type ev)) + (ring-el 0) + input-point) + (if (memq 'shift (event-modifiers ev)) + (setq input-point (ring-ref ess--dbg-backward-ring 0)) + (ring-insert ess--dbg-backward-ring (point-marker)) ;; insert in backward ring ;;todo: check if the marker to this (close by?) position is already in the ring + (setq input-point (ring-ref ess--dbg-forward-ring 0))) + (when (marker-buffer input-point) ;; todo: give a message here if buff is not found + (pop-to-buffer-same-window (marker-buffer input-point)) + (when (marker-position input-point) + (goto-char (marker-position input-point)))) + (while (eq (event-basic-type (event-basic-type (setq ev (read-event)))) com-char) + (if (memq 'shift (event-modifiers ev)) + (setq ring-el (1- ring-el)) + (setq ring-el (1+ ring-el))) + (if (< ring-el 0) + (setq input-point (ring-ref ess--dbg-backward-ring (- ring-el))) ;; get it from backward-ring + ;; get it from forward-ring + (setq input-point (ring-ref ess--dbg-forward-ring ring-el)) ) + (when (marker-buffer input-point) + (pop-to-buffer-same-window (marker-buffer input-point)) + (when (marker-position input-point) + (goto-char (marker-position input-point))))) + (push ev unread-command-events))) + +(defun ess-debug-goto-debug-point () + "Return to the debugging position. +Jump to markers stored in `ess--dbg-backward-ring'. If debug +session is active, first jump to current debug line. + +This is an electric-command. Shift triggers the opposite traverse +of the ring." + (interactive) + (let* ((debug-point (ring-ref ess--dbg-backward-ring 0)) + (ev last-command-event) + (com-char (event-basic-type ev)) + (ring-el 0)) + (if (ess--dbg-is-active-p) + (progn + (pop-to-buffer-same-window (marker-buffer ess--dbg-current-debug-position)) + (goto-char (marker-position ess--dbg-current-debug-position )) + (back-to-indentation)) + (pop-to-buffer-same-window (marker-buffer debug-point)) + (goto-char (marker-position debug-point))) + (while (eq (event-basic-type (setq ev (read-event))) com-char) + (if (memq 'shift (event-modifiers ev)) + (setq ring-el (1- ring-el)) + (setq ring-el (1+ ring-el))) + (setq debug-point (ring-ref ess--dbg-backward-ring ring-el)) + (when (marker-buffer debug-point) + (pop-to-buffer-same-window (marker-buffer debug-point)) + (when (marker-position debug-point) + (goto-char (marker-position debug-point))))) + (push ev unread-command-events))) + +(defun ess-debug-insert-in-forward-ring () + "Insert `point-marker' into the forward-ring." + (interactive) + (ring-insert ess--dbg-forward-ring (point-marker)) + (message "Point inserted into the forward-ring")) + +(defvar ess-debug-indicator " DB" + "String to be displayed in mode-line alongside the process name. +Indicates that ess-debug-mode is turned on. When the debugger is +in active state this string is shown in upper case and +highlighted.") + +(defvar-local ess--dbg-mode-line-debug + '(:eval (let ((proc (get-process ess-local-process-name))) + (if (and proc (process-get proc 'dbg-active)) + (let ((str ess-debug-indicator)) + (ess-debug-minor-mode 1) ; activate the keymap + (put-text-property 1 (length str) + 'face '(:foreground "white" :background "red") + str) + str) + (ess-debug-minor-mode -1) + "")))) +(put 'ess--dbg-mode-line-debug 'risky-local-variable t) + +(defvar-local ess--dbg-mode-line-error-action + '(:eval (or (and (ess-process-live-p) + (ess-process-get 'on-error-action)) + ""))) +(put 'ess--dbg-mode-line-error-action 'risky-local-variable t) + +(defun ess--dbg-remove-empty-lines (string) + "Remove empty lines from STRING (which interfere with evals) during debug. +This function is placed in `ess-presend-filter-functions'." + ;; the process here is an ugly reliance on dynamic scope + (if (and ess--dbg-del-empty-p (ess-process-get 'dbg-active)) + (replace-regexp-in-string "\n\\s *$" "" string) + string)) + + +(defun ess-debug-start () + "Start the debug session. +Add to ESS the interactive debugging functionality, breakpoints, +watch and loggers. Integrates into ESS and iESS modes by binding +`ess-tracebug-map' to `ess-tracebug-prefix' in +`ess-mode-map' and `inferior-ess-mode-map' respectively." + (interactive) + (let ((dbuff (get-buffer-create (concat ess--dbg-output-buf-prefix "." ess-current-process-name "*"))) ;todo: make dbuff a string! + (proc (ess-get-process ess-local-process-name)) + (lpn ess-local-process-name)) + (process-put proc 'dbg-buffer dbuff); buffer were the look up takes place + (process-put proc 'dbg-active nil) ; t if the process is in active debug state. + ; Active debug states are usually those, in which prompt start with Browser[d]> + (set-process-filter proc 'inferior-ess-tracebug-output-filter) + (with-current-buffer (process-buffer proc) + (unless (equal ess-dialect "R") + (error "Can not activate the debugger for %s dialect" ess-dialect)) + (add-to-list 'ess--mode-line-process-indicator 'ess--dbg-mode-line-debug t) + (add-to-list 'ess--mode-line-process-indicator 'ess--dbg-mode-line-error-action t) + + (add-hook 'ess-presend-filter-functions 'ess--dbg-remove-empty-lines nil 'local)) + (with-current-buffer dbuff + (setq ess-local-process-name lpn) + (buffer-disable-undo) + ;; (setq buffer-read-only nil) + (make-local-variable 'overlay-arrow-position) ;; indicator for next-error functionality in the *ess.dbg*, useful?? + (goto-char (point-max)) + (setq ess--dbg-buf-p t ;; true if in *ess.dbg* buffer + ess--dbg-current-ref (point-marker) ;; used by goto-error functionality + ess--dbg-last-ref-marker (point-marker) ;; gives marker to reference of the last debugged line + ) + ;; (beginning-of-line) + ;; (setq buffer-read-only t) + ))) + +(defun ess-debug-stop () + "End the debug session. +Kill the *ess.dbg.[R_name]* buffer." + ;;; process plist is not removed, todo?low priority + (interactive) + (let ((proc (get-process ess-current-process-name))) ;;local? + (with-current-buffer (process-buffer proc) + (if (member ess-dialect '("XLS" "SAS" "STA")) + (error "Can not deactivate the debugger for %s dialect" ess-dialect)) + (delq 'ess--dbg-mode-line-debug ess--mode-line-process-indicator) + (delq 'ess--dbg-mode-line-error-action ess--mode-line-process-indicator) + (remove-hook 'ess-presend-filter-functions 'ess--dbg-remove-empty-lines 'local)) + (set-process-filter proc 'inferior-ess-output-filter) + (kill-buffer (process-get proc 'dbg-buffer)) + (process-put proc 'dbg-buffer nil) + (process-put proc 'dbg-active nil) + ;; (when (buffer-live-p ess--dbg-buffer) + ;; ;; (with-current-buffer ess--dbg-buffer + ;; ;; (set-buffer-modified-p nil) + ;; ;; ) + ;; (kill-buffer ess--dbg-buffer) + ;; ) + )) + + +(defun ess--make-busy-timer-function (process) + "Display the spiner of prompt if PROCESS is busy." + `(lambda () + (let ((pb ,process)) + (when (eq (process-status pb) 'run) ;; only when the process is alive + (with-current-buffer (process-buffer pb) + (if (not (process-get pb 'busy)) ;; if ready + (when (> ess--busy-count 0) + (setq ess--busy-count 0) + (force-mode-line-update) + (redisplay)) + (setq ess--busy-count (1+ (mod ess--busy-count (1- (length ess-busy-strings))))) + (force-mode-line-update) + (redisplay))))))) + +;; (ess--make-busy-prompt-function (get-process "R")) + +(defun ess--dbg-is-active-p () + "Return t if the current R process is in active debugging state." + (and (ess-process-live-p) + (ess-process-get 'dbg-active))) + +(defun ess--dbg-is-recover-p () + "Return t if the current R process is in active debugging state." + (and (ess-process-live-p) + (ess-process-get 'is-recover))) + +(defun ess-debug-active-p (&optional proc) + (and (ess-process-live-p proc) + (or (ess-process-get 'dbg-active proc) + (ess-process-get 'is-recover proc)))) + +(defvar ess--dbg-regexp-reference "debug \\w+ +\\(.+\\)#\\([0-9]+\\):") +(defvar ess--dbg-regexp-jump "debug \\w+ ") ;; debug at ,debug bei ,etc +(defvar ess--dbg-regexp-skip + ;; don't anchor to bol; secondary prompt can occur before (anything else?) + ;; "\\(\\(?:Called from: \\)\\|\\(?:debugging in: \\)\\|\\(?:#[0-9]*: +recover()\\)\\)") + "\\(\\(?:Called from: \\)\\|\\(?:#[0-9]*: +recover()\\)\\)") + +(defvar ess--dbg-regexp-no-skip + ;; exceptions for first skip (magrittr) + "debug_pipe") + +(defvar ess--dbg-regexp-debug "\\(\\(?:Browse[][0-9]+\\)\\|\\(?:debug: \\)\\)") +(defvar ess--dbg-regexp-selection "\\(Selection: \\'\\)") +(defvar ess--dbg-regexp-input (concat ess--dbg-regexp-debug "\\|" + ess--dbg-regexp-selection)) + +(defvar ess--suppress-next-output? nil) + + + +;;; MPI + +(defvar ess-mpi-control-regexp "\\([^]+\\)\\([^]+\\)") + +(defvar ess-mpi-alist + '(("message" . message) + ("error" . ess-mpi:error) + ("eval" . ess-mpi:eval) + ("y-or-n" . ess-mpi:y-or-n))) + +(defun ess-mpi:error (msg) + (message (format "Error in inferior: %s" msg))) + +(defun ess-mpi:eval (expr &optional callback) + "Evaluate EXP as Emacs expression. +If present, the CALLBACK string is passed through `format' with +returned value from EXPR and then sent to the subprocess." + (let ((result (eval (read expr)))) + (when callback + (ess-send-string (ess-get-process) (format callback result))))) + +(defun ess-mpi:y-or-n (prompt callback) + "Ask `y-or-n-p' with PROMPT. +The CALLBACK string is passed through `format' with returned +value from EXPR and then sent to the subprocess." + (let ((result (y-or-n-p prompt))) + (when callback + (ess-send-string (ess-get-process) (format callback result))))) + +(defun ess-mpi-handle-messages (buf) + "Handle all mpi messages in BUF and delete them." + (let ((obuf (current-buffer))) + (with-current-buffer buf + (goto-char (point-min)) + ;; This should be smarter because emacs might cut it in the middle of the + ;; message. In practice this almost never happen because we are + ;; accumulating output into the cache buffer. + (while (re-search-forward ess-mpi-control-regexp nil t) + (let* ((mbeg (match-beginning 0)) + (mend (match-end 0)) + (head (match-string 1)) + (payload (split-string (match-string 2) "")) + (handler (cdr (assoc head ess-mpi-alist)))) + (if handler + (condition-case-unless-debug err + (with-current-buffer obuf + (apply handler payload)) + (error (message (format "Error in mpi `%s' handler: %%s" head) + (error-message-string err)))) + ;; don't throw error here. The buffer must be cleaned first. + (message "Now handler defined for MPI message '%s" head)) + (goto-char mbeg) + (delete-region mbeg mend)))))) + +(defun ess--replace-long+-in-prompt (prompt is-final) + "Replace long + + + in PROMPT based on `inferior-ess-replace-long+' value. +If IS-FINAL means that PROMPT occurs at the end of the process +chunk. If non-nil, special care is taken not to drop last '+' +value as it might be a continuation prompt." + ;; see #576 for interesting input examples + (let ((len (length prompt))) + (if (or (null inferior-ess-replace-long+) + (< len 2)) + prompt + (let ((last+ (eq (elt prompt (- len 2)) ?+))) + (cond + ((eq inferior-ess-replace-long+ 'strip) + (if (and last+ is-final) + "+ " + "> ")) + ((eq inferior-ess-replace-long+ t) + (let ((prompt (replace-regexp-in-string "\\(\\+ \\)\\{2\\}\\(\\+ \\)+" + ess-long+replacement prompt))) + (if (and last+ (not is-final)) + ;; append > for aesthetic reasons + (concat prompt "> ") + prompt))) + (t (error "Invalid values of `inferior-ess-replace-long+'"))))))) + +(defun ess--offset-output (prev-prompt str) + "Add suitable offset to STR given the preceding PREV-PROMPT." + (if prev-prompt + (let ((len (length prev-prompt))) + ;; prompts have at least 2 chars + (if (eq (elt prev-prompt (- len 2)) ?+) + ;; when last + append > for aesthetic reasons + (concat "> \n" str) + (if (eq (elt str 0) ?\n) + ;; don't insert empty lines + str + (concat "\n" str)))) + str)) + +(defun ess--flush-accumulated-output (proc) + "Flush accumulated output of PROC into its output buffer. +Insertion happens chunk by chunk. A chunk is a region between two +prompts." + (let* ((abuf (ess--accumulation-buffer proc)) + (pbuf (process-buffer proc)) + (visibly (process-get proc :eval-visibly)) + (nowait (eq visibly 'nowait)) + (flush-timer (process-get proc 'flush-timer))) + (when (> (buffer-size abuf) 0) + (when (timerp flush-timer) + (cancel-timer flush-timer)) + (if (eq (buffer-local-value 'major-mode pbuf) 'fundamental-mode) + ;; FIXME: this cannot be, ess-command changes the filter + ;; Just in case if we are in *ess-command* buffer; restart the timer. + (process-put proc 'flush-timer + (run-at-time .02 nil #'ess--flush-accumulated-output proc)) + (ess-mpi-handle-messages abuf) + (with-current-buffer abuf + (goto-char (point-min)) + (let ((case-fold-search nil)) + (when (re-search-forward "Error\\(:\\| +in\\)" nil t) + (display-buffer (process-buffer proc)))) + (goto-char (point-min)) + ;; First long + + in the output mirrors the sent input by the user and + ;; is unnecessary in nowait case. A single + can be a continuation in + ;; the REPL, thus we check if there is an extra output after the + . + (when nowait + (when (looking-at "\\([+>] \\)\\{2,\\}\n?") + (goto-char (match-end 0)) + (when (eq (point) (point-max)) + ;; if this is the last prompt in the output back-up one prompt + ;; (cannot happen after \n) + (backward-char 2)))) + (let ((do-clean (not (eq visibly t))) + (pos2 (point)) + (pos1 (point)) + (tpos nil) + (prompt nil) + (regexp (if nowait + ;; we cannot disambiguate printed input fields and + ;; prompts in output in this case; match 2+ pluses or + ;; > and 2+ spaces + "\\(^\\([+>] \\)\\{2,\\}\\)\\|\\(> \\) +" + "^\\([+>] \\)+")) + (prev-prompt (process-get proc 'prev-prompt))) + (while (re-search-forward regexp nil t) + (setq pos1 (match-beginning 0) + tpos (if nowait + (or (match-end 1) (match-end 3)) + (match-end 0))) + ;; for debugging in R:accum window in order to see the pointer moving + ;; (set-window-point (get-buffer-window) tpos) + (when (> pos1 pos2) + (let ((str (buffer-substring pos2 pos1))) + (comint-output-filter proc (ess--offset-output prev-prompt str)))) + (setq pos2 tpos) + (setq prompt (let ((prompt (buffer-substring pos1 pos2))) + (if do-clean + (ess--replace-long+-in-prompt prompt (eq pos2 (point-max))) + prompt))) + ;; Cannot bypass this trivial call to comint-output-filter because + ;; external tools could rely on prompts (org-babel [#598] for + ;; example). Setting dummy regexp in order to avoid comint erasing + ;; this prompt which contrasts to how we output prompts in all + ;; other cases. + (with-current-buffer pbuf + (let ((comint-prompt-regexp "^$")) + (comint-output-filter proc prompt))) + (setq prev-prompt (and do-clean prompt) + pos1 pos2)) + ;; insert last chunk if any + (unless (eq pos1 (point-max)) + (let ((str (buffer-substring-no-properties pos1 (point-max)))) + (comint-output-filter proc (ess--offset-output prev-prompt str)) + (setq prev-prompt nil))) + (process-put proc 'prev-prompt prev-prompt) + (process-put proc 'flush-time (and (process-get proc 'busy) + (float-time))) + (erase-buffer))))))) + +(defun inferior-ess-tracebug-output-filter (proc string) + "Standard output filter for the inferior ESS process. +When `ess-debug' is active, this is the filter. Call +`inferior-ess-output-filter'. Check for debug +reg-expressions (see `ess--dbg-regexp-debug',...), when found +puts iESS in the debugging state. If in debugging state, mirrors +the output into *ess.dbg* buffer." + (let* ((is-iess (or (derived-mode-p 'ess-watch-mode) + (derived-mode-p 'inferior-ess-mode))) + (pbuf (process-buffer proc)) + (abuf (ess--accumulation-buffer proc)) + (dbuff (process-get proc 'dbg-buffer)) + (wbuff (get-buffer ess-watch-buffer)) + (was-in-dbg (process-get proc 'dbg-active)) + (was-in-recover (process-get proc 'is-recover)) + (input-point (point-marker)) + (match-jump (string-match ess--dbg-regexp-jump string)) + (match-input (string-match ess--dbg-regexp-input string)) + (match-selection (and match-input + (match-string 2 string))) ;; Selection: + (match-skip (and ess-debug-skip-first-call + (string-match ess--dbg-regexp-skip string) + (not (string-match ess--dbg-regexp-no-skip string)))) + (match-dbg (or match-skip (and match-input (not match-selection)))) + (is-ready (inferior-ess--set-status proc string)) + (new-time (float-time)) + (last-time (process-get proc 'flush-time)) + (flush-timer (process-get proc 'flush-timer))) + + ;; current-buffer is still the user's input buffer here + (ess--if-verbose-write-process-state proc string) + (inferior-ess-run-callback proc string) + (process-put proc 'is-recover match-selection) + + (if (or (process-get proc 'suppress-next-output?) + ess--suppress-next-output?) + + ;; works only for surpressing short output, enough for now (for callbacks) + (process-put proc 'suppress-next-output? nil) + + (with-current-buffer abuf + (goto-char (point-max)) + (insert string)) + + ;; cancel the timer each time we enter this filter + (when (timerp flush-timer) + (cancel-timer flush-timer) + (process-put proc 'flush-timer nil)) + + (unless last-time ;; don't flush for the first time + (setq last-time new-time) + (process-put proc 'flush-time new-time)) + + ;; flush periodically + (let ((fast-flush (or is-ready + ;; for the sake of ess-eval-linewise + (process-get proc 'sec-prompt)))) + (if (or + ;; theoretically we should flush asynchronously in all cases but + ;; somewhat unexpectedly it introduces much more randomness during + ;; batch testing. todo: flush directly for now and either remove or + ;; improve on the next refactoring iteration + fast-flush + (> (- new-time last-time) .5) + (and (boundp 'edebug-mode) edebug-mode) + ;; the flush is not getting called if the third party call + ;; accept-process-output in a loop (e.g. org-babel-execute-src-block) + (and (boundp 'org-babel-current-src-block-location) + org-babel-current-src-block-location)) + (ess--flush-accumulated-output proc) + ;; setup new flush timer; ideally also for fast-flush cased in order + ;; to avoid detecting intermediate prompts as end-of-output prompts + (let ((timeout (if fast-flush .01 .2))) + (process-put proc 'flush-timer + (run-at-time timeout nil #'ess--flush-accumulated-output proc)))))) + + ;; WATCH + (when (and is-ready wbuff) ;; refresh only if the process is ready and wbuff exists, (not only in the debugger!!) + (ess-watch-refresh-buffer-visibly wbuff)) + + ;; JUMP to line if debug expression was matched + (when match-jump + (with-current-buffer dbuff ;; insert string in *ess.dbg* buffer + (goto-char (point-max)) + (insert (concat "|-" string "-|"))) + (ess--dbg-goto-last-ref-and-mark dbuff is-iess)) + + ;; (with-current-buffer dbuff ;; un-comment to see the value of STRING just before debugger exists + ;; (let ((inhibit-read-only t)) + ;; (goto-char (point-max)) + ;; (insert (concat " ---\n " string "\n ---")) + ;; )) + + ;; SKIP if needed + (when (and match-skip (not was-in-recover)) + (process-send-string proc "n\n")) + + ;; EXIT the debugger + (when (and was-in-dbg + (not (or match-jump match-dbg)) + (or is-ready match-selection)) + (ess--dbg-deactivate-overlays) + (process-put proc 'dbg-active nil) + ;; (message "|<-- exited debugging -->|") + (when wbuff + (ess-watch-refresh-buffer-visibly wbuff))) + + ;; ACTIVATE the debugger if entered for the first time + (when (and (not was-in-dbg) + (not match-selection) + (or match-jump match-dbg)) + (unless is-iess + (ring-insert ess--dbg-forward-ring input-point)) + (process-put proc 'dbg-active t) + (message + (ess--debug-keys-message-string)) + (unless match-jump + ;; no source reference, simply show the inferiro + (display-buffer pbuf))) + + (when match-selection ;(and (not was-in-recover) match-selection) + (ess-electric-selection t)))) + + +(defvar ess-debug-minor-mode-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "M-C") 'ess-debug-command-continue) + (define-key map [(control meta ?C)] 'ess-debug-command-continue-multi) + (define-key map (kbd "M-N") 'ess-debug-command-next) + (define-key map [(control meta ?N)] 'ess-debug-command-next-multi) + (define-key map (kbd "M-Q") 'ess-debug-command-quit) + (define-key map (kbd "M-U") 'ess-debug-command-up) + map) + "Keymap active when ESS process is in debugging state. +\\{ess-debug-minor-mode-map}") + + +(define-minor-mode ess-debug-minor-mode + "Minor mode activated when ESS process is in debugging state." + :lighter nil + :keymap ess-debug-minor-mode-map) + +(defun ess--dbg-goto-last-ref-and-mark (dbuff &optional other-window) + "Open the most recent debug reference, and set all the necessary marks and overlays. +It's called from `inferior-ess-tracebug-output-filter'. DBUFF +must be the *ess.dbg* buffer associated with the process. If +OTHER-WINDOW is non nil, attempt to open the location in a +different window." + (interactive) + (let (t-debug-position ref) + (with-current-buffer dbuff + (setq ref (ess--dbg-get-next-ref -1 (point-max) ess--dbg-last-ref-marker + ess--dbg-regexp-reference)) ; sets point at the end of found ref + (when ref + (move-marker ess--dbg-last-ref-marker (point-at-eol)) + ;; each new step repositions the current-ref! + (move-marker ess--dbg-current-ref ess--dbg-last-ref-marker))) + (when ref + (let ((buf (apply 'ess--dbg-goto-ref other-window ref))) + (if buf + ;; if referenced buffer has been found, put overlays: + (with-current-buffer buf + (setq t-debug-position (copy-marker (point-at-bol))) + (if (equal t-debug-position ess--dbg-current-debug-position) + (progn ;; highlights the overlay for ess--dbg-blink-interval seconds + (overlay-put ess--dbg-current-debug-overlay 'face 'ess--dbg-blink-same-ref-face) + (run-with-timer ess-debug-blink-interval nil + (lambda () + (overlay-put ess--dbg-current-debug-overlay 'face 'ess-debug-current-debug-line-face)))) + ;; else + (ess--dbg-activate-overlays))) + ;;else, buffer is not found: highlight and give the corresponding message + (overlay-put ess--dbg-current-debug-overlay 'face 'ess--dbg-blink-ref-not-found-face) + (run-with-timer ess-debug-blink-interval nil + (lambda () + (overlay-put ess--dbg-current-debug-overlay 'face 'ess-debug-current-debug-line-face))) + (message "Reference %s not found" (car ref))))))) + +(defun ess--dbg-goto-ref (other-window file line &optional col) + "Opens the reference given by FILE, LINE and COL. +Try to open in a different window if OTHER-WINDOW is nil. Return +the buffer if found, or nil otherwise be found. +`ess--dbg-find-buffer' is used to find the FILE and open the +associated buffer. If FILE is nil return nil." + (let ((mrk (car (ess--dbg-create-ref-marker file line col))) + (lpn ess-local-process-name)) + (when mrk + (let ((buf (marker-buffer mrk))) + (if (not other-window) + (pop-to-buffer-same-window buf) + (let ((this-frame (window-frame (get-buffer-window (current-buffer))))) + (display-buffer buf) + ;; simple save-frame-excursion + (unless (eq this-frame (window-frame (get-buffer-window buf t))) + (ess-select-frame-set-input-focus this-frame)))) + ;; set or re-set to lpn as this is the process with debug session on + (with-current-buffer buf + (setq ess-local-process-name lpn) + (goto-char mrk) + (set-window-point (get-buffer-window buf) mrk)) + buf)))) + +;; temporary, hopefully org folks implement something similar +(defvar org-babel-tangled-file nil) +(declare-function org-babel-tangle-jump-to-org "ob-tangle.el") + +(defun ess--dbg-create-ref-marker (file line &optional col) + "Create markers to the reference given by FILE, LINE and COL. +Return list of two markers MK-start and MK-end. MK-start is the +position of error. Mk-end is the end of the line where error +occurred. If buffer associated with FILE is not found, or line is +nil, or TB-INDEX is not found return nil." + (if (stringp line) (setq line (string-to-number line))) + (if (stringp col) (setq col (string-to-number col))) + (let* ((srcref (gethash file ess--srcrefs)) + (file (replace-regexp-in-string "^\n" "" ;; hack for gnu regexp + (or (car srcref) file))) + (tb-index (cadr srcref)) + (buffer (ess--dbg-find-buffer file)) + pos) + (when (and buffer line) + (save-excursion + (with-current-buffer buffer + (save-restriction + (widen) ;; how does this behave in narrowed buffers? tothink: + (goto-char 1) + (setq pos (point)) + (when tb-index + (while (and (not (eq tb-index (get-text-property pos 'tb-index))) + (setq pos (next-single-property-change pos 'tb-index))))) + (unless pos + ;; use beg position if index not found + (setq pos (nth 2 srcref))) + (when pos + (goto-char pos) + (forward-line (1- line)) + (if col + (goto-char (+ (point-at-bol) col)) + (back-to-indentation)) + (when (and (boundp 'org-babel-tangled-file) + org-babel-tangled-file) + (org-babel-tangle-jump-to-org)) + (list (point-marker) (copy-marker (point-at-eol)))))))))) + +(defun ess--dbg-find-buffer (filename) + "Find a buffer for file FILENAME. +If FILENAME is not found at all, ask the user where to find it if +`ess--dbg-ask-for-file' is non-nil. Search the directories in +`ess-tracebug-search-path'." + (let ((dirs (append + (ess-r-package-source-dirs) + (cl-loop for d in ess-tracebug-search-path + append (ess-r-package--all-source-dirs d)))) + buffer name) + (setq dirs (cons default-directory dirs)) ;; TODO: should be R working dir + ;; 1. search already open buffers for match (associated file might not even exist yet) + (dolist (bf (buffer-list)) + (with-current-buffer bf + (when (and buffer-file-name + (or (and (file-name-absolute-p filename) + (string-match (format "%s\\'" filename) buffer-file-name)) + (equal filename (file-name-nondirectory buffer-file-name)))) + (setq buffer bf) + (cl-return)))) + ;; 2. The file name is absolute. Use its explicit directory as + ;; the first in the search path, and strip it from FILENAME. + (when (and (null buffer) + (file-name-absolute-p filename)) + (setq filename (abbreviate-file-name (expand-file-name filename)) + dirs (cons (file-name-directory filename) dirs) + filename (file-name-nondirectory filename))) + ;; 3. Now search the path. + (while (and (null buffer) dirs) + (let ((thisdir (pop dirs))) + (setq name (expand-file-name filename thisdir) + buffer (and (file-exists-p name) + (find-file-noselect name))))) + ;; 4. Ask for file if not found (tothink: maybe remove this part?) + (if (and (null buffer) + ess-debug-ask-for-file) + (save-excursion ;This save-excursion is probably not right. + (let* ((pop-up-windows t) + (name (read-file-name + (format "Find next line in (default %s): " filename) + nil filename t nil)) + (origname name)) + (cond + ((not (file-exists-p name)) + (message "Cannot find file `%s'" name) + (ding) (sit-for 2)) + ((and (file-directory-p name) + (not (file-exists-p + (setq name (expand-file-name filename name))))) + (message "No `%s' in directory %s" filename origname) + (ding) (sit-for 2)) + (t + (setq buffer (find-file-noselect name))))))) + ;; nil if not found + buffer)) + +(defun ess--dbg-get-next-ref (n &optional pt BOUND REG nF nL nC) + "Move point to the next reference in the *ess.dbg* buffer. + +Must be called from *ess.dbg* buffer. +It returns the reference in the form (file line col) /all strings/ , +or NIL if not found . Prefix arg N says how many error messages +to move forwards (or backwards, if negative). Optional arg PT, +if non-nil, specifies the value of point to start looking for the +next message, default to (point). BOUND is the limiting position +of the search. REG is the regular expression to search with. nF +- sub-expression of REG giving the 'file'; defaults to 1. nL - +giving the 'line'; defaults to 2. nC - sub-expr giving the +'column'; defaults to 3." + (interactive "p") + (unless ess--dbg-buf-p + (error "Not in *ess.dbg* buffer")) + (setq nF (or nF 1) + nL (or nL 2) + nC (or nC 3)) + (or pt (setq pt (point))) + ;; (message "ess--dbg-last-ref-marker%s vs pt%s vs point-max%s" ess--dbg-last-ref-marker pt (point-max)) + (goto-char pt) + (if (search-forward-regexp REG BOUND t n) + (list (match-string nF) (match-string-no-properties nL) (match-string-no-properties nC)) + nil)) + +(defun ess--dbg-next-ref-function (n &optional reset) + "Advance to the next reference and visit the location given by the reference. +This is the value of `next-error-function' in *ess.dbg* buffers." + (interactive "p") + (if reset + (set-marker ess--dbg-current-ref ess--dbg-last-ref-marker)) + (let ((loc (ess--dbg-get-next-ref n nil ess--dbg-current-ref)) ;; moves point to next/prev ref if any + ; loc is (file . line_nr) + dbuff) + (if loc + (progn + (set-marker ess--dbg-current-ref (line-end-position)) + (set-marker overlay-arrow-position (line-beginning-position)) + (setq dbuff (ess--dbg-find-buffer (car loc))) + (pop-to-buffer-same-window dbuff) + (save-restriction + (widen) + (goto-char 1) + (forward-line (1- (cdr loc)))) + (move-marker ess--dbg-current-debug-position (line-beginning-position)) ; move the overlay-arrow + (back-to-indentation)) + (if (>= 0 (or n 1)) + (error "Moved past first debug line") + (error "Moved past last debug line"))))) + +(defun ess--debug-keys-message-string (&optional map) + (let ((overriding-local-map (or map ess-debug-minor-mode-map))) + (substitute-command-keys + (mapconcat 'identity + '("(\\[ess-debug-command-continue])cont" + "(\\[ess-debug-command-continue-multi])cont-multi" + "(\\[ess-debug-command-next])next" + "(\\[ess-debug-command-next-multi])next-multi" + "(\\[ess-debug-command-up])up" + "(\\[ess-debug-command-quit])quit") + " ")))) + +(defun ess-electric-selection (&optional wait) + "Call commands defined in `ess-electric-selection-map'. +Single-key input commands are those, which once executed do not +requre the prefix command for subsequent invocation. + +If WAIT is t, wait for next input and ignore the keystroke which +triggered the command." + (interactive) + (ess--execute-electric-command ess-electric-selection-map + "Selection: " wait + (not (ess-process-get 'is-recover)))) + +(defun ess-debug-command-digit (&optional ev) + "Digit commands in selection mode. +If supplied, EV must be a proper key event or a string representing the digit." + (interactive) + (ess-force-buffer-current) + (unless (ess--dbg-is-recover-p) + (error "Recover is not active")) + (unless ev + (setq ev last-command-event)) + (let* ((ev-char (if (stringp ev) + ev + (char-to-string (event-basic-type ev)))) + (proc (get-process ess-current-process-name)) + (mark-pos (marker-position (process-mark proc))) + (comint-prompt-read-only nil) + prompt depth) + (with-current-buffer (process-buffer proc) + (goto-char mark-pos) + (save-excursion + (when (re-search-backward "\\(?: \\|^\\)\\([0-9]+\\):[^\t]+Selection:" ess--tb-last-input t) + (setq depth (string-to-number (match-string 1))) + (when (> depth 9) + (setq ev-char (ess-completing-read "Selection" (mapcar 'number-to-string + (number-sequence depth 0 -1)) + nil t ev-char nil))))) + (setq prompt (delete-and-extract-region (point-at-bol) mark-pos)) + (insert (concat prompt ev-char "\n")) + (ess-send-string proc ev-char) + (move-marker (process-mark proc) (max-char))))) + +(defun ess-debug-command-next () + "Step next in debug mode. +Equivalent to 'n' at the R prompt." + (interactive) + (ess-force-buffer-current) + (unless (ess--dbg-is-active-p) + (error "Debugger is not active")) + (if (ess--dbg-is-recover-p) + (ess-send-string (ess-get-process) "0") + (ess-send-string (ess-get-process) "n"))) + +(defun ess-debug-command-next-multi (&optional N) + "Ask for N and step (n) N times in debug mode." + (interactive) + (ess-force-buffer-current) + (unless (ess--dbg-is-active-p) + (error "Debugger is not active")) + (let ((N (or N (read-number "Number of steps: " 10))) + (ess--suppress-next-output? t)) + (while (and (ess--dbg-is-active-p) (> N 0)) + (ess-debug-command-next) + (ess-wait-for-process) + (setq N (1- N)))) + (ess-debug-command-next)) + +(defun ess-debug-command-continue-multi (&optional N) + "Ask for N, and continue (c) N times in debug mode." + (interactive) + (ess-force-buffer-current) + (unless (ess--dbg-is-active-p) + (error "Debugger is not active")) + (let ((N (or N (read-number "Number of continuations: " 10))) + (ess--suppress-next-output? t)) + (while (and (ess--dbg-is-active-p) (> N 1)) + (ess-debug-command-continue) + (ess-wait-for-process) + (setq N (1- N)))) + (ess-debug-command-continue)) + +(defun ess-debug-command-up () + "Step up one call frame. +Equivalent to 'n' at the R prompt." + (interactive) + (ess-force-buffer-current) + (unless (ess--dbg-is-active-p) + (error "Debugger is not active")) + (let ((up-cmd "try(browserSetDebug(), silent=T)\nc\n")) + (ess-send-string (ess-get-process) up-cmd))) + +;; (defun ess-debug-previous-error (&optional ev) +;; "Go to previous reference during the debug process. +;; R doesn't support step backwards. This command just takes you through +;; debug history." +;; (interactive) +;; (previous-error)) + +(defun ess-debug-command-quit () + "Quits the browser/debug in R process. +Equivalent of `Q' at the R prompt." + (interactive) + (ess-force-buffer-current) + (cond ((ess--dbg-is-recover-p) + (ess-send-string (ess-get-process) "0" t)) + ;; if recover is called in a loop the following stalls emacs + ;; (ess-wait-for-process proc nil 0.05) + ((ess--dbg-is-active-p) + (ess-send-string (ess-get-process) "Q" t)) + (t + (error "Debugger is not active")))) + +(defun ess-debug-command-continue () + "Continue the code execution. +Equivalent of `c' at the R prompt." + (interactive) + (ess-force-buffer-current) + (cond ((ess--dbg-is-recover-p) + (ess-send-string (ess-get-process) "0")) + ((ess--dbg-is-active-p) + (ess-send-string (ess-get-process) "c")) + (t + (error "Debugger is not active")))) + +(defun ess-tracebug-set-last-input (&rest _args) + "Move `ess--tb-last-input' marker to the process mark. +ARGS are ignored to allow using this function in process hooks." + (let* ((last-input-process (get-process ess-local-process-name)) + (last-input-mark (copy-marker (process-mark last-input-process)))) + (with-current-buffer (process-buffer last-input-process) + (when (local-variable-p 'ess--tb-last-input) ;; TB might not be active in all processes + (save-excursion + (setq ess--tb-last-input last-input-mark) + (goto-char last-input-mark) + (inferior-ess-move-last-input-overlay)))))) + +;;;_ + BREAKPOINTS + +(defface ess-bp-fringe-inactive-face + '((((class color) (background light) (min-colors 88)) (:foreground "DimGray")) + (((class color) (background dark) (min-colors 88)) (:foreground "LightGray")) + (((background light) (min-colors 8)) (:foreground "blue")) + (((background dark) (min-colors 8)) (:foreground "cyan"))) + "Face used to highlight inactive breakpoints." + :group 'ess-debug) + +(defface ess-bp-fringe-logger-face + '((((class color) (background light) (min-colors 88)) (:foreground "dark red")) + (((class color) (background dark) (min-colors 88)) (:foreground "tomato1")) + (((background light) (min-colors 8)) (:foreground "blue")) + (((background dark) (min-colors 8)) (:foreground "cyan"))) + "Face used to highlight loggers." + :group 'ess-debug) + +(defface ess-bp-fringe-browser-face + '((((class color) (background light) (min-colors 88)) (:foreground "medium blue")) + (((class color) (background dark) (min-colors 88)) (:foreground "deep sky blue")) + (((background light) (min-colors 8)) (:foreground "blue")) + (((background dark) (min-colors 8)) (:foreground "cyan"))) + "Face used to highlight 'browser' breakpoints." + :group 'ess-debug) + +(defface ess-bp-fringe-recover-face + '((((class color) (background light) (min-colors 88)) (:foreground "dark magenta")) + (((class color) (background dark) (min-colors 88)) (:foreground "magenta")) + (((background light) (min-colors 8)) (:foreground "magenta")) + (((background dark) (min-colors 8)) (:foreground "magenta"))) + "Face used to highlight 'recover' breakpoints fringe." + :group 'ess-debug) + +(defun ess--bp-pipe-block-p () + (save-excursion + (let ((inhibit-point-motion-hooks t) + (inhibit-field-text-motion t)) + (forward-line -1) + (end-of-line) + (looking-back "\\%>\\%[ \t]*" (point-at-bol))))) + +(defvar ess--bp-identifier 1) +(defcustom ess-bp-type-spec-alist + '((pipe ".ess_pipe_browser() %%>%%" "B %>%\n" filled-square ess-bp-fringe-browser-face ess--bp-pipe-block-p) + (browser "browser(expr=is.null(.ESSBP.[[%s]]));" "B>\n" filled-square ess-bp-fringe-browser-face) + (recover "recover()" "R>\n" filled-square ess-bp-fringe-recover-face)) + "List of lists of breakpoint types. +Each sublist has five elements: +1- symbol giving the name of specification +2- R expression to be inserted (%s is substituted with unique identifier). +3- string to be displayed instead of the expression +4- fringe bitmap to use +5- face for fringe and displayed string +6- optional, a function which should return nil if this BP doesn't apply to current context." + :group 'ess-debug + :type '(alist :key-type symbol + :value-type (group string string symbol face))) + +(defcustom ess-bp-inactive-spec + '(inactive "##" filled-square ess-bp-fringe-inactive-face) + "List giving the inactive breakpoint specifications." + ;; List format is identical to that of the elements of + ;; `ess-bp-type-spec-alist' except that the second element giving + ;; the R expression is meaningless here." ;;fixme: second element is missing make it nil for consistency with all other specs + :group 'ess-debug + :type 'list) + +(defcustom ess-bp-conditional-spec + '(conditional "browser(expr={%s})" "CB[ %s ]>\n" question-mark ess-bp-fringe-browser-face) + "List giving the conditional breakpoint specifications. +List format is identical to that of the elements of +`ess-bp-type-spec-alist'. User is asked for the conditional +expression to be replaced instead of %s in the second and third +elements of the specifications." + :group 'ess-debug + :type 'list) + +(defcustom ess-bp-logger-spec + '(logger ".ess_log_eval('%s')" "L[ \"%s\" ]>\n" hollow-square ess-bp-fringe-logger-face) + "List giving the loggers specifications. +List format is identical to that of `ess-bp-type-spec-alist'." + :group 'ess-debug + :type 'list) + + +(defun ess-bp-get-bp-specs (type &optional condition no-error) + "Get specs for TYPE." + (let ((spec-alist (cond + ((eq type 'conditional) + (let ((tl (copy-sequence ess-bp-conditional-spec))) + (when (eq (length condition) 0) + (setq condition "TRUE")) + (setcar (cdr tl) (format (cadr tl) condition)) + (setcar (cddr tl) (format (caddr tl) condition)) + (list tl))) + ((eq type 'logger) + (let ((tl (copy-sequence ess-bp-logger-spec))) + (when (eq (length condition) 0) + (setq condition "watchLog")) + (setcar (cdr tl) (format (cadr tl) condition)) + (setcar (cddr tl) (format (caddr tl) condition)) + (list tl))) + (t (copy-sequence ess-bp-type-spec-alist))))) + (or (assoc type spec-alist) + (if no-error + nil + (error "Undefined breakpoint type %s" type))))) + +(defun ess-bp-create (type &optional condition no-error) + "Set breakpoint for the current line. +Returns the beginning position of the hidden text." + (let* ((bp-specs (ess-bp-get-bp-specs type condition no-error)) + (init-pos (point-marker)) + (fringe-bitmap (nth 3 bp-specs)) + (fringe-face (nth 4 bp-specs)) + (displ-string (nth 2 bp-specs)) + (bp-id (format "\"@%s@\"" + (setq ess--bp-identifier (1+ ess--bp-identifier)))) + (bp-command (concat (format (nth 1 bp-specs) bp-id) + "##:ess-bp-end:##\n")) + (dummy-string (format "##:ess-bp-start::%s@%s:##\n" (car bp-specs) condition)) + insertion-pos) + (when bp-specs + (set-marker init-pos (1+ init-pos)) + (setq displ-string (propertize displ-string + 'face fringe-face + 'font-lock-face fringe-face)) + (setq bp-command (propertize bp-command + 'ess-bp t + 'bp-id bp-id + 'bp-active t + 'intangible 'ess-bp + 'rear-nonsticky '(intangible ess-bp bp-type) + 'bp-type type + 'bp-substring 'command + 'display displ-string)) + (setq dummy-string (propertize + (ess-tracebug--propertize dummy-string fringe-bitmap fringe-face "*") + 'ess-bp t + 'intangible 'ess-bp + 'bp-type type + 'bp-substring 'dummy)) + (ess-tracebug--set-left-margin) + (back-to-indentation) + (setq insertion-pos (point) ) + (insert (concat dummy-string bp-command)) + (indent-for-tab-command) + (goto-char (1- init-pos)) ;; sort of save-excursion + insertion-pos))) + +(defun ess-bp-recreate-all () + "Internal function to recreate all bp." + (save-excursion + (save-restriction + (with-silent-modifications + (widen) + (goto-char (point-min)) + (while (re-search-forward + "\\(##:ess-bp-start::\\(.*\\):##\n\\)\\(.+##:ess-bp-end:##\n\\)" nil t) + (let ((dum-beg (match-beginning 1)) + (dum-end (match-end 1)) + (comm-beg (match-beginning 3)) + (comm-end (match-end 3)) + (type (match-string 2)) + (bp-command (match-string 3)) + bp-id dum-props condition) + (when (string-match "^\\(\\w+\\)@\\(.*\\)\\'" type) + (setq condition (match-string 2 type)) + (setq type (match-string 1 type))) + (setq bp-id + (if (string-match "\"@[0-9]+@\"" bp-command) + (match-string 0 bp-command) + (setq ess--bp-identifier (1+ ess--bp-identifier)))) + (setq type (intern type)) + (let* ((bp-specs (ess-bp-get-bp-specs type condition t)) + (displ-string (nth 2 bp-specs)) + (fringe-face (nth 4 bp-specs)) + (fringe-bitmap (nth 3 bp-specs))) + (when bp-specs + (setq displ-string (propertize displ-string + 'face fringe-face + 'font-lock-face fringe-face)) + (add-text-properties comm-beg comm-end + (list 'ess-bp t + 'bp-id bp-id + 'intangible 'ess-bp + 'rear-nonsticky '(intangible ess-bp bp-type) + 'bp-type type + 'bp-substring 'command + 'display displ-string)) + (setq dum-props + (if window-system + (list 'display (list 'left-fringe fringe-bitmap fringe-face)) + (list 'display (list '(margin left-margin) + (propertize "dummy" + 'font-lock-face fringe-face + 'face fringe-face))))) + (add-text-properties dum-beg dum-end + (append dum-props + (list 'ess-bp t + 'intangible 'ess-bp + 'bp-type type + 'bp-substring 'dummy))) + ;; (when comment-beg + ;; (add-text-properties comment-beg comment-end + ;; (list 'ess-bp t + ;; 'bp-id bp-id + ;; 'intangible 'ess-bp + ;; 'display (propertize (nth 1 ess-bp-inactive-spec) 'face fringe-face) + ;; 'bp-type type + ;; 'bp-substring 'comment))) + )))))))) + +(add-hook 'ess-r-mode-hook 'ess-bp-recreate-all) + + +(defun ess-bp-get-bp-position-nearby () + "Get nearby break points. +Return the cons (beg . end) of breakpoint limit points closest to +the current position. Only currently visible region of the buffer +is searched. This command is intended for use in interactive +commands like `ess-bp-toggle-state' and `ess-bp-kill'. Use +`ess-bp-previous-position' in programs." + (interactive) + (let* ((pos-end (if (get-char-property (1- (point)) 'ess-bp) + (point) + (previous-single-property-change (point) 'ess-bp nil (window-start)))) + (pos-start (if (get-char-property (point) 'ess-bp) ;;check for bobp + (point) + (next-single-property-change (point) 'ess-bp nil (window-end)))) + dist-up dist-down) + (unless (eq pos-end (window-start)) + (setq dist-up (- (line-number-at-pos (point)) + (line-number-at-pos pos-end)))) + (unless (eq pos-start (window-end)) + (setq dist-down (- (line-number-at-pos pos-start) + (line-number-at-pos (point))))) + (if (and dist-up dist-down) + (if (< dist-up dist-down) + (cons (previous-single-property-change pos-end 'ess-bp nil (window-start)) pos-end) + (cons pos-start (next-single-property-change pos-start 'ess-bp nil (window-end)))) + (if dist-up + (cons (previous-single-property-change pos-end 'ess-bp nil (window-start)) pos-end) + (if dist-down + (cons pos-start (next-single-property-change pos-start 'ess-bp nil (window-end)))))))) + + +(defun ess-bp-previous-position () + "Get previous breakpoints. +Return the cons (beg . end) of breakpoint limit points closest +to the current position, nil if not found." + (let* ( (pos-end (if (get-char-property (1- (point)) 'ess-bp) + (point) + (previous-single-property-change (point) 'ess-bp )))) + (if pos-end + (cons (previous-single-property-change pos-end 'ess-bp) pos-end)))) + +(defun ess-bp-set () + "Set a breakpoint." + (interactive) + (let* ((pos (ess-bp-get-bp-position-nearby)) + (same-line (and pos + (<= (point-at-bol) (cdr pos)) + (>= (point-at-eol) (car pos)))) + (types ess-bp-type-spec-alist) + (ev last-command-event) + (com-char (event-basic-type ev)) + bp-type) + (when same-line + ;; set bp-type to next type in types + (setq bp-type (get-text-property (car pos) 'bp-type)) + (setq types (cdr (member (assq bp-type types) types))) ; nil if bp-type is last in the list + (when (null types) + (setq types ess-bp-type-spec-alist)) + (ess-bp-kill) + (indent-for-tab-command)) + ;; skip contextual bps + (while (and (nth 5 (car types)) + (not (funcall (nth 5 (car types))))) + (pop types)) + (setq bp-type (pop types)) + (ess-bp-create (car bp-type)) + (while (eq (event-basic-type (setq ev (read-event (format "'%c' to cycle" com-char)))) + com-char) + (if (null types) (setq types ess-bp-type-spec-alist)) + (ess-bp-kill) + ;; skip contextual bps + (while (and (nth 5 (car types)) + (not (funcall (nth 5 (car types))))) + (pop types)) + (setq bp-type (pop types)) + (ess-bp-create (car bp-type)) + (indent-for-tab-command)) + (push ev unread-command-events))) + + +(defun ess-bp-set-conditional (condition) + (interactive "sBreakpoint condition: ") + (ess-bp-create 'conditional condition) + (indent-for-tab-command)) + +(defun ess-bp-set-logger (name) + (interactive "sLogger name : ") + (ess-bp-create 'logger name) + (indent-for-tab-command)) + +(defun ess-bp-kill (&optional interactive?) + "Remove the breakpoint nearby." + (interactive "p") + (let ((pos (ess-bp-get-bp-position-nearby)) + (init-pos (make-marker))) + (if (null pos) + (if interactive? (message "No breakpoints nearby")) + (if (eq (point) (point-at-eol)) + (goto-char (1- (point)))) ;; work-arround for issue 3 + (set-marker init-pos (point)) + (goto-char (car pos)) + (delete-region (car pos) (cdr pos)) + (indent-for-tab-command) + (goto-char init-pos) + (if (eq (point) (point-at-eol)) (forward-char))))) + +(defun ess-bp-kill-all nil + "Delete all breakpoints in current buffer." + (interactive) + (let ((count 0) + (init-pos (make-marker)) + pos) + (set-marker init-pos (1+ (point))) + (save-excursion ;; needed if error + (goto-char (point-max)) + (while (setq pos (ess-bp-previous-position)) + (goto-char (car pos)) + (delete-region (car pos) (cdr pos)) + (indent-for-tab-command) + (setq count (1+ count))) + (if (eq count 1) + (message "Killed 1 breakpoint") + (message "Killed %d breakpoint(s)" count))) + (goto-char (1- init-pos)))) + + +(defun ess-bp-toggle-state () + "Toggle the breakpoint between active and inactive states. + +For standard breakpoints, the effect of this command is +immediate, that is you don't need to source your code and it +works even in the process of debugging. + +For loggers, recover and conditional breakpoints this command +just comments the breakpoint in the source file. + +If there is no active R session, this command triggers an error." + (interactive) + (unless (and ess-local-process-name + (get-process ess-local-process-name)) + (error "No R session in this buffer")) + (save-excursion + (let ((pos (ess-bp-get-bp-position-nearby)) + (fringe-face (nth 3 ess-bp-inactive-spec)) + (inhibit-point-motion-hooks t) ;; deactivates intangible property + bp-id bp-specs beg-pos-command) + (if (null pos) + (message "No breakpoints in the visible region") + (goto-char (car pos)) + (setq beg-pos-command (previous-single-property-change + (cdr pos) 'bp-substring nil (car pos)) + bp-id (get-char-property beg-pos-command 'bp-id)) + (goto-char beg-pos-command) + (if (get-char-property beg-pos-command 'bp-active) + (progn + (put-text-property (car pos) beg-pos-command ;; dummy display change + 'display (list 'left-fringe (nth 2 ess-bp-inactive-spec) fringe-face)) + (put-text-property beg-pos-command (cdr pos) + 'bp-active nil) + (ess-command (format ".ESSBP.[[%s]] <- TRUE\n" bp-id))) + (setq bp-specs (assoc (get-text-property (point) 'bp-type) ess-bp-type-spec-alist)) + (put-text-property beg-pos-command (cdr pos) + 'bp-active t) + (put-text-property (car pos) beg-pos-command + 'display (list 'left-fringe (nth 3 bp-specs) (nth 4 bp-specs))) + (ess-command (format ".ESSBP.[[%s]] <- NULL\n" bp-id)) + ;; (insert (propertize "##" + ;; 'ess-bp t + ;; 'intangible 'ess-bp + ;; 'display (propertize (nth 1 ess-bp-inactive-spec) 'face fringe-face) + ;; 'bp-type (get-char-property (point) 'bp-type) + ;; 'bp-substring 'comment)) + ))))) + + +(defun ess-bp-make-visible () + "Make bp text visible." + (interactive) + (let ((pos (ess-bp-get-bp-position-nearby))) + (set-text-properties (car pos) (cdr pos) (list 'display nil)))) + + + +(defun ess-bp-next nil + "Goto next breakpoint." + (interactive) + (when-let ((bp-pos (next-single-property-change (point) 'ess-bp))) + (save-excursion + (goto-char bp-pos) + (when (get-text-property (1- (point)) 'ess-bp) + (setq bp-pos (next-single-property-change bp-pos 'ess-bp)))) + (if bp-pos + (goto-char bp-pos) + (message "No breakpoints found")))) + + +(defun ess-bp-previous nil + "Goto previous breakpoint." + (interactive) + (if-let ((bp-pos (previous-single-property-change (point) 'ess-bp))) + (goto-char (or (previous-single-property-change bp-pos 'ess-bp) + bp-pos)) + (message "No breakpoints before the point found"))) + +;;;_ + WATCH + +(defvar ess-watch-command + ;; assumes that every expression is a structure of length 1 as returned by parse. + ".ess_watch_eval()\n") + +(if (fboundp 'define-fringe-bitmap) ;;not clear to me why is this not bound in SSH session? - :todo check + (define-fringe-bitmap 'current-watch-bar + [#b00001100] nil nil '(top t))) + +(defun ess-tracebug--set-left-margin () + "Set the margin on non-X displays." + (unless window-system + (when (= left-margin-width 0) + (setq left-margin-width 1) + (set-window-buffer (selected-window) (current-buffer))))) + +(define-derived-mode ess-watch-mode special-mode "ESS watch" + "Major mode in `ess-watch' window." + (let ((cur-block (max 1 (ess-watch-block-at-point))) + (dummy-string + (ess-tracebug--propertize "|" 'current-watch-bar 'font-lock-keyword-face))) + (ess-tracebug--set-left-margin) + (setq-local revert-buffer-function 'ess-watch-revert-buffer) + (turn-on-font-lock) + (setq ess-watch-current-block-overlay + (make-overlay (point-min) (point-max))) + (overlay-put ess-watch-current-block-overlay 'line-prefix dummy-string) + (overlay-put ess-watch-current-block-overlay 'face 'ess-watch-current-block-face) + (ess-watch-set-current cur-block) ;; + (require 'face-remap) + ;; scale the font + (setq text-scale-mode-amount ess-watch-scale-amount) + (text-scale-mode))) + +(defun ess-watch () + "Run `ess-watch-mode' on R objects. +This is the trigger function. See documentation of +`ess-watch-mode' for more information." + (interactive) + (ess-force-buffer-current) + (let ((wbuf (get-buffer-create ess-watch-buffer)) + (pname ess-local-process-name) + (alist (symbol-value ess-local-customize-alist))) + (set-buffer wbuf) + (ess-setq-vars-local alist) + (setq ess-local-process-name pname) + (ess-watch-mode) + (ess-watch-refresh-buffer-visibly wbuf) ;; evals the ess-command and displays the buffer if not visible + (pop-to-buffer wbuf) + (set-window-dedicated-p (selected-window) 1) ;; not strongly dedicated + )) + + +(defun ess-watch-refresh-buffer-visibly (wbuf &optional sleep no-prompt-check) + "Eval `ess-watch-command' and direct the output into the WBUF. +Call `ess-watch-buffer-show' to make the buffer visible, without +selecting it. + +This function is used for refreshing the watch window after each step during +the debugging." + ;; assumes that the ess-watch-mode is on!! + ;; particularly ess-watch-current-block-overlay is installed + (interactive) + (ess-watch-buffer-show wbuf) ;; if visible do nothing + (let ((pname ess-local-process-name)) ;; watch might be used from different dialects, need to reset + (with-current-buffer wbuf + (let ((curr-block (max 1 (ess-watch-block-at-point)))) ;;can be 0 if + (setq buffer-read-only nil) + (when pname + (setq ess-local-process-name pname)) + (ess-command ess-watch-command wbuf sleep no-prompt-check) + ;; delete the ++++++> line ;; not very reliable but works fine so far. + (goto-char (point-min)) + (delete-region (point-at-bol) (+ 1 (point-at-eol))) + (ess-watch-set-current curr-block) + (set-window-point (get-buffer-window wbuf) (point)) + (setq buffer-read-only t))))) + +(defun ess-watch-buffer-show (buffer-or-name) + "Make watch buffer BUFFER-OR-NAME visible, and position acordingly. +If already visible, do nothing. + +Currently the only positioning rule implemented is to split the R +process window in half. The behavior is controlled by +`split-window-sensibly' with parameters `split-height-threshold' +and `split-width-threshold' replaced by +`ess-watch-height-threshold' and `ess-watch-width-threshold' +respectively." + (interactive) + (unless (get-buffer-window ess-watch-buffer 'visible) + (save-selected-window + (ess-switch-to-ESS t) + (let* ((split-width-threshold (or ess-watch-width-threshold + split-width-threshold)) + (split-height-threshold (or ess-watch-height-threshold + split-height-threshold)) + (win (split-window-sensibly (selected-window)))) + (if win + (set-window-buffer win buffer-or-name) + (display-buffer buffer-or-name) ;; resort to usual mechanism if could not split + ))))) + + +(defun ess-watch-revert-buffer (_ignore _noconfirm) + "Update the watch buffer. +Arguments IGNORE and NOCONFIRM currently not used." + (ess-watch) + (message "Watch reverted")) + + +(defface ess-watch-current-block-face + '((default (:inherit highlight))) + "Face used to highlight current watch block." + :group 'ess-debug) + +(defvar ess-watch-start-block "@----" ;; fixme: make defcustom and modify the injected command correspondingly + "String indicating the beginning of a block in watch buffer." + ;; :group 'ess-debug + ;; :type 'string + ) + +(defvar ess-watch-start-expression "@---:" + "String indicating the beginning of an R expression in watch buffer." + ;; :group 'ess-debug + ;; :type 'string + ) + +(defun ess-watch-block-limits-at-point () + "Return start and end positions of the watch block." + (interactive) + (save-excursion + (let ((curr (point)) + start-pos end-pos) + (end-of-line) + (setq start-pos + (if (re-search-backward ess-watch-start-block nil t ) + (point) + (point-min))) + (goto-char curr) + (beginning-of-line) + (setq end-pos + (if (re-search-forward ess-watch-start-block nil t) + (match-beginning 0) + (point-max))) + (list start-pos end-pos)))) + +(defun ess-watch-block-at-point () + "Return the current block's order count, 0 if no block was found." + (save-excursion + (let ((cur-point (point)) + (count 0)) + (goto-char (point-min)) + (while (re-search-forward ess-watch-start-block cur-point t) + (setq count (1+ count))) + count))) + +(defun ess-watch-set-current (nr) + "Move the overlay over the block with count NR in current watch buffer." + (goto-char (point-min)) + (re-search-forward ess-watch-start-expression nil t nr) + (goto-char (match-end 0)) + (apply 'move-overlay ess-watch-current-block-overlay (ess-watch-block-limits-at-point))) + + +(defun ess-watch--make-alist () + "Create an alist of expressions from the current watch buffer. +Each element of assoc list is of the form (pos name expr) where +pos is an unique integer identifying watch blocks by position, +name is a string giving the name of expression block, expr is a +string giving the actual R expression." + (interactive) + (save-excursion + (let* ((reg-name (concat "^" ess-watch-start-block " *\\(\\S-*\\).*$")) + (reg-expr (concat "^" ess-watch-start-expression "\\s-*\\(.*\\)$")) + (reg-all (concat "\\(" reg-name "\\)\n\\(" reg-expr "\\)")) + (pos 0) wal name expr) + (goto-char (point-min)) + (while (re-search-forward reg-all nil t) + (setq pos (+ 1 pos)) + (setq name (match-string-no-properties 2)) + (setq expr (match-string-no-properties 4)) + (if (not (eq (string-to-number name) 0)) ;;if number of any kind set the name to "" + (setq name "")) + (setq wal + (append wal (list (list pos name expr))))) + wal))) + +(defun ess-watch--parse-assoc (al) + "Return a string of the form 'assign(\".ess_watch_expressions\", list(a = parse(expr_a), b= parse(expr_b)), envir = .GlobalEnv)' +ready to be send to R process. AL is an association list as return by `ess-watch--make-alist'" + (concat ".ess_watch_assign_expressions(list(" + (mapconcat (lambda (el) + (if (> (length (cadr el) ) 0) + (concat "`" (cadr el) "` = parse(text = '" (caddr el) "')") + (concat "parse(text = '" (caddr el) "')"))) + al ", ") + "))\n")) + +(defun ess-watch--install-.ess_watch_expressions () + ;; used whenever watches are added/deleted/modified from the watch + ;; buffer. this is the only way to insert expressions into + ;; .ess_watch_expressions object in R. Assumes R watch being the current + ;; buffer, otherwise will most likely install empty list. + (interactive) + (process-send-string (ess-get-process ess-current-process-name) + (ess-watch--parse-assoc (ess-watch--make-alist))) + ;;todo: delete the prompt at the end of proc buffer todo: defun ess-send-string!! + (sleep-for 0.05) ;; need here, if ess-command is used immediately after, for some weird reason the process buffer will not be changed + ) + + +(defun ess-watch-quit () + "Quit (kill) the watch buffer. +If watch buffer exists, it is displayed during the debug +process. The only way to avoid the display, is to kill the +buffer." + (interactive) + (kill-buffer) ;; dedicated, window is deleted unless not the only one + ) + +;;;_ + MOTION +(defun ess-watch-next-block (&optional n) + "Move the overlay over the next block. +Optional N if supplied gives the number of steps forward `backward-char'." + (interactive "P") + (setq n (prefix-numeric-value n)) + (goto-char (overlay-end ess-watch-current-block-overlay)) + (unless (re-search-forward ess-watch-start-expression nil t n) + (goto-char (point-min)) ;;circular but always moves to start! + (re-search-forward ess-watch-start-expression nil t 1)) + (apply 'move-overlay ess-watch-current-block-overlay (ess-watch-block-limits-at-point))) + +(defun ess-watch-previous-block (&optional n) + "Move the overlay over the previous block. +Optional N if supplied gives the number of backward steps." + (interactive "P") + (setq n (prefix-numeric-value n)) + (goto-char (overlay-start ess-watch-current-block-overlay)) + (unless (re-search-backward ess-watch-start-expression nil t n) + (goto-char (point-max)) ;;circular but always moves to last! + (re-search-backward ess-watch-start-expression nil t 1)) + (goto-char (match-end 0)) + (apply 'move-overlay ess-watch-current-block-overlay (ess-watch-block-limits-at-point))) + +;;;_ + BLOCK MANIPULATION and EDITING +(defun ess-watch-rename () + "Rename the currently selected watch block." + (interactive) + (end-of-line) + (unless (re-search-backward ess-watch-start-block nil t) + (error "Can not find a watch block")) + (let ((reg-name (concat ess-watch-start-block " *\\(\\S-*\\).*$")) + name start end) + ;; (reg-expr (concat "^" ess-watch-start-expression "\\s-*\\(.*\\)$")) + ;; (reg-all (concat "\\(" reg-name "\\)\n\\(" reg-expr "\\)")) + ;; (pos 0) wal name expr) + (unless (re-search-forward reg-name (point-at-eol) t) + (error "Can not find the name substring in the current watch block ")) + (setq name (match-string-no-properties 1)) + (setq start (match-beginning 1)) + (setq end (match-end 1)) + (goto-char start) + ;; todo: highlight the name in R-watch here + (setq name (read-string (concat "New name (" name "): ") nil nil name) ) + (setq buffer-read-only nil) + (delete-region start end) + (insert name) + (setq buffer-read-only t) + (ess-watch--install-.ess_watch_expressions) + (ess-watch-refresh-buffer-visibly (current-buffer)))) + +(defun ess-watch-edit-expression () + "Edit in the minibuffer the R expression from the current watch block." + (interactive) + (end-of-line) + (unless (re-search-backward ess-watch-start-block nil 1) + (error "Can not find a watch block")) + (let ((reg-expr (concat ess-watch-start-expression " *\\(.*\\)$")) + expr start end) + (unless (re-search-forward reg-expr nil t) + (error "Can not find an expression string in the watch block")) + (setq expr (match-string-no-properties 1)) + (setq start (match-beginning 1)) + (setq end (match-end 1)) + (goto-char start) + ;; todo: highlight the name in R-watch here + (setq expr (read-string "New expression: " expr nil expr) ) + (setq buffer-read-only nil) + (delete-region start end) + (insert expr) + (setq buffer-read-only t) + (ess-watch--install-.ess_watch_expressions) + (ess-watch-refresh-buffer-visibly (current-buffer)))) + +(defun ess-watch-add () + "Ask for new R expression and name and append it to the end of the list of watch expressions." + (interactive) + (let (nr expr name) + (goto-char (point-max)) + (setq nr (number-to-string (1+ (ess-watch-block-at-point)))) + (setq name nr) + ;; (setq name (read-string (concat "Name (" nr "):") nil nil nr )) ;;this one is quite annoying and not really needed than for logging + (setq expr (read-string "New expression: " nil nil "\"Empty watch!\"")) + (setq buffer-read-only nil) + (insert (concat "\n" ess-watch-start-block " " name " -@\n" ess-watch-start-expression " " expr "\n")) + (setq buffer-read-only t) + (ess-watch--install-.ess_watch_expressions))) + +(defun ess-watch-insert () + "Ask for new R expression and name and insert it in front of current watch block." + (interactive) + (let (nr expr name) + (setq nr (number-to-string (ess-watch-block-at-point))) + (setq name nr) + ;; (setq name (read-string (concat "Name (" nr "):") nil nil nr )) + (setq expr (read-string "New expression: " nil nil "\"Empty watch!\"")) + (re-search-backward ess-watch-start-block nil 1) ;;point-min if not found + (setq buffer-read-only nil) + (insert (concat "\n" ess-watch-start-block " " name " -@\n" ess-watch-start-expression " " expr "\n")) + (setq buffer-read-only t) + (ess-watch--install-.ess_watch_expressions))) + +(defun ess-watch-move-up () + "Move the current block up." + (interactive) + (let ((nr (ess-watch-block-at-point)) + wbl) + (when (> nr 1) + (setq buffer-read-only nil) + (setq wbl (apply 'delete-and-extract-region (ess-watch-block-limits-at-point))) + (re-search-backward ess-watch-start-block nil t 1) ;; current block was deleted, point is at the end of previous block + (insert wbl) + (ess-watch--install-.ess_watch_expressions) + (setq buffer-read-only t)))) + + +(defun ess-watch-move-down () + "Move the current block down." + (interactive) + (let ((nr (ess-watch-block-at-point)) + (nr-all (save-excursion (goto-char (point-max)) + (ess-watch-block-at-point))) + wbl) + (when (< nr nr-all) + (setq buffer-read-only nil) + (setq wbl (apply 'delete-and-extract-region (ess-watch-block-limits-at-point))) + (end-of-line) + (when (re-search-forward ess-watch-start-block nil t 1) ;; current block was deleted, point is at the end of previous block or point-max + (goto-char (match-beginning 0))) + (insert wbl) + (ess-watch--install-.ess_watch_expressions) + (setq buffer-read-only t)))) + +(defun ess-watch-kill () + "Kill the current block." + (interactive) + (setq buffer-read-only nil) + (apply 'delete-region (ess-watch-block-limits-at-point)) + (ess-watch--install-.ess_watch_expressions)) + +;;;_ + Debug/Undebug at point +(defun ess--dbg-get-signatures (method) + "Get signatures for the method METHOD." + (let ((tbuffer (get-buffer-create " *ess-command-output*")); initial space: disable-undo + signatures) + (save-excursion + (ess-if-verbose-write (format "ess-get-signatures*(%s).. " method)) + (ess-command (concat "showMethods(\"" method "\")\n") tbuffer) + (message "%s" ess-local-process-name) + (message "%s" ess-current-process-name) + (ess-if-verbose-write " [ok] ..\n") + (set-buffer tbuffer) + (goto-char (point-min)) + (if (not (re-search-forward "Function:" nil t)) + (progn (ess-if-verbose-write "not seeing \"Function:\".. \n") + (error (buffer-string)) + ;; (error "Cannot trace method '%s' (Is it a primitive method which you have already traced?)" method) + ) + ;; (setq curr-point (point)) + ;; (while (re-search-forward ", " nil t) ;replace all ", " with ":" for better redability in completion buffers?? + ;; (replace-match ":")) + ;; (goto-char curr-point) + (while (re-search-forward "^.+$" nil t) + (setq signatures (cons (match-string-no-properties 0) signatures)))) + ; (kill-buffer tbuffer) + ) + signatures)) + + +(defun ess-debug-flag-for-debugging () + "Set the debugging flag on a function. +Ask the user for a function and if it turns to be generic, ask +for signature and trace it with browser tracer." + (interactive) + (ess-force-buffer-current "Process to use: ") + (let* ((tbuffer (get-buffer-create " *ess-command-output*")) ;; output buffer name is hard-coded in ess-inf.el + (pkg (ess-r-package-name)) + (all-functions (ess-get-words-from-vector + (if pkg + (format ".ess_all_functions(c('%s'))\n" pkg) + ".ess_all_functions()\n"))) + (obj-at-point (ess-helpobjs-at-point--read-obj)) + (default (and + obj-at-point + (let* ((reg (regexp-quote obj-at-point)) + (matches (cl-loop for el in all-functions + if (string-match reg el) collect el))) + (car (sort matches (lambda (a b) (< (length a) (length b)))))))) + (ufunc (ess-completing-read "Debug" all-functions + nil nil nil nil (or default obj-at-point))) + signature) + ;; FIXME: Most of the following logic should be in R + (if (ess-boolean-command (format "as.character(isGeneric('%s'))\n" ufunc)) + + ;; it's S4 generic: + (save-excursion + ;; ask for exact signature + (setq signature + (ess-completing-read (concat "Method for generic '" ufunc "'") + (ess--dbg-get-signatures ufunc) ;signal an error if not found + nil t nil nil "*default*")) + (if (equal signature "*default*") + ;;debug, the default ufunc + (ess-command (format "trace('%s', tracer = browser)\n" ufunc) tbuffer) + (ess-command (format "trace('%s', tracer = browser, signature = c('%s'))\n" ufunc signature) tbuffer)) + (with-current-buffer tbuffer + ;; give appropriate message or error + (message "%s" (buffer-substring-no-properties (point-min) (point-max))))) + + ;;else, not an S4 generic + (when (ess-boolean-command (format "as.character(.knownS3Generics['%s'])\n" ufunc)) + ;; it's S3 generic: + (setq all-functions + (ess-get-words-from-vector + (format "local({gens<-methods('%s');as.character(gens[attr(gens, 'info')$visible])})\n" ufunc))) + (setq all-functions + ;; cannot debug non-visible methods + (delq nil (mapcar (lambda (el) + (if (not (char-equal ?* (aref el (1- (length el))))) el)) + all-functions))) + (setq ufunc (ess-completing-read (format "Method for S3 generic '%s'" ufunc) + (cons ufunc all-functions) nil t))) + (ess-command (format ".ess_dbg_flag_for_debuging('%s')\n" ufunc))))) + + +(defun ess-debug-unflag-for-debugging () + "Prompt for the debugged/traced function or method and undebug/untrace it." + (interactive) + (let ((tbuffer (get-buffer-create " *ess-command-output*")); initial space: disable-undo\ + (debugged (ess-get-words-from-vector + (if nil ;; FIXME: was checking `ess-developer-packages` + (format ".ess_dbg_getTracedAndDebugged(c('%s'))\n" + (mapconcat 'identity ess-developer-packages "', '")) + ".ess_dbg_getTracedAndDebugged()\n"))) + out-message fun def-val) + ;; (prin1 debugged) + (if (eq (length debugged) 0) + (setq out-message "No debugged or traced functions/methods found") + (setq def-val (if (eq (length debugged) 1) + (car debugged) + "*ALL*")) + (setq fun (ess-completing-read "Undebug" debugged nil t nil nil def-val)) + (if (equal fun "*ALL*" ) + (ess-command (concat ".ess_dbg_UndebugALL(c(\"" (mapconcat 'identity debugged "\", \"") "\"))\n") tbuffer) + (ess-command (format ".ess_dbg_UntraceOrUndebug(\"%s\")\n" fun) tbuffer)) + (with-current-buffer tbuffer + (if (= (point-max) 1) ;; not reliable todo: + (setq out-message (format "Undebugged '%s' " fun)) + (setq out-message (buffer-substring-no-properties (point-min) (point-max))) ;; untrace info or warning, or error occurred + ))) + (message "%s" out-message))) + +;;;_ * Kludges and Fixes +;;; delete-char and delete-backward-car do not delete whole intangible text +(defadvice delete-char (around ess-delete-backward-char-intangible activate) + "When deleting an intangible char, delete the whole intangible region. +Only do this when #chars is 1" + (if (and (ess-derived-mode-p) + (= (ad-get-arg 0) 1) + (get-text-property (point) 'intangible)) + (progn + (kill-region (point) (or (next-single-property-change (point) 'intangible) + (point-max))) + (indent-for-tab-command)) + ad-do-it)) + +(defadvice delete-backward-char (around ess-delete-backward-char-intangible activate) + "When deleting an intangible char, delete the whole intangible region. +Only do this when called interactively and #chars is 1" + (if (and (ess-derived-mode-p) + (= (ad-get-arg 0) 1) + (> (point) (point-min)) + (get-text-property (1- (point)) 'intangible)) + (progn + (let ((beg (or (previous-single-property-change (point) 'intangible) + (point-min)))) + (kill-region beg (point)))) + ad-do-it)) + +(provide 'ess-tracebug) + +;;; ess-tracebug.el ends here diff --git a/elpa/ess-20190121.1430/ess-trns.el b/elpa/ess-20190121.1430/ess-trns.el new file mode 100644 index 00000000..3ceef730 --- /dev/null +++ b/elpa/ess-20190121.1430/ess-trns.el @@ -0,0 +1,234 @@ +;;; ess-trns.el --- Support for manipulating S transcript files -*- lexical-binding: t; -*- + +;; Copyright (C) 1989--1994 Bates, Kademan, Ritter and Smith +;; Copyright (C) 1997--2010 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. +;; Copyright (C) 2011--2012 A.J. Rossini, Richard M. Heiberger, Martin Maechler, +;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. + +;; Author: David Smith +;; Maintainer: ESS-core + +;; 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 +;; https://www.r-project.org/Licenses/ + + +;;; Commentary: + +;; Code for dealing with ESS transcripts. + +;;; Code: + + ; Requires and autoloads + +(require 'ess-mode) +(require 'ess-inf) +(require 'comint) + + ; ess-transcript-mode +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;;; In this section: +;;;; +;;;; * The major mode ess-transcript-mode +;;;; * Commands for ess-transcript-mode +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;;*;; Major mode definition +(defvar ess-transcript-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "\C-c\C-s" 'ess-switch-process) + (define-key map "\C-c\C-r" 'ess-eval-region) + (define-key map "\C-c\M-r" 'ess-eval-region-and-go) + (define-key map "\C-c\C-k" 'ess-force-buffer-current) + (define-key map "\C-c\C-q" 'ess-quit) + (define-key map "\C-c\C-j" 'ess-transcript-send-command) + (define-key map "\C-c\M-j" 'ess-transcript-send-command-and-move) + (define-key map "\M-\C-a" 'ess-goto-end-of-function-or-para) + (define-key map "\M-\C-e" 'ess-goto-end-of-function-or-para) + (define-key map "\C-c\C-y" 'ess-switch-to-ESS) + (define-key map "\C-c\C-z" 'ess-switch-to-end-of-ESS) + (define-key map "\C-c\C-v" 'ess-display-help-on-object) + (define-key map "\C-c\C-d" 'ess-dump-object-into-edit-buffer) + (define-key map "\C-c\t" 'ess-complete-object-name-deprecated) + (define-key map "\C-a" 'comint-bol) + (define-key map "\M-\t" 'comint-replace-by-expanded-filename) + (define-key map "\M-?" 'comint-dynamic-list-completions) + (define-key map "\C-c\C-k" 'ess-request-a-process) + (define-key map "{" 'skeleton-pair-insert-maybe) + (define-key map "}" 'skeleton-pair-insert-maybe) + (define-key map "\e\C-h" 'ess-mark-function) + (define-key map "\e\C-q" 'ess-indent-exp) + (define-key map "\t" 'ess-indent-command) + (define-key map "\C-c\C-p" 'comint-previous-prompt) + (define-key map "\C-c\C-n" 'comint-next-prompt) + (define-key map "\r" 'ess-transcript-send-command-and-move) + (define-key map "\M-\r" 'ess-transcript-send-command) + (define-key map "\C-c\r" 'ess-transcript-copy-command) + (define-key map "\C-c\C-w" 'ess-transcript-DO-clean-region) + (define-key map "\C-c\M-c" 'ess-transcript-clean-buffer) + map) + "Keymap for `ess-transcript-mode'.") + +(easy-menu-define + ess-transcript-mode-menu ess-transcript-mode-map + "Menu for use in S transcript mode." + '("ESS-trans" + ["What is this? (beta)" ess-mouse-me t] + ["Describe" describe-mode t] + ["About" (ess-goto-info "Transcript Mode") t] + ["Send bug report" ess-submit-bug-report t] + "------" + ["Mark cmd group" mark-paragraph t] + ["Previous prompt" comint-previous-prompt t] + ["Next prompt" comint-next-prompt t] + "------" + ["Send and move" ess-transcript-send-command-and-move t] + ["Copy command" ess-transcript-copy-command t] + ["Send command" ess-transcript-send-command t] + ["Clean Region" ess-transcript-DO-clean-region t] + ["Clean Whole Buffer" ess-transcript-clean-buffer t] + ["Switch S process" ess-switch-process t] + )) + +;;;###autoload +(define-derived-mode ess-transcript-mode ess-mode "ESS Transcript" + "Major mode for transcript files. + +Type \\[ess-transcript-send-command] to send a command in the +transcript to the current inferior process. \\[ess-transcript-copy-command] +copies the command but does not execute it, allowing you to edit it in +the process buffer first. + +Type \\[ess-transcript-clean-region] to delete all outputs and prompts +in the region, leaving only the commands." + (setq buffer-read-only t + ess-local-process-name nil + mode-line-process '(" [" ess-local-process-name "]")) + ;; TODO: Set this more normally in various major modes + (unless inferior-ess-prompt ;; For S languages it is set in custom-alist + (setq inferior-ess-prompt + ;; Do not anchor to bol with `^' + (concat "\\(" + inferior-ess-primary-prompt + "\\|" + inferior-ess-secondary-prompt + "\\)"))) + (setq-local paragraph-start (concat "^" inferior-ess-prompt "\\|^\^L")) + (setq-local paragraph-separate "^\^L") + (setq-local comint-use-prompt-regexp t) + (setq-local comint-prompt-regexp (concat "^" inferior-ess-prompt)) + (setq font-lock-defaults '(ess-build-font-lock-keywords + nil nil ((?\. . "w") (?\_ . "w") (?' . "."))))) + +;;*;; Commands used in S transcript mode + +(defun ess-transcript-send-command () + "Send the command at point in the transcript to the ESS process. +The line should begin with a prompt. The ESS process buffer is displayed if it +is not already." + (interactive) + (let* ((proc (or ess-local-process-name + (ess-request-a-process "Evaluate into which process? " t))) + (ess-buf (ess-get-process-buffer proc))) + (setq ess-local-process-name proc) + (if (get-buffer-window ess-buf) nil + (display-buffer ess-buf t)) + (let ((input (inferior-ess-get-old-input))) + (with-current-buffer ess-buf + (goto-char (point-max)) + (ess-eval-linewise input))))) + +(defun ess-transcript-send-command-and-move () + "Send the command on this line, and move point to the next command." + (interactive) + ;; (ess-transcript-send-command) ;; This doesn't work properly + ;; replacement code begins + (let* ((proc (or ess-local-process-name + (ess-request-a-process "Evaluate into which process? " t))) + (ess-buf (ess-get-process-buffer proc))) + (setq ess-local-process-name proc) + (if (get-buffer-window ess-buf) nil + (display-buffer ess-buf t)) + (let ((input (inferior-ess-get-old-input))) + (with-current-buffer ess-buf + (goto-char (point-max)) + (ess-eval-linewise input nil nil nil 1)))) + ;; replacement code ends + (goto-char ess-temp-point) + (comint-next-prompt 1)) + +(defun ess-transcript-copy-command () + "Copy the command at point to the command line of the ESS process." + (interactive) + (let* ((proc (or ess-local-process-name + (ess-request-a-process "Evaluate into which process? " t))) + (ess-buf (process-buffer (get-process proc))) + (input (inferior-ess-get-old-input))) + (setq ess-local-process-name proc) + (if (get-buffer-window ess-buf) nil + (display-buffer ess-buf t)) + (with-current-buffer ess-buf + (goto-char (point-max)) + (insert input))) + (ess-switch-to-end-of-ESS)) + +;;;###autoload +(defun ess-transcript-clean-region (beg end even-if-read-only) + "Strip the transcript in the region, leaving only (R/S/Lsp/..) commands. +Deletes any lines not beginning with a prompt, and then removes the +prompt from those lines that remain. Prefix argument means to +clean even if the buffer is \\[read-only]." + (interactive "r\nP") + (unless inferior-ess-prompt + (error "Cannot clean ESS transcript region in this mode! + That only works in ess-transcript-mode or inferior-ess-mode ('*R*' etc)." + ;; Maybe call ess-clean-region-in-new-transcript ?")) + )) + (let ((do-toggle (and buffer-read-only even-if-read-only)) + (ess-prompt-rx (if inferior-ess-secondary-prompt + (concat "^\\(\\(" + inferior-ess-prompt + "\\)\\|\\(" + inferior-ess-secondary-prompt + "\\)\\)") + (concat "^" inferior-ess-prompt)))) + (save-excursion + (if do-toggle (setq buffer-read-only nil)) + (save-restriction + (deactivate-mark) + (narrow-to-region beg end) + (goto-char (point-min)) + (delete-non-matching-lines ess-prompt-rx) + (goto-char (point-min)) + ;; (replace-regexp * * ) : + (while (re-search-forward ess-prompt-rx nil t) + (replace-match "" nil nil))) + + (if do-toggle (setq buffer-read-only t))))) + +(defun ess-transcript-DO-clean-region (beg end) + "Clean the current via \\[ess-transcript-clean-region] even if the buffer is read-only." + (interactive "r") + (ess-transcript-clean-region beg end 'In-ANY-case)) + +(defun ess-transcript-clean-buffer () + "Cleanup the whole buffer. +Use point-min/max to obey `narrow-to-region'." + (interactive) + (ess-transcript-clean-region (point-min) (point-max) 'In-ANY-case)) + +(provide 'ess-trns) + +;;; ess-trns.el ends here diff --git a/elpa/ess-20190121.1430/ess-utils.el b/elpa/ess-20190121.1430/ess-utils.el new file mode 100644 index 00000000..9e7e874c --- /dev/null +++ b/elpa/ess-20190121.1430/ess-utils.el @@ -0,0 +1,1217 @@ +;;; ess-utils.el --- General Emacs utility functions used by ESS -*- lexical-binding: t; -*- + +;; Copyright (C) 1998--2010 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. +;; Copyright (C) 2011--2017 A.J. Rossini, Richard M. Heiberger, Martin Maechler, +;; Kurt Hornik, Rodney Sparapani, Stephen Eglen and Vitalie Spinu. + +;; Author: Martin Maechler +;; Created: 9 Sept 1998 +;; Maintainer: ESS-core + +;; This file is part of ESS (Emacs Speaks Statistics). + +;; 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 +;; https://www.r-project.org/Licenses/ + + +;;; Commentary: +;; Various utilities for ESS. + +;;; Code: +(require 'cl-lib) +(eval-when-compile + (require 'tramp)) +;; The only ESS file this file should depend on is ess-custom.el +(require 'cl-lib) +(require 'comint) +(require 'ess) +(require 'ess-custom) +(require 'ido) +(require 'newcomment) +(defvar ac-modes) +(declare-function ess-eval-linewise "ess-inf") +(declare-function evil-visual-state-p "evil") +(declare-function evil-normal-state "evil") +(declare-function color-lighten-name "color") +(declare-function tramp-dissect-file-name "tramp") +;; The following declares can be removed once we drop Emacs 25 +(declare-function tramp-file-name-method "tramp") +(declare-function tramp-file-name-user "tramp") +(declare-function tramp-file-name-host "tramp") +(declare-function tramp-file-name-localname "tramp") +(declare-function tramp-file-name-hop "tramp") + +;;; FIXME: Used in ./obsolete/xyz.el only; remove once gone. +(defun ess-message (format-string &rest args) + "Shortcut for \\[message] only if `ess-show-load-messages' is non-nil." + (when (bound-and-true-p ess-show-load-messages) + (message format-string args))) + + +;;*;; elisp tools + +(defun ess-next-code-line (&optional arg skip-to-eob) + "Move ARG lines of code forward (backward if ARG is negative). +If `ess-eval-empty' is non-nil, skip past all empty and comment +lines. Default for ARG is 1. Don't skip the last empty and +comment lines in the buffer unless SKIP-TO-EOB is non-nil. On +success, return 0. Otherwise, go as far as possible and return +-1." + (interactive "p") + (or arg (setq arg 1)) + (if (or ess-eval-empty + (and (fboundp 'ess-roxy-entry-p) + (ess-roxy-entry-p))) + (forward-line arg) + (beginning-of-line) + (let ((pos (point)) + (n 0) + (inc (if (> arg 0) 1 -1))) + (while (and (/= arg 0) (= n 0)) + (setq n (forward-line inc)) ; n=0 is success + (comment-beginning) + (beginning-of-line) + (forward-comment (* inc (buffer-size))) ;; as suggested in info file + (if (or skip-to-eob + (not (looking-at ess-no-skip-regexp))) ;; don't go to eob or whatever + (setq arg (- arg inc)) + (goto-char pos) + (setq arg 0) + (forward-line 1)) ;; stop at next empty line + (setq pos (point))) + (goto-char pos) + n))) + +(defun ess-goto-line (line) + (save-restriction + (widen) + (goto-char (point-min)) + (forward-line (1- line)))) + +(defun ess-skip-thing (thing) + "Leave point at the end of THING. +THING can be 'function, 'paragraph, or 'line." + (cond + ((eql thing 'line) (goto-char (line-end-position))) + ((eql thing 'paragraph) (forward-paragraph)) + ((eql thing 'function) (end-of-defun) (skip-chars-backward " \t\n")))) + +(defun ess-line-end-position (&optional N) + "Return the 'point' at the end of N lines. N defaults to 1, i.e., current line." + (save-excursion + (end-of-line N) + (point))) + +(defun ess-search-except (regexp &optional except backward) + "Search for a REGEXP and store as match 1. +Optionally ignore strings that match exceptions." + (interactive) + (let ((continue t) (exit nil)) + (while continue + (if (or (and backward (search-backward-regexp regexp nil t)) + (and (not backward) (search-forward-regexp regexp nil t))) + (progn + (setq exit (match-string 1)) + (setq continue (and except (string-match except exit))) + (if continue (setq exit nil))) + ;;else + (setq continue nil))) + exit)) + +(defun ess-save-and-set-local-variables () + "If buffer was modified, save file and set Local Variables if defined. +Return t if buffer was modified, nil otherwise." + (interactive) + (let ((ess-temp-point (point)) + (ess-temp-return-value (buffer-modified-p))) + ;; if buffer has changed, save buffer now (before potential revert) + (if ess-temp-return-value (save-buffer)) + ;; If Local Variables are defined, update them now + ;; since they may have changed since the last revert + ;; (save-excursion + (beginning-of-line -1) + (save-match-data + (if (search-forward "End:" nil t) (revert-buffer t t))) + ;; save-excursion doesn't save point in the presence of a revert + ;; so you need to do it yourself + (goto-char ess-temp-point) + ess-temp-return-value)) + +(defun ess-get-file-or-buffer (file-or-buffer) + "Return FILE-OR-BUFFER if it is a buffer. +Otherwise return the buffer associated with the file which must +be qualified by it's path; if the buffer does not exist, return +nil." + (interactive) + (if file-or-buffer + (if (bufferp file-or-buffer) file-or-buffer + (find-buffer-visiting file-or-buffer)))) + +(defun ess-return-list (ess-arg) + "If ESS-ARG is a list return it, else return ESS-ARG in a list." + (if (listp ess-arg) ess-arg (list ess-arg))) + +(defun ess-uniq (list predicate) + "Uniquify LIST, stably, deleting elements using PREDICATE. +Return the list with subsequent duplicate items removed by side effects. +PREDICATE is called with an element of LIST and a list of elements from LIST, +and should return the list of elements with occurrences of the element removed. +This function will work even if LIST is unsorted. See also `delete-dups'." + (declare (obsolete 'delete-dups "ESS 19.04")) + (let ((list list)) + (while list + (setq list (setcdr list (funcall predicate (car list) (cdr list)))))) + list) + +(define-obsolete-function-alias 'ess-uniq-list 'delete-dups "ESS 19.04") + +(defun ess-flatten-list (&rest list) + "Take the arguments and flatten them into one long LIST. +Drops 'nil' entries." + ;; Taken from lpr.el + ;; `lpr-flatten-list' is defined here (copied from "message.el" and + ;; enhanced to handle dotted pairs as well) until we can get some + ;; sensible autoloads, or `flatten-list' gets put somewhere decent. + (ess-flatten-list-1 list)) + +(defun ess-flatten-list-1 (list) + (cond + ((null list) (list)) + ((consp list) + (append (ess-flatten-list-1 (car list)) + (ess-flatten-list-1 (cdr list)))) + (t (list list)))) + +(define-obsolete-function-alias 'ess-delete-blank-lines + 'delete-blank-lines "ESS 19.04") + +;; Parse a line into its constituent parts (words separated by +;; whitespace). Return a list of the words. +;; Taken from rlogin.el, from the comint package, from XEmacs 20.3. +(defun ess-line-to-list-of-words (line) + (if (listp line) + line + (let ((list nil) + (posn 0)) + ;; (match-data (match-data))) + (while (string-match "[^ \t\n]+" line posn) + (setq list (cons (substring line (match-beginning 0) (match-end 0)) + list)) + (setq posn (match-end 0))) + (store-match-data (match-data)) + (nreverse list)))) + + +;;*;; System + +(defun ess-revert-wisely () + "Revert from disk if file and buffer last modification times are different." + (interactive) + ;; whether or not a revert is needed, force load local variables + ;; for example, suppose that you change the local variables and then + ;; save the file, a revert is unneeded, but a force load is + (hack-local-variables) + (unless (verify-visited-file-modtime (current-buffer)) + (progn + (let ((ess-temp-store-point (point))) + (revert-buffer t t) + (goto-char ess-temp-store-point)) + t))) + +(define-obsolete-function-alias 'ess-find-exec 'ess-find-exec-completions "ESS 19.04") +(defun ess-find-exec-completions (ess-root-arg &optional ess-exec-dir) + "Given the root of an executable file name, find all possible completions. +Search for the executables in ESS-EXEC-DIR (which defaults to +`exec-path' if no value is given)." + (let* ((ess-exec-path + (if ess-exec-dir (ess-return-list ess-exec-dir) exec-path)) + (ess-tmp-exec nil) + (ess-tmp-dir nil) + (ess-tmp-files nil) + (ess-tmp-file nil)) + (while ess-exec-path + (setq ess-tmp-dir (car ess-exec-path) + ess-exec-path (cdr ess-exec-path)) + (when + (and (> (length ess-tmp-dir) 0) + (file-accessible-directory-p ess-tmp-dir)) + ;; the first test above excludes "" from exec-path, which can be + ;; problematic with Tramp. + (setq ess-tmp-files + (file-name-all-completions ess-root-arg ess-tmp-dir)) + (while ess-tmp-files + (setq ess-tmp-file + (concat (file-name-as-directory ess-tmp-dir) + (car ess-tmp-files)) + ess-tmp-files (cdr ess-tmp-files)) + (if (and (file-executable-p ess-tmp-file) + (not (backup-file-name-p ess-tmp-file)) + (not (file-directory-p ess-tmp-file))) + ;; we have found a possible executable, so keep it. + (setq ess-tmp-exec + (nconc ess-tmp-exec (list ess-tmp-file))))))) + ess-tmp-exec)) + +(defun ess-drop-non-directories (file-strings) + "Drop all entries in FILE-STRINGS that do not \"look like\" directories." + (ess-flatten-list (mapcar 'file-name-directory file-strings))) + +(defun ess--parent-dir (path n) + "Return Nth parent of PATH." + (let ((opath path)) + (while (and path (> n 0)) + (setq path (file-name-directory (directory-file-name opath))) + (if (equal path opath) + (setq path nil) + (setq opath path + n (1- n)))) + path)) + + +;;*;; Interaction with inferiors + +(defmacro ess-when-new-input (time-var &rest body) + "BODY is evaluate only if the value of procss variable TIME-VAR +is bigger than the time of the last user input (stored in +'last-eval' process variable). TIME-VAR is the name of the +process variable which holds the access time. See the code for +`ess-synchronize-dirs' and `ess-cache-search-list'. + +Returns nil when no current process, or process is busy, or +time-var > last-eval. Otherwise, execute BODY and return the last +value. + +If BODY is executed, set process variable TIME-VAR +to (current-time). + +Variable *proc* is bound to the current process during the +evaluation of BODY. + +Should be used in `ess-idle-timer-functions' which call the +process to avoid excessive requests." + (declare (indent 1) (debug t)) + `(with-ess-process-buffer 'no-error + (let ((le (process-get *proc* 'last-eval)) + (tv (process-get *proc* ',time-var))) + (when (and (or (null tv) (null le) (time-less-p tv le)) + (not (process-get *proc* 'busy))) + (let ((out (progn ,@body))) + (process-put *proc* ',time-var (current-time)) + out))))) + +(defmacro ess-execute-dialect-specific (command &optional prompt &rest args) + "Execute dialect specific COMMAND. + +-- If command is nil issue warning 'Not available for dialect X' +-- If command is a elisp function, execute it with ARGS +-- If a string starting with 'http' or 'www', browse with `browse-url', + otherwise execute the command in inferior process. +-- If a string, interpret as a command to subprocess, and + substitute ARGS with `(format ,command ,@args). + +When PROMPT is non-nil ask the user for a string value and +prepend the response to ARGS. + +If prompt is a string just pass it to `read-string'. If a list, pass it +to `ess-completing-read'." + `(if (null ,command) + (message "Not implemented for dialect %s" ess-dialect) + (let* ((com (if (symbolp ,command) + (symbol-function ,command) + ,command)) + (prompt ',prompt) + (resp (and prompt + (if (stringp prompt) + (read-string prompt) + (apply 'ess-completing-read prompt)))) + (args (append (list resp) ',args))) + (cond ((functionp com) + (apply com args)) + ((and (stringp com) + (string-match "^\\(http\\|www\\)" com)) + (setq com (apply 'format com args)) + (require 'browse-url) + (browse-url com)) + ((stringp com) + (unless (string-match "\n$" com) + (setq com (concat com "\n"))) + (setq com (apply 'format com args)) + (ess-eval-linewise com)) + (t + (error "Argument COMMAND must be either a function or a string")))))) + + +;;; Emacs Integration + +(defun ess-derived-mode-p () + "Non-nil if the current major mode is an ESS major mode." + (or (derived-mode-p 'ess-mode) + (derived-mode-p 'ess-julia-mode))) + +(defun ess--generate-eval-visibly-submenu (_menu) + '(["yes" (lambda () (interactive) (setq ess-eval-visibly t)) + :style radio :enable t :selected (eq ess-eval-visibly t)] + ["nowait" (lambda () (interactive) (setq ess-eval-visibly 'nowait)) + :style radio :enable t :selected (eq ess-eval-visibly 'nowait) ] + ["no" (lambda () (interactive) (setq ess-eval-visibly nil)) + :style radio :enable t :selected (eq ess-eval-visibly nil) ])) + +;; Font Lock + +(defun ess--fl-keywords-values () + "Return a cons (STANDARD-VALUE . CUSTOM-VALUE) of `ess-font-lock-keywords'." + (let ((sym ess-font-lock-keywords)) + (if (and (symbolp sym) + (custom-variable-p sym)) + (cons + (eval (car (get sym 'standard-value))) + (symbol-value sym)) + (error "`ess-font-lock-keywords' must be a symbol of a custom variable")))) + +(defun ess--extract-fl-keywords () + (let ((values (ess--fl-keywords-values))) + (mapcar (lambda (kv) + (let ((cust-kv (assoc (car kv) (cdr values)))) + (when cust-kv + (setcdr kv (cdr cust-kv)))) + kv) + (copy-alist (car values))))) + +(defun ess-build-font-lock-keywords () + "Retrieve `font-lock-keywords' from ess-[dialect]-font-lock-keywords. +Merge the customized values of that variable on top of the +standard values and return the new list. For this to work, +`ess-font-lock-keywords' should be a name of the +ess-[dialect]-font-lock-keywords variable." + (delq nil + (mapcar (lambda (c) + (when (cdr c) + (symbol-value (car c)))) + (ess--extract-fl-keywords)))) + +(defun ess-font-lock-toggle-keyword (&optional keyword) + (interactive) + (let* ((values (ess--fl-keywords-values)) + (keyword (or keyword + (if (called-interactively-p 'any) + (intern (ess-completing-read + "Keyword to toggle" + (mapcar (lambda (el) (symbol-name (car el))) + (car values)) + nil t)) + (error "Wrong number of arguments")))) + (kwd (cond + ;; already in custom values + ((assoc keyword (cdr values))) + ;; if keyword is not already in custom values (can happen if + ;; we add new keywords but the user has the old value saved in + ;; .emacs-custom.el) + ((let ((kwd (assoc keyword (car values))) + (sym ess-font-lock-keywords)) + (when kwd + (set sym (cons kwd (symbol-value sym))) + kwd))) + (t (error "Invalid keyword %s" keyword))))) + (setcdr kwd (not (cdr kwd))) + (let ((mode major-mode) + (dialect ess-dialect)) + ;; refresh font-lock defaults in all relevant buffers + (mapc (lambda (b) + (with-current-buffer b + (when (and (eq major-mode mode) + (eq ess-dialect dialect)) + (font-lock-refresh-defaults)))) + (buffer-list))))) + +(defun ess--generate-font-lock-submenu (_menu) + "Generate ESS font-lock submenu." + (append (mapcar (lambda (el) + `[,(symbol-name (car el)) + (lambda () (interactive) + (ess-font-lock-toggle-keyword ',(car el))) + :style toggle + :enable t + :selected ,(cdr el)]) + (ess--extract-fl-keywords)) + (list "-----" + ["Save to custom" + (lambda () (interactive) + (customize-save-variable ess-font-lock-keywords + (ess--extract-fl-keywords))) + t]))) + + +;;; External modes + +;; Define these here for the byte compiler since ido dynamically +;; let-binds them: +(defvar ido-choice-list) +(defvar ido-context-switch-command) +(defvar ido-directory-too-big) +(defvar ido-directory-nonreadable) + +(defun ess-completing-read (prompt collection &optional predicate + require-match initial-input hist def) + "Read a string in the minibuffer, with completion. +Use `ido-completing-read' if IDO interface is present, or fall +back on classical `completing-read' otherwise. Meaning of +arguments is as in `completing-read' (PROMPT is automatically +suffixed with ': ' and (default %s) when needed). If HIST is null +use `ess--completing-hist' as history. See also `ess-use-ido'." + (let ((use-ido (and ess-use-ido (featurep 'ido)))) + (setq hist (or hist 'ess--completing-hist)) + (when (and def (not use-ido)) ;; ido places in front and highlights the default + (setq prompt (format "%s(default %s)" prompt def))) + (setq prompt (concat prompt ": ")) + (if use-ido + (let ((reset-ido (and use-ido (not ido-mode))) ;people not using ido but having it) + (ido-current-directory nil) + (ido-directory-nonreadable nil) + (ido-directory-too-big nil) + (ido-context-switch-command 'ignore) + (ido-enable-flex-matching ess-ido-flex-matching) ;it's fast and useful, may be get into options + (ido-choice-list (copy-sequence collection)) ;ido removes the match (reported) + sel) + (unwind-protect + (progn + (add-hook 'minibuffer-setup-hook 'ido-minibuffer-setup) + (add-hook 'choose-completion-string-functions 'ido-choose-completion-string) + (setq sel (ido-read-internal 'list prompt hist def require-match initial-input)) + (when hist ;; ido does not push into hist the whole match if C-SPC or RET is used (reported) + (unless (string= sel (car (symbol-value hist))) + (set hist (cons sel (symbol-value hist)))))) + (when reset-ido + (remove-hook 'minibuffer-setup-hook 'ido-minibuffer-setup) + (remove-hook 'choose-completion-string-functions 'ido-choose-completion-string))) + sel) + ;; else usual completion + (completing-read prompt collection predicate require-match initial-input hist def)))) + +(defun ess--setup-auto-complete (sources &optional inferior) + "Setup auto-complete depending on user settings. +SOURCES gets added to `ac-sources', INFERIOR should be t for +inferior buffers." + ;; auto-complete + (when (and (boundp 'ac-sources) + (if inferior + (eq ess-use-auto-complete t) + ess-use-auto-complete)) + (add-to-list 'ac-modes major-mode) + ;; files should be in front; ugly, but needed + (setq ac-sources + (delq 'ac-source-filename ac-sources)) + (mapc (lambda (el) (add-to-list 'ac-sources el)) + sources) + (add-to-list 'ac-sources 'ac-source-filename))) + +(defun ess--setup-company (sources &optional inferior) + "Setup company depending on user settings. +SOURCES gets added to `company-backends', and when t, INFERIOR +specifies inferior buffers." + ;; company + (when (and (boundp 'company-backends) + (if inferior + (eq ess-use-company t) + ess-use-company)) + (setq-local company-backends + (cl-copy-list (append sources company-backends))) + (delq 'company-capf company-backends))) + +(defmacro ess--execute-electric-command (map &optional prompt wait exit-form &rest args) + "Execute single-key comands defined in MAP till a key is pressed which is not part of map. +Single-key input commands are those that once executed do not +require the prefix command for subsequent invocation. Return the +value of the lastly executed command. PROMPT is passed to +`read-event'. + +If WAIT is t, wait for next input and ignore the keystroke which +triggered the command. + +Each command in map should accept one at least one argument, the +most recent event (as read by `read-event'). ARGS are the +supplementary arguments passed to the commands. + +EXIT-FORM should be supplied for a more refined control of the +read-even loop. The loop is exited when EXIT-FORM evaluates to +t. See examples in the tracebug code." + ;;VS[09-06-2013]: check: it seems that set-temporary-overlay-map is designed + ;;for this type of things; see also repeat.el package. + `(let* ((ev last-command-event) + (command (lookup-key ,map (vector ev))) + out exit ) + (if (not (or ,wait command)) + (message "%s is undefined" (key-description (this-command-keys))) + (unless ,wait + (setq out (and command (funcall command ev ,@args)))) + (while (and (not exit) + (setq command + (lookup-key ,map + (vector (setq ev (read-event ,prompt)))))) + (setq out (funcall command ev ,@args)) + (sleep-for .01) + (setq exit ,exit-form)) + (unless exit ;; push only if an event triggered the exit + (push ev unread-command-events)) + out))) + +(cl-defgeneric ess-build-tags-command () + "Command passed to generate tags. +If nil, `ess-build-tags-for-directory' uses the mode's imenu +expression. Otherwise, it should be a string with two %s +formats: one for directory and another for the output file." + nil) + + +;;; Emacs itself + +(defun ess-yank-cleaned-commands () + "Yank and strip the code, leaving only (R/S/Lsp/..) commands. +Deletes any lines not beginning with a prompt, and then removes +the prompt from those lines that remain. Invoke this command with +C-u C-u C-y." + (setq yank-window-start (window-start)) + (let ((beg (point))) + (push-mark beg) + (setq this-command t) + (insert-for-yank (current-kill 0)) + (when (and (require 'ess-trns) (fboundp 'ess-transcript-clean-region)) + (ess-transcript-clean-region beg (point) nil)) + (if (eq (point) beg) + (message "No commands found")) + (if (eq this-command t) + (setq this-command 'yank)))) + +(defun ess-yank (&optional arg) + "With double prefix ARG (C-u C-u) call `ess-yank-cleaned-commands'." + (interactive "*P") + (if (equal '(16) arg) + (ess-yank-cleaned-commands) + (let* ((remapped (command-remapping 'yank (point))) + (command (cond ((eq remapped 'ess-yank) 'yank) + ((null remapped) 'yank) + (t remapped)))) + (funcall command arg)))) + +(put 'ess-yank 'delete-selection 'yank) + +(defun ess-build-tags-for-directory (dir tagfile) + "Ask for directory and tag file and build tags for current dialect. +If the current language defines `ess-build-tags-command' use it +and ask the subprocess to build the tags. Otherwise use imenu +regexp and call find .. | etags .. in a shell command. You must +have 'find' and 'etags' programs installed. + +Use M-. to navigate to a tag. \\[visit-tags-table] to +append/replace the currently used tag table. + +If prefix is given, force tag generation based on imenu. Might be +useful when different language files are also present in the +directory (.cpp, .c etc)." + (interactive "DDirectory to tag: +GTags file (default TAGS): ") + (when (or (eq (length (file-name-nondirectory tagfile)) 0) + (file-directory-p tagfile)) + (setq tagfile (concat (file-name-as-directory tagfile) "TAGS"))) + ;; emacs find-tags doesn't play well with remote TAG files :( + (when (file-remote-p tagfile) + (require 'tramp) + (setq tagfile (with-parsed-tramp-file-name tagfile foo foo-localname))) + (when (file-remote-p dir) + (require 'tramp) + (setq dir (with-parsed-tramp-file-name dir foo foo-localname))) + (if (and (ess-build-tags-command) (null current-prefix-arg)) + (ess-eval-linewise (format (ess-build-tags-command) dir tagfile)) + ;; else generate from imenu + (unless imenu-generic-expression + (error "No ess-tag-command found, and no imenu-generic-expression defined")) + (let* ((find-cmd + (format "find %s -type f -size 1M \\( -regex \".*\\.\\(cpp\\|jl\\|[RsrSch]\\(nw\\)?\\)$\" \\)" dir)) + (regs (delq nil (mapcar (lambda (l) + (if (string-match "'" (cadr l)) + nil ;; remove for time being + (format "/%s/\\%d/" + (replace-regexp-in-string "/" "\\/" (nth 1 l) t) + (nth 2 l)))) + imenu-generic-expression))) + (tags-cmd (format "etags -o %s --regex='%s' -" tagfile + (mapconcat 'identity regs "' --regex='")))) + (message "Building tags: %s" tagfile) + (when (= 0 (shell-command (format "%s | %s" find-cmd tags-cmd))) + (message "Building tags .. ok!"))))) + + +;;; System + +;; trying different viewers; thanks to an original patch for +;; ess-swv.el from Leo : +(defun ess-get-ps-viewer () + "Get external PostScript viewer to be used from ESS. +Use `ess-ps-viewer-pref' when that is executably found by \\[executable-find]. +Otherwise try a list of fixed known viewers." + (file-name-nondirectory + (or (and ess-ps-viewer-pref ; -> ./ess-custom.el + (executable-find ess-ps-viewer-pref)) + (executable-find "gv") + (executable-find "evince") + (executable-find "kghostview")))) + +(defun ess-get-pdf-viewer () + "Get external PDF viewer to be used from ESS. +Use `ess-pdf-viewer-pref' when that is executably found by \\[executable-find]. +Otherwise try a list of fixed known viewers." + (let ((viewer (or ess-pdf-viewer-pref + ;; (and (stringp ess-pdf-viewer-pref) ; -> ./ess-custom.el + ;; (executable-find ess-pdf-viewer-pref)) + (executable-find "evince") + (executable-find "kpdf") + (executable-find "okular") + (executable-find "xpdf") + (executable-find "acroread") + (executable-find "xdg-open") + ;; this one is wrong, (ok for time being as it is used only in swv) + (when (fboundp 'ess-get-words-from-vector) + (car (ess-get-words-from-vector + "getOption(\"pdfviewer\")\n")))))) + (when (stringp viewer) + (setq viewer (file-name-nondirectory viewer))) + viewer)) + + +;;; UI + +(defvar ess-current-region-overlay + (let ((overlay (make-overlay (point) (point)))) + (overlay-put overlay 'face 'highlight) + overlay) + "The overlay for highlighting currently evaluated region or line.") + +(defun ess-blink-region (start end) + (when ess-blink-region + (move-overlay ess-current-region-overlay start end) + (run-with-timer ess-blink-delay nil + (lambda () + (delete-overlay ess-current-region-overlay))))) + +(defun ess-deactivate-mark () + (cond ((and (featurep 'evil) (bound-and-true-p evil-mode)) + (when (evil-visual-state-p) + (evil-normal-state))) + (mark-active + (deactivate-mark)))) + +;; SJE: 2009-01-30 -- this contribution from +;; Erik Iverson + +(defun ess-tooltip-show-at-point (text xo yo) + "Show a tooltip displaying 'text' at (around) point, xo and yo are x- +and y-offsets for the toolbar from point." + (let ( + (fx (frame-parameter nil 'left)) + (fy (frame-parameter nil 'top)) + (fw (frame-pixel-width)) + (fh (frame-pixel-height)) + frame-left frame-top my-x-offset my-y-offset) + ;; The following comment was found before code looking much like that + ;; of frame-left and frame-top below in the file + ;; tooltip-help.el. I include it here for acknowledgement, and I did observe + ;; the same behavior with the Emacs window maximized under Windows XP. + + ;; -----original comment-------- + ;; handles the case where (frame-parameter nil 'top) or + ;; (frame-parameter nil 'left) return something like (+ -4). + ;; This was the case where e.g. Emacs window is maximized, at + ;; least on Windows XP. The handling code is "shamelessly + ;; stolen" from cedet/speedbar/dframe.el + ;; (contributed by Andrey Grigoriev) + (setq frame-left (if (not (consp fx)) + fx + (if (eq (car fx) '-) + (- (display-pixel-width) (car (cdr fx)) fw) + (car (cdr fx))))) + (setq frame-top (if (not (consp fy)) + fy + (if (eq (car fy) '-) + (- (display-pixel-height) (car (cdr fy)) fh) + (car (cdr fy))))) + ;; calculate the offset from point, use xo and yo to adjust to preference + (setq my-x-offset (+ (car(window-inside-pixel-edges)) + (car(posn-x-y (posn-at-point))) + frame-left xo)) + (setq my-y-offset (+ (cadr(window-inside-pixel-edges)) + (cdr(posn-x-y (posn-at-point))) + frame-top yo)) + (let ((tooltip-frame-parameters + (cons (cons 'top my-y-offset) + (cons (cons 'left my-x-offset) + tooltip-frame-parameters)))) + (tooltip-show text)))) + +(defun ess-select-frame-set-input-focus (frame) + "Select FRAME, raise it, and set input focus, if possible. +Copied almost verbatim from gnus-utils.el (but with test for mac added)." + ;; The function `select-frame-set-input-focus' won't set + ;; the input focus under Emacs 21.2 and X window system. + ;;((fboundp 'select-frame-set-input-focus) + ;; (defalias 'gnus-select-frame-set-input-focus + ;; 'select-frame-set-input-focus) + ;; (select-frame-set-input-focus frame)) + (raise-frame frame) + (select-frame frame) + (cond ((and + (memq window-system '(x mac)) + (fboundp 'x-focus-frame)) + (x-focus-frame frame)) + ((and (eq window-system 'w32) + ;; silence byte compiler warnings about w32-fns + (fboundp 'w32-focus-frame)) + (w32-focus-frame frame))) + (when focus-follows-mouse + (set-mouse-position frame (1- (frame-width frame)) 0))) + +(define-obsolete-function-alias 'ess-do-auto-fill 'do-auto-fill "ESS 19.04") + + +;;; Syntax + +(defun ess-containing-sexp-position () + (cadr (syntax-ppss))) + +(defun ess-code-end-position () + "Like (line-end-position) but stops at comments." + (save-excursion + (goto-char (1+ (line-end-position))) + (forward-comment -1) + (point))) + +;; FIXME: The following function pattern stuff is specific to R but is +;; used throughout ESS +(defvar ess-r-set-function-start + ;; [MGAR].. <=> {setMethod(), set[Group]Generic(), setAs(), setReplaceMethod()} + ;; see also set-S4-exp in ess-r-function-pattern below + "^set[MGAR][GMa-z]+\\s-?(") + +(defvar ess-function-pattern nil ; in R set to ess-r-function-pattern + "Regexp to match the beginning of a function in S buffers.") + +(defvar ess-r-symbol-pattern + "\\(\\sw\\|\\s_\\)" + "The regular expression for matching an R symbol.") + +(defvar ess-r-name-pattern + (concat "\\(" ess-r-symbol-pattern "+\\|\\(`\\).+`\\)") + "The regular expression for matching a R name.") + +(defvar ess--r-s-function-pattern + (let* ((Q "\\s\"") ; quote + (Sym-0 "\\(\\sw\\|\\s_\\)") ; symbol + (Symb (concat Sym-0 "+")) + (xSymb "[^ \t\n\"']+") ;; (concat "\\[?\\[?" Sym-0 "*")); symbol / [ / [[ / [symbol / [[symbol + ;; FIXME: allow '%foo%' but only when quoted; don't allow [_0-9] at beg. + (regex-or "\\)\\|\\(") ; OR + (space "\\(\\s-\\|\n\\)*") ; white space + + (part-1 (concat + "\\(" ;;--------outer Either------- + "\\(\\(" ; EITHER + Q xSymb Q ; any function name between quotes + regex-or + "\\(^\\|[ ]\\)" Symb ; (beginning of name) + ess-r-symbol-pattern + "\\)\\)")) ; END EITHER OR + + (set-S4-exp + (concat + "^set\\(As\\|Method\\|Generic\\|GroupGeneric\\|ReplaceMethod\\)(" ; S4 ... + Q xSymb Q "," space + ;; and now often `` signature(......), : '' + ".*" ;; <<< FIXME ??? + )) + + (part-2 (concat + "\\|" ;;--------outer Or --------- + set-S4-exp + "\\)" ;;--------end outer Either/Or------- + + "\\(" space "\\s<.*\\s>\\)*" ; whitespace, comment + ;; FIXME: in principle we should skip 'definition *= *' here + space "function\\s-*(" ; whitespace, function keyword, parenthesis + ))) + `(,part-1 ,part-2)) + "Placeholder for use in constructing `ess-r-function-pattern' and `ess-s-function-pattern'.") + +(defvar ess-r-function-pattern + (concat (car ess--r-s-function-pattern) + "\\s-*\\(<-\\|=\\)" ; whitespace, assign + (nth 1 ess--r-s-function-pattern)) + "The regular expression for matching the beginning of an R function.") + +(defvar ess-s-function-pattern + (concat (car ess--r-s-function-pattern) + "\\s-*\\(<-\\|_\\|=\\)" ; whitespace, assign (incl. "_") + (nth 1 ess--r-s-function-pattern)) + "The regular expression for matching the beginning of an S function.") + +(defvar ess--fn-name-start-cache nil) + +(defun ess--fn-name-start () + "Return (FN-NAME . START-POS). +FN-NAME is a function name located before the pointer. START-POS +is the position where FN-NAME starts. Store this cons in variable +`ess--fn-name-start-cache'." + (save-excursion + (save-restriction + (let* ((proc (get-buffer-process (current-buffer))) + (mark (and proc (process-mark proc)))) + (if (and mark (>= (point) mark)) + (narrow-to-region mark (point))) + (and (fboundp 'ess-noweb-narrow-to-chunk) + (bound-and-true-p ess-noweb-mode) + (ess-noweb-narrow-to-chunk)) + (unless (ess-inside-string-p) + (setq ess--fn-name-start-cache + (condition-case nil ;; check if it is inside a functon + (progn + ;; for the sake of big buffers, look only 1000 chars back + (narrow-to-region (max (point-min) (- (point) 1000)) (point)) + (up-list -1) + (while (not (looking-at "(")) + (up-list -1)) + (let ((funname (symbol-name (ess-symbol-at-point)))) + (when (and funname + (not (member funname ess-S-non-functions))) + (cons funname (- (point) (length funname)))))) + (error nil)))))))) + +(defun ess-symbol-at-point () + "Like `symbol-at-point' but consider fully qualified names. +Fully qualified names include accessor symbols (like aaa$bbb and +aaa@bbb in R)." + (with-syntax-table (or ess-mode-completion-syntax-table + (syntax-table)) + (symbol-at-point))) + +(defun ess-bounds-of-symbol () + "Get bounds of symbol at point. +Intended for completion." + (let ((bounds (with-syntax-table (or ess-mode-completion-syntax-table + (syntax-table)) + (bounds-of-thing-at-point 'symbol)))) + (and bounds + (not (save-excursion + (goto-char (car bounds)) + (looking-at "/\\|.[0-9]"))) + bounds))) + +(defun ess-symbol-start () + "Get initial position for objects completion. +Symbols are fully qualified names that include accessor +symbols (like aaa$bbb and aaa@bbb in R)." + (car (ess-bounds-of-symbol))) + +(defun ess-arg-start () + "Get initial position for args completion." + (when (not (ess-inside-string-p)) + (when (ess--fn-name-start) + (if (looking-back "[(,]+[ \t\n]*" nil) + (point) + (ess-symbol-start))))) + +(defun ess-inside-string-p (&optional pos) + "Return non-nil if POS is inside string. +POS defaults to `point'." + (let ((pos (or pos (point)))) + (nth 3 (syntax-ppss pos)))) + +(defun ess-inside-comment-p (&optional pos) + "Return non-nil if POS is inside string. +POS defaults to `point'." + (let ((pos (or pos (point)))) + (nth 4 (syntax-ppss pos)))) + +(defun ess-inside-string-or-comment-p (&optional pos) + "Return non-nil if POS is inside a string or comment. +POS defaults to `point'." + (or (ess-inside-string-p pos) + (ess-inside-comment-p pos))) + +(defun ess-inside-brackets-p (&optional pos curly?) + "Return t if position POS is inside brackets. +POS defaults to point if no value is given. If CURLY?? is non nil +also return t if inside curly brackets." + (save-excursion + (let ((ppss (syntax-ppss pos)) + (r nil)) + (while (and (> (nth 0 ppss) 0) + (not r)) + (goto-char (nth 1 ppss)) + (when (or (char-equal ?\[ (char-after)) + (and curly? + (char-equal ?\{ (char-after)))) + (setq r t)) + (setq ppss (syntax-ppss))) + r))) + + +;;; String manipulation + +(defun ess-quote-special-chars (string) + (replace-regexp-in-string + "\"" "\\\\\\&" + (replace-regexp-in-string ;; replace backslashes + "\\\\" "\\\\" string nil t))) + +(defun ess-rep-regexp (regexp to-string &optional fixedcase literal verbose) + "Instead of (replace-regexp..) -- do NOT replace in strings or comments. +If FIXEDCASE is non-nil, do *not* alter case of replacement text. +If LITERAL is non-nil, do *not* treat `\\' as special. +If VERBOSE is non-nil, (message ..) about replacements." + (let ((case-fold-search (and case-fold-search + (not fixedcase))); t <==> ignore case in search + (ppt (point)); previous point + (p)) + (while (and (setq p (re-search-forward regexp nil t)) + (< ppt p)) + (setq ppt p) + (cond ((not (ess-inside-string-or-comment-p (1- p))) + (if verbose + (let ((beg (match-beginning 0))) + (message "buffer in (match-beg.,p)=(%d,%d) is '%s'" + beg p (buffer-substring beg p)))) + (replace-match to-string fixedcase literal)))))) + +(defun ess-replace-regexp-dump-to-src (regexp to-string &optional dont-query verbose) + "Replace REGEXP matches from beginning of buffer with TO-STRING. +If DONT-QUERY is non-nil, call `ess-rep-regexp' else call +`query-replace-regexp'. VERBOSE can be passed to `ess-rep-regexp'." + (save-excursion + (goto-char (point-min)) + (if dont-query + (ess-rep-regexp regexp to-string nil nil verbose) + (query-replace-regexp regexp to-string nil)))) + +(defun ess-space-around (word &optional from verbose) + "Replace-regexp .. ensuring space around all occurences of WORD. +Start at from FROM, which defaults to point." + (interactive "d\nP"); Defaults: point and prefix (C-u) + (save-excursion + (goto-char from) + (ess-rep-regexp (concat "\\([^ \t\n]\\)\\(\\<" word "\\>\\)") + "\\1 \\2" nil nil verbose) + (goto-char from) + (ess-rep-regexp (concat "\\(\\<" word "\\>\\)\\([^ \t\n]\\)") + "\\1 \\2" nil nil verbose))) + +(defun ess-time-string (&optional clock) + "Return a string for use as a timestamp, like \"13 Mar 1992\". +Include hr:min if CLOCK is non-nil. Redefine to taste." + (format-time-string (concat "%e %b %Y" (if clock ", %H:%M")))) + +(defun ess-replace-in-string (str regexp newtext &optional literal) + "Replace all matches in STR for REGEXP with NEWTEXT string. +Optional LITERAL non-nil means do a literal replacement. +Otherwise treat \\ in NEWTEXT string as special: + \\& means substitute original matched text, + \\N means substitute match for \(...\) number N, + \\\\ means insert one \\." + (if (not (stringp str)) + (error "(replace-in-string): First argument must be a string: %s" str)) + (if (stringp newtext) + nil + (error "(replace-in-string): 3rd arg must be a string: %s" + newtext)) + (let ((rtn-str "") + (start 0) + (special) + match prev-start) + (while (setq match (string-match regexp str start)) + (setq prev-start start + start (match-end 0) + rtn-str + (concat + rtn-str + (substring str prev-start match) + (cond (literal newtext) + (t (mapconcat + (function + (lambda (c) + (if special + (progn + (setq special nil) + (cond ((eq c ?\\) "\\") + ((eq c ?&) + (substring str + (match-beginning 0) + (match-end 0))) + ((and (>= c ?0) (<= c ?9)) + (if (> c (+ ?0 (length + (match-data)))) + ;; Invalid match num + (error "(replace-in-string) Invalid match num: %c" c) + (setq c (- c ?0)) + (substring str + (match-beginning c) + (match-end c)))) + (t (char-to-string c)))) + (if (eq c ?\\) (progn (setq special t) nil) + (char-to-string c))))) + newtext "")))))) + (concat rtn-str (substring str start)))) + +;;- From: friedman@gnu.ai.mit.edu (Noah Friedman) +;;- Date: 12 Feb 1995 21:30:56 -0500 +;;- Newsgroups: gnu.emacs.sources +;;- Subject: nuke-trailing-whitespace +;;- +;;- This is too trivial to make into a big todo with comments and copyright +;;- notices whose length exceed the size of the actual code, so consider it +;;- public domain. Its purpose is along similar lines to that of +;;- `require-final-newline', which is built in. I hope the names make it +;;- obvious. + +;; (add-hook 'write-file-hooks 'nuke-trailing-whitespace) +;;or at least +;; (add-hook 'ess-mode-hook +;; (lambda () +;; (add-hook 'local-write-file-hooks 'nuke-trailing-whitespace))) + +(defvar ess-nuke-trailing-whitespace-p nil;disabled by default 'ask + "[Dis]activates (ess-nuke-trailing-whitespace). +Disabled if nil; if t, it works unconditionally, otherwise, +the user is queried. +Note that setting the default to t may not be a good idea when you edit +binary files!") + +;;; MM: Newer Emacsen now have delete-trailing-whitespace +;;; -- but no customization like nuke-trailing-whitespace-p .. +(defun ess-nuke-trailing-whitespace () + "Nuke all trailing whitespace in the buffer. +Whitespace in this case is just spaces or tabs. This is a useful +function to put on `write-file-hooks'. If the variable +`ess-nuke-trailing-whitespace-p' is nil, this function is +disabled. If t, unreservedly strip trailing whitespace. If not +nil and not t, query for each instance." + (interactive) + (let ((bname (buffer-name))) + (cond ((or + (string= major-mode "rmail-mode") + (string= bname "RMAIL") + nil)); do nothing.. + (t + (and (not buffer-read-only) + ess-nuke-trailing-whitespace-p + (save-match-data + (save-excursion + (save-restriction + (widen) + (goto-char (point-min)) + (cond ((eq ess-nuke-trailing-whitespace-p t) + (while (re-search-forward "[ \t]+$" (point-max) t) + (delete-region (match-beginning 0) + (match-end 0)))) + (t + (query-replace-regexp "[ \t]+$" ""))))))))) + ;; always return nil, in case this is on write-file-hooks. + nil)) + + +;;; Debugging tools + +(defun ess-write-to-dribble-buffer (text) + "Write TEXT to `ess-dribble-buffer'." + (when (or ess-verbose ess-write-to-dribble) + (with-current-buffer (get-buffer-create ess-dribble-buffer) + (goto-char (point-max)) + (insert-before-markers text)))) + +(defun ess-if-verbose-write (text) + "Write TEXT to `ess-dribble-buffer' only if `ess-verbose' is non-nil." + (when ess-verbose (ess-write-to-dribble-buffer text))) + +(defun ess-kill-last-line () + (save-excursion + (goto-char (point-max)) + (forward-line -1) + (delete-region (point-at-eol) (point-max)))) + +(defvar ess-adjust-chunk-faces t + "Whether to adjust background color in code chunks.") + +(defvar-local ess-buffer-has-chunks nil + "Internal usage: indicates whether a buffer has chunks. +This is used to make face adjustment a no-op when a buffer does +not contain chunks.") + +(defvar ess-adjust-face-intensity 2 + "Default intensity for adjusting faces.") + +(defun ess-adjust-face-background (start end &optional intensity) + "Adjust face background between START and END. +On dark background, lighten. Oposite on light." + (let* ((intensity (or intensity ess-adjust-face-intensity)) + (color (color-lighten-name + (face-background 'default) + (if (eq (frame-parameter nil 'background-mode) 'light) + (- intensity) + intensity))) + (face (list (cons 'background-color color)))) + (with-silent-modifications + (ess-adjust-face-properties start end 'face face)))) + +;; Taken from font-lock.el. +(defun ess-adjust-face-properties (start end prop value) + "Tweaked `font-lock-prepend-text-property'. +Adds the `ess-face-adjusted' property so we only adjust face once." + (let ((val (if (listp value) value (list value))) next prev) + (while (/= start end) + (setq next (next-single-property-change start prop nil end) + prev (get-text-property start prop)) + ;; Canonicalize old forms of face property. + (and (memq prop '(face font-lock-face)) + (listp prev) + (or (keywordp (car prev)) + (memq (car prev) '(foreground-color background-color))) + (setq prev (list prev))) + (add-text-properties start next + (list prop (append val (if (listp prev) prev (list prev))) + 'ess-face-adjusted t)) + (setq start next)))) + +(defun ess-find-overlay (pos prop) + (cl-some (lambda (overlay) + (when (overlay-get overlay prop) + overlay)) + (overlays-at pos))) + +(defun ess-sleep () + "Put Emacs to sleep for `ess-sleep-for-shell' seconds (floats work)." + (sleep-for ess-sleep-for-shell)) + +(defun ess-setq-vars-local (alist &optional buf) + "Set language variables from ALIST, in buffer BUF, if desired." + (when buf (set-buffer buf)) + (mapc (lambda (pair) + (make-local-variable (car pair)) + (set (car pair) (eval (cdr pair))) + (when ess--make-local-vars-permanent + (put (car pair) 'permanent-local t))) ;; hack for Rnw + alist)) + +(defvar ess-error-regexp "^\\(Syntax error: .*\\) at line \\([0-9]*\\), file \\(.*\\)$" + "Regexp to search for errors.") + +(define-obsolete-function-alias 'ess-beginning-of-function 'beginning-of-defun "ESS 19.04") +(define-obsolete-function-alias 'ess-end-of-function 'end-of-defun "ESS 19.04") + +(provide 'ess-utils) + +;;; ess-utils.el ends here diff --git a/elpa/ess-20190121.1430/ess.el b/elpa/ess-20190121.1430/ess.el new file mode 100644 index 00000000..fc69a9bd --- /dev/null +++ b/elpa/ess-20190121.1430/ess.el @@ -0,0 +1,222 @@ +;;; ess.el --- Emacs Speaks Statistics -*- lexical-binding: t; -*- +;; +;; Author: David Smith +;; A.J. Rossini +;; Richard M. Heiberger +;; Kurt Hornik +;; Martin Maechler +;; Rodney A. Sparapani +;; Stephen Eglen +;; Sebastian P. Luque +;; Henning Redestig +;; Vitalie Spinu +;; Lionel Henry +;; J. Alexander Branham +;; +;; Maintainer: ESS Core Team +;; Copyright (C) 1997-2018 ESS Core Team +;; Created: 7 Jan 1994 +;; Version: 18.10.3snapshot +;; URL: https://ess.r-project.org/ +;; Package-Requires: ((emacs "25.1") (julia-mode "0.3")) +;; ESSR-Version: 1.5 +;; +;; 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 +;; https://www.r-project.org/Licenses/ +;; +;;; Commentary: +;; +;; Emacs Speaks Statistics (ESS) is a package designed to support editing of +;; scripts and interaction with various statistical analysis programs such as R, +;; S-Plus, SAS, Stata and OpenBUGS/JAGS. For more details please visit ESS home +;; page at https://ess.r-project.org/ +;; +;;; Code: + +(require 'ess-custom) + +(defvar reporter-prompt-for-summary-p) + + +;;*;; Internal ESS tools and variables + +(defvar ess-lisp-directory + (directory-file-name + (file-name-directory + (if load-file-name + (file-truename load-file-name) + (locate-library "ess-utils") ))) + "Directory containing ess-site.el(c) and other ESS Lisp files.") + +(defvar ess-etc-directory nil + "Location of the ESS etc/ directory. +The ESS etc directory stores various auxillary files that are useful +for ESS, such as icons.") +;; Try to detect the `etc' folder only if not alread set up by distribution +(unless ess-etc-directory + (let ((path-list '("../etc/ess/" "../etc/" "../../etc/ess/" "./etc/"))) + (while (and (listp path-list) (consp path-list)) + (setq ess-etc-directory + (expand-file-name (concat ess-lisp-directory "/" + (car path-list)))) + (if (file-directory-p ess-etc-directory) + (setq path-list nil) + (setq ess-etc-directory nil) + (setq path-list (cdr path-list)) + (when (null path-list) + (beep 0) (beep 0) + (message (concat + "ERROR:ess-etc-directory\n" + "Relative to ess-lisp-directory, one of the following must exist:\n" + "../etc/ess, ../etc, ../../etc/ess or ./etc")) + (sit-for 4)))))) + +(defvar-local ess--make-local-vars-permanent nil + "If this variable is non-nil in a buffer make all variable permannet. +Used in noweb modes.") +(put 'ess--make-local-vars-permanent 'permanent-local t) + + +;; Versions + +;; updated by 'make'! +(defconst ess-version "18.10.3snapshot" + "Version of ESS currently loaded.") + +;; updated by 'make'! +(defconst essr-version "1.5" + "Version of ESSR package.") + +(defvar ess-revision nil + "The revision and date of ESS. +Is set by \\[ess-version-string].") + +;;;###autoload +(defun ess-version () + "Return a string with ESS version information." + (interactive) + (message (format "ess-version: %s (loaded from %s)" + (ess-version-string) + (file-name-directory ess-lisp-directory)))) + +(defun ess-version-string () + (let* ((ess-dir (file-name-directory ess-lisp-directory)) ; if() the top-level 'ess/' + (is-release (file-exists-p (concat ess-etc-directory ".IS.RELEASE"))) + (rel-string (if is-release "Released ")) + (git-ref-fn (concat ess-dir ".git/HEAD")) + (git-ref (when (file-exists-p git-ref-fn) + (with-current-buffer (find-file-noselect git-ref-fn) + (goto-char (point-min)) + (when (re-search-forward "ref: \\(.*\\)\n" nil t) + (match-string 1))))) + (git-fname (if git-ref + (concat ess-dir ".git/" git-ref) + ;; For release + (concat ess-etc-directory "git-ref"))) + (git-rev (when (file-exists-p git-fname) + (with-current-buffer (find-file-noselect git-fname) + (goto-char (point-min)) + (concat "git: "(buffer-substring 1 (point-at-eol)))))) + (elpa-fname (concat ess-dir "ess-pkg.el")) + (elpa-rev (when (file-exists-p elpa-fname) + ;; Get it from ELPA dir name, (probably won't work if installed manually) + (concat "elpa: " + (replace-regexp-in-string "ess-" "" + (file-name-nondirectory + (substring ess-dir 1 -1))))))) + ;; Set the "global" ess-revision: + (setq ess-revision (format "%s%s%s" + (or rel-string "") + (or git-rev "") + (or elpa-rev ""))) + (when (string= ess-revision "") + (setq ess-revision "")) + (concat ess-version " [" ess-revision "]"))) + + +;;; Bug Reporting + +;;;###autoload +(defun ess-submit-bug-report () + "Submit a bug report to the ESS maintainers." + (interactive) + (let ((reporter-prompt-for-summary-p 't)) + (reporter-submit-bug-report + "ess-bugs@r-project.org" + (concat "ess-mode " (ess-version-string)) + (list 'ess-language + 'ess-dialect + 'ess-ask-for-ess-directory + 'ess-ask-about-transfile + 'default-directory + 'ess-keep-dump-files + 'ess-source-directory + 'ess-use-ido + 'ess-use-eldoc + 'ess-use-tracebug + 'ess-use-auto-complete + 'ess-use-company + 'ess-eval-visibly-p + 'ess-can-eval-in-background + 'ess-local-process-name) + nil + (lambda () + ;;(goto-char (point-max)) + (rfc822-goto-eoh) + (forward-line 1) + (insert "\n\n-------------------------------------------------------\n") + (insert "This bug report will be sent to the ESS bugs email list\n") + (insert "Press C-c C-c when you are ready to send your message.\n") + (insert "-------------------------------------------------------\n\n") + (insert (with-current-buffer ess-dribble-buffer + (goto-char (point-max)) + (forward-line -100) + (buffer-substring-no-properties (point) (point-max)))))))) + + + +;;; Timer + +(defcustom ess-idle-timer-interval 1 + "Number of idle seconds to wait before running function in `ess-idle-timer-functions'." + :type '(integer) + :group 'ess) + +(defvar ess-idle-timer-functions nil + "A list of functions to run each `ess-idle-timer-interval' idle seconds. +If your function calls the process, you better use +`ess-when-new-input' to wrap your call. If you call the +subprocess please respect `ess-can-eval-in-background' variable. + +These functions are run with `run-hooks'. Use `add-hook' to add +symbols to this variable. + +Most likely you will need a local hook. Then you should specify +the LOCAL argument to `add-hook' and initialise it in +`ess-mode-hook' or `ess-post-run-hook', or one of the more +specialised hooks `ess-r-post-run-hook',`ess-stata-post-run-hook' +etc.") + +(defun ess--idle-timer-function nil + "Internal function executed by `ess--idle-timer'." + (run-hooks 'ess-idle-timer-functions)) + +(require 'timer) +(defvar ess--idle-timer + (run-with-idle-timer ess-idle-timer-interval 'repeat 'ess--idle-timer-function) + "Timer used to run `ess-idle-timer-functions'.") + + +(provide 'ess) + +;;; ess.el ends here diff --git a/elpa/ess-20190121.1430/ess.info b/elpa/ess-20190121.1430/ess.info new file mode 100644 index 00000000..cbc3baaa --- /dev/null +++ b/elpa/ess-20190121.1430/ess.info @@ -0,0 +1,5058 @@ +This is ess.info, produced by makeinfo version 6.5 from ess.texi. + +INFO-DIR-SECTION Emacs +START-INFO-DIR-ENTRY +* ESS: (ess). Emacs Speaks Statistics (R/S/S+, SAS, BUGS/JAGS and Stata). +END-INFO-DIR-ENTRY + +ESS -- Emacs Speaks Statistics +****************************** + + +File: ess.info, Node: Top, Next: Introduction, Up: (dir) + +ESS: Emacs Speaks Statistics +**************************** + +ESS version 18.10.3snapshot + + by A.J. Rossini, + R.M. Heiberger, + K. Hornik, + M. Maechler, + R.A. Sparapani, + S.J. Eglen, + S.P. Luque, + H. Redestig, + V. Spinu, + L. Henry, + and J.A. Branham. + + Emacs Speaks Statistics (ESS) provides an intelligent, consistent + interface between the user and the software. ESS interfaces with + R, SAS, S-PLUS, BUGS/JAGS and other statistical analysis packages + on GNU/Linux, other Unix-like systems such as macOS, and Microsoft + Windows. ESS is itself a package within the Emacs text editor and + uses Emacs features to streamline the creation and use of + statistical software. ESS knows the syntax and grammar of + statistical analysis packages and provides consistent display and + editing features based on that knowledge. ESS assists in + interactive and batch execution of statements written in these + statistical analysis languages. + + The source and documentation of ESS 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. + + ESS 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 in +the file COPYING in the same directory as this file for more details. + +* Menu: + +* Introduction:: Overview of features provided by this package +* Installation:: Installing ESS on your system +* Interactive ESS:: Interacting with statistical programs +* Entering commands:: Interacting with the ESS process +* Evaluating code:: Sending code to the ESS process +* Transcript Mode:: Manipulating saved transcript files +* Editing objects:: How to create/edit objects and functions +* Help:: Reading help files +* Completion:: Various completion mechanisms +* Developing with ESS:: Tools for package development and debugging +* Extras:: Other ESS features for the S family +* ESS for R:: Overview of ESS features for the S family +* ESS for SAS:: +* ESS for BUGS:: +* ESS for JAGS:: +* Mailing lists/bug reports:: How to get assistance with ESS +* Customization:: Customizing ESS +* Indices:: + + +File: ess.info, Node: Introduction, Next: Installation, Prev: Top, Up: Top + +1 Introduction to ESS +********************* + +ESS provides a generic interface, through Emacs, to statistical +packages. It currently supports R (and the rest of the S family), SAS, +BUGS/JAGS, Stata, and Julia with the level of support roughly in that +order. + + Throughout this manual, _Emacs_ refers to _GNU Emacs_ by the Free +Software Foundation. Although previous versions of ESS supported other +Emacsen, current versions only support GNU Emacs. + + There are two main ways of interacting with ESS: through "regular" +modes or "inferior" modes. Regular modes act like normal Emacs major +modes. ESS major mods are displayed in the mode-line in the format +'ESS[dialect]', where 'dialect' can take values such as 'R', 'SAS', or +'S'. + + ESS also provides easy access to an "inferior process," which is an +Emacs buffer associated with a running process. This can be an R +session, for example. These inferior processes are referred to as +inferior ESS ('iESS'), and are shown in the modeline by 'iESS +[dialect]'. + + Currently, the documentation contains many references to ''R'' where +actually any supported (statistics) language is meant, i.e., 'R' could +also mean 'S' or 'SAS.' + + For exclusively interactive users of R, ESS provides a number of +features to make life easier. There is an easy to use command history +mechanism, including a quick prefix-search history. To reduce typing, +command-line completion is provided for all R objects and "hot keys" are +provided for common R function calls. Help files are easily accessible, +and a paging mechanism is provided to view them. Finally, an incidental +(but very useful) side-effect of ESS is that a transcript of your +session is kept for later saving or editing. + + No special knowledge of Emacs is necessary when using R interactively +under ESS. + + For those that use R in the typical edit-test-revise cycle when +writing R functions, ESS provides for editing of R functions in Emacs +buffers. Unlike the typical use of R where the editor is restarted +every time an object is edited, ESS uses the current Emacs session for +editing. In practical terms, this means that you can edit more than one +function at once, and that the ESS process is still available for use +while editing. Error checking is performed on functions loaded back +into R, and a mechanism to jump directly to the error is provided. ESS +also provides for maintaining text versions of your R functions in +specified source directories. + +* Menu: + +* Features:: Why should I use ESS? +* New features:: +* Credits:: Authors of and contributors to ESS +* Manual:: How to read this manual + + +File: ess.info, Node: Features, Next: New features, Up: Introduction + +1.1 Why should I use ESS? +========================= + +Statistical packages are powerful software systems for manipulating and +analyzing data, but their user interfaces often leave something +something to be desired: they offer weak editor functionality and they +differ among themselves so markedly that you have to re-learn how to do +those things for each package. ESS is a package which is designed to +make editing and interacting with statistical packages more uniform, +user-friendly and give you the power of Emacs as well. + + Additionally, both Emacs and ESS (and R) are free software designed +to give users full control over their computer. For more on what this +means, visit . + +* Menu: + +* Current Features:: + + +File: ess.info, Node: Current Features, Up: Features + +1.1.1 Features Overview +----------------------- + + * Languages Supported: + * S family (R, S, and S+ AKA S-PLUS) + * SAS + * BUGS/JAGS + * Stata + * Julia + * Editing source code (S family, SAS, BUGS/JAGS, Stata, Julia) + * Syntactic indentation and highlighting of source code + * Partial evaluation of code + * Loading and error-checking of code + * Source code revision maintenance + * Batch execution (SAS, BUGS/JAGS) + * Use of imenu to provide links to appropriate functions + * Interacting with the process (S family, SAS, Stata, Julia) + * Command-line editing + * Searchable Command history + * Command-line completion of S family object names and file + names + * Quick access to object lists and search lists + * Transcript recording + * Interface to the help system + * Transcript manipulation (S family, Stata) + * Recording and saving transcript files + * Manipulating and editing saved transcripts + * Re-evaluating commands from transcript files + * Interaction with Help Pages and other Documentation (R) + * Fast Navigation + * Sending Examples to running ESS process. + * Fast Transfer to Further Help Pages + * Help File Editing (R) + * Syntactic indentation and highlighting of source code. + * Sending Examples to running ESS process. + * Previewing + + For source code buffers, ESS offers several features: + + * Support for multiple indentation styles R code *Note Indenting::. + + * Facilities for loading and error-checking source files, including a + keystroke to jump straight to the position of an error in a source + file. *Note Error Checking::. + + * Source code revision maintenance, which allows you to keep historic + versions of R source files. *Note Source Files::. + + * Facilities for evaluating R code such as portions of source files, + or line-by-line evaluation of files (useful for debugging). *Note + Evaluating code::. + + ESS also provides features that make it easier to interact with +inferior ESS (iESS) process (a connection between your buffer and the +statistical package which is waiting for you to input commands). These +include: + + * Command-line editing for fixing mistakes in commands before they + are entered. *Note Command-line editing::. + + * Searchable command history for recalling previously-submitted + commands. *Note Command History::. + + * Command-line completion of both object and file names for quick + entry. *Note Completion::. + + * Hot-keys for quick entry of commonly-used commands in 'R' such as + 'objects()', and 'search()'. *Note Hot keys::. + + * Transcript recording for a complete record of all the actions in an + R session. *Note Transcript::. + + * Interface to the help system, with a specialized mode for viewing R + help files. *Note Help::. + + * Object editing. ESS allows you to edit more than one function + simultaneously in dedicated Emacs buffers. The ESS process may + continue to be used while functions are being edited. *Note Edit + buffer::. + + Finally, ESS provides features for re-submitting commands from saved +transcript files, including: + + * Evaluation of previously entered commands, stripping away + unnecessary prompts. *Note Transcript resubmit::. + + +File: ess.info, Node: New features, Next: Credits, Prev: Features, Up: Introduction + +1.2 New features in ESS +======================= + +Changes and New Features in 19.04 (unreleased): + + * Implement a more reliable check for the process busy state. + Background actions such as completion and directory synchronization + should not block the process and should not cause printing of the + extraneous output to the interpreter. + + * Activate 'goto-address-mode' for url and emal highlighting in + inferior buffers. + + * 'smart-underscore' and 'ess-smart-S-assign-key' have been removed. + Users who liked the previous behavior (i.e. underscore inserting + "<-") should bind 'ess-insert-assign' to the underscore in their + Emacs initialization file. For example, '(define-key + ess-r-mode-map "_" #'ess-insert-assign)' and '(define-key + inferior-ess-r-mode-map "_" #'ess-insert-assign)' will activate it + in all ESS R buffers. + + * ESS major modes are now defined using 'define-derived-mode'. This + makes ESS major modes respect modern conventions such as having + -mode-hook and -mode-map. Users are encouraged + to place customizations under the appropriate mode. + + * New option ess-auto-width controls setting the width option on + window changes. Users can change it to 'frame, 'window, or an + integer. See the docstring for details. 'ess-auto-width-visible' + controls visibility. + + * ESS now respects 'display-buffer-alist'. Users can now use + 'display-buffer-alist' to manage how and where windows appear. See + *Note (ess)Controlling buffer display:: for more information and + examples. + + * 'ess-roxy-mode' can now be enabled in non-R buffers. This is + primarily intended to support roxygen documentation for cpp + buffers. Preview functionality is not supported outside R buffers. + + * ESS[R]: DESCRIPTION files now open in 'conf-colon-mode'. + + * 'ess-style' now has effects when set as a file or directory local + variable. + + * 'ess-default-style' is now obsolete, use 'ess-style' instead. + + * Options for 'ess-gen-proc-buffer-name-function' have been renamed. + ess-gen-proc-buffer-name:projectile-or-simple was renamed to + ess-gen-proc-buffer-name:project-or-simple and + ess-gen-proc-buffer-name:projectile-or-directory was renamed to + ess-gen-proc-buffer-name:project-or-directory. As the name + suggests, these now rely on project.el (included with Emacs) rather + than projectile.el, which is a third-party package. + + * ESS[R] help pages now provide links to other help topics. This is + similar with what you would see with, for example + 'options(help_type = ``html'')' but works with the plain-text + version as well. This only works with 'options(useFancyQuotes = + TRUE)' (the default). + + * 'ess-rdired' buffers now derive from tabulated-list-mode. They + should look better and be a bit faster overall. The size column + now displays object sizes in bytes. + + * ESS removed support for many unused languages. This includes old + versions of S+, ARC, OMG, VST, and XLS. + + The following have been made obsolete or removed, see their +documentation for more detail: + + * Libraries for literate data analysis are obsolete and not loaded by + default. This includes 'ess-noweb', 'ess-swv', and related + functionality like 'Rnw-mode'. Users are encouraged to switch to + one of several other packages that deal with these modes. For + example, polymode , + , or markdown-mode with edit-indirect + . + + * User options for controlling display of buffers. This includes + 'ess-show-buffer-action', 'inferior-ess-same-window', + 'inferior-ess-own-frame', and 'inferior-ess-frame-alist'. See + above about ESS respecting 'display-buffer-alist'. + + * 'inferior-ess-*-start-file' variables. All modes except Stata did + not respect customization of this variable. In order to load a + file on startup, you should put a function on + 'ess-*-post-run-hook'. + + Bug Fixes in 18.10.3: + * More 'Makefile' fixes, notably installing '*.el's. + + Bug Fixes in 18.10.2: + * ESS[R] Fix namespace evaluation in non-installed packages. + Evaluation is directed into GlobalEnv as originally intended. + * 'Makefile' fixes, notably for 'make install' and including full + docs in the tarballs. + + Bug Fixes in 18.10-1: + * New functions 'ess-eval-line-visibly-and-step' ('C-c C-n' and + 'ess-eval-region-or-line-visibly-and-step' ('C-RET') which behave + as the old versions of 'ess-eval-line-and-step' and + 'ess-eval-region-or-line-and-step'. + + Changes and New Features in 18.10: + + * This is the last release to support Emacs older than 25.1. Going + forward, only GNU Emacs 25.1 and newer will be supported. Soon + after this release, support for older Emacs versions will be + dropped from the git master branch. Note that MELPA uses the git + master branch to produce ESS snapshots, so if you are using Emacs < + 25.1 from MELPA and are unable to upgrade, you should switch to + MELPA-stable. + + * ESS now displays the language dialect in the mode-line. So, for + example, R buffers will now show ESS[R] rather than ESS[S]. + + * The ESS manual has been updated and revised. + + * The ESS initialization process has been further streamlined. If + you update the autoloads (which installation from 'package-install' + does), you should not need to '(require 'ess-site)' at all, as + autoloads should automatically load ESS when it is needed (e.g. + the first time an R buffer is opened). In order to defer loading + your ESS config, you may want to do something like + '(with-require-after-load "ess" )' in your Emacs + init file. Users of the popular 'use-package' Emacs package can + now do '(use-package ess :defer t)' to take advantage of this + behavior. *Note (ess)Activating and Loading ESS:: for more + information on this feature. + + * ESS now respects Emacs conventions for keybindings. This means + that The 'C-c [letter]' bindings have been removed. This affects + 'C-c h', which was bound to 'ess-eval-line-and-step-invisibly' in + 'sas-mode-local-map'; 'C-c f', which was bound to + 'ess-insert-function-outline' in 'ess-add-MM-keys'; and 'C-c h', + which was bound to 'ess-handy-commands' in 'Rd-mode-map', + 'ess-noweb-minor-mode-map', and 'ess-help-mode-map' + + * Functions 'ess-eval-line-and-step' and + 'ess-eval-region-or-line-and-step' now behave consistently with + other evaluation function inside a package. + + * ESS[R]: 'ess-r-package-use-dir' now works with any mode. This sets + the working directory to the root of the current package including + for example C or C++ files within '/src'). + + * ESS[R]: Long + + prompts in the inferior no longer offset output. + + * ESS[R]: New option 'strip' for 'inferior-ess-replace-long+'. This + strips the entire + + sequence. + + * ESS modes now inherit from 'prog-mode'. In the next release, ESS + modes will use 'define-derived-mode' so that each mode will have + (for example) its own hooks and keymaps. + + * ESS[R]: Supports flymake in R buffers for Emacs 26 and newer. + Users need to install the 'lintr' package to use it. Customizable + options include 'ess-use-flymake', 'ess-r-flymake-linters', and + 'ess-r-flymake-lintr-cache'. + + * ESS[R]: Gained support for xref in Emacs 25+. *Note (emacs)Xref:: + + * ESS[R]: The startup screen is cleaner. It also displays the + startup directory with an explicit 'setwd()'. + + * ESS[R]: Changing the working directory is now always reflected in + the process buffer. + + * ESS[R]: 'Makevars' files open with 'makefile-mode'. + + * New variable 'ess-write-to-dribble'. This allows users to disable + the dribble ('*ESS*') buffer if they wish. + + * All of the '*-program-name' variables have been renamed to + '*-program'. Users who previously customized e.g. + 'inferior-ess-R-program-name' will need to update their + customization to 'inferior-ess-R-program'. These variables are + treated as risky variables. + + * 'ess-smart-S-assign' was renamed to 'ess-insert-assign'. It + provides similar functionality but for any keybinding, not just + '_'. For instance if you bind it to ';', repeated invokations + cycle through between assignment and inserting ';'. + + * 'C-c C-=' is now bound to 'ess-cycle-assign' by default. See the + documentation for details. New user customization option + 'ess-assign-list' controls which assignment operators are cycled. + + * ESS[R] In remote sessions, the ESSR package is now fetched from + GitHub. + + * Commands that send the region to the inferior process now deal with + rectangular regions. See the documentation of 'ess-eval-region' + for details. This only works on Emacs 25.1 and newer. + + * ESS[R]: Improvements to interacting with iESS in non-R files. + Interaction with inferior process in non-R files within packages + (for instance C or C++ files) has been improved. This is a work in + progress. + + * ESS[R]: Changing the working directory is now always reflected in + the process buffer. + + * ESS[JAGS]: *.jog and *.jmd files no longer automatically open in + JAGS mode. + + Many improvements to fontification: + + * Improved customization for faces. ESS now provides custom faces + for (nearly) all faces used and places face customization options + into their own group. Users can customize these options using 'M-x + customize-group RET ess-faces'. + + * Many new keywords were added to 'ess-R-keywords' and + 'ess-R-modifiers'. See the documentation for details. + + * ESS[R]: 'in' is now only fontified when inside a 'for' construct. + This avoids spurious fontification, especially in the output buffer + where 'in' is a commond English word. + + * ESS: Font-lock keywords are now generated lazily. That means you + can now add or remove keywords from variables like 'ess-R-keywords' + in your Emacs configuration file after loading ESS (i.e. in the + ':config' section for 'use-package' users). + + * ESS[R]: Fontification of roxygen '@param' keywords now supports + comma-separated parameters. + + * ESS[R]: Certain keywords are only fontified if followed by a + parenthesis. Function-like keywords such as 'if ()' or 'stop()' + are no longer fontified as keyword if not followed by an opening + parenthesis. The same holds for search path modifiers like + 'library()' or 'require()'. + + * ESS[R]: Fixed fontification toggling. Especially certain syntactic + elements such as '%op%' operators and backquoted function + definitions. + + * ESS[R]: 'ess-font-lock-toggle-keyword' can be called interactively. + This command asks with completion for a font-lock group to toggle. + This functionality is equivalent to the font-lock menu. + + Notable bug fixes: + + * 'prettify-symbols-mode' no longer breaks indentation. This is + accomplished by having the pretty symbols occupy the same number of + characters as their non-pretty cousins. You may customize the new + variable 'ess-r-prettify-symbols' to control this behavior. + + * ESS: Inferior process buffers are now always displayed on startup. + Additionally, they don't hang Emacs on failures. + + Obsolete libraries, functions, and variables: + + * The 'ess-r-args.el' library has been obsoleted and will be removed + in the next release. Use 'eldoc-mode' instead, which is on by + default. + + * Functions and options dealing with the smart assign key are + obsolete. The following functions have been made obsolete and will + be removed in the next release of ESS: 'ess-smart-S-assign', + 'ess-toggle-S-assign', 'ess-toggle-S-assign-key', + 'ess-disable-smart-S-assign'. + + The variable 'ess-smart-S-assign-key' is now deprecated and will be + removed in the next release. If you would like to continue using + '_' for insterting assign in future releases, please bind + 'ess-insert-assign' in 'ess-mode-map' the normal way. + + * ESS[S]: Variable 'ess-s-versions-list' is obsolete and ignored. + Use 'ess-s-versions' instead. You may pass arguments by starting + the inferior process with the universal argument. + + Changes and New Features in 17.11: + + * The ESS initialisation process has been streamlined. You can now + load the R and Stata modes independently from the rest of ESS. Just + put '(require 'ess-r-mode)' or '(require 'ess-stata-mode)' in your + init file. This is for experienced Emacs users as this requires + setting up autoloads for '.R' files manually. We will keep + maintaining 'ess-site' for easy loading of all ESS features. + + * Reloading and quitting the process is now more robust. If no + process is attached, ESS now switches automatically to one + (prompting you for selection if there are several running). + Reloading and quitting will now work during a debug session or when + R is prompting for input (for instance after a crash). Finally, + the window configuration is saved and restored after reloading to + prevent the buffer of the new process from capturing the cursor. + + * ESS[R]: New command 'ess-r-package-use-dir'. It sets the working + directory of the current process to the current package directory. + + * ESS[R] Lookup for references in inferior buffers has been improved. + New variable 'ess-r-package-source-roots' contains package + sub-directories which are searched recursively during the file + lookup point. Directories in 'ess-tracebug-search-path' are now + also searched recursively. + + * ESS[R] Namespaced evaluation is now automatically enabled only in + the 'R/' directory. This way ESS will not attempt to update + function definitions from a package if you are working from e.g. a + test file. + + Changes and New Features in 16.10: + + * ESS[R]: Syntax highlighting is now more consistent. Backquoted + names are not fontified as strings (since they really are + identifiers). Furthermore they are now correctly recognised when + they are function definitions or function calls. + * ESS[R]: Backquoted names and '%op%' operators are recognised as + sexp. This is useful for code navigation, e.g. with 'C-M-f' and + 'C-M-b'. + * ESS[R]: Integration of outline mode with roxygen examples fields. + You can use outline mode's code folding commands to fold the + examples field. This is especially nice to use with well + documented packages with long examples set. Set + 'ess-roxy-fold-examples' to non-nil to automatically fold the + examples field when you open a buffer. + * ESS[R]: New experimental feature: syntax highlighting in roxygen + examples fields. This is turned off by default. Set + 'ess-roxy-fontify-examples' to non-nil to try it out. + * ESS[R]: New package development command 'ess-r-devtools-ask' bound + to 'C-c C-w C-a'. It asks with completion for any devtools command + that takes 'pkg' as argument. + * ESS[R]: New command 'C-c C-e C-r' to reload the inferior process. + Currently only implemented for R. The R method runs + 'inferior-ess-r-reload-hook' on reloading. + * ESS[R]: 'ess-r-package-mode' is now activated in non-file buffers + as well. + + Bug fixes in 16.10: + * ESS[R]: Fix broken (un)flagging for debugging inside packages + * ESS[R]: Fixes (and improvements) in Package development + * ESS[R]: Completion no longer produces '...=' inside 'list( )'. + * ESS[R]: Better debugging and tracing in packages. + * ESS[R]: Better detection of symbols at point. + * ESS[R]: No more spurious warnings on deletion of temporary files. + * ESS[julia]: help and completion work (better) + * ESS[julia]: available via 'ess-remote' + + Changes and New Features in 16.04: + + * ESS[R]: 'developer' functionality has been refactored. The new + user interface consists of a single command + 'ess-r-set-evaluation-env' bound by default to 'C-c C-t C-s'. Once + an evaluation environment has been set with, all subsequent ESS + evaluation will source the code into that environment. By default, + for file within R packages the evaluation environment is set to the + package environment. Set 'ess-r-package-auto-set-evaluation-env' + to 'nil' to disable this. + * ESS[R]: New 'ess-r-package-mode' This development mode provides + features to make package development easier. Currently, most of + the commands are based on the 'devtools' packages and are + accessible with 'C-c C-w' prefix. See the documentation of + 'ess-r-package-mode' function for all available commands. With + 'C-u' prefix each command asks for extra arguments to the + underlying devtools function. This mode is automatically enabled + in all files within R packages and is indicated with '[pkg:NAME]' + in the mode-line. + * ESS[R]: Help lookup has been improved. It is now possible to get + help for namespaced objects such as pkg::foobar. Furthermore, ESS + recognizes more reliably when you change 'options('html_type')'. + * ESS[R]: New specialized breakpoints for debugging magrittr pipes + * ESS: ESS now implements a simple message passing interface to + communicate between ESS and inferior process. + + Bug fixes in 16.04: + * ESS[R]: Roxygen blocks with backtics are now correctly filled + * ESS[R]: Don't skip breakpoints in magrittr's 'debug_pipe' + * ESS[R]: Error highlighting now understands 'testthat' type errors + * ESS[Julia]: Added getwd and setwd generic commands + + +File: ess.info, Node: Credits, Next: Manual, Prev: New features, Up: Introduction + +1.3 Authors of and contributors to ESS +====================================== + +The ESS environment is built on the open-source projects of many +contributors, dating back to 1989 where Doug Bates and Ed Kademan wrote +S-mode to edit S and Splus files in GNU Emacs. Frank Ritter and Mike +Meyer added features, creating version 2. Meyer and David Smith made +further contributions, creating version 3. For version 4, David Smith +provided significant enhancements to allow for powerful process +interaction. + + John Sall wrote GNU Emacs macros for SAS source code around 1990. +Tom Cook added functions to submit jobs, review listing and log files, +and produce basic views of a dataset, thus creating a SAS-mode which was +distributed in 1994. + + In 1994, A.J. Rossini extended S-mode to support XEmacs. Together +with extensions written by Martin Maechler, this became version 4.7 and +supported S, Splus, and R. In 1995, Rossini extended SAS-mode to work +with XEmacs. + + In 1997, Rossini merged S-mode and SAS-mode into a single Emacs +package for statistical programming; the product of this marriage was +called ESS version 5. Richard M. Heiberger designed the inferior mode +for interactive SAS and SAS-mode was further integrated into ESS. Thomas +Lumley's Stata mode, written around 1996, was also folded into ESS. More +changes were made to support additional statistical languages, +particularly XLispStat. + + ESS initially worked only with Unix statistics packages that used +standard-input and standard-output for both the command-line interface +and batch processing. ESS could not communicate with statistical +packages that did not use this protocol. This changed in 1998 when +Brian Ripley demonstrated use of the Windows Dynamic Data Exchange (DDE) +protocol with ESS. Heiberger then used DDE to provide interactive +interfaces for Windows versions of Splus. In 1999, Rodney A. Sparapani +and Heiberger implemented SAS batch for ESS relying on files, rather +than standard-input/standard-output, for Unix, Windows and Mac. In +2001, Sparapani added BUGS batch file processing to ESS for Unix and +Windows. + + * The multiple process code, and the idea for + 'ess-eval-line-and-next-line' are by Rod Ball. + + * Thanks to Doug Bates for many useful suggestions. + + * Thanks to Martin Maechler for reporting and fixing bugs, providing + many useful comments and suggestions, and for maintaining the ESS + mailing lists. + + * Thanks to Frank Ritter for updates, particularly the menu code, and + invaluable comments on the manual. + + * Thanks to Ken'ichi Shibayama for his excellent indenting code, and + many comments and suggestions. + + * Thanks to Aki Vehtari for adding interactive BUGS support. + + * Thanks to Brendan Halpin for bug-fixes and updates to Stata-mode. + + * Last, but definitely not least, thanks to the many ESS users and + contributors to the ESS mailing lists. + + _ESS_ is being developed and currently maintained by + + * A.J. Rossini (mailto:blindglobe@gmail.com) + * Richard M. Heiberger (mailto:rmh@temple.edu) + * Kurt Hornik (mailto:Kurt.Hornik@R-project.org) + * Martin Maechler (mailto:maechler@stat.math.ethz.ch) + * Rodney A. Sparapani (mailto:rsparapa@mcw.edu) + * Stephen Eglen (mailto:stephen@gnu.org) + * Sebastian P. Luque (mailto:spluque@gmail.com) + * Henning Redestig (mailto:henning.red@googlemail.com) + * Vitalie Spinu (mailto:spinuvit@gmail.com) + * Lionel Henry (mailto:lionel.hry@gmail.com) + * J. Alexander Branham (mailto:alex.branham@gmail.com) + + +File: ess.info, Node: Manual, Prev: Credits, Up: Introduction + +1.4 How to read this manual +=========================== + +If you need to install ESS, read *note Installation:: for details on +what needs to be done before proceeding to the next chapter. This +section describes some of the basics of using Emacs. If you are already +familiar with basic Emacs functionality, skip this section. You may +also want to use the Emacs tutorial, accessible via 'C-h t'. + + In this manual we use the standard notation used by Emacs for +describing the keystrokes used to invoke certain commands. 'C-' +means hold the CONTROL key while typing the character . 'M-' +means hold the META key (usually ALT) down while typing . If there +is no META, EDIT or ALT key, instead press and release the ESC key and +then type . + + All ESS commands can be invoked by typing 'M-x command'. Most of the +useful commands are bound to keystrokes for ease of use. Also, the most +popular commands are also available through the Emacs menubar, and a +small subset are provided on the toolbar. Where possible, keybindings +are similar to other modes in Emacs to strive for a consistent user +interface within Emacs, regardless of the details of which programming +language is being edited, or process being run. + + Some commands, such as 'M-x R' can accept an optional 'prefix' +argument. To specify the prefix argument, you would type 'C-u' before +giving the command. For example, if you type 'C-u M-x R', you will be +asked for command line options that you wish to invoke the R process +with. + + Emacs is a 'self-documenting' text editor. This applies to ESS in +two ways. First, some documentation about each ESS command can be +obtained by typing 'C-h f'. For example, if you type 'C-h f +ess-eval-region', documentation for that command will appear in a +separate *Help* buffer. Second, 'C-h m' pops up a complete list of +keybindings available in each ESS mode and brief description of that +mode. + + Emacs is a versatile editor written in both C and a dialect of lisp +known as elisp. ESS is written in elisp and benefits from the flexible +nature of lisp. In particular, many aspects of ESS behaviour can be +changed by suitable customization of lisp variables. This manual +mentions some of the most frequent variables. A full list of them +however is available by using the Custom facility within Emacs. Type +'M-x customize-group RET ess RET' to get started. *note Customization:: +provides details of common user variables you can change to customize +ESS to your taste, but it is recommended that you defer this section +until you are more familiar with ESS. + + +File: ess.info, Node: Installation, Next: Interactive ESS, Prev: Introduction, Up: Top + +2 Installing ESS on your system +******************************* + +ESS supports GNU Emacs versions 25.1 and newer. + + ESS is most likely to work with current/recent versions of the +following statistical packages: R/S-PLUS, SAS, Stata, OpenBUGS and JAGS. + + To build the PDF documentation, you will need a version of TeX Live +or texinfo that includes texi2dvi. + + There are two main methods used for installing ESS. You may install +from a third-party repository or from source code. Once you install it, +you must also activate or load ESS in each Emacs session, though +installation from a third-party repository likely takes care of that for +you. See *note Activating and Loading ESS:: for more details. + +* Menu: + +* Installing from a third-party repository:: +* Installing from source:: +* Activating and Loading ESS:: +* Check Installation:: + + +File: ess.info, Node: Installing from a third-party repository, Next: Installing from source + +2.1 Installing from a third-party repository +============================================ + +ESS is packaged by many third party repositories. Many GNU/Linux +distributions package it, usually with the name "emacs-ess" or similar. + + ESS is also available through Milkypostman’s Emacs Lisp Package +Archive (MELPA), a popular repository for Emacs packages. Instructions +on how to do so are found on MELPA's website (https://melpa.org/). +MELPA also hosts MELPA-stable with stable ESS builds. You may choose +between MELPA with the latest and greatest features (and bugs) or +MELPA-stable, which may lag a bit behind but should be more stable. + + After installing, users should make sure ESS is activated or loaded +in each Emacs session. See *note Activating and Loading ESS::. +Depending on install method, this may be taken care of automatically. + + +File: ess.info, Node: Installing from source, Next: Activating and Loading ESS, Prev: Installing from a third-party repository + +2.2 Installing from source +========================== + +Stable versions of ESS are available at the ESS web page +(https://ess.r-project.org) as a .tgz file or .zip file. ESS releases +are GPG-signed, you should check the signature by downloading the +accompanying '.sig' file and doing: + + gpg --verify ess-18.10.tgz.sig + + Alternatively, you may download the git repository. ESS is currently +hosted on Github: . 'git clone +https://github.com/emacs-ess/ESS.git' will download it to a new +directory 'ESS' in the current working directory. + + We will refer to the location of the ESS source files as +'/path/to/ESS/' hereafter. + + After installing, users should make sure they activate or load ESS in +each Emacs session, see *note Activating and Loading ESS:: + + Optionally, compile elisp files, build the documentation, and the +autoloads: + cd /path/to/ESS/ + make + Without this step the documentation, reference card, and autoloads +will not be available. Uncompiled ESS will also run slower. + + Optionally, you may make ESS available to all users of a machine by +installing it site-wide. To do so, run 'make install'. You might need +administrative privileges: + + make install + + The files are installed into '/usr/share/emacs' directory. For this +step to run correctly on macOS, you will need to adjust the 'PREFIX' +path in 'Makeconf'. The necessary code and instructions are commented +in that file. + + +File: ess.info, Node: Activating and Loading ESS, Next: Check Installation, Prev: Installing from source + +2.3 Activating and Loading ESS +============================== + +After installing ESS, you must activate or load it each Emacs session. +ESS can be autoloaded, and if you used a third-party repository (such as +your Linux distribution or MELPA) to install, you can likely skip this +section and proceed directly to *note Check Installation:: + + Otherwise, you may need to add the path to ESS to 'load-path' with: + + (add-to-list 'load-path "/path/to/ESS/lisp") + + You then need to decide whether to take advantage of deferred loading +(which will result in a faster Emacs startup time) or require ESS when +Emacs is loaded. To autoload ESS when needed (note that if installed +from source, you must have run 'make'): + + (load "ess-autoloads") + + To require ESS on startup, you can either put + + (require 'ess-site) + + or + + (require 'ess-r-mode) + + In your configuration file, depending on whether you want all ESS +features or only R related features. + + +File: ess.info, Node: Check Installation, Prev: Activating and Loading ESS + +2.4 Check Installation +====================== + +Restart Emacs and check that ESS was loaded from a correct location with +'M-x ess-version'. + + +File: ess.info, Node: Interactive ESS, Next: Entering commands, Prev: Installation, Up: Top + +3 Interacting with statistical programs +*************************************** + +As well as using ESS to edit your source files for statistical programs, +you can use ESS to run these statistical programs. In this chapter, we +mostly will refer by example to running R from within Emacs. The Emacs +convention is to name such processes running under its control as +'inferior processes'. Some users find this terminology confusing; you +may prefer to think of these as 'interactive processes.' Either way, we +use the term 'iESS' to refer to the Emacs mode used to interact with +statistical programs. + +* Menu: + +* Starting up:: +* Multiple ESS processes:: +* ESS processes on Remote Computers:: +* Customizing startup:: +* Controlling buffer display:: + + +File: ess.info, Node: Starting up, Next: Multiple ESS processes, Up: Interactive ESS + +3.1 Starting an ESS process +=========================== + +To start an inferior R session on GNU/Linux, macOS, or Windows using the +Cygwin bash shell, simply type 'M-x R RET'. To start an R session on +Windows when you use the MSDOS/powershell shell, simply type 'M-x +S+6-msdos RET'. R will then (by default) ask the question + + R starting data directory? + +Enter the name of the directory you wish to have as the working +directory (that is, the directory you wish to have 'getwd()' return if +using R). + + You will then be popped into a buffer named '*R*' which will be used +for interacting with the ESS process, and you can start entering +commands. + + +File: ess.info, Node: Multiple ESS processes, Next: ESS processes on Remote Computers, Prev: Starting up, Up: Interactive ESS + +3.2 Running more than one ESS process +===================================== + +ESS allows you to run more than one iESS process simultaneously in the +same session. Each process has a name and a number; the initial process +(process 1) is simply named 'R'. If you call 'M-x R' again without +killing the first R process, ESS will start a second R process with the +name 'R:2'. To have the first buffer named 'R:1', customize the option +'ess-plain-first-buffername'. With a prefix argument, 'C-u M-x R' +allows for the specification of command line options. + + -- User Option: ess-plain-first-buffername + If non-'nil', name the first iESS process [R]. Otherwise, name it + [R:1]. + + You can switch to any active ESS process with the command 'M-x +ess-request-a-process'. Just enter the name of the process you require; +completion is provided over the names of all running processes. This is +a good command to consider binding to a global key. + + +File: ess.info, Node: ESS processes on Remote Computers, Next: Customizing startup, Prev: Multiple ESS processes, Up: Interactive ESS + +3.3 ESS processes on Remote Computers +===================================== + +3.3.1 ESS and TRAMP +------------------- + +ESS works with processes on remote computers as easily as with processes +on the local machine. The recommended way to access a statistical +program on remote computer is to start it with *Note (tramp)Top::. + + Start an ssh session using TRAMP with 'C-x C-f /ssh:user@host: RET'. +Tramp should open a dired buffer in your remote home directory. Now +call your favorite ESS process ('R', 'Julia', 'stata' etc) as you would +usually do on local machine: 'M-x R'. + + Alternatively you can start your process normally ('M-x R'). When +asked for starting directory, simply type '/ssh:user@host: RET'. The R +process will be started on the remote machine. + + To simplify the process even further create a "config" file in your +'.ssh/' folder and add an account. For example if you use amazon EC2, +it might look like following: + + Host amazon + Hostname ec2-54-215-203-181.us-west-1.compute.amazonaws.com + User ubuntu + IdentityFile ~/.ssh/my_amazon_key.pem + ForwardX11 yes + + With this configuration '/ssh:amazon:' is enough to start a +connection. The ForwardX11 is needed if you want to see the R graphic +device showing on the current machine + +3.3.2 ESS-remote +---------------- + +TRAMP is the recommended way of starting a remote session. The other +way to start a remote ESS connection is through 'ess-remote'. + + 1. Start a new shell, telnet or ssh buffer and connect to the remote + computer (e.g. use, 'M-x shell', 'M-x telnet' or 'M-x ssh'; ssh.el + is available at + ). + + 2. Start the ESS process on the remote machine, for example with one + of the commands 'R', 'Splus', or 'sas -stdio'. + + 3. Start 'M-x ess-remote'. You will be prompted for a program name + with completion. Choose one. Your process is now known to ESS. + All the usual ESS commands ('C-c C-n' and its relatives) now work + with the R language processes. For SAS you need to use a different + command 'C-c i' (that is a regular 'i', not a 'C-i') to send lines + from your 'myfile.sas' to the remote SAS process. 'C-c i' sends + lines over invisibly. With ess-remote you get teletype + behavior--the data input, the log, and the listing all appear in + the same buffer. To make this work, you need to end every PROC and + DATA step with a "RUN;" statement. The "RUN;" statement is what + tells SAS that it should process the preceding input statements. + + 4. Graphics (interactive) on the remote machine. If you run X11 + (*Note X11::, X Windows) on both the local and remote machines then + you should be able to display the graphs locally by setting the + 'DISPLAY' environment variable appropriately. Windows users can + download 'xfree86' from cygwin. + + 5. Graphics (static) on the remote machine. If you don't run the X + window system on the local machine, then you can write graphics to + a file on the remote machine, and display the file in a graphics + viewer on the local machine. Most statistical software can write + one or more of postscript, GIF, or JPEG files. Depending on the + versions of Emacs and the operating system that you are running, + Emacs itself may display '.gif' and '.jpg' files. Otherwise, a + graphics file viewer will be needed. Ghostscript/ghostview may be + downloaded to display '.ps' and '.eps' files. Viewers for GIF and + JPEG are usually included with operating systems. *Note + ESS(SAS)--Function keys for batch processing::, for more + information on using the F12 key for displaying graphics files with + SAS. + + Should you or a colleague inadvertently start a statistical process +in an ordinary '*shell*' buffer, the 'ess-remote' command can be used to +convert it to an ESS buffer and allow you to use the ESS commands with +it. + + +File: ess.info, Node: Customizing startup, Next: Controlling buffer display, Prev: ESS processes on Remote Computers, Up: Interactive ESS + +3.4 Changing the startup actions +================================ + +If you do not wish ESS to prompt for a starting directory when starting +a new process, set the variable 'ess-ask-for-ess-directory' to 'nil'. +In this case, the starting directory will be set using one of the +following methods: + + 1. If the variable 'ess-directory-function' stores the name of a + function, the value returned by this function is used. The default + for this variable is nil. + + 2. Otherwise, if the variable 'ess-directory' stores the name of a + directory (ending in a slash), this value is used. The default for + this variable is nil. + + 3. Otherwise, the working directory of the current buffer is used. + + If 'ess-ask-for-ess-directory' has a non-'nil' value (as it does by +default) then the value determined by the above rules provides the +default when prompting for the starting directory. Incidentally, +'ess-directory' is an ideal variable to set in 'ess-pre-run-hook'. + + You may also customize 'ess-post-run-hook' and the dialect-specific +'ess-*-post-run-hook' variables. For example, you may want to use +'ess-load-file' to load a file when ESS starts R: + + (add-hook 'ess-r-post-run-hook (lambda () (ess-load-file "foo.R"))) + + If you like to keep a record of your R actions, set the variable +'ess-ask-about-transfile' to 't', and you will be asked for a filename +for the transcript before the ESS process starts. + + -- User Option: ess-ask-about-transfile + If non-'nil', ask for a file name in which to save the session + transcript. + + Enter the name of a file in which to save the transcript at the +prompt. If the file doesn't exist it will be created (for R, you likely +want it to end in '.Rout'). If the file already exists the transcript +will be appended to the file. (Note: if you don't set this variable but +you still want to save the transcript, you can still do it later -- +*note Saving transcripts::.) + + Once these questions are answered (if they are asked at all) the +inferior process itself is started. If you need to pass any arguments +to this program, they may be specified in the variable +'inferior-S_PROGRAM_NAME-args'. For example, if 'inferior-ess-program' +is '"R"' then the variable to set is 'inferior-R-args'. It is not +normally necessary to pass arguments to the iESS program; in particular +do not pass the '-e' option to 'Splus', since ESS provides its own +command history mechanism. + + ESS can set the width option of inferior processes automatically when +the window configuration changes. To do so, set 'ess-auto-width' to a +non-nil value. By default, the change will not be shown in the inferior +buffer. If you want it to be shown, set 'ess-auto-width-visible' to a +non-nil value. + + +File: ess.info, Node: Controlling buffer display, Prev: Customizing startup, Up: Interactive ESS + +3.5 Controlling buffer display +============================== + +Users can control how buffers are displayed by customizing +'display-buffer-alist', *Note (emacs)Window Choice::. This section +provides examples of how to achieve certain setups. + + Users coming from RStudio may want the R process to appear at the +bottom left of the frame, help buffers to appear at the bottom right, +and ess-rdired buffers at the top right. To achieve that, you could +this. Note that the order matters; '*R Dired*' would match '*R' if it +came before in the alist. + + (setq display-buffer-alist + `(("*R Dired" + (display-buffer-reuse-window display-buffer-in-side-window) + (side . right) + (slot . -1) + (window-width . 0.33) + (reusable-frames . nil)) + ("*R" + (display-buffer-reuse-window display-buffer-at-bottom) + (window-width . 0.5) + (reusable-frames . nil)) + ("*Help" + (display-buffer-reuse-window display-buffer-in-side-window) + (side . right) + (slot . 1) + (window-width . 0.33) + (reusable-frames . nil)))) + + Some users prefer working with multiple frames where one frame has +the source code and the other frame has the inferior process. To +achieve this, use this example. *Note (elisp)Buffer Display Action +Alists:: for a detailed description of 'reusable-frames'. + + (setq 'display-buffer-alist + '("*R" + (display-buffer-reuse-window display-buffer-pop-up-frame) + (reusable-frames . 0))) + + +File: ess.info, Node: Entering commands, Next: Evaluating code, Prev: Interactive ESS, Up: Top + +4 Interacting with the ESS process +********************************** + +The primary function of the ESS package is to provide an easy-to-use +front end to the R interpreter. This is achieved by running the R +process from within an Emacs buffer, called hereafter _inferior_ buffer, +which has an active 'inferior-ess-mode'. The features of inferior R +mode are similar to those provided by the standard Emacs shell mode +(*note (emacs)Shell Mode::). Command-line completion of R objects and a +number of 'hot keys' for commonly-used R commands are also provided for +ease of typing. + +* Menu: + +* Command-line editing:: Entering commands and fixing mistakes +* Transcript:: Manipulating the transcript +* Command History:: Command History +* History expansion:: References to historical commands +* Hot keys:: Hot keys for common commands +* Statistical Process running in ESS?:: +* Emacsclient:: Using emacsclient +* Other:: Other commands provided by inferior-ESS + + +File: ess.info, Node: Command-line editing, Next: Transcript, Up: Entering commands + +4.1 Entering commands and fixing mistakes +========================================= + +Sending a command to the ESS process is as simple as typing it in and +pressing the key: + + -- Command: inferior-ess-send-input + 'RET' Send the command on the current line to the ESS process. + + If you make a typing error before pressing 'RET' all the usual Emacs +editing commands are available to correct it (*note Basic: +(emacs)Basic.). Once the command has been corrected you can press + (even if the cursor is not at the end of the line) to send the +corrected command to the ESS process. + + Emacs provides some other commands which are useful for fixing +mistakes: + +'C-c C-w' + 'backward-kill-word' Deletes the previous word (such as an object + name) on the command line. + +'C-c C-u' + 'comint-kill-input' Deletes everything from the prompt to point. + Use this to abandon a command you have not yet sent to the ESS + process. + +'C-a' + 'comint-bol' Move to the beginning of the line, and then skip + forwards past the prompt, if any. + + *Note (emacs)Shell Mode::, for other commands relevant to entering +input. + + +File: ess.info, Node: Transcript, Next: Command History, Prev: Command-line editing, Up: Entering commands + +4.2 Manipulating the transcript +=============================== + +Most of the time, the cursor spends its time at the bottom of the ESS +process buffer, entering commands. However all the input and output +from the current (and previous) ESS sessions is stored in the process +buffer (we call this the transcript) and often we want to move back up +through the buffer, to look at the output from previous commands for +example. + + Within the process buffer, a paragraph is defined as the prompt, the +command after the prompt, and the output from the command. Thus 'M-{' +and 'M-}' move you backwards and forwards, respectively, through +commands in the transcript. A particularly useful command is 'M-h' +('mark-paragraph') which will allow you to mark a command and its entire +output (for deletion, perhaps). For more information about paragraph +commands, *note Paragraphs: (emacs)Paragraphs. + + If an ESS process finishes and you restart it in the same process +buffer, the output from the new ESS process appears after the output +from the first ESS process separated by a form-feed ('^L') character. +Thus pages in the ESS process buffer correspond to ESS sessions. Thus, +for example, you may use 'C-x [' and 'C-x ]' to move backward and +forwards through ESS sessions in a single ESS process buffer. For more +information about page commands, *note Pages: (emacs)Pages. + +* Menu: + +* Last command:: Manipulating the output from the last command +* Process buffer motion:: Viewing older commands +* Transcript resubmit:: Re-submitting commands from the transcript +* Saving transcripts:: Keeping a record of your R session + + +File: ess.info, Node: Last command, Next: Process buffer motion, Up: Transcript + +4.2.1 Manipulating the output from the last command +--------------------------------------------------- + +Viewing the output of the command you have just entered is a common +occurrence and ESS provides a number of facilities for doing this. +Whenever a command produces output, it is possible that the window will +scroll, leaving the next prompt near the middle of the window. The +first part of the command output may have scrolled off the top of the +window, even though the entire output would fit in the window if the +prompt were near the bottom of the window. If this happens, you can use +the following comint commands: + + 'comint-show-maximum-output' to move to the end of the buffer, and +place cursor on bottom line of window to make more of the last output +visible. To make this happen automatically for all inputs, set the +variable 'comint-scroll-to-bottom-on-input' to 't' or ''this'. If the +first part of the output is still not visible, use 'C-c C-r' +('comint-show-output'), which moves cursor to the previous command line +and places it at the top of the window. + + Finally, if you want to discard the last command output altogether, +use 'C-c C-o' ('comint-delete-output'), which deletes everything from +the last command to the current prompt. Use this command judiciously to +keep your transcript to a more manageable size. + + +File: ess.info, Node: Process buffer motion, Next: Transcript resubmit, Prev: Last command, Up: Transcript + +4.2.2 Viewing older commands +---------------------------- + +If you want to view the output from more historic commands than the +previous command, commands are also provided to move backwards and +forwards through previously entered commands in the process buffer: + +'C-c C-p' + 'comint-previous-prompt' Moves point to the preceding prompt in the + process buffer. + +'C-c C-n' + 'comint-next-prompt' Moves point to the next prompt in the process + buffer. + +Note that these two commands are analogous to 'C-p' and 'C-n' but apply +to command lines rather than text lines. And just like 'C-p' and 'C-n', +passing a prefix argument to these commands means to move to the ARG'th +next (or previous) command. (These commands are also discussed in *note +Shell History Copying: (emacs)Shell History Copying.) + + There are also two similar commands (not bound to any keys by +default) which move to preceding or succeeding commands, but which first +prompt for a regular expression (*note Syntax of Regular Expression: +(emacs)Regexps.), and then moves to the next (previous) command matching +the pattern. + +'comint-backward-matching-input regexp arg' +'comint-forward-matching-input regexp arg' + Search backward (forward) through the transcript buffer for the + ARG'th previous (next) command matching REGEXP. ARG is the prefix + argument; REGEXP is prompted for in the minibuffer. + + +File: ess.info, Node: Transcript resubmit, Next: Saving transcripts, Prev: Process buffer motion, Up: Transcript + +4.2.3 Re-submitting commands from the transcript +------------------------------------------------ + +When moving through the transcript, you may wish to re-execute some of +the commands you find there. ESS provides commands to do this; these +commands may be used whenever the cursor is within a command line in the +transcript (if the cursor is within some command _output_, an error is +signaled). Note all commands involve the key. + +'RET' + 'inferior-ess-send-input' *Note Command-line editing::. + +'C-c RET' + 'comint-copy-old-input' Copy the command under the cursor to the + current command line, but don't execute it. Leaves the cursor on + the command line so that the copied command may be edited. + + When the cursor is not after the current prompt, the key has +a slightly different behavior than usual. Pressing 'RET' on any line +containing a command that you entered (i.e. a line beginning with a +prompt) sends that command to the ESS process once again. If you wish +to edit the command before executing it, use 'C-c RET' instead; it +copies the command to the current prompt but does not execute it, +allowing you to edit it before (re)submitting it. + + These commands work even if the current line is a continuation line +(i.e. the prompt is '+' instead of '>') -- in this case all the lines +that form the multi-line command are concatenated together and the +resulting command is sent to the ESS process (currently this is the only +way to resubmit a multi-line command to the ESS process in one go). If +the current line does not begin with a prompt, an error is signalled. +This feature, coupled with the command-based motion commands described +above, could be used as a primitive history mechanism. ESS provides a +more sophisticated mechanism, however, which is described in *note +Command History::. + + +File: ess.info, Node: Saving transcripts, Prev: Transcript resubmit, Up: Transcript + +4.2.4 Keeping a record of your R session +---------------------------------------- + +To keep a record of your R session in a disk file, use the Emacs command +'C-x C-w' ('write-file') to attach a file to the ESS process buffer. +The name of the process buffer will (probably) change to the name of the +file, but this is not a problem. You can still use R as usual; just +remember to save the file before you quit Emacs with 'C-x C-s'. You can +make ESS prompt you for a filename in which to save the transcript every +time you start R by setting the variable 'ess-ask-about-transfile' to +'t'; *Note Customizing startup::. For R files, naming transcript files +'*.Rout' puts them in a special mode (ESS transcript mode -- *note +Transcript Mode::) for editing transcript files which is automatically +selected for files with this suffix. + + R transcripts can get very large, so some judicious editing is +appropriate if you are saving it in a file. Use 'C-c C-o' whenever a +command produces excessively long output (printing large arrays, for +example). Delete erroneous commands (and the resulting error messages +or other output) by moving to the command (or its output) and typing +'M-h C-w'. Also, remember that 'C-c C-x' (and other hot keys) may be +used for commands whose output you do not wish to appear in the +transcript. These suggestions are appropriate even if you are not +saving your transcript to disk, since the larger the transcript, the +more memory your Emacs process will use on the host machine. + + You can use 'ess-transcript-clean-region' to strip output from a +transcript, leaving only source code suitable for inclusion in files +'source()'-able from R. *note Transcript Mode: Clean. + + +File: ess.info, Node: Command History, Next: History expansion, Prev: Transcript, Up: Entering commands + +4.3 Command History +=================== + +ESS provides easy-to-use facilities for re-executing or editing previous +commands. An input history of the last few commands is maintained (by +default the last 500 commands are stored, although this can be changed +by setting the variable 'comint-input-ring-size' in +'inferior-ess-mode-hook'.) The simplest history commands simply select +the next and previous commands in the input history: + +'M-p' + 'comint-previous-input' Select the previous command in the input + history. + +'M-n' + 'comint-next-input' Select the next command in the input history. + +For example, pressing 'M-p' once will re-enter the last command into the +process buffer after the prompt but does not send it to the ESS process, +thus allowing editing or correction of the command before the ESS +process sees it. Once corrections have been made, press 'RET' to send +the edited command to the ESS process. + + If you want to select a particular command from the history by +matching it against a regular expression (*note Syntax of Regular +Expression: (emacs)Regexps.), to search for a particular variable name +for example, these commands are also available: + +'M-r' + 'comint-history-isearch-backward-regexp' Prompt for a regular + expression, and search backwards through the input history for a + command matching the expression. + +A common type of search is to find the last command that began with a +particular sequence of characters; the following two commands provide an +easy way to do this: + +'C-c M-r' + 'comint-previous-matching-input-from-input' Select the previous + command in the history which matches the string typed so far. + +'C-c M-s' + 'comint-next-matching-input-from-input' Select the next command in + the history which matches the string typed so far. + +Instead of prompting for a regular expression to match against, as they +instead select commands starting with those characters already entered. +For instance, if you wanted to re-execute the last 'attach()' command, +you may only need to type 'att' and then 'C-c M-r' and 'RET'. + + *Note Shell History Ring: (emacs)Shell Ring, for a more detailed +discussion of the history mechanism, and do experiment with the 'In/Out' +menu to explore the possibilities. + + Many ESS users like to have even easier access to these, and +recommend to add something like + (eval-after-load "comint" + '(progn + (define-key comint-mode-map [up] + 'comint-previous-matching-input-from-input) + (define-key comint-mode-map [down] + 'comint-next-matching-input-from-input) + + ;; also recommended for ESS use -- + (setq comint-move-point-for-output 'others) + ;; somewhat extreme, almost disabling writing in *R*, *shell* buffers above prompt: + (setq comint-scroll-to-bottom-on-input 'this) + )) + to your Emacs configuration file, where the last two settings are +typically desirable for the situation where you work with a script (for +example, 'code.R') and send code chunks to the process buffer (e.g. +'*R*'). Note however that these settings influence all 'comint'-using +Emacs modes, not just the ESS ones, and for that reason, these +customization cannot be part of 'ESS' itself. + +* Menu: + +* Saving History:: + + +File: ess.info, Node: Saving History, Up: Command History + +4.3.1 Saving the command history +-------------------------------- + +The 'ess-history-file' variable, which is 't' by default, together with +'ess-history-directory', governs if and where the command history is +saved and restored between sessions. By default, +'ess-history-directory' is 'nil', and the command history will be stored +(as a file) in the same directory as the iESS process. + + ESS users may work exclusively with script files rather than in a +iESS session, and may not want to save any history files. To do so: + + (setq ess-history-file nil) + +or if you prefer only one global command history file: + + (setq ess-history-directory "~/.R/") + +in your Emacs configuration file. + + +File: ess.info, Node: History expansion, Next: Hot keys, Prev: Command History, Up: Entering commands + +4.4 References to historical commands +===================================== + +Instead of searching through the command history using the command +described in the previous section, you can alternatively refer to a +historical command directly using a notation very similar to that used +in 'csh'. History references are introduced by a '!' or '^' character +and have meanings as follows: + +'!!' + The immediately previous command + +'!-N' + The Nth previous command + +'!text' + The last command beginning with the string 'text' + +'!?text' + The last command containing the string 'text' + + In addition, you may follow the reference with a "word designator" to +select particular "words" of the input. A word is defined as a sequence +of characters separated by whitespace. (You can modify this definition +by setting the value of 'comint-delimiter-argument-list' to a list of +characters that are allowed to separate words and themselves form +words.) Words are numbered beginning with zero. The word designator +usually begins with a ':' (colon) character; however it may be omitted +if the word reference begins with a '^', '$', '*' or '-'. If the word +is to be selected from the previous command, the second '!' character +can be omitted from the event specification. For instance, '!!:1' and +'!:1' both refer to the first word of the previous command, while '!!$' +and '!$' both refer to the last word in the previous command. The +format of word designators is as follows: + +'0' + The zeroth word (i.e. the first one on the command line) + +'N' + The Nth word, where N is a number + +'^' + The first word (i.e. the second one on the command line) + +'$' + The last word + +'X-Y' + A range of words; '-Y' abbreviates '0-Y' + +'*' + All the words except the zeroth word, or nothing if the command had + just one word (the zeroth) + +'X*' + Abbreviates X-$ + +'X-' + Like 'X*', but omitting the last word + + In addition, you may surround the entire reference except for the +first '!' by braces to allow it to be followed by other (non-whitespace) +characters (which will be appended to the expanded reference). + + Finally, ESS also provides quick substitution; a reference like +'^old^new^' means "the last command, but with the first occurrence of +the string 'old' replaced with the string 'new'" (the last '^' is +optional). Similarly, '^old^' means "the last command, with the first +occurrence of the string 'old' deleted" (again, the last '^' is +optional). + + To convert a history reference as described above to an input +suitable for R, you need to "expand" the history reference, using the + key. For this to work, the cursor must be preceded by a space +(otherwise it would try to complete an object name) and not be within a +string (otherwise it would try to complete a filename). So to expand +the history reference, type 'SPC TAB'. This will convert the history +reference into an R command from the history, which you can then edit or +press to execute. + + For example, to execute the last command that referenced the variable +'data', type '!?data SPC TAB RET'. + + +File: ess.info, Node: Hot keys, Next: Statistical Process running in ESS?, Prev: History expansion, Up: Entering commands + +4.5 Hot keys for common commands +================================ + +ESS provides a number of commands for executing the commonly used +functions. These commands below are basically information-gaining +commands (such as 'objects()' or 'search()') which tend to clutter up +your transcript and for this reason some of the hot keys display their +output in a temporary buffer instead of the process buffer by default. +This behavior is controlled by the following option: + + -- User Option: ess-execute-in-process-buffer + If non-'nil', means that these commands will produce their output + in the process buffer instead. + + In any case, passing a prefix argument to the commands (with 'C-u') +will reverse the meaning of 'ess-execute-in-process-buffer' for that +command. In other words, the output will be displayed in the process +buffer if it usually goes to a temporary buffer, and vice-versa. These +are the hot keys that behave in this way: + + -- Command: ess-execute-objects POSN + 'C-c C-x' Sends the 'objects()' command to the ESS process. A + prefix argument specifies the position on the search list (use a + negative argument to toggle 'ess-execute-in-process-buffer' as + well). This is a quick way to see what objects are in your working + directory. A prefix argument of 2 or more means get objects for + that position. A negative prefix argument POSN gets the objects + for that position, as well as toggling + 'ess-execute-in-process-buffer'. + + -- Command: ess-execute-search INVERT + 'C-c C-s' Sends the 'inferior-ess-search-list-command' command to + the 'ess-language' process; 'search()' in R. Prefix INVERT toggles + 'ess-execute-in-process-buffer'. + + 'ess-execute' may seem pointless when you could just type the command +in anyway, but it proves useful for 'spot' calculations which would +otherwise clutter your transcript, or for evaluating an expression while +partway through entering a command. You can also use this command to +generate new hot keys using the Emacs keyboard macro facilities; *note +Keyboard Macros: (emacs)Keyboard Macros. + + The following hot keys do not use 'ess-execute-in-process-buffer' to +decide where to display the output -- they either always display in the +process buffer or in a separate buffer, as indicated: + + -- Command: ess-load-file FILENAME + 'C-c M-l' Prompts for a file (FILENAME) to load into the ESS + process using 'source()'. If there is an error during loading, you + can jump to the error in the file with the following function. + + -- Command: ess-parse-errors ARG RESET + Visits next 'next-error' message and corresponding source code. If + all the error messages parsed so far have been processed already, + the message buffer is checked for new ones. A prefix ARG specifies + how many error messages to move; negative means move back to + previous error messages. Just 'C-u' as a prefix means reparse the + error message buffer and start at the first error. The RESET + argument specifies restarting from the beginning. + + *Note Error Checking::, for more details. + + -- Command: ess-display-help-on-object OBJECT COMMAND + 'C-c C-v' Pops up a help buffer for an R object or function. If + COMMAND is supplied, it is used instead of + 'inferior-ess-help-command'. See *note Help:: for more details. + + -- Command: ess-quit + 'C-c C-q' Issue an exiting command to the inferior process, + additionally also running 'ess-cleanup' for disposing of any + temporary buffers (such as help buffers and edit buffers) that may + have been created. Use this command when you have finished your R + session instead of simply quitting at the inferior process prompt, + otherwise you will need to issue the command 'ess-cleanup' + explicitly to make sure that all the files that need to be saved + have been saved, and that all the temporary buffers have been + killed. + + +File: ess.info, Node: Statistical Process running in ESS?, Next: Emacsclient, Prev: Hot keys, Up: Entering commands + +4.6 Is the Statistical Process running under ESS? +================================================= + +For the R languages (R, S, S-Plus) ESS sets an option in the current +process that programs in the language can check to determine the +environment in which they are currently running. + + ESS sets 'options(STERM="iESS")' for R language processes running in +an inferior 'iESS[S]' or 'iESS[R]' buffer. + + ESS sets 'options(STERM="ddeESS")' for independent S-Plus for Windows +processes running in the GUI and communicating with ESS via the DDE +(Microsoft Dynamic Data Exchange) protocol through a 'ddeESS[S]' buffer. + + Other values of 'options()$STERM' that we recommend are: + + * 'length': Fixed length xterm or telnet window. + * 'scrollable': Unlimited length xterm or telnet window. + * 'server': S-Plus Stat Server. + * 'BATCH': BATCH. + * 'Rgui': R GUI. + * 'Commands': S-Plus GUI without DDE interface to ESS. + + Additional values may be recommended in the future as new interaction +protocols are created. Unlike the values 'iESS' and 'ddeESS', ESS can't +set these other values since the R language program is not under the +control of ESS. + + +File: ess.info, Node: Emacsclient, Next: Other, Prev: Statistical Process running in ESS?, Up: Entering commands + +4.7 Using emacsclient +===================== + +When starting R or S under Unix, ESS sets +'options(editor="emacsclient")'. Under Microsoft Windows, it will use +gnuclient.exe rather than emacsclient, but the same principal applies. +Within your R session, if you have a function called 'iterator', typing +'fix(iterator)', will show that function in a temporary Emacs buffer. +You can then correct the function. When you kill the buffer, the +definition of the function is updated. Using 'edit()' rather than +'fix()' means that the function is not updated. Finally, the R function +'page(x)' will also show a text representation of the object 'x' in a +temporary Emacs buffer. + + +File: ess.info, Node: Other, Prev: Emacsclient, Up: Entering commands + +4.8 Other commands provided by inferior-ESS +=========================================== + +The following commands are also available in the process buffer: + + -- Command: comint-interrupt-subjob + 'C-c C-c' Sends a Control-C signal to the iESS process. This has + the effect of aborting the current command. + + -- Command: ess-switch-to-inferior-or-script-buffer TOGGLE-EOB + 'C-c C-z' When in process buffer, return to the most recent script + buffer. When in a script buffer pop to the associated process + buffer. Consecutive presses of 'C-z' switch between the script and + process buffers. + + If TOGGLE-EOB is given, the value of + 'ess-switch-to-end-of-proc-buffer' is toggled. + + -- User Option: ess-switch-to-end-of-proc-buffer + If non-'nil', 'ess-switch-to-inferior-or-script-buffer' goes to end + of process buffer. + + Other commands available in iESS modes are discussed in *note +(emacs)Shell Mode::. + + +File: ess.info, Node: Evaluating code, Next: Transcript Mode, Prev: Entering commands, Up: Top + +5 Sending code to the ESS process +********************************* + +Other commands are also available for evaluating portions of code in the +R process. These commands cause the selected code to be evaluated +directly by the ESS process as if you had typed them in at the command +line; the 'source()' function is not used. You may choose whether both +the commands and their output appear in the process buffer (as if you +had typed in the commands yourself) or if the output alone is echoed. +The behavior is controlled by the variable: + + -- User Option: ess-eval-visibly + Non-'nil' means 'ess-eval-*' commands display commands and output + in the process buffer. Default is 't'. + + Passing a prefix ('C-u') (in elisp terms, the argument VIS) to any of +the following commands, however, reverses the meaning of +'ess-eval-visibly' for that command only -- for example 'C-u C-c C-j' +evaluates the current line without showing the input in the iESS buffer. +The default value of 'ess-eval-visibly' ('t') means that ESS calls block +Emacs until they finish. This may be undesirable, especially if +commands take long to finish. Users who want input to be displayed and +Emacs not to be blocked can set 'ess-eval-visibly' to ''nowait'. This +sends the input to the iESS buffer but does not wait for the process to +finish, ensuring Emacs is not blocked. + + Primary commands for evaluating code are: + + -- Command: ess-eval-region-or-line-and-step VIS + 'C-' Sends the highlighted region or current line and step to + next line of code. + + -- Command: ess-eval-region-or-function-or-paragraph VIS + 'C-M-x' Sends the current selected region or function or paragraph. + + -- Command: ess-eval-region-or-function-or-paragraph-and-step VIS + 'C-c C-c' Like 'ess-eval-region-or-function-or-paragraph' but steps + to next line of code. + + Other, not so often used, evaluation commands are: + + -- Command: ess-eval-line VIS + 'C-c C-j' Sends the current line to the ESS process. + + -- Command: ess-eval-line-and-go VIS + 'C-c M-j' Like 'ess-eval-line' but additionally switches point to + the ESS process. + + -- Command: ess-eval-function VIS NO-ERROR + 'C-c C-f' Sends the function containing point to the ESS process. + + -- Command: ess-eval-function-and-go VIS + 'C-c M-f' Like 'ess-eval-function' but additionally switches point + to the ESS process. + + -- Command: ess-eval-region START END TOGGLE MESSAGE + 'C-c C-r' Sends the current region to the ESS process. + + -- Command: ess-eval-region-and-go START END VIS + 'C-c M-r' Like 'ess-eval-region' but additionally switches point to + the ESS process. + + -- Command: ess-eval-buffer VIS + 'C-c C-b' Sends the current buffer to the ESS process. + + -- Command: ess-eval-buffer-and-go VIS + 'C-c M-b' Like 'ess-eval-buffer' but additionally switches point to + the ESS process. + + All the above 'ess-eval-*' commands are useful for evaluating small +amounts of code and observing the results in the process buffer for +debugging purposes, or for generating transcripts from source files. +When editing R functions, it is generally preferable to use 'C-c C-l' to +update the function's value. In particular, 'ess-eval-buffer' is now +largely obsolete. + + A useful way to work is to divide the frame into two windows; one +containing the source code and the other containing the process buffer. +If you wish to make the process buffer scroll automatically when the +output reaches the bottom of the window, you will need to set the +variable 'comint-move-point-for-output' to ''others' or 't'. + + +File: ess.info, Node: Transcript Mode, Next: Editing objects, Prev: Evaluating code, Up: Top + +6 Manipulating saved transcript files +************************************* + +Inferior R mode records the transcript (the list of all commands +executed, and their output) in the process buffer, which can be saved as +a "transcript file", which should normally have the suffix '.Rout'. The +most obvious use for a transcript file is as a static record of the +actions you have performed in a particular R session. Sometimes, +however, you may wish to re-execute commands recorded in the transcript +file by submitting them to a running ESS process. This is what +Transcript Mode is for. + + If you load file a with the suffix '.Rout' into Emacs, it is placed +in R Transcript Mode. Transcript Mode is similar to inferior R mode +(*note Entering commands::): paragraphs are defined as a command and its +output, and you can move though commands either with the paragraph +commands or with 'C-c C-p' and 'C-c C-n'. + +* Menu: + +* Resubmit:: Resubmitting commands from the transcript file +* Clean:: Cleaning transcript files + + +File: ess.info, Node: Resubmit, Next: Clean, Up: Transcript Mode + +6.1 Resubmitting commands from the transcript file +================================================== + +Three commands are provided to re-submit command lines from the +transcript file to a running ESS process. They are: + + -- Command: ess-transcript-send-command + 'M-RET' Sends the current command line to the ESS process, and + execute it. + + -- Command: ess-transcript-copy-command + 'C-c RET' Copy the current command to the ESS process, and switch + to it (ready to edit the copied command). + + -- Command: ess-transcript-send-command-and-move + 'RET' Sends the current command to the ESS process, and move to the + next command line. This command is useful for submitting a series + of commands. + +Note that the first two commands are similar to those on the same keys +in inferior R Mode. In all three cases, the commands should be executed +when the cursor is on a command line in the transcript; the prompt is +automatically removed before the command is submitted. + + +File: ess.info, Node: Clean, Prev: Resubmit, Up: Transcript Mode + +6.2 Cleaning transcript files +============================= + +Yet another use for transcript files is to extract the command lines for +inclusion in an R source file or function. Transcript mode provides one +command which does just this: + + -- Command: ess-transcript-clean-region BEG END EVEN-IF-READ-ONLY + 'C-c C-w' Strip the transcript in the region (given by BEG and + END), leaving only commands. Deletes any lines not beginning with + a prompt, and then removes the prompt from those lines that remain. + Prefix argument EVEN-IF-READ-ONLY means to clean even if the buffer + is read-only. Don't forget to remove any erroneous commands first! + +The remaining command lines may then be copied to a source file or edit +buffer for inclusion in a function definition, or may be evaluated +directly (*note Evaluating code::) using the code evaluation commands +from R mode, also available in R Transcript Mode. + + +File: ess.info, Node: Editing objects, Next: Help, Prev: Transcript Mode, Up: Top + +7 Editing objects and functions +******************************* + +ESS provides facilities for editing R objects within your Emacs session. +Most editing is performed on R functions, although in theory you may +edit datasets as well. Edit buffers are always associated with files, +although you may choose to make these files temporary if you wish. +Alternatively, you may make use of a simple yet powerful mechanism for +maintaining backups of text representations of R functions. +Error-checking is performed when R code is loaded into the ESS process. + +* Menu: + +* Edit buffer:: Edit objects in a specialized buffer +* Loading:: Loading source files into the ESS process +* Error Checking:: Detecting errors in source files +* Indenting:: Indenting and formatting S code +* Other edit buffer commands:: Commands for motion, completion and more +* Source Files:: Maintaining R source files +* Source Directories:: Names and locations of dump files + + +File: ess.info, Node: Edit buffer, Next: Loading, Up: Editing objects + +7.1 Creating or modifying R objects +=================================== + +To edit an object, type + + -- Command: ess-dump-object-into-edit-buffer OBJECT + 'C-c C-e C-d' Edit an object in its own edit buffer. + + from within the iESS process buffer ('*R*'). You will then be +prompted for an object to edit: you may either type in the name of an +existing object (for which completion is available using the 'TAB' key), +or you may enter the name of a new object. A buffer will be created +containing the text representation of the requested object or, if you +entered the name of a non-existent object at the prompt and the variable +'ess-function-template' is non-'nil', you will be presented with a +template defined by that variable, which defaults to a skeleton function +construct. + + You may then edit the function as required. The edit buffer +generated by 'ess-dump-object-into-edit-buffer' is placed in the 'ESS' +major mode which provides a number of commands to facilitate editing R +source code. Commands are provided to intelligently indent R code, +evaluate portions of R code and to move around R code constructs. + + Note: when you dump a file with 'C-c C-e C-d', ESS first checks to +see whether there already exists an edit buffer containing that object +and, if so, pops you directly to that buffer. If not, ESS next checks +whether there is a file in the appropriate place with the appropriate +name (*note Source Files::) and if so, reads in that file. You can use +this facility to return to an object you were editing in a previous +session (and which possibly was never loaded to the R session). +Finally, if both these tests fail, the ESS process is consulted and a +'dump()' command issued. If you want to force ESS to ask the ESS +process for the object's definition (say, to reformat an unmodified +buffer or to revert back to R's idea of the object's definition) pass a +prefix argument to 'ess-dump-object-into-edit-buffer' by typing 'C-u C-c +C-e C-d'. + + +File: ess.info, Node: Loading, Next: Error Checking, Prev: Edit buffer, Up: Editing objects + +7.2 Loading source files into the ESS process +============================================= + +The best way to get information -- particularly function definitions -- +into R is to load them in as source file, using R's 'source' function. +You have already seen how to create source files using 'C-c C-e C-d'; +ESS provides a complementary command for loading source files (even +files not created with ESS!) into the ESS process, namely +'ess-load-file' ('C-c M-l'). *note Hot keys::. + +After typing 'C-c M-l' you will prompt for the name of the file to load +into R; usually this is the current buffer's file which is the default +value (selected by simply pressing 'RET' at the prompt). You will be +asked to save the buffer first if it has been modified (this happens +automatically if the buffer was generated with 'C-c C-e C-d'). The file +will then be loaded, and if it loads successfully you will be returned +to the ESS process. + + +File: ess.info, Node: Error Checking, Next: Indenting, Prev: Loading, Up: Editing objects + +7.3 Detecting errors in source files +==================================== + +If any errors occur when loading a file with 'C-c C-l', ESS will inform +you of this fact. In this case, you can jump directly to the line in +the source file which caused the error by typing 'C-c `' +('ess-parse-errors'). You will be returned to the offending file +(loading it into a buffer if necessary) with point at the line S +reported as containing the error. You may then correct the error, and +reload the file. Note that none of the commands in an R source file +will take effect if any part of the file contains errors. + + Sometimes the error is not caused by a syntax error (loading a +non-existent file for example). In this case typing 'C-c `' will simply +display a buffer containing S's error message. You can force this +behavior (and avoid jumping to the file when there _is_ a syntax error) +by passing a prefix argument to 'ess-parse-errors' with 'C-u C-c `'. + + +File: ess.info, Node: Indenting, Next: Other edit buffer commands, Prev: Error Checking, Up: Editing objects + +7.4 Indenting and formatting R code +=================================== + +ESS provides a sophisticated mechanism for indenting R source code. +Compound statements (delimited by '{' and '}') are indented relative to +their enclosing block. In addition, the braces have been electrified to +automatically indent to the correct position when inserted, and +optionally insert a newline at the appropriate place as well. Lines +which continue an incomplete expression are indented relative to the +first line of the expression. Function definitions, 'if' statements, +calls to 'expression()' and loop constructs are all recognized and +indented appropriately. User variables are provided to control the +amount of indentation in each case, and there are also a number of +predefined indentation styles to choose from. + + Comments are also handled specially by ESS, using an idea borrowed +from the Emacs-Lisp indentation style. By default, comments beginning +with '###' are aligned to the beginning of the line. Comments beginning +with '##' are aligned to the current level of indentation for the block +containing the comment. Finally, comments beginning with '#' are +aligned to a column on the right (the 40th column by default, but this +value is controlled by the variable 'comment-column',) or just after the +expression on the line containing the comment if it extends beyond the +indentation column. You turn off the default behavior by adding the +line '(setq ess-indent-with-fancy-comments nil)' to your '.emacs' file. + + ESS also supports Roxygen entries which is R documentation maintained +in the source code as comments *Note Roxygen::. + + The indentation commands provided by ESS are: + + -- Command: ess-indent-or-complete + 'TAB' Indents the current line as R code. + + Try to indent first, and if code is already properly indented, + complete instead. In ess-mode, only tries completion if + 'ess-tab-complete-in-script' is non-nil. See also + 'ess-first-tab-never-complete'. + + -- User Option: ess-tab-complete-in-script + If non-'nil', 'TAB' in script buffers tries to complete if there is + nothing to indent. + + -- User Option: ess-first-tab-never-complete + If non-'nil', 'TAB' never tries to complete in ess-mode. The + default ''symbol' does not try to complete if the next char is a + valid symbol constituent. There are more options, see the help + ('C-h v'). + + -- Command: ess-indent-exp + 'TAB' Indents each line in the R (compound) expression which + follows point. Very useful for beautifying your R code. + + -- Command: ess-electric-brace + '{' '}' The braces automatically indent to the correct position + when typed. + + The following Emacs command are also helpful: + +'RET' +'LFD' + 'newline-and-indent' Insert a newline, and indent the next line. + (Note that most keyboards nowadays do not have a key, + but and 'C-j' are equivalent.) + +'M-;' + 'indent-dwim' Call the comment command you want (Do What I Mean). + +* Menu: + +* Styles:: Changing styles for indentation and alignment + + +File: ess.info, Node: Styles, Up: Indenting + +7.4.1 Changing styles for code indentation and alignment +-------------------------------------------------------- + +The combined value of twelve variables (4 of three groups +'ess-indent-*', 'ess-offset-*' and 'ess-align-*') that control +indentation are collectively termed a style. ESS provides several +styles covering the common styles of indentation: 'DEFAULT', 'OWN', +'GNU', 'BSD', 'K&R', 'C++', 'RRR', 'RRR+', 'Rstudio', 'Rstudio-', and +'CLB'. The variable 'ess-style-alist' lists the value of each +indentation variable per style (and its documentation contains more). + + -- Command: ess-set-style + 'C-c C-e C-s' (or 'C-c C-e s') sets the formatting style in this + buffer to be one of the predefined styles, see above. The + 'DEFAULT' style uses the default values for the indenting + variables; The 'OWN' style allows you to use your own private + values of the indentation variable, see below. + + -- User Option: ess-style + The style to use. See the variable 'ess-style-alist' for how these + groups (DEFAULT, OWN, GNU, RRR, ...) map onto different settings + for variables. You can set this in your Emacs configuration file: + + (setq ess-style 'C++) + + -- User Option: ess-style-alist + Predefined formatting styles for ESS code. Values for all groups, + except OWN, are fixed. To change the value of variables in the OWN + group, customize the variable 'ess-own-style-list'. The default + style in use is controlled by 'ess-style'. + + The styles 'DEFAULT' and 'OWN' are initially identical. If you wish +to edit some of the default values, set 'ess-style' to ''OWN' and change +'ess-own-style-list'. *Note Customization::, for convenient ways to set +both these variables. + + If you prefer not to use the customization facility, you can change +individual indentation variables within a hook, for example: + + (defun myindent-ess-hook () + (setq ess-indent-level 4)) + (add-hook 'ess-mode-hook 'myindent-ess-hook) + + In the rare case that you'd like to add an entire new indentation +style of your own, copy the definition of 'ess-own-style-list' to a new +variable and ensure that the last line of the ':set' declaration calls +'ess-add-style' with a unique name for your style (e.g. ''MINE'). +Finally, add '(setq ess-style 'MINE)' to use your new style. + + +File: ess.info, Node: Other edit buffer commands, Next: Source Files, Prev: Indenting, Up: Editing objects + +7.5 Commands for motion, completion and more +============================================ + +A number of commands are provided to move across function definitions in +the edit buffer: + + -- Command: ess-goto-beginning-of-function-or-para + 'ESC C-a' aka 'C-M-a' If inside a function go to the beginning of + it, otherwise go to the beginning of paragraph. + + -- Command: ess-goto-end-of-function-or-para + 'ESC C-e' aka 'C-M-e' Move point to the end of the function + containing point. + + -- Command: ess-mark-function + 'ESC C-h' aka 'C-M-h' Place point at the beginning of the R + function containing point, and mark at the end. + +Don't forget the usual Emacs commands for moving over balanced +expressions and parentheses: *Note Lists and Sexps: (Emacs)Lists. + + Completion is provided in the edit buffer in a similar fashion to the +process buffer: first indents, and if there is nothing to indent, +completes the object or file name; 'M-?' lists file completions. See +*Note Completion::, for more. + + Finally, 'C-c C-z' ('ess-switch-to-inferior-or-script-buffer') +returns you to the 'iESS' process buffer, if done from a script buffer, +placing point at the end of the buffer. If this is done from the 'iESS' +process buffer, point is taken to the script buffer. + + In addition many commands available in the process buffer are also +available in the script buffer. You can still read help files with 'C-c +C-v', edit another function with 'C-c C-e C-d' and of course 'C-c C-l' +can be used to load a source file into R. + + +File: ess.info, Node: Source Files, Next: Source Directories, Prev: Other edit buffer commands, Up: Editing objects + +7.6 Maintaining R source files +============================== + +Every edit buffer in ESS is associated with a "dump file" on disk. Dump +files are created whenever you type 'C-c C-e C-d' +('ess-dump-object-into-edit-buffer'), and may either be deleted after +use, or kept as a backup file or as a means of keeping several versions +of an R function. + + -- User Option: ess-delete-dump-files + If non-'nil', dump files created with C-c C-e C-d are deleted + immediately after they are created by the ess-process. + + Since immediately after R dumps an object's definition to a disk file +the source code on disk corresponds exactly to R's idea of the object's +definition, the disk file isn't needed; deleting it now has the +advantage that if you _don't_ modify the file (say, because you just +wanted to look at the definition of one of the standard R functions) the +source dump file won't be left around when you kill the buffer. Note +that this variable only applies to files generated with R's 'dump' +function; it doesn't apply to source files which already exist. The +default value is 't'. + + -- User Option: ess-keep-dump-files + Variable controlling whether to delete dump files after a + successful load. If 'nil': always delete. If 'ask', confirm to + delete. If 'check', confirm to delete, except for files created + with 'ess-dump-object-into-edit-buffer'. Anything else, never + delete. This variable only affects the behaviour of + 'ess-load-file'. Dump files are never deleted if an error occurs + during the load. + + After an object has been successfully (without error) loaded back +into R with 'C-c C-l', the disk file again corresponds exactly (well, +almost -- see below) to R's record of the object's definition, and so +some people prefer to delete the disk file rather than unnecessarily use +up space. This option allows you to do just that. + + If the value of 'ess-keep-dump-files' is 't', dump files are never +deleted after they are loaded. Thus you can maintain a complete text +record of the functions you have edited within ESS. Backup files are +kept as usual, and so by using the Emacs numbered backup facility -- +*note Single or Numbered Backups: (emacs)Backup Names, you can keep a +historic record of function definitions. Another possibility is to +maintain the files with a version-control system such as git *Note +Version Control: (emacs)Version Control. As long as a dump file exists +in the appropriate place for a particular object, editing that object +with 'C-c C-e C-d' finds that file for editing (unless a prefix argument +is given) -- the ESS process is not consulted. Thus you can keep +comments _outside_ the function definition as a means of documentation +that does not clutter the R object itself. Another useful feature is +that you may format the code in any fashion you please without R +re-indenting the code every time you edit it. These features are +particularly useful for project-based work. + + If the value of 'ess-keep-dump-files' is nil, the dump file is always +silently deleted after a successful load with 'C-c C-l'. While this is +useful for files that were created with 'C-c C-e C-d' it also applies to +any other file you load (say, a source file of function definitions), +and so can be dangerous to use unless you are careful. Note that since +'ess-keep-dump-files' is buffer-local, you can make sure particular +files are not deleted by setting it to 't' in the Local Variables +section of the file *Note Local Variables in Files: (emacs)File +Variables. + + A safer option is to set 'ess-keep-dump-files' to 'ask'; this means +that ESS will always ask for confirmation before deleting the file. +Since this can get annoying if you always want to delete dump files +created with 'C-c C-e C-d', but not any other files, setting +'ess-keep-dump-files' to 'check' (the default value) will silently +delete dump files created with 'C-c C-e C-d' in the current Emacs +session, but query for any other file. Note that in any case you will +only be asked for confirmation once per file, and your answer is +remembered for the rest of the Emacs session. + + Note that in all cases, if an error (such as a syntax error) is +detected while loading the file with 'C-c C-l', the dump file is _never_ +deleted. This is so that you can edit the file in a new Emacs session +if you happen to quit Emacs before correcting the error. + + Dump buffers are always autosaved, regardless of the value of +'ess-keep-dump-files'. + + +File: ess.info, Node: Source Directories, Prev: Source Files, Up: Editing objects + +7.7 Names and locations of dump files +===================================== + +Every dump file should be given a unique file name, usually the dumped +object name with some additions. + + -- User Option: ess-dump-filename-template + Template for filenames of dumped objects. '%s' is replaced by the + object name. + +By default, dump file names are the user name, followed by '.' and the +object and ending with '.R'. Thus if user 'joe' dumps the object +'myfun' the dump file will have name 'joe.myfun.R'. The username part +is included to avoid clashes when dumping into a publicly-writable +directory, such as '/tmp'; you may wish to remove this part if you are +dumping into a directory owned by you. + + You may also specify the directory in which dump files are written: + + -- User Option: ess-source-directory + Directory name (ending in a slash) where R dump files are to be + written. + + By default, dump files are always written to '/tmp', which is fine +when 'ess-keep-dump-files' is 'nil'. If you are keeping dump files, +then you will probably want to keep them somewhere in your home +directory, say '~/R-source'. This could be achieved by including the +following line in your Emacs configuration file: + (setq ess-source-directory (expand-file-name "~/R-source/")) + + If you would prefer to keep your dump files in separate directories +depending on the value of some variable, ESS provides a facility for +this also. By setting 'ess-source-directory' to a lambda expression +which evaluates to a directory name, you have a great deal of +flexibility in selecting the directory for a particular source file to +appear in. The lambda expression is evaluated with the process buffer +as the current buffer and so you can use the variables local to that +buffer to make your choice. For example, the following expression +causes source files to be saved in the subdirectory 'Src' of the +directory the ESS process was run in. + + (setq ess-source-directory + (lambda () + (concat ess-directory "Src/"))) + +('ess-directory' is a buffer-local variable in process buffers which +records the directory the ESS process was run from.) This is useful if +you keep your dump files and you often edit objects with the same name +in different ESS processes. Alternatively, if you often change your R +working directory during an R session, you may like to keep dump files +in some subdirectory of the directory pointed to by the first element of +the current search list. This way you can edit objects of the same name +in different directories during the one R session: + (setq ess-source-directory + (lambda () + (file-name-as-directory + (expand-file-name (concat + (car ess-search-list) + "/.Src"))))) + + If the directory generated by the lambda function does not exist but +can be created, you will be asked whether you wish to create the +directory. If you choose not to, or the directory cannot be created, +you will not be able to edit functions. + + +File: ess.info, Node: Help, Next: Completion, Prev: Editing objects, Up: Top + +8 Reading help files +******************** + +ESS provides an easy-to-use facility for reading R help files from +within Emacs. From within the ESS process buffer or any ESS edit +buffer, typing 'C-c C-v' ('ess-display-help-on-object') will prompt you +for the name of an object for which you would like documentation. +Completion is provided over all objects which have help files. + + If the requested object has documentation, you will be popped into a +buffer (named '*help(OBJ-NAME)*') containing the help file. This buffer +is placed in a special ESS help mode which disables the usual editing +commands but which provides a number of keys for paging through the help +file. + + Help commands: + +'?' + 'ess-describe-help-mode' Pops up a help buffer with a list of the + commands available in R help mode. + +'h' + 'ess-display-help-on-object' Pop up a help buffer for a different + object. + + Paging commands: + +'DEL' + 'scroll-down-command' Move one screen backwards through the help + file. + +'SPC' + 'scroll-up-command' Move one screen forwards through the help file. + +'>' +'<' + 'end/beginning-of-buffer' Move to the end or beginning of the help + file, respectively. + + Section-based motion commands: + +'n' +'p' + 'ess-skip-to-previous-section' and 'ess-skip-to-next-section' Move + to the next and previous section header in the help file, + respectively. A section header consists of a number of capitalized + words, followed by a colon. + + In addition, the 's' key followed by one of the following letters +will jump to a particular section in the help file. Note that the exact +headings available and capitalization scheme may vary across languages. + + You may use 's ?' to get the current list of active key bindings. + +'a' + Arguments: + +'b' + Background: + +'B' + Bugs: + +'d' + Description: + +'D' + Details: + +'e' + Examples: + +'n' + Note: + +'O' + Optional Arguments: + +'R' + Required Arguments: + +'r' + References: + +'s' + See Also: + +'S' + Side Effects: + +'u' + Usage: + +'v' + Value: + +'?' + Pops up a help buffer with a list of the defined section motion + keys. + + Evaluation: + +'l' + 'ess-eval-line-and-step' Evaluates the current line in the ESS + process, and moves to the next line. Useful for running examples + in help files. + +'r' + 'ess-eval-region' Send the contents of the current region to the + ESS process. Useful for running examples in help files. + + Quit commands: + +'q' + 'ess-help-quit' Return to previously selected buffer, and bury the + help buffer. + +'k' + 'kill-buffer' Return to previously selected buffer, and kills the + help buffer. + +'x' + 'ess-kill-buffer-and-go' Return to the ESS process, killing this + help buffer. + + Miscellaneous: + +'i' + 'ess-display-index' Prompt for a package and display it's help + index. + +'v' + 'ess-display-vignettes' Display all available vignettes. + +'w' + 'ess-display-help-in-browser' Display current help page with the + web browser. + +'/' + 'isearch-forward' Same as 'C-s'. + + In addition, all of the ESS commands available in the edit buffers +are also available in R help mode (*note Edit buffer::). Of course, the +usual (non-editing) Emacs commands are available, and for convenience +the digits and <-> act as prefix arguments. + + If a help buffer already exists for an object for which help is +requested, that buffer is popped to immediately; the ESS process is not +consulted at all. If the contents of the help file have changed, you +either need to kill the help buffer first, or pass a prefix argument +(with 'C-u') to 'ess-display-help-on-object'. + + Help buffers are marked as temporary buffers in ESS, and are deleted +when 'ess-quit' or 'ess-cleanup' are called. + + Help buffers normally appear in another window within the current +frame. If you wish help buffers to appear in their own frame (either +one per help buffer, or one for all help buffers), you can customize the +variable 'ess-help-own-frame'. + + +File: ess.info, Node: Completion, Next: Developing with ESS, Prev: Help, Up: Top + +9 Completion +************ + +* Menu: + +* Object names:: +* Function arguments:: +* Minibuffer completion:: +* Auto-complete:: +* Company:: +* Icicles:: + + +File: ess.info, Node: Object names, Next: Function arguments, Up: Completion + +9.1 Completion of object names +============================== + +The key is for completion. The value of the variable +'ess-first-tab-never-complete' controls when completion is allowed +controls when completion is allowed to occur. In 'ess-mode' first +tries to indent, and if there is nothing to indent, complete the object +name instead. + +'TAB' + 'comint-dynamic-complete' Complete the R object name or filename + before point. + + When the cursor is just after a partially-completed object name, +pressing provides completion in a similar fashion to the rest of +Emacs. ESS maintains a list of all objects known to R at any given +time, which basically consists of all objects (functions and datasets) +in every attached directory listed by the 'search()' command along with +the component objects of attached data frames + + For example, consider three functions 'binomplot()', 'binom.test()' +and 'binomial()'. Typing 'bin TAB' will insert the characters 'om', +completing the longest prefix ('binom') which distinguishes these three +commands. Pressing 'TAB' once more provides a list of the three +commands which have this prefix, allowing you to add more characters +(say, '.') which specify the function you desire. After entering more +characters pressing 'TAB' yet again will complete the object name up to +uniqueness, etc. If you just wish to see what completions exist without +adding any extra characters, type 'M-?'. + + -- Command: ess-list-object-completions + 'M-?' List all possible completions of the object name at point. + + ESS also provides completion over the components of named lists and +environments (after '$'), S4 classes slots (after @), package and +namespace objects (after :: and :::). + + Completion is also provided over file names, which is particularly +useful when using R functions such as 'get()' or 'scan()' which require +fully expanded file names. + + In the iESS buffer, if the cursor is not in a string and does not +follow a (partial) object name, the key has a third use: it +expands history references. *Note History expansion::. + + Efficiency in completion is gained by maintaining a cache of objects +currently known to R; when a new object becomes available or is deleted, +only one component of the cache corresponding to the associated +directory needs to be refreshed. If ESS ever becomes confused about +what objects are available for completion (such as when if refuses to +complete an object you *know* is there), the command 'M-x ess-resynch' +forces the _entire_ cache to be refreshed, which should fix the problem. + + +File: ess.info, Node: Function arguments, Next: Minibuffer completion, Prev: Object names, Up: Completion + +9.2 Completion of function arguments +==================================== + +When inside a function call (i.e. following ''(''), 'TAB' completion +also provides function arguments. If function is a generic, completion +will provide all the arguments of 'S3' methods known to 'R'. + + A related functionality is *Note ESS ElDoc::, which displays function +arguments in the echo area whenever the point is inside a function call. + + +File: ess.info, Node: Minibuffer completion, Next: Auto-complete, Prev: Function arguments, Up: Completion + +9.3 Minibuffer completion +========================= + +ESS uses 'IDO' mechanism (part of default Emacs) for minibuffer +completion if the 'ido' package is available and the value of +'ess-use-ido' it 't' (the default). The completion command +'ess-completing-read' falls back on classic 'completion-read' interface +if this feature is not available for whatever reason. + + +File: ess.info, Node: Auto-complete, Next: Company, Prev: Minibuffer completion, Up: Completion + +9.4 Integration with auto-complete package +========================================== + +ESS provides three sources for 'Auto Completion' mode: +'ac-source-R-args', 'ac-source-R-objects' and 'ac-source-R'. The last +one combines the previous two and makes them play nicely together. See +auto-complete package documentation +() for how to modify and +install your own completion sources. + + For the default auto-complete ESS configuration, install the latest +version of 'auto-complete' package. ESS automatically detect the +package and activates auto-complete in ESS buffers. + + To deactivate AC, place the following into your init file: + + (setq ess-use-auto-complete nil) + + Or, to activate auto-completion only in the 'ess-mode' buffers: + + (setq ess-use-auto-complete 'script-only) + + ESS provides AC help both for arguments and objects (default keys +'C-?' or ''). You can bind 'M-h' to display quick help pop-ups: + + (define-key ac-completing-map (kbd "M-h") 'ac-quick-help) + + 'AC' binds 'M-n', and 'M-p' for the navigation in the completion +menu, which might be inconvenient if you want it to use in the inferior +R. Bind it to something else: + + (define-key ac-completing-map "\M-n" nil) ;; was ac-next + (define-key ac-completing-map "\M-p" nil) ;; was ac-previous + (define-key ac-completing-map "\M-," 'ac-next) + (define-key ac-completing-map "\M-k" 'ac-previous) + + +File: ess.info, Node: Company, Next: Icicles, Prev: Auto-complete, Up: Completion + +9.5 Company +=========== + +Another popular package for completion is company, short for complete +anything. ESS provides support for company out-of-the-box. To disable +company support, set 'ess-use-company' to 'nil'. You can set it to +''script-only' to only activate company in R scripts. + + +File: ess.info, Node: Icicles, Prev: Company, Up: Completion + +9.6 Icicles +=========== + +Another option for comprehensively handling completion in Emacs is via +Icicles (). It allows users to +have completions shown temporarily in the standard '*Completions*' +buffer, and interactively select completion candidates using several +methods. As of version 2013.04.04, Icicles provides support for +completion in ESS. Please consult Icicles documentation, which is easily +accessible via 'customize-group Icicles', for more details on +installation and customization options. + + Once installed, Icicles can be activated by evaluating): + + (require 'icicles) + (icy-mode 1) + + Icicles can be toggled by typing 'M-x icy'. + + When Icicles is on, 'TAB' offers completion, provided the conditions +determined by 'ess-first-tab-never-complete' allow it. Typing 'M-TAB' +will attempt completion regardless. Typing 'M-?' in 'ESS' or 'iESS' +modes brings up the relevant completion candidates from which to choose. +Minibuffer input filters the available candidates. Use 'TAB' for prefix +completion or 'S-TAB' for substring or regexp completion. Use 'S-SPC' +to match an additional pattern (repeatable). You can cycle among the +matching candidates, choosing with 'RET' or 'mouse-2'. + + +File: ess.info, Node: Developing with ESS, Next: Extras, Prev: Completion, Up: Top + +10 Developing with ESS +********************** + +ESS provides several tools to help you with the development of your R +packages: + +* Menu: + +* ESS tracebug:: Visual debugging, breakpoints, tracing, watch etc. +* Editing documentation:: Tools to edit R documentation +* Namespaced Evaluation:: Develop your packages on the fly + + +File: ess.info, Node: ESS tracebug, Next: Editing documentation, Up: Developing with ESS + +10.1 ESS tracebug +================= + +* Menu: + +* Getting started with tracebug:: Quick tutorial + +ESS 'tracebug' offers visual debugging, interactive error navigation, +interactive backtrace, breakpoint manipulation, control over R error +actions, watch window and interactive flagging/unflagging of functions +for debugging. + + 'ess-tracebug' is on by default. You can toggle it on and off with +'M-x' 'ess-tracebug'. To disable startup activation of 'ess-tracebug' +set 'ess-use-tracebug' to nil. + + Tracebug functionality can be found on 'ess-dev-map', bound to 'C-c +C-t'. Additionally, when subprocess is in a debugging state +'ess-debug-minor-mode' is active and the following additional shortcuts +are available: + +* Interactive Debugging (`ess-debug-minor-mode-map'): + + M-C . Continue . `ess-debug-command-continue' + M-C-C . Continue multi . `ess-debug-command-continue-multi' + M-N . Next step . `ess-debug-command-next' + M-C-N . Next step multi . `ess-debug-command-next-multi' + M-U . Up frame . `ess-debug-command-up' + M-Q . Quit debugging . `ess-debug-command-quit' + + + These are all the tracebug commands defined in 'ess-dev-map' ('C-c +C-t ?' to show this table): + + +* Breakpoints (`ess-dev-map'): + + b . Set BP (repeat to cycle BP type) . `ess-bp-set' + B . Set conditional BP . `ess-bp-set-conditional' + k . Kill BP . `ess-bp-kil' + K . Kill all BPs . `ess-bp-kill-all' + o . Toggle BP state . `ess-bp-toggle-state' + l . Set logger BP . `ess-bp-set-logger' + n . Goto next BP . `ess-bp-next' + p . Goto previous BP . `ess-bp-previous' + + (C- prefixed equivalents are also defined) + +* Debugging (`ess-dev-map'): + ` . Show traceback . `ess-show-traceback' (also on C-c `) + ~ . Show callstack . `ess-show-call-stack' (also on C-c ~) + e . Toggle error action (repeat to cycle). `ess-debug-toggle-error-action' + d . Flag for debugging . `ess-debug-flag-for-debugging' + u . Unflag for debugging . `ess-debug-unflag-for-debugging' + w . Watch window . `ess-watch' + + (C- prefixed equivalents are also defined) + +* Navigation to errors (general Emacs functionality): + + C-x `, M-g n . `next-error' + M-g p . `previous-error' + +* Misc: + +? . Show this help . `ess-tracebug-show-help' + + + To configure how electric watch window splits the display see +'ess-watch-width-threshold' and 'ess-watch-height-threshold' variables. + + _Note:_ Currently, ess-tracebug does not detect some of R's debug +related messages in non-English locales. To set your R messages to +English add the following line to your .Rprofile init file: + + Sys.setlocale("LC_MESSAGES", "C") + + +File: ess.info, Node: Getting started with tracebug, Up: ESS tracebug + +10.1.1 Getting started with tracebug +------------------------------------ + +Consider a buffer with the following function: + +test <- function(x){ + mean(x), +} + + Evaluating the function (e.g. 'C-c C-c') results in an error about +an unexpected comma. You can use 'next-error' (bound by default to 'C-x +`', 'M-g n', and 'M-g M-n') to jump to the place where the error +occurred. Alternatively, use the mouse to click on the error to jump to +where it occurred. + + Correct the error by deleting the comma. Now put point on 'mean' and +set the breakpoint using 'C-c C-t b' ('ess-bp-set') and reevaluate the +function. Jump to the inferior buffer (possibly using 'C-c C-z') and +evaluate 'test(1:10)'. An interactive debug process starts, stopping at +the breakpoint we just specified. Here you can debug your function +(what is 'x' at this point?). Use 'M-N' to continue. + + Let's replace our test function with one slightly more complicated: + +test <- function(x){ + x <- x + 1 + y <- mean(x) + x <- ifelse(x > 5, x, x - 100) + list(x, y) +} + + Try setting multiple breakpoints. You can unset a breakpoint by +killing it with 'C-c C-t k'. You can set conditional breakpoints too. +Try setting one by placing point on the line 'x <- x + 1' and doing 'C-c +C-t B'. ESS will ask for the condition. Let's set it to +'!is.numeric(x)'. After re-evaluating 'test', try calling 'test(1:100)' +and 'test('foo')'. + + You can remove all breakpoints with 'C-c C-t K'. + + You can flag a function for debugging (similar to calling +'debug(test)' at R's prompt) by doing 'C-c C-t d'. Try this yourself by +putting point over 'test' and doing 'C-c C-t d'. + + If an error occurs, you can get the complete call stack by doing 'C-c +`' or 'C-c C-t `' ('ess-show-traceback'). + + Tracebug also offers a watch window where you can watch values of +objects. Open it with 'C-c C-t w' ('ess-watch'). Initially you aren't +watching anything. Add something with 'a' (e.g. 'a test'). The watch +window displays what the object is at any given time and automatically +updates. Quit the watch window with 'q'. + + +File: ess.info, Node: Editing documentation, Next: Namespaced Evaluation, Prev: ESS tracebug, Up: Developing with ESS + +10.2 Editing documentation +========================== + +ESS provides two ways of writing documentation for R objects. Either +using the standard R documentation system or using in-source +documentation written as structured comment fields for use with the +Roxygen package. + +* Menu: + +* R documentation files:: Edit objects in a specialized buffer +* Roxygen:: Loading source files into the ESS process + + +File: ess.info, Node: R documentation files, Next: Roxygen, Up: Editing documentation + +10.2.1 Editing R documentation (Rd) files +----------------------------------------- + +R objects are documented in files written in the "R documentation" +("Rd"), a simple markup language closely resembling (La)TeX, which can +be processed into a variety of formats, including LaTeX, HTML, and plain +text. Rd format is described in section "Rd format" of the "Writing R +Extensions" manual in the R distribution. ESS has several features that +facilitate editing Rd files. + + Visiting an Rd file as characterized by its extension 'Rd' will +activate Rd Mode, which provides several facilities for making editing R +documentation files more convenient, by helping with indentation, +insertions, even doing some of the typing for you (with Abbrev Mode), +and by showing Rd keywords, strings, etc. in different faces (with Font +Lock Mode). + + Note that R also accepts Rd files with extension 'rd'; to activate +ESS[Rd] support for this extension, you may need to add + + (add-to-list 'auto-mode-alist '("\\.rd\\'" . Rd-mode)) + +to one of your Emacs startup files. + + In Rd mode, the following special Emacs commands can be used in +addition to the standard Emacs commands. + +'C-h m' + Describe the features of Rd mode. + +'LFD' +'RET' + Reindent the current line, insert a newline and indent the new line + ('reindent-then-newline-and-indent'). An abbrev before point is + expanded if 'abbrev-mode' is non-'nil'. + +'TAB' + Indent current line based on its contents and on previous lines. + ('indent-according-to-mode'). + +'C-c C-e' + Insert a "skeleton" with Rd markup for at least all mandatory + entries in Rd files ('Rd-mode-insert-skeleton'). Note that many + users might prefer to use the R function 'prompt' on an existing R + object to generate a non-empty Rd "shell" documenting the object + (which already has all information filled in which can be obtained + from the object). + +'C-c C-f' + Insert "font" specifiers for some of the Rd markup commands markup + available for emphasizing or quoting text, including markup for + URLs and email addresses ('Rd-font'). 'C-c C-f' is only a prefix; + see e.g. 'C-c C-f TAB' for the available bindings. Note that + currently, not all of the Rd text markup as described in section + "Marking text" of "Writing R Extensions" can be accessed via 'C-c + C-f'. + +'C-c C-j' + Insert a suitably indented '\item{' on the next line + ('Rd-mode-insert-item'). + +'C-c C-p' + Preview a plain text version ("help file", *note Help::) generated + from the Rd file ('Rd-preview-help'). + + In addition, when editing Rd files one can interact with a running R +process in a similar way as when editing R language files. For example, +'C-c C-v' provides access to on-line help, and 'C-c C-n' sends the +current line to the R process for evaluation. This interaction is +particularly useful when editing the examples in the Rd file. See 'C-h +m' for all available commands. + + Rd mode also provides access to abbreviations for most of the Rd +markup commands. Type 'M-x list-abbrevs' with Abbrev mode turned on to +list all available abbrevs. Note that all Rd abbrevs start with a grave +accent. + + Rd mode can be customized via the following variables. + + -- User Option: Rd-mode-hook + Hook to be run when Rd mode is entered. + + -- User Option: Rd-indent-level + The indentation of Rd code with respect to containing blocks. + Default is 2. + + -- User Option: Rd-to-help-command + The shell command used for converting Rd source to help text. + Default is 'R CMD Rd2txt'. + + To automatically turn on the abbrev and font-lock features of Rd +mode, add the following lines to one of your Emacs startup files: + + (add-hook 'Rd-mode-hook + (lambda () + (abbrev-mode 1) + (font-lock-mode 1))) + + +File: ess.info, Node: Roxygen, Prev: R documentation files, Up: Editing documentation + +10.2.2 Editing Roxygen documentation +------------------------------------ + +The Roxygen R package makes it possible to keep the intended contents +for Rd files as structured comments in the R source files. Roxygen can +then parse R files and generate appropriate Rd files from these +comments, fill the usage fields as well as updating 'NAMESPACE' files. +See the Roxygen documentation found via for more +information on its usage. An example of an Roxygen entry for a simple R +function can look like this: + + ##' Description of the function + ##' + ##' Further details about this function + ##' @title A title + ##' @param me all parameters must be listed and documented + ##' @return Description of the return value + ##' @author The author + myfun <- function(me) + cat("Hello", me, "\n") + The entry is immediately preceding the object to document and all +lines start with the Roxygen prefix string, in this case '##''. ESS +provides support to edit these documentation entries by providing line +filling, navigation, template generation etc. Syntax highlighting is +provided for Emacs but not for XEmacs. + + Roxygen is customized by the variables in the customization group +"Ess Roxy". Customizables include the Roxygen prefix, use of folding to +toggle visibility of Roxygen entries and the Roxygen template. + + All ESS Roxygen support is defined in 'ess-roxy.el' which is loaded +by default in ESS. The following special Emacs commands are provided. + + -- Command: ess-roxy-update-entry + 'C-c C-o C-o' Generate a Roxygen template or update the parameter + list in Roxygen entry at point (or above the function at the + point). Documented parameters that are not in the function are + placed last in the list, parameters that are not documented and not + in the definition are dropped. Parameter descriptions are filled + if 'ess-roxy-fill-param-p' is non-nil. + + -- Command: ess-roxy-toggle-roxy-region BEG END + 'C-c C-o C-c' Toggle the presence of the leading Roxygen string on + all lines in the marked region (between BEG and END. Convenient + for transferring text to Roxygen entries and to evaluate example + fields. + + -- Command: ess-roxy-preview-Rd NAME-FILE + 'C-c C-o C-r' Use the attached R process to parse the entry at + point to obtain the Rd code. Convenient for previewing and + checking syntax. When used with the prefix argument NAME-FILE, + i.e. 'C-u C-c C-e C-r', place the content in a buffer associated + with a Rd file with the same name as the documentation. Requires + the Roxygen package to be installed. + + -- Command: ess-roxy-preview-HTML VISIT-INSTEAD-OF-OPEN + 'C-c C-o C-t' Use the attached R process to parse the entry at to + generate HTML for the entry and open it in a browser. When used + with the prefix argument VISIT-INSTEAD-OF-OPEN, i.e. 'C-u C-c C-e + C-t', visit the generated HTML file instead. Requires the Roxygen + and tools packages to be installed. + + -- Command: ess-roxy-previous-entry + 'C-c C-o p' Go to start of the Roxygen entry above point. + + -- Command: ess-roxy-next-entry + 'C-c C-o n' Go to end of the Roxygen entry above point. + + -- Command: ess-roxy-hide-all + 'C-c C-o C-h' Use the hideshow mode to fold away the visibility of + all Roxygen entries. Hide-show support must be enabled for this + binding to get defined. + + ESS also advises the following standard editing functions in order to +make Roxygen editing more intuitive: + +'TAB' + 'ess-R-complete-object-name' Complete Roxygen tag at point. E.g. + doing 'TAB' when the point is at the end of '@par' completes to + '@param'. + +'M-h' + 'mark-paragraph' If the transient mark mode is active, place mark + and point at start end end of the field at point and activate the + mark. + +'TAB' + 'ess-indent-command' If hide-show support is enabled, fold away the + visibility of the Roxygen entry at point. + +'M-q' + 'fill-paragraph' Fill the Roxygen field at point. + +'C-a' + 'ess-roxy-move-beginning-of-line' Move to the point directly to the + right of the Roxygen start string. If already there, move to the + beginning of the line. + +'RET' + 'newline-and-indent' Insert a new line and the Roxygen prefix + string. + + +File: ess.info, Node: Namespaced Evaluation, Prev: Editing documentation, Up: Developing with ESS + +10.3 Namespaced Evaluation +========================== + +In non package files evaluation commands, *Note Evaluating code::, send +portions of the current buffer environment ('R_GlobalEnv'. When +developing packages, ESS sends code to the corresponding package +namespace and (for visible objects) into package environment (visible on +search path). All objects that are assigned are displayed in the +minibuffer alongside the environment in which they are assigned. + + Here is a short overview of how namespace and package environments +work in R. All objects defined in a package 'foo' are stored in an +environment called 'namespace:foo'. Parent environment of +'namespace:foo' is an environment 'imports:foo' which contains copies of +all objects from other packages which 'foo' imports. Parent environment +of 'imports:foo' is the 'namespace:base'. Parent environment of +'namespace:base' is .GlobalEnv. Thus functions and methods stored in +'namespace:foo' see all the objects in .GlobalEnv unless shadowed by +objects in 'imports:foo', 'namespace:base', or 'namespace:foo' itself. +There is another environment associated with 'foo' - 'package:foo'. +This environment stores *copies* of exported objects from +'namespace:foo' and is placed on the search() path, i.e. if 'foo' is +loaded and if you start with .GlobalEnv and iteratively call +parent.env() you will get eventually to 'package:foo'. Thus all methods +and functions defined in .GlobalEnv can "see" objects in 'package:foo' +environment. See also +. + + Occasionally you want to evaluate into a package from a non-package +file, or the other way around, evaluate into 'GlobalEnv' from inside a +package. In such cases 'C-c C-t C-s' is your friend. + + -- Command: ess-r-set-evaluation-env ARG + 'C-c C-t C-s' Set or unset the current evaluation environment (a + package). + + +File: ess.info, Node: Extras, Next: ESS for R, Prev: Developing with ESS, Up: Top + +11 Other ESS features and tools +******************************* + +ESS has a few extra features, which didn't fit anywhere else. +* Menu: + +* ESS ElDoc:: Display function arguments in minibuffer +* ESS Flymake:: On-the-fly syntax checking +* Handy commands:: Usefully commands at your fingertips +* Highlighting:: Syntactic highlighting of buffers +* Parens:: Parenthesis matching +* Graphics:: Using graphics with ESS +* Imenu:: Support for Imenu in ESS +* Toolbar:: Support for toolbar in ESS +* Xref:: Xref +* Rdired:: Directory editor for R objects +* Rutils:: R object/package management and help utilities +* Org:: Interaction with Org mode +* Sweave and AUCTeX:: Support for Sweave in ESS and AUCTeX + + +File: ess.info, Node: ESS ElDoc, Next: ESS Flymake, Up: Extras + +11.1 ElDoc +========== + +In 'ElDoc' mode, the echo area displays function's arguments at point. +ElDoc is active by default in 'ess-mode' and 'inferior-ess-mode' +buffers. To activate it only in 'ess-mode' buffers, place the following +into your init file: + + (setq ess-use-eldoc 'script-only) + + -- User Option: ess-use-eldoc + If 't', activate eldoc in ess-mode and inferior-ess-mode buffers. + If ''script-only' activate in ess-mode buffers only. Set + 'ess-use-eldoc' to 'nil' to stop using 'ElDoc' altogether. + + -- User Option: ess-eldoc-show-on-symbol + This variable controls whether the help is shown only inside + function calls. If set to 't', 'ElDoc' shows help string whenever + the point is on a symbol, otherwise (the default), shows only when + the point is in a function call, i.e. after ''(''. + + -- User Option: ess-eldoc-abbreviation-style + The variable determines how the doc string should be abbreviated to + fit into minibuffer. Posible values are 'nil', 'mild', 'normal', + 'strong' and 'aggressive'. Please see the documentation of the + variable for more details. The default filter is 'normal'. + + Ess-eldoc also honors the value of 'eldoc-echo-area-use-multiline-p', +which if set to 'nil', will cause the truncation of doc string +indifferent of the value of 'ess-eldoc-abbreviation-style'. This way +you can combine different filter levels with the truncation. + + +File: ess.info, Node: ESS Flymake, Next: Handy commands, Prev: ESS ElDoc, Up: Extras + +11.2 Flymake +============ + +The minor mode 'flymake-mode' provides on-the-fly syntax checking. ESS +provides support for flymake in R-mode in Emacs versions 26 and newer. +It is enabled by default, to disable it you may set 'ess-use-flymake' to +'nil'. In order to use it, you may need to install the 'lintr' R +package, available from CRAN. + + -- User Option: ess-use-flymake + When non-nil, use flymake. If ''process', only use flymake when + the buffer has an inferior process running. + + -- User Option: ess-r-flymake-linters + This variable describes the linters to use. It can either be a + string with an R expression to be used as-is or a list of strings + where each element is passed to 'lintr::with_defaults'. See the + help page for 'lintr::default_linters' for information on available + linters and their defaults. + + -- User Option: ess-r-flymake-lintr-cache + When 't' (the default), lintr uses a cache. Change to 'nil' to + disable lintr's caching mechanism. + + +File: ess.info, Node: Handy commands, Next: Highlighting, Prev: ESS Flymake, Up: Extras + +11.3 Handy commands +=================== + + -- Command: ess-handy-commands + Request and execute a command from 'ess-handy-commands' list. + + -- User Option: ess-handy-commands + An alist of custom ESS commands available for call by + 'ess-handy-commands' and 'ess-smart-comma' function. + + Currently contains: + + change-directory + 'ess-change-directory' + help-index + 'ess-display-index' + help-object + 'ess-display-help-on-object' + vignettes + 'ess-display-vignettes' + objects[ls] + 'ess-execute-objects' + search + 'ess-execute-search' + set-width + 'ess-execute-screen-options' + install.packages + 'ess-install.packages' + library + 'ess-library' + setRepos + 'ess-setRepositories' + sos + 'ess-sos' + + Handy commands: 'ess-library', 'ess-install.packages', etc - ask for +item with completion and execute the correspond command. 'ess-sos' is a +interface to 'findFn' function in package 'sos'. If package 'sos' is +not found, ask user for interactive install. + + +File: ess.info, Node: Highlighting, Next: Parens, Prev: Handy commands, Up: Extras + +11.4 Syntactic highlighting of buffers +====================================== + +ESS provides Font-Lock (*note Using Multiple Typefaces: (emacs)Faces.) +patterns for inferior R Mode, S Mode, and R Transcript Mode buffers. + + The font-lock patterns are defined by the following variables, which +you may modify if desired: + + -- User Option: inferior-R-font-lock-keywords + Font-lock patterns for inferior *R* processes. (There is a + corresponding 'inferior-S-font-lock-keywords' for *S* processes.) + The default value highlights prompts, inputs, assignments, output + messages, vector and matrix labels, and literals such as 'NA' and + 'TRUE'. + + -- User Option: ess-R-font-lock-keywords + Font-lock patterns for ESS R programming mode. (There is a + corresponding 'ess-S-font-lock-keywords' for S buffers.) The + default value highlights function names, literals, assignments, + source functions and reserved words. + + +File: ess.info, Node: Parens, Next: Graphics, Prev: Highlighting, Up: Extras + +11.5 Parenthesis matching +========================= + +Emacs has facilities for highlighting the parenthesis matching the +parenthesis at point. This feature is very useful when trying to +examine which parentheses match each other. This highlighting also +indicates when parentheses are not matching. You may activate it +putting this in your Emacs configuration file: + + (show-paren-mode) + + +File: ess.info, Node: Graphics, Next: Imenu, Prev: Parens, Up: Extras + +11.6 Using graphics with ESS +============================ + +One of the main features of R is its ability to generate high-resolution +graphics plots. When using R in a windowing environment, no additional +configuration is necessary; plots will be shown in a new (non-Emacs) +window. + + If not using a windowing environment or S, ESS provides a number of +features for dealing with such plots. + +* Menu: + +* printer:: The printer() graphics driver +* X11:: The X11() (and other X Windows based) driver +* winjava:: Java Graphics Device + + +File: ess.info, Node: printer, Next: X11, Up: Graphics + +11.6.1 Using ESS with the 'printer()' driver +-------------------------------------------- + +This is the simplest (and least desirable) method of using graphics +within ESS. S's 'printer()' device driver produces crude character based +plots which can be contained within the ESS process buffer itself. To +start using character graphics, issue the S command + printer(width=79) + (the 'width=79' argument prevents Emacs line-wrapping at column 80 on +an 80-column terminal. Use a different value for a terminal with a +different number of columns.) Plotting commands do not generate +graphics immediately, but are stored until the 'show()' command is +issued, which displays the current figure. + + +File: ess.info, Node: X11, Next: winjava, Prev: printer, Up: Graphics + +11.6.2 Using ESS with windowing devices +--------------------------------------- + +Of course, the ideal way to use graphics with ESS is to use a windowing +system. Under X Windows, or X11, this requires that the DISPLAY +environment variable be appropriately set. + + +File: ess.info, Node: winjava, Prev: X11, Up: Graphics + +11.6.3 Java Graphics Device +--------------------------- + +S+6.1 and newer on Windows contains a java library that supports +graphics. Send the commands: + + library(winjava) + java.graph() + +to start the graphics driver. This allows you to use ESS for both +interaction and graphics within S-PLUS. (Thanks to Tim Hesterberg for +this information.) + + +File: ess.info, Node: Imenu, Next: Toolbar, Prev: Graphics, Up: Extras + +11.7 Imenu +========== + +Imenu is an Emacs tool for providing mode-specific buffer indexes. In +some of the ESS editing modes (currently SAS and R), support for Imenu +is provided. For example, in R mode buffers, the menubar should display +an item called "Imenu-R". Within this menubar you will then be offered +bookmarks to particular parts of your source file (such as the starting +point of each function definition). + + Imenu works by searching your buffer for lines that match what ESS +thinks is the beginning of a suitable entry, for example the beginning +of a function definition. To examine the regular expression that ESS +uses, check the value of 'imenu-generic-expression'. This value is set +by various ESS variables such as 'ess-imenu-S-generic-expression'. + + +File: ess.info, Node: Toolbar, Next: Xref, Prev: Imenu, Up: Extras + +11.8 Toolbar +============ + +The R and S editing modes have support for a toolbar. This toolbar +provides icons to act as shortcuts for starting new S/R processes, or +for evaluating regions of your source buffers. The toolbar should be +present if your Emacs can display images. *Note Customization::, for +ways to change the toolbar. + + +File: ess.info, Node: Xref, Next: Rdired, Prev: Toolbar, Up: Extras + +11.9 Xref +========= + +Xref is an Emacs interface that supports finding "identifiers," usually +function definitions in ESS's view. ESS ships with support for Xref in +Emacs versions 25.1 and higher. *Note (emacs)Xref:: for how to use this +feature. + + +File: ess.info, Node: Rdired, Next: Rutils, Prev: Xref, Up: Extras + +11.10 Rdired +============ + +Ess-rdired provides a dired-like buffer for viewing, editing and +plotting objects in your current R session. If you are used to using +the dired (directory editor) facility in Emacs, this mode gives you +similar functionality for R objects. + + Start an R session with 'M-x R' and then store a few variables, such +as: + + s <- sin(seq(from=0, to=8*pi, length=100)) + x <- c(1, 4, 9) + y <- rnorm(20) + z <- TRUE + + Then use 'M-x ess-rdired' to create a buffer listing the objects in +your current environment and display it in a new window: + mode length + s numeric 100 + x numeric 3 + y numeric 20 + z logical 1 + + Type 'C-h m' or '?' to get a list of the keybindings for this mode. +For example, with your point on the line of a variable, 'p' will plot +the object, 'v' will view it, and 'd' will mark the object for deletion +('x' will actually perform the deletion). + + +File: ess.info, Node: Rutils, Next: Org, Prev: Rdired, Up: Extras + +11.11 Rutils +============ + +Ess-rutils builds up on ess-rdired, providing key bindings for +performing basic R functions in the inferior-ESS process buffer, such as +loading and managing packages, object manipulation (listing, viewing, +and deleting), and alternatives to 'help.start()' and 'RSiteSearch()' +that use the 'browse-url' Emacs function. The library can be loaded +using 'M-x load-file', but the easiest is to include: + + (require 'ess-rutils) + + in your Emacs configuration file. Once R is started with 'M-x R', +and if the value of the customizable variable 'ess-rutils-keys' is true, +several key bindings become available in iESS process buffers: + + -- Command: ess-rutils-local-pkgs + 'C-c C-. l' List all packages in all available libraries. + + -- Command: ess-rutils-repos-pkgs + 'C-c C-. r' List available packages from repositories listed by + 'getOptions(``repos'')' in the current R session. + + -- Command: ess-rutils-update-pkgs LIB REPOS + 'C-c C-. u' Update packages in a particular library LIB and + repository REPOS. + + -- Command: ess-rutils-apropos + 'C-c C-. a' Search for a string using apropos. + + -- Command: ess-rutils-rm-all + 'C-c C-. m' Remove all R objects. + + -- Command: ess-rutils-objs + 'C-c C-. o' Manipulate R objects; wrapper for 'ess-rdired'. + + -- Command: ess-rutils-load-wkspc + 'C-c C-. w' Load a workspace file into R. + + -- Command: ess-rutils-save-wkspc + 'C-c C-. s' Save a workspace file. + + -- Command: ess-change-directory + 'C-c C-. d' Change the working directory for the current R session. + + -- Command: ess-rutils-html-docs + 'C-c C-. H' Use 'browse-url' to navigate R html documentation. + + See the submenu 'Rutils' under the iESS menu for alternative access +to these functions. The function 'ess-rutils-rsitesearch' is provided +without a particular key binding. This function is useful in any Emacs +buffer, so can be bound to a user-defined key: + + (eval-after-load "ess-rutils" + '(global-set-key [(control c) (f6)] 'ess-rutils-rsitesearch)) + + Functions for listing objects and packages ('ess-rutils-local-pkgs', +'ess-rutils-repos-pkgs', and 'ess-rutils-objs') show results in a +separate buffer and window, in 'ess-rutils-mode', providing useful key +bindings in this mode (type '?' in this buffer for a description). + + +File: ess.info, Node: Org, Next: Sweave and AUCTeX, Prev: Rutils, Up: Extras + +11.12 Interaction with Org mode +=============================== + +Org-mode () now supports reproducible research and +literate programming in many languages (including R) - see chapter 14 of +the Org manual +(). For ESS +users, this offers a document-based work environment within which to +embed ESS usage. R code lives in code blocks of an Org document, from +which it can be edited in ess-mode, evaluated, extracted ("tangled") to +pure code files. The code can also be exported ("woven") with the +surrounding text to several formats including HTML and LaTeX. Results of +evaluation including figures can be captured in the Org document, and +data can be passed from the Org document (e.g. from a table) to the ESS +R process. (This section contributed by Dan Davison and Eric Schulte.) + + +File: ess.info, Node: Sweave and AUCTeX, Prev: Org, Up: Extras + +11.13 Support for Sweave in ESS and AUCTeX +========================================== + +Libraries for literate data analysis are obsolete and not loaded by +default. This includes 'ess-noweb', 'ess-swv', and related +functionality like 'Rnw-mode'. Users are encouraged to switch to one of +several other packages that deal with these modes. For example, +polymode , +, or markdown-mode with edit-indirect +. + + ESS provides support for writing and processing Sweave +(), building up on Emacs' +ess-noweb-mode for literate programming. When working on an Sweave +document, the following key bindings are available: + + -- Command: ess-swv-weave CHOOSE + 'M-n s' Run Sweave on the current .Rnw file. If CHOOSE is + non-'nil', offer a menu of available weavers. + + -- Command: ess-swv-latex + 'M-n l' Run LaTeX after Sweave'ing. + + -- Command: ess-swv-PS + 'M-n p' Generate and display a postscript file after LaTeX'ing. + + -- Command: ess-swv-PDF PDFLATEX-CMD + 'M-n P' Generate and display a PDF file after LaTeX'ing. Optional + argument PDFLATEX-CMD is the command to use, which by default, is + the command used to generate the PDF file is the first element of + 'ess-swv-pdflatex-commands'. + + -- User Option: ess-swv-pdflatex-commands + Commands used by 'ess-swv-PDF' to run a version of pdflatex; the + first entry is the default command. + + Sweave'ing with 'ess-swv-weave' starts an inferior-ESS process, if +one is not available. Other commands are available from the 'Sweaving, +Tangling, ...' submenu of the Noweb menu. + + AUCTeX () users may prefer to +set the variable 'ess-swv-plug-into-AUCTeX-p' (available from the "ESS +Sweave" customization group) to t. Alternatively, the same can be +achieved by activating the entry "AUCTeX Interface" from the 'Sweaving, +Tangling, ...' submenu, which toggles this variable on or off. When the +interface is activated, new entries for Sweave'ing and LaTeX'ing +thereafter are available from AUCTeX's "Command" menu. Sweave'ing can, +thus, be done by 'C-c C-c Sweave RET' without an inferior-ESS process. +Similarly, LaTeX'ing can be done by 'C-c C-c LaTeXSweave RET'. In both +cases, the process can be monitored with 'C-c C-l' +('TeX-recenter-output-buffer'). Open the viewer with 'C-c C-v' +('TeX-view'), as usual in AUCTeX. + + +File: ess.info, Node: ESS for R, Next: ESS for SAS, Prev: Extras, Up: Top + +12 Overview of ESS features for the S family +******************************************** + +* Menu: + +* ESS(R)--Editing files:: +* iESS(R)--Inferior ESS processes:: +* Philosophies for using ESS(R):: +* Example ESS usage:: + + +File: ess.info, Node: ESS(R)--Editing files, Next: iESS(R)--Inferior ESS processes, Prev: ESS for R, Up: ESS for R + +12.1 ESS[R]-Editing files +========================= + +ESS[R] mode should be automatically turned on when visiting a file +ending with an R or S suffix (*.R, *.S, *.s, etc), which enables the +features discussed previously. Alternatively, type 'M-x R-mode' to put +the current buffer into R mode. However, one will have to start up an +inferior process to take advantage of the interactive features. + + +File: ess.info, Node: iESS(R)--Inferior ESS processes, Next: Philosophies for using ESS(R), Prev: ESS(R)--Editing files, Up: ESS for R + +12.2 iESS[R]-Inferior ESS processes +=================================== + +To start up iESS mode for R, use: + M-x R + M-x S+3 + M-x S4 + M-x S+5 + M-x S+6 + +(for R, S-PLUS 3.x, S4, S+5, S+6 or or S+7, respectively. This assumes +that you have access to each). + + In the case that you wish to pass command line arguments to the +starting R process, call it with the universal prefix. To set command +line arguments that apply to all future iESS sessions, set the variable +'inferior-R-args'. + + Note that R has some extremely useful command line arguments. For +example, '--vanilla' will ensure R starts up without loading in any init +files. + + If you have other versions of R or S available on the system, ESS is +also able to start those versions. How this exactly works depend on +which OS you are using (details below). The general principle, +regardless of OS, is that ESS searches the paths listed in the variable +'exec-path' for R binaries. If ESS cannot find your R binaries, on Unix +you can change the unix environment variable 'PATH', as this variable is +used to set 'exec-path'. + + R on GNU/Linux systems and other Unix-like systems (macOS): If you +have "R-1.8.1" on your 'exec-path', it can be started using 'M-x +R-1.8.1'. By default, ESS will find versions of R beginning "R-1", +"R-2", "R-3", "R-devel", or "R-patched". If your versions of R are +called other names, consider renaming them with a symbolic link or +change the variable 'ess-r-versions'. To see which functions have been +created for starting different versions of R, type 'M-x R-' and then hit +[Tab]. These other versions of R can also be started from the +"ESS->Start Process->Other" menu. + + R on Windows systems: If you have "rw1081" on your 'exec-path', it +can be started using 'M-x rw1081'. By default, ESS will find versions +of R located in directories parallel to the version of R in your 'PATH'. +If your versions of R are called other names, you will need to change +the variable 'ess-rterm-versions'. To see which functions have been +created for starting different versions of R, type 'M-x rw' and then hit +[Tab]. These other versions of R can also be started from the +"ESS->Start Process->Other" menu. + + Once ESS has found these extra versions of R, it will then create a +new function, called 'M-x R-newest', which will call the newest version +of R that it found. (ESS examines the date in the first line of +information from 'R --version' to determine which is newest.) + + S on Unix systems: If you have "Splus7" on your 'exec-path', it can +be started using 'M-x Splus7'. By default, ESS will find all +executables beginning "Splus" on your path. If your versions of S are +called other names, consider renaming them with a symbolic link or +change the variable 'ess-s-versions'. To see which functions have been +created for starting different versions of Splus, type 'M-x Splus' and +then hit [Tab]. These other versions of Splus can also be started from +the "ESS->Start Process->Other" menu. + + A second mechanism is also available for running other versions of +Splus. The variable 'ess-s-versions-list' is a list of lists; each +sublist should be of the form: (DEFUN-NAME PATH ARGS). DEFUN-NAME is the +name of the new emacs function you wish to create to start the new S +process; PATH is the full path to the version of S you want to run; ARGS +is an optional string of command-line arguments to pass to the S +process. Here is an example setting: + (setq ess-s-versions-list + '( ("Splus64" "/usr/local/bin/Splus64") + ("Splus64-j" "/usr/local/bin/Splus64" "-j"))) + which will then allow you to do 'M-x Splus64-j' to start Splus64 with +the corresponding command line arguments. + + If you change the value of either 'ess-r-versions' or +'ess-s-versions-list', you should put them in your Emacs configuration +file before ess-site is loaded, since the new Emacs functions are +created when ESS is loaded. + + Sqpe (S-Plus running inside an Emacs buffer) on Windows systems: If +you have an older version of S-Plus (S-Plus 6.1 for example) on your +system, ir can be started inside an Emacs buffer with 'M-x splus61'. By +default, ESS will find versions of S-Plus located in the installation +directories that Insightful uses by default. If your versions of S-Plus +are anywhere else, you will need to change the variable +'ess-SHOME-versions'. To see which functions have been created for +starting different versions of S-Plus, type 'M-x spl' and then hit +[Tab]. These other versions of S-Plus can also be started from the +"ESS->Start Process->Other" menu. + + +File: ess.info, Node: Philosophies for using ESS(R), Next: Example ESS usage, Prev: iESS(R)--Inferior ESS processes, Up: ESS for R + +12.3 Philosophies for using ESS[R] +================================== + +There are two philosophies for using ESS. Most modern best practices +prefer the first. ESS is configured for the first, and this is what the +manual focuses on. + + 1: The source code is real. Objects are realizations of the source +code. Source for EVERY user modified object is placed in a particular +directory or directories, for later editing and retrieval. + + 2: R objects are real. Source code is a temporary realization of the +objects. Dumped buffers should not be saved. +_We_strongly_discourage_this_approach_. However, if you insist, add the +following lines to your Emacs configuration file: + (setq ess-keep-dump-files nil) + (setq ess-delete-dump-files t) + (setq ess-mode-silently-save nil) + + +File: ess.info, Node: Example ESS usage, Prev: Philosophies for using ESS(R), Up: ESS for R + +12.4 Example ESS usage +====================== + +We present some basic examples for using ESS to interact with R These +are just a subset of approaches, many better approaches are possible. +Contributions of examples of how you work with ESS are appreciated +(especially since it helps us determine priorities on future +enhancements)! Comments as to what should be happening are prefixed by +"##". + 1: ## Data Analysis Example + ## Load the file you want to work with + C-x C-f myfile.R + + ## Edit as appropriate, then start and switch to an R buffer + C-c C-z + + ## A new buffer *R* will appear. R will have been started + ## in this buffer. The buffer is in iESS [R] mode. + + ## Return to the script (prefix with C-c if you have pressed other keys) + C-z + + ## Send regions, lines, or the entire file contents to R. For regions, + ## highlight a region with keystrokes or mouse and then send with: + C-c C-r + + ## Re-edit myfile.R as necessary to correct any difficulties. Add + ## new commands here. Send them to R by region with C-c C-r, or + ## one line at a time with C-c C-n. + + ## Save the revised myfile.R with C-x C-s. + + ## Save the entire *R* interaction buffer with C-c C-s. You + ## will be prompted for a file name. The recommended name is + ## myfile.Rout. With this suffix, the file will come up in ESS + ## Transcript mode the next time it is accessed from Emacs. + + + + 2: ## Program revision example (source code is real) + + ## Start R in a process buffer (this will be *R*) + M-x R + + ## Load the file you want to work with + C-x C-f myfile.R + + ## edit program, functions, and code in myfile.R, and send revised + ## functions to R when ready with + C-c C-f + ## or highlighted regions with + C-c C-r + ## or individual lines with + C-c C-n + ## or load the entire buffer with + C-c M-l + + ## save the revised myfile.R when you have finished + C-c C-s + + + +File: ess.info, Node: ESS for SAS, Next: ESS for BUGS, Prev: ESS for R, Up: Top + +13 ESS for SAS +************** + +* Menu: + +* ESS(SAS)--Design philosophy:: +* ESS(SAS)--Editing files:: +* ESS(SAS)--TAB key:: +* ESS(SAS)--Batch SAS processes:: +* ESS(SAS)--Function keys for batch processing:: +* iESS(SAS)--Interactive SAS processes:: +* iESS(SAS)--Common problems:: +* ESS(SAS)--Graphics:: +* ESS(SAS)--Windows:: +ESS[SAS] was designed for use with SAS. It is descended from emacs +macros developed by John Sall for editing SAS programs and 'SAS-mode' by +Tom Cook. Those editing features and new advanced features are part of +ESS[SAS]. The user interface of ESS[SAS] has similarities with ESS[S] +and the SAS Display Manager. + + +File: ess.info, Node: ESS(SAS)--Design philosophy, Next: ESS(SAS)--Editing files, Prev: ESS for SAS, Up: ESS for SAS + +13.1 ESS[SAS]-Design philosophy +=============================== + +ESS[SAS] was designed to aid the user in writing and maintaining SAS +programs, such as 'FOO.sas'. Both interactive and batch submission of +SAS programs is supported. + + ESS[SAS] was written with two primary goals. + 1. The emacs text editor provides a powerful and flexible development + environment for programming languages. These features are a boon + to all programmers and, with the help of ESS[SAS], to SAS users as + well. + 2. Although a departure from SAS Display Manager, ESS[SAS] provides + similar key definitions to give novice ESS[SAS] users a head start. + Also, inconvenient SAS Display Manager features, like remote + submission and syntax highlighting, are provided transparently; + appealing to advanced ESS[SAS] users. + + +File: ess.info, Node: ESS(SAS)--Editing files, Next: ESS(SAS)--TAB key, Prev: ESS(SAS)--Design philosophy, Up: ESS for SAS + +13.2 ESS[SAS]-Editing files +=========================== + +ESS[SAS] is the mode for editing SAS language files. This mode handles: + + * proper indenting, generated by both and . + * color and font choices based on syntax. + * ability to save and submit the file you are working on as a batch + SAS process with a single keypress and to continue editing while it + is runs in the background. + * capability of killing the batch SAS process through the '*shell*' + buffer or allow the SAS process to keep on running after you exit + emacs. + * single keypress navigation of '.sas', '.log' and '.lst' files + ('.log' and '.lst' files are refreshed with each keypress). + * ability to send the contents of an entire buffer, a highlighted + region, or a single line to an interactive SAS process. + * ability to switch between processes which would be the target of + the buffer (for the above). + + ESS[SAS] is automatically turned on when editing a file with a '.sas' +suffix (or other extension, if specified via 'auto-mode-alist'). The +function keys can be enabled to use the same function keys that the SAS +Display Manager does. The interactive capabilities of ESS require you +to start an inferior SAS process with 'M-x SAS' (*Note +iESS(SAS)--Interactive SAS processes::.) + + At this writing, the indenting and syntax highlighting are generally +correct. Known issues: for multiple line '*' or '%*' comments, only the +first line is highlighted; for '.log' files, only the first line of a +'NOTE:', 'WARNING:' or 'ERROR:' message is highlighted; unmatched +single/double quotes in 'CARDS' data lines are *NOT* ignored; in an +iterative 'DO' statement, 'TO' and 'BY' are not highlighted. + + +File: ess.info, Node: ESS(SAS)--TAB key, Next: ESS(SAS)--Batch SAS processes, Prev: ESS(SAS)--Editing files, Up: ESS for SAS + +13.3 ESS[SAS]- key +======================= + +Two options. The key is bound by default to 'sas-indent-line'. +This function is used to syntactically indent SAS code so 'PROC' and +'RUN' are in the left margin, other statements are indented +'sas-indent-width' spaces from the margin, continuation lines are +indented 'sas-indent-width' spaces in from the beginning column of that +statement. This is the type of functionality that emacs provides in +most programming language modes. This functionality is activated by +placing the following line in your initialization file prior to a +'require'/'load': + (setq ess-sas-edit-keys-toggle nil) + + ESS provides an alternate behavior for that makes it behave as +it does in SAS Display Manager, i.e. move the cursor to the next stop. +The alternate behavior also provides a "TAB" backwards, 'C-', that +moves the cursor to the stop to the left and deletes any characters +between them. This functionality is obtained by placing the following +line in your initialization file prior to a 'require'/'load': + (setq ess-sas-edit-keys-toggle t) + Under the alternate behavior, is bound to 'M-x tab-to-tab-stop' +and the stops are defined by 'ess-sas-tab-stop-list'. + + +File: ess.info, Node: ESS(SAS)--Batch SAS processes, Next: ESS(SAS)--Function keys for batch processing, Prev: ESS(SAS)--TAB key, Up: ESS for SAS + +13.4 ESS[SAS]-Batch SAS processes +================================= + +Submission of a SAS batch job is dependent on your environment. +'ess-sas-submit-method' is determined by your operating system and your +shell. It defaults to ''sh' unless you are running Windows or Mac +Classic. Under Windows, it will default to ''sh' if you are using a +UNIX-imitating shell; otherwise ''ms-dos' for an MS-DOS shell. On +macOS, it will default to ''sh', but under Mac Classic, it defaults to +''apple-script'. You will also set this to ''sh' if the SAS batch job +needs to run on a remote machine rather than your local machine. This +works transparently if you are editing the remote file via ange-ftp/EFS +or tramp. Note that 'ess-sas-shell-buffer-remote-init' is a Local +Variable that defaults to '"ssh"' which will be used to open the buffer +on the remote host and it is assumed that no password is necessary, i.e. +you are using 'ssh-agent'/'ssh-add' or the equivalent (see the +discussion about Local Variables below if you need to change the +default). + + However, if you are editing the file locally and transferring it back +and forth with Kermit, you need some additional steps. First, start +Kermit locally before remotely logging in. Open a local copy of the +file with the 'ess-kermit-prefix' character prepended (the default is +'"#"'). Execute the command 'M-x ess-kermit-get' which automatically +brings the contents of the remote file into your local copy. If you +transfer files with Kermit manually in a '*shell*' buffer, then note +that the Kermit escape sequence is 'C-q C-\ c' rather than 'C-\ c' which +it would be in an ordinary terminal application, i.e. not in an emacs +buffer. Lastly, note that the remote Kermit command is specified by +'ess-kermit-command'. + + The command used by the 'SUBMIT' function key ( or ) to +submit a batch SAS job, whether local or remote, is +'ess-sas-submit-command' which defaults to 'sas-program'. 'sas-program' +is '"invoke SAS using program file"' for Mac Classic and '"sas"' +otherwise. However, you may have to alter 'ess-sas-submit-command' for +a particular program, so it is defined as buffer-local. Conveniently, +it can be set at the end of the program: + endsas; + Local variables: + ess-sas-submit-command: "sas8" + End: + + The command line is also made of 'ess-sas-submit-pre-command', +'ess-sas-submit-post-command' and 'ess-sas-submit-command-options' (the +last of which is also buffer-local). Here are some examples for your +'~/.emacs' or '~/.xemacs/init.el' file (you may also use +'M-x customize-variable'): + ;'sh default + (setq ess-sas-submit-pre-command "nohup") + ;'sh default + (setq ess-sas-submit-post-command "-rsasuser &") + ;'sh example + (setq-default ess-sas-submit-command "/usr/local/sas/sas") + ;'ms-dos default + (setq ess-sas-submit-pre-command "start") + ;'ms-dos default + (setq ess-sas-submit-post-command "-rsasuser -icon") + ;Windows example + (setq-default ess-sas-submit-command "c:/progra~1/sas/sas.exe") + ;Windows example + (setq-default ess-sas-submit-command "c:\\progra~1\\sas\\sas.exe") + + There is a built-in delay before a batch SAS job is submitted when +using a UNIX-imitating shell under Windows. This is necessary in many +cases since the shell might not be ready to receive a command. This +delay is currently set high enough so as not to be a problem. But, +there may be cases when it needs to be set higher, or could be set much +lower to speed things up. You can over-ride the default in your +'~/.emacs' or '~/.xemacs/init.el' file by: + (setq ess-sleep-for 0.2) + + For example, '(setq ess-sas-global-unix-keys t)' keys shown, '(setq +ess-sas-global-pc-keys t)' in parentheses; ESS[SAS] function keys are +presented in the next section. Open the file you want to work with +'C-x C-f foo.sas'. 'FOO.sas' will be in ESS[SAS] mode. Edit as +appropriate, then save and submit the batch SAS job. + () + The job runs in the '*shell*' buffer while you continue to edit +'FOO.sas'. If 'ess-sas-submit-method' is ''sh', then the message buffer +will display the shell notification when the job is complete. The ''sh' +setting also allows you to terminate the SAS batch job before it is +finished. + () + Terminating a SAS batch in the '*shell*' buffer. + kill PID + You may want to visit the '.log' (whether the job is still running or +it is finished) and check for error messages. The '.log' will be +refreshed and you will be placed in it's buffer. You will be taken to +the first error message, if any. + () + Goto the next error message, if any. + () + Now, 'refresh' the '.lst' and go to it's buffer. + () + If you wish to make changes, go to the '.sas' file with. + () + Make your editing changes and submit again. + () + + +File: ess.info, Node: ESS(SAS)--Function keys for batch processing, Next: iESS(SAS)--Interactive SAS processes, Prev: ESS(SAS)--Batch SAS processes, Up: ESS for SAS + +13.5 ESS[SAS]-Function keys for batch processing +================================================ + +The setup of function keys for SAS batch processing is unavoidably +complex, but the usage of function keys is simple. There are five +distinct options: + + Option 1 (default). Function keys in ESS[SAS] are not bound to elisp +commands. This is in accordance with the GNU Elisp Coding Standards +(GECS) which do not allow function keys to be bound so that they are +available to the user. + + Options 2-5. Since GECS does not allow function keys to be bound by +modes, these keys are often unused. So, ESS[SAS] provides users with +the option of binding elisp commands to these keys. Users who are +familiar with SAS will, most likely, want to duplicate the function key +capabilities of the SAS Display Manager. There are four options (noted +in parentheses). + + a. SAS Display Manager has different function key definitions for UNIX + (2, 4) and Windows (3, 5); ESS[SAS] can use either. + b. The ESS[SAS] function key definitions can be active in all buffers + (global: 4, 5) or limited (local: 2, 3) only to buffers with files + that are associated with ESS[SAS] as specified in your + 'auto-mode-alist'. + + The distinction between local and global is subtle. If you want the +ESS[SAS] definitions to work when you are in the '*shell*' buffer or +when editing files other than the file extensions that ESS[SAS] +recognizes, you will most likely want to use the global definitions. If +you want your function keys to understand SAS batch commands when you +are editing SAS files, and to behave normally when editing other files, +then you will choose the local definitions. The option can be chosen by +the person installing ESS for a site or by an individual. + + a. For a site installation or an individual, place *ONLY ONE* of the + following lines in your initialization file prior to a + 'require'/'load'. ESS[SAS] function keys are available in ESS[SAS] + if you choose either 2 or 3 and in all modes if you choose 4 or 5: + ;;2; (setq ess-sas-local-unix-keys t) + ;;3; (setq ess-sas-local-pc-keys t) + ;;4; (setq ess-sas-global-unix-keys t) + ;;5; (setq ess-sas-global-pc-keys t) + + The names '-unix-' and '-pc-' have nothing to do with the operating + system that you are running. Rather, they mimic the definitions + that the SAS Display Manager uses by default on those platforms. + + b. If your site installation has configured the keys contrary to your + liking, then you must call the appropriate function. + (load "ess-site") ;; local-unix-keys + (ess-sas-global-pc-keys) + + Finally, we get to what the function keys actually do. You may +recognize some of the nicknames as SAS Display Manager commands (they +are in all capitals). + +UNIX PC Nickname + 'refresh' + revert the current buffer with the file of the same name if the file is + newer than the buffer + 'SUBMIT' + save the current '.sas' file (which is either the '.sas' file in the + current buffer or the '.sas' file associated with the '.lst' or '.log' + file in the current buffer) and submit the file as a batch SAS job + 'PROGRAM' + switch buffer to '.sas' file + 'LOG' + switch buffer to '.log' file, 'refresh' and goto next error message, if + any + 'OUTPUT' + switch buffer to '.lst' file and 'refresh' + 'filetype-1' + switch buffer to 'filetype-1' (defaults to '.txt') file and 'refresh' + 'shell' + switch buffer to '*shell*' + 'VIEWTABLE' + open an interactive 'PROC FSEDIT' session on the SAS dataset near point + toggle-log + toggle ESS[SAS] for '.log' files; useful for certain debugging situations + 'filetype-2' + switch buffer to 'filetype-2' (defaults to '.dat') file and 'refresh' + viewgraph + open a 'GSASFILE' near point for viewing either in emacs or with an + external viewer +'C-' 'C-' rtf-portrait + create an MS RTF portrait file from the current buffer with a file + extension of '.rtf' +'C-' 'C-' rtf-landscape + create an MS RTF landscape file from the current buffer with a file + extension of '.rtf' +'C-' 'C-' submit-region + write region to 'ess-temp.sas' and submit +'C-' 'C-' append-to-log + append 'ess-temp.log' to the current '.log' file +'C-' 'C-' append-to-output + append 'ess-temp.lst' to the current '.lst' file +'C-' 'C-' 'INSIGHT' + open an interactive 'PROC INSIGHT' session on the SAS dataset near point +'C-''C-'toggle-listing + toggle ESS[SAS] for '.lst' files; useful for toggling read-only + + 'SUBMIT', 'PROGRAM', 'LOG' and 'OUTPUT' need no further explanation +since they mimic the SAS Display Manager commands and related function +key definitions. However, six other keys have been provided for +convenience and are described below. + + 'shell' switches you to the '*shell*' buffer where you can interact +with your operating system. This is especially helpful if you would +like to kill a SAS batch job. You can specify a different buffer name +to associate with a SAS batch job (besides '*shell*') with the +buffer-local variable 'ess-sas-shell-buffer'. This allows you to have +multiple buffers running SAS batch jobs on multiple local/remote +computers that may rely on different methods specified by the +buffer-local variable 'ess-sas-submit-method'. + + performs the 'refresh' operation on the current buffer. +'refresh' compares the buffer's last modified date/time with the file's +last modified date/time and replaces the buffer with the file if the +file is newer. This is the same operation that is automatically +performed when 'LOG', 'OUTPUT', 'filetype-1' or are pressed. + + 'filetype-1' switches you to a file with the same file name as your +'.sas' file, but with a different extension ('.txt' by default) and +performs 'refresh'. You can over-ride the default extension; for +example in your '~/.emacs' or '~/.xemacs/init.el' file: + (setq ess-sas-suffix-1 "csv") ; for example + + will prompt you for the name of a permanent SAS dataset near +point to be opened for viewing by 'PROC FSEDIT'. You can control the +SAS batch command-line with 'ess-sas-data-view-submit-options'. For +controlling the SAS batch commands, you have the global variables +'ess-sas-data-view-libname' and 'ess-sas-data-view-fsview-command' as +well as the buffer-local variable 'ess-sas-data-view-fsview-statement'. +If you have your SAS 'LIBNAME' defined in '~/autoexec.sas', then the +defaults for these variables should be sufficient. + + Similarly, 'C-' will prompt you for the name of a permanent SAS +dataset near point to be opened for viewing by 'PROC INSIGHT'. You can +control the SAS batch command-line with +'ess-sas-data-view-submit-options'. For controlling the SAS batch +commands, you have the global variables 'ess-sas-data-view-libname' and +'ess-sas-data-view-insight-command' as well as the buffer-local variable +'ess-sas-data-view-insight-statement'. + + toggles ESS[SAS] mode for '.log' files which is off by default +(technically, it is 'SAS-log-mode', but it looks the same). The syntax +highlighting can be helpful in certain debugging situations, but large +'.log' files may take a long time to highlight. + + is the same as 'filetype-1' except it is '.dat' by default. + + will prompt you for the name of a 'GSASFILE' near the point in +'.log' to be opened for viewing either with emacs or with an external +viewer. Depending on your version of emacs and the operating system you +are using, emacs may support '.gif' and '.jpg' files internally. You +may need to change the following variables for your own situation. +'ess-sas-graph-view-suffix-regexp' is a regular expression of supported +file types defined via file name extensions. +'ess-sas-graph-view-viewer-default' is the default external viewer for +your platform. 'ess-sas-graph-view-viewer-alist' is an alist of +exceptions to the default; i.e. file types and their associated viewers +which will be used rather than the default viewer. + (setq ess-sas-graph-view-suffix-regexp (concat "[.]\\([eE]?[pP][sS]\\|" + "[pP][dD][fF]\\|[gG][iI][fF]\\|[jJ][pP][eE]?[gG]\\|" + "[tT][iI][fF][fF]?\\)")) ;; default + (setq ess-sas-graph-view-viewer-default "kodakimg") ;; Windows default + (setq ess-sas-graph-view-viewer-default "sdtimage") ;; Solaris default + (setq ess-sas-graph-view-viewer-alist + '(("[eE]?[pP][sS]" . "gv") ("[pP][dD][fF]" . "gv")) ;; default w/ gv + + 'C-' produces US landscape by default, however, it can produce A4 +landscape (first line for "global" key mapping, second for "local"): + (global-set-key [(control f2)] 'ess-sas-rtf-a4-landscape) + (define-key sas-mode-local-map [(control f2)] 'ess-sas-rtf-a4-landscape) + + +File: ess.info, Node: iESS(SAS)--Interactive SAS processes, Next: iESS(SAS)--Common problems, Prev: ESS(SAS)--Function keys for batch processing, Up: ESS for SAS + +13.6 iESS[SAS]-Interactive SAS processes +======================================== + +Inferior ESS (iESS) is the method for interfacing with interactive +statistical processes (programs). iESS[SAS] is what is needed for +interactive SAS programming. iESS[SAS] works best with the SAS +command-line option settings '"-stdio -linesize 80 -noovp +-nosyntaxcheck"' (the default of 'inferior-SAS-args'). + + '-stdio' + required to make the redirection of stdio work + '-linesize 80' + keeps output lines from folding on standard terminals + '-noovp' + prevents error messages from printing 3 times + '-nosyntaxcheck' + permits recovery after syntax errors + + To start up iESS[SAS] mode, use: + M-x SAS + + The '*SAS:1.log*' buffer in 'ESStr' mode corresponds to the file +'FOO.log' in SAS batch usage and to the 'SAS: LOG' window in the SAS +Display Manager. All commands submitted to SAS, informative messages, +warnings, and errors appear here. + + The '*SAS:1.lst*' buffer in 'ESSlst' mode corresponds to the file +'FOO.lst' in SAS batch usage and to the 'SAS: OUTPUT' window in the SAS +Display Manager. All printed output appears in this window. + + The '*SAS:1*' buffer exists solely as a communications buffer. The +user should never use this buffer directly. Files are edited in the +'FOO.sas' buffer. The 'C-c C-r' key in ESS[SAS] is the functional +equivalent of bringing a file into the 'SAS: PROGRAM EDITOR' window +followed by 'SUBMIT'. + + For example, open the file you want to work with. + C-x C-f foo.sas + 'FOO.sas' will be in ESS[SAS] mode. Edit as appropriate, and then +start up SAS with the cursor in the 'FOO.sas' buffer. + M-x SAS + Four buffers will appear on screen: +Buffer Mode Description +'FOO.sas' 'ESS[SAS]' your source file +'*SAS:1*' 'iESS[SAS:1]' iESS communication buffer +'*SAS:1.log*' 'Shell ESStr SAS log information + []' +'*SAS:1.lst*' 'Shell ESSlst SAS listing information + []' + If you would prefer each of the four buffers to appear in its own +individual frame, you can arrange for that. Place the cursor in the +buffer displaying 'FOO.sas'. Enter the sequence 'C-c C-w'. The cursor +will normally be in buffer 'FOO.sas'. If not, put it there and +'C-x b FOO.sas'. + + Send regions, lines, or the entire file contents to SAS (regions are +most useful: a highlighted region will normally begin with the keywords +'DATA' or 'PROC' and end with 'RUN;'), 'C-c C-r'. + + Information appears in the log buffer, analysis results in the +listing buffer. In case of errors, make the corrections in the +'FOO.sas' buffer and resubmit with another 'C-c C-r'. + + At the end of the session you may save the log and listing buffers +with the usual 'C-x C-s' commands. You will be prompted for a file +name. Typically, the names 'FOO.log' and 'FOO.lst' will be used. You +will almost certainly want to edit the saved files before including them +in a report. The files are read-only by default. You can make them +writable by the emacs command 'C-x C-q'. + + At the end of the session, the input file 'FOO.sas' will typically +have been revised. You can save it. It can be used later as the +beginning of another iESS[SAS] session. It can also be used as a batch +input file to SAS. + + The '*SAS:1*' buffer is strictly for ESS use. The user should never +need to read it or write to it. Refer to the '.lst' and '.log' buffers +for monitoring output! + + Troubleshooting: *Note iESS(SAS)--Common problems::. + + +File: ess.info, Node: iESS(SAS)--Common problems, Next: ESS(SAS)--Graphics, Prev: iESS(SAS)--Interactive SAS processes, Up: ESS for SAS + +13.7 iESS[SAS]-Common problems +============================== + + 1. iESS[SAS] does not work on Windows. In order to run SAS inside an + emacs buffer, it is necessary to start SAS with the '-stdio' + option. SAS does not support the '-stdio' option on Windows. + 2. If 'M-x SAS' gives errors upon startup, check the following: + * you are running Windows: see 1. + * 'ess-sas-sh-command' (from the ESS 'etc' directory) needs to + be executable; too check, type 'M-x dired'; if not, fix it as + follows, type 'M-:', then at the minibuffer prompt 'Eval:', + type '(set-file-modes "ess-sas-sh-command" 493)'. + * 'sas' isn't in your executable path; to verify, type 'M-:' and + at the minibuffer prompt 'Eval:', type '(executable-find + "sas")' + 3. 'M-x SAS' starts SAS Display Manager. Probably, the command 'sas' + on your system calls a shell script. In that case you will need to + locate the real 'sas' executable and link to it. You can execute + the UNIX command: + find / -name sas -print + Now place a soft link to the real 'sas' executable in your '~/bin' + directory, with for example + cd ~/bin + ln -s /usr/local/sas9/sas sas + Check your 'PATH' environment variable to confirm that '~/bin' +appears before the directory in which the 'sas' shell script appears. + + +File: ess.info, Node: ESS(SAS)--Graphics, Next: ESS(SAS)--Windows, Prev: iESS(SAS)--Common problems, Up: ESS for SAS + +13.8 ESS[SAS]-Graphics +====================== + +Output from a SAS/GRAPH 'PROC' can be displayed in a SAS/GRAPH window +for SAS batch on Windows or for both SAS batch and interactive with +XWindows on UNIX. If you need to create graphics files and view them +with , then include the following (either in 'FOO.sas' or in +'~/autoexec.sas'): + filename gsasfile 'graphics.ps'; + goptions device=ps gsfname=gsasfile gsfmode=append; + 'PROC PLOT' graphs can be viewed in the listing buffer. You may wish +to control the vertical spacing to allow the entire plot to be visible +on screen, for example: + proc plot; + plot a*b / vpos=25; + run; + + +File: ess.info, Node: ESS(SAS)--Windows, Prev: ESS(SAS)--Graphics, Up: ESS for SAS + +13.9 ESS[SAS]-Windows +===================== + + * iESS[SAS] does not work on Windows. *Note iESS(SAS)--Common + problems::. + + * ESS[SAS] mode for editing SAS language files works very well. + *Note ESS(SAS)--Editing files::. + + * There are two execution options for SAS on Windows. You can use + batch. *Note ESS(SAS)--Batch SAS processes::. + + Or you can mark regions with the mouse and submit the code with + 'submit-region' or paste them into SAS Display Manager. + + +File: ess.info, Node: ESS for BUGS, Next: ESS for JAGS, Prev: ESS for SAS, Up: Top + +14 ESS for BUGS +*************** + +ESS[BUGS] provides 5 features. First, BUGS syntax is described to allow +for proper fontification of statements, distributions, functions, +commands and comments in BUGS model files, command files and log files. +Second, ESS creates templates for the command file from the model file +so that a BUGS batch process can be defined by a single file. Third, +ESS provides a BUGS batch script that allows ESS to set BUGS batch +parameters. Fourth, key sequences are defined to create a command file +and submit a BUGS batch process. Lastly, interactive submission of BUGS +commands is also supported. + +14.1 ESS[BUGS]-Model files +========================== + +Model files with the '.bug' extension are edited in ESS[BUGS] mode. +Three keys are bound for your use in ESS[BUGS], 'F2', 'C-c C-c' and '='. +'F2' performs the same action as it does in ESS[SAS], *Note +ESS(SAS)--Function keys for batch processing::. 'C-c C-c' performs the +function 'ess-bugs-next-action' which you will use a lot. Pressing it +in an empty buffer for a model file will produce a template for you. +'=' inserts the set operator, '<-'. + +14.2 ESS[BUGS]-Command files +============================ + +Files ending in '.bmd' are used for BUGS command files. When you have +finished editing your model file and press 'C-c C-c', a command file is +created if one does not already exist. When you are finished editing +your command file, pressing 'C-c C-c' again will submit your command +file as a batch job. + +14.3 ESS[BUGS]-Log files +======================== + +The '.bog' extension is used for BUGS log files. The command line +generated by ESS creates the '.bog' transcript file. + + +File: ess.info, Node: ESS for JAGS, Next: Mailing lists/bug reports, Prev: ESS for BUGS, Up: Top + +15 ESS for JAGS +*************** + +ESS[JAGS] provides 4 features. First, JAGS syntax is described to allow +for proper fontification of statements, distributions, functions, +commands and comments in JAGS model files, command files and log files. +Second, ESS creates templates for the command file from the model file +so that a JAGS batch process can be defined by a single file. Third, +ESS provides a JAGS batch script that allows ESS to set JAGS batch +parameters. Fourth, key sequences are defined to create a command file +and submit a JAGS batch process. + +15.1 ESS[JAGS]-Model files +========================== + +Files with the '.jag' extension are edited in ESS[JAGS] mode. Three +keys are bound for your use in ESS[JAGS], 'F2', 'C-c C-c' and '='. 'F2' +performs the same action as it does in ESS[SAS], *Note +ESS(SAS)--Function keys for batch processing::. 'C-c C-c' performs the +function 'ess-bugs-next-action' which you will use a lot. Pressing it +in an empty buffer for a model file will produce a template for you. +'=' inserts the set operator, '<-'. + + The first press of 'C-c C-c' will set up a template, including some +necessary file-local variables in an empty buffer. These variables are +'ess-jags-chains', 'ess-jags-monitor', 'ess-jags-thin', +'ess-jags-burnin' and 'ess-jags-update'; they appear in the 'Local +Variables' section. When you are finished editing your model file, +pressing 'C-c C-c' will perform the necessary actions to build your +command file for you. + + The 'ess-jags-chains' variable is the number of chains that you want +to initialize and sample from; defaults to 1. The 'ess-jags-monitor' +variable is a list of variables that you want monitored: encase each +variable in double quotes. When you press 'C-c C-c', the appropriate +statements are created in the command file to monitor the list of +variables. By default, no variables are explicitly monitored which +means JAGS will implicitly monitor all "default" variables. The +'ess-jags-thin' variable is the thinning parameter. By default, the +thinning parameter is set to 1, i.e. no thinning. The +'ess-jags-burnin' variable is the number of initial samples to discard. +By default, the burnin parameter is set to 10000. The 'ess-jags-update' +variable is the number of post-burnin samples to keep. By default, the +update parameter is set to 10000. Both 'ess-jags-burnin' and +'ess-jags-update' are multiplied by 'ess-jags-thin' since JAGS does not +do it automatically. + +15.2 ESS[JAGS]-Command files +============================ + +Files ending in '.jmd' are for JAGS command files. For your '.jmd' +file, there is only one variable, 'ess-jags-command', in the 'Local +Variables' section. When you have finished editing your model file and +press 'C-c C-c', a command file is created if one does not already +exist. When you are finished editing your command file, pressing 'C-c +C-c' again will submit your command file as a batch job. The +'ess-jags-command' variable allows you to specify a different JAGS +program to use to run your model; defaults to "jags". + +15.3 ESS[JAGS]-Log files +======================== + +The '.jog' extension is used for JAGS log files. You may find 'F2' +useful to refresh the '.jog' if the batch process over-writes or appends +it. + + +File: ess.info, Node: Mailing lists/bug reports, Next: Customization, Prev: ESS for JAGS, Up: Top + +16 Bugs and Bug Reporting, Mailing Lists +**************************************** + +* Menu: + +* Bugs:: +* Reporting Bugs:: +* Mailing Lists:: +* Help with Emacs:: + + +File: ess.info, Node: Bugs, Next: Reporting Bugs, Up: Mailing lists/bug reports + +16.1 Bugs +========= + + * Commands like 'ess-display-help-on-object' and list completion + cannot be used while the user is entering a multi-line command. + The only real fix in this situation is to use another ESS process. + + * The 'ess-eval-' commands can leave point in the ESS process buffer + in the wrong place when point is at the same position as the last + process output. This proves difficult to fix, in general, as we + need to consider all _windows_ with 'window-point' at the right + place. + + * It's possible to clear the modification flag (say, by saving the + buffer) with the edit buffer not having been loaded into S. + + * Backup files can sometimes be left behind, even when + 'ess-keep-dump-files' is 'nil'. + + * Passing an incomplete S expression to 'ess-execute' causes ESS to + hang. + + * The function-based commands don't always work as expected on + functions whose body is not a parenthesized or compound expression, + and don't even recognize anonymous functions (i.e. functions not + assigned to any variable). + + * Multi-line commands could be handled better by the command history + mechanism. + + * Changes to the continutation prompt in R (e.g. 'options(continue = + " ")') are not automatically detected by ESS. Hence, for now, the + best thing is not to change the continuation prompt. If you do + change the continuation prompt, you will need to change accordingly + the value of 'inferior-ess-secondary-prompt' in + 'R-customize-alist'. + + +File: ess.info, Node: Reporting Bugs, Next: Mailing Lists, Prev: Bugs, Up: Mailing lists/bug reports + +16.2 Reporting Bugs +=================== + +Please send bug reports, suggestions etc. to , +or post them on our github issue tracker +(https://github.com/emacs-ess/ESS/issues) + + The easiest way to do this is within Emacs by typing + + 'M-x ess-submit-bug-report' + + This also gives the maintainers valuable information about your +installation which may help us to identify or even fix the bug. + + If Emacs reports an error, backtraces can help us debug the problem. +Type "M-x set-variable RET debug-on-error RET t RET". Then run the +command that causes the error and you should see a *Backtrace* buffer +containing debug information; send us that buffer. + + Note that comments, suggestions, words of praise and large cash +donations are also more than welcome. + + +File: ess.info, Node: Mailing Lists, Next: Help with Emacs, Prev: Reporting Bugs, Up: Mailing lists/bug reports + +16.3 Mailing Lists +================== + +There is a mailing list for discussions and announcements relating to +ESS. Join the list by sending an e-mail with "subscribe ess-help" (or +"help") in the body to ; contributions +to the list may be mailed to . Rest assured, +this is a fairly low-volume mailing list. + + The purposes of the mailing list include + + * helping users of ESS to get along with it. + * discussing aspects of using ESS on Emacs and XEmacs. + * suggestions for improvements. + * announcements of new releases of ESS. + * posting small patches to ESS. + + +File: ess.info, Node: Help with Emacs, Prev: Mailing Lists, Up: Mailing lists/bug reports + +16.4 Help with Emacs +==================== + +Emacs is a complex editor with many abilities that we do not have space +to describe here. If you have problems with other features of Emacs +(e.g. printing), there are several sources to consult, including the +Emacs FAQs (try 'M-x view-emacs-faq') and EmacsWiki +(). Please consult them before asking on the +mailing list about issues that are not specific to ESS. + + +File: ess.info, Node: Customization, Next: Indices, Prev: Mailing lists/bug reports, Up: Top + +Appendix A Customizing ESS +************************** + +ESS can be easily customized to your taste simply by including the +appropriate lines in your Emacs configuration file. There are numerous +variables which affect the behavior of ESS in certain situations which +can be modified to your liking. Keybindings may be set or changed to +your preferences, and for per-buffer customizations hooks are also +available. + + Most of these variables can be viewed and set using the Custom +facility within Emacs. Type 'M-x customize-group RET ess RET' to see +all the ESS variables that can be customized. Variables are grouped by +subject to make it easy to find related variables. + + +File: ess.info, Node: Indices, Prev: Customization, Up: Top + +Indices +******* + +* Menu: + +* Key index:: +* Function and program index:: +* Variable index:: +* Concept index:: + + +File: ess.info, Node: Key index, Next: Function and program index, Up: Indices + +Key index +========= + +[index] +* Menu: + +* ,: Handy commands. (line 6) +* {: Indenting. (line 57) +* }: Indenting. (line 57) +* C-c C-. a: Rutils. (line 31) +* C-c C-. d: Rutils. (line 46) +* C-c C-. H: Rutils. (line 49) +* C-c C-. l: Rutils. (line 20) +* C-c C-. m: Rutils. (line 34) +* C-c C-. o: Rutils. (line 37) +* C-c C-. r: Rutils. (line 23) +* C-c C-. s: Rutils. (line 43) +* C-c C-. u: Rutils. (line 27) +* C-c C-. w: Rutils. (line 40) +* C-c C-b: Evaluating code. (line 66) +* C-c C-c: Other. (line 9) +* C-c C-c <1>: Evaluating code. (line 39) +* C-c C-e C-d: Edit buffer. (line 9) +* C-c C-e C-s: Styles. (line 15) +* C-c C-e s: Styles. (line 15) +* C-c C-f: Evaluating code. (line 52) +* C-c C-j: Evaluating code. (line 45) +* C-c C-o C-c: Roxygen. (line 45) +* C-c C-o C-h: Roxygen. (line 72) +* C-c C-o C-o: Roxygen. (line 37) +* C-c C-o C-r: Roxygen. (line 51) +* C-c C-o C-t: Roxygen. (line 59) +* C-c C-o n: Roxygen. (line 69) +* C-c C-o p: Roxygen. (line 66) +* C-c C-q: Hot keys. (line 71) +* C-C C-r: Evaluating code. (line 59) +* C-c C-s: Hot keys. (line 34) +* C-c C-t C-s: Namespaced Evaluation. + (line 36) +* C-c C-v: Hot keys. (line 66) +* C-c C-w: Clean. (line 11) +* C-c C-x: Hot keys. (line 24) +* C-c C-z: Other. (line 13) +* C-c M-b: Evaluating code. (line 69) +* C-c M-f: Evaluating code. (line 55) +* C-c M-j: Evaluating code. (line 48) +* C-c M-l: Hot keys. (line 50) +* C-c M-r: Evaluating code. (line 62) +* C-c RET: Resubmit. (line 14) +* C-c `: Error Checking. (line 9) +* C-j: Indenting. (line 64) +* C-M-a: Other edit buffer commands. + (line 10) +* C-M-e: Other edit buffer commands. + (line 14) +* C-M-h: Other edit buffer commands. + (line 18) +* C-M-q: Indenting. (line 53) +* C-M-x: Evaluating code. (line 36) +* C-RET: Evaluating code. (line 32) +* ESC C-a: Other edit buffer commands. + (line 10) +* ESC C-e: Other edit buffer commands. + (line 14) +* ESC C-h: Other edit buffer commands. + (line 18) +* ESC C-q: Indenting. (line 53) +* M-;: Indenting. (line 69) +* M-?: Object names. (line 34) +* M-C-q: Indenting. (line 53) +* M-n l: Sweave and AUCTeX. (line 24) +* M-n P: Sweave and AUCTeX. (line 30) +* M-n s: Sweave and AUCTeX. (line 20) +* M-RET: Resubmit. (line 10) +* RET: Command-line editing. (line 10) +* RET <1>: Resubmit. (line 18) +* TAB: Indenting. (line 35) + + +File: ess.info, Node: Function and program index, Next: Variable index, Prev: Key index, Up: Indices + +Function and program index +========================== + +[index] +* Menu: + +* backward-kill-word: Command-line editing. + (line 22) +* comint-backward-matching-input: Process buffer motion. + (line 31) +* comint-bol: Command-line editing. + (line 31) +* comint-copy-old-input: Transcript resubmit. (line 16) +* comint-delete-output: Last command. (line 24) +* comint-dynamic-complete: Object names. (line 13) +* comint-forward-matching-input: Process buffer motion. + (line 32) +* comint-history-isearch-backward-regexp: Command History. (line 32) +* comint-interrupt-subjob: Other. (line 8) +* comint-kill-input: Command-line editing. + (line 26) +* comint-next-input: Command History. (line 18) +* comint-next-matching-input-from-input: Command History. (line 45) +* comint-next-prompt: Process buffer motion. + (line 15) +* comint-previous-input: Command History. (line 14) +* comint-previous-matching-input-from-input: Command History. (line 41) +* comint-previous-prompt: Process buffer motion. + (line 11) +* comint-show-output: Last command. (line 20) +* dump(): Edit buffer. (line 35) +* ess-change-directory: Rutils. (line 45) +* ess-cleanup: Hot keys. (line 71) +* ess-cleanup <1>: Help. (line 163) +* ess-describe-help-mode: Help. (line 21) +* ess-display-help-on-object: Hot keys. (line 65) +* ess-display-help-on-object <1>: Help. (line 8) +* ess-display-help-on-object <2>: Help. (line 25) +* ess-dump-object-into-edit-buffer: Edit buffer. (line 8) +* ess-electric-brace: Indenting. (line 56) +* ess-eval-buffer: Evaluating code. (line 65) +* ess-eval-buffer-and-go: Evaluating code. (line 68) +* ess-eval-function: Evaluating code. (line 51) +* ess-eval-function-and-go: Evaluating code. (line 54) +* ess-eval-line: Evaluating code. (line 44) +* ess-eval-line-and-go: Evaluating code. (line 47) +* ess-eval-line-and-step: Help. (line 106) +* ess-eval-region: Evaluating code. (line 58) +* ess-eval-region <1>: Help. (line 111) +* ess-eval-region-and-go: Evaluating code. (line 61) +* ess-eval-region-or-function-or-paragraph: Evaluating code. (line 35) +* ess-eval-region-or-function-or-paragraph-and-step: Evaluating code. + (line 38) +* ess-eval-region-or-line-and-step: Evaluating code. (line 31) +* ess-execute-objects: Hot keys. (line 23) +* ess-execute-search: Hot keys. (line 33) +* ess-goto-beginning-of-function-or-para: Other edit buffer commands. + (line 9) +* ess-goto-end-of-function-or-para: Other edit buffer commands. + (line 13) +* ess-handy-commands: Handy commands. (line 6) +* ess-handy-commands <1>: Handy commands. (line 6) +* ess-indent-command: Roxygen. (line 90) +* ess-indent-exp: Indenting. (line 52) +* ess-indent-or-complete: Indenting. (line 34) +* ess-list-object-completions: Object names. (line 33) +* ess-load-file: Hot keys. (line 49) +* ess-load-file <1>: Loading. (line 11) +* ess-mark-function: Other edit buffer commands. + (line 17) +* ess-parse-errors: Hot keys. (line 54) +* ess-parse-errors <1>: Error Checking. (line 9) +* ess-quit: Hot keys. (line 70) +* ess-quit <1>: Help. (line 163) +* ess-R-complete-object-name: Roxygen. (line 80) +* ess-r-set-evaluation-env: Namespaced Evaluation. + (line 35) +* ess-remote: ESS processes on Remote Computers. + (line 9) +* ess-request-a-process: Multiple ESS processes. + (line 18) +* ess-resynch: Object names. (line 53) +* ess-roxy-hide-all: Roxygen. (line 71) +* ess-roxy-move-beginning-of-line: Roxygen. (line 97) +* ess-roxy-next-entry: Roxygen. (line 68) +* ess-roxy-preview-HTML: Roxygen. (line 58) +* ess-roxy-preview-Rd: Roxygen. (line 50) +* ess-roxy-previous-entry: Roxygen. (line 65) +* ess-roxy-toggle-roxy-region: Roxygen. (line 44) +* ess-roxy-update-entry: Roxygen. (line 36) +* ess-rutils-apropos: Rutils. (line 30) +* ess-rutils-html-docs: Rutils. (line 48) +* ess-rutils-load-wkspc: Rutils. (line 39) +* ess-rutils-local-pkgs: Rutils. (line 19) +* ess-rutils-objs: Rutils. (line 36) +* ess-rutils-repos-pkgs: Rutils. (line 22) +* ess-rutils-rm-all: Rutils. (line 33) +* ess-rutils-rsitesearch: Rutils. (line 58) +* ess-rutils-save-wkspc: Rutils. (line 42) +* ess-rutils-update-pkgs: Rutils. (line 26) +* ess-set-style: Styles. (line 14) +* ess-skip-to-help-section: Help. (line 55) +* ess-skip-to-next-section: Help. (line 46) +* ess-skip-to-previous-section: Help. (line 46) +* ess-smart-comma: Handy commands. (line 6) +* ess-submit-bug-report: Reporting Bugs. (line 6) +* ess-switch-to-end-of-ESS: Help. (line 117) +* ess-switch-to-inferior-or-script-buffer: Other. (line 12) +* ess-swv-latex: Sweave and AUCTeX. (line 23) +* ess-swv-PDF: Sweave and AUCTeX. (line 29) +* ess-swv-PS: Sweave and AUCTeX. (line 26) +* ess-swv-weave: Sweave and AUCTeX. (line 19) +* ess-tracebug: ESS tracebug. (line 6) +* ess-transcript-clean-region: Clean. (line 10) +* ess-transcript-copy-command: Resubmit. (line 13) +* ess-transcript-send-command: Resubmit. (line 9) +* ess-transcript-send-command-and-move: Resubmit. (line 17) +* ess-use-ido, ess-completing-read: Minibuffer completion. + (line 6) +* fill-paragraph: Roxygen. (line 94) +* getting started with tracebug: Getting started with tracebug. + (line 6) +* inferior-ess-send-input: Command-line editing. + (line 9) +* mark-paragraph: Roxygen. (line 85) +* newline-and-indent: Roxygen. (line 102) +* objects(): Hot keys. (line 24) +* printer(): printer. (line 11) +* q(): Hot keys. (line 71) +* R: Starting up. (line 11) +* S: Starting up. (line 11) +* search(): Hot keys. (line 34) +* search() <1>: Object names. (line 20) +* source(): Evaluating code. (line 18) +* source() <1>: Loading. (line 11) +* STERM: Statistical Process running in ESS?. + (line 6) + + +File: ess.info, Node: Variable index, Next: Concept index, Prev: Function and program index, Up: Indices + +Variable index +============== + +[index] +* Menu: + +* ac-source-R: Auto-complete. (line 6) +* ac-source-R-args: Auto-complete. (line 6) +* ac-source-R-objects: Auto-complete. (line 6) +* comint-delimiter-argument-list: History expansion. (line 28) +* comint-input-ring-size: Command History. (line 9) +* comment-column: Indenting. (line 24) +* ess-ask-about-transfile: Customizing startup. (line 36) +* ess-ask-about-transfile <1>: Saving transcripts. (line 12) +* ess-ask-for-ess-directory: Customizing startup. (line 7) +* ess-ask-for-ess-directory <1>: Customizing startup. (line 21) +* ess-auto-width: Customizing startup. (line 56) +* ess-auto-width-visible: Customizing startup. (line 56) +* ess-delete-dump-files: Source Files. (line 12) +* ess-directory: Source Directories. (line 48) +* ess-dump-filename-template: Source Directories. (line 9) +* ess-eldoc-abbreviation-style: ESS ElDoc. (line 24) +* ess-eldoc-show-on-symbol: ESS ElDoc. (line 18) +* ess-eval-visibly: Evaluating code. (line 14) +* ess-execute-in-process-buffer: Hot keys. (line 13) +* ess-first-tab-never-complete: Indenting. (line 46) +* ess-first-tab-never-complete <1>: Object names. (line 6) +* ess-function-template: Edit buffer. (line 17) +* ess-handy-commands: Handy commands. (line 6) +* ess-handy-commands <1>: Handy commands. (line 9) +* ess-indent-with-fancy-comments: Indenting. (line 27) +* ess-keep-dump-files: Source Files. (line 26) +* ess-plain-first-buffername: Multiple ESS processes. + (line 14) +* ess-post-run-hook: Customizing startup. (line 26) +* ess-pre-run-hook: Customizing startup. (line 21) +* ess-r-flymake-linters: ESS Flymake. (line 16) +* ess-r-flymake-lintr-cache: ESS Flymake. (line 23) +* ess-R-font-lock-keywords: Highlighting. (line 19) +* ess-search-list: Source Directories. (line 62) +* ess-source-directory: Source Directories. (line 22) +* ess-style: Styles. (line 21) +* ess-style-alist: Styles. (line 28) +* ess-switch-to-end-of-proc-buffer: Other. (line 21) +* ess-swv-pdflatex-commands: Sweave and AUCTeX. (line 35) +* ess-tab-complete-in-script: Indenting. (line 42) +* ess-use-eldoc: ESS ElDoc. (line 13) +* ess-use-flymake: ESS Flymake. (line 12) +* iESS program arguments: Customizing startup. (line 48) +* inferior-ess-program: Customizing startup. (line 48) +* inferior-R-font-lock-keywords: Highlighting. (line 12) +* Rd-indent-level: R documentation files. + (line 85) +* Rd-mode-hook: R documentation files. + (line 82) +* Rd-to-help-command: R documentation files. + (line 89) + + +File: ess.info, Node: Concept index, Prev: Variable index, Up: Indices + +Concept Index +============= + +[index] +* Menu: + +* aborting R commands: Other. (line 9) +* aborting S commands: Other. (line 9) +* arguments to R program: Customizing startup. (line 51) +* arguments to S program: Customizing startup. (line 51) +* authors: Credits. (line 6) +* auto-complete: Auto-complete. (line 6) +* autosaving: Source Files. (line 83) +* bug reports: Reporting Bugs. (line 6) +* bugs: Bugs. (line 6) +* changing ESS processes: Multiple ESS processes. + (line 6) +* cleaning up: Hot keys. (line 71) +* comint: Credits. (line 6) +* command history: Command History. (line 6) +* command line arguments: iESS(R)--Inferior ESS processes. + (line 16) +* command-line completion: Object names. (line 6) +* command-line editing: Command-line editing. + (line 6) +* commands: Entering commands. (line 6) +* comments: Source Files. (line 41) +* comments in R: Indenting. (line 18) +* company: Company. (line 6) +* completion in edit buffer: Other edit buffer commands. + (line 24) +* completion of object names: Object names. (line 6) +* completion on file names: Object names. (line 40) +* completion on lists: Object names. (line 38) +* completion, when prompted for object names: Edit buffer. (line 14) +* creating new objects: Edit buffer. (line 14) +* credits: Credits. (line 6) +* customization: Customization. (line 6) +* data frames: Object names. (line 21) +* deleting output: Last command. (line 24) +* directories: Starting up. (line 11) +* dump file directories: Source Directories. (line 20) +* dump file names: Source Directories. (line 6) +* dump files: Edit buffer. (line 27) +* dump files <1>: Source Files. (line 10) +* echoing commands when evaluating: Evaluating code. (line 18) +* edit buffer: Edit buffer. (line 6) +* editing commands: Command History. (line 6) +* editing functions: Editing objects. (line 6) +* editing transcripts: Saving transcripts. (line 18) +* ElDoc: ESS ElDoc. (line 6) +* emacsclient: Emacsclient. (line 6) +* entering commands: Entering commands. (line 6) +* errors: Error Checking. (line 6) +* ESS commands blocking Emacs: Evaluating code. (line 18) +* ess developer: Namespaced Evaluation. + (line 6) +* ESS process buffer: Starting up. (line 17) +* ESS process directory: Starting up. (line 11) +* ESS tracebug: ESS tracebug. (line 6) +* ESS-elsewhere: ESS processes on Remote Computers. + (line 9) +* ess-roxy: Roxygen. (line 6) +* evaluating code with echoed commands: Evaluating code. (line 18) +* evaluating R expressions: Evaluating code. (line 29) +* evaluating S expressions: Evaluating code. (line 29) +* finding function definitions: Xref. (line 6) +* flymake: ESS Flymake. (line 6) +* font-lock mode: Highlighting. (line 7) +* formatting source code: Indenting. (line 32) +* graphics: Graphics. (line 6) +* Handy commands: Handy commands. (line 6) +* help files: Help. (line 6) +* highlighting: Highlighting. (line 7) +* historic backups: Source Files. (line 41) +* hot keys: Hot keys. (line 43) +* icicles: Icicles. (line 6) +* IDO completions: Minibuffer completion. + (line 6) +* indenting: Indenting. (line 32) +* installation: Installation. (line 6) +* interactive use of R: Introduction. (line 31) +* interactive use of S: Introduction. (line 31) +* interrupting R commands: Other. (line 9) +* interrupting S commands: Other. (line 9) +* introduction: Introduction. (line 6) +* keyboard short cuts: Hot keys. (line 43) +* killing temporary buffers: Hot keys. (line 71) +* killing the ESS process: Hot keys. (line 71) +* lists, completion on: Object names. (line 38) +* motion in transcript mode: Transcript Mode. (line 17) +* multi-line commands, resubmitting: Transcript resubmit. (line 33) +* multiple ESS processes: Multiple ESS processes. + (line 6) +* multiple inferior processes: Multiple ESS processes. + (line 6) +* multiple interactive processes: Multiple ESS processes. + (line 6) +* new objects, creating: Edit buffer. (line 14) +* objects: Hot keys. (line 24) +* pages in the process buffer: Transcript. (line 24) +* paging commands in help buffers: Help. (line 28) +* paragraphs in the process buffer: Transcript. (line 13) +* parsing errors: Error Checking. (line 6) +* process buffer: Starting up. (line 17) +* process names: Multiple ESS processes. + (line 8) +* programming in R: Introduction. (line 43) +* programming in S: Introduction. (line 43) +* project work in R: Source Files. (line 41) +* project work in S: Source Files. (line 41) +* quitting from ESS: Hot keys. (line 71) +* re-executing commands: Command History. (line 6) +* reading long command outputs: Last command. (line 19) +* remote Computers: ESS processes on Remote Computers. + (line 9) +* reverting function definitions: Edit buffer. (line 27) +* roxy: Roxygen. (line 6) +* Roxygen: Roxygen. (line 6) +* running R: Starting up. (line 6) +* running S: Starting up. (line 6) +* S+elsewhere: ESS processes on Remote Computers. + (line 9) +* search list: Hot keys. (line 34) +* search list <1>: Source Directories. (line 55) +* sending input: Entering commands. (line 6) +* starting directory: Starting up. (line 11) +* starting ESS: Starting up. (line 6) +* STERM: Statistical Process running in ESS?. + (line 6) +* temporary buffers: Help. (line 162) +* temporary buffers, killing: Hot keys. (line 71) +* tracebug tutorial: Getting started with tracebug. + (line 6) +* tramp support: ESS processes on Remote Computers. + (line 9) +* transcript: Transcript. (line 9) +* transcript file: Customizing startup. (line 40) +* transcript file names: Saving transcripts. (line 13) +* transcript mode motion: Transcript Mode. (line 17) +* transcripts of R sessions: Introduction. (line 38) +* transcripts of S sessions: Introduction. (line 38) +* using ESS interactively: Introduction. (line 31) +* using R interactively: Introduction. (line 31) +* using S interactively: Introduction. (line 31) +* winjava: winjava. (line 6) +* working directory: Starting up. (line 11) +* working directory <1>: Source Directories. (line 55) +* X Windows: X11. (line 6) +* xref: Xref. (line 6) + + + +Tag Table: +Node: Top268 +Node: Introduction2914 +Node: Features5667 +Node: Current Features6503 +Node: New features9954 +Node: Credits27847 +Node: Manual31464 +Node: Installation34130 +Node: Installing from a third-party repository35067 +Node: Installing from source36014 +Node: Activating and Loading ESS37606 +Node: Check Installation38680 +Node: Interactive ESS38900 +Node: Starting up39745 +Node: Multiple ESS processes40489 +Node: ESS processes on Remote Computers41570 +Node: Customizing startup45673 +Node: Controlling buffer display48563 +Node: Entering commands50289 +Node: Command-line editing51447 +Node: Transcript52680 +Node: Last command54449 +Node: Process buffer motion55875 +Node: Transcript resubmit57378 +Node: Saving transcripts59343 +Node: Command History61133 +Node: Saving History64542 +Node: History expansion65303 +Node: Hot keys68514 +Node: Statistical Process running in ESS?72584 +Node: Emacsclient73863 +Node: Other74655 +Node: Evaluating code75674 +Node: Transcript Mode79355 +Node: Resubmit80508 +Node: Clean81571 +Node: Editing objects82567 +Node: Edit buffer83685 +Node: Loading85731 +Node: Error Checking86758 +Node: Indenting87807 +Node: Styles90996 +Node: Other edit buffer commands93370 +Node: Source Files95026 +Node: Source Directories99630 +Node: Help102783 +Node: Completion106881 +Node: Object names107114 +Node: Function arguments109787 +Node: Minibuffer completion110326 +Node: Auto-complete110806 +Node: Company112353 +Node: Icicles112732 +Node: Developing with ESS114052 +Node: ESS tracebug114498 +Node: Getting started with tracebug117505 +Node: Editing documentation119663 +Node: R documentation files120213 +Node: Roxygen124140 +Node: Namespaced Evaluation128543 +Node: Extras130541 +Node: ESS ElDoc131565 +Node: ESS Flymake133061 +Node: Handy commands134155 +Node: Highlighting135352 +Node: Parens136387 +Node: Graphics136863 +Node: printer137534 +Node: X11138290 +Node: winjava138629 +Node: Imenu139041 +Node: Toolbar139888 +Node: Xref140296 +Node: Rdired140619 +Node: Rutils141673 +Node: Org144067 +Node: Sweave and AUCTeX145012 +Node: ESS for R147564 +Node: ESS(R)--Editing files147864 +Node: iESS(R)--Inferior ESS processes148383 +Node: Philosophies for using ESS(R)153132 +Node: Example ESS usage154059 +Node: ESS for SAS156280 +Node: ESS(SAS)--Design philosophy157003 +Node: ESS(SAS)--Editing files157956 +Node: ESS(SAS)--TAB key159810 +Node: ESS(SAS)--Batch SAS processes161176 +Node: ESS(SAS)--Function keys for batch processing166202 +Node: iESS(SAS)--Interactive SAS processes175688 +Node: iESS(SAS)--Common problems179442 +Node: ESS(SAS)--Graphics180965 +Node: ESS(SAS)--Windows181748 +Node: ESS for BUGS182326 +Node: ESS for JAGS184082 +Node: Mailing lists/bug reports187434 +Node: Bugs187698 +Node: Reporting Bugs189323 +Node: Mailing Lists190216 +Node: Help with Emacs190963 +Node: Customization191495 +Node: Indices192269 +Node: Key index192444 +Node: Function and program index197722 +Node: Variable index207361 +Node: Concept index211214 + +End Tag Table diff --git a/elpa/ess-20190121.1430/essd-els.el b/elpa/ess-20190121.1430/essd-els.el new file mode 100644 index 00000000..8940cd22 --- /dev/null +++ b/elpa/ess-20190121.1430/essd-els.el @@ -0,0 +1,189 @@ +;;; essd-els.el --- S-PLUS 3.x at another location customization + +;; Copyright (C) 1998 Richard M. Heiberger +;; Copyright (C) 1999--2005 A.J. Rossini, Richard M. Heiberger, Martin +;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen. + +;; Author: Richard M. Heiberger +;; Created: December 1998 + +;; Maintainer: ESS-core + +;; Keywords: languages + +;; 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; This file defines all the S-PLUS 3.x customizations for ess-mode. + +;;; Code: + +(require 'ess-julia) +(require 'ess-s-lang) +(require 'ess-sp6-d) +(require 'ess-sas-d) +(require 'ess-stata-mode) +(require 'ess-trns) +(require 'ess-utils) +(defvar S+elsewhere-dialect-name "S+6" + "Name of 'dialect' for S-PLUS at another location.") + ;easily changeable in a user's .emacs + +(defcustom inferior-ess-remote-pager nil + "Remote pager to use for reporting help files and similar things. +The default value is nil." + :group 'ess-proc + :type '(choice (const nil) string)) + + +(defvar S+elsewhere-customize-alist + (append + '((ess-local-customize-alist . 'S+elsewhere-customize-alist) + (ess-dialect . S+elsewhere-dialect-name) + (ess-object-name-db-file . "ess-spelsewhere-namedb.el" ) + (inferior-ess-program . inferior-S-elsewhere-program) + (inferior-ess-help-command . "help(\"%s\", pager=\"cat\", window=F)\n") + (inferior-ess-start-args . "-i") + (ess-STERM . "iESS") + ) + S+common-cust-alist) + "Variables to customize for S+elsewhere") + +(defun S+elsewhere (&optional proc-name) + "Call 'S-PLUS 3.x', the 'Real Thing' from StatSci." + (interactive) + (setq ess-customize-alist S+elsewhere-customize-alist) + (ess-write-to-dribble-buffer + (format "\n(S+elsewhere): ess-dialect=%s, buf=%s\n" ess-dialect + (current-buffer))) + (inferior-ess) + (if inferior-ess-language-start + (ess-eval-linewise inferior-ess-language-start))) +;; git commit 104c4d7c56bc239ea245562763caa317bc3a1a84 +(make-obsolete 'S+elsewhere #'ess-remote "2000") + +(defun S+elsewhere-mode (&optional proc-name) + "Major mode for editing S+3 source. See `ess-mode' for more help." + (interactive) + (setq ess-customize-alist S+elsewhere-customize-alist) + (setq-local ess-local-customize-alist S+elsewhere-customize-alist) + (ess-mode)) + +(define-obsolete-function-alias 'S+elsewhere-transcript-mode #'S-transcript-mode "2000") + +;; This REALLY shouldn't need an editing mode. Just a transcript and +;; an inferior process handler. + +(defun ess-select-alist-dialect (&optional dialect) + "Query user for an ESS dialect and return the matching customize-alist." + (interactive) + (let* ((dialects '("R" "S+" "julia" "arc" "vst" "omg" "s3" "s4" "stata" "sp3" "sp4" + "sqpe4" "sp5" "sqpe" "XLS" "SAS")) + (dialect (or dialect + (ess-completing-read "Dialect" dialects nil t)))) + (cond + ((string= dialect "julia") ess-julia-customize-alist) + ((string= dialect "stata") STA-customize-alist) + ((string= dialect "R") ess-r-customize-alist) + ((string= dialect "SAS") SAS-customize-alist) + (t S+elsewhere-customize-alist)))) + +(defun ess-add-ess-process () + "Execute this command from within a buffer running a process to add +the process to `ess-process-name-alist' and to make it the +`ess-current-process-name'. This command will normally be run in a +telnet buffer connected to another computer or in a shell or comint +buffer on the local computer." + (interactive) + (let ((proc (get-buffer-process (buffer-name)))) + (if (not proc) + (error "No process is associated with this buffer.") + (set-process-filter proc 'inferior-ess-output-filter) + (setq ess-current-process-name (process-name proc)) + (add-to-list 'ess-process-name-list + (list ess-current-process-name))))) + +(defvar ess-remote nil + "Indicator, t in ess-remote buffers.") + +;;;###autoload +(defun ess-remote (&optional proc-name dialect) + "Execute this command from within a buffer running a process. It +runs `ess-add-ess-process' to add the process to +`ess-process-name-alist' and to make it the +`ess-current-process-name'. It then prompts the user for an ESS +language and sets the editing characteristics appropriately. + +To use this command, first start a process on a remote computer by +manual use of telnet, rlogin, ssh, or some other protocol. Start the +relevant program (\"S\" or \"R\" or \"sas -stdio\") in that buffer. Once +you are talking to S or R or SAS, then execute `ess-remote' to make +the current buffer an inferior-ess buffer with the right behavior for +the language you are currently working with. With S and R, use C-c +C-n to send lines over. With SAS, use C-c i +`ess-eval-line-and-step-invisibly' to send lines over invisibly. + +DIALECT is the desired ess-dialect. If nil, ask for dialect" + + (interactive) + (ess-add-ess-process) + ;; Need to select a remote-customize-alist + (let ((ess-customize-alist (ess-select-alist-dialect dialect))) + (ess-write-to-dribble-buffer + (format "\n(ESS-remote): ess-dialect=%s, buf=%s\n" ess-dialect + (current-buffer))) + (ess-setq-vars-local ess-customize-alist) + (inferior-ess-mode) + (set (make-local-variable 'ess-remote) t) + (setq ess-local-process-name (or proc-name ess-current-process-name)) + + (goto-char (point-max)) + + (when (equal ess-dialect "R") + ;; ugly fix for evn variable. What can we do :( + (ess-eval-linewise (format "options(pager='%s')\n" + (or inferior-ess-remote-pager inferior-ess-pager)) + nil nil nil 'wait) + (inferior-ess-r-load-ESSR)) + + (when (equal ess-dialect "S+") + (ess-command ess-S+--injected-code)) + + (when (equal ess-language "SAS") + (font-lock-mode 0) + (SAS-log-mode) + (shell-mode) + (setq buffer-read-only nil) + (font-lock-mode 1)) + + (ess-process-put 'funargs-cache (make-hash-table :test 'equal)) + (ess-process-put 'funargs-pre-cache nil) + ;; auto-complete + (ess--setup-auto-complete ess-r-ac-sources t) + ;; company + (ess--setup-company ess-r-company-backends t) + + (when inferior-ess-language-start + (ess-eval-linewise inferior-ess-language-start + nil nil nil 'wait-prompt)))) + + + ; Provide package + +(provide 'essd-els) + +;;; essd-els.el ends here diff --git a/elpa/ess-20190121.1430/etc/ESSR.rds b/elpa/ess-20190121.1430/etc/ESSR.rds new file mode 100644 index 00000000..5fbb48fe Binary files /dev/null and b/elpa/ess-20190121.1430/etc/ESSR.rds differ diff --git a/elpa/ess-20190121.1430/etc/ESSR/BUILDESSR b/elpa/ess-20190121.1430/etc/ESSR/BUILDESSR new file mode 100755 index 00000000..86a87dd7 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ESSR/BUILDESSR @@ -0,0 +1,10 @@ +#!/usr/bin/Rscript +## -*- mode: R -*- +## code to build ESSR environemnt. +## Assume that current directory is etc/ESSR +## run "./BUILDESSR" to create ../ESSR.rda + +## exactly as in inferior-ess-r-load-ESSR in ess-r-d.el +source('./R/.load.R', local=TRUE) +ESSR <- load.ESSR('./R/') +saveRDS(ESSR, file = "../ESSR.rds") diff --git a/elpa/ess-20190121.1430/etc/ESSR/LOADREMOTE b/elpa/ess-20190121.1430/etc/ESSR/LOADREMOTE new file mode 100644 index 00000000..919ec33f --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ESSR/LOADREMOTE @@ -0,0 +1,24 @@ +## -*- mode: R -*- +## loading code which is first sent to R on remote sessions +local({ + ver <- '%s' ## <- passed from elisp + root <- '~/.config/ESSR' + if(!file.exists(root)) + dir.create(root, recursive = TRUE) + ## cannot use sprintf here + essr_file <- file.path(root, paste('ESSRv', ver, '.rds', sep = '')) + tryCatch({ + if(!file.exists(essr_file)) { + url <- paste('https://github.com/emacs-ess/ESS/raw/ESSRv', ver, '/etc/ESSR.rds', sep = '') + utils::download.file(url, essr_file) + } + ESSR <- readRDS(essr_file) + ESSR[[".ess.Rversion"]] <- ESSR[[".ess.getRversion"]]() + attach(ESSR) + print(TRUE) + }, + error = function(e) { + print(e) + print(FALSE) + }) +}) diff --git a/elpa/ess-20190121.1430/etc/ESSR/R/.basic.R b/elpa/ess-20190121.1430/etc/ESSR/R/.basic.R new file mode 100644 index 00000000..8ba5daf7 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ESSR/R/.basic.R @@ -0,0 +1,134 @@ +#### Essential functionality needed by ESS + +## Should work on *all* vesions of R. +## Do not use _ in names, nor :: , nor 1L etc, as they +## cannot be parsed in old R versions + +.ess.getRversion <- function() { + if(exists("getRversion", mode="function")) getRversion() + else paste(R.version$major, R.version$minor, sep=".") +} + +## loading ESSR.rda might fail, so re-assign here: +.ess.Rversion <- .ess.getRversion() + +.ess.R.has.utils <- (.ess.Rversion >= "1.9.0") +.ess.utils.name <- paste("package", + if(.ess.Rversion >= "1.9.0") "utils" else "base", + sep = ":") + +## Instead of modern utils::help use one that works in R 1.0.0: +.ess.findFUN <- get("find", .ess.utils.name) + + +### HELP +.ess.help <- function(..., help.type = getOption("help_type")) { + if (is.null(help.type)) { + help.type <- "text" + } + + ## - get("help", ..) searching in global env works with devtools redefines + ## - Redefining to .ess.help this way is necessary because + ## utils:::print.help_files_with_topic (used internally when there's + ## more than one a package) uses the quoted call + ## MM: don't understand; more specifically? + .ess.help <- function(...) { + do.call(get("help", envir = .GlobalEnv), list(...)) + } + + if (.ess.Rversion > "2.10") { + ## Abbreviating help_type to avoid underscore + .ess.help(..., help = help.type) + } else { + .ess.help(..., htmlhelp = help.type == "html") + } +} + +.ess.getHelpAliases <- function(){ + readrds <- + if(.ess.Rversion >= '2.13.0') readRDS + else .readRDS + rds.files <- paste(searchpaths(), "/help/aliases.rds", sep = "") + unlist(lapply(rds.files, + function(f){ + if( file.exists(f) ) + try(names(readrds(f))) + }), + use.names = FALSE) +} + +### SOURCING +.ess.eval <- function(string, visibly = TRUE, output = FALSE, + max.deparse.length = 300, + file = tempfile("ESS"), local = NULL) +{ + if (is.null(local)) { + local <- if (.ess.Rversion > '2.13') parent.frame() else FALSE + } + + ## create FILE, put string into it. Then source. + ## arguments are like in source and .ess.source + cat(string, file = file) + ## The following on.exit infloops in R 3.3.0 + ## https://github.com/emacs-ess/ESS/issues/334 + ## https://bugs.r-project.org/bugzilla/show_bug.cgi?id=16971 + ## So we are cleanning it in .ess.source instead. + ## on.exit(file.remove(file)) + .ess.source(file, visibly = visibly, output = output, + max.deparse.length = max.deparse.length, + local = local, fake.source = TRUE) +} + +.ess.strip.error <- function(msg, srcfile) { + pattern <- paste0(srcfile, ":[0-9]+:[0-9]+: ") + sub(pattern, "", msg) +} + +.ess.file.remove <- function(file){ + if (base::file.exists(file)) base::file.remove(file) + else FALSE +} + +.ess.source <- function(file, visibly = TRUE, output = FALSE, + max.deparse.length = 300, local = NULL, + fake.source = FALSE, keep.source = TRUE, + message.prefix = "") { + if (is.null(local)) { + local <- if (.ess.Rversion > "2.13") + parent.frame() + else FALSE + } + + ss <- + if (.ess.Rversion >= "3.4") + base::source + else if (.ess.Rversion >= "2.8") + function(..., spaced) base::source(...) + else function(..., spaced, keep.source) base::source(...) + + on.exit({ + if (fake.source) + .ess.file.remove(file) + }) + + out <- ss(file, echo = visibly, local = local, print.eval = output, spaced = FALSE, + max.deparse.length = max.deparse.length, keep.source = keep.source) + + if(!fake.source) + cat(sprintf("%sSourced file %s\n", message.prefix, file)) + + ## Return value for org-babel + invisible(out$value) +} + +if(.ess.Rversion < "1.8") + ## (works for "1.7.2"): bquote() was new in 1.8.0 + bquote <- function(expr, where=parent.frame()){ + unquote <- function(e) + if (is.pairlist(e)) as.pairlist(lapply(e, unquote)) + else if (length(e) <= 1) e + else if (e[[1]] == as.name(".")) eval(e[[2]], where) + else as.call(lapply(e, unquote)) + + unquote(substitute(expr)) + } diff --git a/elpa/ess-20190121.1430/etc/ESSR/R/.load.R b/elpa/ess-20190121.1430/etc/ESSR/R/.load.R new file mode 100644 index 00000000..1634a0ee --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ESSR/R/.load.R @@ -0,0 +1,53 @@ +## This file is sourced when R starts and `load.ESSR` is called. See +## inferior-ess-r-load-ESSR--local. +## Do not use _ in names, nor :: as they cannot be parsed in old R versions + +## load .base.R and all other files into ESSR environment; then attach ESSR +load.ESSR <- function(dir){ + .source <- + if(any("keep.source" == names(formals(sys.source)))) + sys.source + else + function(..., keep.source) sys.source(...) + + Rver <- if(exists("getRversion", mode="function")) getRversion() + else paste(R.version$major, R.version$minor, sep=".") + oldR <- Rver <= "1.3.0" + + ESSR <- + if(oldR) ## really old library() revert order a bit + attach(NULL, name = "ESSR") + else if(length(nn <- names(formals(new.env))) && any(nn == "parent")) + new.env(parent = + if(Rver >= "1.9.0") getNamespace("utils") + else .BaseNamespaceEnv) + else + new.env() + + assign(".ess.Rversion", Rver, envir = ESSR) + + ## updated by make !! + VERSION <- "1.5" + assign(".ess.ESSRversion", VERSION, envir = ESSR) + + + ## .basic.R: + try(.source(paste(dir,'/.basic.R', sep = ""), envir = ESSR, keep.source = FALSE)) + + ## all others try(*) as it will fail in old R + if(!oldR) # no sense if(oldR) + for( f in dir(dir, pattern='\\.R$', full.names=TRUE) ) + try(.source(f, envir = ESSR, keep.source = FALSE)) + + if(Rver >= "2.4.0") + attach(ESSR) + else if(!oldR) { ## borrow from older library() + e <- attach(NULL, name = "ESSR") + .Internal(lib.fixup(ESSR, e)) + } else { ## if(oldR), use as in that old library(): + .Internal(lib.fixup(ESSR, .GlobalEnv)) + } + + ## BUILDESSR needs this: + invisible(ESSR) +} diff --git a/elpa/ess-20190121.1430/etc/ESSR/R/completion.R b/elpa/ess-20190121.1430/etc/ESSR/R/completion.R new file mode 100644 index 00000000..44c60f93 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ESSR/R/completion.R @@ -0,0 +1,163 @@ +## Do *NOT* use 1L -- it gives parse errors in historical versions of R + +## Try a setup working in as old R as possible. +## ===> +## 1) do not use "_" in names! --- seems impossible for the Millenials .. +## 2) use our own simplified definition of '::' and ':::' ? +## +if(!exists("local")) + local <- function(expr, envir = environment()) { invisible(eval(expr, envir=envir)) } + +##' Robust version of +##' utils:::.addFunctionInfo(c = c("recursive", "use.names")) +local({ + U <- asNamespace("utils"); fn <- ".addFunctionInfo" + EX <- exists(fn, envir=U) + if(EX && is.function(FN <- get(fn, envir=U))) { + FN(c = c("recursive", "use.names")); ##dbg: cat("Calling utils:::",fn,"(c = ...)\n") + } +}) + + +.ess_eval <- function(str, env = globalenv()) { + ## don't remove; really need eval(parse( here!! + tryCatch(base::eval(base::parse(text=str), envir = env), + error=function(e) NULL) ## also works for special objects containing @:$ etc +} + +.ess_nonull <- function(x, default = "") { + if (is.null(x)) default + else x +} + +.ess_srcref <- function(name, pkg) { + if (!is.null(pkg) && requireNamespace(pkg)) { + env <- asNamespace(pkg) + } else { + env <- globalenv() + } + fn <- .ess_eval(name, env) + out <- "()\n" + if (is.function(fn) && !is.null(utils::getSrcref(fn))) { + file <- utils::getSrcFilename(fn, full.names = TRUE) + if (file != "") { + line <- .ess_nonull(utils::getSrcLocation(fn, "line"), 1) + col <- .ess_nonull(utils::getSrcLocation(fn, "column"), 1) + out <- sprintf("(\"%s\" %d %d)\n", file, line, col - 1) + } + } + cat(out) +} + +.ess_fn_pkg <- function(fn_name) { + fn <- .ess_eval(fn_name) + env_name <- base::environmentName(base::environment(fn)) + out <- if (base::is.primitive(fn)) { # environment() does not work on primitives. + "base" + } else if (base::is.function(fn) && env_name != "R_GlobalEnv") { + env_name + } else { + "" + } + base::cat(base::sprintf("%s\n", out)) +} + +.ess_funargs <- function(funname) { + if(.ess.Rversion > '2.14.1') { + ## temporarily disable JIT compilation and errors + comp <- compiler::enableJIT(0) + op <- options(error=NULL) + on.exit({ options(op); compiler::enableJIT(comp) }) + } + fun <- .ess_eval(funname) + if(is.function(fun)) { + special <- grepl('[:$@[]', funname) + args <- if(!special){ + fundef <- paste(funname, '.default',sep='') + do.call('argsAnywhere', list(fundef)) + } + + if(is.null(args)) + args <- args(fun) + if(is.null(args)) + args <- do.call('argsAnywhere', list(funname)) + + fmls <- formals(args) + fmls_names <- names(fmls) + fmls <- gsub('\"', '\\\"', + gsub("\\", "\\\\", as.character(fmls), fixed = TRUE), + fixed=TRUE) + args_alist <- + sprintf("'(%s)", + paste("(\"", fmls_names, "\" . \"", fmls, "\")", + sep = '', collapse = ' ')) + allargs <- + if (special) fmls_names + else tryCatch(gsub('=', '', utils:::functionArgs(funname, ''), fixed = TRUE), + error=function(e) NULL) + allargs <- sprintf("'(\"%s\")", + paste(allargs, collapse = '\" "')) + envname <- + if (is.primitive(fun)) "base" + else environmentName(environment(fun)) + if (envname == "R_GlobalEnv") envname <- "" + cat(sprintf('(list \"%s\" %s %s)\n', + envname, args_alist, allargs)) + } +} + +.ess_get_completions <- function(string, end){ + if(.ess.Rversion > '2.14.1'){ + comp <- compiler::enableJIT(0) + op <- options(error=NULL) + on.exit({ options(op); compiler::enableJIT(comp) }) + } + utils:::.assignLinebuffer(string) + utils:::.assignEnd(end) + utils:::.guessTokenFromLine() + utils:::.completeToken() + c(get('token', envir=utils:::.CompletionEnv), + utils:::.retrieveCompletions()) +} + +.ess_arg_help <- function(arg, func){ + op <- options(error=NULL) + on.exit(options(op)) + fguess <- + if(is.null(func)) get('fguess', envir=utils:::.CompletionEnv) + else func + findArgHelp <- function(fun, arg){ + file <- help(fun, try.all.packages=FALSE)[[1]] + hlp <- utils:::.getHelpFile(file) + id <- grep('arguments', tools:::RdTags(hlp), fixed=TRUE) + if(length(id)){ + arg_section <- hlp[[id[[1]]]] + items <- grep('item', tools:::RdTags(arg_section), fixed=TRUE) + ## cat('items:', items, fill=TRUE) + if(length(items)){ + arg_section <- arg_section[items] + args <- unlist(lapply(arg_section, + function(el) paste(unlist(el[[1]][[1]], TRUE, FALSE), collapse=''))) + fits <- grep(arg, args, fixed=TRUE) + ## cat('args', args, 'fits', fill=TRUE) + if(length(fits)) + paste(unlist(arg_section[[fits[1]]][[2]], TRUE, FALSE), collapse='') + } + } + } + funcs <- c(fguess, tryCatch(methods(fguess), + warning=function(w) {NULL}, + error=function(e) {NULL})) + if(length(funcs) > 1 && length(pos <- grep('default', funcs))){ + funcs <- c(funcs[[pos[[1]]]], funcs[-pos[[1]]]) + } + i <- 1; found <- FALSE + out <- 'No help found' + while(i <= length(funcs) && is.null(out <- + tryCatch(findArgHelp(funcs[[i]], arg), + warning=function(w) {NULL}, + error=function(e) {NULL}) + )) + i <- i + 1 + cat('\n\n', as.character(out), '\n') +}; diff --git a/elpa/ess-20190121.1430/etc/ESSR/R/debug.R b/elpa/ess-20190121.1430/etc/ESSR/R/debug.R new file mode 100644 index 00000000..8154b047 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ESSR/R/debug.R @@ -0,0 +1,224 @@ +### BREAKPOINTS +.ESSBP. <- new.env() + +### DEBUG/UNDEBUG +.ess_find_funcs <- function(env) { + objs <- ls(envir = env, all.names = TRUE) + if (length(objs) > 0) + objs <- objs[sapply(objs, exists, envir = env, + mode = 'function', inherits = FALSE)] + objs +} + +.ess_all_functions <- function(packages = c(), env = NULL) { + if(is.null(env)) + env <- parent.frame() + empty <- emptyenv() + coll <- list() + for(p in packages){ + ## package might not be attached + try( + { + objNS <- .ess_find_funcs(asNamespace(p)) + objPKG <- .ess_find_funcs(as.environment(paste0('package:', p))) + objNS <- setdiff(objNS, objPKG) + if(length(objPKG)) + coll[[length(coll) + 1]] <- paste0(p, ':::', objNS) + }, silent = TRUE) + } + while(!identical(empty, env)){ + coll[[length(coll) + 1]] <- .ess_find_funcs(env) + env <- parent.env(env) + } + grep('^\\.ess', unlist(coll, use.names = FALSE), + invert = TRUE, value = TRUE) +} + +.ess_dbg_flag_for_debuging <- function(fname){ + all <- utils::getAnywhere(fname) + if(length(all$obj) == 0){ + msg <- sprintf("No functions names '%s' found", fname) + } else { + msg <- sprintf("Flagged '%s' for debugging", fname) + tryCatch(lapply(all$obj, debug), + error = function(e){ + msg <- paste0("Error: ", e$message) + }) + } + cat(msg) + .ess_mpi_message(msg) +} + +.ess_dbg_getTracedAndDebugged <- function() +{ + packages <- base::.packages() + tr_state <- tracingState(FALSE) + on.exit(tracingState(tr_state)) + generics <- methods::getGenerics() + all_traced <- c() + for(i in seq_along(generics)){ + genf <- methods::getGeneric(generics[[i]], + package=generics@package[[i]]) + if(!is.null(genf)){ ## might happen !! v.2.13 + menv <- methods::getMethodsForDispatch(genf) + traced <- unlist(eapply(menv, is, 'traceable', all.names=TRUE)) + if(length(traced) && any(traced)) + all_traced <- c(paste(generics[[i]],':', + names(traced)[traced],sep=''), all_traced) + tfn <- getFunction(generics[[i]], mustFind=FALSE, where = .GlobalEnv) + if(!is.null(tfn ) && is(tfn, 'traceable')) # if the default is traced, it does not appear in the menv :() + all_traced <- c(generics[[i]], all_traced) + } + } + debugged_pkg <- unlist(lapply(packages, function(pkgname){ + ns <- asNamespace(pkgname) + funcs <- .ess_find_funcs(ns) + dbged <- funcs[unlist(lapply(funcs, + function(f){ + isdebugged(get(f, envir = ns, inherits = FALSE)) + }))] + if(length(dbged)) + paste0(pkgname, ':::`', dbged, '`') + })) + env <- parent.frame() + ## traced function don't appear here. Not realy needed and would affect performance. + all <- .ess_all_functions(packages = packages, env = env) + which_deb <- lapply(all, function(nm){ + ## if isdebugged is called with string it doess find + tryCatch(isdebugged(get(nm, envir = env)), + error = function(e) FALSE) + ## try(eval(substitute(isdebugged(nm), list(nm = as.name(nm)))), silent = T) + }) + debugged <- all[which(unlist(which_deb, recursive=FALSE, use.names=FALSE))] + unique(c(debugged_pkg, debugged, all_traced)) +} + +.ess_dbg_UntraceOrUndebug <- function(name, env = parent.frame()) +{ + tr_state <- tracingState(FALSE) + on.exit(tracingState(tr_state)) + if( grepl('::', name) ){ + ## foo:::bar name + eval(parse(text = sprintf('undebug(%s)', name))) + }else{ + ## name is a name of a function to be undebugged or has a form + ## name:Class1#Class2#Class3 for traced methods + name <- strsplit(name, ':', fixed = TRUE)[[1]] + if( length(name)>1 ){ + ## a method + fun <- name[[1]] + sig <- strsplit(paste(name[-1], collapse=''), '#', fixed=TRUE)[[1]] + untrace(fun, signature = sig) + }else{ + ## function + if( is(getFunction(name, where = parent.frame()), 'traceable') ) + untrace(name) + else if(grepl(":", name)) + undebug(name) + else + undebug(get(name, envir = env)) + }} +} + +.ess_dbg_UndebugALL <- function(funcs) +{ + tr_state <- tracingState(FALSE) + on.exit(tracingState(tr_state)) + env <- parent.frame() + invisible(lapply(funcs, function( nm ) { + ## ugly tryCatch, but there might be several names pointing to the + ## same function, like foo:::bar and bar. An alternative would be + ## to call .ess_dbg_getTracedAndDebugged each time but that might + ## be ery slow + try(.ess_dbg_UntraceOrUndebug(nm, env = env), TRUE) + })) +} + +### WATCH +.ess_watch_expressions <- list() + +.ess_watch_eval <- function() +{ + env <- as.environment("ESSR") + exps <- get('.ess_watch_expressions', envir = env) + if(length(exps) == 0) { + ## using old style so this can be parsed by R 1.9.1 (e.g): + cat('\n# Watch list is empty!\n', + '# a append new expression', + '# i insert new expression', + '# k kill', + '# e edit the expression', + '# r rename', + '# n/p navigate', + '# u/d,U move the expression up/down', + '# q kill the buffer', + sep="\n") + } else { + .parent_frame <- parent.frame() + .essWEnames <- allNames(exps) + len0p <- !nzchar(.essWEnames) + .essWEnames[len0p] <- seq_along(len0p)[len0p] + for(i in seq_along(exps)) { + cat('\n@---- ', .essWEnames[[i]], ' ', + rep.int('-', max(0, 35 - nchar(.essWEnames[[i]]))), '-@\n', sep = '') + cat(paste('@---:', deparse(exps[[i]][[1]])), ' \n', sep = '') + tryCatch(print(eval(exps[[i]], + envir = .parent_frame)), + error = function(e) cat('Error:', e$message, '\n' ), + warning = function(w) cat('warning: ', w$message, '\n' )) + } + } +} + +.ess_watch_assign_expressions <- function(elist){ + assign(".ess_watch_expressions", elist, envir = as.environment("ESSR")) +} + +.ess_log_eval <- function(log_name) +{ + env <- as.environment("ESSR") + if(!exists(log_name, envir = env, inherits = FALSE)) + assign(log_name, list(), envir = env) + log <- get(log_name, envir = env, inherits = FALSE) + .essWEnames <- allNames(.ess_watch_expressions) + cur_log <- list() + .parent_frame <- parent.frame() + for(i in seq_along(.ess_watch_expressions)) { + capture.output( { + cur_log[[i]] <- + tryCatch(eval(.ess_watch_expressions[[i]]), + envir = .parent_frame, + error = function(e) paste('Error:', e$message, '\n'), + warning = function(w) paste('warning: ', w$message, '\n')) + if(is.null(cur_log[i][[1]])) + cur_log[i] <- list(NULL) + }) + } + names(cur_log) <- .essWEnames + assign(log_name, c(log, list(cur_log)), envir = env) + invisible(NULL) +} + +.ess_package_attached <- function(pack_name){ + as.logical(match(paste0("package:", pack_name), search())) +} + +## magrittr debug_pipe +.ess_pipe_browser <- function(x){ + if(is.list(x)) + evalq({ + browser(skipCalls = 2) + x + }, envir = x) + else if(is.environment(x)) + ## enclos argumentn has no effect for unclear reason, need to hack + eval(bquote({ + x <- .(environment()) + browser(skipCalls = 2) + x + }), envir = x) + else { + browser(skipCalls = 0) + x + } +} diff --git a/elpa/ess-20190121.1430/etc/ESSR/R/misc.R b/elpa/ess-20190121.1430/etc/ESSR/R/misc.R new file mode 100644 index 00000000..c1e36183 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ESSR/R/misc.R @@ -0,0 +1,141 @@ +.ess_weave <- function(command, file, encoding = NULL){ + cmd_symb <- substitute(command) + if (grepl('knit|purl', deparse(cmd_symb))) require(knitr) + od <- getwd() + on.exit(setwd(od)) + setwd(dirname(file)) + frame <- parent.frame() + if (is.null(encoding)) + eval(bquote(.(cmd_symb)(.(file))), envir = frame) + else + eval(bquote(.(cmd_symb)(.(file), encoding = .(encoding))), envir = frame) +} + +.ess_knit <- function(file, output = NULL){ + library(knitr) + frame <- parent.frame() + od <- getwd() + on.exit(setwd(od)) + setwd(dirname(file)) + ## this bquote is really needed for data.table := operator to work correctly + eval(bquote(knit(.(file), output = .(output))), envir = frame) +} + +.ess_sweave <- function(file, output = NULL){ + od <- getwd() + frame <- parent.frame() + on.exit(setwd(od)) + setwd(dirname(file)) + eval(bquote(Sweave(.(file), output = .(output))), envir = frame) +} + +## Users might find it useful. So don't prefix with .ess. +htsummary <- function(x, hlength = 4, tlength = 4, digits = 3) { + ## fixme: simplify and generalize + snames <- c("mean", "sd", "min", "max", "nlev", "NAs") + d <- " " + num_sumr <- function(x){ + c(f(mean(x, na.rm = TRUE)), + f(sd(x, na.rm = TRUE)), + f(min(x, na.rm = TRUE)), + f(max(x, na.rm = TRUE)), + d, + f(sum(is.na(x), na.rm = TRUE))) + } + f <- function(x) format(x, digits = digits) + + if (is.data.frame(x) | is.matrix(x)) { + if (nrow(x) <= tlength + hlength){ + print(x) + } else { + if (is.matrix(x)) + x <- data.frame(unclass(x)) + ## conversion needed, to avoid problems with derived classes suchs + ## as data.table + h <- as.data.frame(head(x, hlength)) + t <- as.data.frame(tail(x, tlength)) + for (i in 1:ncol(x)) { + h[[i]] <- f(h[[i]]) + t[[i]] <- f(t[[i]]) + } + ## summaries + sumr <- sapply(x, function(c){ + if (is.logical(c)) + ## treat logical as numeric; it's harmless + c <- as.integer(c) + if (is.numeric(c)) + num_sumr(c) + else if (is.factor(c)) c(d, d, d, d, nlevels(c), sum(is.na(c))) + else rep.int(d, length(snames)) + }) + sumr <- as.data.frame(sumr) + row.names(sumr) <- snames + dots <- rep("...", ncol(x)) + empty <- rep.int(" ", ncol(x)) + lines <- rep.int(" ", ncol(x)) + df <- rbind(h, ... = dots, t, `_____` = lines, sumr, ` ` = empty) + print(df) + } + } else { + cat("head(", hlength, "):\n", sep = "") + print(head(x, hlength)) + if (length(x) > tlength + hlength){ + cat("\ntail(", tlength, "):\n", sep = "") + print(tail(x, tlength)) + } + cat("_____\n") + if (is.numeric(x) || is.logical(x)) + print(structure(num_sumr(x), names = snames), quote = FALSE) + else if (is.factor(x)){ + cat("NAs: ", sum(is.na(x), na.rm = TRUE), "\n") + cat("levels: \n") + print(levels(x)) + } + } + invisible(NULL) +} + +.ess_vignettes <- function(all=FALSE) { + vs <- unclass(browseVignettes(all = all)) + vs <- vs[sapply(vs, length) > 0] + + mat2elist <- function(mat) { + if (!is.null(dim(mat))){ + apply(mat, 1, function(r) + sprintf("(list \"%s\")", + paste0(gsub("\"", "\\\\\"", + as.vector(r[c("Title", "Dir", "PDF", + "File", "R")])), + collapse = "\" \""))) + } + } + cat("(list \n", + paste0(mapply(function(el, name) { + sprintf("(list \"%s\" %s)", + name, paste0(mat2elist(el), collapse = "\n")) + }, + vs, names(vs)), collapse = "\n"), ")\n") +} + +.ess_Rd2txt <- function(rd) { + fun <- tools::Rd2txt + if (length(formals(fun)["stages"]))# newer R version + fun(rd, stages = c("build", "install", "render")) + else + fun(rd) +} + +## Hacked help.start() to use with ess-rutils.el +.ess_help_start <- function(update=FALSE, remote=NULL) { + home <- if (is.null(remote)) { + port <- tools::startDynamicHelp(NA) + if (port > 0L) { + if (update) + make.packages.html(temp=TRUE) + paste0("http://127.0.0.1:", port) + } + else stop(".ess_help_start() requires the HTTP server to be running", + call.=FALSE) + } else remote + paste0(home, "/doc/html/index.html") +} diff --git a/elpa/ess-20190121.1430/etc/ESSR/R/mpi.R b/elpa/ess-20190121.1430/etc/ESSR/R/mpi.R new file mode 100644 index 00000000..5a5ff807 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ESSR/R/mpi.R @@ -0,0 +1,23 @@ +## simple Message Parsing Inerface + +.ess_mpi_send <- function(head, ...){ + payload <- paste(..., sep = "") + cat(sprintf("%s%s", head, payload)) +} + +.ess_mpi_message <- function(msg){ + .ess_mpi_send("message", msg) +} + +.ess_mpi_y_or_n <- function(prompt, callback){ + .ess_mpi_send("y-or-n", prompt, callback) +} + +.ess_mpi_eval <- function(expr, callback){ + .ess_mpi_send("eval", expr, callback) +} + +.ess_mpi_error <- function(msg) { + .ess_mpi_send("error", msg) +} + diff --git a/elpa/ess-20190121.1430/etc/ESSR/R/ns-eval.R b/elpa/ess-20190121.1430/etc/ESSR/R/ns-eval.R new file mode 100644 index 00000000..ffdcc25d --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ESSR/R/ns-eval.R @@ -0,0 +1,415 @@ +## NOTE ON S3 METHODS: New S3 methods are not automatically registered. You can +## register them manually after you have inserted method_name.my_class into your +## package environment using ess-developer, like follows: +## +## registerS3method("method_name", "my_class", my_package:::method_name.my_class) +## +## If an S3 methods already exists in a package, ESS-developer will do the right +## thing. + +## evaluate the STRING by saving into a file and calling .ess.ns_source +.ess.ns_eval <- function(string, visibly, output, package, + file = tempfile("ESSDev"), verbose = FALSE, + fallback_env = NULL, local_env = parent.frame()) { + cat(string, file = file) + on.exit(.ess.file.remove(file)) + .ess.ns_source(file, visibly, output, package = package, + verbose = verbose, fake.source = TRUE, + fallback_env = fallback_env, local_env = local_env) +} + +##' Source FILE into an environment. After having a look at each new object in +##' the environment, decide what to do with it. Handles plain objects, +##' functions, existing S3 methods, S4 classes and methods. +##' @param fallback_env environment to assign objects which don't exist in the +##' package namespace +.ess.ns_source <- function(file, visibly, output, expr, + package = "", verbose = FALSE, + fake.source = FALSE, + fallback_env = NULL, + local_env = NULL) { + oldopts <- options(warn = 2) + on.exit(options(oldopts)) + pname <- paste("package:", package, sep = "") + envpkg <- tryCatch(as.environment(pname), error = function(cond) NULL) + if (is.null(envpkg)) + if (require(package, quietly = TRUE, character.only = TRUE)) { + envpkg <- tryCatch(as.environment(pname), error = function(cond) NULL) + } else { + ## no such package; source in current (local) user environment + return(.ess.source(file, visibly = visibly, + output = output, local = local_env, + fake.source = fake.source)) + } + + envns <- tryCatch(asNamespace(package), error = function(cond) NULL) + if (is.null(envns)) + stop(gettextf("Can't find a namespace environment corresponding to package name '%s\"", + package), domain = NA) + + ## Here we know that both envns and envpkg exists and are environments + if (is.null(fallback_env)) + fallback_env <- .ess.ns_insert_essenv(envns) + + ## Get all Imports envs where we propagate objects + pkgEnvNames <- Filter(.ess.is_package, search()) + packages <- lapply(pkgEnvNames, function(envName) substring(envName, 9)) + importsEnvs <- lapply(packages, function(pkgName) parent.env(asNamespace(pkgName))) + + ## Evaluate the FILE into new ENV + env <- .ess.ns_evalSource(file, visibly, output, substitute(expr), package, fake.source) + envPackage <- getPackageName(env, FALSE) + if (nzchar(envPackage) && envPackage != package) + warning(gettextf("Supplied package, %s, differs from package inferred from source, %s", + sQuote(package), sQuote(envPackage)), domain = NA) + + ## Get all sourced objects, methods and classes + allObjects <- objects(envir = env, all.names = TRUE) + allObjects <- allObjects[!(allObjects %in% c(".cacheOnAssign", ".packageName"))] + MetaPattern <- methods:::.TableMetaPattern() + ClassPattern <- methods:::.ClassMetaPattern() + allPlainObjects <- allObjects[!(grepl(MetaPattern, allObjects) | + grepl(ClassPattern, allObjects))] + allMethodTables <- allObjects[grepl(MetaPattern, allObjects)] + allClassDefs <- allObjects[grepl(ClassPattern, allObjects)] + + ## PLAIN OBJECTS and FUNCTIONS: + funcNs <- funcPkg <- newFunc <- newNs <- newObjects <- newPkg <- objectsNs <- objectsPkg <- character() + dependentPkgs <- list() + + for (this in allPlainObjects) { + thisEnv <- get(this, envir = env) + thisNs <- NULL + + ## NS + if (exists(this, envir = envns, inherits = FALSE)){ + thisNs <- get(this, envir = envns) + if(is.function(thisNs) || is.function(thisEnv)){ + if(is.function(thisNs) && is.function(thisEnv)){ + if(.ess.differs(thisEnv, thisNs)){ + environment(thisEnv) <- environment(thisNs) + .ess.assign(this, thisEnv, envns) + funcNs <- c(funcNs, this) + if(exists(".__S3MethodsTable__.", envir = envns, inherits = FALSE)){ + S3_table <- get(".__S3MethodsTable__.", envir = envns) + if(exists(this, envir = S3_table, inherits = FALSE)) + .ess.assign(this, thisEnv, S3_table) + } + } + }else{ + newNs <- c(newNs, this) + } + }else{ + if(!identical(thisEnv, thisNs)){ + .ess.assign(this, thisEnv, envns) + objectsNs <- c(objectsNs, this) + } + } + }else{ + newNs <- c(newNs, this) + } + + ## PKG + if (exists(this, envir = envpkg, inherits = FALSE)){ + thisPkg <- get(this, envir = envpkg) + if(is.function(thisPkg) || is.function(thisEnv)){ + if(is.function(thisPkg) && is.function(thisEnv)){ + if(.ess.differs(thisPkg, thisEnv)){ + environment(thisEnv) <- environment(thisPkg) + .ess.assign(this, thisEnv, envpkg) + funcPkg <- c(funcPkg, this) + } + }else{ + newPkg <- c(newPkg, this) + } + }else{ + if(!identical(thisPkg, thisEnv)){ + .ess.assign(this, thisEnv, envpkg) + objectsPkg <- c(objectsPkg, this) + } + } + }else{ + newPkg <- c(newPkg, this) + } + + if (!is.null(thisNs)) { + isDependent <- .ess.ns_propagate(thisEnv, this, importsEnvs) + newDeps <- stats::setNames(list(packages[isDependent]), this) + dependentPkgs <- c(dependentPkgs, newDeps) + } + } + + ## deal with new plain objects and functions + for (this in intersect(newPkg, newNs)) { + thisEnv <- get(this, envir = env, inherits = FALSE) + if (exists(this, envir = fallback_env, inherits = FALSE)){ + thisGl <- get(this, envir = fallback_env) + if (.ess.differs(thisEnv, thisGl)) { + if (is.function(thisEnv)) { + environment(thisEnv) <- envns + newFunc <- c(newFunc, this) + } else { + newObjects <- c(newObjects, this) + } + .ess.assign(this, thisEnv, fallback_env) + if (.is.essenv(fallback_env)) + .ess.assign(this, thisEnv, .GlobalEnv) + } + } else { + if (is.function(thisEnv)) { + environment(thisEnv) <- envns + newFunc <- c(newFunc, this) + } else { + newObjects <- c(newObjects, this) + } + .ess.assign(this, thisEnv, fallback_env) + if (.is.essenv(fallback_env)) + .ess.assign(this, thisEnv, .GlobalEnv) + } + } + + if(length(funcNs)) + objectsNs <- c(objectsNs, sprintf("FUN[%s]", paste(funcNs, collapse = ", "))) + if(length(funcPkg)) + objectsPkg <- c(objectsPkg, sprintf("FUN[%s]", paste(funcPkg, collapse = ", "))) + if(length(newFunc)) + newObjects <- c(newObjects, sprintf("FUN[%s]", paste(newFunc, collapse = ", "))) + + ## CLASSES + classesPkg <- classesNs <- newClasses <- character() + for(this in allClassDefs){ + newPkg <- newNs <- FALSE + thisEnv <- get(this, envir = env) + if(exists(this, envir = envpkg, inherits = FALSE)){ + if(!.ess.identicalClass(thisEnv, get(this, envir = envpkg))){ + .ess.assign(this, thisEnv, envir = envpkg) + classesPkg <- c(classesPkg, this) + } + }else{ + newPkg <- TRUE + } + if(exists(this, envir = envns, inherits = FALSE)){ + if(!.ess.identicalClass(thisEnv, get(this, envir = envns))){ + .ess.assign(this, thisEnv, envir = envns) + classesNs <- c(classesNs, this) + } + }else{ + newNs <- TRUE + } + if(newNs && newPkg){ + if(exists(this, envir = fallback_env, inherits = FALSE)){ + if(!.ess.identicalClass(thisEnv, get(this, envir = fallback_env))){ + .ess.assign(this, thisEnv, envir = fallback_env) + newClasses <- c(newClasses, this) + } + }else{ + .ess.assign(this, thisEnv, envir = fallback_env) + newClasses <- c(newClasses, this) + } + } + } + if(length(classesPkg)) + objectsPkg <- gettextf("CLS[%s]", sub(ClassPattern, "", paste(classesPkg, collapse = ", "))) + if(length(classesNs)) + objectsNs <- gettextf("CLS[%s]", sub(ClassPattern, "", paste(classesNs, collapse = ", "))) + if(length(newClasses)) + newObjects <- gettextf("CLS[%s]", sub(ClassPattern, "", paste(newClasses, collapse = ", "))) + + ## METHODS: + ## Method internals: For efficiency reasons setMethod() caches + ## method definition into a global table which you can get with + ## 'getMethodsForDispatch' function, and when a method is dispatched that + ## table is used. When ess-developer is used to source method definitions the + ## two copies of the functions are identical up to the environment. The + ## environment of the cached object has namespace:foo as it's parent but the + ## environment of the object in local table is precisely namspace:foo. This + ## does not cause any difference in evaluation. + methodNames <- allMethodTables + methods <- sub(methods:::.TableMetaPrefix(), "", methodNames) + methods <- sub(":.*", "", methods) + methodsNs <- newMethods <- character() + for (i in seq_along(methods)){ + table <- methodNames[[i]] + tableEnv <- get(table, envir = env) + if(exists(table, envir = envns, inherits = FALSE)){ + inserted <- .ess.ns_insertMethods(tableEnv, get(table, envir = envns), envns) + if(length(inserted)) + methodsNs <- c(methodsNs, gettextf("%s{%s}", methods[[i]], paste(inserted, collapse = ", "))) + }else if(exists(table, envir = fallback_env, inherits = FALSE)){ + inserted <- .ess.ns_insertMethods(tableEnv, get(table, envir = fallback_env), envns) + if(length(inserted)) + newMethods <- c(newMethods, gettextf("%s{%s}", methods[[i]], paste(inserted, collapse = ", "))) + }else{ + .ess.assign(table, tableEnv, envir = fallback_env) + newMethods <- c(newMethods, gettextf("%s{%s}", methods[[i]], paste(objects(envir = tableEnv, all.names = T), collapse = ", "))) + } + } + if(length(methodsNs)) + objectsNs <- c(objectsNs, gettextf("METH[%s]", paste(methodsNs, collapse = ", "))) + if(length(newMethods)) + newObjects <- c(newObjects, gettextf("METH[%s]", paste(newMethods, collapse = ", "))) + + if (verbose) { + msgs <- unlist(list( + if(length(objectsPkg)) + sprintf("PKG: %s", paste(objectsPkg, collapse = ", ")), + if(length(objectsNs)) + sprintf("NS: %s", paste(objectsNs, collapse = ", ")), + if(length(dependentPkgs)) + .ess.ns_format_deps(dependentPkgs), + if(length(newObjects)) { + env_name <- .ess.ns_env_name(fallback_env) + sprintf("%s: %s", env_name, paste(newObjects, collapse = ", ")) + })) + if(length(msgs)) + .ess_mpi_message(paste(msgs, collapse = " ")) + + } + + invisible(env) +} + +.ess.ns_insertMethods <- function(tableEnv, tablePkg, envns) { + inserted <- character() + for(m in ls(envir = tableEnv, all.names = T)){ + if(exists(m, envir = tablePkg, inherits = FALSE)){ + thisEnv <- get(m, envir = tableEnv) + thisPkg <- get(m, envir = tablePkg) + if(is(thisEnv, "MethodDefinition") && is(thisPkg, "MethodDefinition") && + .ess.differs(thisEnv@.Data, thisPkg@.Data)){ + environment(thisEnv@.Data) <- envns + ## environment of cached method in getMethodsForDispatch table is still env + ## not a problem as such, but might confuse users + .ess.assign(m, thisEnv, tablePkg) + inserted <- c(inserted, m) + }}} + inserted +} + +## our version of R's evalSource +.ess.ns_evalSource <- function(file, visibly, output, expr, package = "", + fake.source = FALSE) { + envns <- tryCatch(asNamespace(package), error = function(cond) NULL) + if(is.null(envns)) + stop(gettextf("Package \"%s\" is not attached and no namespace found for it", + package), domain = NA) + env <- new.env(parent = envns) + env[[".packageName"]] <- package + methods:::setCacheOnAssign(env, TRUE) + if (missing(file)) + eval(expr, envir = env) + else if (is(file, "character")) + for (f in file) { + .ess.source(f, local = env, visibly = visibly, + output = output, keep.source = TRUE, + max.deparse.length = 300, + fake.source = fake.source, + message.prefix = sprintf("[%s] ", package)) + } + else stop(gettextf("Invalid file argument: got an object of class \"%s\"", + class(file)[[1]]), domain = NA) + env +} + +.ess.assign <- function(x, value, envir) { + ## Cannot add bindings to locked environments + exists <- exists(x, envir = envir, inherits = FALSE) + if (exists && bindingIsLocked(x, envir)) { + unlockBinding(x, envir) + assign(x, value, envir = envir, inherits = FALSE) + op <- options(warn = -1) + on.exit(options(op)) + lockBinding(x, envir) + } else if (exists || !environmentIsLocked(envir)) { + assign(x, value, envir = envir, inherits = FALSE) + } else { + warning(sprintf("Cannot assign `%s` in locked environment", x), + call. = FALSE) + } + invisible(NULL) +} + +.ess.identicalClass <- function(cls1, cls2, printInfo = FALSE) { + slots1 <- slotNames(class(cls1)) + slots2 <- slotNames(class(cls2)) + if(identical(slots1, slots2)){ + vK <- grep("versionKey", slots1) + if(length(vK)) + slots1 <- slots2 <- slots1[-vK] + out <- sapply(slots1, function(nm) identical(slot(cls1, nm), slot(cls2, nm))) + if(printInfo) print(out) + all(out) + } +} + +.ess.differs <- function(f1, f2) { + if (is.function(f1) && is.function(f2)){ + !(identical(body(f1), body(f2)) && identical(args(f1), args(f2))) + }else + !identical(f1, f2) +} + +.ess.is_package <- function(envName) { + isPkg <- identical(substring(envName, 0, 8), "package:") + isPkg && (envName != "package:base") +} + +.ess.ns_propagate <- function(obj, name, importsEnvs) { + containsObj <- vapply(importsEnvs, logical(1), FUN = function(envs) { + name %in% names(envs) + }) + + lapply(importsEnvs[containsObj], .ess.assign, + x = name, value = obj) + + containsObj +} + +.ess.ns_format_deps <- function(dependentPkgs) { + pkgs <- unique(unlist(dependentPkgs, use.names = FALSE)) + + lapply(pkgs, function(pkg) { + isDep <- vapply(dependentPkgs, function(deps) pkg %in% deps, logical(1)) + pkgDependentObjs <- names(dependentPkgs[isDep]) + sprintf("DEP:%s [%s] ", pkg, paste(pkgDependentObjs, collapse = ", ")) + }) +} + +.ess.ns_env_name <- function(env) { + name <- environmentName(env) + name <- + if (name == "") "Local" + else if (grepl("^essenv:", name)) "NEW" + else name + name +} + +.ess.ns_insert_essenv <- function(nsenv) { + if (is.character(nsenv)) + nsenv <- base::asNamespace(nsenv) + stopifnot(isNamespace(nsenv)) + if (identical(nsenv, .BaseNamespaceEnv)) + return(.GlobalEnv) + essenv_name <- sprintf("essenv:%s", environmentName(nsenv)) + nsenv_parent <- parent.env(nsenv) + if (environmentName(nsenv_parent) == essenv_name) { + return(nsenv_parent) + } + essenv <- new.env(parent = nsenv_parent) + essenv[[".__ESSENV__."]] <- TRUE + attr(essenv, "name") <- essenv_name + nssym <- ".__NAMESPACE__." + nssym_val <- get(nssym, envir = nsenv, inherits = FALSE) + unlockBinding(nssym, nsenv) + nsenv[[nssym]] <- NULL + on.exit({ + nsenv[[nssym]] <- nssym_val + lockBinding(nssym, nsenv) + }) + parent.env(nsenv) <- essenv + essenv +} + +.is.essenv <- function(env) { + exists(".__ESSENV__.", envir = env, inherits = FALSE) +} diff --git a/elpa/ess-20190121.1430/etc/ESSR/R/pkg.R b/elpa/ess-20190121.1430/etc/ESSR/R/pkg.R new file mode 100644 index 00000000..ebd0463a --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ESSR/R/pkg.R @@ -0,0 +1,26 @@ + +.ess_keep <- function(.x, .f, ...) { + is_true <- vapply(.x, .f, logical(1), ...) + .x[is_true] +} + +.ess_devtools_functions <- function() { + if (!requireNamespace("devtools")) { + .ess_mpi_error("devtools is not installed") + stop("internal error") + } + devtools_env <- asNamespace("devtools") + exports <- getNamespaceExports("devtools") + funs_exported <- as.list(devtools_env)[exports] + + is_first_arg <- function(f, arg) { + args <- names(formals(f)) + length(args) && args[[1]] == arg + } + + funs_pkg <- .ess_keep(funs_exported, is.function) + funs_pkg <- .ess_keep(funs_pkg, is_first_arg, "pkg") + funs_names <- sort(names(funs_pkg)) + + funs_names +} diff --git a/elpa/ess-20190121.1430/etc/Makefile b/elpa/ess-20190121.1430/etc/Makefile new file mode 100644 index 00000000..e2d22768 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/Makefile @@ -0,0 +1,52 @@ +### Makefile - for scripts and icons (./etc) of ESS distribution. +### + +## Before making changes here, please take a look at Makeconf +include ../Makeconf + +#ETCFILES = $(wildcard BACKBUG[S5].BAT backbug[s5] *.S sas-keys.*) +#ETCFILES = ESSR.R ess-developer.R SVN-REVISION *.S sas-keys.* ess-sas-sh-command +# ETCFILES_1 = *.S sas-keys.* ess-sas-sh-command *.jl +ETCFILES_1 = ess-sas-sh-command *.jl +isRELEASE=$(shell test -f .IS.RELEASE && echo 'yes') +ifeq ($(isRELEASE),yes) + ETCFILES = .IS.RELEASE git-ref $(ETCFILES_1) +else + ETCFILES = $(ETCFILES_1) +endif + +#ICONS = $(wildcard icons/*.xpm) +ICONS = icons/*.xpm + +ESSR_UTIL_FILES = ESSR/LOADREMOTE +ESSR_CODE_FILES = ESSR/R/*.R ESSR/R/.*.R + +all: + +show-etc: + @echo $(ETCFILES) + ls -l $(ETCFILES) + +install : + $(INSTALLDIR) $(ETCDIR)/icons + $(INSTALLDIR) $(ETCDIR)/ESSR/R + $(INSTALL) $(ETCFILES) $(ETCDIR) + $(INSTALL) $(ICONS) $(ETCDIR)/icons + $(INSTALL) $(ESSR_UTIL_FILES) $(ETCDIR)/ESSR + $(INSTALL) $(ESSR_CODE_FILES) $(ETCDIR)/ESSR/R + chmod +x $(ETCDIR)/ess-sas-sh-command + +uninstall : + -cd $(ETCDIR) && $(UNINSTALL) $(ETCFILES) + -cd $(ETCDIR) && $(UNINSTALL) $(ICONS) + -cd $(ETCDIR) && $(UNINSTALL) $(ESSR_UTIL_FILES) + -cd $(ETCDIR) && $(UNINSTALL) $(ESSR_CODE_FILES) + + + +## 'clean' shall remove *exactly* those things that are *not* in version control +clean distclean: + rm -rf SVN-REVISION +## 'distclean' removes also things in VC (svn, when they are remade by "make"): +# distclean: clean +# rm -rf ESSR_*.tar.gz diff --git a/elpa/ess-20190121.1430/etc/R-ESS-bugs.R b/elpa/ess-20190121.1430/etc/R-ESS-bugs.R new file mode 100644 index 00000000..c28f2f8b --- /dev/null +++ b/elpa/ess-20190121.1430/etc/R-ESS-bugs.R @@ -0,0 +1,961 @@ +#### File showing off things that go wrong or *went* wrong in the past #### -- with R-mode (mostly coded in ../lisp/ess-mode.el ) + +### NOTE: this file is indented with RRR style !!!!! +### but do not change indentations anymore of anything in here: +### expressions are written as we *want* them, not as ESS currently puts them + +options(keep.source = FALSE) # so we see R's deparse() + print() indentation + + +### --- 1 --------- extraneous comment chars : This seems fixed + +## From: Robert Gentleman +## To: Martin Maechler +## Subject: ESS buglet +## Date: Sun, 01 Jul 2007 21:41:24 -0700 + +## Hi Martin, +## It seems that the following buglet exists (at least in what ever +## version I am using) + +##a silly comment +##and a second one +foo <- function(x=a, abc = list("def", a=1,3,3), more.args, and, bla, + blu, bl, + another, plus, yet.another, and_mbasd, + lots = NULL, + more = NULL, + args = NULL) { + x +} + +##- when the line before a function def is a comment, and adding args, +##- then new lines, when generated have a comment char at the beginning of +##- the line. It is slightly annoying as I have to remove the comment char. +##- +##- If I add a blank line after the comment line, then the problem does not +##- occur. +## and another ''anonymous'' function: +function(x=a, abc = list("def", a=c(1,3,3)), more.args, and, bla, blu, + blo, Abc, + def, + another, and_another, and_this) { + ...; ... +} + +## This is a "TRUE" example (from Matrix/tests/ ): +NA.or.True <- function(x) is.na(x) | x + +abc <- function(x, y, ...) this.is.just.a.one.liner(x,y, z=TRUE, ...) + +## A more-liner function with no "{...}" -- this one even works (but not all!) +mindiff <- function(df) df[which.min(df$diff), + which.max(df$daff)] + +## Two functions in one line - can I "send" just one of them? {no, not "simply"} +f1 <- function(x) be.friendly(x, force=TRUE); f2 <- function(x,y) x*sin(pi*x) + +### --- 2 ---------------------------------------------------------------- +### --- Suggestion (Jenny Brian): --> Create a (defun ess-eval-multiline .) +## Here is useful valid R "test code": + +## From 'example(plot.default)' : + +Speed <- cars$speed +Distance <- cars$dist +plot(Speed, Distance, panel.first = grid(8,8), + pch = 0, cex = 1.2, col = "blue") +pp <- plot(Speed, Distance, panel.first = grid(8,8), + pch = 0, cex = 1.2, col = "blue") +plot(Speed, Distance, + panel.first = lines(lowess(Speed, Distance), lty = "dashed"), + pch = 0, cex = 1.2, col = "blue") + +## Note: We now at least C-c C-c {ess-eval-function-or-paragraph-and-step} + +### --- 3 ---------------------------------------------------------------- +###--- This one (from the Matrix package) is for testing ess-roxy..., +## i.e., C-c C-o + +## not exported but used more than once for "dimnames<-" method : +## -- or do only once for all "Matrix" classes ?? +dimnamesGets <- function (x, value) { + d <- dim(x) + if (!is.list(value) || length(value) != 2 || + !(is.null(v1 <- value[[1]]) || length(v1) == d[1]) || + !(is.null(v2 <- value[[2]]) || length(v2) == d[2])) + stop(gettextf("invalid dimnames given for '%s' object", class(x))) + x@Dimnames <- list(if(!is.null(v1)) as.character(v1), + if(!is.null(v2)) as.character(v2)) + x +} + +### --- 4 ---------------------------------------------------------------- +### continued statements +a <- function(ch) { + if(ch == Inf) { + E.cond <- numeric(nb) + } + else { + indic <- ifelse(jinf+1 <= 1 & jsup >= 1,1,0) + E.cond <- ch*(-pbinom(jinf,ni,prb) + 1-pbinom(js.n,ni,prb)) + + ifelse(ni == 1, prb*indic, + mu*(pbinom(js.n-1,pmax(ni-1,1),prb) - + pbinom(jinf-1,pmax(ni-1,1),prb))) / sV - +### ^-- now here (better) + mu/sV*(pbinom(js.n,ni,prb) - pbinom(jinf,ni,prb)) +### ^-- now here (ok; more indentation would also be ok) + indic2 <- ifelse(jinf+1 <= 1 & jsup >= 1 & ni == 2,1,0) + } +} + + +### --- 5 ---------------------------------------------------------------- +### The beginning of function is not found correctly, and hence +### all "ess-*-function" (C-M-a, C-M-e, ...) fail: + +setMeneric <- + ## It is clearly allowed to have comments here. + ## S version 4, and John Chambers in particular like it. + ## + ## BUG: M-C-e or M-C-a fails from ``here'' -- + ## --- effectively because of ess-beginning-of-function fails + ## and that really relies on finding ess-function-pattern; + ## i.e., ess-R-function-pattern in ~/emacs/ess/lisp/ess-cust.el + ## + function(name, def = NULL, group = list(), valueClass = character(), + where = topenv(parent.frame()), genericFunction = NULL) +{ + ## comments in here are at least kept via "source" attribute + if(exists(name, "package:base") && + typeof(get(name, "package:base")) != "closure") { + FALSE + } + "ABC" +} + +### --- 6 ---------------------------------------------------------------- +## In one-liners without "{ ... }" body, the end-of-function is also +## not correctly found: +## Use C-M-e to see: In these two, the "end-of-function" is after +## 'class' : +## ---- these all work now (ESS version 5.3.8) : +## no it doesn't VS[10-03-2012|ESS 12.03]: +onelinerFails <- function(x, ...) class(x) + +onelinerFailsToo <- + function(x, ...) + class(x) + +onelinerWorks <- function(x, ...) { class(x) } + +onelinerWorksToo <- + function(x, ...) { + class(x) + } + +### --- 7 ---------------------------------------------------------------- +## idem: +## this has one line more before 'function' than "typically:" +setMethod("[", signature(x = "dgTMatrix", i = "numeric", j = "missing", + drop = "logical"), + function (x, i, j, ..., drop) { ## select rows + storage.mode(i) <- "integer" + xi <- x@i + 1:1 # 1-indexing + ## ................... + if (drop && any(nd == 1)) drop(as(x,"matrix")) else x + }) + +### --- 8 ---------------------------------------------------------------- +## idem: +## all bellow are ok VS[10-03-2012|ESS 12.03]: +"dimnames<-.data.frame" <- function(x, value) { + d <- dim(x) + if(!is.list(value) || length(value) != 2 + || d[[1]] != length(value[[1]]) + || d[[2]] != length(value[[2]])) + stop("invalid 'dimnames' given for data frame") + row.names(x) <- as.character(value[[1]]) # checks validity + names(x) <- as.character(value[[2]]) + x +} + +'[.foo' <- function(x, i, value) +{ +### + y <- x + y[i] <- value + y +} + +'[[.bar' <- function(x, i, value) +{ + ## bla bla bla + y <- as.foo(x) ; y[[i]] <- value + y +} + +"[<-.foobar" <- function(x,i,j,value) { + ## just something + x +} + +"names<-.foobar" <- function(x, value) { + ## just something else + x +} + +`[<-.data.frame` <- function(x, i, j, value) +{ + nA <- nargs() # value is never missing, so 3 or 4. + +###.......... + + class(x) <- cl + x +} + +"[[<-.data.frame"<- function(x, i, j, value) +{ + cl <- oldClass(x) + ## delete class: Version 3 idiom + ## to avoid any special methods for [[<- + class(x) <- NULL + +###........... + + class(x) <- cl + x +} + + +"$<-.data.frame" <- function(x, i, value) +{ + cl <- oldClass(x) + ## delete class: Version 3 idiom + ## to avoid any special methods for [[<- + +###........... + + class(x) <- cl + return(x) +} + +## swanky functions: +`swank:quit-inspector` <- function(slimeConnection, sldbState) { + resetInspector(slimeConnection) + FALSE +} + +'swank:quit-inspector' <- function(slimeConnection, sldbState) { + resetInspector(slimeConnection) + FALSE +} + + +### --- 9 ---------------------------------------------------------------- +## VS[03-2012|12.03]:FIXED: + +## From: "Sebastian P. Luque" +## To: ess-bugs@stat.math.ethz.ch +## Subject: [ESS-bugs] ess-mode 5.12; `ess-indent-line' error +## Date: Tue, 17 Aug 2010 13:08:25 -0500 + +## With the following input, and point on the line with "Table 8.3": +## it was the parenthetical expression at the beg of line + +if (require(lme4)) { + ## Model in p. 213 + (fm1 <- lmer(logFEV1 ~ age + log(height) + age0 + log(height0) + (age | id), + data=fev1, subset=logFEV1 > -0.5)) + ## Table 8.3 + VarCorr(fm1)$id * 100 + + ## Model in p. 216 + (fm2 <- update(fm1, . ~ . - (age | id) + (log(height) | id))) +} + +### ----- +## hitting TAB (`ess-indent-command'), which calls `ess-indent-line' I get +## the following trace: + +## ....: (scan-error "Containing expression ends prematurely" 20 20) +## scan-sexps(177 -2) +## forward-sexp(-2) +## ... +## ess-continued-statement-p() +## ...... + +## Interestingly, if the lines 2-4 are absent, then the problem is gone. +## The problem is also there in ESS 5.11. + +## I'll try to find out what is going on in `ess-continued-statement-p' but +## given that I'm not very familiar with the stuff in ess-mode.el, I'm +## submitting the report in case somebody can detect the issue sooner. + +## another example: hitting Tab at }else line +.essDev_differs <- function(f1, f2){ + if (is.function(f1) && is.function(f2)){ + !(identical(body(f1), body(f2)) && identical(args(f1), args(f2))) + }else + !identical(f1, f2) +} + + + +### --- 10 --------------------------------------------------------------- +## indent at 0 after }else: +## VS:[03-2012|12.03]:FIXED: +if (is.function(f1) && is.function(f2)){ + !(identical(body(f1), body(f2)) && identical(args(f1), args(f2))) +}else + !identical(f1, f2) + + +### --- 11 --------------------------------------------------------------- +## --------------- C-c C-c was finding the wrong "beginning of function" +## [:FIXED:, 2011-05-28] +foobar <- function(...) {} +rm(list=ls()) + +##--------> consequence of the above experiments: +## the 2nd form is numerically "uniformly better" than the first +##--------> 2011-05-27: Change Frank's psiInv() to +## psiInv = function(t,theta) +## -log1p(exp(-theta)*expm1((1-t)*theta)/expm1(-theta)) + +### --- 12 --------------------------------------------------------------- +##--- In the following block, in the first line, C-c C-c does *NOT* behave +## VS[10-03-2012|ESS 12.03]: works fine for me: +th <- 48 # now do ls() and see what happened ... the horror !!! +d <- 3 +cpF <- list("Frank", list(th, 1:d)) +cop <- acF <- cpF$copula + +### --- 13 --------------------------------------------------------------- +## VS[05-05-2012|ESS 12.04]: looks like :FIXED: + +## From: Aleksandar Blagotic +## To: +## Subject: [ESS] R-mode: forward-sexp: Scan error: "Unbalanced parentheses" +## Date: Tue, 6 Dec 2011 01:24:11 +0100 + # +## Let's presuppose that I have a function like this: + # +fn <- function(x, ...){ + re <- "^#{1,6} [[:print:]]+$" + grepl(re, x, ...) +} +## As soon as I put my cursor at the end of the line with regexp, and +## press RET, I get this error: + +## forward-sexp: Scan error: "Unbalanced parentheses" +## +##------- +## Rodney S: I can reproduce it ... +## Martin M: I can NOT reproduce it, neither with 'emacs -Q'; +## tried both ESS 5.14 and ESS from svn +## VS[03-2012|12.03]: Cannot reproduce it either, solved? + + +### --- 14 --------------------------------------------------------------- +## check the behavior of ess-arg-function-offset-new-line + +a <- some.function( + arg1, + arg2) +## ^--- RRR has ess-arg-function-offset-new-line (4) ==> should indent here + +a <- some.function(arg1, + arg2) +## ^--- here + + +### --- 15 -------------------------------------------------------------- +## VS[05-05-2012|ESS 12.04]:FIXED: +## indentation of the 3rd line is wrong +for(s in seq(10, 50, len = 5)) + for(a in seq(.5, 1, len = 5)) + pt_dif_plot(s, a) +## ^-- here + +### --- 16 ---- +## VS[05-05-2012|ESS 12.04]:FIXED: +## MM[2014-04-28]: added '}' before else (=> "{" after if(.)) +## so parse() works at all! +## Gives error unbalanced para at else lines and indentation is wrong +## error: Point is not in a function according to 'ess-function-pattern'. +getOrCreateForm <- function(bindName, whereEnv) + if(exists(bindName, envir = get(".forms", envir = whereEnv))) { + get(bindName, envir = whereEnv) +### ^-- here + } else + new("protoForm") +### ^-- here + + + +parentContainer <- + if(is.null(.getPrototype(.Object@host))) { emptyenv() + } else sdf +### ^-- here + +parentContainer <- + if(is.null(.getPrototype(.Object@host))) emptyenv() + else sdf +### ^-- here + +### --- 17 --- +## Indentation ----- "expression" is special +expremmion <- c(1, 3, + 9876)# was always ok +## Had wrong indentation here: +expression <- c(2343, + 23874, 239487) + +## or here: +foo <- function(x) { + expression <- c(2343, + 23874, 239487) + 10 + expression +} + +## Where as here, we *do* want the indentation to +## *NOT* go all the way to the right: + +{ + my.long.Expression <- expression( + x[a[j]] == exp(theta[1] + theta[2]^2), + x[b[i]] == sin(theta[3] ~~ theta[4]) + ) + ausdruck <- expression + my.long.Expr...... <- ausdruck( + x[a[j]] == exp(theta[1] + theta[2]^2), + ) +} + +## VS[18-08-2012]: redundant feature. This is a feature for long subexpressions +## imidiately folowing new line. Documented in ess-arg-function-offset-new-line + +### --- 18 --- +## M-C-a (beginning of function) +## ----- anywhere inside the following function, M-C-a must go to beginning +Ops.x.x <- function(e1, e2) +{ + d <- dimCheck(e1,e2) + if((dens1 <- extends(c1 <- class(e1), "denseMatrix"))) + gen1 <- extends(c1, "generalMatrix") + if((dens2 <- extends(c2 <- class(e2), "denseMatrix"))) + gen2 <- extends(c2, "generalMatrix") + if(dens1 && dens2) { ## both inherit from ddense* + geM <- TRUE + if(!gen1) { + if(!gen2) { ## consider preserving "triangular" / "symmetric" + geM <- FALSE + le <- prod(d) + isPacked <- function(x) length(x@x) < le + } + } + ## now, in all cases @x should be matching & correct {only "uplo" part is used} + r <- callGeneric(e1@x, e2@x) + if(geM) + new(paste0(.M.kind(r), "geMatrix"), x = r, Dim = d, Dimnames = dimnames(e1)) + else + new(paste0(.M.kind(r), Mclass), x = r, Dim = d, .....) + } + else { + r <- .... + + ## criterion "2 * nnz(.) < ." as in sparseDefault() in Matrix() [./Matrix.R] : + if(2 * nnzero(r, na.counted = TRUE) < prod(d)) + as(r, "sparseMatrix") else r + } +} + + +### --- 19 --- +## indentation with regexp (bug in ess-backward-to-noncomment) +parse_roc <- function(lines, match = "^\\s*+\' ?") { + lines <- lines[str_detect(lines, match)] + if (length(lines) == 0) return(NULL) +### ^-- here (2014-11: fixed) +} + + +### --- 20 --- +## continuation indentation must be consistent in/out {}: + +{ + a <- ggplot(data = overtime.by.month, + aes(x="", y=Percent, fill = Overtime)) + + geom_bar(width = 1) + + xlab('') + + ylab(sub.txt) + + labs(title = title.txt) + + facet_wrap(~Year.Month) +} + +a <- ggplot(data = overtime.by.month, + aes(x="", y=Percent, fill = Overtime)) + + geom_bar(width = 1) + + xlab('') + + ylab(sub.txt) + + labs(title = title.txt) + + facet_wrap(~Year.Month) +### ^-- face_wrap must be here + + +### --- 20b --- +## From https://github.com/emacs-ess/ESS/issues/120 + +mean(rnorm(100, mean = runif(1, 1, 10)), na.rm =TRUE) + + 2 +## ^--- 2 is here + +mean(rnorm(100, mean = runif(1, 1, 10)), + na.rm =TRUE) + + 2 +## ^--- 2 is here + +mean(rnorm(100, + mean = runif(1, 1, 10)), na.rm=TRUE) + + 2 +## ^--- 2 is here + +### --- 21 --- + +## From: Marius Hofert +## Date: Fri, 15 Mar 2013 21:00:45 +0100 +## Hi, +## The following bug happens in ESS 12.09-2 [rev. 5395 (2013-01-10)]. Put the +## cursor in the line before the function head and hit C-c C-c. + +foo <- function(x) + x # bar +x <- 1:10 + +## I'll see +## > + > [1] 1 2 3 4 5 6 7 8 9 10 +## ESS 15.03: Error in eval(expr, .... : object 'x' not found + +foo <- function(x) x*x +bar <- function(y) y +## via C-c C-c leads to "Error: object 'bar' not found". -- fixed + + +### --- 22 ---- +## now correct indentation (inspite of # {was same reason as 19}) +if (!grepl("#", x)) + return(res) + +### --- 23 ---- +### three ways to indent closing parent depending on context: +foo <- + function_call( + a, + b, + c + ) +### ^-- ) is here now + +foo <- function_call( + a, + b, + c +) +### ")" is at column 0 + +foo <- function_call(a, + b, + c + ) +### ^-- ) is here + +### --- 24 --- +### shift comma in function calls + +foo <- function_call(a + , b + , c +### ^-- c is here + ) +### ^-- ) is here + +### --- 25 --- +## if/else in function calls and nested + +function_call(abc = + if (test) + do_something + else + do_something_else) + +function_call( + abc = + if (test) + do_something + else + do_something_else) + + +function_call(abc = if (test) + do_something + else + do_something_else) + +## real example is smooth.spline() source code [still (2015-04-08) wrong / bug!] +ss <- function (x, all.knots, nknots, ...) +{ + if (all.knots) { + if (!missing(nknots) && !is.null(nknots)) + warning("'all.knots' is TRUE; 'nknots' specification is disregarded") + nknots <- nx + } else if (is.null(nknots)) # <- for back compatibility + nknots <- .nknots.smspl(nx) + else { +### ^ want 'else' there + if (is.function(nknots)) + nknots <- nknots(nx) + else if (!is.numeric(nknots)) + stop("'nknots' must be numeric (in {1,..,n})") + if (nknots < 1) + stop("'nknots' must be at least 1") + else if (nknots > nx) + stop("cannot use more inner knots than unique 'x' values") + } +### ^-- want '}' there +} + +## "if" conditional is an exception of the continuation rules: +## Here, we do not want subsequently further indentation of the c1 || c2 || c3 +## part: +t2 <- function(x) { + if(long.expression.of.some.size(x, pi) || + another.longish.expression(sin(x)*exp(x)) || + a.third.condition.under.which.A.is.chosen) +### ^-- here + A + else + B +} + + +r <- + (some.function (x, 2342) + + another.f (x^3) + sdfsdf - sdfsdf + + and(x) + the(x) - last(x)*part(3)) + + +### --- 26 ---- +## This is formally correct R, though help(parse) mentions the line-length limit of +## 4095 __when reading from the console__ +## ESS gives syntax errors ("Error: unexpected ','" ...) when evaluating this +## because line length >= 4096 : +## +x <- c(1, 3.075819, 1.515999, 2.156169, 1.480742, 1.765485, 1.460206, 1.603707, 1.427429, 1.504712, 1.334528, 1.48297, 1.355308, 1.383867, 1.319241, 1.36065, 1.307467, 1.365596, 1.255259, 1.352741, 1.239381, 3.15342, 1.799889, 2.258497, 1.688312, 1.906779, 1.548203, 1.724785, 1.500873, 1.573442, 1.417137, 1.540805, 1.395945, 1.472596, 1.394247, 1.377487, 1.337394, 1.369354, 1.333378, 1.3181, 1.313813, 1.315528, 2.12777, 2.718898, 1.993509, 2.220433, 1.820585, 1.97782, 1.672455, 1.770151, 1.587478, 1.685352, 1.539295, 1.584536, 1.499487, 1.50702, 1.41952, 1.449058, 1.393042, 1.432999, 1.369964, 1.400997, 1.333824, 2.950549, 2.145387, 2.382224, 1.927077, 2.032489, 1.8371, 1.877833, 1.710891, 1.756053, 1.620778, 1.657761, 1.558978, 1.56257, 1.508633, 1.534406, 1.46709, 1.468734, 1.432529, 1.455283, 1.386975, 1.417532, 2.229573, 2.494447, 2.016117, 2.190061, 1.877996, 1.978964, 1.767284, 1.836948, 1.677372, 1.743316, 1.616383, 1.655964, 1.55484, 1.594831, 1.502185, 1.543723, 1.467005, 1.491123, 1.44402, 1.446915, 1.401578, 2.580264, 2.109121, 2.240741, 1.944719, 2.043397, 1.821808, 1.89725, 1.748788, 1.786988, 1.659333, 1.697012, 1.610622, 1.616503, 1.538529, 1.562024, 1.499964, 1.529344, 1.474519, 1.483264, 1.441552, 1.434448, 2.165233, 2.320281, 2.007836, 2.086471, 1.884052, 1.950563, 1.76926, 1.843328, 1.708941, 1.741039, 1.627206, 1.644755, 1.580563, 1.593402, 1.527312, 1.568418, 1.501462, 1.502542, 1.464583, 1.467921, 1.431141, 2.340443, 2.048262, 2.161097, 1.926082, 1.995422, 1.81446, 1.853165, 1.738533, 1.784456, 1.679444, 1.696463, 1.612931, 1.629483, 1.548186, 1.580026, 1.52198, 1.531111, 1.482914, 1.484824, 1.442726, 1.447838, 2.093386, 2.185793, 1.948989, 2.02804, 1.867137, 1.907732, 1.771923, 1.800413, 1.691612, 1.720603, 1.642705, 1.649769, 1.589028, 1.598955, 1.539759, 1.55096, 1.503965, 1.50703, 1.471349, 1.469791, 1.436959, 2.218315, 1.997369, 2.041128, 1.887059, 1.928524, 1.79626, 1.827538, 1.716748, 1.735696, 1.658329, 1.664211, 1.599286, 1.611511, 1.553925, 1.562637, 1.516805, 1.529894, 1.476064, 1.482474, 1.453253, 1.458467, 2.0247, 2.07899, 1.921976, 1.949376, 1.824629, 1.851671, 1.744713, 1.765647, 1.683525, 1.685592, 1.625113, 1.624961, 1.571921, 1.581223, 1.535257, 1.537464, 1.497165, 1.504879, 1.468682, 1.469319, 1.448344, 2.092315, 1.941412, 1.969843, 1.844093, 1.866133, 1.766145, 1.783829, 1.703613, 1.709714, 1.646078, 1.654264, 1.594523, 1.598488, 1.545105, 1.555356, 1.514627, 1.521353, 1.483958, 1.487677, 1.449191, 1.459721, 1.958987, 1.985144, 1.87739, 1.879643, 1.786823, 1.799642, 1.720015, 1.724688, 1.663539, 1.662997, 1.609267, 1.615124, 1.56746, 1.562026, 1.520586, 1.52503, 1.493008, 1.502496, 1.471983, 1.468546, 1.435064, 1.994706, 1.880348, 1.894254, 1.805827, 1.815965, 1.744296, 1.743389, 1.665481, 1.681644, 1.624466, 1.626109, 1.584028, 1.5818, 1.54376, 1.547237, 1.504878, 1.515087, 1.479032, 1.47936, 1.450758, 1.45073, 1.892685, 1.91087, 1.825301, 1.827176, 1.745363, 1.746115, 1.693373, 1.701692, 1.648247, 1.637112, 1.594648, 1.592013, 1.554849, 1.55013, 1.522186, 1.520901, 1.492606, 1.493072, 1.460868, 1.46733, 1.440956, 1.92771, 1.835696, 1.841979, 1.775991, 1.766092, 1.703807, 1.708791, 1.654985, 1.655917, 1.602388, 1.611867, 1.570765, 1.573368, 1.53419, 1.529033, 1.506767, 1.503596, 1.481126, 1.471806, 1.444917, 1.451682, 1.850262, 1.855034, 1.778997, 1.789995, 1.718871, 1.717326, 1.667357, 1.666291, 1.619743, 1.631475, 1.582624, 1.58766, 1.546302, 1.545063, 1.512222, 1.517888, 1.489127, 1.487271, 1.466722, 1.463618, 1.444137, 1.8709, 1.794033, 1.80121, 1.736376, 1.740201, 1.673776, 1.682541, 1.638153, 1.642294, 1.604417, 1.597721, 1.559534, 1.559108, 1.533942, 1.529348, 1.499517, 1.501586, 1.473147, 1.473031, 1.457615, 1.452348, 1.805753, 1.812952, 1.746549, 1.747222, 1.696924, 1.694957, 1.652157, 1.650568, 1.607807, 1.613666, 1.577295, 1.570712, 1.543704, 1.538272, 1.515369, 1.517113, 1.487451, 1.491593, 1.464514, 1.464658, 1.439359, 1.823222, 1.758781, 1.767358, 1.70872, 1.712926, 1.666956, 1.667838, 1.62077, 1.621445, 1.592891, 1.58549, 1.55603, 1.559042, 1.521501, 1.523342, 2, 3, 4) + +### --- 27 ---- +## Indentation after open brace +.a.lst <- + list(ex1 = function(p) { + cMah <- qchisq(0.975, p) + function(d) as.numeric(d < cMah) +### ^--- now here (less indented than prev.) + }, + ex2 = function(p) { + cM <- qchisq(0.95, p) + function(d) as.numeric(d < cM) +### ^--- here + }) +### ^--- '}' here + + +.a.lst <- list(ex1 = function(p) { + cMah <- qchisq(0.975, p) + function(d) as.numeric(d < cMah) +}, ## <- now at column 0 {also the next line} +ex2 = function(p) { + cM <- qchisq(0.95, p) + function(d) as.numeric(d < cM) +}) + + +.a.lst <- list(list(aa = { + bbb +### ^--- here +}, +aaa = function(p) { + qchisq(0.95, p) +### ^--- here +}, +aaaa = { + cccc +### ^--- here +})) + +list(function(p){ + abc +### ^-- here + ## <-- Press [Tab] before/at the first '#': should *NOT* insert '...=' +}) +### at column 0 + +(ab) { + sfdsf +### ^-- here +} + +### --- 27b --- [new, 2015-04-09] +print.MethodsFunction <- function(x, byclass = attr(x, "byclass"), ...) +{ + info <- attr(x, "info") + values <- if (byclass) { + unique(info$generic) + } else { + visible <- ifelse(info$visible, "", "*") + paste0(rownames(info), visible) +### ^-- both lines above should start here + } +### ^-- "}" here + + ## 2nd version: + val <- + if (byclass) { + unique(info$generic) + } else { + visible <- ifelse(info$visible, "", "*") + paste0(rownames(info), visible) +### ^-- both lines above should start here + } +### ^-- "}" here + invisible(x) +} + + + +### --- 28 --- [2015-02-17; still unfixed, 2015-11-21] +## Indentation of end-line comments (to column 40 = 'indent-column') +## {this is part of "real" code in Rmpfr/R/hjk.R}: +hjk <- function(x,n) { # <--- C-M-q "on {" -- does *no longer* indent the "# .." + ##-- Setting steps and stepsize ----- + nsteps <- floor(log2(1/tol)) # number of steps + steps <- 2^c(-(0:(nsteps-1))) # decreasing step size + dir <- diag(1, n, n) # orthogonal directions + + x <- par # start point + fx <- f(x) # smallest value so far + fcount <- 1 # counts number of function calls + + if (info) cat(sprintf("step nofc %-12s | %20s\n", + "fmin", "xpar")) + + ##-- Start the main loop ------------ + ns <- 0 + while (ns < nsteps && fcount < maxfeval && abs(fx) < target) { + ns <- ns + 1 + hjs <- .hjsearch(x, f, steps[ns], dir, fcount, maxfeval, target) + } + hjs +} + +### --- 29 --- +foreach(a = 1:3) %do% { + a^2 +### ^--- here +} + +foreach(a = 1:3) %:% + foreach(b = 10:13) %dopar% { +### ^--- here + a + b +### ^---- here + } +### ^--- here + +read.csv('file.csv') %>% + mutate(X = X+2, Y = Y/2) %>% +### ^--- here + filter(X < 5) +### ^-- here (*was* indented earlier) + + +### --- 30 --- +## a) ok: +{ + r <- array(if (d[3L] == 3L) + rgb(t(x[,,1L]), t(x[,,2L]), t(x[,,3L]), maxColorValue = max) + else if (d[3L] == 4L) + rgb(t(x[,,1L]), t(x[,,2L]), t(x[,,3L]), t(x[,,4L]), maxColorValue = max) + else stop("foo"), + dim = d[1:2]) +} + +## b) ok : +{ + obj <- obj && (condition1 || class2 %in% .BasicClasses || + condition3) +} + +## c) ok: +{ + if (any(abs(d) < .001*abs(dd) | + (is.na(d) & x == y))) + TRUE +} + + +### --- 31 -------- +## C-s "recog"; M-C-a -- should go to beginning of function, does not + +glmmTMB <- function (formula, data = NULL) +{ + ## glFormula <- function(formula, data=NULL, family = gaussian, + ## subset, weights, na.action, offset, + ## contrasts = NULL, mustart, etastart, + ## control = glmerControl(), ...) { + + ## FIXME: check for offsets in ziformula/dispformula, throw an error + + call <- mf <- mc <- match.call() + + if (is.null(family$family)) { + print(family) + stop("'family' not recognized") + } +} + + +### --- 32 --- 2015-11-07 --- indentation again! -------- +{ + yl <- if(strictlim) { + ylim + } + else { + range(y, ylim) + } + ## room below for weights + dy <- 4*dy +} +## -- 32 b) +{ + yl <- if(strictlim) { + ylim + } + else + range(y, ylim) + ## continue +} +## -- 32 c) +{ + U <- if(is.matrix(x)) + apply(x, 2, foo) / (nrow(x) + 1) + else + foo(x) / (length(x) + 1) +} +## 'else' now aligns with 'if' (and their code too) + +### --- 33 -- Treat `<<-` as `<-` +{ + f(X <- + callme(arg)) + f(X <<- + callme(arg)) +} +## the 2nd callme() now indents like the first + + +### --- 34 --- "eval-function" (e.g. C-c C-c) fails with this + +##' checking pretty(): +chkPretty <- function(x, n = 5, min.n = NULL, ..., max.D = 1) { + if(is.null(min.n)) { + ## work with both pretty.default() and greDevices::prettyDate() + ## *AND* these have a different default for 'min.n' we must be "extra smart": + min.n <- + if(inherits(x, "Date") || inherits(x, "POSIXt")) + n %/% 2 # grDevices:::prettyDate + else + n %/% 3 # pretty.default + } + pr <- pretty(x, n=n, min.n=min.n, ...) + ## if debugging: pr <- grDevices:::prettyDate(x, n=n, min.n=min.n, ...) + stopifnot(length(pr) >= (min.n+1), + abs(length(pr) - (n+1)) <= max.D, + ## must be equidistant [may need fuzz, i.e., signif(.) ?]: + length(pr) == 1 || length(unique(diff(pr))) == 1, + ## pretty(x, *) must cover range of x: + min(pr) <= min(x), max(x) <= max(pr)) + invisible(pr) +} + + +### --- 35 --- indentation of conditional function definitions: +## from a robustbase vignette: +{ + ## calculate robustness weights + lwgts <- Mwgt(lresid, lctrl$tuning.psi, lctrl$psi) + ## function to calculate robustified leverages + tfun <- + if (is.function(attr(estlist$design, 'gen'))) + function(i) { + if (all(is.na(wi <- lwgts[i,]))) wi + else .lmrob.hat(lXs[,,i,lcdn[2]],wi) + } + else +### \-<-- 'else' (and all below) should indent 4 more, 'else' matching the above 'if' + function(i) { + if (all(is.na(wi <- lwgts[i,]))) wi else .lmrob.hat(lX, wi) + } +} + +### --- 36 --- indentation of '#' inside string plus a '#' after that, issue #446 +A <- f("abc") + + f("abc") + f("abc") + + f("abc # abc") + + ## The above is now ok, + f("abc # abc") + # <- comment w/o quotes or hashtag -- fixed now: next line was indented to beginning of line + f("ABCDEF") + + f(g(h("abc # def"), "foo ## bar")) + + f("another") + + +### --- 37 ----------Github issue #432 ---- now fixed +## Indentation after string with "*" +fo4 <- function(x, ...) { + if(length(x) > 0) + warning("Result gave strings of *different* #{characters}") + x + ## 'x' was wrongly indented --here: ^ +} + +### --- 38 ----------Mario Bouguin to ESS-bugs, Nov 21, 2017 ---- +scored <- read.csv(scored_path, comment.char="#") +## writes +## When I'm on the line and execute ess-eval-region-or-function-or-paragraph-and-step (i.e. C-c C-c), R only receives this: +## +## > scored <- read.csv(scored_path, comment.char=" +## + +## MM: but I don't see this, so told him to upgrade ESS (he had 16.10, Windows) + + +### --- 39 --issue ..: problem *only* inside package code [ess-tracebug related] +rm(old,new) +old <- 10 # line 1, use ess-eval-line, i.e., C-c C-j +new <- old+1 # line 2, use ess-eval-line-and-step, i.e., C-c C-n + +### --- 40 --issue ..: new in 18.10(-1) - but ok in git(2018-10-29) +Fedora.ver <- "F28"; biocLibrary <- "/usr/local.nfs/app/R/Bioconductor/library_F28" +cat(sprintf("Fedora version: %s\nBioc. library - where packages are installed now:\n %s\n", + Fedora.ver, biocLibrary)) +## After sending (C-c C-n) the first line, the `*Messages*` buffer shows +Loading line: Fedora.ver <- "F28"; biocLibrary <- "/usr/local.nfs/app/R/Bioconductor/library_F28" +Starting evaluation... +ess-send-string: Not enough arguments for format string +## and the user indeed gets the "Not enough arguments ..." +## message in the minibuffer/message area *and* the R process hangs (with a '+ ') +## expecting the continuation, but inside this buffer, further C-c C-n do nothing! + + +### Local Variables: +### page-delimiter: "^### --- [1-9]" +### End: diff --git a/elpa/ess-20190121.1430/etc/R-ESS-bugs.el b/elpa/ess-20190121.1430/etc/R-ESS-bugs.el new file mode 100644 index 00000000..a5c831c3 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/R-ESS-bugs.el @@ -0,0 +1,91 @@ +;;;; Things that go wrong or *went* wrong in the past +;;;; (from list side) see R-ESS-bugs.R for the R's side. + + + ;;;; 1 ess-get-words-from-vector stumbles over \" +(ess-get-words-from-vector "c('aaa','bbb\"ccc', 'dddd')\n") +;;-> (" " "ccc" "dddd"): SOLVED + + +;;;; 2 ess-get-words-from-vector disregards max.print +;; options(max.print=1000) (warning added to the docs) +(length (ess-get-words-from-vector "as.character(1:10000)\n")) +;;-> 1001 with "max.print" at the end; added a comment in the function doc + +;;;; 3 Inferior-ess-primary-prompt does not capture "+ + > " +;; this hangs emacs; SOLVED +(ess-command "tf<-function(N){ +N}\n") + +;;;; 4 ess-command detects the prompt prematurely +;; this outputs str(iris) in the inferior buffer; SOLVED +(ess-command " +lm_test <- function (formula, data, subset, weights, na.action, method = 'qr', + model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE, + contrasts = NULL, offset, ...) +{ + cl <- match.call() + mf <- match.call(expand.dots = FALSE) + m <- match(c('formula', 'data', 'subset', 'weights', 'na.action', + 'offset'), names(mf), 0L) + mf <- mf[c(1L, m)] + mf$drop.unused.levels <- TRUE + mf[[1L]] <- as.name('model.frame') + mf <- eval(mf, parent.frame()) + if (method == 'model.frame') + return(mf) + else if (method != 'qr') + warning(gettextf('method is not supported. Using', + method), domain = NA) + mt <- attr(mf, 'terms') + y <- model.response(mf, 'numeric') + w <- as.vector(model.weights(mf)) + if (!is.null(w) && !is.numeric(w)) + stop('weights must be a numeric vector') + offset <- as.vector(model.offset(mf)) + if (!is.null(offset)) { + if (length(offset) != NROW(y)) + stop(gettextf('number of offsets is %d, should equal %d (number of observations)', + length(offset), NROW(y)), domain = NA) + } + if (is.empty.model(mt)) { + x <- NULL + z <- list(coefficients = if (is.matrix(y)) matrix(, 0, + 3) else numeric(0L), residuals = y, fitted.values = 0 * + y, weights = w, rank = 0L, df.residual = if (!is.null(w)) sum(w != + 0) else if (is.matrix(y)) nrow(y) else length(y)) + if (!is.null(offset)) { + z$fitted.values <- offset + z$residuals <- y - offset + } + } + else { + x <- model.matrix(mt, mf, contrasts) + z <- if (is.null(w)) + lm.fit(x, y, offset = offset, singular.ok = singular.ok, + ...) + else lm.wfit(x, y, w, offset = offset, singular.ok = singular.ok, + ...) + } + class(z) <- c(if (is.matrix(y)) 'mlm', 'lm') + z$na.action <- attr(mf, 'na.action') + z$offset <- offset + z$contrasts <- attr(x, 'contrasts') + z$xlevels <- .getXlevels(mt, mf) + z$call <- cl + z$terms <- mt + if (model) + z$model <- mf + if (ret.x) + z$x <- x + if (ret.y) + z$y <- y + if (!qr) + z$qr <- NULL + z +} +str(iris) +") + +;;;; 5 double prompt > > used to stall emacs; SOLVED +(ess-command "\n\n\n") diff --git a/elpa/ess-20190121.1430/etc/R-error-patterns.R b/elpa/ess-20190121.1430/etc/R-error-patterns.R new file mode 100644 index 00000000..995d9c43 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/R-error-patterns.R @@ -0,0 +1,71 @@ + +## 1 +Error: chunk 7 (label = OP4) +Error in disp.Rnw:656:31: unexpected symbol +655: par(mgp = c(2.5, 1, 1), mar = c(0, 0, 0, 0), + 656: plt= c(0.08, 0.9, 0.25, 0.p9 +)) + +## 2 +Browse[2]> Error in x %*% y (from models.R#46) : + Cholmod error 'X and/or Y have wrong dimensions' at file ../MatrixOps/cholmod_sdmult.c, line 90 + +## 3 +Error in source("~/works/protoClasses/R/funcs.R") (from hierarchy.R#6) : + ~/works/protoClasses/R/funcs.R:1797:5: unexpected '[[' +1796: b[[2]] <- quote(browser()) +1797: [[ + ^ +## 4 +source("basicModel.R") +Error in source("basicModel.R") : basicModel.R:95:1: unexpected symbol +94: +95: ixQ + ^ + +## 5.a +> + Error in source(file = "/home/vitoshka/works/pbm/R/S4.R") (from #1) : + /home/vitoshka/works/pbm/R/S4.R:36:62: unexpected ')' +35: }, list(vname = as.name(".pix_v")), +36: pname = as.name(".pix_p")))) + ^ + +## 5.b +> + Error in source(file = "/home/vitoshka/works/pbm/R/S4.R") (from #1) : + c:/home/vitoshka/works/pbm/R/S4.R:36:62: unexpected ')' +35: }, list(vname = as.name(".pix_v")), +36: pname = as.name(".pix_p")))) + ^ + +## 6 first line is not a pattern! ++ . + Error in base::source(file = file, echo = echo, local = local, print.eval = print.eval, (from #95) : + /tmp/model_mixture.R@4:5:13: unexpected symbol +4: Mq$DATA$ixs$clust <- data$ixQ +5: Mq + +## 7 don't highlight dates + id lat lon obs_date + Min. : 1.00 Min. :21.57 Min. :-179.88 01/02/1997 04:16:53: 1 + 1st Qu.: 99.25 1st Qu.:24.36 1st Qu.:-147.38 01/02/1997 05:56:25: 1 + Median :197.50 Median :25.64 Median :-119.64 01/04/1997 17:41:54: 1 + Mean :197.50 Mean :27.21 Mean : -21.52 01/05/1997 17:20:07: 1 + 3rd Qu.:295.75 3rd Qu.:27.41 3rd Qu.: 153.66 01/06/1997 04:31:13: 1 + Max. :394.00 Max. :39.84 Max. : 179.93 01/06/1997 06:12:56: 1 + (Other) :388 +## 8 valgrind errors +==25269== Invalid read of size 8 +==25269== at 0x9EC363C: inner_product (stl_numeric.h:183) +==25269== by 0x9EC363C: distance(RcppParallel::RMatrix const&, unsigned long, unsigned long, DistType) (rwmd.cpp:21) +==25269== by 0x9EC90C9: RelaxedWordMoverDistanceSparse::operator()(unsigned long, unsigned long) (rwmd.cpp:137) + +## 9 testhat new patterns +test_embeddings.R:20: failure: average embedding works +embed_vocab(vocab, embs) not equal to embs[, 1:N]. +Attributes: < Length mismatch: comparison on first 1 components > + +test_embeddings.R:59: error: average embedding works with missing values +no 'dimnames' attribute for array +1: expect_equal(e[, "dd"], e[, "ee"]) at /store/Dropbox/dev/mlvocab/tests/testthat/test_embeddings.R:59 +2: quasi_label(enquo(object), label) at /tmp/Rtmp6McxD6/R.INSTALL70c948e315c6/testthat/R/expect-equality.R:51 +3: eval_bare(get_expr(quo), get_env(quo)) at /tmp/Rtmp6McxD6/R.INSTALL70c948e315c6/testthat/R/expectation.R:90 + diff --git a/elpa/ess-20190121.1430/etc/completion_ideas.R b/elpa/ess-20190121.1430/etc/completion_ideas.R new file mode 100644 index 00000000..bb4dc558 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/completion_ideas.R @@ -0,0 +1,30 @@ + +## inspired by: +## https://github.com/rstudio/rstudio/pull/191 + +## nested calls should work +df[a][, |] + +## matrix, list, environments +l <- list(aaaa = 1111, bbbb = 2222) +l[a|] ## -> "aaaa" (quoted!) + +## data table +dt <- data.table(aaaa = 1111, bbbb = 22222) +dt[, a|] # -> aaaa (unquoted!) + +## attributes +x <- "" +attr(x, "foo") <- function(alpha, beta) {} +attr(x, "foo")(al| # -> "alpha" + +## chains +mtcars %>% dplyr::select(mp| #-> mpg (unquoted)) + +## models +lm(mpg ~ cy| , data = mtcars) #-> cyl + +## "by" keyword in data.table, inner_join, etc +inner_join(foo, bar, by = c(| # provides completions for variables in foo when + # on the left side of an =, and bar when on the + # right side of an =. diff --git a/elpa/ess-20190121.1430/etc/ess-julia.jl b/elpa/ess-20190121.1430/etc/ess-julia.jl new file mode 100644 index 00000000..ed770491 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ess-julia.jl @@ -0,0 +1,119 @@ +module ESS + +# These methods have been deprecated / moved +macro current_module() + return VERSION >= v"0.7-" ? :(@__MODULE__) : :(current_module()) +end + +parse = VERSION >= v"0.7-" ? Base.Meta.parse : Base.parse +function_module = VERSION >= v"0.7-" ? Base.parentmodule : Base.function_module + +function all_help_topics() + ## There are not clear topics anymore. Approximate those with a very general + ## apropos(" ") + Base.Docs.apropos(" ") +end + +function help(topic::AbstractString) + VERSION >= v"0.4-" ? Core.eval(@current_module(), parse("@doc $topic")) : Base.Help.help(topic) +end + +## modified version of function show(io::IO, m::Method) +function fun_args(m::Method) + tv, decls, file, line = Base.arg_decl_parts(m) + io = VERSION >= v"0.7-" ? Base.stdout : STDOUT::IO # STDOUT is no longer in 1.0 + if !isempty(tv) + Base.show_delim_array(io, tv, '{', ',', '}', false) + end + print(io, "(") + join(io, [escape_string(isempty(d[2]) ? d[1] : d[1]*"::"*d[2]) for d in decls], + ",", ",") + Base.print(io, ")") +end + +## modified versionof show(io::IO, mt::MethodTable) +function fun_args(f::Function) + mt = Base.MethodList(methods(f).mt) + mod = function_module(f) # Base.function_module deprecated in 0.7 + if mod == Main + mod = "nil" + end + print("(list \"$mod\" nil '(") + for d in mt + print("\"") + ## method + fun_args(d) + print("\" ") + end + print("))") +end + +function fun_args(s::AbstractString) + try + m = Core.eval(@current_module(), parse(s)) + if ! isa(m, String) + fun_args(m) + end + catch + print("(list nil nil nil)") + end +end + +function fun_args(t::DataType) + print("(list nil nil '(") + for d = fieldnames(t) + print("\"$d\" ") + end + print("))") +end + + +### OBJECT COMPLETION +# Must print an output of the form: +# +# Cache Module +# Write Module +# add Function +# free Function +function components(m::Module) + for v in sort(names(m, all=true, imported=true)) + s = string(v) + if !startswith(s, "#") && isdefined(m,v) + println(rpad(s, 30), summary(Core.eval(m,v))) + end + end +end + +function components(t::DataType) + for v in sort(fieldnames(t)) + println(rpad(string(v), 30), "field") + end +end + +function components(v) + t = typeof(v) + if isa(t, DataType) + return components(t) + end +end + + +### MISC +function main_modules(m::Module) + for nm in names(m) + if isdefined(m, nm) + mod = Core.eval(m, nm) + if isa(mod, Module) + print("\"$nm\" ") + end + end + end +end + +if VERSION >= v"0.7-" + main_modules() = main_modules(Base.parentmodule(@current_module())) +else + main_modules() = main_modules(@current_module()) +end + +end diff --git a/elpa/ess-20190121.1430/etc/ess-sas-sh-command b/elpa/ess-20190121.1430/etc/ess-sas-sh-command new file mode 100755 index 00000000..7c1d9101 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/ess-sas-sh-command @@ -0,0 +1,76 @@ +#!/bin/sh + +### (C) 1997, Richard M. Heiberger. +### 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 +## https://www.r-project.org/Licenses/ + + +# For executing SAS, and running it in the proper manner for ESS +# (feeding output back into appropriate ESS buffers). + +#echo $0 $@ +#sas $1 2>$2 $3 + +set -x +stdout=$1 +stderr=$2 +shift 2 +set +x +echo sas \$stdout 2\>$stderr $@ +sas $stdout 2>$stderr $@ + +## From the SAS online tech support: +## +## Redirecting the SAS Log and Output under UNIX. +## +## There are several ways of redirecting the SAS Log and Output under +## UNIX. +## +## To redirect the SAS Log, follow one of these steps: +## +## 1. +## In the source code, place the following line: +## +## proc printto log=stdout; +## +## to make a duplicate copy of the log in a file in addition +## to redirecting it to stdout, use this command to invoke +## SAS: +## +## sas -altlog doit.log doit.sas +## +## 2.Execute SAS in the background and use the UNIX 'tail' command +## to copy lines to stdout as they are added to the log. Use the +## command: +## +## sas doit.sas &; tail -f doit.log +## +## To redirect the SAS Log and Output under the Korn shell, use the +## following command: +## +## sas -stdio < doit.sas > doit.lst 2> doit.log +## +## To redirect the SAS Log and Output under the C-Shell, use the +## following command: +## +## (sas -stdio < doit.sas > doit.lst) >& doit.log + +## From WWW.SAS.COM: +## How can I make SAS in batch mode behave like interactive SAS, +## continue running my SAS job, and not enter syntax check mode when +## it encounters an error? +## +## You can specify the NOSYNTAXCHECK option when you invoke your SAS +## program. diff --git a/elpa/ess-20190121.1430/etc/gpl-check b/elpa/ess-20190121.1430/etc/gpl-check new file mode 100755 index 00000000..a3340b54 --- /dev/null +++ b/elpa/ess-20190121.1430/etc/gpl-check @@ -0,0 +1,56 @@ +#!/bin/sh + +if [ $# -eq 0 -o "$1" = "-h" -o "$1" = "-help" -o "$1" = "--help" ] +then + echo "usage: gpl-check [-h|-help|--help|-2|-3|-u|-n] file1 [file2 ...]" + echo " -h|-help|--help print this help" + echo " -2 print file names found with GPLv2+" + echo " -3 print file names found with GPLv3+" + echo " -u print file names found with a GPL of unknown version" + echo " -n print file names with no GPL found" + echo " file1 [file2 ...] list of files to check" +else + GPLV2=0 + GPLV3=0 + GPLVUNK=0 + NOGPL=0 + + for i + do + case $i in + -2) GPLV2=1;; + -3) GPLV3=1;; + -23) GPLV2=1;GPLV3=1;; + -u) GPLVUNK=1;; + -n) NOGPL=1;; + -nu|-un) GPLVUNK=1;NOGPL=1;; + *) if [ $GPLV2 -eq 0 -a $GPLV3 -eq 0 -a $GPLVUNK -eq 0 -a $NOGPL -eq 0 ] + then + GPLV2=1 + GPLV3=1 + GPLVUNK=1 + NOGPL=1 + fi + if grep -l 'either version 2, or' $i > /dev/null + then + if [ $GPLV2 -eq 1 ] + then echo "$i GPLv2+" + fi + elif grep -l 'either version 3' $i > /dev/null + then + if [ $GPLV3 -eq 1 ] + then echo "$i GPLv3+" + fi + elif grep -l 'GNU General Public License' $i > /dev/null + then + if [ $GPLVUNK -eq 1 ] + then echo "$i GPLv unknown" + fi + else + if [ $NOGPL -eq 1 ] + then echo "$i no GPL" + fi + fi;; + esac + done +fi diff --git a/elpa/ess-20190121.1430/etc/pkg-Maintainers b/elpa/ess-20190121.1430/etc/pkg-Maintainers new file mode 100644 index 00000000..28537cdf --- /dev/null +++ b/elpa/ess-20190121.1430/etc/pkg-Maintainers @@ -0,0 +1,3 @@ +Debian: Dirk Eddelbuettel +RPM: Tom Moertel +SuSe: Detlef Steuer diff --git a/elpa/ess-20190121.1430/license.info b/elpa/ess-20190121.1430/license.info new file mode 100644 index 00000000..2bf932c3 --- /dev/null +++ b/elpa/ess-20190121.1430/license.info @@ -0,0 +1,17 @@ +This is license.info, produced by makeinfo version 6.5 from +license.texi. + +The source and documentation of ESS 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. + + ESS 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 in +the file COPYING in the same directory as this file for more details. + + +Tag Table: + +End Tag Table diff --git a/elpa/ess-20190121.1430/mailing.info b/elpa/ess-20190121.1430/mailing.info new file mode 100644 index 00000000..550b538a --- /dev/null +++ b/elpa/ess-20190121.1430/mailing.info @@ -0,0 +1,21 @@ +This is mailing.info, produced by makeinfo version 6.5 from +mailing.texi. + +There is a mailing list for discussions and announcements relating to +ESS. Join the list by sending an e-mail with "subscribe ess-help" (or +"help") in the body to ; contributions +to the list may be mailed to . Rest assured, +this is a fairly low-volume mailing list. + + The purposes of the mailing list include + + * helping users of ESS to get along with it. + * discussing aspects of using ESS on Emacs and XEmacs. + * suggestions for improvements. + * announcements of new releases of ESS. + * posting small patches to ESS. + + +Tag Table: + +End Tag Table diff --git a/elpa/ess-20190121.1430/make-regexp.el b/elpa/ess-20190121.1430/make-regexp.el new file mode 100644 index 00000000..406d9ddb --- /dev/null +++ b/elpa/ess-20190121.1430/make-regexp.el @@ -0,0 +1,238 @@ +;;; make-regexp.el --- generate efficient regexps to match strings. + +;; Copyright (C) 1994, 1995 Simon Marshall. + +;; Author: Simon Marshall +;; Keywords: lisp, matching +;; Version: 1.02 + +;; LCD Archive Entry: +;; make-regexp|Simon Marshall|simon@gnu.ai.mit.edu| +;; Generate efficient regexps to match strings.| +;; 11-Jul-1995|1.02|~/functions/make-regexp.el.gz| + +;; The archive is archive.cis.ohio-state.edu in /pub/gnu/emacs/elisp-archive. + +;;; This file is not part of GNU Emacs. + +;;; This program 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 program 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; Purpose: +;; +;; To make efficient regexps from lists of strings. + +;; For example: +;; +;; (let ((strings '("cond" "if" "while" "let\\*?" "prog1" "prog2" "progn" +;; "catch" "throw" "save-restriction" "save-excursion" +;; "save-window-excursion" "save-match-data" +;; "unwind-protect" "condition-case" "track-mouse"))) +;; (concat "(" (make-regexp strings t))) +;; +;; => "(\\(c\\(atch\\|ond\\(\\|ition-case\\)\\)\\|if\\|let\\*?\\|prog[12n]\\|save-\\(excursion\\|match-data\\|restriction\\|window-excursion\\)\\|t\\(hrow\\|rack-mouse\\)\\|unwind-protect\\|while\\)" +;; +;; To search for the above regexp takes about 70% of the time as for the simple +;; (concat "(\\(" (mapconcat 'identity strings "\\|") "\\)") regexp. +;; +;; Obviously, the more the similarity between strings, the faster the regexp: +;; +;; (make-regexp '("abort" "abs" "accept" "access" "array" "begin" "body" "case" +;; "constant" "declare" "delay" "delta" "digits" "else" "elsif" +;; "entry" "exception" "exit" "function" "generic" "goto" "if" +;; "others" "limited" "loop" "mod" "new" "null" "out" "subtype" +;; "package" "pragma" "private" "procedure" "raise" "range" +;; "record" "rem" "renames" "return" "reverse" "select" +;; "separate" "task" "terminate" "then" "type" "when" "while" +;; "with" "xor")) +;; +;; => "a\\(b\\(ort\\|s\\)\\|cce\\(pt\\|ss\\)\\|rray\\)\\|b\\(egin\\|ody\\)\\|c\\(ase\\|onstant\\)\\|d\\(e\\(clare\\|l\\(ay\\|ta\\)\\)\\|igits\\)\\|e\\(ls\\(e\\|if\\)\\|ntry\\|x\\(ception\\|it\\)\\)\\|function\\|g\\(eneric\\|oto\\)\\|if\\|l\\(imited\\|oop\\)\\|mod\\|n\\(ew\\|ull\\)\\|o\\(thers\\|ut\\)\\|p\\(ackage\\|r\\(agma\\|ivate\\|ocedure\\)\\)\\|r\\(a\\(ise\\|nge\\)\\|e\\(cord\\|m\\|names\\|turn\\|verse\\)\\)\\|s\\(e\\(lect\\|parate\\)\\|ubtype\\)\\|t\\(ask\\|erminate\\|hen\\|ype\\)\\|w\\(h\\(en\\|ile\\)\\|ith\\)\\|xor" +;; +;; To search for the above regexp takes less than 60% of the time of the simple +;; mapconcat equivalent. +;; +;; But even small regexps may be worth it: +;; +;; (make-regexp '("and" "at" "do" "end" "for" "in" "is" "not" "of" "or" "use")) +;; => "a\\(nd\\|t\\)\\|do\\|end\\|for\\|i[ns]\\|not\\|o[fr]\\|use" +;; +;; as this is 10% faster than the mapconcat equivalent. + +;; Installation: +;; +;; (autoload 'make-regexp "make-regexp" +;; "Return a regexp to match a string item in STRINGS.") +;; +;; (autoload 'make-regexps "make-regexp" +;; "Return a regexp to REGEXPS.") +;; +;; Since these functions were written to produce efficient regexps, not regexps +;; efficiently, it is probably not a good idea to in-line too many calls in +;; your code, unless you use the following neat trick with `eval-when-compile': +;; +;; (defvar definition-regexp +;; (let ((regexp (eval-when-compile +;; (make-regexp '("defun" "defsubst" "defmacro" "defalias" +;; "defvar" "defconst" "defadvice") t)))) +;; (concat "^(" regexp))) +;; +;; The `byte-compile' code will be as if you had defined the variable thus: +;; +;; (defvar definition-regexp +;; "^(\\(def\\(a\\(dvice\\|lias\\)\\|const\\|macro\\|subst\\|un\\|var\\)\\)") + +;; Feedback: +;; +;; Originally written for font-lock, from an idea from Stig's hl319. +;; Please don't tell me that it doesn't produce optimal regexps; I know that +;; already. But (ideas or) code to improve things (are) is welcome. Please +;; test your code and tell me the speed up in searching an appropriate buffer. +;; +;; Please send me bug reports, bug fixes, and extensions, etc. +;; Simon Marshall + +;; History: +;; +;; 1.00--1.01: +;; - Made `make-regexp' take `lax' to force top-level parentheses. +;; - Fixed `make-regexps' for MATCH bug and new `font-lock-keywords'. +;; - Added `unfontify' to user timing functions. +;; 1.01--1.02: +;; - Made `make-regexp' `let' a big `max-lisp-eval-depth'. + +;; The basic idea is to find the shortest common non-"" prefix each time, and +;; squirrel it out. If there is no such prefix, we divide the list into two so +;; that (at least) one half will have at least a one-character common prefix. + +;; In addition, we (a) delay the addition of () parenthesis as long as possible +;; (until we're sure we need them), and (b) try to squirrel out one-character +;; sequences (so we can use [] rather than ()). + +;;; Code: + +(defun make-regexp (strings &optional paren lax) + "Return a regexp to match a string item in STRINGS. +If optional PAREN non-nil, output regexp parentheses around returned regexp. +If optional LAX non-nil, don't output parentheses if it doesn't require them. +Merges keywords to avoid backtracking in Emacs' regexp matcher." + (let* ((max-lisp-eval-depth (* 1024 1024)) + (strings (let ((l strings)) ; Paranoia---make strings unique! + (while l (setq l (setcdr l (delete (car l) (cdr l))))) + (sort strings 'string-lessp))) + (open-paren (if paren "\\(" "")) (close-paren (if paren "\\)" "")) + (open-lax (if lax "" open-paren)) (close-lax (if lax "" close-paren)) + (completion-ignore-case nil)) + (cond + ;; If there's only one string, just return it. + ((= (length strings) 1) + (concat open-lax (car strings) close-lax)) + ;; If there's an empty string, pull it out. + ((string= (car strings) "") + (if (and (= (length strings) 2) (= (length (nth 1 strings)) 1)) + (concat open-lax (nth 1 strings) "?" close-lax) + (concat open-paren "\\|" (make-regexp (cdr strings)) close-paren))) + ;; If there are only one-character strings, make a [] list instead. + ((= (length strings) (apply '+ (mapcar 'length strings))) + (concat open-lax "[" (mapconcat 'identity strings "") "]" close-lax)) + (t + ;; We have a list of strings. Is there a common prefix? + (let ((prefix (try-completion "" (mapcar 'list strings)))) + (if (> (length prefix) 0) + ;; Common prefix! Squirrel it out and recurse with the suffixes. + (let* ((len (length prefix)) + (sufs (mapcar (lambda (str) (substring str len)) strings))) + (concat open-paren prefix (make-regexp sufs t t) close-paren)) + ;; No common prefix. Is there a one-character sequence? + (let ((letters (let ((completion-regexp-list '("^.$"))) + (all-completions "" (mapcar 'list strings))))) + (if (> (length letters) 1) + ;; Do the one-character sequences, then recurse on the rest. + (let ((rest (let ((completion-regexp-list '("^..+$"))) + (all-completions "" (mapcar 'list strings))))) + (concat open-paren + (make-regexp letters) "\\|" (make-regexp rest) + close-paren)) + ;; No one-character sequence, so divide the list into two by + ;; dividing into those that start with a particular letter, and + ;; those that do not. + (let* ((char (substring (car strings) 0 1)) + (half1 (all-completions char (mapcar 'list strings))) + (half2 (nthcdr (length half1) strings))) + (concat open-paren + (make-regexp half1) "\\|" (make-regexp half2) + close-paren)))))))))) + +;; This stuff is realy for font-lock... + +;; Ahhh, the wonders of lisp... +(defun regexp-span (regexp &optional start) + "Return the span or depth of REGEXP. +This means the number of \"\\\\(...\\\\)\" pairs in REGEXP, optionally from START." + (let ((match (string-match (regexp-quote "\\(") regexp (or start 0)))) + (if (not match) 0 (1+ (regexp-span regexp (match-end 0)))))) + +;; The basic idea is to concat the regexps together, keeping count of the span +;; of the regexps so that we can get the correct match for hilighting. +(defun make-regexps (&rest regexps) + "Return a regexp to match REGEXPS +Each item of REGEXPS should be of the form: + + STRING ; A STRING to be used literally. + (STRING MATCH FACE DATA) ; Match STRING at depth MATCH with FACE + ; and highlight according to DATA. + (STRINGS FACE DATA) ; STRINGS is a list of strings FACE is + ; to highlight according to DATA. + +Returns a list of the form: + + (REGEXP (MATCH FACE DATA) ...) + +For example: + + (make-regexps \"^(\" + '((\"defun\" \"defalias\" \"defsubst\" \"defadvice\") keyword) + \"[ \t]*\" + '(\"\\\\([a-zA-Z-]+\\\\)?\" 1 function-name nil t)) + + => + + (\"^(\\\\(def\\\\(a\\\\(dvice\\\\|lias\\\\)\\\\|subst\\\\|un\\\\)\\\\)[ ]*\\\\([a-zA-Z-]+\\\\)?\" + (1 keyword) (4 function-name nil t)) + +Uses `make-regexp' to make efficient regexps." + (let ((regexp "") (data ())) + (while regexps + (cond ((stringp (car regexps)) + (setq regexp (concat regexp (car regexps)))) + ((stringp (nth 0 (car regexps))) + (setq data (cons (cons (+ (regexp-span regexp) + (nth 1 (car regexps))) + (nthcdr 2 (car regexps))) + data) + regexp (concat regexp (nth 0 (car regexps))))) + (t + (setq data (cons (cons (1+ (regexp-span regexp)) + (cdr (car regexps))) + data) + regexp (concat regexp (make-regexp (nth 0 (car regexps)) + t))))) + (setq regexps (cdr regexps))) + (cons regexp (nreverse data)))) + +;; timing functions removed due to name collisions with Gnus + +(provide 'make-regexp) + +;;; make-regexp.el ends here diff --git a/elpa/ess-20190121.1430/mouseme.el b/elpa/ess-20190121.1430/mouseme.el new file mode 100644 index 00000000..be9cbf7c --- /dev/null +++ b/elpa/ess-20190121.1430/mouseme.el @@ -0,0 +1,355 @@ +;;; mouseme.el --- mouse menu with commands that operate on strings + +;; Copyright (C) 1997 by Free Software Foundation, Inc. + +;; Author: Howard Melman +;; Keywords: mouse, menu + +;; This file is part of GNU Emacs. + +;; GNU Emacs 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. + +;; GNU Emacs 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 +;; https://www.r-project.org/Licenses/ + +;;; Commentary: + +;; This package provides a command `mouse-me' to be bound to a mouse +;; button. It pops up a menu of commands that operate on strings or a +;; region. The string passed to the selected command is the word or +;; symbol clicked on (with surrounding quotes or other punctuation +;; removed), or the region (if either it was just selected with the +;; mouse or if it was active with `transient-mark-mode' on). If the +;; command accepts a region, the selected region (or the region of the +;; word or symbol clicked on) will be passed to the command. + +;; The idea is that for any given string in a buffer you may want to +;; do different things regardless of the mode of the buffer. URLs +;; now appear in email, news articles, comments in code, and in plain +;; text. You may want to visit that URL in a browser or you may just +;; want to copy it to the kill-ring. For an email address you might +;; want to compose mail to it, finger it, look it up in bbdb, copy it to +;; the kill ring. For a word you may want to spell check it, copy it, +;; change its case, grep for it, etc. Mouse-me provides a menu to +;; make this easy. + +;; The menu popped up is generated by calling the function in the +;; variable `mouse-me-build-menu-function' which defaults to calling +;; `mouse-me-build-menu' which builds the menu from the variable +;; `mouse-me-menu-commands'. See the documentation for these +;; functions and variables for details. + +;; To install, add something like the following to your ~/.emacs: +;; (require 'mouseme) +;; (global-set-key [S-mouse-2] 'mouse-me) + +;;; Code: + +(require 'browse-url) +(require 'thingatpt) + +(eval-when-compile (require 'compile)) + +;;;; Variables + +(defgroup mouseme nil + "Popup menu of commands that work on strings." + :prefix "mouse-me-" + :group 'hypermedia) + +(defcustom mouse-me-get-string-function 'mouse-me-get-string + "Function used by `mouse-me' to get string when no region selected. +The default is `mouse-me-get-string' but this variable may commonly +be made buffer local and set to something more appropriate for +a specific mode (e.g., `word-at-point'). The function will be called +with no arguments and with point at where the mouse was clicked. +It can return either the string or to be most efficient, a list of +three elements: the string and the beginning and ending points of the +string in the buffer." + :type 'function + :options '(mouse-me-get-string) + :group 'mouseme) + +(defcustom mouse-me-build-menu-function 'mouse-me-build-menu + "Function used by `mouse-me' to build the popup menu. +The default is `mouse-me-build-menu' but this variable may commonly +be made buffer local and set to something more appropriate for +a specific mode. The function will be called with one argument, +the string selected, as returned by `mouse-me-get-string-function'." + :type 'function + :options '(mouse-me-build-menu) + :group 'mouseme) + +(defvar mouse-me-grep-use-extension 't + "If non-nil `mouse-me-grep' grep's in files with current file's extension.") + +(defcustom mouse-me-menu-commands + '(("Copy" . kill-new) + ("Kill" . kill-region) + ("Capitalize" . capitalize-region) + ("Lowercase" . downcase-region) + ("Uppercase" . upcase-region) + ("ISpell" . ispell-region) + "----" + ("Browse URL" . browse-url) + ("Dired" . dired) + ("Execute File" . mouse-me-execute) + ("Mail to" . compose-mail) + ("Finger" . mouse-me-finger) + ("BBDB Lookup" . mouse-me-bbdb) + "----" + ("Imenu" . imenu) + ("Find Tag" . find-tag) + ("Grep" . mouse-me-grep) + ("Find-Grep" . mouse-me-find-grep) + "----" + ("Apropos" . apropos) + ("Describe Function" . mouse-me-describe-function) + ("Describe Variable" . mouse-me-describe-variable) + ("Command Info" . mouse-me-emacs-command-info) + ("Man Page" . (if (fboundp 'woman) 'woman 'man)) + ("Profile Function" . mouse-me-elp-instrument-function)) + "Command menu used by `mouse-me-build-menu'. +A list of elements where each element is either a cons cell or a string. +If a cons cell the car is a string to be displayed in the menu and the +cdr is either a function to call passing a string to, or a list which evals +to a function to call passing a string to. If the element is a string +it makes a non-selectable element in the menu. To make a separator line +use a string consisting solely of hyphens. + +The function returned from this menu will be called with one string +argument. Or if the function has the symbol property `mouse-me-type' +and if its value is the symbol `region' it will be called with the +beginning and ending points of the selected string. If the value is +the symbol `string' it will be called with one string argument." + :type '(repeat sexp) + :group 'mouseme) + +(put 'kill-region 'mouse-me-type 'region) +(put 'ispell-region 'mouse-me-type 'region) +(put 'capitalize-region 'mouse-me-type 'region) +(put 'downcase-region 'mouse-me-type 'region) +(put 'upcase-region 'mouse-me-type 'region) + +;;;; Commands + +;;;###autoload +(defun mouse-me (event) + "Popup a menu of functions to run on selected string or region." + (interactive "e") + (mouse-me-helper event (lambda (name) + (or (x-popup-menu event (funcall mouse-me-build-menu-function name)) + (error "No command to run"))))) + +;;;; Exposed Functions + +;; Some tests: +;; +;; +;; http://foo.bar.com/sss/ss.html +;; http://www.ditherdog.com/howard/ +;; mailto:howard@silverstream.com +;; howard@silverstream.com +;; +;; import com.sssw.srv.agents.AgentsRsrc; +;; public AgoHttpRequestEvent(Object o, String db, Request r) +;;
    +;; d:\howard\elisp\spoon +;; \howard\elisp\spoon +;; \\absolut\howard\elisp\spoon +;; //absolut/d/Howard/Specs/servlet-2.1.pdf +;; \\absolut\d\Howard\Specs\servlet-2.1.pdf +;; gnuserv-frame. + +(defun mouse-me-get-string () + "Return a string from the buffer of text surrounding point. +Returns a list of three elements, the string and the beginning and +ending positions of the string in the buffer in that order." + (save-match-data + (save-excursion + (let ((start (point)) beg end str p) + (skip-syntax-forward "^ >()\"") + (setq end (point)) + (goto-char start) + (skip-syntax-backward "^ >()\"") + (setq beg (point)) + (setq str (buffer-substring-no-properties beg end)) + ;; remove junk from the beginning + (if (string-match "^\\([][\"'`.,?:;!@#$%^&*()_+={}|<>-]+\\)" str) + (setq str (substring str (match-end 1)) + beg (+ beg (match-end 1)))) + ;; remove URL: from the front, it's common in email + (if (string-match "^\\(URL:\\)" str) + (setq str (substring str (match-end 1)) + beg (+ beg (match-end 1)))) + ;; remove junk from the end + (if (string-match "\\([][\"'.,?:;!@#$%^&*()_+={}|<>-]+\\)$" str) + (setq end (- end (length (match-string 1 str))) ; must set end first + str (substring str 0 (match-beginning 1)))) + (list str beg end))))) + +(defun mouse-me-build-menu (name) + "Return a menu tailored for NAME for `mouse-me' from `mouse-me-menu-commands'." + (list "Mouse Me" (cons "Mouse Me" + (append (list (cons + (if (< (length name) 65) + name + "...Long String...") + 'kill-new) + "---") + mouse-me-menu-commands)))) + +;;;; Commands for the menu + +(defun mouse-me-emacs-command-info (string) + "Look in Emacs info for command named STRING." + (interactive "sCommand: ") + (let ((s (intern-soft string))) + (if (and s (commandp s)) + (Info-goto-emacs-command-node s) + (error "No command named `%s'" string)))) + +(defun mouse-me-describe-function (string) + "Describe function named STRING." + (interactive "sFunction: ") + (let ((s (intern-soft string))) + (if (and s (fboundp s)) + (describe-function s) + (error "No function named `%s'" string)))) + +(defun mouse-me-describe-variable (string) + "Desribe variable named STRING." + (interactive "sVariable: ") + (let ((s (intern-soft string))) + (if (and s (boundp s)) + (describe-variable s) + (error "No variable named `%s'" string)))) + +(defun mouse-me-elp-instrument-function (string) + "Instrument Lisp function named STRING." + (interactive "sFunction: ") + (let ((s (intern-soft string))) + (if (and s (fboundp s)) + (elp-instrument-function s) + (error "Must be the name of an existing Lisp function")))) + +(defun mouse-me-execute (string) + "Execute STRING as a filename." + (interactive "sFile: ") + (if (fboundp 'w32-shell-execute) + (w32-shell-execute "open" (convert-standard-filename string)) + (message "This function currently working only in W32."))) + + +(defun mouse-me-bbdb (string) + "Lookup STRING in bbdb." + (interactive "sBBDB Lookup: ") + (if (fboundp 'bbdb) + (bbdb string nil) + (error "BBDB not loaded"))) + +(defun mouse-me-finger (string) + "Finger a STRING mail address." + (interactive "sFinger: ") + (save-match-data + (if (string-match "\\(.*\\)@\\([-.a-zA-Z0-9]+\\)$" string) + (finger (match-string 1 string) (match-string 2 string)) + (error "Not in user@host form: %s" string)))) + +(defun mouse-me-grep (string) + "Grep for a STRING." + (interactive "sGrep: ") + (require 'compile) + (grep-compute-defaults) + (let ((ext (mouse-me-buffer-file-extension))) + (grep (concat grep-command string + (if mouse-me-grep-use-extension + (if ext + (concat " *" ext) + " *")))))) + +(defun mouse-me-find-grep (string) + "Grep for a STRING." + (interactive "sGrep: ") + (grep-compute-defaults) + (let ((reg grep-find-command) + (ext (mouse-me-buffer-file-extension)) + beg end) + (if (string-match "\\(^.+-type f \\)\\(.+$\\)" reg) + (setq reg (concat (match-string 1 reg) + (if mouse-me-grep-use-extension + (concat "-name \"*" ext "\" ")) + (match-string 2 reg)))) + (grep-find (concat reg string)))) + +;;;; Internal Functions + +(defun mouse-me-buffer-file-extension () + "Return the extension of the current buffer's filename or nil. +Returned extension is a string begining with a period." + (let* ((bfn (buffer-file-name)) + (filename (and bfn (file-name-sans-versions bfn))) + (index (and filename (string-match "\\.[^.]*$" filename)))) + (if index + (substring filename index) + ""))) + +(defun mouse-me-helper (event func) + "Determine the string to use to process EVENT and call FUNC to get cmd." + (let (name sp sm mouse beg end cmd mmtype) + ;; temporarily goto where the event occurred, get the name clicked + ;; on and enough info to figure out what to do with it + (save-match-data + (save-excursion + (setq sp (point)) ; saved point + (setq sm (mark t)) ; saved mark + (set-buffer (window-buffer (posn-window (event-start event)))) + (setq mouse (goto-char (posn-point (event-start event)))) + ;; if there is a region and point is inside it + ;; check for sm first incase (null (mark t)) + ;; set name to either the thing they clicked on or region + (if (and sm + (or (and transient-mark-mode mark-active) + (eq last-command 'mouse-drag-region)) + (>= mouse (setq beg (min sp sm))) + (<= mouse (setq end (max sp sm)))) + (setq name (buffer-substring beg end)) + (setq name (funcall mouse-me-get-string-function)) + (if (listp name) + (setq beg (nth 1 name) + end (nth 2 name) + name (car name)) + (goto-char mouse) + (while (not (looking-at (regexp-quote name))) + (backward-char 1)) + (setq beg (point)) + (setq end (search-forward name)))))) + ;; check if name is null, meaning they clicked on no word + (if (or (null name) + (and (stringp name) (string= name "" ))) + (error "No string to pass to function")) + ;; popup a menu to get a command to run + (setq cmd (funcall func)) + ;; run the command, eval'ing if it was a list + (if (listp cmd) + (setq cmd (eval cmd))) + (setq mmtype (get cmd 'mouse-me-type)) + (cond ((eq mmtype 'region) + (funcall cmd beg end)) + ((eq mmtype 'string) + (funcall cmd name)) + (t + (funcall cmd name))))) + +(provide 'mouseme) + +;;; mouseme.el ends here diff --git a/elpa/ess-20190121.1430/news.info b/elpa/ess-20190121.1430/news.info new file mode 100644 index 00000000..d0e83caa --- /dev/null +++ b/elpa/ess-20190121.1430/news.info @@ -0,0 +1,378 @@ +This is news.info, produced by makeinfo version 6.5 from news.texi. + +Changes and New Features in 19.04 (unreleased): + + * Implement a more reliable check for the process busy state. + Background actions such as completion and directory synchronization + should not block the process and should not cause printing of the + extraneous output to the interpreter. + + * Activate 'goto-address-mode' for url and emal highlighting in + inferior buffers. + + * 'smart-underscore' and 'ess-smart-S-assign-key' have been removed. + Users who liked the previous behavior (i.e. underscore inserting + "<-") should bind 'ess-insert-assign' to the underscore in their + Emacs initialization file. For example, '(define-key + ess-r-mode-map "_" #'ess-insert-assign)' and '(define-key + inferior-ess-r-mode-map "_" #'ess-insert-assign)' will activate it + in all ESS R buffers. + + * ESS major modes are now defined using 'define-derived-mode'. This + makes ESS major modes respect modern conventions such as having + -mode-hook and -mode-map. Users are encouraged + to place customizations under the appropriate mode. + + * New option ess-auto-width controls setting the width option on + window changes. Users can change it to 'frame, 'window, or an + integer. See the docstring for details. 'ess-auto-width-visible' + controls visibility. + + * ESS now respects 'display-buffer-alist'. Users can now use + 'display-buffer-alist' to manage how and where windows appear. See + *Note (ess)Controlling buffer display:: for more information and + examples. + + * 'ess-roxy-mode' can now be enabled in non-R buffers. This is + primarily intended to support roxygen documentation for cpp + buffers. Preview functionality is not supported outside R buffers. + + * ESS[R]: DESCRIPTION files now open in 'conf-colon-mode'. + + * 'ess-style' now has effects when set as a file or directory local + variable. + + * 'ess-default-style' is now obsolete, use 'ess-style' instead. + + * Options for 'ess-gen-proc-buffer-name-function' have been renamed. + ess-gen-proc-buffer-name:projectile-or-simple was renamed to + ess-gen-proc-buffer-name:project-or-simple and + ess-gen-proc-buffer-name:projectile-or-directory was renamed to + ess-gen-proc-buffer-name:project-or-directory. As the name + suggests, these now rely on project.el (included with Emacs) rather + than projectile.el, which is a third-party package. + + * ESS[R] help pages now provide links to other help topics. This is + similar with what you would see with, for example + 'options(help_type = ``html'')' but works with the plain-text + version as well. This only works with 'options(useFancyQuotes = + TRUE)' (the default). + + * 'ess-rdired' buffers now derive from tabulated-list-mode. They + should look better and be a bit faster overall. The size column + now displays object sizes in bytes. + + * ESS removed support for many unused languages. This includes old + versions of S+, ARC, OMG, VST, and XLS. + + The following have been made obsolete or removed, see their +documentation for more detail: + + * Libraries for literate data analysis are obsolete and not loaded by + default. This includes 'ess-noweb', 'ess-swv', and related + functionality like 'Rnw-mode'. Users are encouraged to switch to + one of several other packages that deal with these modes. For + example, polymode , + , or markdown-mode with edit-indirect + . + + * User options for controlling display of buffers. This includes + 'ess-show-buffer-action', 'inferior-ess-same-window', + 'inferior-ess-own-frame', and 'inferior-ess-frame-alist'. See + above about ESS respecting 'display-buffer-alist'. + + * 'inferior-ess-*-start-file' variables. All modes except Stata did + not respect customization of this variable. In order to load a + file on startup, you should put a function on + 'ess-*-post-run-hook'. + + Bug Fixes in 18.10.3: + * More 'Makefile' fixes, notably installing '*.el's. + + Bug Fixes in 18.10.2: + * ESS[R] Fix namespace evaluation in non-installed packages. + Evaluation is directed into GlobalEnv as originally intended. + * 'Makefile' fixes, notably for 'make install' and including full + docs in the tarballs. + + Bug Fixes in 18.10-1: + * New functions 'ess-eval-line-visibly-and-step' ('C-c C-n' and + 'ess-eval-region-or-line-visibly-and-step' ('C-RET') which behave + as the old versions of 'ess-eval-line-and-step' and + 'ess-eval-region-or-line-and-step'. + + Changes and New Features in 18.10: + + * This is the last release to support Emacs older than 25.1. Going + forward, only GNU Emacs 25.1 and newer will be supported. Soon + after this release, support for older Emacs versions will be + dropped from the git master branch. Note that MELPA uses the git + master branch to produce ESS snapshots, so if you are using Emacs < + 25.1 from MELPA and are unable to upgrade, you should switch to + MELPA-stable. + + * ESS now displays the language dialect in the mode-line. So, for + example, R buffers will now show ESS[R] rather than ESS[S]. + + * The ESS manual has been updated and revised. + + * The ESS initialization process has been further streamlined. If + you update the autoloads (which installation from 'package-install' + does), you should not need to '(require 'ess-site)' at all, as + autoloads should automatically load ESS when it is needed (e.g. + the first time an R buffer is opened). In order to defer loading + your ESS config, you may want to do something like + '(with-require-after-load "ess" )' in your Emacs + init file. Users of the popular 'use-package' Emacs package can + now do '(use-package ess :defer t)' to take advantage of this + behavior. *Note (ess)Activating and Loading ESS:: for more + information on this feature. + + * ESS now respects Emacs conventions for keybindings. This means + that The 'C-c [letter]' bindings have been removed. This affects + 'C-c h', which was bound to 'ess-eval-line-and-step-invisibly' in + 'sas-mode-local-map'; 'C-c f', which was bound to + 'ess-insert-function-outline' in 'ess-add-MM-keys'; and 'C-c h', + which was bound to 'ess-handy-commands' in 'Rd-mode-map', + 'ess-noweb-minor-mode-map', and 'ess-help-mode-map' + + * Functions 'ess-eval-line-and-step' and + 'ess-eval-region-or-line-and-step' now behave consistently with + other evaluation function inside a package. + + * ESS[R]: 'ess-r-package-use-dir' now works with any mode. This sets + the working directory to the root of the current package including + for example C or C++ files within '/src'). + + * ESS[R]: Long + + prompts in the inferior no longer offset output. + + * ESS[R]: New option 'strip' for 'inferior-ess-replace-long+'. This + strips the entire + + sequence. + + * ESS modes now inherit from 'prog-mode'. In the next release, ESS + modes will use 'define-derived-mode' so that each mode will have + (for example) its own hooks and keymaps. + + * ESS[R]: Supports flymake in R buffers for Emacs 26 and newer. + Users need to install the 'lintr' package to use it. Customizable + options include 'ess-use-flymake', 'ess-r-flymake-linters', and + 'ess-r-flymake-lintr-cache'. + + * ESS[R]: Gained support for xref in Emacs 25+. *Note (emacs)Xref:: + + * ESS[R]: The startup screen is cleaner. It also displays the + startup directory with an explicit 'setwd()'. + + * ESS[R]: Changing the working directory is now always reflected in + the process buffer. + + * ESS[R]: 'Makevars' files open with 'makefile-mode'. + + * New variable 'ess-write-to-dribble'. This allows users to disable + the dribble ('*ESS*') buffer if they wish. + + * All of the '*-program-name' variables have been renamed to + '*-program'. Users who previously customized e.g. + 'inferior-ess-R-program-name' will need to update their + customization to 'inferior-ess-R-program'. These variables are + treated as risky variables. + + * 'ess-smart-S-assign' was renamed to 'ess-insert-assign'. It + provides similar functionality but for any keybinding, not just + '_'. For instance if you bind it to ';', repeated invokations + cycle through between assignment and inserting ';'. + + * 'C-c C-=' is now bound to 'ess-cycle-assign' by default. See the + documentation for details. New user customization option + 'ess-assign-list' controls which assignment operators are cycled. + + * ESS[R] In remote sessions, the ESSR package is now fetched from + GitHub. + + * Commands that send the region to the inferior process now deal with + rectangular regions. See the documentation of 'ess-eval-region' + for details. This only works on Emacs 25.1 and newer. + + * ESS[R]: Improvements to interacting with iESS in non-R files. + Interaction with inferior process in non-R files within packages + (for instance C or C++ files) has been improved. This is a work in + progress. + + * ESS[R]: Changing the working directory is now always reflected in + the process buffer. + + * ESS[JAGS]: *.jog and *.jmd files no longer automatically open in + JAGS mode. + + Many improvements to fontification: + + * Improved customization for faces. ESS now provides custom faces + for (nearly) all faces used and places face customization options + into their own group. Users can customize these options using 'M-x + customize-group RET ess-faces'. + + * Many new keywords were added to 'ess-R-keywords' and + 'ess-R-modifiers'. See the documentation for details. + + * ESS[R]: 'in' is now only fontified when inside a 'for' construct. + This avoids spurious fontification, especially in the output buffer + where 'in' is a commond English word. + + * ESS: Font-lock keywords are now generated lazily. That means you + can now add or remove keywords from variables like 'ess-R-keywords' + in your Emacs configuration file after loading ESS (i.e. in the + ':config' section for 'use-package' users). + + * ESS[R]: Fontification of roxygen '@param' keywords now supports + comma-separated parameters. + + * ESS[R]: Certain keywords are only fontified if followed by a + parenthesis. Function-like keywords such as 'if ()' or 'stop()' + are no longer fontified as keyword if not followed by an opening + parenthesis. The same holds for search path modifiers like + 'library()' or 'require()'. + + * ESS[R]: Fixed fontification toggling. Especially certain syntactic + elements such as '%op%' operators and backquoted function + definitions. + + * ESS[R]: 'ess-font-lock-toggle-keyword' can be called interactively. + This command asks with completion for a font-lock group to toggle. + This functionality is equivalent to the font-lock menu. + + Notable bug fixes: + + * 'prettify-symbols-mode' no longer breaks indentation. This is + accomplished by having the pretty symbols occupy the same number of + characters as their non-pretty cousins. You may customize the new + variable 'ess-r-prettify-symbols' to control this behavior. + + * ESS: Inferior process buffers are now always displayed on startup. + Additionally, they don't hang Emacs on failures. + + Obsolete libraries, functions, and variables: + + * The 'ess-r-args.el' library has been obsoleted and will be removed + in the next release. Use 'eldoc-mode' instead, which is on by + default. + + * Functions and options dealing with the smart assign key are + obsolete. The following functions have been made obsolete and will + be removed in the next release of ESS: 'ess-smart-S-assign', + 'ess-toggle-S-assign', 'ess-toggle-S-assign-key', + 'ess-disable-smart-S-assign'. + + The variable 'ess-smart-S-assign-key' is now deprecated and will be + removed in the next release. If you would like to continue using + '_' for insterting assign in future releases, please bind + 'ess-insert-assign' in 'ess-mode-map' the normal way. + + * ESS[S]: Variable 'ess-s-versions-list' is obsolete and ignored. + Use 'ess-s-versions' instead. You may pass arguments by starting + the inferior process with the universal argument. + + Changes and New Features in 17.11: + + * The ESS initialisation process has been streamlined. You can now + load the R and Stata modes independently from the rest of ESS. Just + put '(require 'ess-r-mode)' or '(require 'ess-stata-mode)' in your + init file. This is for experienced Emacs users as this requires + setting up autoloads for '.R' files manually. We will keep + maintaining 'ess-site' for easy loading of all ESS features. + + * Reloading and quitting the process is now more robust. If no + process is attached, ESS now switches automatically to one + (prompting you for selection if there are several running). + Reloading and quitting will now work during a debug session or when + R is prompting for input (for instance after a crash). Finally, + the window configuration is saved and restored after reloading to + prevent the buffer of the new process from capturing the cursor. + + * ESS[R]: New command 'ess-r-package-use-dir'. It sets the working + directory of the current process to the current package directory. + + * ESS[R] Lookup for references in inferior buffers has been improved. + New variable 'ess-r-package-source-roots' contains package + sub-directories which are searched recursively during the file + lookup point. Directories in 'ess-tracebug-search-path' are now + also searched recursively. + + * ESS[R] Namespaced evaluation is now automatically enabled only in + the 'R/' directory. This way ESS will not attempt to update + function definitions from a package if you are working from e.g. a + test file. + + Changes and New Features in 16.10: + + * ESS[R]: Syntax highlighting is now more consistent. Backquoted + names are not fontified as strings (since they really are + identifiers). Furthermore they are now correctly recognised when + they are function definitions or function calls. + * ESS[R]: Backquoted names and '%op%' operators are recognised as + sexp. This is useful for code navigation, e.g. with 'C-M-f' and + 'C-M-b'. + * ESS[R]: Integration of outline mode with roxygen examples fields. + You can use outline mode's code folding commands to fold the + examples field. This is especially nice to use with well + documented packages with long examples set. Set + 'ess-roxy-fold-examples' to non-nil to automatically fold the + examples field when you open a buffer. + * ESS[R]: New experimental feature: syntax highlighting in roxygen + examples fields. This is turned off by default. Set + 'ess-roxy-fontify-examples' to non-nil to try it out. + * ESS[R]: New package development command 'ess-r-devtools-ask' bound + to 'C-c C-w C-a'. It asks with completion for any devtools command + that takes 'pkg' as argument. + * ESS[R]: New command 'C-c C-e C-r' to reload the inferior process. + Currently only implemented for R. The R method runs + 'inferior-ess-r-reload-hook' on reloading. + * ESS[R]: 'ess-r-package-mode' is now activated in non-file buffers + as well. + + Bug fixes in 16.10: + * ESS[R]: Fix broken (un)flagging for debugging inside packages + * ESS[R]: Fixes (and improvements) in Package development + * ESS[R]: Completion no longer produces '...=' inside 'list( )'. + * ESS[R]: Better debugging and tracing in packages. + * ESS[R]: Better detection of symbols at point. + * ESS[R]: No more spurious warnings on deletion of temporary files. + * ESS[julia]: help and completion work (better) + * ESS[julia]: available via 'ess-remote' + + Changes and New Features in 16.04: + + * ESS[R]: 'developer' functionality has been refactored. The new + user interface consists of a single command + 'ess-r-set-evaluation-env' bound by default to 'C-c C-t C-s'. Once + an evaluation environment has been set with, all subsequent ESS + evaluation will source the code into that environment. By default, + for file within R packages the evaluation environment is set to the + package environment. Set 'ess-r-package-auto-set-evaluation-env' + to 'nil' to disable this. + * ESS[R]: New 'ess-r-package-mode' This development mode provides + features to make package development easier. Currently, most of + the commands are based on the 'devtools' packages and are + accessible with 'C-c C-w' prefix. See the documentation of + 'ess-r-package-mode' function for all available commands. With + 'C-u' prefix each command asks for extra arguments to the + underlying devtools function. This mode is automatically enabled + in all files within R packages and is indicated with '[pkg:NAME]' + in the mode-line. + * ESS[R]: Help lookup has been improved. It is now possible to get + help for namespaced objects such as pkg::foobar. Furthermore, ESS + recognizes more reliably when you change 'options('html_type')'. + * ESS[R]: New specialized breakpoints for debugging magrittr pipes + * ESS: ESS now implements a simple message passing interface to + communicate between ESS and inferior process. + + Bug fixes in 16.04: + * ESS[R]: Roxygen blocks with backtics are now correctly filled + * ESS[R]: Don't skip breakpoints in magrittr's 'debug_pipe' + * ESS[R]: Error highlighting now understands 'testthat' type errors + * ESS[Julia]: Added getwd and setwd generic commands + + + +Tag Table: + +End Tag Table diff --git a/elpa/ess-20190121.1430/onews.info b/elpa/ess-20190121.1430/onews.info new file mode 100644 index 00000000..2a5a0bc5 --- /dev/null +++ b/elpa/ess-20190121.1430/onews.info @@ -0,0 +1,1523 @@ +This is onews.info, produced by makeinfo version 6.5 from onews.texi. + +Changes and New Features in 15.09: + + * ESS[R]: The indentation logic has been refactored. It should be + faster, more consistent and more flexible. There are three types + of indentation settings, those starting with 'ess-offset-' give the + actual offsets, those starting with 'ess-indent-' are control + (commonly Boolean) variables, and those starting with 'ess-align-' + are vertical alignment overrides which inhibit default offsets in + specific situations. See 'ess-style-alist' for detailed + description of the new indentation system and provided default + indentation styles. + + * ESS[R]: Deprecation of old indentation settings. As a consequence + of the indentation re-factoring 'ess-brace-imaginary-offset', + 'ess-expression-offset' and all delimiter-specific offsets are + deprecated. The settings for indentation of continued statements + have been replaced by 'ess-offset-continuations'. It can be set to + either 'cascade' or 'straight' (the default). + 'ess-arg-function-offset' has been replaced by + 'ess-indent-from-lhs' and has been generalised to assignments. + This setting now works with both statement blocks and expressions + and only takes effect for offsets set to 'prev-call' and + 'open-delim' in order to produce a consistent indentation. + + * ESS: A test framework has been set up. + + * ESS[R]: A new RStudio style is provided to mimic as closely as + possible R files indented via RStudio. To reproduce the setup of + some of the RStudio users, the RStudio- style with + 'ess-offset-arguments' set to 'prev-line' is also provided. In + addition, the new RRR+ style is equivalent to RRR except it indents + blocks in function calls relatively to the opening delimiter. This + style does not try to save horizontal space and produces more + indentation. + + * ESS[R]: Roxygen fields will now be indented on paragraph refilling + in order to make the documentation more readable. You can also + refill commented lines in the 'examples' field without squashing + the surrounding code in the comments. + + * ESS[R]: ESS can now format your code! This is controlled through + the settings 'ess-fill-calls' and 'ess-fill-continuations'. When + activated, '(fill-paragraph)' formats your calls and your + formulas/continuations while making sure they don't go past + 'fill-column'. Repeated refills cycle through different styles + (see the docstrings for more details). By default, the refilled + region blinks. Set 'ess-blink-filling' to nil to prevent this. + + * ESS[R]: Fix occasional missing error location fontification in + inferior buffers. + + * ESS[R]: ess-developer now correctly assigned the environment of new + functions to the package namespace. + + * ESS[Julia]: ?[topic] now works in the *julia* buffer. Note that + support for editing Julia code now depends on 'julia-mode.el' from + the Julia project. If you install ESS from the official + tarball/zip file, 'julia-mode.el' is already included. Otherwise, + if you install ESS by running 'make', then the latest version of + 'julia-mode.el' is downloaded (and so you need an active internet + connection to install) during the installation process. + Alternatively, if you run ESS without running 'make', then ensure + that you have the 'julia-mode.el', which you can get easily from + MELPA for example. + + * iESS: For naming inferior processes, ESS can use 'projectile''s + project root and it does so when + 'ess-gen-proc-buffer-name-function' is set to + 'ess-gen-proc-buffer-name:projectile-or-simple' as by default, or + to another value beginning with + 'ess-gen-proc-buffer-name:projectile-*'. + + Changes and New Features in 15.03-1: + * ESS[R]: An indentation bug has been fixed (github issue 163) + * ESS[R]: On windows, if 'ess-prefer-higher-bit' is non-nil (the + default), then R-newest will try to run a 64 bit (rather than 32 + bit) version of R. + + Changes and New Features in 15.03: + * ESS[R]: Full native support for 'company-mode'. + * ESS[R]: More efficient caching algorithm for R completion. + * ESS: New offset variable 'ess-close-paren-offset' to control the + indentation of the closing parentheses. + * ESS[R]: Ask for CRAN mirror only once per emacs session. + * ESS[R]: Detect 'library' and 'require' calls for better completion + caching. + * Buffer display is now customizable ('ess-show-buffer-action'). + * Use 'y-or-n-p' instead of 'yes-or-no-p' throughout. + * More support for ODS in ess-sas-graph-view. + * Makefiles are now both UNIX and GNU friendly. + * ESS[R]: Simplify directory lookup in 'ess-developer' (#137). + * Make closed paren indentation consistent + + Bug Fixes in 15.03: + * Fix open brace indentation bug (#27 in ess/R-ESS-bugs.R). + * Fix git version lookup + * Don't check directory modtime in R dialect. + * Declare all ess macros for edebug. + * Add 'ess-smart-comma' to eldoc message functions. + * Inform users when retrieving RDA aliases. + * Line ending in '~' is also a continuation line. + * Filing roxy paragraphs works as expected now. + * In 'ess-developer-add-package', remove incorrect 'wait' argument + from 'ess-get-words-from-vector' call. + * Fix #96, #117, #120, #125, #134, #137. + * Fix ess-quit-r. Call base::q() even if it is masked. + * Fix 'ess-show-buffer' to always display the buffer in another + window. + * Makefile: Fix cd bug for directories with spaces in them + * 'ess-kill-buffer-and-go' modified to not restart R + + Changes / Selected Bug Fixes in 14.09: + * ESS[Julia]: Executable is changed to 'julia'. + * ESS[Julia]: Completion and help system was adjusted to Julia + v.0.3.0. Julia v.0.2.x is no more supported. + * ESS[R]: Running R with 'gdb' debugger now works as expected + * iESS: Inferior ESS buffers are now derived from 'comint-mode' + * ESS[R]: 'ess-execute-screen-options' uses correct screen width in + terminal sessions + * ESS: 'ess-build-tags-for-directory' works when no TAGS file name + was provided + * ESS: 'ess-offset-statement-continued' is now respected everywhere + except inside of the 'if' test condition. + * ESS: New variable 'ess-offset-statement-first-continued' for + indentation of the first line in multiline statements. + * ESSR: Starting ',' in multiline statements indentation is now + ignored to achieve a more pleasant alignment. + * ESSR: Improved behavior of 'RET' in roxygen blocks. + * ESS[R]: command cleaning with 'C-u C-u C-y' was broken with lines + containing " + " + * ESS[R]: fixed "empty watch window bug" + * ESS[R]: don't ask for help location on ac-quick-help (request of + github #81) + * ESS[R]: "importClassesFrom" and "importMethodsFrom" were added to + the list of two-parameter roxygen commands + * ESS[R]: fix vignetes display and hyperlinks (were broken in + 13.09-1) + * ESS[Julia]: recognize function names ending with ! + * ESS[Julia]: fix indentation of "for" comprehension syntax within + brackets. + + Changes / Selected Bug Fixes in 13.09-1: + * ess-remote and TRAMP: R support code is now downloaded in binary + form instead of being injected from local machine. The R code is + stored in '~/.config/ESSR/' directory on the remote machine + * TRAMP: PAGER environment variable is now correctly set to + 'inferior-ess-pager' + * retrieval of help topics on remote machines is fixed + * org-babel: source references of R code executed from org files + correctly point to source references in original org files (version + 8.2.1 or higher of org-mode is required for this feature) + * 'ess-execute' is now bound to 'C-c C-e C-e' in 'ess-extra-map'. + * completion works again in 'ess-execute' + * ESS[R]: 'head' and 'tail' methods were replaced by 'htsummary' in + 'ess-R-describe-object-at-point-commands' + * ESS[roxygen]: evaluation commands now work in roxygen blocks. + Leading comments are automatically removed before the evaluation + * ESS[transcript]: 'Clean Region' now works with multiline + statements; 'ess-transcript-clean-region' etc. correctly treat + multiline statements, i.e., no longer forgets the lines typically + preceded by '+' + * ESS[SAS]: Three features/fixes with special thanks to Matthew + Fidler https://github.com/emacs-ess/ESS/pulls/mlf176f2 + (https://github.com/emacs-ess/ESS/pulls/mlf176f2). Turn on SAS log + mode when appropriate. Indent comments and CARDS statement more + appropriately. + * ESS[SAS]: 'ess-sas-edit-keys-toggle' default returns to 'nil' + * ESS[R]: support for 'prettify-symbols-mode': contribution from + Rudiger Sonderfeld + * ESS[SWV]: knitr now evaluates in the current frame + * ESS[developer]: ess-developer doesn't kill open DESCRIPTION files + anymore + * ESS[roxygen]: 'ess-roxy-preview-HTML' is now on 'C-c C-o C-w' and + 'ess-roxy-preview-text' is now on 'C-c C-o C-t' + * ESS: installation with 'make install' was simplified and should + work out of the box on most *nix systems + * ESS installation instructions simplified + * fixed font-lock bug introduced in 13.09 that was causing very slow + process output + + Changes/New Features in 13.09: + * font-lock in process buffers doesn't "spill" over prompts. Missing + closing string delimiters should not cause wrong fontification of + the following command input. + * ESS[julia]: full features M-TAB completion and auto-complete + support, which now works for modules, structures and data types. + * ESS[julia]: a much better eldoc showing arguments of methods and + data type constructors + * ESS-developer: + - ESS-developer work-flow pattern has been streamlined: + ESS-developer is now automatically activated on per-file basis + if the file is part of a developed package + 'ess-developer-packages'. The old behavior (activation on + per-process basis) is still available on 'M-x ess-developer' + in a process buffer. + - integration with 'devtools' package. New command + 'ess-developer-load-package' calls 'load_all' on the package + containing current file. 'ess-developer-add-package' now + offers IDO menu completions with available loading methods, + currently 'library', and 'load_all'. Loading command can be + customized with 'ess-developer-load-on-add-commands'. + * 'TAB' now indents region if region is active (a contribution of + Matthew Fidler in pull #41) + * 'M-x ess-version' now reports full loading path and recognizes git + and ELPA versions. + * warning and error keyword are now highlighted with + 'font-lock-warning-face' as they should be, (for quite some time + these keywords have been hijacked by compilation mode + fontification). + * eldoc: Eldoc now recognizes multiple processes. If current process + is busy, or current buffer is not associated with a process, eldoc + picks its completions from the first available free process. + * org-babel: evaluation is now org-friendly + * help: new help buffers now try to reuse ess-help buffers. This + behavior is controlled by 'ess-help-reuse-window' custom variable. + * help: ?foo pops IDO menu on multiple help files (so far it worked + only for 'C-c C-v') + * remote evaluation is considerably faster now on slow connections + * ESS[R] tracebug R source references regular expressions are + (mostly) language agnostic. + * 'ess-function-call-face' inherits from + 'font-lock-function-name-face' rather than + 'font-lock-builtin-face'. + * 'ess-inject-source' now accepts 'function-and-buffer' option. + * Documentation: The "New Features" section (and 'NEWS') now + represent recent changes: within the last year or so. All changes + can be found in the new news.html (news.html) (or 'NEWS' and + 'ONEWS'). + * ESS[R] 'ess-rep-regexp' should no longer inf.loop (rarely!), and + hence 'M-x ess-fix-miscellaneous' should neither. + + Changes/New Features in 13.05: + * ESS[gretl]: Support for 'gretl' (both editing and sub-process + interaction). A contribution of Ahmadou Dicko. + * ESS: process output display is 4-10 times faster due to new caching + and only occasional emacs re-display (for the moment this + functionality is available only when 'ess-tracebug' is active). + * ESS: 'C-c `' is now bound to 'ess-show-traceback' and 'C-c ~' is + bound to 'ess-show-call-stack'. + * ESS[R]: ESS stores function in 'ESSR' environment to avoid kludging + users' global environment and accidental deletion. + * ESS[R]: new variable 'ess-swv-processing-command' to control + weaving and tangling. + * ESS[R]: 'ess-default-style' has been changed (from 'DEFAULT') to + 'RRR'. Use something like '(setq ess-default-style 'DEFAULT)' or + '(setq ess-indent-level 2)' in your '~/.emacs' equivalent _before_ + loading ESS, if you do not like this new "incompatible" default + style. + * ESS[julia]: ESS stores its functions in 'ESS' module. + * ESS[julia]: Eldoc is now supported in julia modes + * ESS[julia]: Adjusted error reference detection and interactive help + to julia internal changes + * ESS[R]: 'ess-use-tracebug''s default has been changed to 't'. Set + it to nil if you want to keep the previous behavior. + * ESS[tracebug]: Electric debug keys have been removed [breaking + change] The functionality was replaced with 'ess-debug-minor-mode' + and 'ess-debug-minor-mode-map'. + * ESS[tracebug]: 'ess-tracebug-map' is an alias to 'ess-dev-map' 'C-c + C-t'. + * ESS[tracebug]: 'ess-bp-toggle-state' ('C-c C-t o') can now be used + during the debug session to toggle breakpoints on the fly + (suggestion by Ross Boylan). + * ESS[tracebug]: 'ess-debug-flag-for-debugging' and + 'ess-debug-unflag-for-debugging' work correctly from the debugging + contexts. These commands also recognize non-exported functions for + the packages listed in 'ess-developer-packages' ('C-c C-t C-a'). + + * ESS[R]: Eldoc (activated by 'ess-use-eldoc') has become more + sophisticated, and hence also more intruding in the interface + between the Statistics softare, e.g., R, and the user. + + Note that you can turn off ElDoc, by placing '(setq ess-use-eldoc + nil)' in your '~/.emacs' file, prior to loading ESS, + + * ESS[SAS]: long over-looked 'SAS-mode-hook' appears! + * ESS[SAS]: 'ess-sas-edit-keys-toggle' now defaults to 't' since + 'sas-indent-line' is still broken, i.e. 'TAB' is now bound to + 'ess-sas-tab-to-tab-stop' by default + + Changes/Bug Fixes in 12.09-2: + * ESS: new 'ess-switch-to-end-of-proc-buffer' variable that controls + whether 'C-c C-z' switches to the end of process buffer. The + default is 't'. You can use prefix argument to 'C-c C-z' to toggle + this variable. + * ESS: fix in 'ess-eval-linewise' that was causing emacs to hang + during R debugging with 'ess-eval-visibly' equal to 't'. + * ESS: fix in 'ess-eval-linewise' that was causing emacs to recenter + the prompt in visible window + * ESS[tracebug]: A better handling of "Selection" prompts and debug + related singlekey commands. + * ESS: fix a bug in 'ess-switch-process' that was causing '*new*' + selection to fail. + * ESS[R]: Solve missing 'ess-local-process-name' bug in R-dired. + * ESS[SWV]: 'ess-swv-PDF' doesn't ask for a command to run if there + is only one command in 'ess-swv-pdflatex-commands'. + * ESS[SWV]: 'ess-swv-weave' gained an universal argument to allow for + an interactive choice between available weavers (sweave, knitr). + * ESS: 'ess-eval-*-and-step' functions go to next empty line at eob, + instead of staying at the last line. + + Changes/New Features in 12.09-1: + * ESS _Breaking Changes in Keys_: + + - New keymaps: 'ess-doc-map' bound to 'C-c C-d'; 'ess-extra-map' + bound to 'C-c C-e'; 'ess-dump-object-into-edit-buffer' was + moved on 'C-c C-e C-d' + - roxygen map was moved on 'C-c C-o' and 'ess-roxy-update-entry' + now resides on 'C-c C-o C-o' + - ess-handy-commands is not bound anymore + - 'ess-dev-map' (including 'ess-tracebug' and 'ess-developer') + moved on 'C-c C-t' + - 'C-c C-y' is deprecated in favor of 'C-c C-z C-z' + * ESS[R] new command 'ess-describe-object-at-point' bound to 'C-c C-d + C-e' (repeat 'C-e' or 'e' to cycle). It was inspired by Erik + Iverson's 'ess-R-object-tooltip'. Customize + 'ess-describe-at-point-method' to use tooltip instead of an + electric buffer. + * ESS: New command 'ess-build-tags-for-directory' bound to 'C-c C-e + C-t' for building dialect specific tag tables. After building tags + use 'M-.' to navigate to function and objects definitions. By + default 'C-c C-e C-t' builds tags based on imenu regular + expressions and also include other common languages '.c, .o, .cpp' + etc. But it relies on external 'find' and 'etags' commands. If + 'ess-build-tags-command' is defined (for 'R'), the inferior process + is asked to build tags instead. + * ESS: 'ess-switch-process' offers '*new*' alternative to start a new + process instead of switching to one of the currently running + processes. + * ESS: Switching between processes ('C-c C-s') uses buffer names + instead of the internal process names. Use 'M-x rename-buffer' + command to conveniently rename your process buffers. + * ESS: Process buffers can be automatically named on process creation + according to user specified scheme. Default schemes are *proc*, + *proc:dir* and *proc:abbr-long-dir* where 'proc' stands for the + internal process name and 'dir' stands for the directory where the + process was started in. The default is *proc*. For customization + see 'ess-gen-proc-buffer-name-function'. + * ESS: 'ess-eval-visibly-p' is deprecated in favor of + 'ess-eval-visibly'. + * ESS: New evaluation pattern 'nowait'. In addition to old 'nil' and + 't' values, 'ess-eval-visibly' accepts 'nowait' for a visible + evaluation with no waiting for the process. See 'ess-eval-visibly' + for details on evaluation patterns. + * ESS: New "Process" menu entry with process related commands and + configuration + * iESS: Process buffer is now automatically shown on errors + * ESS: New 'ess-switch-to-inferior-or-script-buffer' command bound to + 'C-c C-z' in both script and process buffers. If invoked form + process buffer it switches to the most recent buffer of the same + dialect. It is a single key command. + * ESSR-help: On multiple help pages with the same name, 'C-c C-v' now + asks for user resolution directly in emacs. + * ESS[R] ess-roxy: new variable 'ess-roxy-re' for fontification of + cases where the number of leading '#' differs from 'ess-roxy-str'. + * ESS[R] Eldoc was considerably enhanced. It now finds hidden + default S3 methods and displays non-default methods' arguments + after trailing ||. + * ESS[R]: New 'ess-display-demos' command bound to 'C-c C-d o' and + 'C-c C-d C-o' + * ESS: New 'ess-help-web-search' command bound to 'C-c C-d w' and + 'C-c C-d C-w' to facilitate interactive search of web resources. + Implemented for 'R', 'Stata' and 'Julia'. See also + 'ess-help-web-search-command'. + * ESS: ess-pdf-viewer-pref accepts now command line arguments + * ESS[Rnw]: Add knitr support. Customize 'ess-swv-processor' for the + default processor. + * ESS[Rnw]: More thorough renaming of remaining 'noweb-*' to + 'ess-noweb-*'. + * ESS[Rnw] new commands 'ess-eval-chunk-and-step' and + 'ess-eval-chunk' bound to 'M-n C-c' and 'M-n C-M-x' to mirror + standard ess commands in C-c map. + * ESS[R] Auto-completion: new variable 'ess-ac-R-argument-suffix' to + customize the insertion of trailing "=". Defaults to " = ". + * ESS[Julia]: Added index, apropos and web-search to julia. + * ESS help: More evaluation commands were added to ess-help mode + ('C-c C-c', 'C-M-x' etc) + + Bug Fixes in 12.09-1: + * iESShelp: Multiple help pages with the same name are properly + handled on 'C-c C-v' + * iESSremote: Evaluation with ESS remote no longer freezes emacs. + * iESS: 'comint-previous-prompt' 'C-c C-p' no longer stops on + secondary prompt "+". + * iESS[R], iESS(Sqpe) [S] on Windows: The 'options("editor")' is now + initialized to 'emacsclient' instead of the previous 'gnuclient'. + The user may need to add the line '(server-start)' to the emacs + initialization file. 'emacsclient' has been included with emacs + since GNU Emacs 22.1. + * ESS[Rnw] Fixed "connection to R" bug (in 12.09 only). + * ESS[Rnw] Explicit 'ess-swv-stangle' and 'ess-swv-sweave' functions. + * ESS[Rnw] Fixed completion and smart underscore problems cause by + unmatched "\"' + * ESS[R] is more careful with the 'R' code injection. It now happens + only once at the start of the session. + * ESS[R]: Fixed auto-scrolling the comint buffer on evaluation. + * ESS[Julia]: Solve several indentation and word navigation problems. + * ESS[Julia]: Help system works again. + + Changes/New Features in 12.09: + + * Due to XEmacs lacking some features that ESS requires, ESS support + of XEmacs ends with ESS 12.04-4. This decision will be re-visited + in the future as XEmacs continues to sync with GNU Emacs. + + * ESS[R]: On Windows, there is now a new customizable variable + (currently called 'ess-directory-containing-R') to tell ESS where + to look for the 'Rterm.exe' executables. The name of the variable + and the values it can take are both in beta and subject to change. + Prior to this variable, ESS searched only in the default + installation directory. Setting this variable now tells ESS how to + find 'Rterm.exe' executables when they are installed somewhere + else. + + * ESS[julia]: _new_ mode for editing julia code ('*.jl'). Start with + 'M-x julia'. + + Full interaction interface, imenu and basic error referencing are + available. + + * ESS[R] noweb: 'noweb-mode' and 'noweb-font-lock-mode' have been + renamed to 'ess-noweb-mode' and 'ess-noweb-font-lock-mode' to avoid + conflicts with the "real" 'noweb-mode'. + + * ESS[R] noweb: The long standing font-lock bug has been solved in + 'ess-noweb' interface. + + * ESS: Basic evaluation keys are now bound to 'ess-eval-region-*-' + functions: + + - 'C-M-x' is bound to 'ess-eval-region-or-function-or-paragraph' + - 'C-c C-c' is bound to + 'ess-eval-region-or-function-or-paragraph-and-step' + - 'C-RET' is bound to 'ess-eval-region-or-line-and-step' + + Each of these functions first evaluates the region whenever the + region is active. + + * ESS: 'C-M-a'/'C-M-e' now step to beginning/end of paragraph if no + function has been detected. + + * ESS: 'ess-eval-*-and-step' family of functions are now smarter, and + don't step to end of buffer or end of chunk code ('@') when at the + end of the code. + + * ESS: 'ess-handy-commands' function is bound to 'C-c h' + + * ESS: ESS is now _blinking_ the evaluated region. Set + 'ess-blink-region' to nil to deactivate; 'ess-blink-delay' gives + the duration of the blink. Evaluated region is "blinked" in + 'highlight' face. + + * ESS[R-help] New key 'a' for "apropos()" in help buffers. Also + available through 'C-c h'. + + * ESS[R-help] All R commands of type foo?bar and foo??bar are + recognized and redirected into appropriate *ESS-help* buffers. + + * ESS[R]: New customization interface for _font-lock_. + + ESS font-lock operates with predefined keywords. Default keywords + are listed in 'ess-R-font-lock-keywords' and + 'inferior-R-font-lock-keywords', which see. The user can easily + customize those by adding new keywords. These variables can also + be interactively accessed and saved through 'ESS/Font-lock' + submenu. + + Several new fontification keywords have been added. Most notably + the keywords for highlighting of function calls, numbers and + operators. + + * ESS[R]: auto-complete is now activated by default whenever + auto-complete package is detected. Set 'ess-use-auto-complete' to + nil to deactivate. + * ESS[R]: R AC sources are no longer auto-starting at 0 characters + but at the default 'ac-auto-start' characters. + * ESS no longer redefines default ac-sources, but only appends + 'ac-source-filename' to it. + * ESS: 'ac-source-R' now concatenates " = " to function arguments. + + * ESS: Menus for ESS and iESS have been reorganized and enriched with + _Tracebug_ and _Developer_ submenus. + + * ESS[R]: 'ess-developer' and 'ess-tracebug' commands are available + by default in 'ess-dev-map' which is bound to 'C-c d' in ESS and + iESS maps. + + * ESS[R]: 'eldoc' truncates long lines whenever + 'eldoc-echo-area-use-multiline-p' is non-nil (the default). Set + this variable to t if you insist on multiline eldoc. See also + 'ess-eldoc-abbreviation-style'. + + * ESS[R]: completion code pre-caches arguments of heavy generics such + as 'plot' and 'print' to eliminated the undesirable delay on first + request. + + * iESS: Prompts in inferior buffers are now highlighted uniformly + with 'comint-highlight-prompt' face. + + * ESS[R]: R process no longer wait for the completion of input in + inferior buffer. Thus, long running commands like 'Sys.sleep(5)' + no longer stall emacs. + + * ESS: [R, S, Stata, Julia] have specialized 'ess-X-post-run-hook's, + which are run at the end of subprocess initialization. + + * ESS[Stata]: All interactive evaluation commands work as expected. + On-line comments are removed before the evaluation and multiline + comments are skipped on 'C-c C-c' and other interactive commands. + + * ESS no longer auto-connects to a subprocess with a different + dialect than the current buffer's one. + + * ESS: 'ess-arg-function-offset-new-line' is now a list for all the + ESS indentation styles, which results in the following indentation + after an open "(": + + a <- some.function(other.function( + arg1, + arg2) + + * ESS[SAS]: Improved MS RTF support for GNU Emacs; try + 'ess-sas-rtf-portrait' and 'ess-sas-rtf-landscape'. + + Changes/Bug Fixes in 12.04-3: + * ESS: basic support for package.el compatibility + * ESS[R]: correct indentation of & and | continuation lines + * 'M-x ess-version' shows the svn revision even after 'make install' + * ESS[SAS]: improved XEmacs support + * iESS[R]: better finding of previous prompt + * ESS[Stata]: adjusted prompt for mata mode + * ESS[R]: resolved name clashes with cl.el + * ESS[R]: removed dependence on obsolete package assoc + * New 'make' target 'lisp', to build the lisp-only part, i.e., not + building the docs. + + Changes/New Features in 12.04-1: + * iESS[Stata]: New interactive help invocation. + * iESS[Stata]: New custom variable 'inferior-STA-start-file'. + * iESS[Stata]: 'inferior-STA-program-name' is now "stata" and can be + customized. + * ESS[Stata] New sections in stata help files Syntax('s-S'), + Remarks('r'), Title('t'). + + Bug Fixes in 12.04-1: + * ESS[R]: Better 'ess-tracebug' error handling. + * ESS[R]: Corrected 'ess-eldoc' help string filtering and improved + argument caching. + * ESS[R]: Indentation of non-block if/else/for/while lines fixed. + * 'M-x ess-version' should work better. + * ESS: Filename completion now again works inside strings. + * iESS[Stata]: Fixed prompt detection issue. + * ESS[Rd]: R is autostarted also from here, when needed. + + Changes/New Features in 12.04: + * ESS: Reverting new behavior of 12.03, 'TAB' in 'ess-mode' no longer + completes by default. If you want smart 'TAB' completion in R and + S scripts, similarly to iESS behavior, set the variable + 'ess-tab-complete-in-script' to 't'. Also see + 'ess-first-tab-never-complete' for how to customize where first + 'TAB' is allowed to complete. + * ESS: completion is consistently bound to 'M-TAB' (aka 'M-C-i') in + both Emacs23 and Emacs24. + * ESS: The variable 'ess-arg-function-offset-new-line' introduced in + ESS(12.03) now accepts a list with the first element a number to + indicate that the offset should be computed from the indent of the + previous line. For example setting it to '(2) results in: + + a <- some.function( + arg1, + arg2) + + Changes/New Features in 12.03: + * ESS indentation: new offset variable + 'ess-arg-function-offset-new-line' controlling for the indentation + of lines immediately following open '('. This is useful to shift + backwards function arguments after a long function call expression: + + a <- some.function( + arg1, + arg2) + + instead of the old + + a <- some.function( + arg1, + arg2) + + If '(' is not followed by new line the behavior is unchanged: + + a <- some.function(arg1, + arg2) + + This variable should be set as part of indentation style lists, or + in ess-mode hook. + * ESS[R]: 'C-c .' sets (indentation) style. + * ESS: In ESS buffers 'yank'('C-y') command accepts double argument + 'C-u C-u' to paste commands only. It deletes any lines not + beginning with a prompt, and then removes the prompt from those + lines that remain. Useful to paste code from emails, + documentation, inferior ESS buffers or transcript files. + * Documentation: ESS user manual has been rearranged and completed + with several new chapters and sections to reflect newly added + features ("Completion", "Developing with ESS", "ESS tracebug", "ESS + developer", "ESS ElDoc", "IDO Completion" and "Evaluating Code") + * RefCard: Reference card was updated to include new features. + * Eldoc: Eldoc was rewritten and is activated by default. See + 'ess-use-eldoc', 'ess-eldoc-show-on-symbol', + 'ess-eldoc-abbreviation-style' variables for how to change the + default behavior. _Note:_ 'skeleton-pair-insert-maybe' prohibits + eldoc display, on '(' insertion. + * ESS[R]: Eldoc shows arguments of a generic function whenever found. + * ESS: 'TAB' in 'ess-mode' now indents and completes, if there is + nothing to indent. Set 'ess-first-tab-never-completes-p' to 't' to + make 'TAB' never complete on first invocation. Completion + mechanism is similar to the completion in the 'inferior-ess-mode' - + a filename expansion is tried, if not found ESS completes the + symbol by querying the process. + * ESS for emacs version 24 or higher: ESS is fully compatible with + the emacs 24 completion scheme, i.e. all the completion is done by + 'completion-at-point'. Also in accordance with emacs conventions, + ESS doesn't bind 'M-TAB' for emacs 24 or higher. 'M-TAB' calls the + default 'complete-symbol'. + + * ESS[R]: Out of the box integration with 'Auto Completion' mode + http://cx4a.org/software/auto-complete + (http://cx4a.org/software/auto-complete) . Three AC sources + 'ac-source-R-args', 'ac-source-R-objects' and 'ac-source-R' are + provided. The last one combines the previous two and makes them + play nicely together. Set 'ess-use-auto-complete' to 't' to start + using it. Refer to documentation string of 'ac-use-auto-complete' + for further information. + * ESS[R]: New unified and fast argument completion system, comprised + of 'ess-funname.start', 'ess-function-arguments', + 'ess-get-object-at-point'. Eldoc and auto-completion integration + are using this system. + * ESS: 'ess-switch-to-end-of-ESS'('C-c C-z'), and + 'ess-switch-to-ESS'('C-c C-y'): Automatically start the process + whenever needed. + * ESS[R]: 'roxy' knows about previewing text version of the + documentation. Bound to 'C-c C-e t'. + * ESS[R]: Solved the "nil filename" bug in roxygen support. + * ESS[R]: 'ess-tracebug' is now part of ESS: + + New Features: + + - Source injection: Tracebug now can inject source references on + the fly during code evaluation, i.e. you don't have to source + your file, but just evaluate your code in normal fashion. + Variable 'ess-tracebug-inject-source-p' controls this behavior + - if t, always inject source reference, if ''function', inject + only for functions (this is the default), if 'nil', never + inject. + + During the source injection the value of 'ess-eval-visibly' is + ignored. + - Org-mode support: Visual debugger is now aware of the + temporary org source editing buffer ('C-c '') and jumps + through this buffers if still alive, or in original org buffer + otherwise. + - New keys in watch mode: '?' and 'd' + - Two new hooks: ess-tracebug-enter-hook and + ess-tracebug-exit-hook + + * ESS[R]: New package 'ess-developer' to evaluate 'R' code directly + in the package environment and namespace. It can be toggled on and + off with 'C-c d t'. When 'ess-developer' is on all ESS evaluation + commands are redefined to evaluate code in appropriate + environments. Add package names to the list of your development + packages with 'C-d a', and remove with 'C-d r'. Source the current + file with 'C-d s'.Evaluation function which depend on + '`ess-eval-region'' ask for the package to source the code into, + 'ess-eval-function' and alternatives search for the function name + in the development packages' environment and namespace and insert + the definition accordingly. See the documentation section + "Developing with ESS/ESS developer" for more details. + + * ESS[R] help system: + + New Features: + + - 'q' quits window instead of calling + 'ess-switch-to-end-of-ESS'. This is consistent with emacs + behavior help and other special buffers (_breaking change_). + - 'k' kills window without asking for the name (pointed by Sam + Steingold) + - Help map inherits from 'special-mode-map' as sugested by Sam + Steingold. + - Package index: new function 'ess-display-index' bound to 'i' + in help mode map. + - Package vignettes: new function 'ess-display-vignettes' bound + to 'v' in help mode map. + - Display help in HTML browser: new function + 'ess-display-help-in-browser' bound to 'w' in help mode map. + It depends on 'R''s 'browser' option. + - New custom variable 'ess-help-pop-to-buffer': if non-nil ESS + help buffers are given focus on display. The default is 't' + (_breaking change_). + - New menu entries for the above functions. + - Bogus help buffers are no longer generated by default, i.e. + buffers of the form "No documentation for 'foo' in specified + packages and libraries: you could try '??foo' ". + 'ess-help-kill-bogus-buffers' now defaults to 't'. Beware, + there may be instances where the default is unsatisfactory + such as debugging and/or during R development. Thanks to Ross + Boylan for making the suggestion, Sam Steingold for reminding + us of this variable and Martin Maechler for the warning. + * ESS now uses 'IDO' completing read functionality for all the + interactive requests. It uses ido completion mechanism whenever + available, and falls back on classical completing-read otherwise. + You can set 'ess-use-ido' to nil if you don't want the IDO + completion. See the documentation string of 'ess-use-ido' for more + information about 'IDO' and ESS configuration. + + * ESS[S]: "','" is bound to ess-smart-comma: If comma is invoked at + the process marker of an ESS inferior buffer, request and execute a + command from '`ess-handy-commands'' list. If + 'ess-R-smart-operators' is t '`ess-smart-comma' also inserts " " + after comma. + * ESS[S], notably 'R': Variable '`ess-handy-commands'' stores an + alist of useful commands which are called by 'ess-smart-comma' in + the inferior buffer. + + Currently containing: + + change-directory + 'ess-change-directory' + help-index + 'ess-display-index' + help-object + 'ess-display-help-on-object' + vignettes + 'ess-display-vignettes' + objects[ls] + 'ess-execute-objects' + search + 'ess-execute-search' + set-width + 'ess-execute-screen-options' + install.packages + 'ess-install.packages' + library + 'ess-library' + setRepos + 'ess-setRepositories' + sos + 'ess-sos' + + Handy commands: 'ess-library', 'ess-install.packages', etc - ask + for item with completion and execute the correspond command. + 'ess-sos' is a interface to 'findFn' function in package 'sos'. If + package 'sos' is not found, ask user for interactive install. + + * ESS: New dynamic mode line indicator: Process status is + automatically reflected in all mode-lines of associated with the + process buffers. Particularly useful for displaying debug status + of 'ess-tracebug' and developer status of 'ess-developer' in all + associated buffers. + + * ESS: New 'ess-completing-read' mechanism: ESS uses 'ido' + completions whenever possible. Variable 'ess-use-ido' controls + whether to use ido completion or not. Active by default. + + * ESS now supports comint fields for output and input detection. + This feature is not used by default, but might be useful in the + future. + + * ESS[S]: New custom variable 'inferior-ess-S-prompt' to customize + prompt detection regular expression in the inferior ESS buffers. + You can customize this variable to enhance comint navigation + ('comint-previous-prompt' and 'comint-next-prompt') the inferior + buffers. + + * ESS[R]: Internal 'R' completion retrieval + ('ess-R-complete-object-name') was rewritten and is faster now. + + * ESS is using process plist to store process specific variables, as + opposed to buffer local variables as it was using before. The use + of buffer local variables to store process variables is + discouraged. + + * ESS: new functions to manipulate process plists: 'ess-process-get' + and 'ess-process-set'. + + * ESS: Internal process waiting mechanism was completely rewritten. + ESS no more relies on prompt regular expressions for the prompt + detection. The only requirement on the primary process prompt is + to end in '> '. This could be overwritten by setting + 'inferor-ess-primary-prompt'. + + * ESS[S], notably 'R': Saved command history: ESS-HISTORY-FILE now + accepts 't' (default), 'nil', or a file name. By setting it to + 'nil' no command line history is saved anymore. + ESS-HISTORY-DIRECTORY now allows to have the history all saved in + one "central" file. + * ESS[R]: more Roxygen improvements. + * ESS[R]: 'C-c .' to set (indentation) style. + + * ESS[R]: Functions with non-standard names (for example + 'aaa-bbb:cc') are properly handled by font-lock and evaluation + routines. + * ESS[R]:Several regexp bugs (described in etc/R-ESS-bugs.el) were + fixed in 'ess-get-words-from-vector' and 'ess-command'. + + Changes/New Features in 5.14: + * ESS[BUGS/JAGS]: Batch BUGS is back! For recent OpenBUGS versions, + 3.0.8+, a batch BUGS script is once again available, but for Linux + only. Therefore, since it seems that BUGS and JAGS must co-exist + (rather than a transition from BUGS to JAGS), .bug files are now in + ESS[BUGS] mode and .jag files are in ESS[JAGS] mode. ESS[BUGS] now + works like ESS[JAGS] rather than the original mode ESS[BUGS] mode + which was difficult to maintain. Although, ESS[BUGS] appears to + work, there still may be some features missing as well as bugs. + + * ESS[R]: New customizable variable 'ess-swv-plug-into-AUCTeX-p' + Commands to Sweave current file and LaTeX the result are now + available to AUCTeX users, if this variable is set to 't'. + + * ESS[S]: 'C-c C-c' ('ess-eval-function-or-paragraph-and-step') is + now skipping over comments as the other paragraph functions do. It + (and similar functions) should no longer wrongly find 'function()' + beginnings inside comments or strings. + + * ESS[SAS]: improved by better support for GNU Emacs + + Changes/New Features in 5.13: + * ESS[R]: On Windows, for R 2.12.0 and later, the Rterm executables + (in subdirectories i386 / x64) now are found as well as for earlier + R versions. + * ESS[S+]: on Windows, both 32- and 64-bit versions of S+ ("S-PLUS") + are found now and made available on the menu. + * ESS[R]: When prompting for a starting directory, the R version is + (always?) correct now. + * ESS[R]: on non-Windows platforms, the 'use-dialog-box' variable is + no longer temporarily changed (to 'nil' for R-x.y.z version + functions and to 't' for 'R' itself), but rather the user + customization is obeyed. + * ESS[R]: more Roxygen improvements. + * 'Rd-preview-help' now generates preview buffers with navigation + facilities the same as regular help buffers. + * ESS: New functions and keys C-c [up] / [down] for evaluating the + buffer "from beginning till here". + + Changes/New Features in 5.12: + * ESS[SAS] Font-locking: update of PROCs keywords (up to SAS 9.22); + error/warnings. + * ESS[R]: Roxygen improvements: S4 classes; also optionally keep + spaces when filling arguments + * ESS[Rd]: support new keywords: section-name \subsection plus a + dozen "new" keywords; should match R 2.12.x now. + * 'ess-display-help-on-object' ('C-c C-v') now _caches_ the list of + topics, thus speeding up the improvement feature introduced in 5.9. + + Changes/New Features in 5.11: + * Filename completion within buffers now adds only trailing + characters to complete the filename, rather than expanding to an + absolute file path. This filename completion is bound to the TAB + key. + + * 'M-n P' in Sweave buffers now prompts for the command to run + instead of using 'pdflatex' unconditionally, offering completion + from customizable collection 'ess-swv-pdflatex-commands', the first + of which is taken as default and that defaults to 'texi2pdf'. + * 'M-RET' is now also bound in S language (R and S+) buffers to + 'ess-use-this-dir'. It sends 'setwd(..)' to the S process to set + the working directory to the one of the source file. + + Changes/New Features in 5.10: + * 'M-RET' in *S* buffers is now bound to 'ess-dirs'. This function + will set Emacs's current directory to be the same as the *S* + process. This is useful if you use 'setwd()' within a *S* process. + + Changes/New Features in 5.9: + * Toolbar: The toolbar now has an icon for starting Splus. + * Indentation: New documentation and code has been added to make it + easier to change how ESS indents code. In particular, see + 'ess-default-style', 'ess-own-style-list' and the documention + subsection "Changing indentation styles". + * 'ess-display-help-on-object' ('C-c C-v') now offers completion + candidates for help file aliases, in addition to object names. + * Font locking: is now turned on even without 'window-system' is + 'nil', whenever ESS-FONT-LOCK-MODE is non-nil, i.e., by default. + * ESS script editing: ess-eval-deactivate-mark default is now t, as + suggested by Leo Alekseyev and subsequent "unanimous" ESS-help + discussion. + * ESS[R]: Editing support for "#!" (Rscript / littler) editing, + thanks to Jeffrey Arnold. + * ESS[R]: Now finds all R versions, both 64-bit and 32-bit, on some + 64-bit Windows machines. Please report back to ess-core success or + failure on your 64-bit Windows machine. + * ESS Manual now more visually pleasing; + + * ESS[R]: Roxygen on XEmacs no longer font locks for now (as it + required missing features and hence broke ESS startup, there). + * ESS[R]: Roxygen has a sub-menu on the [ESS] menu. + * ESS[R]: Function 'ess-rutils-htmldocs' in 'ess-rutils.el' offers an + alternative to 'help.start()' for navigating R documentation, using + the 'browse-url' Emacs function. + + Changes/New Features in 5.8: + * ESS[R]: New 'ess-rutils.el' with utilities for listing, loading, + installing, and updating packages, as well as object manipulation + (listing, viewing, and deleting). It also provides an alternative + to 'RSiteSearch()' that uses the 'browse-url' function, so results + can be viewed in an Emacs web browser. + * ESS[R]: much more extensive Roxygen interface, via ess-roxy.el from + Henning Redestig. Ess-roxy supports filling of roxygen fields, + generation and updating roxygen templates, completion of roxygen + tags, basic navigation (marking and moving between entries), + folding using hs-minor-mode and preview of the Rd file. + * Emacs lisp files have got better names (partly, for now). + + Changes/New Features in 5.7: + * ESS[R]: loading a source file ('C-c C-l') now works in Windows, + similarly to other platforms; (further; it had accidentally been + broken in ESS 5.6 on all platforms) + + Changes/New Features in 5.6: + * ESS[R]: help() calls have to differ from old default, with newer + versions of R; currently via .help.ESS <- function(...) hack. + + Changes/New Features in 5.4: + * ESS[SAS]: The long overdue change from 'make-regexp' to + 'regexp-opt' for font-locking is complete. The new 'regexp-opt' is + now the default since it is better than the old code in many ways + (and especially more maintainable). However, there are certainly + some special cases missed (bug reports and patches welcome!). + Setting 'ess-sas-run-regexp-opt' to 'nil' will result in the old + code being used. + * ESS[BUGS] and ESS[JAGS]: typing '=' now results in '<-'. + * ESS[R] function arguments "show" '(ess-r-args-show)' now uses the + new '(tooltip-show-at-point)' contributed by Erik Iverson. + * Toolbar icons now also work in (beta) Emacs 23. + * ESS[S]: New function 'ess-change-directory' for setting both emacs' + current directory and the directory of an *R* or *S* buffer. + * ESS[S] when transient-mark-mode is true, the mark is now kept, + rather than deactivated, thanks to a patch from David Reitter. + + Changes/New Features in 5.3.11: + * ESS[SAS]: work around bug in Emacs 22.2 & 22.3 which fails to set + case-fold fontification automatically. + * Rd mode: support new keyword 'Rdversion' + * ESS[R]: now again works with Emacs 21.x + + Changes/New Features in 5.3.10: + * Fixed noweb-mode bug accidentally introduced into 5.3.9 + * In noweb-mode, e.g., Rnw-mode, electric "<" also inserts closing + "@". Further, the code chunk boundaries are better kept + up-to-date, such that code[R] <-> text[LaTeX] minor mode switching + should happen more reliably. + * In noweb-mode, fix a buglet in rare [Enter] or [Tab] behavior; + further, by default disable the former '[[' .. ']]' + code-protection-when-filling behavior which has been found to be + buggy. + + Changes/New Features in 5.3.9: + * ESS[SAS]: evince PDF viewer now supported as well; search order: + evince, Xpdf, Adobe/Acrobat Reader + * ESS[R]: added support for Roxygen, potentially to be extended. + * ESS[S] (and R): inferior ('*R*') and transcript modes no longer + fontify language keywords (such as 'for', 'in', etc). + * iESS[Stata]: Customize the 'ess-sta-delimiter-friendly' setting to + 't' to convert embedded semi-colons to newlines for Stata + processing. + * Sweave fix for embedded blanks in PDF reader and PDF files + * Several fixes for Major Mode Convention violations in 'ess-mode' + and 'noweb-mode'. + * ESS[JAGS]: 'M-x comment-region' now available! + * ESS[S] The 'ess-swv-*' commands (and keybindings) are now in a + submenu of the "Noweb" menu, when editing Sweave files. + + Changes/New Features in 5.3.8: + * ESS[JAGS]: more separation from ESS[BUGS] (as much as is currently + planned); now 'C-c C-c' on an empty '.jmd' creates a template as it + should; symbolic links are created for CODA output so BOA is happy: + from 'index.txt' to '.ind' and 'chain#.txt' to '#.out' + * ESS[SAS]: buffer-local 'ess-sas-submit-command' and + 'ess-sas-submit-command-options' now recognized by + 'ess-sas-submit-region' + * ESS[S]: When trying to evaluate code in an S language buffer and + there is no associated process, now start R automatically instead + of signalling an error. Also, restart R if there is an associated + process which is not running. However, do not start R just via the + "electric" '(' ('ess-r-args-auto-show'). + * ESS[S]: For (one-line) functions withOUT '{ .. }' bodys, the end + of function is now correctly found more often. This notably + improves 'C-c C-c' ('ess-eval-function-or-paragraph-and-step'). + * ESS[JAGS]: cleanup/re-organization of elisp code; symbolic links + for CODA output are now only created by the new JAGS 'system' + command in version 1.0.3; specify whether this command is available + via 'ess-jags-system'; if not present, then no links are created so + that the '*shell*' buffer does not become unresponsive during the + batch run + + Changes/New Features in 5.3.7: + * ESS: 'ess-default-style' now *is* customizable, i.e., changing its + value in '~/.emacs' now does have the desired effect. + * ESS: 'ess-font-lock-mode' is a new variable (default: t) which + controls whether font-locking is enabled in ESS buffers. + * ESS[R]: for XEmacs on Windows; another tweak to find R versions + * ESS[SAS]: font-locking updated for ODS and SAS Bayesian Procedures; + a more consistent handling of SAS options by + 'ess-sas-submit-command-options' which is buffer-local; portable + snooze for MS Windows via customize-able 'ess-sleep-for' (floats + welcome); Xpdf now supported as a PDF viewer + * ESS[Rnw]: now also works with "emacs -nw" and Emacs 22. + * ESS[JAGS]: now requires JAGS 1.0 (see the new ESS for JAGS help + section for more information): both need work; suggestions welcome + * ESS[R]: [TAB] completion now uses the R-internal completion + mechanism (for R >= 2.5.0). + * ESS[R] ([S]): interpretation of "_" as assignment has been removed + in 'ess-continued-statement-p' for R and S. + * several internal code cleanups. + * ESS[R]: An experimental version of a new command 'Rgui' on MS + Windows to send lines directly from emacs to 'Rgui' is available in + file 'lisp/essd-rgui.el'. Preliminary documentation is in file + 'doc/rgui-doc.txt'. + + Changes/New Features in 5.3.6: + * ESS: for XEmacs, using "gnuclient" (without a "-q") works for + things like fix() after M-x gnuserv-start has been done. + * ESS[R]: M-x R-newest should now work in more situations on MS + Windows, e.g., when R has been installed in a non-default + "ProgramFiles" directory tree. In these cases, there's no need to + specify the name (and full path) of the R program anymore. + * ESS[R]: For XEmacs, startup (with new tooltip code) works again. + + Changes/New Features in 5.3.5: + * ESS[R] a new defun is available, 'M-x R-newest', which will start + the newest version of R that it can find on your system. + * ESS[R] add Sven Hartenstein's "R function arguments tips" + functionality, via new file '../lisp/essd-r-args.el'. Note that + this includes an "electric "("" behavior inside 'R-mode' which is + _active by default_ and can be customized via + 'ess-r-args-electric-paren'; i.e., use '(setq + ess-r-args-electric-paren nil)' to turn it off. Further, + 'ess-r-args-show-as' allows to switch to the "tooltip" mode. + * ESS: functions 'ess-get-pdf-viewer' and *-ps-viewer; built on new + customizable variables 'ess-pdf-viewer-pref' and + 'ess-ps-viewer-pref'; currently used in 'ess-swv-PDF' and '*-PS'. + * ESS[R] Improved 'ess-swv-PDF' to run pdf viewer only if pdflatex + was ok + * ESS[R] Improved 'ess-swv-weave' to start R automatically if none is + running. + * ESS: Do no longer ask _which_ ESS process to use if there is only + one. + + Changes/New Features in 5.3.4: + * ESS[R] now better work with options(error=recover); and the new + default of CHM help files on windows. + * ESS[R] some more cleanup in the "sweave" functions + * miscellaneous fixes + + Changes/New Features in 5.3.3: + * ESS[S] fix buglet (5.3.2 only) which left command prompt in + "execute buffer" and hence help files. + * new customizable variable 'ess-display-buffer-reuse-frames' set to + true (which changes default behavior) such that execution or help + *frames* are reused. + + Changes/New Features in 5.3.2: + * Classic BUGS now supported by '(require 'essd-bugs)' with ESS[BUGS] + and JAGS by '(require 'essd-jags)' with ESS[JAGS]. But, only one + of them can be used at a time since they don't play nice together. + Also, 'C-c C-c' is now bound to the function 'ess-bugs-next-action' + ('F12' has been retired). And finally, note that 'essl-bug.el' is + deprecated and the replacement is 'essl-bugs.el'. + * ESS[R] Improved some of the "Sweave-make" functions (yet scarcely + documented) in 'ess-swv.el'. + * ESS[S] No longer mess with .Last.value (nor in other "languages"). + + Changes/New Features in 5.3.1: + * See the docs for 2 ways to install ESS for XEmacs + 1. by uncommenting the XEmacs part of Section 1 of 'Makeconf' and + performing 'make install' + 2. by unpacking either 'ess-5.3.1.tgz' or 'ess-5.3.1.zip' into + 'PREFIX/lib/xemacs/site-packages' on unix or + 'PREFIX\XEmacs\site-packages' on windows + * ESS[R]: fixed bugs so that Rterm.exe can be found by XEmacs + * ESS[S]: 'ess-toggle-S-assign-key' is slightly changed; in + particular, the default 'ess-assign-key' is now 'C-x ='. + * ESS[R]: 'M-x R-site-search' is a new (slightly experimental) + utility similar to R's 'RSiteSearch(..)' but with the advantage of + using Emacs' preferred browser, see 'browse-url-browser-function' + + Changes/New Features in 5.3.0: + * ESS[BUGS]: sanely re-format statistical output, '.bog', from + scientific notation to numbers rounded with 4 decimal places with + 'M-x ess-bugs-sci-round-to-4-dp'. + * The keys for navigating among section headings in help buffers + worked, but only for one language per session; they should now work + for multiple languages. (They were also broken on Windows + machines.) + * ESS[S] long standing buglets in the internal logic for loading lisp + code on Windows. Particularly fixed behavior in help mode with + S-plus GUI. + * New variable, 'ess-use-inferior-program-name-in-buffer-name', which + enables using the executable name instead of the dialect name for + R. Feature request. + * ESS[S] 'ess-execute-screen-options' now also works correctly when + there is more than one window *side-by-side* in the same frame and + runs in the correct buffer also when there is more than one S + buffer. + * iESS[S] new functions 'ess-eval-paragraph-and-step' and + 'ess-eval-function-or-paragraph-and-step' are bound to keys 'C-c + C-p' and 'C-c C-c' respectively and to the menu in ESS-mode; also + bound in the help mode (for evaluating examples). + * ESS[S] new function 'ess-toggle-S-assign-key' allows to assign the + " <- " insertion to an arbitrary key. + + Changes/New Features in 5.2.12: + * ESS[SAS]: 'M-;' fixed, but the XEmacs function 'comment-dwim' may + be broken, if so, use 'M-x comment-region' and 'M-x + uncomment-region' instead; only valid PROCs are fontified which is + very helpful finding syntax errors (currently supported: BASE, ETS, + FSP, GRAPH, IML, INSIGHT and STAT); the "feature" where 'F'-keys + take you to an empty buffer when the requested destination is a + file that does not exist has been fixed, now the request results in + a no-op. Further, sas-mode now also works in simple terminals. + * Rterm/Cygwin combination works under Microsoft Windows. + * ESS[R]: internal calls use baseenv() instead of NULL and define + 'baseenv' where needed. + * New experimental support for installing ESS. See the file + 'lisp/ess-install.el'. + + Changes/New Features in 5.2.11: + * ESS Info entry and 'dir' handled more effectively for GNU Emacs + users + * ESS[SAS]: temporary files created for batch submission of a region + are now named based on the current file; see 'ess-sas-file-root' + for details; all 'lag' and 'dif' functions now fontified correctly + * iESS[SAS]: fixed a few nagging bugs, however, still does not appear + to work at this time; please let us know if you have any ideas. + * ESS[S]: Support for running other versions of Splus has been added + for unix. Two new variables, 'ess-s-versions' and + 'ess-s-versions-list', are used to tell ESS what other versions of + Splus you would like to run. + + Changes/New Features in 5.2.10: + * ESS[R]: ess-r-versions can no longer be customized (since the + customization was not taking effect unless customizations were + loaded before ESS). Its value has been changed so that it will also + find R executables beginning "R-devel" and "R-patched". If you + wish to change this variable, it must be set in your '.emacs' + before ESS is loaded. + * Installation with GNU Make enhanced: unix and unix-like operating + systems will now be able to install ESS for all users in either a + GNU Emacs site-lisp or an XEmacs package configuration by editing + 'lisp/ess-site.el' and 'Makeconf' accordingly, then issuing 'make + install' + * ESS[S]: Filename completion (inside strings) now also works in + XEmacs for R and S-plus. + + Changes/New Features in 5.2.9: + * ESS[R] for Windows: the \ directory character bug with respect to + ess-load-file has been eradicated. + * iESS[SAS]: 'C-c C-r' and 'C-c C-b' once again work as intended and + documented. + * ESS[S]: M-x ess-fix-EQ-assign is a bit more agressive. + * ESS[S]: Imenu now also shows setAs(), etc. + * ESS[R]: R function pattern enhanced with underlying code such that + 'M-C-a' ('ess-beginning-of-function') etc now work for many more + cases, including S4 method definitions. + * iESS[R]: myOwnhelp(1) no longer wrongly triggers help(1). + * ESS[R]: Improved detection of bogus help buffers: valid help + buffers containing with the string "no documentation"(e.g. + contour) were being treated as bogus. + * ESS[R]: In R help buffers, if 'options("help.try.all.packages" = + TRUE)' then '?rlm' will list which packages rlm is defined in. + This help buffer is not bogus, but instead is now relabelled + "*help[R](rlm in packages)*". + * ESS[STA]: add "//" as comment starting character to syntax-table. + + Changes/New Features in 5.2.8: + * iESS: [Tab] completes *file* names "inside string" as in earlier + (<= 5.2.3) ESS versions. + + Changes/New Features in 5.2.7: + * If you use Custom to change the variable ess-toolbar-items, the new + toolbar is used in all subsequent ESS buffers. + * ESS[SAS]: new feature: if ess-sas-log-max >0 and your .log grows to + more than ess-sas-log-max bytes, just the first ess-sas-log-max + bytes are refreshed; this is helpful when your .sas program + generates lots of error messages and gets too big for emacs to + display + * ESS[R/S]: 'M-;' in R/S editing modes will now indent with either + one or two hashes depending on context. + * ESS[R]: David Whiting's Sweave extensions (to 'noweb') are now + available (from ess-swv.el loaded by default). + + Changes/New Features in 5.2.6: + * Removed non-ASCII characters in a few files. + * ESS[R]: now works better when UTF-8 locale is active; in + particular, you get correct directional quotes in R's startup + message for R-devel (unstable development version of R 2.1.0) when + using environment variables LANGUAGE=en@quot LC_ALL=en_US.UTF-8 + * ESS[SAS]: toggling of .log mode improved ('F10'); toggling of .lst + mode now also available ('C-F10'); killing all buffers associated + with .sas program no longer bound to 'C-F10' since its a bit + overzealous. + * S-Plus 7 for Windows is now recognized. + * ESS[S] (incl. R): in auto-fill mode, strings are not wrapped + anymore. + * ESS[S] (incl. R): font-lock now correctly differs between R and S, + e.g., for "_"; both now fontify warning(.) and S does terminate() + additionally. + * Support for 'bell' aka 'beep' aka 'ding' aka 'alarm' in all + inferior modes: When \a is output "to the the console" at the + beginning of a line, the bell is rung. + + Changes/New Features in 5.2.5: + * ESS[R]: 'C-c C-q' or 'Quit S' from the menu now should work (again + and less klunkily) and do not append '-exited' to the buffer name. + Further, the behavior of '(ess-cleanup)', called from ess-quit, now + depends on the new customizable variable + 'ess-S-quit-kill-buffers-p' which defaults to 'nil'. Consequently, + the question _"Delete all buffers associated with ..?"_ will not + be asked anymore by default. + * ESS[SAS] - ess-ebcdic-to-ascii-search-and-replace will now work + with the 'recode' application as well which is available on many + platforms + * ESS[S] (incl. R): Name completion for slots of S4 objects now + works! + + Changes/New Features in 5.2.4: + * The documentation now includes an overview of how to use the emacs + TAGS facility for S functions. (The distribution also used to + contain a directory 'etc/other/Tags' where a ~1990 version of + 'etags.c' was distributed; this is no longer relevant and so has + been deleted.) + * ESS[SAS] - When you are working with EBCDIC files on an ASCII + platform, .log NOTEs may display as gibberish since the EBCDIC + characters are not converted to ASCII prior to their display. So, + the function ess-ebcdic-to-ascii-search-and-replace is provided for + convenience and is bound to 'C-F11'. This function requires the + 'dd' command (only available on unix or unix-like platforms). + * ESS: Completion of object names is now always done dynamically + rather than allowing the option of using a pre-computed database + (by 'ess-create-object-name-db') since modern computers seem fast + enough for dynamic completion. (We expect few users, if any, have + been using the pre-computed database method.) + * ESS: object completion in iESS buffers running on Windows was very + slow (for GNU Emacs, but not XEmacs) and has now been fixed. + Further, it was more or less broken for all versions of S-plus 6.x, + and has been fixed to work everywhere but with the Windows' GUI of + S-plus. The list of objects now shows unique names also when an + object appears more than once in the search path. + * ESS[R]: Completion of object names now also includes those starting + with ".". + + Changes/New Features in 5.2.3: + * ESS: When new inferior ESS processes are created, by default they + will replace the current buffer (this restores behavior from pre + 5.2.0). If you wish new ESS processes to start in another window + of the current frame, set inferior-ess-same-window to nil. + * New variables inferior-Splus-args and inferior-R-args provide a way + to pass command line arguments to starting S and R processes. + + Changes/New Features in 5.2.2: + * bug-fixes for 5.2.1 (require 'executable), html docs, etc. + * ess-lisp-directory/../doc/info added to Info-directory-list if + ess-info not found by info + * ESS[R]: If you have other versions of R on your exec-path, such as + "R-1.8.1" with Unix or "rw1081" with Windows, ESS will find them + and create appropriate functions, such as 'M-x R-1.8.1' or 'M-x + rw1081', for calling them. By default only Unix programs beginning + "R-1" and "R-2" and Windows programs parallel to the version of R + in your exec-path will be found, but see ess-r-versions and + ess-rterm-versions for ways to find other versions of R. + * ESS[R]: Other versions of R, such as "R-1.8.1" on Unix and "rw1081" + on Windows, are added to the "ESS / Start Process / Other" menu. + * ESS[S]: If you have other versions of S-Plus on your Windows + computer, such as S-Plus 6.1 or S-Plus 4.5, ESS will find them and + create appropriate functions, such as 'M-x splus61', for calling + the console version (Sqpe) inside an emacs buffer. By default only + programs installed in the default location will be found, but see + ess-SHOME-versions for ways to find other versions of S-Plus. + * ESS[S]: Other versions of Sqpe on Windows, such as "splus61", are + added to the "ESS / Start Process / Other" menu. + * ESS[R]: (bug fix) ess-quit (bound to 'C-c C-q') should now quit the + inferior R process, when issued from either the inferior buffer, or + from a .R buffer. + + Changes/New Features in 5.2.1: + * ESS[S] (R and S-plus): now have toolbar support with icons to + evaluate code in the inferior process or to switch there. This + code is experimental and likely to change as XEmacs/Emacs issues + get resolved. The toolbar should be enabled if your Emacs displays + images, but can be disabled with the variable ess-use-toolbar. + Thanks to David Smith from Insightful for the S-plus logo. + * ESS[SAS]: ess-sas-graph-view ('F12') enhanced; you can specify + external file viewers for each graphics file type via the alist + ess-sas-graph-view-viewer-alist; also .jpg/.gif are now handled by + image-mode on XEmacs, if available, otherwise by graphics + primitives as before + + Changes/New Features in 5.2.0: + * ESS[BUGS]: new info documentation! now supports interactive + processing thanks to Aki Vehtari (mailto:Aki.Vehtari@hut.fi); new + architecture-independent unix support as well as support for BUGS + v. 0.5 + * ESS[SAS]: convert .log to .sas with ess-sas-transcript; info + documentation improved; Local Variable bug fixes; SAS/IML + statements/functions now highlighted; files edited remotely by + ange-ftp/EFS/tramp are recognized and pressing SUBMIT opens a + buffer on the remote host via the local variable + ess-sas-shell-buffer-remote-init which defaults to "ssh"; changed + the definition of the variable ess-sas-edit-keys-toggle to boolean + rather than 0/1; added the function ess-electric-run-semicolon + which automatically reverse indents lines containing only "run;"; + 'C-F1' creates MS RTF portrait from the current buffer; 'C-F2' + creates MS RTF landscape from the current buffer; 'C-F9' opens a + SAS DATASET with PROC INSIGHT rather than PROC FSVIEW; "inferior" + aliases for SAS batch: 'C-c C-r' for submit region, 'C-c C-b' for + submit buffer, 'C-c C-x' for goto .log; 'C-c C-y' for goto .lst + * ESS[S]: Pressing underscore ("_") once inserts " <- " (as before); + pressing underscore twice inserts a literal underscore. To stop + this smart behaviour, add "(ess-toggle-underscore nil)" to your + .emacs after ess-site has been loaded; + ess-dump-filename-template-proto (new name!) now can be customized + successfully (for S language dialects); Support for Imenu has been + improved; set ess-imenu-use-S to non-nil to get an "Imenu-S" item + on your menubar; ess-help: Now using nice underlines (instead of + 'nuke-* ^H_') + * ESS[R]: After (require 'essa-r), 'M-x ess-r-var' allows to load + numbers from any Emacs buffer into an existing *R* process; 'M-x + ess-rdired' gives a "directory editor" of R objects; fixed + ess-retr-lastvalue-command, i.e. .Last.value bug (thanks to David + Brahm) + * ESS: Support for creating new window frames has been added to ESS. + Inferior ESS processes can be created in dedicated frames by + setting inferior-ess-own-frame to t. ESS help buffers can also + open in new frames; see the documentation for ess-help-own-frame + for details. (Thanks to Kevin Rodgers for contributing code.) + + Changes/New Features in 5.1.24: + * The version number is now correct even inside ESS/Emacs + + Changes/New Features in 5.1.23: + * Minor more Makefile clean up. + + Changes/New Features in 5.1.22: + * Besides info documentation, PDF and HTML documentation are also + provided (instead of built using "make") and available on the web + as well; see ESS web page (https://ess.r-project.org/) and StatLib + (http://lib.stat.cmu.edu/general/ESS/doc) + * Now that info documentation is available, the README.* files are no + longer supported. However, they are still distributed for what + it's worth. + * ESS is now an XEmacs package! See XEmacs Installation HOWTO + (https://www.xemacs.org/Install/index.html) for details + (specifically, items 10-15). + * ESS[SAS]: more user-friendly enhancements for remote SAS batch jobs + with Kermit file transfers (LOG and OUTPUT function key features + now supported). Multiple shells now supported so you can run SAS + on different computers from different buffers by setting the + buffer-local variable ess-sas-shell-buffer to unique buffer names. + * Major re-vamping of Makefile/Makeconf. + + Changes/New Features in 5.1.21: + * ESS[SAS]: info documentation now available!, see ESS->Help for SAS; + 'F12' opens GSASFILE nearest point for viewing either within emacs, + when available, or via an external viewer; more syntax highlighting + keywords; more enhancements for remote SAS batch jobs with Kermit; + new framework for remote SAS interactive jobs, see ess-remote + * ESS[S]: info documentation now available!, see ESS->Help for the S + family + * Makefile: tag now independent of rel; info files made by + doc/Makefile and installed in new info sub-directory + + Changes/New Features in 5.1.20: + * New 'options()$STERM' in the S dialects (S, S-Plus, R). The S + program can determine the environment in which it is currently + running. ESS sets the option to 'iESS' or 'ddeESS' when it starts + an S language process. We recommend other specific values for S + language processes that ESS does not start. + * New 'ess-mouse-me' function, assigned to S-mouse-3 by default. + User may click on a word or region and then choose from the menu to + display the item, or a summary, or a plot, etc. This feature is + still under development. + * GNU Emacs 21.1 is now supported (fixed for S dialects, SAS & BUGS), + (some from Stephen Eglen). + * XEmacs 21.x is now supported (fixed w32-using-nt bug) + * XEmacs on Win (NT) is better supported. + * Workaround for bug in Sqpe+6 (S-PLUS 6 for Win). + * should now work even when imenu is not available (for old + XEmacsen). + * ESS[SAS]: XEmacs-Imenu fix; 'C-TAB' is globalized along with your + function-key definitions, if specified; you can specify your SAS + library definitions outside of autoexec.sas for ess-sas-data-view + with SAS code placed in the variable ess-sas-data-view-libname, + also the dataset name is defaulted to the nearest permanent dataset + to point; Speedbar support now works for permanent datasets, please + ignore first./last.; new font-locking is now the default with more + improvements for font-locking PROCs, macro statements, * ; and %* ; + comments; you can toggle sas-log-mode with 'F10' which will + font-lock your .log (if it isn't too big); submit remote .sas files + accessed with ange-ftp, EFS or Tramp (Kermit is experimental) by + setting ess-sas-submit-method to 'sh; ess-sas-submit-command and + ess-sas-submit-command-options are buffer-local so you can have + local file variable sections at the end of your .sas files to + request different executables or specify special options and the + local file variables are re-read at submit instead of only at file + open so that if you make a change it is picked up immediately; + * ESS[BUGS]: font-lock with 'in' fixed. + * for STATA: font-lock bug fixed. + * for Rd mode: 'C-c C-v' and 'switch-process' in menu. further, 'C-c + C-f' prefix (Rd-font) for inserting or surrounding a word by things + such as \code{.}, \code{\link{.}}, \emph{.} etc. + * new functions (ess-directory-function) and (ess-narrow-to-defun) + ess-directory <-> default-directory logic (Jeff Mincy). + * Re-organized Makefile and fixed a few bugs. + + Changes/New Features in 5.1.19: + * S+6 now supported (Tony Rossini (Unix) and Rich Heiberger + (Windows)) + * New BUGS support through ESS[BUGS] mode (Rodney Sparapani) + Templates assist you in writing .bug and .cmd code (.cmd and .log + are replaced by .bmd and .bog to avoid emacs extension collisions). + Substitution" parameters facilitate "automagic" generation of + data...in" and "init...in" filenames, "const N=" from your data + file and "monitor()/stats()" commands. Activated by pressing + 'F12'. + * Fixes for 'ess-smart-underscore' SAS breakage (Rich Heiberger) + * You can change between PC and Unix, local and global SAS + function-key definitions interactively (Rich Heiberger) + * 'C-Submit' a highlighted region to SAS batch (Rodney Sparapani) + * New and improved SAS syntax highlighting (Rodney Sparapani) To get + the new functionality, set ess-sas-run-make-regexp to nil. Also + available in .log files via 'F10'. + * Open a permanent SAS dataset for viewing via 'F9' (Rodney + Sparapani) You must have the library defined in autoexec.sas for it + to work. + * User-friendly defaults for 'sas-program', + 'ess-sas-batch-pre-command' and 'ess-sas-batch-post-command' as + well Customize support for these and other ESS[SAS] variables + (Rodney Sparapani) + * 'ess-sas-suffix-2' now defaults to .dat via 'F11' (Rodney + Sparapani) + * Emacs/XEmacs, Unix/Windows issues collectively handled in + ess-emcs.el + * defadvice solves problem of missing *ESS* (thanks to Jeff Mincy) + * Improved manual a bit by including things that were only in + 'README'. + + Changes/New Features in 5.1.18: + * New 'ess-smart-underscore' function, now assigned to "_" by + default. Inserts 'ess-S-assign' (customizable " <- "), unless + inside string and comments where plain "_" is used instead. (MM) + * Fixes for longstanding interactive SAS breakage (RMH) + + Changes/New Features in 5.1.17: + * Documentation for Windows Installation (Rich Heiberger) + * removal of ess-vars, finalization of customize support (in the + sense that there is no more use of ess-vars, but that we need to + fix ess-cust) (AJ Rossini) + * Many small (and large) fixes/contributions (MMaechler) + * addition of the "S-equal" variable and provide 'M-x + ess-add-MM-keys' a way to remap "_" to 'ess-S-assign', typically " + <- ", but customizable. (MMaechler) + + Changes/New Features in 5.1.16: + * BUG FIXES + * Better SAS support + + Changes/New Features in 5.1.15: + * BUG FIXES + + Changes/New Features in 5.1.14: + * Yet more fixes to SAS mode, (Rich Heiberger and Rodney Sparapani) + * Customize support (for most Emacsen which support it) (AJRossini) + * ARC and ViSta support out of the box, and fixes for XLispStat + (AJRossini) + + Changes/New Features in 5.1.13: + * Version numbering finally all depending on the ./VERSION file, + thanks to Martin Maechler. + * Yet more fixes to SAS mode, thanks to Rich Heiberger. + + Changes/New Features in 5.1.12: + * Splus 5.1 stabilized, thanks to Martin Maechler, Bill Venables, + Chuck Taylor, and others. + * More fixes to SAS mode, thanks to Rodney Sparapani and Rich + Heiberger. + + Changes/New Features in 5.1.11: + * More fixes to Stata mode, thanks to Brendan Halpin + (mailto:brendan@essex.ac.uk). + * fixed bugs in ESS-elsewhere, thanks to many testers + * README.SPLUS4WIN has DETAILED instructions for S-PLUS 2000, thanks + to David Brahm (mailto:brahm@alum.mit.edu). + * Fixes to SAS mode, thanks to Rodney Sparapani + + Changes/New Features in 5.1.10: + * More fixes to Stata mode + * primitive generic version of ESS-elsewhere + * Small fixes to SAS/Stata. + + Changes/New Features in 5.1.9: + * Stata mode works + * Literate Data Analysis using Noweb works + + Changes/New Features in 5.1.8: + * Bug fixes + * R documentation mode defaults changed + + Changes/New Features in 5.1.2: + * able to use inferior iESS mode to communicate directly with a + running S-Plus 4.x process using the Microsoft DDE protocol. We + use the familiar (from Unix ESS) 'C-c C-n' and related key + sequences to send lines from the S-mode file to the inferior S + process. We continue to edit S input files in ESS[S] mode and + transcripts of previous S sessions in ESS Transcript mode. All + three modes know the S language, syntax, and indentation patterns + and provide the syntactic highlighting that eases the programming + tasks. + + + +Tag Table: + +End Tag Table diff --git a/elpa/ess-20190121.1430/readme.info b/elpa/ess-20190121.1430/readme.info new file mode 100644 index 00000000..ddcb57d7 --- /dev/null +++ b/elpa/ess-20190121.1430/readme.info @@ -0,0 +1,704 @@ +This is readme.info, produced by makeinfo version 6.5 from readme.texi. + + +File: readme.info, Node: General Information + +1 General Information: README +***************************** + +This is the README file for the distribution of ESS version +18.10.3snapshot + + ESS is a GNU Emacs and XEmacs mode for interactive statistical +programming and data analysis. Languages supported: the S family (S, +S-PLUS and R), SAS, BUGS/JAGS and Stata. ESS grew out of the desire for +bug fixes and extensions to S-mode and SAS-mode as well as a consistent +union of their features in one package. + + Installation instructions are provided in sections for both Unix and +Windows; see below. + + The current development team is led by Martin Maechler since August +2004. Former project leader A.J. (Tony) Rossini +() did the initial port to XEmacs and has been +the primary coder. Martin Maechler () and +Kurt Hornik () have assisted with the S +family and XLispStat. Stephen Eglen () has worked +mostly on R support. Richard M. Heiberger () has +assisted with S/S-PLUS development for Windows. Richard and Rodney A. +Sparapani () have done much of the work improving SAS +batch and interactive support. Rodney has also extended ESS to support +BUGS/JAGS and has an interest in improving Stata support. + + We are grateful to the previous developers of S-mode (Doug Bates, Ed +Kademan, Frank Ritter, David M. Smith), SAS-mode (Tom Cook) and +Stata-mode (Thomas Lumley). + +* Menu: + +* License:: +* Installation:: +* Starting up:: +* Current Features:: +* New Features:: +* Reporting Bugs:: +* Mailing Lists:: +* Authors:: + + +File: readme.info, Node: License, Next: Installation, Prev: General Information, Up: General Information + +1.1 License +=========== + +The source and documentation of ESS 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. + + ESS 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 in +the file COPYING in the same directory as this file for more details. + + +File: readme.info, Node: Installation, Next: Starting up, Prev: License, Up: General Information + +1.2 Installation +================ + +ESS supports GNU Emacs versions 25.1 and newer. + + ESS is most likely to work with current/recent versions of the +following statistical packages: R/S-PLUS, SAS, Stata, OpenBUGS and JAGS. + + To build the PDF documentation, you will need a version of TeX Live +or texinfo that includes texi2dvi. + + There are two main methods used for installing ESS. You may install +from a third-party repository or from source code. Once you install it, +you must also activate or load ESS in each Emacs session, though +installation from a third-party repository likely takes care of that for +you. See *note Activating and Loading ESS:: for more details. + +* Menu: + +* Installing from a third-party repository:: +* Installing from source:: +* Activating and Loading ESS:: +* Check Installation:: + + +File: readme.info, Node: Installing from a third-party repository, Next: Installing from source + +1.3 Installing from a third-party repository +============================================ + +ESS is packaged by many third party repositories. Many GNU/Linux +distributions package it, usually with the name "emacs-ess" or similar. + + ESS is also available through Milkypostman’s Emacs Lisp Package +Archive (MELPA), a popular repository for Emacs packages. Instructions +on how to do so are found on MELPA's website (https://melpa.org/). +MELPA also hosts MELPA-stable with stable ESS builds. You may choose +between MELPA with the latest and greatest features (and bugs) or +MELPA-stable, which may lag a bit behind but should be more stable. + + After installing, users should make sure ESS is activated or loaded +in each Emacs session. See *note Activating and Loading ESS::. +Depending on install method, this may be taken care of automatically. + + +File: readme.info, Node: Installing from source, Next: Activating and Loading ESS, Prev: Installing from a third-party repository + +1.4 Installing from source +========================== + +Stable versions of ESS are available at the ESS web page +(https://ess.r-project.org) as a .tgz file or .zip file. ESS releases +are GPG-signed, you should check the signature by downloading the +accompanying '.sig' file and doing: + + gpg --verify ess-18.10.tgz.sig + + Alternatively, you may download the git repository. ESS is currently +hosted on Github: . 'git clone +https://github.com/emacs-ess/ESS.git' will download it to a new +directory 'ESS' in the current working directory. + + We will refer to the location of the ESS source files as +'/path/to/ESS/' hereafter. + + After installing, users should make sure they activate or load ESS in +each Emacs session, see *note Activating and Loading ESS:: + + Optionally, compile elisp files, build the documentation, and the +autoloads: + cd /path/to/ESS/ + make + Without this step the documentation, reference card, and autoloads +will not be available. Uncompiled ESS will also run slower. + + Optionally, you may make ESS available to all users of a machine by +installing it site-wide. To do so, run 'make install'. You might need +administrative privileges: + + make install + + The files are installed into '/usr/share/emacs' directory. For this +step to run correctly on macOS, you will need to adjust the 'PREFIX' +path in 'Makeconf'. The necessary code and instructions are commented +in that file. + + +File: readme.info, Node: Activating and Loading ESS, Next: Check Installation, Prev: Installing from source + +1.5 Activating and Loading ESS +============================== + +After installing ESS, you must activate or load it each Emacs session. +ESS can be autoloaded, and if you used a third-party repository (such as +your Linux distribution or MELPA) to install, you can likely skip this +section and proceed directly to *note Check Installation:: + + Otherwise, you may need to add the path to ESS to 'load-path' with: + + (add-to-list 'load-path "/path/to/ESS/lisp") + + You then need to decide whether to take advantage of deferred loading +(which will result in a faster Emacs startup time) or require ESS when +Emacs is loaded. To autoload ESS when needed (note that if installed +from source, you must have run 'make'): + + (load "ess-autoloads") + + To require ESS on startup, you can either put + + (require 'ess-site) + + or + + (require 'ess-r-mode) + + In your configuration file, depending on whether you want all ESS +features or only R related features. + + +File: readme.info, Node: Check Installation, Prev: Activating and Loading ESS + +1.6 Check Installation +====================== + +Restart Emacs and check that ESS was loaded from a correct location with +'M-x ess-version'. + + +File: readme.info, Node: Starting up, Next: Current Features, Prev: Installation, Up: General Information + +1.7 Starting an ESS process +=========================== + +To start an S session on Unix or on Windows when you use the Cygwin bash +shell, simply type 'M-x S RET'. + + To start an S session on Windows when you use the MSDOS prompt shell, +simply type 'M-x S+6-msdos RET'. + + +File: readme.info, Node: Current Features, Next: New Features, Prev: Starting up, Up: General Information + +1.8 Current Features +==================== + + * Languages Supported: + * S family (R, S, and S+ AKA S-PLUS) + * SAS + * BUGS/JAGS + * Stata + * Julia + * Editing source code (S family, SAS, BUGS/JAGS, Stata, Julia) + * Syntactic indentation and highlighting of source code + * Partial evaluation of code + * Loading and error-checking of code + * Source code revision maintenance + * Batch execution (SAS, BUGS/JAGS) + * Use of imenu to provide links to appropriate functions + * Interacting with the process (S family, SAS, Stata, Julia) + * Command-line editing + * Searchable Command history + * Command-line completion of S family object names and file + names + * Quick access to object lists and search lists + * Transcript recording + * Interface to the help system + * Transcript manipulation (S family, Stata) + * Recording and saving transcript files + * Manipulating and editing saved transcripts + * Re-evaluating commands from transcript files + * Interaction with Help Pages and other Documentation (R) + * Fast Navigation + * Sending Examples to running ESS process. + * Fast Transfer to Further Help Pages + * Help File Editing (R) + * Syntactic indentation and highlighting of source code. + * Sending Examples to running ESS process. + * Previewing + + +File: readme.info, Node: New Features, Next: Reporting Bugs, Prev: Current Features, Up: General Information + +1.9 New Features +================ + +Changes and New Features in 19.04 (unreleased): + + * Implement a more reliable check for the process busy state. + Background actions such as completion and directory synchronization + should not block the process and should not cause printing of the + extraneous output to the interpreter. + + * Activate 'goto-address-mode' for url and emal highlighting in + inferior buffers. + + * 'smart-underscore' and 'ess-smart-S-assign-key' have been removed. + Users who liked the previous behavior (i.e. underscore inserting + "<-") should bind 'ess-insert-assign' to the underscore in their + Emacs initialization file. For example, '(define-key + ess-r-mode-map "_" #'ess-insert-assign)' and '(define-key + inferior-ess-r-mode-map "_" #'ess-insert-assign)' will activate it + in all ESS R buffers. + + * ESS major modes are now defined using 'define-derived-mode'. This + makes ESS major modes respect modern conventions such as having + -mode-hook and -mode-map. Users are encouraged + to place customizations under the appropriate mode. + + * New option ess-auto-width controls setting the width option on + window changes. Users can change it to 'frame, 'window, or an + integer. See the docstring for details. 'ess-auto-width-visible' + controls visibility. + + * ESS now respects 'display-buffer-alist'. Users can now use + 'display-buffer-alist' to manage how and where windows appear. See + *Note (ess)Controlling buffer display:: for more information and + examples. + + * 'ess-roxy-mode' can now be enabled in non-R buffers. This is + primarily intended to support roxygen documentation for cpp + buffers. Preview functionality is not supported outside R buffers. + + * ESS[R]: DESCRIPTION files now open in 'conf-colon-mode'. + + * 'ess-style' now has effects when set as a file or directory local + variable. + + * 'ess-default-style' is now obsolete, use 'ess-style' instead. + + * Options for 'ess-gen-proc-buffer-name-function' have been renamed. + ess-gen-proc-buffer-name:projectile-or-simple was renamed to + ess-gen-proc-buffer-name:project-or-simple and + ess-gen-proc-buffer-name:projectile-or-directory was renamed to + ess-gen-proc-buffer-name:project-or-directory. As the name + suggests, these now rely on project.el (included with Emacs) rather + than projectile.el, which is a third-party package. + + * ESS[R] help pages now provide links to other help topics. This is + similar with what you would see with, for example + 'options(help_type = ``html'')' but works with the plain-text + version as well. This only works with 'options(useFancyQuotes = + TRUE)' (the default). + + * 'ess-rdired' buffers now derive from tabulated-list-mode. They + should look better and be a bit faster overall. The size column + now displays object sizes in bytes. + + * ESS removed support for many unused languages. This includes old + versions of S+, ARC, OMG, VST, and XLS. + + The following have been made obsolete or removed, see their +documentation for more detail: + + * Libraries for literate data analysis are obsolete and not loaded by + default. This includes 'ess-noweb', 'ess-swv', and related + functionality like 'Rnw-mode'. Users are encouraged to switch to + one of several other packages that deal with these modes. For + example, polymode , + , or markdown-mode with edit-indirect + . + + * User options for controlling display of buffers. This includes + 'ess-show-buffer-action', 'inferior-ess-same-window', + 'inferior-ess-own-frame', and 'inferior-ess-frame-alist'. See + above about ESS respecting 'display-buffer-alist'. + + * 'inferior-ess-*-start-file' variables. All modes except Stata did + not respect customization of this variable. In order to load a + file on startup, you should put a function on + 'ess-*-post-run-hook'. + + Bug Fixes in 18.10.3: + * More 'Makefile' fixes, notably installing '*.el's. + + Bug Fixes in 18.10.2: + * ESS[R] Fix namespace evaluation in non-installed packages. + Evaluation is directed into GlobalEnv as originally intended. + * 'Makefile' fixes, notably for 'make install' and including full + docs in the tarballs. + + Bug Fixes in 18.10-1: + * New functions 'ess-eval-line-visibly-and-step' ('C-c C-n' and + 'ess-eval-region-or-line-visibly-and-step' ('C-RET') which behave + as the old versions of 'ess-eval-line-and-step' and + 'ess-eval-region-or-line-and-step'. + + Changes and New Features in 18.10: + + * This is the last release to support Emacs older than 25.1. Going + forward, only GNU Emacs 25.1 and newer will be supported. Soon + after this release, support for older Emacs versions will be + dropped from the git master branch. Note that MELPA uses the git + master branch to produce ESS snapshots, so if you are using Emacs < + 25.1 from MELPA and are unable to upgrade, you should switch to + MELPA-stable. + + * ESS now displays the language dialect in the mode-line. So, for + example, R buffers will now show ESS[R] rather than ESS[S]. + + * The ESS manual has been updated and revised. + + * The ESS initialization process has been further streamlined. If + you update the autoloads (which installation from 'package-install' + does), you should not need to '(require 'ess-site)' at all, as + autoloads should automatically load ESS when it is needed (e.g. + the first time an R buffer is opened). In order to defer loading + your ESS config, you may want to do something like + '(with-require-after-load "ess" )' in your Emacs + init file. Users of the popular 'use-package' Emacs package can + now do '(use-package ess :defer t)' to take advantage of this + behavior. *Note (ess)Activating and Loading ESS:: for more + information on this feature. + + * ESS now respects Emacs conventions for keybindings. This means + that The 'C-c [letter]' bindings have been removed. This affects + 'C-c h', which was bound to 'ess-eval-line-and-step-invisibly' in + 'sas-mode-local-map'; 'C-c f', which was bound to + 'ess-insert-function-outline' in 'ess-add-MM-keys'; and 'C-c h', + which was bound to 'ess-handy-commands' in 'Rd-mode-map', + 'ess-noweb-minor-mode-map', and 'ess-help-mode-map' + + * Functions 'ess-eval-line-and-step' and + 'ess-eval-region-or-line-and-step' now behave consistently with + other evaluation function inside a package. + + * ESS[R]: 'ess-r-package-use-dir' now works with any mode. This sets + the working directory to the root of the current package including + for example C or C++ files within '/src'). + + * ESS[R]: Long + + prompts in the inferior no longer offset output. + + * ESS[R]: New option 'strip' for 'inferior-ess-replace-long+'. This + strips the entire + + sequence. + + * ESS modes now inherit from 'prog-mode'. In the next release, ESS + modes will use 'define-derived-mode' so that each mode will have + (for example) its own hooks and keymaps. + + * ESS[R]: Supports flymake in R buffers for Emacs 26 and newer. + Users need to install the 'lintr' package to use it. Customizable + options include 'ess-use-flymake', 'ess-r-flymake-linters', and + 'ess-r-flymake-lintr-cache'. + + * ESS[R]: Gained support for xref in Emacs 25+. *Note (emacs)Xref:: + + * ESS[R]: The startup screen is cleaner. It also displays the + startup directory with an explicit 'setwd()'. + + * ESS[R]: Changing the working directory is now always reflected in + the process buffer. + + * ESS[R]: 'Makevars' files open with 'makefile-mode'. + + * New variable 'ess-write-to-dribble'. This allows users to disable + the dribble ('*ESS*') buffer if they wish. + + * All of the '*-program-name' variables have been renamed to + '*-program'. Users who previously customized e.g. + 'inferior-ess-R-program-name' will need to update their + customization to 'inferior-ess-R-program'. These variables are + treated as risky variables. + + * 'ess-smart-S-assign' was renamed to 'ess-insert-assign'. It + provides similar functionality but for any keybinding, not just + '_'. For instance if you bind it to ';', repeated invokations + cycle through between assignment and inserting ';'. + + * 'C-c C-=' is now bound to 'ess-cycle-assign' by default. See the + documentation for details. New user customization option + 'ess-assign-list' controls which assignment operators are cycled. + + * ESS[R] In remote sessions, the ESSR package is now fetched from + GitHub. + + * Commands that send the region to the inferior process now deal with + rectangular regions. See the documentation of 'ess-eval-region' + for details. This only works on Emacs 25.1 and newer. + + * ESS[R]: Improvements to interacting with iESS in non-R files. + Interaction with inferior process in non-R files within packages + (for instance C or C++ files) has been improved. This is a work in + progress. + + * ESS[R]: Changing the working directory is now always reflected in + the process buffer. + + * ESS[JAGS]: *.jog and *.jmd files no longer automatically open in + JAGS mode. + + Many improvements to fontification: + + * Improved customization for faces. ESS now provides custom faces + for (nearly) all faces used and places face customization options + into their own group. Users can customize these options using 'M-x + customize-group RET ess-faces'. + + * Many new keywords were added to 'ess-R-keywords' and + 'ess-R-modifiers'. See the documentation for details. + + * ESS[R]: 'in' is now only fontified when inside a 'for' construct. + This avoids spurious fontification, especially in the output buffer + where 'in' is a commond English word. + + * ESS: Font-lock keywords are now generated lazily. That means you + can now add or remove keywords from variables like 'ess-R-keywords' + in your Emacs configuration file after loading ESS (i.e. in the + ':config' section for 'use-package' users). + + * ESS[R]: Fontification of roxygen '@param' keywords now supports + comma-separated parameters. + + * ESS[R]: Certain keywords are only fontified if followed by a + parenthesis. Function-like keywords such as 'if ()' or 'stop()' + are no longer fontified as keyword if not followed by an opening + parenthesis. The same holds for search path modifiers like + 'library()' or 'require()'. + + * ESS[R]: Fixed fontification toggling. Especially certain syntactic + elements such as '%op%' operators and backquoted function + definitions. + + * ESS[R]: 'ess-font-lock-toggle-keyword' can be called interactively. + This command asks with completion for a font-lock group to toggle. + This functionality is equivalent to the font-lock menu. + + Notable bug fixes: + + * 'prettify-symbols-mode' no longer breaks indentation. This is + accomplished by having the pretty symbols occupy the same number of + characters as their non-pretty cousins. You may customize the new + variable 'ess-r-prettify-symbols' to control this behavior. + + * ESS: Inferior process buffers are now always displayed on startup. + Additionally, they don't hang Emacs on failures. + + Obsolete libraries, functions, and variables: + + * The 'ess-r-args.el' library has been obsoleted and will be removed + in the next release. Use 'eldoc-mode' instead, which is on by + default. + + * Functions and options dealing with the smart assign key are + obsolete. The following functions have been made obsolete and will + be removed in the next release of ESS: 'ess-smart-S-assign', + 'ess-toggle-S-assign', 'ess-toggle-S-assign-key', + 'ess-disable-smart-S-assign'. + + The variable 'ess-smart-S-assign-key' is now deprecated and will be + removed in the next release. If you would like to continue using + '_' for insterting assign in future releases, please bind + 'ess-insert-assign' in 'ess-mode-map' the normal way. + + * ESS[S]: Variable 'ess-s-versions-list' is obsolete and ignored. + Use 'ess-s-versions' instead. You may pass arguments by starting + the inferior process with the universal argument. + + Changes and New Features in 17.11: + + * The ESS initialisation process has been streamlined. You can now + load the R and Stata modes independently from the rest of ESS. Just + put '(require 'ess-r-mode)' or '(require 'ess-stata-mode)' in your + init file. This is for experienced Emacs users as this requires + setting up autoloads for '.R' files manually. We will keep + maintaining 'ess-site' for easy loading of all ESS features. + + * Reloading and quitting the process is now more robust. If no + process is attached, ESS now switches automatically to one + (prompting you for selection if there are several running). + Reloading and quitting will now work during a debug session or when + R is prompting for input (for instance after a crash). Finally, + the window configuration is saved and restored after reloading to + prevent the buffer of the new process from capturing the cursor. + + * ESS[R]: New command 'ess-r-package-use-dir'. It sets the working + directory of the current process to the current package directory. + + * ESS[R] Lookup for references in inferior buffers has been improved. + New variable 'ess-r-package-source-roots' contains package + sub-directories which are searched recursively during the file + lookup point. Directories in 'ess-tracebug-search-path' are now + also searched recursively. + + * ESS[R] Namespaced evaluation is now automatically enabled only in + the 'R/' directory. This way ESS will not attempt to update + function definitions from a package if you are working from e.g. a + test file. + + Changes and New Features in 16.10: + + * ESS[R]: Syntax highlighting is now more consistent. Backquoted + names are not fontified as strings (since they really are + identifiers). Furthermore they are now correctly recognised when + they are function definitions or function calls. + * ESS[R]: Backquoted names and '%op%' operators are recognised as + sexp. This is useful for code navigation, e.g. with 'C-M-f' and + 'C-M-b'. + * ESS[R]: Integration of outline mode with roxygen examples fields. + You can use outline mode's code folding commands to fold the + examples field. This is especially nice to use with well + documented packages with long examples set. Set + 'ess-roxy-fold-examples' to non-nil to automatically fold the + examples field when you open a buffer. + * ESS[R]: New experimental feature: syntax highlighting in roxygen + examples fields. This is turned off by default. Set + 'ess-roxy-fontify-examples' to non-nil to try it out. + * ESS[R]: New package development command 'ess-r-devtools-ask' bound + to 'C-c C-w C-a'. It asks with completion for any devtools command + that takes 'pkg' as argument. + * ESS[R]: New command 'C-c C-e C-r' to reload the inferior process. + Currently only implemented for R. The R method runs + 'inferior-ess-r-reload-hook' on reloading. + * ESS[R]: 'ess-r-package-mode' is now activated in non-file buffers + as well. + + Bug fixes in 16.10: + * ESS[R]: Fix broken (un)flagging for debugging inside packages + * ESS[R]: Fixes (and improvements) in Package development + * ESS[R]: Completion no longer produces '...=' inside 'list( )'. + * ESS[R]: Better debugging and tracing in packages. + * ESS[R]: Better detection of symbols at point. + * ESS[R]: No more spurious warnings on deletion of temporary files. + * ESS[julia]: help and completion work (better) + * ESS[julia]: available via 'ess-remote' + + Changes and New Features in 16.04: + + * ESS[R]: 'developer' functionality has been refactored. The new + user interface consists of a single command + 'ess-r-set-evaluation-env' bound by default to 'C-c C-t C-s'. Once + an evaluation environment has been set with, all subsequent ESS + evaluation will source the code into that environment. By default, + for file within R packages the evaluation environment is set to the + package environment. Set 'ess-r-package-auto-set-evaluation-env' + to 'nil' to disable this. + * ESS[R]: New 'ess-r-package-mode' This development mode provides + features to make package development easier. Currently, most of + the commands are based on the 'devtools' packages and are + accessible with 'C-c C-w' prefix. See the documentation of + 'ess-r-package-mode' function for all available commands. With + 'C-u' prefix each command asks for extra arguments to the + underlying devtools function. This mode is automatically enabled + in all files within R packages and is indicated with '[pkg:NAME]' + in the mode-line. + * ESS[R]: Help lookup has been improved. It is now possible to get + help for namespaced objects such as pkg::foobar. Furthermore, ESS + recognizes more reliably when you change 'options('html_type')'. + * ESS[R]: New specialized breakpoints for debugging magrittr pipes + * ESS: ESS now implements a simple message passing interface to + communicate between ESS and inferior process. + + Bug fixes in 16.04: + * ESS[R]: Roxygen blocks with backtics are now correctly filled + * ESS[R]: Don't skip breakpoints in magrittr's 'debug_pipe' + * ESS[R]: Error highlighting now understands 'testthat' type errors + * ESS[Julia]: Added getwd and setwd generic commands + + +File: readme.info, Node: Reporting Bugs, Next: Mailing Lists, Prev: New Features, Up: General Information + +1.10 Reporting Bugs +=================== + +Please send bug reports, suggestions etc. to , +or post them on our github issue tracker +(https://github.com/emacs-ess/ESS/issues) + + The easiest way to do this is within Emacs by typing + + 'M-x ess-submit-bug-report' + + This also gives the maintainers valuable information about your +installation which may help us to identify or even fix the bug. + + If Emacs reports an error, backtraces can help us debug the problem. +Type "M-x set-variable RET debug-on-error RET t RET". Then run the +command that causes the error and you should see a *Backtrace* buffer +containing debug information; send us that buffer. + + Note that comments, suggestions, words of praise and large cash +donations are also more than welcome. + + +File: readme.info, Node: Mailing Lists, Next: Authors, Prev: Reporting Bugs, Up: General Information + +1.11 Mailing Lists +================== + +There is a mailing list for discussions and announcements relating to +ESS. Join the list by sending an e-mail with "subscribe ess-help" (or +"help") in the body to ; contributions +to the list may be mailed to . Rest assured, +this is a fairly low-volume mailing list. + + The purposes of the mailing list include + + * helping users of ESS to get along with it. + * discussing aspects of using ESS on Emacs and XEmacs. + * suggestions for improvements. + * announcements of new releases of ESS. + * posting small patches to ESS. + + +File: readme.info, Node: Authors, Prev: Mailing Lists, Up: General Information + +1.12 Authors +============ + + * A.J. Rossini (mailto:blindglobe@gmail.com) + * Richard M. Heiberger (mailto:rmh@temple.edu) + * Kurt Hornik (mailto:Kurt.Hornik@R-project.org) + * Martin Maechler (mailto:maechler@stat.math.ethz.ch) + * Rodney A. Sparapani (mailto:rsparapa@mcw.edu) + * Stephen Eglen (mailto:stephen@gnu.org) + * Sebastian P. Luque (mailto:spluque@gmail.com) + * Henning Redestig (mailto:henning.red@googlemail.com) + * Vitalie Spinu (mailto:spinuvit@gmail.com) + * Lionel Henry (mailto:lionel.hry@gmail.com) + * J. Alexander Branham (mailto:alex.branham@gmail.com) + + + +Tag Table: +Node: General Information73 +Node: License1719 +Node: Installation2389 +Node: Installing from a third-party repository3306 +Node: Installing from source4256 +Node: Activating and Loading ESS5851 +Node: Check Installation6928 +Node: Starting up7151 +Node: Current Features7534 +Node: New Features9084 +Node: Reporting Bugs26988 +Node: Mailing Lists27886 +Node: Authors28622 + +End Tag Table diff --git a/elpa/ess-20190121.1430/requires.info b/elpa/ess-20190121.1430/requires.info new file mode 100644 index 00000000..9bc3ab78 --- /dev/null +++ b/elpa/ess-20190121.1430/requires.info @@ -0,0 +1,15 @@ +This is requires.info, produced by makeinfo version 6.5 from +requires.texi. + +ESS supports GNU Emacs versions 25.1 and newer. + + ESS is most likely to work with current/recent versions of the +following statistical packages: R/S-PLUS, SAS, Stata, OpenBUGS and JAGS. + + To build the PDF documentation, you will need a version of TeX Live +or texinfo that includes texi2dvi. + + +Tag Table: + +End Tag Table