Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
emacs-lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
advice.elc
54
KB
-rw-r--r--
autoload.elc
28.25
KB
-rw-r--r--
avl-tree.elc
27.45
KB
-rw-r--r--
backquote.elc
4.68
KB
-rw-r--r--
backtrace.elc
40.98
KB
-rw-r--r--
benchmark.elc
3.74
KB
-rw-r--r--
bindat.elc
10.73
KB
-rw-r--r--
byte-opt.elc
39.59
KB
-rw-r--r--
byte-run.elc
17.44
KB
-rw-r--r--
bytecomp.elc
154.17
KB
-rw-r--r--
cconv.elc
20.71
KB
-rw-r--r--
chart.elc
25.98
KB
-rw-r--r--
check-declare.elc
9.01
KB
-rw-r--r--
checkdoc.elc
74.78
KB
-rw-r--r--
cl-extra.elc
29.37
KB
-rw-r--r--
cl-generic.elc
59.25
KB
-rw-r--r--
cl-indent.elc
18.03
KB
-rw-r--r--
cl-lib.elc
31.72
KB
-rw-r--r--
cl-loaddefs.el
45.79
KB
-rw-r--r--
cl-macs.elc
90.7
KB
-rw-r--r--
cl-preloaded.elc
27.28
KB
-rw-r--r--
cl-print.elc
14.77
KB
-rw-r--r--
cl-seq.elc
38.35
KB
-rw-r--r--
copyright.elc
10.17
KB
-rw-r--r--
crm.elc
7.62
KB
-rw-r--r--
cursor-sensor.elc
6.74
KB
-rw-r--r--
debug.elc
36.42
KB
-rw-r--r--
derived.elc
11.88
KB
-rw-r--r--
disass.elc
6.11
KB
-rw-r--r--
easy-mmode.elc
19.78
KB
-rw-r--r--
easymenu.elc
19.88
KB
-rw-r--r--
edebug.elc
123.13
KB
-rw-r--r--
eieio-base.elc
17.17
KB
-rw-r--r--
eieio-compat.elc
8.41
KB
-rw-r--r--
eieio-core.elc
36.91
KB
-rw-r--r--
eieio-custom.elc
15.8
KB
-rw-r--r--
eieio-datadebug.elc
3.17
KB
-rw-r--r--
eieio-loaddefs.el
3.96
KB
-rw-r--r--
eieio-opt.elc
9.32
KB
-rw-r--r--
eieio-speedbar.elc
13.13
KB
-rw-r--r--
eieio.elc
33.03
KB
-rw-r--r--
eldoc.elc
19.14
KB
-rw-r--r--
elint.elc
30.6
KB
-rw-r--r--
elp.elc
12.68
KB
-rw-r--r--
ert-x.elc
11.48
KB
-rw-r--r--
ert.elc
177.96
KB
-rw-r--r--
ewoc.elc
25.26
KB
-rw-r--r--
faceup.elc
16.97
KB
-rw-r--r--
find-func.elc
21.61
KB
-rw-r--r--
float-sup.elc
1.21
KB
-rw-r--r--
generator.elc
27.42
KB
-rw-r--r--
generic.elc
7.18
KB
-rw-r--r--
gv.elc
22.69
KB
-rw-r--r--
helper.elc
3.96
KB
-rw-r--r--
inline.elc
8.37
KB
-rw-r--r--
let-alist.elc
3.04
KB
-rw-r--r--
lisp-mnt.elc
22.59
KB
-rw-r--r--
lisp-mode.elc
38.03
KB
-rw-r--r--
lisp.elc
21.44
KB
-rw-r--r--
macroexp.elc
18.01
KB
-rw-r--r--
map-ynp.elc
10.54
KB
-rw-r--r--
map.elc
18.25
KB
-rw-r--r--
nadvice.elc
17.65
KB
-rw-r--r--
package-x.elc
9.06
KB
-rw-r--r--
package.elc
146.54
KB
-rw-r--r--
pcase.elc
23.11
KB
-rw-r--r--
pp.elc
5.5
KB
-rw-r--r--
radix-tree.elc
5.88
KB
-rw-r--r--
re-builder.elc
25.78
KB
-rw-r--r--
regexp-opt.elc
6.3
KB
-rw-r--r--
regi.elc
6
KB
-rw-r--r--
ring.elc
6.32
KB
-rw-r--r--
rmc.elc
4.79
KB
-rw-r--r--
rx.elc
40.69
KB
-rw-r--r--
seq.elc
23.64
KB
-rw-r--r--
shadow.elc
9.34
KB
-rw-r--r--
smie.elc
48.84
KB
-rw-r--r--
subr-x.elc
11.17
KB
-rw-r--r--
syntax.elc
26.13
KB
-rw-r--r--
tabulated-list.elc
26.57
KB
-rw-r--r--
tcover-ses.elc
14.29
KB
-rw-r--r--
tcover-unsafep.elc
3.87
KB
-rw-r--r--
testcover.elc
23.03
KB
-rw-r--r--
text-property-search.elc
8.13
KB
-rw-r--r--
thunk.elc
3.06
KB
-rw-r--r--
timer-list.elc
4.3
KB
-rw-r--r--
timer.elc
21.65
KB
-rw-r--r--
tq.elc
3.99
KB
-rw-r--r--
trace.elc
7.27
KB
-rw-r--r--
unsafep.elc
4.45
KB
-rw-r--r--
warnings.elc
9.75
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : pcase.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'macroexp) (defconst pcase--memoize (make-hash-table :weakness 'key :test 'eq)) (defconst pcase--dontcare-upats '(t _ pcase--dontcare)) (defvar pcase--dontwarn-upats '(pcase--dontcare)) (byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\207" [put pcase-PAT edebug-form-spec (&or symbolp ("or" &rest pcase-PAT) ("and" &rest pcase-PAT) ("guard" form) ("let" pcase-PAT form) ("pred" pcase-FUN) ("app" pcase-FUN pcase-PAT) pcase-MACRO sexp) pcase-FUN (&or lambda-expr (functionp &rest form) sexp) pcase-MACRO pcase--edebug-match-macro] 4) #@15 (fn CURSOR) (defalias 'pcase--edebug-match-macro #[257 "\300C\301\302\303\304\305\306!\307\"\310\311%!\210\312\313\242B\"\207" [nil mapatoms make-byte-code 257 "\211\301N\211\205 \302!\205 \300\303!\302!B\300\242B\240\207" vconcat vector [pcase-macroexpander get-edebug-spec symbol-name] 6 "\n\n(fn S)" edebug-match &or] 9 (#$ . 973)]) #@1734 Evaluate EXP to get EXPVAL; try passing control to one of CASES. CASES is a list of elements of the form (PATTERN CODE...). For the first CASE whose PATTERN "matches" EXPVAL, evaluate its CODE..., and return the value of the last form. If no CASE has a PATTERN that matches, return nil. Each PATTERN expands, in essence, to a predicate to call on EXPVAL. When the return value of that call is non-nil, PATTERN matches. PATTERN can take one of the forms: _ matches anything. \='VAL matches if EXPVAL is `equal' to VAL. KEYWORD shorthand for \='KEYWORD INTEGER shorthand for \='INTEGER STRING shorthand for \='STRING SYMBOL matches anything and binds it to SYMBOL. If a SYMBOL is used twice in the same pattern the second occurrence becomes an `eq'uality test. (pred FUN) matches if FUN called on EXPVAL returns non-nil. (app FUN PAT) matches if FUN called on EXPVAL matches PAT. (guard BOOLEXP) matches if BOOLEXP evaluates to non-nil. (let PAT EXPR) matches if EXPR matches PAT. (and PAT...) matches if all the patterns match. (or PAT...) matches if any of the patterns matches. FUN in `pred' and `app' can take one of the forms: SYMBOL or (lambda ARGS BODY) call it with one argument (F ARG1 .. ARGn) call F with ARG1..ARGn and EXPVAL as n+1'th argument FUN, BOOLEXP, EXPR, and subsequent PAT can refer to variables bound earlier in the pattern by a SYMBOL pattern. Additional patterns can be defined using `pcase-defmacro'. See Info node `(elisp) Pattern-Matching Conditional' in the Emacs Lisp manual for more information and examples. (fn EXP &rest CASES) (defalias 'pcase '(macro . #[385 "\301@\"@\232\203 A@\232\203 \211AA\202, \302\"\303@BB#\210\211\262\207" [pcase--memoize gethash pcase--expand puthash] 9 (#$ . 1328)])) (byte-code "\300\301\302\303#\304\301\305\306#\210\304\301\307\310#\207" [function-put pcase lisp-indent-function 1 put edebug-form-spec (form &rest (pcase-PAT body)) function-documentation (pcase--make-docstring)] 5) (defalias 'pcase--make-docstring #[0 "\300\301K\302\"\303\301\"\304\305!\210\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216A\206& c\210\317C\320\310\321\322\313\314!\323\"\324\325%!\210\326\242\236\327\242\"B\240\266\211\242\203{ \211\242\211\242A\240\210\242\211@A\300\302\"\330c\210\331\332!\317%\262\333\206t \334\261\266\202I \210\335 \203\212 \336@\"\202\213 \211\262*\262\207" [documentation pcase raw help-split-fundoc require help-fns generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil mapatoms 257 "\211\301N\211\205 \300B\300\242B\240\207" [pcase-macroexpander] 5 "\n\n(fn SYMBOL)" \` delq "\n\n-- " help-fns--signature indirect-function "\n" "Not documented." buffer-string help-add-fundoc-usage] 14]) #@144 The exhaustive version of `pcase' (which see). If EXP fails to match any of the patterns in CASES, an error is signaled. (fn EXP &rest CASES) (defalias 'pcase-exhaustive '(macro . #[385 "\301\302!\211B\303\304\305\306EDC\"\")\207" [pcase--dontwarn-upats gensym "x" pcase--expand append error "No clause matching `%S'"] 11 (#$ . 4299)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pcase-exhaustive lisp-indent-function 1 put edebug-form-spec pcase] 5) #@258 Like `lambda' but allow each argument to be a pattern. I.e. accepts the usual &optional and &rest keywords, but every formal argument can be any pattern accepted by `pcase' (a mere variable name being but a special case of it). (fn LAMBDA-LIST &rest BODY) (defalias 'pcase-lambda '(macro . #[385 "\300C\301!\302\303\304\305\306\307!\310\"\311\312%\"\313\314@\315\242\237ABBC\"BB\207" [nil macroexp-parse-body mapcar make-byte-code 257 "\2119\203 \207\301\302\303\300\242G\"!\300D\300\242B\240\210\211\207" vconcat vector [make-symbol format "arg%s"] 5 "\n\n(fn PAT)" lambda append pcase-let*] 12 (#$ . 4788)])) (byte-code "\300\301\302\303#\300\301\304\305#\306\301\307\310#\207" [function-put pcase-lambda doc-string-elt 2 lisp-indent-function defun put edebug-form-spec (&define (&rest pcase-PAT) lambda-doc def-body)] 6) #@22 (fn BINDINGS BODY) (defalias 'pcase--let* #[514 "\204 \300!\207\301@@!\203 \302@C\303A\"\"\207\211A\262\242\304A@@\303\"D\305B\"\207" [macroexp-progn pcase--trivial-upat-p macroexp-let* pcase--let* pcase--expand ((pcase--dontcare nil))] 9 (#$ . 5632)]) #@476 Like `let*', but supports destructuring BINDINGS using `pcase' patterns. As with `pcase-let', BINDINGS are of the form (PATTERN EXP), but the EXP in each binding in BINDINGS can use the results of the destructuring bindings that precede it in BINDINGS' order. Each EXP should match (i.e. be of compatible structure) to its respective PATTERN; a mismatch may signal an error or may go undetected, binding variables to arbitrary values, such as nil. (fn BINDINGS &rest BODY) (defalias 'pcase-let* '(macro . #[385 "\301\"\211@\232\203 \211A\202 \302\"\303B#\210\211\262\207" [pcase--memoize gethash pcase--let* puthash] 8 (#$ . 5910)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pcase-let* lisp-indent-function 1 put edebug-form-spec ((&rest (pcase-PAT &optional form)) body)] 5) #@581 Like `let', but supports destructuring BINDINGS using `pcase' patterns. BODY should be a list of expressions, and BINDINGS should be a list of bindings of the form (PATTERN EXP). All EXPs are evaluated first, and then used to perform destructuring bindings by matching each EXP against its respective PATTERN. Then BODY is evaluated with those bindings in effect. Each EXP should match (i.e. be of compatible structure) to its respective PATTERN; a mismatch may signal an error or may go undetected, binding variables to arbitrary values, such as nil. (fn BINDINGS &rest BODY) (defalias 'pcase-let '(macro . #[385 "A\204 \301BB\207\302\302\262\211\203Z \211@\211@>\203* \303\304!ABB\262\202S \305@!\2039 \211B\262\202S \303\306\307G\"!\211ABB\262@DB\262\210A\266\202\202 \210\310\237\301BBE\207" [pcase--dontcare-upats pcase-let* nil make-symbol "_" pcase--trivial-upat-p format "x%d" let] 9 (#$ . 6732)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pcase-let lisp-indent-function 1 put edebug-form-spec pcase-let*] 5) #@595 Eval BODY once for each set of bindings defined by PATTERN and LIST elements. PATTERN should be a `pcase' pattern describing the structure of LIST elements, and LIST is a list of objects that match PATTERN, i.e. have a structure that is compatible with PATTERN. For each element of LIST, this macro binds the variables in PATTERN to the corresponding subfields of the LIST element, and then evaluates BODY with these bindings in effect. The destructuring bindings of variables in PATTERN to the subfields of the elements of LIST is performed as if by `pcase-let'. (fn (PATTERN LIST) BODY...) (defalias 'pcase-dolist '(macro . #[385 "\300@!\203 \301BB\207\302\303!\301AB\304@DCBBE\207" [pcase--trivial-upat-p dolist gensym "x" pcase-let*] 8 (#$ . 7812)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pcase-dolist lisp-indent-function 1 put edebug-form-spec ((pcase-PAT form) body)] 5) #@13 (fn UPAT) (defalias 'pcase--trivial-upat-p #[257 "\2119\205 \211>?\207" [pcase--dontcare-upats] 3 (#$ . 8735)]) #@18 (fn EXP CASES) (defalias 'pcase--expand #[514 "\301!\203 \211\202 \302\303!\304C\304C\305\306\307\310\311\"\312\"\313\314%\304C\315\316\305\317\320\310\311 #\321\"\322\323% \"!\211\203] \211@\211\242>\204V \211@>\204V \324\325@\"\210A\266\202\202< \210\326\242\"\266\205=\203o \211\202v \326DC\"\207" [pcase--dontwarn-upats macroexp-copyable-p make-symbol "val" nil make-byte-code 514 "\211C\301\242\236\211\204 \302\242\"\301\242E\301\242B\240\210\211\262\202\202 \211@A\211@A\211@\2119\204` \303\304\305\300\242G\"!\300\306\307\310\" BBD\300\242B\240\210\311\240\210\307\312\"B\241\210AA\240\210\262\313\242!\240\210\307\314\315\316\317\320\f!\321\"\322\323%\"\311BB\262\266\205\262\207" vconcat vector [pcase-codegen make-symbol format "pcase-%d" lambda mapcar car funcall cdr copy-sequence make-byte-code 257 "\211@\300\242\236\300\301\300\242\"\240\210\211A\207" vconcat vector [delq] 6 "\n\n(fn PA)"] 16 "\n\n(fn CODE VARS)" pcase--u mapcar 257 "\303\300\304@!\"\305\306\307\310\311\301\302#\312\"\313\314%D\207" [pcase--match pcase--macroexpand make-byte-code 257 "\302\301\242>\204 \301\302\301\242B\240\210\303\302A!\203 \304\202 \300\302A\"\207" vconcat vector [pcase--small-branch-p pcase-codegen] 4 "\n\n(fn VARS)"] 10 "\n\n(fn CASE)" message "Redundant pcase pattern: %S" macroexp-let*] 18 (#$ . 8857)]) #@46 Expands all macro-patterns in PAT. (fn PAT) (defalias 'pcase--macroexpand #[257 "\211\242\211\204 \300!\203 \301D\202k \202k \211\302\267\202E \202k \211\303\304A\"B\202k \305\304A@!AABB\202k \306A@\304\3078!E\202k \211\310N\211\205Q \311A\"\211\204f \312\203^ \313\202_ \314#\202i \304!\266\202\207" [pcase--self-quoting-p quote #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pred 28 guard 28 quote 28 or 32 and 32 let 42 app 56)) mapcar pcase--macroexpand let app 2 pcase-macroexpander apply error "Unexpandable %s pattern: %S" "Unknown %s pattern: %S"] 8 (#$ . 10250)]) #@273 Define a new kind of pcase PATTERN, by macro expansion. Patterns of the form (NAME ...) will be expanded according to this macro. By convention, DOC should use "EXPVAL" to stand for the result of evaluating EXP (first arg to `pcase'). (fn NAME ARGS [DOC] &rest BODY...) (defalias 'pcase-defmacro '(macro . #[642 "\300\301\302\"!\303\236\211\203 \304\"\262\305\306BBB\307\310D\311\310\312\236A@DF\307\310 D\313\314DFF\207" [intern format "%s--pcase-macroexpander" declare remove progn defun define-symbol-prop quote 'edebug-form-spec debug 'pcase-macroexpander function] 13 (#$ . 10888)])) (byte-code "\300\301\302\303#\304\301\305\306#\210\300\301\307\310#\300\207" [function-put pcase-defmacro lisp-indent-function 2 put edebug-form-spec defun doc-string-elt 3] 5) #@80 Build a MATCH structure, hoisting all `or's and `and's outside. (fn VAL UPAT) (defalias 'pcase--match #[514 "\211\242\300>\203 \211@\301\302\303\304\305\306!\307\"\310\311%A\"B\207\312BB\207" [(or and) mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [pcase--match] 4 "\n\n(fn UPAT)" match] 10 (#$ . 11679)]) #@18 (fn CODE VARS) (defalias 'pcase-codegen #[514 "\211\203 \300\301\302\"BB\207\303B\207" [let mapcar #[257 "\211@AD\207" [] 3 "\n\n(fn B)"] progn] 6 (#$ . 12011)]) #@13 (fn CODE) (defalias 'pcase--small-branch-p #[257 "\211G\300U\205* \211@:?\206* \301@\211\203& \211@\211:\203 \302\262A\266\202\202 \210\211\262\207" [1 t nil] 5 (#$ . 12186)]) #@23 (fn TEST THEN ELSE) (defalias 'pcase--if #[771 "\211\300=\203 \207\300=\203 \301 \210\207\302#\207" [:pcase--dontcare debug macroexp-if] 7 (#$ . 12376)]) #@319 Expand matcher for rules BRANCHES. Each BRANCH has the form (MATCH CODE . VARS) where CODE is the code generator for that branch. VARS is the set of vars already bound by earlier matches. MATCH is the pattern that needs to be matched, of the form: (match VAR . PAT) (and MATCH ...) (or MATCH ...) (fn BRANCHES) (defalias 'pcase--u #[257 "\300\301\"\211\262\205 \211@\211@A\211@A\302C A$\266\205\207" [delq nil pcase--u1] 11 (#$ . 12546)]) #@22 (fn MATCH MATCHES) (defalias 'pcase--and #[514 "\211\203\n \300BB\207\207" [and] 5 (#$ . 13007)]) (defconst pcase-mutually-exclusive-predicates '((symbolp . integerp) (symbolp . numberp) (symbolp . consp) (symbolp . arrayp) (symbolp . vectorp) (symbolp . stringp) (symbolp . byte-code-function-p) (symbolp . recordp) (integerp . consp) (integerp . arrayp) (integerp . vectorp) (integerp . stringp) (integerp . byte-code-function-p) (integerp . recordp) (numberp . consp) (numberp . arrayp) (numberp . vectorp) (numberp . stringp) (numberp . byte-code-function-p) (numberp . recordp) (consp . arrayp) (consp . atom) (consp . vectorp) (consp . stringp) (consp . byte-code-function-p) (consp . recordp) (arrayp . byte-code-function-p) (vectorp . byte-code-function-p) (vectorp . recordp) (stringp . vectorp) (stringp . recordp) (stringp . byte-code-function-p))) #@20 (fn PRED1 PRED2) (defalias 'pcase--mutually-exclusive-p #[514 "B\235\206 \211B\235\207" [pcase-mutually-exclusive-predicates] 4 (#$ . 13878)]) #@27 (fn SYM SPLITTER MATCH) (defalias 'pcase--split-match #[771 "\211\242\300=\203& A@=\204 \211B\207AA!\211@\206 A\206$ B\207\211\242\301>\203\277 \302\211@\303=\203: \304\202; \305@\303=\203F \305\202G \304A\211\203z \211@\306 #\211@=\204d \211@B\262\211A=\204r \211AB\262\210A\266\202\202I \210\211>\203\205 \211\202\234 \204\215 \202\234 A\204\227 @\202\234 @\237B>\203\246 \202\275 \204\256 \202\275 A\204\270 @\202\275 @\237BB\207\211\307>\203\311 \211B\207\310\311\"\207" [match (or and) nil or :pcase--fail :pcase--succeed pcase--split-match (:pcase--succeed :pcase--fail) error "Uknown MATCH %s"] 13 (#$ . 14035)]) #@26 (fn SYM SPLITTER REST) (defalias 'pcase--split-rest #[771 "\300\211\211\203= \211@\211@A\301 #\211@\302=\204$ \211@BB\262\211A\302=\2044 \211ABB\262\266A\266\202\202 \210\237\237B\207" [nil pcase--split-match :pcase--fail] 13 (#$ . 14707)]) #@17 (fn ELEM PAT) (defalias 'pcase--split-equal #[514 "\211\242\300=\203 \211A@\232\203 \301\207\211\242\300=\203 \302\207\211\242\303=\205E \211A@9\205E \211A@\304N\205E \3051C \211A@!\203@ \306\202A \3070\207\210\310\207" [quote (:pcase--succeed . :pcase--fail) (:pcase--fail) pred side-effect-free (error) (:pcase--succeed) (:pcase--fail) nil] 4 (#$ . 14975)]) #@18 (fn ELEMS PAT) (defalias 'pcase--split-member #[514 "\211\242\300=\203 \211A@\235\203 \301\207\211\242\300=\203 \302\207\211\242\303=\205\\ \211A@9\205\\ \211A@\304N\205\\ \3051V \211A@\306\211\203O \211@!\204H \301\262A\266\202\2029 \210\2620\202X \210\301\205\\ \307\207" [quote nil (:pcase--fail) pred side-effect-free (error) t (:pcase--succeed)] 8 (#$ . 15348)]) #@22 (fn VARS UPAT PAT) (defalias 'pcase--split-pred #[771 "\300\232\203& @\301=\203 A@9\204\" \302\303\304\"A@\"\204& \305\202\323 @\301=\203 \242\301=\203: A@\202p \242\306=\204E \300\202p A@:\203P \307\202p A@;\203[ \310\202p \311A@!\203g \311\202p \312A@!\205p \312\313A@\"\262\203 \314\202\323 @\301=\205\323 \242\306=\205\323 A@9\205\323 A@9\204\251 A@;\204\251 A@\247\205\323 A@\315N\205\323 \3161\304 A@A@!C\211\2620\202\306 \210\300\205\323 \211@\203\322 \317\202\323 \320\207" [nil pred pcase--fgrep mapcar car (:pcase--succeed . :pcase--fail) quote consp stringp vectorp byte-code-function-p pcase--mutually-exclusive-p (:pcase--fail) side-effect-free (error) (nil . :pcase--fail) (:pcase--fail)] 8 (#$ . 15734)]) #@65 Check which of the symbols VARS appear in SEXP. (fn VARS SEXP) (defalias 'pcase--fgrep #[514 "\300:\203+ \301\211A\262\242\"\211\203' \211@\211>\204 \211B\262A\266\202\202 \210\202 >\203< >\204< B\262\211\207" [nil pcase--fgrep] 7 (#$ . 16493)]) #@13 (fn UPAT) (defalias 'pcase--self-quoting-p #[257 "\300!\206 \211\250\206 \211;\207" [keywordp] 3 (#$ . 16764)]) #@27 (fn MATCH SYM FUN NSYM) (defalias 'pcase--app-subst-match #[1028 "\242\300=\203. A@=\203, AA\242\301=\203, AAA@\232\203, \302\303AA8\"\207\207\242\304>\203O @\305\306\307\310\311\312 #\313\"\314\315%A\"B\207\316>\203W \207\317\320\"\207" [match app pcase--match 2 (or and) mapcar make-byte-code 257 "\303\300\301\302$\207" vconcat vector [pcase--app-subst-match] 6 "\n\n(fn MATCH)" (:pcase--succeed :pcase--fail) error "Uknown MATCH %s"] 14 (#$ . 16887)]) #@26 (fn REST SYM FUN NSYM) (defalias 'pcase--app-subst-rest #[1028 "\300\301\302\303\304\305#\306\"\307\310%\"\207" [mapcar make-byte-code 257 "\303@\300\301\302$AB\207" vconcat vector [pcase--app-subst-match] 6 "\n\n(fn BRANCH)"] 13 (#$ . 17374)]) #@12 (fn SYM) (defalias 'pcase--mark-used #[257 "\2119\205\n \300\301\302#\207" [put pcase-used t] 5 (#$ . 17636)]) (put 'pcase--mark-used 'byte-optimizer 'byte-compile-inline-expand) #@91 Helper function, used internally to avoid (funcall (lambda ...) ...). (fn FUN ARG1 ARG2) (defalias 'pcase--flip '(macro . #[771 "E\207" [] 6 (#$ . 17824)])) (put 'pcase--flip 'edebug-form-spec '(sexp body)) #@63 Build a function call to FUN with arg ARG. (fn FUN ARG VARS) (defalias 'pcase--funcall #[771 "9\203 D\207\300\301\302\"\"\301\303\304\305\306\307!\310\"\311\312%\">\2032 \313\314!\211DB\262\262\315!\203B \316\317DE\202G \320C\"\204O \211\202S \321E\207" [pcase--fgrep mapcar car make-byte-code 257 "\211\300\236AD\207" vconcat vector [] 4 "\n\n(fn VAR)" gensym "x" functionp funcall function append let*] 11 (#$ . 18041)]) #@60 Build an expression that will evaluate EXP. (fn EXP VARS) (defalias 'pcase--eval #[514 "\236\211\203\f \211A\2022 \300\301\302\"\"\301\303\304\305\306\307!\310\"\311\312%\"\211\203/ \313\"\2020 \266\202\207" [pcase--fgrep mapcar car make-byte-code 257 "\211\300\236AD\207" vconcat vector [] 4 "\n\n(fn V)" macroexp-let*] 11 (#$ . 18496)]) #@192 Return code that runs CODE (with VARS) if MATCHES match. Otherwise, it defers to REST which is a list of branches of the form (ELSE-MATCH ELSE-CODE . ELSE-VARS). (fn MATCHES CODE VARS REST) (defalias 'pcase--u1 #[1028 "\204 !\207@\300=\203 \301!\207@\302=\203\" \303A$\207@@\304=\2038 \303\305@AA\"$\207@@\306=\203@@A\211@@\307=\205O \211@A@\310\211\311\203\255 \211\203\254 \211@\211@\307=\203\240 A@=\203\240 \211AA\211\242\312=\262\203\240 \211AAA@\211\250\203\216 \311=\203\226 \313\262\202\226 \2119\204\226 \314\262\211B\262\210\202\245 \211B\262A\266\202\202W \210\204\274 \315\316!\210\301!\202?G\317V\203\303\307\320\321\312 DEF\nAB \204\340 \202\377 \322A\203\357 \306\237B\202\362 @A\"\f\fBB\nB$\202?\303\211A\262\242\nAB \204 \315\316!\210 \202>\322 A\203.\306\nB\2021 @A\"\f\fBB\nB$\207@@\307=\203m\211A\262\242\211@A\211@A\211\323\267\202}\303 $\324=\203p\211\202t\325\326\"\262\202l\327\202l\211\242\330>\203\336\211@\320=\203\230\2119\205\226\331\332\333#\266\334\335\336\337\340\341 \"\342\"\343\344%#\211@A\345@\320=\203\304\346A@ #\202\313\347A@\f\"\303$\301!#\266\203\202l\2119\203%\211\203%\2119\205\362\331\332\333#\266\211\236\204\f\303 B\nB $\202l\303\307\320\350\f\236ADF\nB $\202l\211\242\351=\203g\347\3528\"\353!\203=\211\202@\354\355!\303\356A@\"\fB $=\203[\211\202b\357DC\"\266\203\202l\211\242\360=\203\267\2119\205y\331\332\333#\266\211A@\361\362!\303\356\3528\"\fB \363\f $$\332N\204\245\211\202\262\357\346#DC\"\266\203\202l\211\242\312=\2038\2119\205\311\331\332\333#\266\211A@\334\335\336\364\340\341!\365\"\366\344% #\211@A\345\204\360\367D\202%\250\203\376\370E\202%9\203 \371!\203\350E\202%\350\312DE\202%\372\312DE\303$\301!#\266\204\202l\211\242\373=\203f\303\307A@BBC\335\336\374\340\341\f!\375\"\376\377% \304 B\f\fBBC$\202l\315\201@ \"\207\315\201A @\"\207" [:pcase--fail pcase--u :pcase--succeed pcase--u1 and append or match nil memq quote memql member error "Please avoid it" 1 pred pcase--flip pcase--and #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 348 _ 348 pcase--dontcare 377)) _ macroexp--warn-and-return "Pattern t is deprecated. Use `_' instead" :pcase--dontcare (guard pred) put pcase-used t pcase--split-rest make-byte-code 257 "\302\300\301#\207" vconcat vector [pcase--split-pred] 5 "\n\n(fn PAT)" pcase--if pcase--funcall pcase--eval eq let 2 macroexp-copyable-p make-symbol "sym" pcase--match macroexp-let* app gensym "x" pcase--app-subst-rest "\301\300\"\207" [pcase--split-equal] 4 null eql pcase--self-quoting-p equal not "\301\300!\207" [pcase--u] 3 "\n\n(fn VARS)" "Unknown pattern `%S'" "Incorrect MATCH %S"] 20 (#$ . 18855)]) (put 'pcase-QPAT 'edebug-form-spec '(&or ("," pcase-PAT) (pcase-QPAT [&rest [¬ ","] pcase-QPAT] . [&or nil pcase-QPAT]) (vector &rest pcase-QPAT) sexp)) #@1089 Backquote-style pcase patterns: \=`QPAT QPAT can take the following forms: (QPAT1 . QPAT2) matches if QPAT1 matches the car and QPAT2 the cdr. [QPAT1 QPAT2..QPATn] matches a vector of length n and QPAT1..QPATn match its 0..(n-1)th elements, respectively. ,PAT matches if the `pcase' pattern PAT matches. SYMBOL matches if EXPVAL is `equal' to SYMBOL. KEYWORD likewise for KEYWORD. NUMBER likewise for NUMBER. STRING likewise for STRING. The list or vector QPAT is a template. The predicate formed by a backquote-style pattern is a combination of those formed by any sub-patterns, wrapped in a top-level condition: EXPVAL must be "congruent" with the template. For example: \=`(technical ,forum) The predicate is the logical-AND of: - Is EXPVAL a list of two elements? - Is the first element the symbol `technical'? - True! (The second element can be anything, and for the sake of the body forms, its value is bound to the symbol `forum'.) (fn QPAT) (defalias '\`--pcase-macroexpander #[257 "\211\242\300=\203 \211A@\207\301!\203E \302\303\304\305GE\306G\307\211W\203; \211\304\310\311E\312\nHDEB\262\210\211T\262\202 \266\211\237\262BBB\207\211:\203] \302\313\304\314\312@DE\304\315\312ADEF\207\211;\204l \211\247\204l \2119\203p \316D\207\317\320\"\207" [\, vectorp and (pred vectorp) app length nil 0 pcase--flip aref \` (pred consp) car cdr quote error "Unknown QPAT: %S"] 13 (#$ . 21940)]) (byte-code "\300\301\302\303#\300\304\305\301#\306\307!\207" [define-symbol-prop \`--pcase-macroexpander edebug-form-spec (pcase-QPAT) \` pcase-macroexpander provide pcase] 5)
Close
