| Current Path : /usr/share/emacs/24.3/lisp/eshell/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/eshell/esh-ext.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:54 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/esh-ext.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303!\210\302\304!\210\305\306\307\310\311\312\313\314&\210\315\316\307\317\320\321\322\323\313\306& \210\315\324\325\326\322\327\313\306&\210\315\330\307\331\322\332\313\306&\207" [provide esh-ext require esh-util esh-opt custom-declare-group eshell-ext nil "External commands are invoked when operating system executables are\nloaded into memory, thus beginning a new process." :tag "External commands" :group eshell custom-declare-variable eshell-ext-load-hook "A hook that gets run when `eshell-ext' is loaded." :version "24.1" :type hook eshell-binary-suffixes exec-suffixes "A list of suffixes used when searching for executable files." (repeat string) eshell-force-execution "If non-nil, try to execute binary files regardless of permissions.\nThis can be useful on systems like Windows, where the operating system\ndoesn't happen to honor the permission bits in certain cases; or in\ncases where you want to associate an interpreter with a particular\nkind of script file, but the language won't let you but a '#!'\ninterpreter line in the file, and you don't want to make it executable\nsince nothing else but Eshell will be able to understand\n`eshell-interpreter-alist'." boolean] 10)
#@39 Search the environment path for NAME.
(defalias 'eshell-search-path #[(name) "\306!\203 \207\307 !\310\211\211\211 \211 \f\203Y \f@P
\211\203P \f
@P\311 !\204< \203I \312 !\203I \313 !\204I \310\211\f
A\211\204& \fA\211\f\204 \n-\207" [name eshell-path-env file n2 n1 suffixes file-name-absolute-p eshell-parse-colon-path nil file-executable-p file-readable-p file-directory-p list eshell-binary-suffixes eshell-force-execution] 6 (#$ . 1785)])
#@151 The name of the shell command to use for DOS/Windows batch files.
This defaults to nil on non-Windows systems, where this variable is
wholly ignored.
(custom-declare-variable 'eshell-windows-shell-file '(if (eshell-under-windows-p) (if (string-match "\\(cmdproxy\\|sh\\)\\.\\(com\\|exe\\)" shell-file-name) (or (eshell-search-path "cmd.exe") (eshell-search-path "command.com")) shell-file-name)) '(#$ . 2259) :type '(choice file (const nil)) :group 'eshell-ext)
#@52 Invoke a .BAT or .CMD file on DOS/Windows systems.
(defalias 'eshell-invoke-batch-file #[(&rest args) "\302\303\304@#\240\210\305\306\307\310 !\311B\"\"\207" [args eshell-windows-shell-file subst-char-in-string 47 92 throw eshell-replace-command eshell-parse-command eshell-quote-argument "/c"] 6 (#$ . 2727)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313&\210\304\314\315\316\310\317\312\313&\210\304\320\321\322\310\323\312\313&\210\304\324\325\326\310\327\312\313&\207" [put eshell-invoke-batch-file byte-optimizer byte-compile-inline-expand custom-declare-variable eshell-interpreter-alist (if (eshell-under-windows-p) '(("\\.\\(bat\\|cmd\\)\\'" . eshell-invoke-batch-file))) "An alist defining interpreter substitutions.\nEach member is a cons cell of the form:\n\n (MATCH . INTERPRETER)\n\nMATCH should be a regexp, which is matched against the command name,\nor a function. If either returns a non-nil value, then INTERPRETER\nwill be used for that command.\n\nIf INTERPRETER is a string, it will be called as the command name,\nwith the original command name passed as the first argument, with all\nsubsequent arguments following. If INTERPRETER is a function, it will\nbe called with all of those arguments. Note that interpreter\nfunctions should throw `eshell-replace-command' with the alternate\ncommand form, or they should return a value compatible with the\npossible return values of `eshell-external-command', which see." :type (repeat (cons (choice regexp (function :tag "Predicate")) (choice string (function :tag "Interpreter")))) :group eshell-ext eshell-alternate-command-hook nil "A hook run whenever external command lookup fails.\nIf a functions wishes to provide an alternate command, they must throw\nit using the tag `eshell-replace-command'. This is done because the\nsubstituted command need not be external at all, and therefore must be\npassed up to a higher level for re-evaluation.\n\nOr, if the function returns a filename, that filename will be invoked\nwith the current command arguments rather than the command specified\nby the user on the command line." hook eshell-command-interpreter-max-length 256 "The maximum length of any command interpreter string, plus args." integer eshell-explicit-command-char 42 "If this char occurs before a command name, call it externally.\nThat is, although `vi' may be an alias, ` i' will always call the\nexternal version." character] 8)
#@48 Initialize the external command handling code.
(defalias 'eshell-ext-initialize #[nil "\300\301\302\303\304$\207" [add-hook eshell-named-command-hook eshell-explicit-command nil t] 5 (#$ . 5178)])
#@109 If a command name begins with `*', call it externally always.
This bypasses all Lisp functions and aliases.
(defalias 'eshell-explicit-command #[(command args) "G\304V\2050 \305H =\2050 \306\304\307O!\211\203( \310\n \"\206/ \311\312\n\"\202/ \311\313\304\307O\")\207" [command eshell-explicit-command-char cmd args 1 0 eshell-search-path nil eshell-external-command error "%s: external command failed" "%s: external command not found"] 6 (#$ . 5382)])
#@365 Insert output from a remote COMMAND, using ARGS.
A remote command is something that executes on a different machine.
An external command simply means external to Emacs.
Note that this function is very crude at the moment. It gathers up
all the output from the remote command, and sends it all at once,
causing the user to wonder if anything's really going on...
(defalias 'eshell-remote-command #[(command args) "\306\307!\306\310!\311\312\"\206 \313\314\216\315\316\317\320C\f\"\321# \n#r q\210\322 ) \323
\"\210)r\nq\210\322 ) \323
\".\207" [command exitcode errbuf outbuf args object generate-new-buffer " *eshell remote output*" " *eshell remote error*" file-remote-p localname 1 ((byte-code "\303\304\"\210\305 !\210\305\n!\207" [exitcode outbuf errbuf eshell-close-handles nil kill-buffer] 3)) shell-command mapconcat shell-quote-argument append " " buffer-string eshell-output-object eshell-output-handle eshell-error-handle] 6 (#$ . 5847)])
#@53 Insert output from an external COMMAND, using ARGS.
(defalias 'eshell-external-command #[(command args) "\304!\305\306\")\307 \211;\203 \310 !\206 \310\n!\"\211\204& \311\312\303C\"\210\313 @!\2039 \314 @\315 A\"\"\202B \316 @\315 A\"\")\207" [args command default-directory interp eshell-flatten-list mapcar eshell-stringify eshell-find-interpreter file-remote-p signal cl-assertion-failed functionp apply append eshell-gather-process-output] 6 (#$ . 6819)])
#@29 Add a set of paths to PATH.
(defalias 'eshell/addpath #[(&rest args) "\306!\307\310\")\311\211\211\211\211 \312\313\314\315#.\207" [args temp-args ext-command last-value usage-msg prepend eshell-flatten-list mapcar eshell-stringify nil eshell-do-opt "addpath" ((98 "begin" nil prepend "add path element at beginning") (104 "help" nil nil "display this usage message") :usage "[-b] PATH\nAdds the given PATH to $PATH.") #[nil "\203# \306\307!\310\311\n# \203 \n Q\202 \nQ\312\307 \"\207\313\306\307!!\314 \211 \205S
@\211\211 \315\"\210)\316 \315\"\210*
A\211\204/ \314*\207" [args eshell-path-env path-separator prepend dir --dolist-tail-- getenv "PATH" mapconcat identity setenv parse-colon-path nil eshell-output-object "\n" object eshell-output-handle] 5]] 5 (#$ . 7294)])
(put 'eshell/addpath 'eshell-no-numeric-conversions t)
#@130 Extract the script to run from FILE, if it has #!<interp> in it.
Return nil, or a list of the form:
(INTERPRETER [ARGS] FILE)
(defalias 'eshell-script-interpreter #[(file) "\304\n!\205< \305\n!\205< \306\307!r q\210\310\216\311\n\312\313 $\210\314\315!\205; \316\317!\2036 \316\320!\316\317!\nE\202; \316\320!\nD+)\207" [eshell-command-interpreter-max-length maxlen file #1=#:temp-buffer file-readable-p file-regular-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally nil 0 looking-at "#![ ]*\\([^
\n]+\\)\\([ ]+\\(.+\\)\\)?" match-string 3 1] 5 (#$ . 8166)])
#@155 Find the command interpreter with which to execute FILE.
If NO-EXAMINE-P is non-nil, FILE will not be inspected for a script
line of the form #!<interp>.
(defalias 'eshell-find-interpreter #[(file &optional no-examine-p) "\306\307\215\211\203 D\202\260 \310 !\203 \202 \311 !\n\211 \203W
\204W \312\f!\204W \203W \f @P \312!\204H
\203P \313!\203P \314\202S A)\202, \f\203a \315\f!\204{ \f\206f \316\317 \"\211\204w \320\321\"\210)\202\212
\204\212 \312\f!\204\212 \320\322\f\"\210\314 \204\250 \323\f!\211\203\250 \324@\325\"@AB\206\257 \fC+)\207" [finterp file eshell-binary-suffixes suffixes fullname eshell-force-execution found (byte-code "\304\304\211\203E \n@\305 @!\203# @ !\203> \306\307 A\"\210\202> @;\203: \310 @ \"\203> \306\307 A\"\210\202> \311\312!\210\nA\211\204 *\207" [eshell-interpreter-alist possible --dolist-tail-- file nil functionp throw found string-match error "Invalid interpreter-alist test"] 5) file-name-directory eshell-search-path file-executable-p file-readable-p nil file-exists-p run-hook-with-args-until-success eshell-alternate-command-hook error "%s: command not found" "%s: Permission denied" eshell-script-interpreter eshell-find-interpreter t try name interp no-examine-p] 4 (#$ . 8835)])