Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 145 lines (120 sloc) 4.582 kb
c21960b Some fixes to follow coding conventions.
pj authored
1 ;;; em-script.el --- Eshell script files
f1db64f *** no comment ***
gerd authored
2
3ea1008 Use eshell-defgroup rather than defgroup.
gm authored
3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
5d4b8e0 Add 2009 to copyright years.
gm authored
4 ;; 2008, 2009 Free Software Foundation, Inc.
f1db64f *** no comment ***
gerd authored
5
237cbaf Add author information.
gerd authored
6 ;; Author: John Wiegley <johnw@gnu.org>
7
f1db64f *** no comment ***
gerd authored
8 ;; This file is part of GNU Emacs.
9
e36ef14 Switch to recommended form of GPLv3 permissions notice.
gm authored
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
f1db64f *** no comment ***
gerd authored
11 ;; it under the terms of the GNU General Public License as published by
e36ef14 Switch to recommended form of GPLv3 permissions notice.
gm authored
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
f1db64f *** no comment ***
gerd authored
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
e36ef14 Switch to recommended form of GPLv3 permissions notice.
gm authored
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
f1db64f *** no comment ***
gerd authored
22
43966c5 Require individual files if needed when compiling, rather than
gm authored
23 ;;; Commentary:
f1db64f *** no comment ***
gerd authored
24
43966c5 Require individual files if needed when compiling, rather than
gm authored
25 ;;; Code:
f1db64f *** no comment ***
gerd authored
26
6d64e63 Require eshell.
rms authored
27 (require 'eshell)
28
3ea1008 Use eshell-defgroup rather than defgroup.
gm authored
29 ;;;###autoload
30 (eshell-defgroup eshell-script nil
f1db64f *** no comment ***
gerd authored
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)
39 "*A list of functions to call when loading `eshell-script'."
40 :type 'hook
41 :group 'eshell-script)
42
43 (defcustom eshell-login-script (concat eshell-directory-name "login")
44 "*If non-nil, a file to invoke when starting up Eshell interactively.
45 This file should be a file containing Eshell commands, where comment
46 lines begin with '#'."
47 :type 'file
48 :group 'eshell-script)
49
50 (defcustom eshell-rc-script (concat eshell-directory-name "profile")
51 "*If non-nil, a file to invoke whenever Eshell is started.
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))
d83e001 @jwiegley See ChangeLog
jwiegley authored
66 (make-local-variable 'eshell-complex-commands)
67 (setq eshell-complex-commands
68 (append '("source" ".") eshell-complex-commands))
f1db64f *** no comment ***
gerd authored
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
ee5de56 @jwiegley Set the property `eshell-no-numeric-conversions' on the following
jwiegley authored
122 (put 'eshell/source 'eshell-no-numeric-conversions t)
123
f1db64f *** no comment ***
gerd authored
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
ee5de56 @jwiegley Set the property `eshell-no-numeric-conversions' on the following
jwiegley authored
135 (put 'eshell/. 'eshell-no-numeric-conversions t)
136
43966c5 Require individual files if needed when compiling, rather than
gm authored
137 (provide 'em-script)
f1db64f *** no comment ***
gerd authored
138
3ea1008 Use eshell-defgroup rather than defgroup.
gm authored
139 ;; Local Variables:
140 ;; generated-autoload-file: "esh-groups.el"
141 ;; End:
142
2502b43 Fix up comment convention on the arch-tag lines.
monnier authored
143 ;; arch-tag: a346439d-5ba8-4faf-ac2b-3aacfeaa4647
f1db64f *** no comment ***
gerd authored
144 ;;; em-script.el ends here
Something went wrong with that request. Please try again.