WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/eshell
Viewing File: /usr/share/emacs/24.3/lisp/eshell/esh-util.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:07 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/esh-util.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\302\303\304\305\306\307&\210\310\311\312\313\314\315\306\301&\210\310\316\317\320\314\321\306\301&\210\310\322\323\324\314\325\306\301&\210\310\326\327\330\314\331\306\301&\210\310\332\312\333\314\315\306\301&\210\310\334\335\336\314\337\306\301&\210\310\340\341\342\314\337\306\301&\210\310\343\344\345\346\347\314\350\306\301&	\210\310\351\312\352\314\315\306\301&\210\310\353\354\355\314\350\306\301&\210\310\356\302\357\314\360\306\301&\207" [custom-declare-group eshell-util nil "This is general utility code, meant for use by Eshell itself." :tag "General utilities" :group eshell custom-declare-variable eshell-stringify-t t "If non-nil, the string representation of t is 't'.\nIf nil, t will be represented only in the exit code of the function,\nand not printed as a string.  This causes Lisp functions to behave\nsimilarly to external commands, as far as successful result output." :type boolean eshell-group-file "/etc/group" "If non-nil, the name of the group file on your system." (choice (const :tag "No group file" nil) file) eshell-passwd-file "/etc/passwd" "If non-nil, the name of the passwd file on your system." (choice (const :tag "No passwd file" nil) file) eshell-hosts-file "/etc/hosts" "The name of the /etc/hosts file." (choice (const :tag "No hosts file" nil) file) eshell-handle-errors "If non-nil, Eshell will handle errors itself.\nSetting this to nil is offered as an aid to debugging only." eshell-private-file-modes 384 "The file-modes value to use for creating \"private\" files." integer eshell-private-directory-modes 448 "The file-modes value to use for creating \"private\" directories." eshell-tar-regexp "\\.t\\(ar\\(\\.\\(gz\\|bz2\\|xz\\|Z\\)\\)?\\|gz\\|a[zZ]\\|z2\\)\\'" "Regular expression used to match tar file names." :version "24.1" regexp eshell-convert-numeric-arguments "If non-nil, converting arguments of numeric form to Lisp numbers.\nNumeric form is tested using the regular expression\n`eshell-number-regexp'.\n\nNOTE: If you find that numeric conversions are interfering with the\nspecification of filenames (for example, in calling `find-file', or\nsome other Lisp function that deals with files, not numbers), add the\nfollowing in your init file:\n\n  (put 'find-file 'eshell-no-numeric-conversions t)\n\nAny function with the property `eshell-no-numeric-conversions' set to\na non-nil value, will be passed strings, not numbers, even when an\nargument matches `eshell-number-regexp'." eshell-number-regexp "-?\\([0-9]*\\.\\)?[0-9]+\\(e[-0-9.]+\\)?" "Regular expression used to match numeric arguments.\nIf `eshell-convert-numeric-arguments' is non-nil, and an argument\nmatches this regexp, it will be converted to a Lisp number, using the\nfunction `string-to-number'." eshell-ange-ls-uids "List of user/host/id strings, used to determine remote ownership." (repeat (cons :tag "Host for User/UID map" (string :tag "Hostname") (repeat (cons :tag "User/UID List" (string :tag "Username") (repeat :tag "UIDs" string)))))] 10)
#@38 A cache to hold the names of groups.
(defvar eshell-group-names nil (#$ . 3574))
#@46 A timestamp of when the group file was read.
(defvar eshell-group-timestamp nil (#$ . 3661))
#@37 A cache to hold the names of users.
(defvar eshell-user-names nil (#$ . 3760))
#@45 A timestamp of when the user file was read.
(defvar eshell-user-timestamp nil (#$ . 3845))
#@49 A cache the names of frequently accessed hosts.
(defvar eshell-host-names nil (#$ . 3942))
#@46 A timestamp of when the hosts file was read.
(defvar eshell-host-timestamp nil (#$ . 4039))
#@56 Return non-nil if we are running under MS-DOS/Windows.
(defalias 'eshell-under-windows-p #[nil "\301>\207" [system-type (ms-dos windows-nt)] 2 (#$ . 4137)])
(put 'eshell-under-windows-p 'byte-optimizer 'byte-compile-inline-expand)
#@115 If `eshell-handle-errors' is non-nil, this is `condition-case'.
Otherwise, evaluates FORM with no error handling.
(defalias 'eshell-condition-case '(macro . #[(tag form &rest handlers) "\203\f\304	\nBBB\207\n\207" [eshell-handle-errors tag form handlers condition-case] 4 (#$ . 4376)]))
(put 'eshell-condition-case 'lisp-indent-function 2)
#@290 From point, find the CLOSE delimiter corresponding to OPEN.
The matching is bounded by BOUND.
If REVERSE-P is non-nil, process the region backwards.
If BACKSLASH-P is non-nil, and OPEN and CLOSE are the same character,
then quoting is done by a backslash, rather than a doubled delimiter.
(defalias 'eshell-find-delimiter #[(open close &optional bound reverse-p backslash-p) "\212\306\206d\n\203`Sf=\202\307f\f=\203'\n\203$\310\202%\306u\210	\311V\203\n\2035\312\2026\313`\"\203\n\203F`Sf\202H\307f\307
\n\204|\f=\203[\203|
\314=\203|`Tf\211\203|
\f=\204v
=\203|\306u\210\202\n\n\203\250\f=\203\213\203\250
\f=\204\231
=\203\250`SSf\314=\203\250\310u\210\202\n\f=\203\341
\f=\203\n\204\333\n\203\305`SSf\202\310`Tf\f=\203\333\n\203\325\310\202\326\306u\210\202\n	S\202\n
\fU\203\367	\n\203\361\310\202\362\306\\\202\n
U\203\n	\n\203\306\202\310\\*\n\203\310\202\306u\210\202'	\311U\205)\n\203'`\202)`S+\207" [bound depth reverse-p close open nc 1 nil -1 0 > < 92 c backslash-p] 3 (#$ . 4726)])
#@56 Convert STRING into a more native looking Lisp object.
(defalias 'eshell-convert #[(string) ";\204\207G\211\304U\203\202F	SH\305=\203#\304	SO\306\307\"\2031\310\307\"\202F\n\203E\306\311\312Q\"\203E\313!\202F)\207" [string len eshell-convert-numeric-arguments eshell-number-regexp 0 10 string-match "\n" split-string "\\`\\s-*" "\\s-*\\'" string-to-number] 5 (#$ . 5814)])
#@87 Return from LIST the N to M elements.
If N or M is nil, it means the end of the list.
(defalias 'eshell-sublist #[(l &optional n m) "\305!\306\203	\233:\203	\233\306\241\210\f\203\"\f	\233\202*	GS\307	!	*\207" [l a result m n copy-sequence nil last] 2 (#$ . 6218)])
#@113 Content of $PATH.
It might be different from (getenv "PATH"), when
`default-directory' points to a remote host.
(defvar eshell-path-env (getenv "PATH") (#$ . 6506))
#@101 Split string with `parse-colon-path'.
Prepend remote identification of `default-directory', if any.
(defalias 'eshell-parse-colon-path #[(path-env) "\303!\211\203\304\305\306\n!\"\202\306\n!)\207" [default-directory remote path-env file-remote-p mapcar #[(x) "	P\207" [remote x] 2] parse-colon-path] 5 (#$ . 6678)])
#@38 Split a path into multiple subparts.
(defalias 'eshell-split-path #[(path) "G\306\211\307
\310>\203'\f\311V\203'\306H\312=\203'\313H\312=\203'\311\fW\203YH\312=\203R\314\315#\204R\nU\203G\316\202L\nTO	BTT\211\202(\nW\203f\nO	B
\310>\203\201\317\320\321	!@\"\203\201\321	!\321	!@\316P\240\210	\237,\207" [path parts li i len system-type 0 nil (ms-dos windows-nt) 2 47 1 get-text-property escaped "/" string-match "\\`[A-Za-z]:\\'" last] 5 (#$ . 7007)])
#@71 Make value a string.  If separated by newlines change them to spaces.
(defalias 'eshell-to-flat-string #[(value) "\302!\303\304	\"\203\305\306\307\211	$\303\310	\"\203#\305\311\307\211	$\202	)\207" [value text eshell-stringify string-match "\n+\\'" replace-match "" t "\n+" " "] 5 (#$ . 7503)])
#@25 Iterate through a list.
(defalias 'eshell-for '(macro . #[(for-var for-list &rest forms) "\303\304DC\305\304\303	\306BC\nBB\307BBBE\207" [for-list for-var forms let list-iter while ((car list-iter)) ((setq list-iter (cdr list-iter)))] 7 (#$ . 7813)]))
(make-obsolete 'eshell-for 'dolist "24.1")
#@63 Flatten any lists within ARGS, so that there are no sublists.
(defalias 'eshell-flatten-list #[(args) "\304C	\305\211\203.@\211<\203\"\nA<\203\"\306\n!\244\210\202'\nC\244\210A\211\204*A)\207" [new-list args a --dolist-tail-- t nil eshell-flatten-list] 4 (#$ . 8115)])
#@68 Remove occurring multiples in L.  You probably want to sort first.
(defalias 'eshell-uniqify-list #[(l) "\211\203*	A\203#	@	\211A@)\230\203#	\211\211AA)\241\210\202	A\211\204)\207" [l m x] 3 (#$ . 8406)])
#@37 Convert OBJECT into a string value.
(defalias 'eshell-stringify #[(object) ";\203\207<\203\303=\204\304!\211\305	GSO)\207\247\203'\306!\207\307=\205/\n??\2056\304!\207" [object string eshell-stringify-t nil pp-to-string 0 number-to-string t] 4 (#$ . 8630)])
#@51 Convert each element of ARGS into a string value.
(defalias 'eshell-stringify-list #[(args) "\301\302\"\207" [args mapcar eshell-stringify] 3 (#$ . 8913)])
(put 'eshell-stringify-list 'byte-optimizer 'byte-compile-inline-expand)
#@61 Flatten and stringify all of the ARGS into a single string.
(defalias 'eshell-flatten-and-stringify #[(&rest args) "\301\302\303!\304#\207" [args mapconcat eshell-stringify eshell-flatten-list " "] 4 (#$ . 9149)])
(put 'eshell-flatten-and-stringify 'byte-optimizer 'byte-compile-inline-expand)
#@64 Return a list of files in the given DIRECTORY matching REGEXP.
(defalias 'eshell-directory-files #[(regexp &optional directory) "\303\206	\n#\207" [directory default-directory regexp directory-files] 4 (#$ . 9450)])
(put 'eshell-directory-files 'byte-optimizer 'byte-compile-inline-expand)
#@52 Return list of regexp and prefix arg using PROMPT.
(defalias 'eshell-regexp-arg #[(prompt) "\305	\306\211\211\303%\211\307\230\203\211A@\240\202\n\310\f!*D\207" [last-command prompt regexp minibuffer-history-search-history current-prefix-arg read-from-minibuffer nil "" prefix-numeric-value] 7 (#$ . 9750)])
#@30 Return a printable FILESIZE.
(defalias 'eshell-printable-size #[(filesize &optional human-readable block-size use-colors) "\306\206\307!\n\203\247	\nW\203-\310	!\307U\203\311\202\263\203&\312\202\263\313\314	\"\202\263	\n\245\211\nW\203K	\315X\203D\313\316	\"\202\263\313\317	\"\202\263	\n\245\211\nW\203y	\320X\203b\313\321	\"\202f\313\322	\"
\203t\323\307\fG\324\325\f%\210\f)\202\263	\n\245\211\nW\205\263	\326X\203\220\313\327	\"\202\224\313\330	\"
\203\242\323\307\fG\324\331\f%\210\f)\202\263\203\257	\245\313\314	\")\207" [filesize size human-readable block-size str use-colors float 0 round "0" "1.0k" format "%.0f" 9.94 "%.1fk" "%.0fk" 9.94 "%.1fM" "%.0fM" put-text-property face bold 9.94 "%.1fG" "%.0fG" bold-italic] 7 (#$ . 10072)])
#@216 Pare down the ENTRIES list using the EXCLUDE regexp, and PREDICATES.
The original list is not affected.  If the result is only one element
long, it will be returned itself, rather than returning a one-element
list.
(defalias 'eshell-winnow-list #[(entries exclude &optional predicates) "\306C\307\211\211\f<\204\fC\306\f\307\211	\203`	@\n\203-\310\n
\"\204W\211?	\203N	@
!\203C\306\202G\307\211	A\211\2047\n\203W
C\244\210	A\211	\204*\203o\211\fA@)\202qA,\207" [listified p valid flist entries entry t nil string-match --dolist-tail-- exclude predicates x] 5 (#$ . 10860)])
#@35 Allow Emacs to redisplay buffers.
(defalias 'eshell-redisplay #[nil "\300\301\302\217\207" [nil (byte-code "\300\301\211\"\207" [sit-for 0] 3) ((error))] 3 (#$ . 11481)])
(put 'eshell-redisplay 'byte-optimizer 'byte-compile-inline-expand)
#@58 Return an alist correlating gids to group names in FILE.
(defalias 'eshell-read-passwd-file #[(file) "\304\305	!\203S\306\307!r\nq\210\310\216\311	!\210eb\210m\204R\312`\304\210`{\313\"\211\203K@\203K\3148\203K\315\3148!\236\204K\315\3148!@BB)\304y\210\202+)\207" [names file #1=#:temp-buffer fields nil file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents split-string ":" 2 string-to-number] 4 (#$ . 11726)])
#@50 Read the contents of /etc/passwd for user names.
(defalias 'eshell-read-passwd #[(file result-var timestamp-var) "J\203	J\203\303	J\304\305\n!8\"\203!\306\n!L\210	\307 L\210J\207" [result-var timestamp-var file time-less-p 5 file-attributes eshell-read-passwd-file current-time] 5 (#$ . 12258)])
#@50 Read the contents of /etc/group for group names.
(defalias 'eshell-read-group-names #[nil "\205	\301\302\303#\207" [eshell-group-file eshell-read-passwd eshell-group-names eshell-group-timestamp] 4 (#$ . 12568)])
#@35 Return the user id for user NAME.
(defalias 'eshell-group-id #[(name) "\301\302 \"@\207" [name rassoc eshell-read-group-names] 3 (#$ . 12790)])
(put 'eshell-group-id 'byte-optimizer 'byte-compile-inline-expand)
#@42 Return the group name for the given GID.
(defalias 'eshell-group-name #[(gid) "\301\302 \"A\207" [gid assoc eshell-read-group-names] 3 (#$ . 13008)])
(put 'eshell-group-name 'byte-optimizer 'byte-compile-inline-expand)
#@50 Read the contents of /etc/passwd for user names.
(defalias 'eshell-read-user-names #[nil "\205	\301\302\303#\207" [eshell-passwd-file eshell-read-passwd eshell-user-names eshell-user-timestamp] 4 (#$ . 13234)])
#@35 Return the user id for user NAME.
(defalias 'eshell-user-id #[(name) "\301\302 \"@\207" [name rassoc eshell-read-user-names] 3 (#$ . 13454)])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put eshell-user-id byte-optimizer byte-compile-inline-expand defalias eshell-user-name user-login-name] 4)
#@45 Read in the hosts from the /etc/hosts file.
(defalias 'eshell-read-hosts-file #[(filename) "\303\304\305!r	q\210\306\216\307\n!\210eb\210\310\311\303\312#\203E\313\314!\203(\315\300\313\314!\"\210\313\316!\2035\315\300\313\316!\"\210\313\317!\203\315\300\313\317!\"\210\202+\320\321\")\207" [hosts #1=#:temp-buffer eshell-hosts-file nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents re-search-forward "^\\([^#[:space:]]+\\)\\s-+\\(\\S-+\\)\\(\\s-*\\(\\S-+\\)\\)?" t match-string 1 add-to-list 2 4 sort string-lessp] 4 (#$ . 13764)])
#@50 Read the contents of /etc/passwd for user names.
(defalias 'eshell-read-hosts #[(file result-var timestamp-var) "J\203	J\203\303	J\304\305\n!8\"\203!\306\n!L\210	\307 L\210J\207" [result-var timestamp-var file time-less-p 5 file-attributes eshell-read-hosts-file current-time] 5 (#$ . 14398)])
#@49 Read the contents of /etc/hosts for host names.
(defalias 'eshell-read-host-names #[nil "\205	\301\302\303#\207" [eshell-hosts-file eshell-read-hosts eshell-host-names eshell-host-timestamp] 4 (#$ . 14706)])
#@52 Return an unrelated copy of `process-environment'.
(defalias 'eshell-copy-environment #[nil "\301\302\"\207" [process-environment mapcar concat] 3 (#$ . 14923)])
(put 'eshell-copy-environment 'byte-optimizer 'byte-compile-inline-expand)
#@42 Return all of the subgroups of GROUPSYM.
(defalias 'eshell-subgroups #[(groupsym) "\304N\305C\211\203(\n@\211A@)\304=\203!	\n\211@@)C\244\210\nA\211\204	A*\207" [groupsym subg subgroups x custom-group t] 3 (#$ . 15167)])
#@58 Evaluate, with file-modes set to MODES, the given FORMS.
(defalias 'eshell-with-file-modes '(macro . #[(modes &rest forms) "\302\303\304D\305\306	B\307BBF\207" [modes forms let ((modes (default-file-modes))) set-default-file-modes unwind-protect progn ((set-default-file-modes modes))] 6 (#$ . 15404)]))
#@45 Evaluate FORMS with private file modes set.
(defalias 'eshell-with-private-file-modes '(macro . #[(&rest forms) "\302	BB\207" [eshell-private-file-modes forms eshell-with-file-modes] 3 (#$ . 15715)]))
#@67 Make DIR with file-modes set to `eshell-private-directory-modes'.
(defalias 'eshell-make-private-directory #[(dir &optional parents) "\304 \305	!\210\306\216\307\n\"*\207" [modes eshell-private-directory-modes dir parents default-file-modes set-default-file-modes ((set-default-file-modes modes)) make-directory] 3 (#$ . 15923)])
(put 'eshell-make-private-directory 'byte-optimizer 'byte-compile-inline-expand)
#@53 Return the beginning of STRING, up to SUBLEN bytes.
(defalias 'eshell-substring #[(string sublen) "\205G	V\203\302	O\207\207" [string sublen 0] 3 (#$ . 16342)])
(put 'eshell-substring 'byte-optimizer 'byte-compile-inline-expand)
#@67 Make sure to use the handler for `directory-file-and-attributes'.
(defalias 'eshell-directory-files-and-attributes #[(dir &optional full match nosort id-format) "\306!\307\310\"\311\230\203\312	\n$\313\314\f\")\202#\315	\n
%)\207" [dir full match nosort files id-format expand-file-name file-remote-p method "ftp" directory-files mapcar #[(file) "\302\303	\"!B\207" [file dir eshell-file-attributes expand-file-name] 5] directory-files-and-attributes] 6 (#$ . 16585)])
(defalias 'eshell-current-ange-uids #[nil "\305\306\"\205#\307\310\"\307\311\"\312	\"\211\205\"\fA\312\n\f\"A+\207" [default-directory host user eshell-ange-ls-uids host-users string-match "/\\([^@]+\\)@\\([^:]+\\):" match-string 2 1 assoc] 4])
(byte-code "\300\301!\204\302\303!\203\304\301\303\"\210\300\207" [fboundp parse-time-string locate-library "parse-time" autoload] 3)
(defalias 'eshell-parse-ange-ls #[(dir) "@\3068\3078\3108F\311\312\211\313\314!r
q\210\315\216\316)\317\312#c\210eb\210\320\321!\2031\322y\210l\2038\322y\210\320\323!\203	\324\322!*\325\324\307!!+\324\306!,\324\310!-\325\324\326!!.\327 /\330\216\312\210`0\331 \210\33210\333#\205x`0{+2\334\335!\203\267\335\324\336!!\2113@\203\234\3263\233\326\337\340 !8\240\210\202\2563\341\240\2103A\341\240\2103AA\341\240\210\342\3433\")\202\277\344\3452)\"!4\3125\346\3472\"\203\332\324\3072\"5\324\3222\"22*\341H\350=\203\351\333\202\3535+,-\3124\312.*\312\211\257B	B.\312y\210\2028+	,\207" [tramp-file-name-structure entry ange-ftp-ftp-name-res ange-ftp-ftp-name-arg ange-ftp-name-format #1=#:temp-buffer 3 2 4 "" nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ange-ftp-ls "-la" looking-at "^total [0-9]+$" 1 "\\([dlscb-][rwxst-]+\\)\\s-*\\([0-9]+\\)\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\([0-9]+\\)\\s-+\\(.*\\)" match-string string-to-number 5 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) beginning-of-line re-search-forward t fboundp parse-time-string 6 decode-time current-time 0 apply encode-time ange-ftp-file-modtime expand-file-name string-match "\\(.+\\) -> \\(.+\\)" 100 dir perms links user group size save-match-data-internal eol directory-listing-before-filename-regexp name moment mtime symlink] 13])
#@234 Return the attributes of FILE, playing tricks if it's over ange-ftp.
The optional argument ID-FORMAT specifies the preferred uid and
gid format.  Valid values are 'string and 'integer, defaulting to
'integer.  See `file-attributes'.
(defalias 'eshell-file-attributes #[(file &optional id-format) "\306!\307\310\311\"\312\230\203_\313!\314!\211\315\230\203\316\317\304!\203/\320\320\n\f\"A\"A	\204Z\321\n!\317\304!\203C\n	B\fB	\203Z\320	A\"\211\203W
A\202Y\307)	*\202d\322\"*\207" [file entry dir base ange-cache fentry expand-file-name nil file-remote-p method "ftp" file-name-nondirectory file-name-directory "" "." boundp assoc eshell-parse-ange-ls file-attributes id-format] 6 (#$ . 18952)])
(defalias 'eshell-copy-tree 'copy-tree)
#@67 If the `processp' function does not exist, PROC is not a process.
(defalias 'eshell-processp #[(proc) "\301\302!\205	\302!\207" [proc fboundp processp] 2 (#$ . 19723)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put eshell-processp byte-optimizer byte-compile-inline-expand provide esh-util] 4)
F1l3 Manager
