1 ;;; esh-ext.el --- commands external to Eshell
3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
6 ;; Author: John Wiegley <johnw@gnu.org>
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
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.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
25 ;; To force a command to invoked external, either provide an explicit
26 ;; pathname for the command argument, or prefix the command name with
27 ;; an asterix character. Example:
29 ;; grep ; make invoke `grep' Lisp function, or `eshell/grep'
30 ;; /bin/grep ; will definitely invoke /bin/grep
31 ;; *grep ; will also invoke /bin/grep
42 (defgroup eshell-ext nil
43 "External commands are invoked when operating system executables are
44 loaded into memory, thus beginning a new process."
45 :tag
"External commands"
50 (defcustom eshell-ext-load-hook
'(eshell-ext-initialize)
51 "*A hook that gets run when `eshell-ext' is loaded."
55 (defcustom eshell-binary-suffixes exec-suffixes
56 "*A list of suffixes used when searching for executable files."
57 :type
'(repeat string
)
60 (defcustom eshell-force-execution nil
61 "*If non-nil, try to execute binary files regardless of permissions.
62 This can be useful on systems like Windows, where the operating system
63 doesn't happen to honor the permission bits in certain cases; or in
64 cases where you want to associate an interpreter with a particular
65 kind of script file, but the language won't let you but a '#!'
66 interpreter line in the file, and you don't want to make it executable
67 since nothing else but Eshell will be able to understand
68 `eshell-interpreter-alist'."
72 (defun eshell-search-path (name)
73 "Search the environment path for NAME."
74 (if (file-name-absolute-p name
)
76 (let ((list (parse-colon-path (getenv "PATH")))
79 (setq n1
(concat (car list
) name
))
80 (setq suffixes eshell-binary-suffixes
)
82 (setq n2
(concat n1
(car suffixes
)))
83 (if (and (or (file-executable-p n2
)
84 (and eshell-force-execution
85 (file-readable-p n2
)))
86 (not (file-directory-p n2
)))
87 (setq file n2 suffixes nil list nil
))
88 (setq suffixes
(cdr suffixes
)))
89 (setq list
(cdr list
)))
92 (defcustom eshell-windows-shell-file
93 (if (eshell-under-windows-p)
94 (if (string-match "\\(\\`cmdproxy\\|sh\\)\\.\\(com\\|exe\\)"
96 (or (eshell-search-path "cmd.exe")
97 (eshell-search-path "command.com"))
99 "*The name of the shell command to use for DOS/Windows batch files.
100 This defaults to nil on non-Windows systems, where this variable is
102 :type
'(choice file
(const nil
))
105 (defsubst eshell-invoke-batch-file
(&rest args
)
106 "Invoke a .BAT or .CMD file on DOS/Windows systems."
107 ;; since CMD.EXE can't handle forward slashes in the initial
109 (setcar args
(subst-char-in-string ?
/ ?
\\ (car args
)))
110 (throw 'eshell-replace-command
111 (eshell-parse-command eshell-windows-shell-file
(cons "/c" args
))))
113 (defcustom eshell-interpreter-alist
114 (if (eshell-under-windows-p)
115 '(("\\.\\(bat\\|cmd\\)\\'" . eshell-invoke-batch-file
)))
116 "*An alist defining interpreter substitutions.
117 Each member is a cons cell of the form:
119 (MATCH . INTERPRETER)
121 MATCH should be a regexp, which is matched against the command name,
122 or a function. If either returns a non-nil value, then INTERPRETER
123 will be used for that command.
125 If INTERPRETER is a string, it will be called as the command name,
126 with the original command name passed as the first argument, with all
127 subsequent arguments following. If INTERPRETER is a function, it will
128 be called with all of those arguments. Note that interpreter
129 functions should throw `eshell-replace-command' with the alternate
130 command form, or they should return a value compatible with the
131 possible return values of `eshell-external-command', which see."
132 :type
'(repeat (cons (choice regexp
(function :tag
"Predicate"))
133 (choice string
(function :tag
"Interpreter"))))
136 (defcustom eshell-alternate-command-hook nil
137 "*A hook run whenever external command lookup fails.
138 If a functions wishes to provide an alternate command, they must throw
139 it using the tag `eshell-replace-command'. This is done because the
140 substituted command need not be external at all, and therefore must be
141 passed up to a higher level for re-evaluation.
143 Or, if the function returns a filename, that filename will be invoked
144 with the current command arguments rather than the command specified
145 by the user on the command line."
149 (defcustom eshell-command-interpreter-max-length
256
150 "*The maximum length of any command interpreter string, plus args."
154 (defcustom eshell-explicit-command-char ?
*
155 "*If this char occurs before a command name, call it externally.
156 That is, although `vi' may be an alias, `\vi' will always call the
163 (defun eshell-ext-initialize ()
164 "Initialize the external command handling code."
165 (add-hook 'eshell-named-command-hook
'eshell-explicit-command nil t
))
167 (defun eshell-explicit-command (command args
)
168 "If a command name begins with `*', call it externally always.
169 This bypasses all Lisp functions and aliases."
170 (when (and (> (length command
) 1)
171 (eq (aref command
0) eshell-explicit-command-char
))
172 (let ((cmd (eshell-search-path (substring command
1))))
174 (or (eshell-external-command cmd args
)
175 (error "%s: external command failed" cmd
))
176 (error "%s: external command not found"
177 (substring command
1))))))
179 (defun eshell-remote-command (handler command args
)
180 "Insert output from a remote COMMAND, using ARGS.
181 A remote command is something that executes on a different machine.
182 An external command simply means external to Emacs.
184 Note that this function is very crude at the moment. It gathers up
185 all the output from the remote command, and sends it all at once,
186 causing the user to wonder if anything's really going on..."
187 (let ((outbuf (generate-new-buffer " *eshell remote output*"))
188 (errbuf (generate-new-buffer " *eshell remote error*"))
193 (funcall handler
'shell-command
194 (mapconcat 'shell-quote-argument
195 (append (list command
) args
) " ")
197 (eshell-print (save-excursion (set-buffer outbuf
)
199 (eshell-error (save-excursion (set-buffer errbuf
)
201 (eshell-close-handles exitcode
'nil
)
203 (kill-buffer errbuf
))))
205 (defun eshell-external-command (command args
)
206 "Insert output from an external COMMAND, using ARGS."
207 (setq args
(eshell-stringify-list (eshell-flatten-list args
)))
209 (unless (or (equal default-directory
"/")
210 (and (eshell-under-windows-p)
211 (string-match "\\`[A-Za-z]:[/\\\\]\\'"
213 (find-file-name-handler default-directory
216 (not (and (featurep 'xemacs
)
217 (eq handler
'dired-handler-fn
))))
218 (eshell-remote-command handler command args
))
219 (let ((interp (eshell-find-interpreter command
)))
221 (if (functionp (car interp
))
222 (apply (car interp
) (append (cdr interp
) args
))
223 (eshell-gather-process-output
224 (car interp
) (append (cdr interp
) args
))))))
226 (defun eshell/addpath
(&rest args
)
227 "Add a set of paths to PATH."
228 (eshell-eval-using-options
230 '((?b
"begin" nil prepend
"add path element at beginning")
231 (?h
"help" nil nil
"display this usage message")
233 Adds the given PATH to $PATH.")
237 (setq args
(nreverse args
)))
241 (concat (car args
) path-separator
243 (concat (getenv "PATH") path-separator
245 (setq args
(cdr args
))))
246 (let ((paths (parse-colon-path (getenv "PATH"))))
248 (eshell-printn (car paths
))
249 (setq paths
(cdr paths
)))))))
251 (put 'eshell
/addpath
'eshell-no-numeric-conversions t
)
253 (defun eshell-script-interpreter (file)
254 "Extract the script to run from FILE, if it has #!<interp> in it.
255 Return nil, or a list of the form:
257 (INTERPRETER [ARGS] FILE)"
258 (let ((maxlen eshell-command-interpreter-max-length
))
259 (if (and (file-readable-p file
)
260 (file-regular-p file
))
262 (insert-file-contents-literally file nil
0 maxlen
)
263 (if (looking-at "#![ \t]*\\([^ \r\t\n]+\\)\\([ \t]+\\(.+\\)\\)?")
265 (list (match-string 1)
268 (list (match-string 1)
271 (defun eshell-find-interpreter (file &optional no-examine-p
)
272 "Find the command interpreter with which to execute FILE.
273 If NO-EXAMINE-P is non-nil, FILE will not be inspected for a script
274 line of the form #!<interp>."
278 (eshell-for possible eshell-interpreter-alist
280 ((functionp (car possible
))
281 (and (funcall (car possible
) file
)
282 (throw 'found
(cdr possible
))))
283 ((stringp (car possible
))
284 (and (string-match (car possible
) file
)
285 (throw 'found
(cdr possible
))))
287 (error "Invalid interpreter-alist test"))))))))
288 (if finterp
; first check
290 (let ((fullname (if (file-name-directory file
) file
291 (eshell-search-path file
)))
292 (suffixes eshell-binary-suffixes
))
293 (if (and fullname
(not (or eshell-force-execution
294 (file-executable-p fullname
))))
296 (let ((try (concat fullname
(car suffixes
))))
297 (if (or (file-executable-p try
)
298 (and eshell-force-execution
299 (file-readable-p try
)))
300 (setq fullname try suffixes nil
)
301 (setq suffixes
(cdr suffixes
))))))
302 (cond ((not (and fullname
(file-exists-p fullname
)))
303 (let ((name (or fullname file
)))
304 (unless (setq fullname
305 (run-hook-with-args-until-success
306 'eshell-alternate-command-hook file
))
307 (error "%s: command not found" name
))))
308 ((not (or eshell-force-execution
309 (file-executable-p fullname
)))
310 (error "%s: Permission denied" fullname
)))
313 (setq interp
(eshell-script-interpreter fullname
))
316 (cons (car (eshell-find-interpreter (car interp
) t
))
318 (or interp
(list fullname
)))))))
320 ;; arch-tag: 178d4064-7e60-4745-b81f-bab5d8d7c40f
321 ;;; esh-ext.el ends here