;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'lex) (defalias 'lex--tokenizer #[(lex string) "\305\306\305 GW\203(\307\f #\211\203(@ A@\211OB\nB\202\n\237+\207" [tmp i tokens string lex nil 0 lex-match-string] 5]) (defalias 'lex--parse-charset #[(string) "\306\307\n H\310=\203\311B T\307\211\f\312=\204\210\313\314\n #\211@\211\315\267\202\204\316 A@\211D!\210\317\n\320\306\224\\\306\225\320ZO!B\202\204\316 A@\211D!\210\n\306\224H\n\306\225SHBB\202\204\316 A@\211D!\210\n\306\225SHB\202\204\316 A@\211D!\210\312*\202\321\237,B\207" [ranges i string case-fold-search op #1=#:tmp 0 nil 94 not stop lex-match-string (check (lex--match-eobp) (stop 3 . #9=(table . #^[nil nil lexer #8= #^^[3 0 #3=(stop 2 45 . #4=(table . #^[nil nil lexer #2=(stop 1) #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2# #2#])) #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# (stop 2 table . #^[nil nil lexer #7= #^^[3 0 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil #4# nil nil nil nil nil nil nil nil nil nil nil nil #5=(table . #^[nil nil lexer #6= #^^[3 0 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil (93 stop 0) nil nil nil nil nil nil #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# nil nil nil nil nil nil #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# #5# nil nil nil nil nil] #^^[1 0 #^^[2 0 #6# nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil]) nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] #^^[1 0 #^^[2 0 #7# nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil]) #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3#] #^^[1 0 #^^[2 0 #8# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3#] #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3#] #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3# #3#])) . #9#) #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 45 1 73 2 99 3 120)) set-match-data intern 2 char #10=#:val] 6]) (defconst lex--parse-re-lexspec '(((or "*" "+" "?" "*?" "+?" "??") . suffix) ((seq "[" (opt "^") (opt "]") (0+ (or (seq (char not 93) "-" (char not 93)) (seq "[:" (1+ (char (97 . 122) (65 . 90))) ":]") (char not 93))) "]") . charset) ((seq "\\c" anything) . category) ((seq "\\C" anything) . not-category) ((seq "\\s" anything) . syntax) ((seq "\\S" anything) . not-syntax) ((seq "\\" (char (49 . 57))) . backref) ("\\'" . eob) ("\\`" . bob) ("." . dot) ("^" . bol) ("$" . eol) ("." . dot) ("\\<" . bow) ("\\>" . eow) ("\\_<" . symbol-start) ("\\_>" . symbol-end) ("\\w" . wordchar) ("\\W" . not-wordchar) ("\\b" . word-boundary) ("\\B" . not-word-boundary) ("\\=" . point) ((or (seq 92 anything) anything) . char))) (defconst lex--parse-ere-lexer (byte-code "\302\303\304\305 \"!)\207" [case-fold-search lex--parse-re-lexspec nil lex-compile append (("(?:" . shy-group) ("|" . or) ((seq "{" (0+ (char (48 . 57))) (opt (seq "," (0+ (char (48 . 57))))) "}") . repeat) ((or ")" eob) . stop) ("(" . group))] 4)) (defconst lex--parse-bre-lexer (byte-code "\302\303\304\305 \"!)\207" [case-fold-search lex--parse-re-lexspec nil lex-compile append (("\\(?:" . shy-group) ("\\|" . or) ((seq "\\{" (0+ (char (48 . 57))) (opt (seq "," (0+ (char (48 . 57))))) "\\}") . repeat) ((or "\\)" eob) . stop) ("\\(" . group))] 4)) (defalias 'lex--parse-re #[(string i lexer) "\306\211\211\211\n\307=\204G\310\f #\211\203G@\211 \311\267\2029\312 A@\f# A@SH\313=\204:\314\315!\210@ B\202>\312 A@\f# A@SH\313=\204Y\314\316!\210\317@D B\202> \204n\314\320!\210\202>\321 A@O\322\"A @D AB\202>\323\324 \237BD B\306\202>\325 TA@SO! B\202>\326  H\327=\203\263\330\202\264\331\\A@O!!\332\333 #\211\"\203\321\"A@W\204\326!\202\352\"A@\330ZU?\205\352\326 \"T\306O!)# \204\370\314\334!\210\202\335!# @F AB*\202>\307\202>@ A@SHD B\202>@ A@SH\336ZD B\202> A@SH B\202>@ B)A@\202\324 \237B$ \203_ \211A\242$C\244$\202M$-D\207" [tmp res op stack lexer string nil stop lex-match-string #s(hash-table size 13 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (shy-group 35 group 66 suffix 99 or 131 charset 145 repeat 162 stop 264 not-category 269 not-syntax 269 category 269 syntax 269 backref 284 char 301)) lex--parse-re 41 error "Unclosed shy-group" "Unclosed group" group "Non-prefixed suffix operator" assoc (("*" . 0+) ("+" . 1+) ("?" . opt) ("*?" . *\?) ("+?" . +\?) ("??" . \?\?)) or seq lex--parse-charset string-to-number 92 2 1 string-match "," "Non-prefixed repeat operator" repeat 48 i #1=#:val min comma max re] 6]) #@134 Parse STRING as a regular expression. LEXER specifies the regexp syntax to use. It can be `ere', or `bre' and it defaults to `bre'. (defalias 'lex-parse-re #[(string &optional lexer) "\305\267\202 \202\n\202\306 \307#\211A@ GW\2032\310\311\fA@ \fA@S\fA@TO#\2024\f@)\207" [lexer lex--parse-ere-lexer lex--parse-bre-lexer string res #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ere 6 bre 10 re 10 nil 10)) lex--parse-re 0 error "Regexp parsing failed around %d: ...%s..."] 7 (#$ . 6880)]) (provide 'lex-parse-re)