| 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-io.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-io.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\324\310\303&\210\312\333\304\334\317\335\310\303&\210\312\336\337\340\317\324\310\303&\210\312\341\342\343\317\344\310\303&\210\345\341\346\347#\207" [provide esh-io custom-declare-group eshell-io nil "Eshell's I/O management code provides a scheme for treating many\ndifferent kinds of objects -- symbols, files, buffers, etc. -- as\nthough they were files." :tag "I/O management" :group eshell custom-declare-variable eshell-io-load-hook "A hook that gets run when `eshell-io' is loaded." :version "24.1" :type hook eshell-number-of-handles 3 "The number of file handles that eshell supports.\nCurrently this is standard input, output and error. But even all of\nthese Emacs does not currently support with asynchronous processes\n(which is what eshell uses so that you can continue doing work in\nother buffers) ." integer eshell-output-handle 1 "The index of the standard output handle." eshell-error-handle 2 "The index of the standard error handle." eshell-buffer-shorthand "If non-nil, a symbol name can be used for a buffer in redirection.\nIf nil, redirecting to a buffer requires buffer name syntax. If this\nvariable is set, redirection directly to Lisp symbols will be\nimpossible.\n\nExample:\n\n echo hello > '*scratch* ; works if `eshell-buffer-shorthand' is t\n echo hello > #<buffer *scratch*> ; always works" boolean eshell-print-queue-size 5 "The size of the print queue, for doing buffered printing.\nThis is basically a speed enhancement, to avoid blocking the Lisp code\nfrom executing while Emacs is redisplaying." eshell-virtual-targets '(("/dev/eshell" eshell-interactive-print nil) ("/dev/kill" (lambda (mode) (if (eq mode 'overwrite) (kill-new #1="")) 'eshell-kill-append) t) ("/dev/clip" (lambda (mode) (if (eq mode 'overwrite) (let ((x-select-enable-clipboard t)) (kill-new #1#))) 'eshell-clipboard-append) t)) "Map virtual devices name to Emacs Lisp functions.\nIf the user specifies any of the filenames above as a redirection\ntarget, the function in the second element will be called.\n\nIf the third element is non-nil, the redirection mode is passed as an\nargument (which is the symbol `overwrite', `append' or `insert'), and\nthe function is expected to return another function -- which is the\noutput function. Otherwise, the second element itself is the output\nfunction.\n\nThe output function is then called repeatedly with single strings,\nwhich represents successive pieces of the output of the command, until nil\nis passed, meaning EOF.\n\nNOTE: /dev/null is handled specially as a virtual target, and should\nnot be added to this variable." (repeat (list (string :tag "Target") function (choice (const :tag "Func returns output-func" t) (const :tag "Func is output-func" nil)))) put risky-local-variable t] 10)
(defvar eshell-current-handles nil)
#@56 The exit code from the last command. 0 if successful.
(defvar eshell-last-command-status 0 (#$ . 3566))
#@58 The result of the last command. Not related to success.
(defvar eshell-last-command-result nil (#$ . 3677))
#@57 If non-nil, the current buffer is a file output buffer.
(defvar eshell-output-file-buffer nil (#$ . 3792))
#@36 Initialize the I/O subsystem code.
(defalias 'eshell-io-initialize #[nil "\300\301\302\303\304$\210\305\306!\210\300\307\310\303\304$\210\300\311\312\303\304$\207" [add-hook eshell-parse-argument-hook eshell-parse-redirection nil t make-local-variable eshell-current-redirections eshell-pre-rewrite-command-hook eshell-strip-redirections eshell-post-rewrite-command-hook eshell-apply-redirections] 5 (#$ . 3905)])
#@44 Parse an output redirection, such as '2>'.
(defalias 'eshell-parse-redirection #[nil "?\205? \304\305!\205? \203 \306 \207\307\310!\307\311!\n\312\230\203$ \313\314!\210\306\315 \2030 \316 !\2061 \310\317\320\nGSHDE\321\225b\210!*\207" [eshell-current-quoted eshell-current-argument oper sh looking-at "\\([0-9]\\)?\\(<\\|>+\\)&?\\([0-9]\\)?\\s-*" eshell-finish-arg match-string 1 2 "<" error "Eshell does not support input redirection" eshell-set-output-handle string-to-number quote [overwrite append insert] 0] 6 (#$ . 4325)])
#@43 Rewrite any output redirections in TERMS.
(defalias 'eshell-strip-redirections #[(terms) "\305C \211A\n\203T \n@:\203 \n\211 @@)\306=\204& \nA A\202 \nA\204/ \307\310!\210\311\312\n@\n\211 A@)C\"DC\244\210 \n\211 AA)\241\210\n\211 AA)\211\204\f A\211*\207" [eshell-current-redirections terms tt tl x t eshell-set-output-handle error "Missing redirection target" ignore append] 6 (#$ . 4866)])
#@57 Apply any redirection which were specified for COMMAND.
(defalias 'eshell-apply-redirections #[(cmdsym) "\205 \302\303C JC#L\207" [eshell-current-redirections cmdsym append progn] 5 (#$ . 5276)])
#@285 Create a new set of file handles for a command.
The default location for standard output and standard error will go to
STANDARD-OUTPUT and STANDARD-ERROR, respectively.
OUTPUT-MODE and ERROR-MODE are either `overwrite', `append' or `insert';
a nil value of mode defaults to `insert'.
(defalias 'eshell-create-handles #[(standard-output output-mode &optional standard-error error-mode) "\306\307\"\310 \n\"\310 \f\" \n\211 \f\n\311BI\210 \203*
\311BI\210\2024
\n\311BI\210 +\207" [eshell-number-of-handles standard-output output-mode standard-error error-mode error-target make-vector nil eshell-get-target 1 output-target handles eshell-output-handle eshell-error-handle] 6 (#$ . 5483)])
#@53 Protect the handles in HANDLES from a being closed.
(defalias 'eshell-protect-handles #[(handles) "\303\211 W\203 \nH\203 \nH\nHAT\241\210T\211\202 )\n\207" [idx eshell-number-of-handles handles 0] 4 (#$ . 6193)])
#@121 Close an output TARGET, passing STATUS as the result.
STATUS should be non-nil on successful termination of the output.
(defalias 'eshell-close-target #[(target status) "9\203 \305\207\306!\2034 \307!\211\2052 r q\210\n\2051 \310 \210\n\311=\2051 \204. \312\305!\210\313 !))\207 \314\315!\205? \315\f!)\203O \316!\317=\205e \320!\207\321!\203Y !\207:\205e \322@ A#\207" [target buf eshell-output-file-buffer status proc nil markerp marker-buffer save-buffer t set-buffer-modified-p kill-buffer fboundp processp process-status run process-send-eof functionp apply] 5 (#$ . 6423)])
#@313 Close all of the current handles, taking refcounts into account.
EXIT-CODE is the process exit code; mainly, it is zero, if the command
completed successfully. RESULT is the quoted value of the last
command. If nil, then the meta variables for keeping track of the
last execution result should not be changed.
(defalias 'eshell-close-handles #[(exit-code &optional result handles) "\306 \203 @\307=\204 \310\311\312C\"\210\n \211 A@)
W\203\206 \206* \211 H\203~ HHAS\241\210HA\306U\203~ H@\211 <\204_ \313\n\306U\"\210\202v \203v \313@\n\306U\"\210A\211\204d )H\314\240\210)T\211\202 )\314\207" [idx result exit-code eshell-last-command-status x eshell-last-command-result 0 quote signal cl-assertion-failed (or (not result) (eq (car result) 'quote)) eshell-close-target nil eshell-number-of-handles handles eshell-current-handles target] 5 (#$ . 7025)])
#@59 Call `kill-append' with STRING, if it is indeed a string.
(defalias 'eshell-kill-append #[(string) ";\205 \301\302\"\207" [string kill-append nil] 3 (#$ . 7931)])
#@59 Call `kill-append' with STRING, if it is indeed a string.
(defalias 'eshell-clipboard-append #[(string) ";\205\f \302\303\304\")\207" [string x-select-enable-clipboard t kill-append nil] 3 (#$ . 8103)])
#@170 Convert TARGET, which is a raw argument, into a valid output target.
MODE is either `overwrite', `append' or `insert'; if it is omitted or nil,
it defaults to `insert'.
(defalias 'eshell-get-target #[(target &optional mode) "\206 \306 ;\203m \307 \n\"\211\203( \310 8\203\" A@!\202k A@\202k \311 ! \312 \313\" r
q\210\"\203? \314\315 \"\210\316#\317\320!\210\f
=\203P \321\202Q \313\322=\203_ \323 \210\202h \324=\203h db\210\325 +)\207\326 !\204\211 \327\330!\203\266 \330J\203\266 9\203\266 \331>\204\266 \326 !\203\223 \202\230 \332\333 !! r
q\210\322=\203\251 \323 \210\202\262 \324=\203\262 db\210\325 *\207\334 !\203\276 \316\207 9\203\317 \322=\203\315 \316L\210 \207 $\335\336!\205\334 \336$!)\204\346 \337 !\203\350 \207\314\340\341 !\"\207" [mode target eshell-virtual-targets redir exists buf insert assoc 2 get-file-buffer find-file-noselect t error "Cannot write to read-only file `%s'" nil make-local-variable eshell-output-file-buffer 0 overwrite erase-buffer append point-marker bufferp boundp eshell-buffer-shorthand (t nil) get-buffer-create symbol-name functionp fboundp processp markerp "Invalid redirection target: %s" eshell-stringify buffer-file-read-only buffer-read-only proc] 5 (#$ . 8316)])
#@51 Set handle INDEX, using MODE, to point to TARGET.
(defalias 'eshell-set-output-handle #[(index mode &optional target) "\205o ;\2030 \306\301!\203 \230\202\" \306\302!\203! \n\230\202\" \307\204+ \310\230\2030 \f\307I\207\311
\" \fH@ \f
\f<\203V
\f\235\204V \312\f
C\"\f\202[
C\f \fH\204h \f\307\313BI\210 \fH\f\240*\207" [target null-device grep-null-device eshell-current-handles index mode boundp nil "/dev/null" eshell-get-target append 1 current where] 4 (#$ . 9563)])
#@70 Return non-nil if current handles are bound for interactive display.
(defalias 'eshell-interactive-output-p #[nil " H@\303=\205 \nH@\303=\207" [eshell-current-handles eshell-output-handle eshell-error-handle t] 2 (#$ . 10064)])
(defvar eshell-print-queue nil)
(defvar eshell-print-queue-count -1)
#@46 Output OBJECT to the standard output handle.
(defalias 'eshell-print #[(object) "\302 \"\207" [object eshell-output-handle eshell-output-object] 3 (#$ . 10370)])
(put 'eshell-print 'byte-optimizer 'byte-compile-inline-expand)
#@169 Flush out any lines that have been queued for printing.
Must be called before printing begins with -1 as its argument, and
after all printing is over with no argument.
(defalias 'eshell-flush #[(&optional reset-p) "\305\203\n \305\207 \203 \306 \f\")\210\307\310!\210\207" [reset-p eshell-print-queue eshell-print-queue-count object eshell-output-handle nil eshell-output-object eshell-flush 0] 4 (#$ . 10604)])
#@41 Initialize the buffered printing queue.
(defalias 'eshell-init-print-buffer #[nil "\300\301!\207" [eshell-flush -1] 2 (#$ . 11029)])
#@41 A buffered print -- *for strings only*.
(defalias 'eshell-buffered-print #[(&rest strings) "\306W\203 \307\310 \"\311\n \")\210\306\211\207\fU\203 \312 \210
\307\310 \"PT\211\207" [eshell-print-queue-count strings object eshell-output-handle eshell-print-queue-size eshell-print-queue 0 apply concat eshell-output-object eshell-flush] 4 (#$ . 11168)])
#@45 Output OBJECT to the standard error handle.
(defalias 'eshell-error #[(object) "\302 \"\207" [object eshell-error-handle eshell-output-object] 3 (#$ . 11535)])
(put 'eshell-error 'byte-optimizer 'byte-compile-inline-expand)
#@67 Output OBJECT followed by a newline to the standard error handle.
(defalias 'eshell-errorn #[(object) "\302 \")\210\303\302 \")\207" [object eshell-error-handle eshell-output-object "\n"] 3 (#$ . 11766)])
(put 'eshell-errorn 'byte-optimizer 'byte-compile-inline-expand)
#@68 Output OBJECT followed by a newline to the standard output handle.
(defalias 'eshell-printn #[(object) "\302 \")\210\303\302 \")\207" [object eshell-output-handle eshell-output-object "\n"] 3 (#$ . 12047)])
(put 'eshell-printn 'byte-optimizer 'byte-compile-inline-expand)
#@88 Insert OBJECT into TARGET.
Returns what was actually sent, or nil if nothing was sent.
(defalias 'eshell-output-object-to-target #[(object target) "\304!\203
!\210\202\271 9\203I \305=\203\" \306\307\310 !\"\210\202\271 J\204. L\210\202\271 \310 !J;\204? \310J!L\210\211J PL\210\202\271 \311!\203\204 \312\313!!\203\271 r\313!q\210`U\212b\210 ;\204n \310 !\314 !\210\315 \307\223\210)\n\203\200 b\210*\202\271 \316\317!\205\217 \317 !)\203\254 \320!\321=\203\271 ;\204\244 \310 !\322 \"\210\202\271 :\203\271 \323@ A#\210 \207" [target object moving proc functionp t eshell-output-filter nil eshell-stringify markerp buffer-live-p marker-buffer insert-and-inherit point-marker fboundp processp process-status run process-send-string apply] 4 (#$ . 12330)])
#@50 Insert OBJECT, using HANDLE-INDEX specifically).
(defalias 'eshell-output-object #[(object &optional handle-index handles) "\206 \n\206\n H@\211 \203 \f<\204 \306
\f\"\202/ \f\205/ \306
\f@\"\210\fA\211\204! \307)\207" [handles eshell-current-handles handle-index eshell-output-handle target object eshell-output-object-to-target nil] 4 (#$ . 13125)])