|
Server IP : 111.118.215.189 / Your IP : 13.59.31.221 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/emacs-lisp/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:51 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/regexp-opt.el
;;; in Emacs version 24.3
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@654 Return a regexp to match a string in the list STRINGS.
Each string should be unique in STRINGS and should not contain any regexps,
quoted or not. If optional PAREN is non-nil, ensure that the returned regexp
is enclosed by at least one regexp grouping construct.
The returned regexp is typically more efficient than the equivalent regexp:
(let ((open (if PAREN "\\(" "")) (close (if PAREN "\\)" "")))
(concat open (mapconcat 'regexp-quote STRINGS "\\|") close))
If PAREN is `words', then the resulting regexp is additionally surrounded
by \=\< and \>.
If PAREN is `symbols', then the resulting regexp is additionally surrounded
by \=\_< and \_>.
(defalias 'regexp-opt #[(strings &optional paren) "\306 \307\216\310\211\311\211
;\203
\202
\205 \312 \313\314\315!\316\"! \317\2061 \320?#
\321=\203E \322\323Q\202U
\324=\203S \325\326Q\202U . \207" [save-match-data-internal max-lisp-eval-depth max-specpdl-size completion-ignore-case completion-regexp-list paren match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 10000 nil "\\(" delete-dups sort copy-sequence string-lessp regexp-opt-group t words "\\<" "\\>" symbols "\\_<" "\\_>" open strings sorted-strings re] 5 (#$ . 563)])
#@128 Return the depth of REGEXP.
This means the number of non-shy regexp grouping constructs
(parenthesized expressions) in REGEXP.
(defalias 'regexp-opt-depth #[(regexp) "\305 \306\216\307 \310\"\210\311\312\211 \307\313 #\2031 \311\225\314\224\204 \315 \311\224\n#\203 \fT\202 \f-\207" [save-match-data-internal regexp last start count match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "" 0 nil "\\\\(\\(\\?[0-9]*:\\)?" 1 subregexp-context-p] 4 (#$ . 1830)])
#@265 Return a regexp to match a string in the sorted list STRINGS.
If PAREN non-nil, output regexp parentheses around returned regexp.
If LAX non-nil, don't output parentheses if it doesn't require them.
Merges keywords to avoid backtracking in Emacs's regexp matcher.
(defalias 'regexp-opt-group #[(strings &optional paren lax) ";\203 \202 \203 \306\202 \307\203 \310\202 \307 \203% \307\202& \203/ \307\2020 \n G\311U\203= \307\202\227 G\312U\203d @G\312U\203Y \f\313 @!
Q\202\227 \313 @!\nQ\202\227 @G\311U\203{ \f\314 A\315\211#\316
R\202\227 @G\312U\203 A \203\242 @G\312U\204\242 \211A @\210\202\211 )\203\317\211 \317 !\211 \"\203\341 \"@\211!G\312U\203\321 \320!! B \202\330 ! B \"A\211\"\204\271 * \203\370 \314 \237!\321\322 !\n\260\202\377 \f\322 !
Q*\202\227\323\307 \"\211 #G\311V\203.#G $\324\325 \" % \313#!\314%\315\211#\nR*\202\226\324\326 \" &\323\307&\"\211 'G\311V\203o'G[ $\327\324\330 \"\331\" ( \314(\315\211#\313' )\332)\317\")\237\260!\nR*\202\225\333 @\311\312# *\334* \"\211 +G \233 , \314+!\321\314,!\n\260+*),\207" [paren open-group close-group lax open-charset close-charset "\\(?:" "" "\\)" 0 1 regexp-quote regexp-opt-group t "?" nil string-to-char "\\|" regexp-opt-charset try-completion mapcar #[(s) " \302O\207" [s n nil] 3] #[(s) "\302 \303\")\237\260\207" [s string append nil] 3] sort #[(s) "\302 O\207" [s n 0] 3] string-lessp append substring-no-properties all-completions strings strs rest letters s --dolist-tail-- prefix n suffixes sgnirts xiffus prefixes string char half1 half2] 7 (#$ . 2364)])
#@86 Return a regexp to match a character in CHARS.
CHARS should be a list of characters.
(defalias 'regexp-opt-charset #[(chars) "\306\307!\310\311\312\211 \312\211 \313 \211 \203T @\211 \314=\203, \315\202K \316=\2039 \317\202K \320=\203E \321\202K \322I\210 A\211 \204 *\323\324\"\210\n Y\203\204 \n \325\\V\203r \326\327 \n$\202\204 \n Y\203\204 \326\330 # T\202r \312\230\203\231 \f\312\230\203\231 \331
\315R\202\242 \331\f
\315\260.\207" [charmap start end charset bracket dash make-char-table case-table -1 -2 "" nil 93 "]" 94 "^" 45 "-" t map-char-table #[(c v) "\205v :\203B @S\nU\203 A\211\207\n \305\\V\203( \306\307\f \n$\202: \n Y\203: \306\310\f # T\202( @ A\211\207 S\nU\203M \211\207\n \305\\V\203_ \306\307\f \n$\202q \n Y\203q \306\310\f # T\202_ \211\207" [v c end start charset 2 format "%s%c-%c" "%s%c"] 5] 2 format "%s%c-%c" "%s%c" "[" caret chars char --dolist-tail--] 7 (#$ . 4000)])
(provide 'regexp-opt)