WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/eshell
Viewing File: /usr/share/emacs/24.3/lisp/eshell/em-glob.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:00 2025
;;; 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@\211A@)\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
\"@PA))*\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@\211G\211\202W
\314U\203Z\f\315\232\203Z\311.A\211@\211G\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=\2031\204'A\204'*\203\331*\332Q\202\333*\202'*\203$\334*\332Q\202%\335*.\203=2\203=\336\3373G4#\210\34054\341\232\203G\3424\203\356@\211+G+
SH\326=,\343+!6*\205l\321*6\"?\205v\321)6\")\203\233A\203\221,\203\2334+P'B'\202\2334+P3B3.\203\347,\203\347
\311V\204\305
\313U\203\270+\341\232\204\347
\311U\203\305+\344\232\204\3474+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)
F1l3 Manager
