| 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-proc.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:55 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/esh-proc.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\304\305\306\307\310\311&\210\312\313\304\314\315\316\317\320\310\303& \210\312\321\322\323\317\324\310\303&\210\312\325\326\327\317\324\310\303&\210\312\330\331\332\317\333\310\303&\210\312\334\331\335\317\333\310\303&\210\312\336\337\340\317\341\310\303&\210\312\342\304\343\317\320\310\303&\210\312\344\304\345\315\316\317\320\310\303& \207" [provide esh-proc custom-declare-group eshell-proc nil "When Eshell invokes external commands, it always does so\nasynchronously, so that Emacs isn't tied up waiting for the process to\nfinish." :tag "Process management" :group eshell custom-declare-variable eshell-proc-load-hook "A hook that gets run when `eshell-proc' is loaded." :version "24.1" :type hook eshell-process-wait-seconds 0 "The number of seconds to delay waiting for a synchronous process." integer eshell-process-wait-milliseconds 50 "The number of milliseconds to delay waiting for a synchronous process." eshell-done-messages-in-minibuffer t "If non-nil, subjob \"Done\" messages will display in minibuffer." boolean eshell-delete-exited-processes "If nil, process entries will stick around until `jobs' is run.\nThis variable sets the buffer-local value of `delete-exited-processes'\nin Eshell buffers.\n\nThis variable causes Eshell to mimic the behavior of bash when set to\nnil. It allows the user to view the exit status of a completed subjob\n(process) at their leisure, because the process entry remains in\nmemory until the user examines it using \\[list-processes].\n\nOtherwise, if `eshell-done-messages-in-minibuffer' is nil, and this\nvariable is set to t, the only indication the user will have that a\nsubjob is done is that it will no longer appear in the\n\\[list-processes\\] display.\n\nNote that Eshell will have to be restarted for a change in this\nvariable's value to take effect." eshell-reset-signals "^\\(interrupt\\|killed\\|quit\\|stopped\\)" "If a termination signal matches this regexp, the terminal will be reset." regexp eshell-exec-hook "Called each time a process is exec'd by `eshell-gather-process-output'.\nIt is passed one argument, which is the process that was just started.\nIt is useful for things that must be done each time a process is\nexecuted in a eshell mode buffer (e.g., `process-kill-without-query').\nIn contrast, `eshell-mode-hook' is only executed once when the buffer\nis created." eshell-kill-hook "Called when a process run by `eshell-gather-process-output' has ended.\nIt is passed two arguments: the process that was just ended, and the\ntermination status (as a string). Note that the first argument may be\nnil, in which case the user attempted to send a signal, but there was\nno relevant process. This can be used for displaying help\ninformation, for example."] 10)
(defvar eshell-current-subjob-p nil)
#@47 A list of the current status of subprocesses.
(defvar eshell-process-list nil (#$ . 3384))
#@136 Function run when killing a process.
Runs `eshell-reset-after-proc' and `eshell-kill-hook', passing arguments
PROC and STATUS to both.
(defalias 'eshell-kill-process-function #[(proc status) "\303>\204 \303 \n\"\210\304\300 \n#\207" [eshell-kill-hook proc status eshell-reset-after-proc run-hook-with-args] 4 (#$ . 3482)])
#@39 Initialize the process handling code.
(defalias 'eshell-proc-initialize #[nil "\301\302!\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\207" [eshell-command-map make-local-variable eshell-process-list define-key [(meta 105)] eshell-insert-process [(control 99)] eshell-interrupt-process [(control 107)] eshell-kill-process [(control 100)] eshell-send-eof-to-process [(control 115)] list-processes [(control 92)] eshell-quit-process] 4 (#$ . 3813)])
#@145 Reset the command input location after a process terminates.
The signals which will cause this to happen are matched by
`eshell-reset-signals'.
(defalias 'eshell-reset-after-proc #[(proc status) ";\205A \306 \"\205A \307db\210\310 \310 \310 `
\310 \212b\210n\2063 \311 \312\307\"))\210\n?\205@ \313\314!\210db)\207" [status eshell-reset-signals no-hooks eshell-last-input-start eshell-last-input-end eshell-last-output-start string-match nil point-marker "\n" eshell-output-filter run-hooks eshell-post-command-hook eshell-last-output-block-begin eshell-last-output-end string] 3 (#$ . 4330)])
#@45 Wait until PROC has successfully completed.
(defalias 'eshell-wait-for-process #[(&rest procs) "\2055 @\211\305\306!\205 \306 !)\203, \n\236\203, \307 \203$ \310 \210\311 \f\"\210\202 )A\211\204 \312\207" [procs proc eshell-process-list eshell-process-wait-seconds eshell-process-wait-milliseconds fboundp processp input-pending-p discard-input sit-for nil] 4 (#$ . 4944)])
(defalias 'eshell/wait 'eshell-wait-for-process)
#@35 List processes, if there are any.
(defalias 'eshell/jobs #[(&rest args) "\300\301!\205
\301 \205
\302 \207" [fboundp process-list list-processes] 2 (#$ . 5383)])
#@43 Kill processes, buffers, symbol or files.
(defalias 'eshell/kill #[(&rest args) "\306\211\2034 \n@\307\310!\205 \310 !)\204& \n@;\203- \311\312\n@\"\203- \n\313\n@!\240\210\nA\211\204 \203\306 @\307\310!\205D \310 !)\203O \314@!\202Q @\211 \203\276 \f\204a \315\316!\210\202\276 \f\247\203t \f\317U\203t \315\320\f\"\210\202\276 \f;\203\211 \311\321\f\"\203\211 \322\323\f!!\202\276 \f;\203\254 \324 \311\325\f\"\203\243 \326\327\330\331\f\"P!\202\250 \315\332\f\"\210)\202\276 \f\317W\203\271 \322\f!\202\276 \333\f \"\210)A\211\2048 *\324\207" [args signum ptr proc id case-fold-search SIGINT fboundp processp string-match "^[A-Za-z/][A-Za-z0-9<>/]+$" get-process process-id error "kill: bad signal spec" 0 "kill: bad signal spec `%d'" "^-?[0-9]+$" abs string-to-number nil "^-\\([A-Z]+[12]?\\)$" intern "SIG" match-string 1 "kill: bad signal spec `%s'" signal-process] 6 (#$ . 5553)])
#@101 Read the name of a process from the minibuffer, using completion.
The prompt will be set to PROMPT.
(defalias 'eshell-read-process-name #[(prompt) "\301\302\303\304 \"\305\306$\207" [prompt completing-read mapcar #[(proc) "\301!\302B\207" [proc process-name t] 2] process-list nil t] 5 (#$ . 6465)])
#@62 Insert the name of PROCESS into the current buffer at point.
(defalias 'eshell-insert-process #[(process) "\301\302\303!\304#\207" [process insert-and-inherit "#<process " process-name ">"] 4 (#$ . 6773) (list (get-process (eshell-read-process-name "Name of process: ")))])
#@31 Record OBJECT as now running.
(defalias 'eshell-record-process-object #[(object) "\306\307!\205 \307 !)\203# \n\203# \310\311\312!\313!#\314\315 \")\210\f\n\315\211\257
B\211\207" [object proc eshell-current-subjob-p string eshell-current-handles eshell-process-list fboundp processp format "[%s] %d\n" process-name process-id eshell-output-filter nil] 5 (#$ . 7054)])
(put 'eshell-record-process-object 'byte-optimizer 'byte-compile-inline-expand)
#@46 Record the process ENTRY as fully completed.
(defalias 'eshell-remove-process-entry #[(entry) "@\304\305!\205\f \305 !)\203& \3068\203& \n\203& \307\310\311@!\312@!#\210\313 \"\211\207" [entry proc eshell-done-messages-in-minibuffer eshell-process-list fboundp processp 2 message "[%s]+ Done %s" process-name process-command delq] 5 (#$ . 7518)])
#@51 Scratch buffer for holding Eshell's input/output.
(defvar eshell-scratch-buffer " *eshell-scratch*" (#$ . 7878))
#@132 A marker that tracks the beginning of output of the last subprocess.
Used only on systems which do not support async subprocesses.
(defvar eshell-last-sync-output-start nil (#$ . 7998))
#@272 List of commands which need `process-connection-type' to be nil.
Currently only affects commands in pipelines, and not those at
the front. If an element contains a directory part it must match
the full name of a command, otherwise just the nondirectory part must match.
(defvar eshell-needs-pipe '("bc") (#$ . 8191))
#@95 Return non-nil if COMMAND needs `process-connection-type' to be nil.
See `eshell-needs-pipe'.
(defalias 'eshell-needs-pipe-p #[(command) "\205 \301=?\205 \302\303\215\207" [eshell-in-pipeline-p first found (byte-code "\304\211\205+ \n@\211\305\306 \"\203 \202 \307 !\230\203# \310\311\312\"\210\nA\211\204 \304*\207" [eshell-needs-pipe exe --dolist-tail-- command nil string-match "/" file-name-nondirectory throw found t] 5)] 2 (#$ . 8515)])
#@40 Gather the output from COMMAND + ARGS.
(defalias 'eshell-gather-process-output #[(command args) "\306!\203 \307\310!!\204 \311\312\"\210 \203 \n\202 \313 \314\211 :\314\211 ; <\315\316!\203\376 \317!?\205: =\320\321\"\206B =\322\316\323!\314\324\325!C>\"$*\211\211 ? \315\326!\205d \326
!)\203\200 \203\200 \327\330\331?!\332?!# @\333\314@\")\210?A \314\211\257BB\211B)\210\334
p\"\210\335 \203\243 \336
\333\"\210\202\250 \336
\337\"\210\340
\341\"\210\342\343
\"\210\315\344!\203\313\344
!\211 C@:CA;)\345\346:!!\203\332 \347:\350\":\351<:\203\356 ;\204\356 \347:\352\";\351<<\203\313\353
:;#\210\202\313p\335 \314\211\211\211\211 D E F G H I J\354K!\204 \355 K\356L!qE\357 \210Jq\210\342\343\"\210\322\360\324K`\351L\314\257>\"\"DM\203PK`\314\223\210D\247\203\230Eq\210eb\210`H\361y\362=\203\224`G\363HG\"FJq\210I\203\204\333\314F\"\210\202\211\364F!\210GHEq\210\202`Jq\210\365N!\210\366D\247\203\251D\202\252\367!\210\370D\"\210M\204\272\314KD\247\204\307\311\371D#\210\351.
.\207" [command eshell-current-subjob-p eshell-delete-exited-processes delete-exited-processes process-environment proc file-executable-p file-regular-p file-truename error "%s: not an executable file" eshell-environment-variables nil fboundp start-file-process eshell-needs-pipe-p file-remote-p localname apply file-name-nondirectory append expand-file-name processp format "[%s] %d\n" process-name process-id eshell-output-filter set-process-buffer eshell-interactive-output-p set-process-filter eshell-insertion-filter set-process-sentinel eshell-sentinel run-hook-with-args eshell-exec-hook process-coding-system vectorp coding-system-eol-type coding-system-change-eol-conversion dos t unix set-process-coding-system markerp point-marker get-buffer-create erase-buffer call-process-region 1 0 buffer-substring-no-properties eshell-output-object eshell-update-markers eshell-close-handles -1 eshell-kill-process-function "%s: external command failed: %s" decoding encoding changed process-connection-type args object string eshell-current-handles eshell-process-list coding-systems exit-status proc-buf line lend lbeg interact-p oldbuf eshell-last-sync-output-start eshell-scratch-buffer eshell-in-pipeline-p eshell-last-output-end] 10 (#$ . 8977)])
#@144 Insert a string into the eshell buffer, or a process/file/buffer.
PROC is the process for which we're inserting output. STRING is the
output.
(defalias 'eshell-insertion-filter #[(proc string) "\306\307!!\205S r\307!q\210 \236\211\205R \310\n\233\310\n8 P\240\210\311\n8?\205R \310\n8\205R \310\n8 \310\n\233\312\240\210\311\n\233\313\240\210\314\f\312\n\211 A@)#\210\311\n\233\312\240\210)\202' *\207" [proc eshell-process-list entry string data x buffer-live-p process-buffer 3 4 nil t eshell-output-object] 5 (#$ . 11317)])
#@129 Generic sentinel for command processes. Reports only signals.
PROC is the process that's exiting. STRING is the exit message.
(defalias 'eshell-sentinel #[(proc string) "\305\306!!\205; r\306!q\210\307\216 \236\211\205: \310\216 \311\230?\2059 \312\313 \"\204- \314 \"\210\315\316!\317\n\211 A@)#)+\207" [proc eshell-process-list entry string x buffer-live-p process-buffer ((eshell-kill-process-function proc string)) ((eshell-remove-process-entry entry)) "run" string-match "^\\(finished\\|exited\\)" eshell-insertion-filter eshell-close-handles process-exit-status nil] 5 (#$ . 11856)])
#@208 Interact with a process, using PROMPT if more than one, via FUNC.
If ALL is non-nil, background processes will be interacted with as well.
If QUERY is non-nil, query the user with QUERY before calling FUNC.
(defalias 'eshell-process-interact #[(func &optional all query) "\306\211\n\306\211 \203N \f@\307 @!\310>\203:
\204\" \311 8\204: \2034 \312\313\314 @!\"!\203: @!\307 @!\315>\204G B\fA\211\204\f * \306 \211 \203h \f@\316!\210\fA\211\204X **\207" [result defunct eshell-process-list entry --dolist-tail-- all nil process-status (run stop open closed) 2 y-or-n-p format process-name (run stop open closed) eshell-remove-process-entry query func d] 6 (#$ . 12461)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\207" [custom-declare-variable eshell-kill-process-wait-time 5 "Seconds to wait between sending termination signals to a subprocess." :type integer :group eshell-proc eshell-kill-process-signals '(SIGINT SIGQUIT SIGKILL) "Signals used to kill processes when an Eshell buffer exits.\nEshell calls each of these signals in order when an Eshell buffer is\nkilled; if the process is still alive afterwards, Eshell waits a\nnumber of seconds defined by `eshell-kill-process-wait-time', and\ntries the next signal in the list." (repeat symbol) eshell-kill-processes-on-exit nil "If non-nil, kill active processes when exiting an Eshell buffer.\nEmacs will only kill processes owned by that Eshell buffer.\n\nIf nil, ownership of background and foreground processes reverts to\nEmacs itself, and will die only if the user exits Emacs, calls\n`kill-process', or terminates the processes externally.\n\nIf `ask', Emacs prompts the user before killing any processes.\n\nIf `every', it prompts once for every process.\n\nIf t, it kills all buffer-owned processes without asking.\n\nProcesses are first sent SIGHUP, then SIGINT, then SIGQUIT, then\nSIGKILL. The variable `eshell-kill-process-wait-time' specifies how\nlong to delay between signals." (choice (const :tag "Kill all, don't ask" t) (const :tag "Ask before killing" ask) (const :tag "Ask for each process" every) (const :tag "Don't kill subprocesses" nil))] 8)
#@111 Kill current process by trying various signals in sequence.
See the variable `eshell-kill-processes-on-exit'.
(defalias 'eshell-round-robin-kill #[(&optional query) "\211\205$ \305\306\307\n#\210\310 \204 \310\211\202 \311\f!\210 A\211\204 \310)\207" [eshell-kill-process-signals sigs query eshell-process-list eshell-kill-process-wait-time eshell-process-interact #[(proc) "\302\303! @\"\207" [proc sigs signal-process process-id] 3] t nil sleep-for] 5 (#$ . 14696)])
#@75 Kill processes belonging to the current Eshell buffer, possibly w/ query.
(defalias 'eshell-query-kill-processes #[nil "\205A \205A \304 \305\216\306 \210\307=\203 \310\311\312\313 \"!\203* \314\315=\205( \316!\210\317\320!\211\203< \321 !\203< \322 !\210)\323\324!*\207" [eshell-kill-processes-on-exit eshell-process-list #1=#:wconfig buf current-window-configuration ((set-window-configuration #1#)) list-processes ask y-or-n-p format "Kill processes owned by `%s'? " buffer-name eshell-round-robin-kill every "Kill Eshell child process `%s'? " get-buffer "*Process List*" buffer-live-p kill-buffer message nil] 5 (#$ . 15180)])
#@22 Interrupt a process.
(defalias 'eshell-interrupt-process #[nil "\300\301!?\205 \302\303\304\"\207" [eshell-process-interact interrupt-process eshell-kill-process-function nil "interrupt"] 3 (#$ . 15824) nil])
#@17 Kill a process.
(defalias 'eshell-kill-process #[nil "\300\301!?\205 \302\303\304\"\207" [eshell-process-interact kill-process eshell-kill-process-function nil "killed"] 3 (#$ . 16040) nil])
#@30 Send quit signal to process.
(defalias 'eshell-quit-process #[nil "\300\301!?\205 \302\303\304\"\207" [eshell-process-interact quit-process eshell-kill-process-function nil "quit"] 3 (#$ . 16238) nil])
#@22 Send EOF to process.
(defalias 'eshell-send-eof-to-process #[nil "\300\301\211\302#\210\303\304!\207" [eshell-send-input nil t eshell-process-interact process-send-eof] 4 (#$ . 16447) nil])