-
Notifications
You must be signed in to change notification settings - Fork 1
/
make-regexp.elc
79 lines (67 loc) · 5.98 KB
/
make-regexp.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
;ELC
;;; Compiled by philipp@philipp-desktop on Tue Apr 13 16:31:12 2010
;;; from file /home/philipp/elisp/make-regexp.el
;;; in Emacs version 22.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`make-regexp.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@271 Return a regexp to match a string item in STRINGS.
If optional PAREN non-nil, output regexp parentheses around returned regexp.
If optional LAX non-nil, don't output parentheses if it doesn't require them.
Merges keywords to avoid backtracking in Emacs' regexp matcher.
(defalias 'make-regexp #[(strings &optional paren lax) "\306\307\\ \211\203 \n\310\n@\nA\"\241\211\204\n \311 \312\") \203% \313\202& \314 \203/ \315\2020 \314 #\203: \314\202; \f $#\203F \314\202G %\316 & G\317U\203] $ @%Q\202+ @\314\230\203\213 G\320U\203\200 A@G\317U\203\200 $ A@\321%R\202+\f\322\323 A!R\202+ G\324\325\326\327 \"\"U\203\250 $\330\331\332 \314#\333%\260\202+\334\314\326\335 \"\"\211 'G\307V\203\322 'G (\326\336 \" )\f'\323)\337\211#R*\202*\340 *\341\314\326\335 \"\")\211 +G\317V\203\342 *\341\314\326\335 \"\") ,\f\323+!\322\323,!\260)\202) @\307\317O -\341-\326\335 \"\"\211 .G \233 /\f\323.!\322\323/!\260+)).\207" [max-lisp-eval-depth strings l paren open-paren close-paren 1048576 0 delete sort string-lessp "\\(" "" "\\)" nil 1 2 "?" "\\|" make-regexp apply + mapcar length "[" mapconcat identity "]" try-completion list #[(str) " \302O\207" [str len nil] 3] t ("^.$") all-completions ("^..+$") lax open-lax close-lax completion-ignore-case prefix len sufs completion-regexp-list letters rest char half1 half2] 7 (#$ . 578)])
#@114 Return the span or depth of REGEXP.
This means the number of "\\(...\\)" pairs in REGEXP, optionally from START.
(defalias 'regexp-span #[(regexp &optional start) "\303\304 \206 \305#\211\204 \305\202 \306\305\225\"T)\207" [regexp start match string-match "\\\\(" 0 regexp-span] 5 (#$ . 1953)])
#@883 Return a regexp to match REGEXPS
Each item of REGEXPS should be of the form:
STRING ; A STRING to be used literally.
(STRING MATCH FACE DATA) ; Match STRING at depth MATCH with FACE
; and highlight according to DATA.
(STRINGS FACE DATA) ; STRINGS is a list of strings FACE is
; to highlight according to DATA.
Returns a list of the form:
(REGEXP (MATCH FACE DATA) ...)
For example:
(make-regexps "^("
'(("defun" "defalias" "defsubst" "defadvice") keyword)
"[ ]*"
'("\\([a-zA-Z-]+\\)?" 1 function-name nil t))
=>
("^(\\(def\\(a\\(dvice\\|lias\\)\\|subst\\|un\\)\\)[ ]*\\([a-zA-Z-]+\\)?"
(1 keyword) (4 function-name nil t))
Uses `make-regexp' to make efficient regexps.
(defalias 'make-regexps #[(&rest regexps) "\303\304\n\203Q \n@;\203 \n@P\202J \n@@;\2036 \305 !\n@A@\\\n@AABB \n@@P\202J \305 !T\n@ABB \306\n@@\307\"P\nA\211\204 \237*B\207" [data regexp regexps "" nil regexp-span make-regexp t] 5 (#$ . 2261)])
#@125 Return the TIME in seconds, or the current time if not given.
TIME should be the same format as produced by `current-time'.
(defalias 'time-seconds #[(&optional time) "\206 \301 \211@\302_A@\\\3038\304\245\\)\207" [time current-time 65536.0 2 1000000.0] 4 (#$ . 3410)])
(put 'time-seconds 'byte-optimizer 'byte-compile-inline-expand)
#@102 Return the time in seconds since TIME.
TIME should be the value of `current-time' or `time-seconds'.
(defalias 'time-since #[(time) "\301\302 \211@\303_A@\\\3048\305\245\\*\306!\203 \2026 \211\206& \302 \211@\303_A@\\\3048\305\245\\*Z\207" [time nil current-time 65536.0 2 1000000.0 floatp] 6 (#$ . 3756)])
(put 'time-since 'byte-optimizer 'byte-compile-inline-expand)
#@117 Return the time in seconds taken to execute FUNC with ARGS.
Returned is actually the cons pair (func-value . time).
(defalias 'time-function #[(func &rest args) "\304 \210\305\306 \211@\307_A@\\\3108\311\245\\*\312\n \" \305\306 \211@\307_A@\\\3108\311\245\\*\313!\203< \202T \211\206D \306 \211@\307_A@\\\3108\311\245\\*Z*B\207" [time start func args garbage-collect nil current-time 65536.0 2 1000000.0 apply floatp] 7 (#$ . 4144)])
#@129 Return corresponding list of times to fontify using REGEXPS.
Fontify using BUFFER, if non-nil, and UNFONTIFY first, if non-nil.
(defalias 'time-regexps #[(regexps &optional buffer unfontify) "\212\203 q\210ed \203 \305\n \"\210\306\307\f\"+\207" [buffer end beg unfontify regexps font-lock-unfontify-region mapcar #[(regexp) "C\304\305\n #A)B\207" [regexp font-lock-keywords beg end time-function font-lock-hack-keywords] 4]] 3 (#$ . 4603)])
#@94 Return sorted times to fontify syntactically and using REGEXPS.
UNFONTIFY first, if non-nil.
(defalias 'sort-font-lock-regexps #[(regexps &optional buffer unfontify) "\304 \n#\305\306\307\310 \"\"\300D\311 \312\"\237)B\207" [regexps buffer unfontify regexp-time time-regexps apply + mapcar car sort car-less-than-car] 5 (#$ . 5060)])
#@68 Return time to fontify syntactically.
UNFONTIFY first, if non-nil.
(defalias 'time-fontification #[(&optional buffer unfontify) "\212\203 q\210ed \203 \304\n \"\210\305\306\n #A+\207" [buffer end beg unfontify font-lock-unfontify-region time-function font-lock-fontify-region] 4 (#$ . 5402)])
#@94 Return sorted times to fontify syntactically and using REGEXPS.
UNFONTIFY first, if non-nil.
(defalias 'sort-font-lock-fontification #[(regexps &optional buffer unfontify) "\305 \"\306\n\" \307\310\f\311D\312\313\314\315 \"\"\302DD \"\316\"\237*\207" [buffer unfontify regexps regexp-time syntactic-time time-fontification time-regexps sort append syntactic apply + mapcar car car-less-than-car] 8 (#$ . 5707)])