ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/eshell/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/eshell/esh-util.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\314DD\315\316\317\306\301&\210\310\320\312\313\321DD\322\316\323\306\301&\210\310\324\312\313\325DD\326\316\327\306\301&\210\310\330\312\313\331DD\332\316\333\306\301&\210\310\334\312\313\335DD\336\316\317\306\301&\210\310\337\312\313\340DD\341\316\342\306\301&\210\310\343\312\313\344DD\345\316\342\306\301&\210\310\346\312\313\347DD\350\351\352\316\353\306\301& \210\310\354\312\313\355DD\356\316\317\306\301&\210\310\357\312\313\360DD\361\316\353\306\301&\210\310\362\312\313\363DD\364\316\365\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 funcall function #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [#1="/etc/group"] 1 #1#] "If non-nil, the name of the group file on your system." (choice (const :tag "No group file" nil) file) eshell-passwd-file #[0 "\300\207" [#2="/etc/passwd"] 1 #2#] "If non-nil, the name of the passwd file on your system." (choice (const :tag "No passwd file" nil) file) eshell-hosts-file #[0 "\300\207" [#3="/etc/hosts"] 1 #3#] "The name of the /etc/hosts file." (choice (const :tag "No hosts file" nil) file) eshell-handle-errors #[0 "\300\207" [t] 1] "If non-nil, Eshell will handle errors itself.\nSetting this to nil is offered as an aid to debugging only." eshell-private-file-modes #[0 "\300\207" [384] 1] "The file-modes value to use for creating \"private\" files." integer eshell-private-directory-modes #[0 "\300\207" [448] 1] "The file-modes value to use for creating \"private\" directories." eshell-tar-regexp #[0 "\300\207" [#4="\\.t\\(ar\\(\\.\\(gz\\|bz2\\|xz\\|Z\\)\\)?\\|gz\\|a[zZ]\\|z2\\)\\'"] 1 #4#] "Regular expression used to match tar file names." :version "24.1" regexp eshell-convert-numeric-arguments #[0 "\300\207" [t] 1] "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 "\300\207" [#5="-?\\([0-9]*\\.\\)?[0-9]+\\(e[-0-9.]+\\)?"] 1 #5#] "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 #[0 "\300\207" [nil] 1] "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 (#$ . 3824))
#@46 A timestamp of when the group file was read.
(defvar eshell-group-timestamp nil (#$ . 3911))
#@37 A cache to hold the names of users.
(defvar eshell-user-names nil (#$ . 4010))
#@45 A timestamp of when the user file was read.
(defvar eshell-user-timestamp nil (#$ . 4095))
#@49 A cache the names of frequently accessed hosts.
(defvar eshell-host-names nil (#$ . 4192))
#@46 A timestamp of when the hosts file was read.
(defvar eshell-host-timestamp nil (#$ . 4289))
#@56 Return non-nil if we are running under MS-DOS/Windows.
(defalias 'eshell-under-windows-p #[0 "\301>\207" [system-type (ms-dos windows-nt)] 2 (#$ . 4387)])
(put 'eshell-under-windows-p 'byte-optimizer 'byte-compile-inline-expand)
#@145 If `eshell-handle-errors' is non-nil, this is `condition-case'.
Otherwise, evaluates FORM with no error handling.
(fn TAG FORM &rest HANDLERS)
(defalias 'eshell-condition-case '(macro . #[642 "\203\f \301BBB\207\207" [eshell-handle-errors condition-case-unless-debug] 7 (#$ . 4624)]))
(function-put 'eshell-condition-case 'lisp-indent-function 2)
#@345 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.
(fn OPEN CLOSE &optional BOUND REVERSE-P BACKSLASH-P)
(defalias 'eshell-find-delimiter #[1282 "\212\300\206 d\203 `Sf=\202 \301f=\203' \203$ \302\202% \300u\210\303V\203*\2035 \304\2026 \305`\"\203*\203F `Sf\202H \301f\301\204| =\203Y \203| \306=\203| `Tf\211\262\203| \211 =\204v \211=\203| \300u\210\202\203\255 =\203\214 \203\255 =\204\232 =\203\255 `S\206\240 `Sf\306=\203\255 \302u\210\202=\203\355 =\203\204\346 \203\317 `S\206\312 `Sf\202\322 `Tf =\203\346 \203\340 \302\202\341 \300u\210\202S\262\202 U\203\203\376 \302\202\377 \300\\\262\202U\203\203\300\202\302\\\262\266\203$\302\202%\300u\210\202' \303U\205:\2038`\202:`S\266\202)\207" [1 nil -1 0 > < 92] 11 (#$ . 4984)])
#@69 Convert STRING into a more native looking Lisp object.
(fn STRING)
(defalias 'eshell-convert #[257 "\211;\204 \207\211G\211\302U\203 \202E SH\303=\203\" \302SO\262\304\305\"\2030 \306\305\"\202E \203D \304\307 \310Q\"\203D \311!\202E \207" [eshell-convert-numeric-arguments eshell-number-regexp 0 10 string-match "\n" split-string "\\`\\s-*" "\\s-*\\'" string-to-number] 6 (#$ . 6059)])
#@109 Return from LIST the N to M elements.
If N or M is nil, it means the end of the list.
(fn L &optional N M)
(defalias 'eshell-sublist #[769 "\300!\203 \233:\203 \233\301\241\210\203 \233\262\202* \211GS\262\302!\262\211\207" [copy-sequence nil last] 6 (#$ . 6468)])
#@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") (#$ . 6757))
(make-variable-buffer-local 'eshell-path-env)
#@116 Split string with `parse-colon-path'.
Prepend remote identification of `default-directory', if any.
(fn PATH-ENV)
(defalias 'eshell-parse-colon-path #[257 "\301!\211\203 \302\303\304\305\306\307!\310\"\311\312%\313!\"\202 \313!\207" [default-directory file-remote-p mapcar make-byte-code 257 "\300P\207" vconcat vector [] 3 "\n\n(fn X)" parse-colon-path] 9 (#$ . 6975)])
#@49 Split a path into multiple subparts.
(fn PATH)
(defalias 'eshell-split-path #[257 "\211G\301\211\302\303>\203$ \304V\203$ \301H\305=\203$ \306H\305=\203$ \304\262W\203Y H\305=\203R \307\310#\204R U\203E \311\202J TOB\262T\262T\262\202$ W\203g OB\262\303>\203\202 \312\313\314!@\"\203\202 \314!\314!@\311P\240\210\211\237\207" [system-type 0 nil (ms-dos windows-nt) 2 47 1 get-text-property escaped "/" string-match "\\`[A-Za-z]:\\'" last] 9 (#$ . 7361)])
#@83 Make value a string. If separated by newlines change them to spaces.
(fn VALUE)
(defalias 'eshell-to-flat-string #[257 "\300!\301\302\"\203 \303\304\305\211$\262\301\306\"\203$ \303\307\305\211$\262\202 \211\207" [eshell-stringify string-match "\n+\\'" replace-match "" t "\n+" " "] 7 (#$ . 7857)])
#@60 Iterate through a list.
(fn FOR-VAR FOR-LIST &rest FORMS)
(defalias 'eshell-for '(macro . #[642 "\300\301DC\302\301\300\303BCBB\304BBBE\207" [let list-iter while ((car list-iter)) ((setq list-iter (cdr list-iter)))] 10 (#$ . 8173)]))
(make-obsolete 'eshell-for 'dolist "24.1")
#@74 Flatten any lists within ARGS, so that there are no sublists.
(fn ARGS)
(defalias 'eshell-flatten-list #[257 "\300C\211\203) \211@\211<\203 \211A<\203 \301!\244\210\202\" C\244\210A\266\202\202 \210\211A\207" [t eshell-flatten-list] 7 (#$ . 8462)])
#@76 Remove occurring multiples in L. You probably want to sort first.
(fn L)
(defalias 'eshell-uniqify-list #[257 "\211\211\203# \211A\203 \211@A@\230\203 \211AA\241\210\202 \211A\262\202 \210\207" [] 4 (#$ . 8727)])
#@50 Convert OBJECT into a string value.
(fn OBJECT)
(defalias 'eshell-stringify #[257 "\211;\203 \207\211<\203 \211\301=\204 \302!\211\303GSO\207\211\247\203$ \304!\207\211\305=\205, ??\2053 \302!\207" [eshell-stringify-t nil pp-to-string 0 number-to-string t] 5 (#$ . 8955)])
#@62 Convert each element of ARGS into a string value.
(fn ARGS)
(defalias 'eshell-stringify-list #[257 "\300\301\"\207" [mapcar eshell-stringify] 4 (#$ . 9243)])
(put 'eshell-stringify-list 'byte-optimizer 'byte-compile-inline-expand)
#@78 Flatten and stringify all of the ARGS into a single string.
(fn &rest ARGS)
(defalias 'eshell-flatten-and-stringify #[128 "\300\301\302!\303#\207" [mapconcat eshell-stringify eshell-flatten-list " "] 5 (#$ . 9482)])
(put 'eshell-flatten-and-stringify 'byte-optimizer 'byte-compile-inline-expand)
#@97 Return a list of files in the given DIRECTORY matching REGEXP.
(fn REGEXP &optional DIRECTORY)
(defalias 'eshell-directory-files #[513 "\301\206 #\207" [default-directory directory-files] 6 (#$ . 9786)])
(put 'eshell-directory-files 'byte-optimizer 'byte-compile-inline-expand)
#@65 Return list of regexp and prefix arg using PROMPT.
(fn PROMPT)
(defalias 'eshell-regexp-arg #[257 "\303\304\211\211\301%\211\305\230\203 \211A@\240\202 \211\306\n!)D\207" [last-command minibuffer-history-search-history current-prefix-arg read-from-minibuffer nil "" prefix-numeric-value] 7 (#$ . 10076)])
#@92 Return a printable FILESIZE.
(fn FILESIZE &optional HUMAN-READABLE BLOCK-SIZE USE-COLORS)
(defalias 'eshell-printable-size #[1025 "\300\206 \301!\203\251 \211W\203, \302!\301U\203 \303\202\266 \203% \304\202\266 \305\306\"\202\266 \211\245\262\211W\203K \211\307X\203D \305\310\"\202\266 \305\311\"\202\266 \211\245\262\211W\203z \211\312X\203c \305\313\"\202g \305\314\"\203t \315\301G\316\317%\210\211\262\202\266 \211\245\262\211W\205\266 \211\320X\203\222 \305\321\"\202\226 \305\322\"\203\243 \315\301G\316\323%\210\211\262\202\266 \203\262 \211\245\262\305\306\"\207" [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] 12 (#$ . 10394)])
#@259 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.
(fn ENTRIES EXCLUDE &optional PREDICATES)
(defalias 'eshell-winnow-list #[770 "\300C\301\211\211<\204 C\262\300\262\211\203^ \211@\203( \302\"\204W \262?\262\203N @!\203A \300\262\202G \301\262\301\262A\262\2020 \203W C\244\210A\266\202\202 \210\211\203i A@\202k A\207" [t nil string-match] 12 (#$ . 11173)])
#@35 Allow Emacs to redisplay buffers.
(defalias 'eshell-redisplay #[0 "\3001\n \301\302\211\"0\207\210\303\207" [(error) sit-for 0 nil] 3 (#$ . 11738)])
(put 'eshell-redisplay 'byte-optimizer 'byte-compile-inline-expand)
#@69 Return an alist correlating gids to group names in FILE.
(fn FILE)
(defalias 'eshell-read-passwd-file #[257 "\300\301!\203\\ \302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210eb\210m\204Z \314`\300\210`{\315\"\211\203S \211@\203S \3128\203S \316\3128!\236\204S \316\3128!@BB\262\210\300y\210\202! *\210\211\207" [nil file-readable-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 split-string ":" string-to-number] 9 (#$ . 11961)])
#@86 Read the contents of /etc/passwd for user names.
(fn FILE RESULT-VAR TIMESTAMP-VAR)
(defalias 'eshell-read-passwd #[771 "J\203 \211J\203 \300J\301\302!8\"\203\" \303!L\210\211\304 L\210J\207" [time-less-p 5 file-attributes eshell-read-passwd-file current-time] 8 (#$ . 12520)])
#@50 Read the contents of /etc/group for group names.
(defalias 'eshell-read-group-names #[0 "\205 \301\302\303#\207" [eshell-group-file eshell-read-passwd eshell-group-names eshell-group-timestamp] 4 (#$ . 12814)])
#@46 Return the user id for user NAME.
(fn NAME)
(defalias 'eshell-group-id #[257 "\300\301 \"@\207" [rassoc eshell-read-group-names] 4 (#$ . 13034)])
(put 'eshell-group-id 'byte-optimizer 'byte-compile-inline-expand)
#@52 Return the group name for the given GID.
(fn GID)
(defalias 'eshell-group-name #[257 "\300\301 \"A\207" [assoc eshell-read-group-names] 4 (#$ . 13255)])
(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 #[0 "\205 \301\302\303#\207" [eshell-passwd-file eshell-read-passwd eshell-user-names eshell-user-timestamp] 4 (#$ . 13485)])
#@46 Return the user id for user NAME.
(fn NAME)
(defalias 'eshell-user-id #[257 "\300\301 \"@\207" [rassoc eshell-read-user-names] 4 (#$ . 13703)])
(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)
#@78 Read in the hosts from FILENAME, default `eshell-hosts-file'.
(fn FILENAME)
(defalias 'eshell-read-hosts-file #[257 "\301\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\206 !\210eb\210\314\315\301\316#\203x \317\320!\203A \317\320!\211\235\203: \202= \211B\262\262\317\312!\203[ \317\312!\211\235\203T \202W \211B\262\262\317\321!\203 \317\321!\211\235\203n \202q \211B\262\262\202 *\210\322\323\"\207" [eshell-hosts-file nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents re-search-forward "^\\([^#[:space:]]+\\)\\s-+\\(\\S-+\\)\\(\\s-*\\(\\S-+\\)\\)?" t match-string 1 4 sort string-lessp] 9 (#$ . 14016)])
#@86 Read the contents of /etc/passwd for user names.
(fn FILE RESULT-VAR TIMESTAMP-VAR)
(defalias 'eshell-read-hosts #[771 "J\203 \211J\203 \300J\301\302!8\"\203\" \303!L\210\211\304 L\210J\207" [time-less-p 5 file-attributes eshell-read-hosts-file current-time] 8 (#$ . 14761)])
#@49 Read the contents of /etc/hosts for host names.
(defalias 'eshell-read-host-names #[0 "\205 \301\302\303#\207" [eshell-hosts-file eshell-read-hosts eshell-host-names eshell-host-timestamp] 4 (#$ . 15053)])
#@52 Return an unrelated copy of `process-environment'.
(defalias 'eshell-copy-environment #[0 "\301\302\"\207" [process-environment mapcar concat] 3 (#$ . 15268)])
(put 'eshell-copy-environment 'byte-optimizer 'byte-compile-inline-expand)
#@57 Return all of the subgroups of GROUPSYM.
(fn GROUPSYM)
(defalias 'eshell-subgroups #[257 "\211\300N\301C\203 @A@\300=\203 \211@@C\244\210A\262\202 \211A\207" [custom-group t] 5 (#$ . 15510)])
#@82 Evaluate, with file-modes set to MODES, the given FORMS.
(fn MODES &rest FORMS)
(defalias 'eshell-with-file-modes '(macro . #[385 "\300BB\207" [with-file-modes] 5 (#$ . 15717)]))
(make-obsolete 'eshell-with-file-modes 'with-file-modes "25.1")
#@63 Evaluate FORMS with private file modes set.
(fn &rest FORMS)
(defalias 'eshell-with-private-file-modes '(macro . #[128 "\301BB\207" [eshell-private-file-modes with-file-modes] 4 (#$ . 15969)]))
#@95 Make DIR with file-modes set to `eshell-private-directory-modes'.
(fn DIR &optional PARENTS)
(defalias 'eshell-make-private-directory #[513 "\301 \302\303\304\305\306!\307\"\310$\216\311!\210\312\")\207" [eshell-private-directory-modes default-file-modes make-byte-code 0 "\301\300!\207" vconcat vector [set-default-file-modes] 2 set-default-file-modes make-directory] 9 (#$ . 16172)])
(put 'eshell-make-private-directory 'byte-optimizer 'byte-compile-inline-expand)
#@73 Return the beginning of STRING, up to SUBLEN bytes.
(fn STRING SUBLEN)
(defalias 'eshell-substring #[514 "\205 GV\203 \300O\207\207" [0] 5 (#$ . 16650)])
(put 'eshell-substring 'byte-optimizer 'byte-compile-inline-expand)
#@115 Make sure to use the handler for `directory-file-and-attributes'.
(fn DIR &optional FULL MATCH NOSORT ID-FORMAT)
(defalias 'eshell-directory-files-and-attributes #[1281 "\300!\301\302\"\303\230\203* \304$\305\306\307\310\311\312!\313\"\314\315%\"\262\2025 \316%\207" [expand-file-name file-remote-p method "ftp" directory-files mapcar make-byte-code 257 "\211\301\302\300\"!B\207" vconcat vector [eshell-file-attributes expand-file-name] 6 "\n\n(fn FILE)" directory-files-and-attributes] 14 (#$ . 16888)])
(defalias 'eshell-current-ange-uids #[0 "\302\303\"\205\" \304\305\"\304\306\"\307 \"\211\205 \211A\262\307\"A\266\203\207" [default-directory eshell-ange-ls-uids string-match "/\\([^@]+\\)@\\([^:]+\\):" match-string 2 1 assoc] 6])
(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 #[257 "\305\306!\210\305\307!\210@\3108\3118\3128F\313\314\211\315\316!r\211q\210\317\320\321\322\323!\324\"\311$\216\325\326\314#c\210eb\210\327\330!\203D \331y\210l\203K \331y\210\327\332!\203\333\331!\334\333\311!!\333\310!\333\312!\334\333\335!!\336 \317\320\337\322\323!\340\"\310$\216\314\210`\341 \210\342\f\343#\205\204 `{\262)\262\344\345!\203\275 \345\333\346!!\211@\203\245 \335\233\335\347 8\240\210\202\264 \211\320\240\210\211A\320\240\210\211AA\320\240\210\350\351\"\262\202\304 \352\353\"!\314\354\355\"\203\330 \333\311\"\262\333\331\"\262\320H\356=\203\346 \343\202\347 \314\314 \314\211\257 B\nB\262\n\266\314y\210\202K *\210+\207" [tramp-file-name-structure ange-ftp-ftp-name-res ange-ftp-ftp-name-arg ange-ftp-name-format directory-listing-before-filename-regexp require ange-ftp tramp 3 2 4 "" nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 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 "\301\300\302\"\207" [set-match-data evaporate] beginning-of-line re-search-forward t fboundp parse-time-string 6 decode-time apply encode-time ange-ftp-file-modtime expand-file-name string-match "\\(.+\\) -> \\(.+\\)" 100] 26 "\n\n(fn DIR)"])
#@268 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'.
(fn FILE &optional ID-FORMAT)
(defalias 'eshell-file-attributes #[513 "\301!\302\303\304\"\305\230\203` \306!\307!\310\230\203 \311\262\312\300!\203- \313\313\"A\"A\262\204Z \314!\262\312\300!\203B \211BB\203Z \313A\"\211\203V \211A\262\202Y \302\262\210\266\202\202d \315\"\207" [ange-cache expand-file-name nil file-remote-p method "ftp" file-name-nondirectory file-name-directory "" "." boundp assoc eshell-parse-ange-ls file-attributes] 11 (#$ . 19263)])
(defalias 'eshell-copy-tree 'copy-tree)
#@78 If the `processp' function does not exist, PROC is not a process.
(fn PROC)
(defalias 'eshell-processp #[257 "\300\301!\205 \301!\207" [fboundp processp] 3 (#$ . 20030)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put eshell-processp byte-optimizer byte-compile-inline-expand provide esh-util] 4)
Kontol Shell Bypass