Mercurial > emacs
annotate lisp/eshell/em-script.el @ 110682:ba6a1c230532
gnus-html.el (gnus-html-prefetch-images): Adjust regexp to avoid regexp backtrace overflows.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Fri, 01 Oct 2010 13:33:03 +0000 |
parents | f57f72bb4757 |
children | e8049570c647 |
rev | line source |
---|---|
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37661
diff
changeset
|
1 ;;; em-script.el --- Eshell script files |
29876 | 2 |
95152
ad5d26b1d5d1
Use eshell-defgroup rather than defgroup.
Glenn Morris <rgm@gnu.org>
parents:
94661
diff
changeset
|
3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
106815 | 4 ;; 2008, 2009, 2010 Free Software Foundation, Inc. |
29876 | 5 |
32526 | 6 ;; Author: John Wiegley <johnw@gnu.org> |
7 | |
29876 | 8 ;; This file is part of GNU Emacs. |
9 | |
94661
b5b0801a7637
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
10 ;; GNU Emacs is free software: you can redistribute it and/or modify |
29876 | 11 ;; it under the terms of the GNU General Public License as published by |
94661
b5b0801a7637
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; the Free Software Foundation, either version 3 of the License, or |
b5b0801a7637
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; (at your option) any later version. |
29876 | 14 |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
94661
b5b0801a7637
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
29876 | 22 |
87073
1577bd98c621
Require individual files if needed when compiling, rather than
Glenn Morris <rgm@gnu.org>
parents:
78220
diff
changeset
|
23 ;;; Commentary: |
29876 | 24 |
87073
1577bd98c621
Require individual files if needed when compiling, rather than
Glenn Morris <rgm@gnu.org>
parents:
78220
diff
changeset
|
25 ;;; Code: |
29876 | 26 |
48578 | 27 (require 'eshell) |
28 | |
95152
ad5d26b1d5d1
Use eshell-defgroup rather than defgroup.
Glenn Morris <rgm@gnu.org>
parents:
94661
diff
changeset
|
29 ;;;###autoload |
ad5d26b1d5d1
Use eshell-defgroup rather than defgroup.
Glenn Morris <rgm@gnu.org>
parents:
94661
diff
changeset
|
30 (eshell-defgroup eshell-script nil |
29876 | 31 "This module allows for the execution of files containing Eshell |
32 commands, as a script file." | |
33 :tag "Running script files." | |
34 :group 'eshell-module) | |
35 | |
36 ;;; User Variables: | |
37 | |
38 (defcustom eshell-script-load-hook '(eshell-script-initialize) | |
110580
f57f72bb4757
Cosmetic doc fixes for eshell.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
39 "A list of functions to call when loading `eshell-script'." |
29876 | 40 :type 'hook |
41 :group 'eshell-script) | |
42 | |
104994
48428e99bf83
* eshell/em-hist.el:
Chong Yidong <cyd@stupidchicken.com>
parents:
100908
diff
changeset
|
43 (defcustom eshell-login-script (expand-file-name "login" eshell-directory-name) |
110580
f57f72bb4757
Cosmetic doc fixes for eshell.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
44 "If non-nil, a file to invoke when starting up Eshell interactively. |
29876 | 45 This file should be a file containing Eshell commands, where comment |
46 lines begin with '#'." | |
47 :type 'file | |
48 :group 'eshell-script) | |
49 | |
104994
48428e99bf83
* eshell/em-hist.el:
Chong Yidong <cyd@stupidchicken.com>
parents:
100908
diff
changeset
|
50 (defcustom eshell-rc-script (expand-file-name "profile" eshell-directory-name) |
110580
f57f72bb4757
Cosmetic doc fixes for eshell.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
51 "If non-nil, a file to invoke whenever Eshell is started. |
29876 | 52 This includes when running `eshell-command'." |
53 :type 'file | |
54 :group 'eshell-script) | |
55 | |
56 ;;; Functions: | |
57 | |
58 (defun eshell-script-initialize () | |
59 "Initialize the script parsing code." | |
60 (make-local-variable 'eshell-interpreter-alist) | |
61 (setq eshell-interpreter-alist | |
62 (cons '((lambda (file) | |
63 (string= (file-name-nondirectory file) | |
64 "eshell")) . eshell/source) | |
65 eshell-interpreter-alist)) | |
33020 | 66 (make-local-variable 'eshell-complex-commands) |
67 (setq eshell-complex-commands | |
68 (append '("source" ".") eshell-complex-commands)) | |
29876 | 69 ;; these two variables are changed through usage, but we don't want |
70 ;; to ruin it for other modules | |
71 (let (eshell-inside-quote-regexp | |
72 eshell-outside-quote-regexp) | |
73 (and (not eshell-non-interactive-p) | |
74 eshell-login-script | |
75 (file-readable-p eshell-login-script) | |
76 (eshell-do-eval | |
77 (list 'eshell-commands | |
78 (catch 'eshell-replace-command | |
79 (eshell-source-file eshell-login-script))) t)) | |
80 (and eshell-rc-script | |
81 (file-readable-p eshell-rc-script) | |
82 (eshell-do-eval | |
83 (list 'eshell-commands | |
84 (catch 'eshell-replace-command | |
85 (eshell-source-file eshell-rc-script))) t)))) | |
86 | |
87 (defun eshell-source-file (file &optional args subcommand-p) | |
88 "Execute a series of Eshell commands in FILE, passing ARGS. | |
89 Comments begin with '#'." | |
90 (interactive "f") | |
91 (let ((orig (point)) | |
92 (here (point-max)) | |
93 (inhibit-point-motion-hooks t) | |
94 after-change-functions) | |
95 (goto-char (point-max)) | |
96 (insert-file-contents file) | |
97 (goto-char (point-max)) | |
98 (throw 'eshell-replace-command | |
99 (prog1 | |
100 (list 'let | |
101 (list (list 'eshell-command-name (list 'quote file)) | |
102 (list 'eshell-command-arguments | |
103 (list 'quote args))) | |
104 (let ((cmd (eshell-parse-command (cons here (point))))) | |
105 (if subcommand-p | |
106 (setq cmd (list 'eshell-as-subcommand cmd))) | |
107 cmd)) | |
108 (delete-region here (point)) | |
109 (goto-char orig))))) | |
110 | |
111 (defun eshell/source (&rest args) | |
112 "Source a file in a subshell environment." | |
113 (eshell-eval-using-options | |
114 "source" args | |
115 '((?h "help" nil nil "show this usage screen") | |
116 :show-usage | |
117 :usage "FILE [ARGS] | |
118 Invoke the Eshell commands in FILE in a subshell, binding ARGS to $1, | |
119 $2, etc.") | |
120 (eshell-source-file (car args) (cdr args) t))) | |
121 | |
37661
6d7c89c79996
Set the property `eshell-no-numeric-conversions' on the following
John Wiegley <johnw@newartisans.com>
parents:
33020
diff
changeset
|
122 (put 'eshell/source 'eshell-no-numeric-conversions t) |
6d7c89c79996
Set the property `eshell-no-numeric-conversions' on the following
John Wiegley <johnw@newartisans.com>
parents:
33020
diff
changeset
|
123 |
29876 | 124 (defun eshell/. (&rest args) |
125 "Source a file in the current environment." | |
126 (eshell-eval-using-options | |
127 "." args | |
128 '((?h "help" nil nil "show this usage screen") | |
129 :show-usage | |
130 :usage "FILE [ARGS] | |
131 Invoke the Eshell commands in FILE within the current shell | |
132 environment, binding ARGS to $1, $2, etc.") | |
133 (eshell-source-file (car args) (cdr args)))) | |
134 | |
37661
6d7c89c79996
Set the property `eshell-no-numeric-conversions' on the following
John Wiegley <johnw@newartisans.com>
parents:
33020
diff
changeset
|
135 (put 'eshell/. 'eshell-no-numeric-conversions t) |
6d7c89c79996
Set the property `eshell-no-numeric-conversions' on the following
John Wiegley <johnw@newartisans.com>
parents:
33020
diff
changeset
|
136 |
87073
1577bd98c621
Require individual files if needed when compiling, rather than
Glenn Morris <rgm@gnu.org>
parents:
78220
diff
changeset
|
137 (provide 'em-script) |
29876 | 138 |
95152
ad5d26b1d5d1
Use eshell-defgroup rather than defgroup.
Glenn Morris <rgm@gnu.org>
parents:
94661
diff
changeset
|
139 ;; Local Variables: |
ad5d26b1d5d1
Use eshell-defgroup rather than defgroup.
Glenn Morris <rgm@gnu.org>
parents:
94661
diff
changeset
|
140 ;; generated-autoload-file: "esh-groups.el" |
ad5d26b1d5d1
Use eshell-defgroup rather than defgroup.
Glenn Morris <rgm@gnu.org>
parents:
94661
diff
changeset
|
141 ;; End: |
ad5d26b1d5d1
Use eshell-defgroup rather than defgroup.
Glenn Morris <rgm@gnu.org>
parents:
94661
diff
changeset
|
142 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
87649
diff
changeset
|
143 ;; arch-tag: a346439d-5ba8-4faf-ac2b-3aacfeaa4647 |
29876 | 144 ;;; em-script.el ends here |