1 ;;; ess-debug.el --- debugging start up for ESS
3 ;; Copyright (C) 1997--2001 A.J. Rossini
4 ;; Copyright (C) 2001--2006 A.J. Rossini, Rich M. Heiberger, Martin
5 ;; Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen.
7 ;; Original Author: A.J. Rossini <rossini@biostat.washington.edu>
8 ;; Created: November 1997
9 ;; Maintainers: ESS-core <ESS-core@stat.math.ethz.ch>
11 ;; Keywords: start up, configuration.
13 ;; This file is part of ESS.
15 ;; This file is free software; you can redistribute it and/or modify
16 ;; it under the terms of the GNU General Public License as published by
17 ;; the Free Software Foundation; either version 2, or (at your option)
20 ;; This file is distributed in the hope that it will be useful,
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 ;; GNU General Public License for more details.
25 ;; You should have received a copy of the GNU General Public License
26 ;; along with GNU Emacs; see the file COPYING. If not, write to
27 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
31 ;; Strictly for debugging and development. usage is:
32 ;; xemacs -no-site-file -no-init-file -load ess-debug.el -f S4
35 ;; The whole point of this file is to enable debugging from a vanilla
36 ;; environment. It probably isn't needed too much right now.
40 (defun ess-add-path (path &rest options
)
41 "Add PATH to `load-path' if it exists under `default-load-path'
42 directories and it does not exist in `load-path'.
44 You can use following PATH styles:
45 load-path relative: \"PATH/\"
46 (it is searched from `default-load-path')
47 home directory relative: \"~/PATH/\" \"~USER/PATH/\"
48 absolute path: \"/HOO/BAR/BAZ/\"
50 You can specify following OPTIONS:
51 'all-paths search from `load-path'
52 instead of `default-load-path'
53 'append add PATH to the last of `load-path'.
55 For ESS, ONLY use load-path, since Emacs doesn't have
58 (let ((rest load-path
)
62 (setq p
(expand-file-name path
(car rest
)))
63 (if (file-directory-p p
)
65 (setq rest
(cdr rest
))))
66 (not (member p load-path
)))
68 (if (memq 'append options
)
69 (append load-path
(list p
))
70 (cons p load-path
))))))
72 (setq-default debug-on-error t
)
73 (ess-add-path "~rossini/Repos/repos-svn/ess/lisp")
74 ;; ^^adapt!!!^^^^^^^^^^^^^^^
77 \f; Local variables section
79 ;;; This file is automatically placed in Outline minor mode.
80 ;;; The file is structured as follows:
83 ;;; Subsections: ;;;*;;;
84 ;;; Components: defuns, defvars, defconsts
85 ;;; Random code beginning with a ;;;;* comment
88 ;;; mode: outline-minor
89 ;;; outline-regexp: "\^L\\|\\`;\\|;;\\*\\|;;;\\*\\|(def[cvu]\\|(setq\\|;;;;\\*"
92 ;;; ess-debug.el ends here