Current File : //kunden/usr/share/emacs/27.2/lisp/eshell/esh-ext.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\210\315\316\317\320\321DD\322\323\324\325\326\313\306&	\210\315\327\317\320\330DD\331\325\332\313\306&\210\315\333\317\320\334DD\335\325\336\313\306&\207" [require esh-util esh-io esh-arg 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 funcall function #[0 "\300\207" [nil] 1] "A hook that gets run when `eshell-ext' is loaded." :version "24.1" :type hook eshell-binary-suffixes #[0 "\207" [exec-suffixes] 1] "A list of suffixes used when searching for executable files." (repeat string) eshell-force-execution #[0 "\301>??\207" [system-type (windows-nt ms-dos)] 2] "If non-nil, try to execute files regardless of execute permissions.\nThis can be useful on systems like Windows, where the operating system\ndoesn't support the execution bit for shell scripts; or in cases where\nyou want to associate an interpreter with a particular kind of script\nfile, but the language won't let you but a `#!' interpreter line in\nthe file, and you don't want to make it executable since nothing else\nbut Eshell will be able to understand\n`eshell-interpreter-alist'." boolean] 10)
#@50 Search the environment path for NAME.

(fn NAME)
(defalias 'eshell-search-path #[257 "\302
!\203\207\303 \304\211\211\211\203R@P\262\262\203K@P\262\305!\2045	\203D\306!\203D\307!\204D
\262
\304\262\304\262A\262\202A\262\202
\207" [eshell-binary-suffixes eshell-force-execution file-name-absolute-p eshell-get-path nil file-executable-p file-readable-p file-directory-p] 8 (#$ . 1784)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\"\207" [custom-declare-variable eshell-windows-shell-file funcall function #[0 "\302>\205\303\304	\"\203\305\306!\206\305\307!\207	\207" [system-type shell-file-name (ms-dos windows-nt) string-match "\\(cmdproxy\\|sh\\)\\.\\(com\\|exe\\)" eshell-search-path "cmd.exe" "command.com"] 3] "The name of the shell command to use for DOS/Windows batch files.\nThis defaults to nil on non-Windows systems, where this variable is\nwholly ignored." :type (choice file (const nil)) :group eshell-ext autoload eshell-parse-command "esh-cmd"] 8)
#@69 Invoke a .BAT or .CMD file on DOS/Windows systems.

(fn &rest ARGS)
(defalias 'eshell-invoke-batch-file #[128 "\211\301\302\303@#\240\210\304\305\306\307!\310B\"\"\207" [eshell-windows-shell-file subst-char-in-string 47 92 throw eshell-replace-command eshell-parse-command eshell-quote-argument "/c"] 7 (#$ . 2821)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\321\314\315&\210\304\322\306\307\323DD\324\312\325\314\315&\210\304\326\306\307\327DD\330\312\331\314\315&\207" [put eshell-invoke-batch-file byte-optimizer byte-compile-inline-expand custom-declare-variable eshell-interpreter-alist funcall function #[0 "\301>\205\302\207" [system-type (ms-dos windows-nt) (("\\.\\(bat\\|cmd\\)\\'" . eshell-invoke-batch-file))] 2] "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\nname, or a function of arity 2 receiving the COMMAND and its\nARGS (a list).  If either returns a non-nil value, then\nINTERPRETER will 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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [256] 1] "The maximum length of any command interpreter string, plus args." integer eshell-explicit-command-char #[0 "\300\207" [42] 1] "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 #[0 "\300\301\302\303\304$\207" [add-hook eshell-named-command-hook eshell-explicit-command nil t] 5 (#$ . 5484)])
#@128 If a command name begins with `*', call it externally always.
This bypasses all Lisp functions and aliases.

(fn COMMAND ARGS)
(defalias 'eshell-explicit-command #[514 "
G\301V\2050
\302H=\2050\303\304\301\"!\211\203'\305
\"\206.\306\307\"\202.\306\310\304\301\"\"\262
\207" [eshell-explicit-command-char 1 0 eshell-search-path substring eshell-external-command error "%s: external command failed" "%s: external command not found"] 8 (#$ . 5686)])
#@384 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...

(fn COMMAND ARGS)
(defalias 'eshell-remote-command #[514 "\302\303!\302\304!\305!\306C\307\310\311\312\313#\314\"\315$\216\211\316\317\320\321C\n\"\322##\240\210rq\210\323 )\324
\"\266rq\210\323 )\324
	\"\262
)\207" [eshell-output-handle eshell-error-handle generate-new-buffer " *eshell remote output*" " *eshell remote error*" file-local-name 1 make-byte-code 0 "\303\302\242\304\"\210\305\300!\210\305\301!\207" vconcat vector [eshell-close-handles nil kill-buffer] 3 shell-command mapconcat shell-quote-argument append " " buffer-string eshell-output-object] 14 (#$ . 6151)])
#@72 Insert output from an external COMMAND, using ARGS.

(fn COMMAND ARGS)
(defalias 'eshell-external-command #[514 "\301
!\302\303\"\262
\262
\304;\203\305!\206\305!#\211\204%\306\307!\210\310
@!\2038\311
@\312A\"\"\202E\313\314!\210\315
@\312A\"\"\207" [default-directory flatten-tree mapcar eshell-stringify eshell-find-interpreter file-remote-p cl--assertion-failed interp functionp apply append require esh-proc eshell-gather-process-output] 8 (#$ . 7120)])
#@46 Add a set of paths to PATH.

(fn &rest ARGS)
(defalias 'eshell/addpath #[128 "\303
!\304\305\"\262
\306\307\310#\211
A\262\242
\211\203;\311\312!\313\314	#\262

\203/\211	Q\2023	Q\315\312\"\202^\316\311\312!!\211\205\\\211@\211\211\317
\n\"\266\320\317
\n\"\266
A\266\202\202@\262
\207" [eshell-path-env path-separator eshell-output-handle flatten-tree mapcar eshell-stringify eshell--do-opts "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.") getenv "PATH" mapconcat identity setenv parse-colon-path eshell-output-object "\n"] 12 (#$ . 7602)])
(byte-code "\300\301\302\303#\210\300\301\304\303#\207" [put eshell/addpath eshell-no-numeric-conversions t eshell-filename-arguments] 4)
#@141 Extract the script to run from FILE, if it has #!<interp> in it.
Return nil, or a list of the form:

  (INTERPRETER [ARGS] FILE)

(fn FILE)
(defalias 'eshell-script-interpreter #[257 "\301!\205F\302!\205F\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315\306$\210\316\317!\205C\320\321!\203>\320\322!\320\321!E\202C\320\322!D*\262
\207" [eshell-command-interpreter-max-length file-readable-p file-regular-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents-literally nil looking-at "#![ 	]*\\([^ 
	\n]+\\)\\([ 	]+\\(.+\\)\\)?" match-string 3 1] 9 (#$ . 8428)])
#@194 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>.

(fn FILE ARGS &optional NO-EXAMINE-P)
(defalias 'eshell-find-interpreter #[770 "\3042M\305\211\203K\211@\306
@!\203(\211@\211\"\203$\307\304A\"\210\210\202D\211@;\203@\310
@\"\203D\307\304A\"\210\202D\311\312!\210
A\266\202\202\2100\211\203W\211D\202
\313!\203a\202d\314!	
\203\211\315!\204\211\315\n!\203\211\316!\203\203\315\n!P\202\207\317\n\"\262
\203\300\204\300\320!\204\300\211\203\300

@P\320
!\204\257\203\270\321
!\203\270\211\262\305\262\202\274
A\262\210\202\227
\203\312\322!\204\343
\206\317\323\324\"\211\262\204\337\311\325\"\210\210\202\362\204\362\320!\204\362\311\326\"\210\305\204

\327!\262
\211\203

\330
@\331#@
AB\262
\211\206
C\262
\266\202\207" [eshell-interpreter-alist eshell-binary-suffixes default-directory eshell-force-execution found nil functionp throw string-match error "Invalid interpreter-alist test" file-name-directory eshell-search-path file-remote-p file-name-absolute-p expand-file-name file-executable-p file-readable-p file-exists-p run-hook-with-args-until-success eshell-alternate-command-hook "%s: command not found" "%s: Permission denied" eshell-script-interpreter eshell-find-interpreter t] 11 (#$ . 9114)])
(provide 'esh-ext)