| 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/em-glob.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/em-glob.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\304\322\317\323\310\303&\210\312\324\325\326\317\323\310\303&\210\312\327\330\331\317\323\310\303&\210\312\332\304\333\317\323\310\303&\210\312\334\304\335\317\323\310\303&\210\312\336\337\340\317\341\310\303&\210\312\342\343\344\317\345\310\303&\207" [require esh-util custom-declare-group eshell-glob nil "This module provides extended globbing syntax, similar what is used\nby zsh for filename generation." :tag "Extended filename globbing" :group eshell-module custom-declare-variable eshell-glob-load-hook "A list of functions to run when `eshell-glob' is loaded." :version "24.1" :type hook eshell-glob-include-dot-files "If non-nil, glob patterns will match files beginning with a dot." boolean eshell-glob-include-dot-dot t "If non-nil, glob patterns that match dots will match . and .." eshell-glob-case-insensitive (eshell-under-windows-p) "If non-nil, glob pattern matching will ignore case." eshell-glob-show-progress "If non-nil, display progress messages during a recursive glob.\nThis option slows down recursive glob processing by quite a bit." eshell-error-if-no-glob "If non-nil, it is an error for a glob pattern not to match.\n This mimics the behavior of zsh if non-nil, but bash if nil." eshell-glob-chars-list '(93 91 42 63 126 40 41 124 35 94) "List of additional characters used in extended globbing." (repeat character) eshell-glob-translate-alist '((93 . "]") (91 . "[") (94 . "^") (63 . ".") (42 . ".*") (126 . "~") (40 . "\\(") (41 . "\\)") (124 . "\\|") (35 lambda (str pos) (if (and (< (1+ pos) (length str)) (memq (aref str (1+ pos)) '(42 35 43 63))) (cons (if (eq (aref str (1+ pos)) 63) "?" (if (eq (aref str (1+ pos)) 42) "*" "+")) (+ pos 2)) (cons "*" (1+ pos))))) "An alist for translation of extended globbing characters." (repeat (cons character (choice regexp function)))] 10)
#@40 Initialize the extended globbing code.
(defalias 'eshell-glob-initialize #[nil "\302\301!\203 \303\301!\210\304 \"\305\306\307\310\211$\210\305\311\312\313\310$\207" [eshell-glob-chars-list eshell-special-chars-outside-quoting boundp make-local-variable append add-hook eshell-parse-argument-hook eshell-parse-glob-chars t eshell-pre-rewrite-command-hook eshell-no-command-globbing nil] 5 (#$ . 2499)])
#@68 Don't glob the command argument. Reflect this by modifying TERMS.
(defalias 'eshell-no-command-globbing #[(terms) "\302@<\203 \211@@)\303=\203 \211@\211A@)\240\210\207" [terms x nil eshell-extended-glob] 4 (#$ . 2911)])
#@59 Add `eshell-extended-glob' to the argument modifier list.
(defalias 'eshell-add-glob-modifier #[nil "\301>\203 \302\301\"\303\300\304\"\210\303\300\305\"\207" [eshell-current-modifiers expand-file-name delq add-to-list #[(list) "<\203\n \301\302\"\207\302!\207" [list mapcar expand-file-name] 3] eshell-extended-glob] 3 (#$ . 3145)])
#@175 Parse a globbing delimiter.
The character is not advanced for ordinary globbing characters, so
that other function may have a chance to override the globbing
interpretation.
(defalias 'eshell-parse-glob-chars #[nil "\306f>\205o \306f\307>\204 \306\310 \210\207`\306u\210`Sf\311\n\211\312=\203( \313\202) \314\"\211\2046 \315\316\n\"\202n \317\211
>)\203a T\211 \206H `\211 dU\206V f>*\203a \306 b\210\202n \310 \210\320`S T\" Tb\210+\207" [eshell-glob-chars-list here delim end module eshell-modules-list nil (40 91) eshell-add-glob-modifier eshell-find-delimiter 91 93 41 throw eshell-incomplete eshell-pred buffer-substring-no-properties pos eshell-delimiter-argument-list] 5 (#$ . 3493)])
(defvar eshell-glob-chars-regexp nil)
#@720 Convert glob-pattern PATTERN to a regular expression.
The basic syntax is:
glob regexp meaning
---- ------ -------
? . matches any single character
* .* matches any group of characters (or none)
# * matches zero or more occurrences of preceding
## + matches one or more occurrences of preceding
(x) (x) makes 'x' a regular expression group
| | boolean OR within an expression group
[a-b] [a-b] matches a character or range
[^a] [^a] excludes a character or range
If any characters in PATTERN have the text property `eshell-escaped'
set to true, then these characters will match themselves in the
resulting regular expression.
(defalias 'eshell-glob-regexp #[(pattern) "\306\307\310\n\206 \311\302!\210\312\313\314\315 \"\"\211\f #\203\203 \306\224 \f
H \316\f
O!P\317
\320\f#\203D \316\321!!P
T\202 \236\211 \204X \322\323\"\210\202~ A;\203k AP
T\202~ A\f
\" @PA))*\202 \324\316\f \307O!\325R*\207" [regexp matched-in-pattern eshell-glob-chars-regexp eshell-glob-chars-list pattern op-begin 0 nil string-match make-local-variable format "[%s]+" apply string regexp-quote get-text-property escaped char-to-string error "Unrecognized globbing character '%c'" "\\`" "\\'" op-char eshell-glob-translate-alist xlat result] 7 (#$ . 4243)])
#@671 Return a list of files generated from GLOB, perhaps looking for DIRS-ONLY.
This function almost fully supports zsh style filename generation
syntax. Things that are not supported are:
^foo for matching everything but foo
(foo~bar) tilde within a parenthesis group
foo<1-10> numeric ranges
foo~x(a|b) (a|b) will be interpreted as a predicate/modifier list
Mainly they are not supported because file matching is done with Emacs
regular expressions, and these cannot support the above constructs.
If this routine fails, it returns nil. Otherwise, it returns a list
the form:
(INCLUDE-REGEXP EXCLUDE-REGEXP (PRED-FUNC-LIST) (MOD-FUNC-LIST))
(defalias 'eshell-extended-glob #[(glob) "\306!\307\211\211 \310\216\fA\203$ \311\f@!\203$ \312\313\f@!\fA\"\210\202+ \312\313\314!\f\"\210) \2037 \315 \316\"\206C
\203B \317\320\"\202C ,\207" [glob ange-cache message-shown eshell-glob-matches paths eshell-error-if-no-glob eshell-split-path nil ((byte-code "\203 \301\302!\210\302\207" [message-shown message nil] 2)) file-name-absolute-p eshell-glob-entries file-name-as-directory "." sort string< error "No matches found: %s"] 4 (#$ . 5617)])
#@72 Glob the entries in PATHS, possibly recursing if RECURSE-P is non-nil.
(defalias 'eshell-glob-entries #[(path globs &optional recurse-p) "\306\307\310\217 @\211 G \306\211 ' (\306\211 ) *\306\211 + ,\306 -
\311U\203> \f\312\232\203> \313. A\211@\211G\211\202W
\314U\203Z \f\315\232\203Z \311. A\211@\211G\211\204\" .\203g \f\204g \316\317!\210\320 /\f))\f=\203\253 \321\322\f/#\211/\203\253 \323/\324\f#\204\221 /T
U\203\231 /T/\202m \f\325/O)\f/T\306O*\202m ))GS )
H\326=\203\301 )\325
O)*\203\333 *GS*
H\326=\203\333 *\325
O*)\327)!)*\205\353 \327*!*0\204\372 \f\325H\330=\2031\204' A\204'*\203\331*\332Q\202\333*\202'*\203$\334*\332Q\202%\335*.\203=2\203=\336\3373G4#\210\34054\341\232\203G\3424\203\356@\211+G+
SH\326=,\343+! 6*\205l\321*6\"?\205v\321)6\")\203\233 A\203\221,\203\2334+P'B'\202\2334+P3B3.\203\347,\203\347
\311V\204\305
\313U\203\270+\341\232\204\347
\311U\203\305+\344\232\204\3474+P\211-\203\347.\313U\203\340\345\343-!!\204\347-(B(A\211\204K'\237'(\237('\203\346'@ A\"\210'A\211'\204\375(\205&\346(@ .#\210(A\211(\204\306. \207" [entries eshell-glob-case-insensitive case-fold-search globs glob len nil (file-name-all-completions #1="" path) ((error)) 3 "**/" 2 4 "***/" error "'**' cannot end a globbing pattern" 1 string-match "~" get-text-property escaped 0 47 eshell-glob-regexp 46 "\\(\\`\\.\\.?\\'\\|" "\\)" "\\`\\.\\.?\\'" "\\(\\`\\.\\|" "\\`\\." message "Building file list...%d so far: %s" t "./" #1# directory-file-name "../" file-symlink-p eshell-glob-entries dirs rdirs incl excl name isdir pathname recurse-p index eshell-glob-include-dot-files eshell-glob-include-dot-dot eshell-glob-show-progress eshell-glob-matches path message-shown fname] 5 (#$ . 6798)])
(provide 'em-glob)