����
One Hat Cyber Team
One Hat Cyber Team
Your IP :
216.73.216.248
Server IP :
192.185.194.254
Server :
Linux raider.websitewelcome.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
Server Software :
Apache
PHP Version :
7.4.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
emacs
/
24.3
/
lisp
/
emacs-lisp
/
View File Name :
regexp-opt.elc
;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)