Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
nxml /
[ HOME SHELL ]
Name
Size
Permission
Action
TODO
13.76
KB
-rw-r--r--
nxml-enc.elc
3.56
KB
-rw-r--r--
nxml-glyph.elc
7.8
KB
-rw-r--r--
nxml-maint.elc
2.24
KB
-rw-r--r--
nxml-mode.elc
69.67
KB
-rw-r--r--
nxml-ns.elc
4.19
KB
-rw-r--r--
nxml-outln.elc
28.22
KB
-rw-r--r--
nxml-parse.elc
8.77
KB
-rw-r--r--
nxml-rap.elc
11.25
KB
-rw-r--r--
nxml-uchnm.elc
6.77
KB
-rw-r--r--
nxml-util.elc
4.41
KB
-rw-r--r--
rng-cmpct.elc
26.68
KB
-rw-r--r--
rng-dt.elc
1.97
KB
-rw-r--r--
rng-loc.elc
14.76
KB
-rw-r--r--
rng-maint.elc
6.12
KB
-rw-r--r--
rng-match.elc
47.01
KB
-rw-r--r--
rng-nxml.elc
14.93
KB
-rw-r--r--
rng-parse.elc
2.82
KB
-rw-r--r--
rng-pttrn.elc
3.69
KB
-rw-r--r--
rng-uri.elc
7.79
KB
-rw-r--r--
rng-util.elc
4.05
KB
-rw-r--r--
rng-valid.elc
35.72
KB
-rw-r--r--
rng-xsd.elc
24.32
KB
-rw-r--r--
xmltok.elc
39.71
KB
-rw-r--r--
xsd-regexp.elc
40.3
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : rng-match.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:37 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/nxml/rng-match.el ;;; in Emacs version 23.1.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 "`rng-match.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\301\303!\210\301\304!\210\305B\306\305!\204 \307\305\310\"\210\311B\306\311!\204* \307\311\310\"\210\312B\306\312!\2049 \307\312\310\"\210\313B\306\313!\204H \307\313\310\"\210\310\207" [current-load-list require rng-pttrn rng-util rng-dt rng-not-allowed-ipattern default-boundp set-default nil rng-empty-ipattern rng-text-ipattern rng-compile-table] 3) #@104 Contains a list of ref patterns currently being compiled. Used to detect invalid recursive references. (defvar rng-being-compiled nil (#$ . 1004)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list rng-ipattern-table default-boundp set-default nil rng-last-ipattern-index] 3) #@59 An ipattern representing the current state of validation. (defvar rng-match-state nil (#$ . 1356)) (defalias 'rng-update-match-state #[(new-state) " =\205\n \n =??\205 \303\207" [new-state rng-not-allowed-ipattern rng-match-state t] 2]) (put 'rng-update-match-state 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-defslot '(macro . #[(slot-name index) "\302\303\304!\305\306\307 EF\303\310!\311\312\307 \313BBBFE\207" [slot-name index progn defsubst rng-ipattern-slot-accessor-name (ipattern) aref ipattern rng-ipattern-slot-setter-name (ipattern value) aset (value)] 9])) (defalias 'rng-ipattern-get-type #[(ipattern) "\301H\207" [ipattern 0] 2]) (put 'rng-ipattern-get-type 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-type #[(ipattern value) "\302 I\207" [ipattern value 0] 3]) (put 'rng-ipattern-set-type 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-index #[(ipattern) "\301H\207" [ipattern 1] 2]) (put 'rng-ipattern-get-index 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-index #[(ipattern value) "\302 I\207" [ipattern value 1] 3]) (put 'rng-ipattern-set-index 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-name-class #[(ipattern) "\301H\207" [ipattern 2] 2]) (put 'rng-ipattern-get-name-class 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-name-class #[(ipattern value) "\302 I\207" [ipattern value 2] 3]) (put 'rng-ipattern-set-name-class 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-datatype #[(ipattern) "\301H\207" [ipattern 2] 2]) (put 'rng-ipattern-get-datatype 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-datatype #[(ipattern value) "\302 I\207" [ipattern value 2] 3]) (put 'rng-ipattern-set-datatype 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-after #[(ipattern) "\301H\207" [ipattern 2] 2]) (put 'rng-ipattern-get-after 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-after #[(ipattern value) "\302 I\207" [ipattern value 2] 3]) (put 'rng-ipattern-set-after 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-child #[(ipattern) "\301H\207" [ipattern 3] 2]) (put 'rng-ipattern-get-child 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-child #[(ipattern value) "\302 I\207" [ipattern value 3] 3]) (put 'rng-ipattern-set-child 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-value-object #[(ipattern) "\301H\207" [ipattern 3] 2]) (put 'rng-ipattern-get-value-object 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-value-object #[(ipattern value) "\302 I\207" [ipattern value 3] 3]) (put 'rng-ipattern-set-value-object 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-nullable #[(ipattern) "\301H\207" [ipattern 4] 2]) (put 'rng-ipattern-get-nullable 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-nullable #[(ipattern value) "\302 I\207" [ipattern value 4] 3]) (put 'rng-ipattern-set-nullable 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-memo-text-typed #[(ipattern) "\301H\207" [ipattern 5] 2]) (put 'rng-ipattern-get-memo-text-typed 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-memo-text-typed #[(ipattern value) "\302 I\207" [ipattern value 5] 3]) (put 'rng-ipattern-set-memo-text-typed 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-memo-map-start-tag-open-deriv #[(ipattern) "\301H\207" [ipattern 6] 2]) (put 'rng-ipattern-get-memo-map-start-tag-open-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-memo-map-start-tag-open-deriv #[(ipattern value) "\302 I\207" [ipattern value 6] 3]) (put 'rng-ipattern-set-memo-map-start-tag-open-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-memo-map-start-attribute-deriv #[(ipattern) "\301H\207" [ipattern 7] 2]) (put 'rng-ipattern-get-memo-map-start-attribute-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-memo-map-start-attribute-deriv #[(ipattern value) "\302 I\207" [ipattern value 7] 3]) (put 'rng-ipattern-set-memo-map-start-attribute-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-memo-start-tag-close-deriv #[(ipattern) "\301H\207" [ipattern 8] 2]) (put 'rng-ipattern-get-memo-start-tag-close-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-memo-start-tag-close-deriv #[(ipattern value) "\302 I\207" [ipattern value 8] 3]) (put 'rng-ipattern-set-memo-start-tag-close-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-memo-text-only-deriv #[(ipattern) "\301H\207" [ipattern 9] 2]) (put 'rng-ipattern-get-memo-text-only-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-memo-text-only-deriv #[(ipattern value) "\302 I\207" [ipattern value 9] 3]) (put 'rng-ipattern-set-memo-text-only-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-memo-mixed-text-deriv #[(ipattern) "\301H\207" [ipattern 10] 2]) (put 'rng-ipattern-get-memo-mixed-text-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-memo-mixed-text-deriv #[(ipattern value) "\302 I\207" [ipattern value 10] 3]) (put 'rng-ipattern-set-memo-mixed-text-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-memo-map-data-deriv #[(ipattern) "\301H\207" [ipattern 11] 2]) (put 'rng-ipattern-get-memo-map-data-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-memo-map-data-deriv #[(ipattern value) "\302 I\207" [ipattern value 11] 3]) (put 'rng-ipattern-set-memo-map-data-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-get-memo-end-tag-deriv #[(ipattern) "\301H\207" [ipattern 12] 2]) (put 'rng-ipattern-get-memo-end-tag-deriv 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-set-memo-end-tag-deriv #[(ipattern value) "\302 I\207" [ipattern value 12] 3]) (byte-code "\301\302\303\304#\210\305B\306\307!\207" [current-load-list put rng-ipattern-set-memo-end-tag-deriv byte-optimizer byte-compile-inline-expand rng-memo-map-alist-max (lambda (#1=#:defconst-tmp-var) (defconst rng-memo-map-alist-max #1#)) 10] 4) #@54 Return the value associated with KEY in memo-map MM. (defalias 'rng-memo-map-get #[(key mm) "\304 \"\211\203 \nA\202 \205 @\305 !\205 \306 \"))\207" [key mm found head assoc hash-table-p gethash] 4 (#$ . 7798)]) (put 'rng-memo-map-get 'byte-optimizer 'byte-compile-inline-expand) #@790 Associate KEY with VALUE in memo-map MM and return the new memo-map. The new memo-map may or may not be a different object from MM. Alists are better for small maps. Hash tables are better for large maps. A memo-map therefore starts off as an alist and switches to a hash table for large memo-maps. A memo-map is always a list. An empty memo-map is represented by nil. A large memo-map is represented by a list containing just a hash-table. A small memo map is represented by a list whose cdr is an alist and whose car is the number of entries in the alist. The complete memo-map can be passed to `assoc' without problems: assoc ignores any members that are not cons cells. There is therefore minimal overhead in successful lookups on small lists (which is the most common case). (defalias 'rng-memo-map-add #[(key value mm &optional weakness) "\204\n \306 \nBD\207@\307 !\203 \310 \n #\210\202[ \fY\203R \311\312\313\314 \315\f\316_& A\211\203J @\310 @ A#\210A\211\2047 )\317B\202[ T \nBABB)\207" [mm key value head rng-memo-map-alist-max weakness 1 hash-table-p puthash make-hash-table :test equal :weakness :size 2 nil ht] 9 (#$ . 8095)]) (defalias 'rng-make-ipattern #[(type index name-class child nullable) "\305 \n \f\306\307\211\211\211\211\211\211& \207" [type index name-class child nullable vector unknown nil] 14]) (put 'rng-make-ipattern 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-ipattern-maybe-init #[nil "?\205 \302\303\304\"\305\211\207" [rng-ipattern-table rng-last-ipattern-index make-hash-table :test equal -1] 3]) (defalias 'rng-ipattern-clear #[nil "\203 \302!\210\303\211\207" [rng-ipattern-table rng-last-ipattern-index clrhash -1] 2]) (defalias 'rng-gen-ipattern-index #[nil "T\211\207" [rng-last-ipattern-index] 2]) (put 'rng-gen-ipattern-index 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-put-ipattern #[(key type name-class child nullable) " T\211\n \f \306 \n \f\307\310\211\211\211\211\211\211& - \n\311 \n\f#\210\n)\207" [type rng-last-ipattern-index name-class child nullable index vector unknown nil puthash ipattern key rng-ipattern-table] 14]) (defalias 'rng-get-ipattern #[(key) "\302 \"\207" [key rng-ipattern-table gethash] 3]) (byte-code "\204 \306\307\310\211\211 \311 \f \n \312\310\211\211\211\211\211\211& -\204B \313\314\310\211\315 \311 \f \n \312\310\211\211\211\211\211\211& -\204d \316\317\310\211\315 \311 \f \n \312\310\211\211\211\211\211\211& -\320B\321E!\207" [rng-not-allowed-ipattern nullable child name-class index type not-allowed -3 nil vector unknown empty -2 t text -1 rng-const-ipatterns (lambda (#1=#:defconst-tmp-var) (defconst rng-const-ipatterns #1#)) rng-empty-ipattern rng-text-ipattern current-load-list] 14) (defalias 'rng-intern-after #[(child after) " =\203 \207\303\211\305H) \211\305H)E \306\f!\206$ \307\f\303 \310%)\207" [child rng-not-allowed-ipattern ipattern after key 1 rng-get-ipattern rng-put-ipattern nil] 7]) (defalias 'rng-intern-attribute #[(name-class ipattern) " =\203 \207\304\n\211\305H)E\306 !\206 \307 \304\n\310%)\207" [ipattern rng-not-allowed-ipattern name-class key attribute 1 rng-get-ipattern rng-put-ipattern nil] 7]) (defalias 'rng-intern-data #[(dt matches-anything) "\305D\306 !\206 \307 \305\310\n%\211\n? \211\311\fI\210* ))\207" [dt key matches-anything ipattern value data rng-get-ipattern rng-put-ipattern nil 5] 7]) (defalias 'rng-intern-data-except #[(dt ipattern) "\303 E\304\n!\206 \305\n\303 \306%)\207" [dt ipattern key data-except rng-get-ipattern rng-put-ipattern nil] 6]) (defalias 'rng-intern-value #[(dt obj) "\303 E\304\n!\206 \305\n\303 \306%)\207" [dt obj key value rng-get-ipattern rng-put-ipattern nil] 6]) (defalias 'rng-intern-one-or-more #[(ipattern) "\302!\206# \303\211\304H)CB\305 !\206\" \306 \303\307\211\211\310H)%)\207" [ipattern key rng-intern-one-or-more-shortcut one-or-more 1 rng-get-ipattern rng-put-ipattern nil 4] 8]) (defalias 'rng-intern-one-or-more-shortcut #[(ipattern) " =\203 \207\n=\203 \n\207\211\303H)\304=\203 \207\305\207" [ipattern rng-not-allowed-ipattern rng-empty-ipattern 0 one-or-more nil] 3]) (defalias 'rng-intern-list #[(ipattern) " =\203 \207\303\211\304H)CB\305\n!\206 \306\n\303\307\307%)\207" [ipattern rng-not-allowed-ipattern key list 1 rng-get-ipattern rng-put-ipattern nil] 7]) #@64 Return an ipattern for the list of group members in IPATTERNS. (defalias 'rng-intern-group #[(ipatterns) "\304!\206* \305!\211A\304\n!\206) \306\307\310\n\"B\311 !\206( \312 \306\313\n @%)*\207" [ipatterns tem normalized key rng-intern-group-shortcut rng-normalize-group-list group mapcar rng-ipattern-get-index rng-get-ipattern rng-put-ipattern nil] 7 (#$ . 12513)]) #@108 Try to shortcut interning a group list. If successful, return the interned pattern. Otherwise return nil. (defalias 'rng-intern-group-shortcut #[(ipatterns) "\203 @ =\203 A\211\204 \203S @\211 =\203# \202Q A\203P \n\203P @\211 =\203> \f\305\202L \f =\203J A\202L \305)\202& \n)\207 \207" [ipatterns rng-empty-ipattern ret rng-not-allowed-ipattern tem nil] 3 (#$ . 12893)]) #@212 Normalize a list containing members of a group. Expands nested groups, removes empty members, handles notAllowed. Returns a pair whose car says whether the list is nullable and whose cdr is the normalized list. (defalias 'rng-normalize-group-list #[(ipatterns) "\306\307\211 \203Q @ A\n\203 \211 \310H)\211 \311H)\312=\2034 \313\211 \314H)! \244\202 =\203C C\307\211\202 =\204 B\202 \n \237+B\207" [member result nullable ipatterns ipattern rng-not-allowed-ipattern t nil 4 0 group reverse 3 rng-empty-ipattern] 4 (#$ . 13295)]) (defalias 'rng-intern-interleave #[(ipatterns) "\304!\206* \305!\211A\304\n!\206) \306\307\310\n\"B\311 !\206( \312 \306\313\n @%)*\207" [ipatterns tem normalized key rng-intern-group-shortcut rng-normalize-interleave-list interleave mapcar rng-ipattern-get-index rng-get-ipattern rng-put-ipattern nil] 7]) #@218 Normalize a list containing members of an interleave. Expands nested groups, removes empty members, handles notAllowed. Returns a pair whose car says whether the list is nullable and whose cdr is the normalized list. (defalias 'rng-normalize-interleave-list #[(ipatterns) "\306\307\211 \203P @ A\n\203 \211 \310H)\211 \311H)\312=\2033 \313\211 \314H) \"\202 =\203B C\307\211\202 =\204 B\202 \n\315 \316\"+B\207" [member result nullable ipatterns ipattern rng-not-allowed-ipattern t nil 4 0 interleave append 3 sort rng-compare-ipattern rng-empty-ipattern] 5 (#$ . 14170)]) #@85 Return a choice ipattern for the list of choices in IPATTERNS. May alter IPATTERNS. (defalias 'rng-intern-choice #[(ipatterns) "\303!\206 \304!\211A\303\n!\206 \305\n @\"*\207" [ipatterns tem normalized rng-intern-choice-shortcut rng-normalize-choice-list rng-intern-choice1] 4 (#$ . 14776)]) (defalias 'rng-intern-optional #[(ipattern) "\211\303H)\203 \207 =\203 \n\207\304\n\211\305H)\306=\203) \211\307H)\202+ CB\310\"\207" [ipattern rng-not-allowed-ipattern rng-empty-ipattern 4 rng-intern-choice1 0 choice 3 t] 5]) (defalias 'rng-intern-choice1 #[(normalized nullable) "\303\304\305\"B\306 !\206 \307 \303\310\n%)\207" [normalized key nullable choice mapcar rng-ipattern-get-index rng-get-ipattern rng-put-ipattern nil] 6]) #@109 Try to shortcut interning a choice list. If successful, return the interned pattern. Otherwise return nil. (defalias 'rng-intern-choice-shortcut #[(ipatterns) "\203 @ =\203 A\211\204 \203> @A\211\203; \n\203; @ =\2044 @\n=\2044 \303A\211\204 \n)\207 \207" [ipatterns rng-not-allowed-ipattern ret nil] 3 (#$ . 15533)]) #@219 Normalize a list of choices. Expands nested choices, removes not-allowed members, sorts by index and removes duplicates. Return a pair whose car says whether the list is nullable and whose cdr is the normalized list. (defalias 'rng-normalize-choice-list #[(ipatterns) "\306\307\211B \307\310\307 \203\241 @\n\204( \f\211 \311H)\f\211 \312H)\313=\203N \314\f\211 \315H)\" A\307 \241\210\202 \f=\203` A \241\210\202 \203\227 \f\211 \316H) Y\203\203 U\206\210 \307\211\202\210 \307)\203\227 A \241\210\202 A\211\204 \241\210- A\n \203\264 \202\272 \317\320 \321\"!+B\207" [ipatterns head nullable sorted member cur t nil -100 4 0 choice append 3 1 rng-uniquify-eq sort rng-compare-ipattern prev-index final-tail tail ipattern rng-not-allowed-ipattern cur-index] 6 (#$ . 15877)]) (defalias 'rng-compare-ipattern #[(p1 p2) "\211\303H)\n\211\303H)W\207" [p1 ipattern p2 1] 4]) (defalias 'rng-name-class-contains #[(nc nm) ":\203 \232\207\302 \"\207" [nc nm rng-name-class-contains1] 3]) (put 'rng-name-class-contains 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-name-class-contains1 #[(nc nm) "\305H\211\306=\203 \307\202\236 \310=\203. \311H\n\211:\203% \n\232\202) \312\n\"*?\202\236 \313=\203= \n@\311H=\202\236 \314=\203f \n@\311H=\205\236 \315H\n\211:\203] \n\232\202a \312\n\"*?\202\236 \316=\205\236 \311H\317 \f\203\234 \f@\n\211:\203\206 \n\232\202\212 \312\n\"*\203\225 \317\307\202r \fA\211\204v *)\207" [nc type nm ret choices 0 any-name t any-name-except 1 rng-name-class-contains1 ns-name ns-name-except 2 choice nil] 4]) #@365 Return a list of possible names that nameclass NC can match. Each possible name should be returned as a (NAMESPACE . LOCAL-NAME) pair, where NAMESPACE is a symbol or nil and LOCAL-NAME is a string. NAMESPACE, if nil, matches the absent namespace. ACCUM is a list of names which should be appended to the returned list. The returned list may contain duplicates. (defalias 'rng-name-class-possible-names #[(nc accum) ":\203 B\207\304H\305=\2036 \306H\307\211\2035 @\211:\203) \n B\202- \310\n \" A\211\204 * \207" [nc accum member members 0 choice 1 nil rng-name-class-possible-names] 4 (#$ . 17535)]) (defalias 'rng-ipattern-to-string #[(ipattern) "\211\302H)\211\303=\203\" \304\211\305H)!\306\304\211\307H)!Q\202\312 \310=\2036 \311\312\211\307H)!\313Q\202\312 \314=\203T \315\312\211\307H)!\316\304\211\305H)!\317\260\202\312 \320=\203^ \321\202\312 \322=\203h \323\202\312 \324=\203r \325\202\312 \326=\203\205 \304\211\305H)!\327P\202\312 \330=\203\233 \331\332\304\211\305H)\333#\334Q\202\312 \335=\203\261 \331\332\304\211\305H)\336#\334Q\202\312 \337=\203\307 \331\332\304\211\305H)\340#\334Q\202\312 \341 !)\207" [ipattern type 0 after rng-ipattern-to-string 3 " </> " 2 element "element " rng-name-class-to-string " {...}" attribute "attribute " " { " " } " empty "empty" text "text" not-allowed "notAllowed" one-or-more "+" choice "(" mapconcat " | " ")" group ", " interleave " & " symbol-name] 7]) (defalias 'rng-name-class-to-string #[(nc) ":\203 A\207\302H\211\303=\203 \304\305\306H\307#\202! \310 !\311P)\207" [nc type 0 choice mapconcat rng-name-class-to-string 1 "|" symbol-name "*"] 5]) (defalias 'rng-compile-maybe-init #[nil "?\205 \301\302\303\"\211\207" [rng-compile-table make-hash-table :test eq] 3]) (defalias 'rng-compile-clear #[nil "\205 \301!\207" [rng-compile-table clrhash] 2]) (defalias 'rng-compile #[(pattern) "\303 \"\206 \304@\305NA\"\306\n #\210\n)\207" [pattern rng-compile-table ipattern gethash apply rng-compile puthash] 4]) (byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\316\302\317#\210\300\320\302\321#\210\300\322\302\323#\210\300\324\302\325#\210\300\326\302\327#\210\300\330\302\331#\210\300\332\302\333#\210\300\334\302\335#\210\300\336\302\337#\210\300\340\302\341#\210\300\342\302\343#\207" [put empty rng-compile rng-compile-empty text rng-compile-text not-allowed rng-compile-not-allowed element rng-compile-element attribute rng-compile-attribute choice rng-compile-choice optional rng-compile-optional group rng-compile-group interleave rng-compile-interleave ref rng-compile-ref one-or-more rng-compile-one-or-more zero-or-more rng-compile-zero-or-more mixed rng-compile-mixed data rng-compile-data data-except rng-compile-data-except value rng-compile-value list rng-compile-list] 4) (defalias 'rng-compile-not-allowed #[nil "\207" [rng-not-allowed-ipattern] 1]) (defalias 'rng-compile-empty #[nil "\207" [rng-empty-ipattern] 1]) (defalias 'rng-compile-text #[nil "\207" [rng-text-ipattern] 1]) (defalias 'rng-compile-element #[(name-class pattern) "\306T\211\307 !\n\310 \311 \f \312\310\211\211\211\211\211\211& -\207" [rng-last-ipattern-index name-class pattern nullable child index element rng-compile-name-class nil vector unknown type] 14]) (defalias 'rng-element-get-child #[(element) "\211\304H)\305\n!\203 \n\202 \306\n!\211\304 I*)\207" [element ipattern tem value 3 vectorp rng-compile] 4]) (defalias 'rng-compile-attribute #[(name-class pattern) "\302\303!\304 !\"\207" [name-class pattern rng-intern-attribute rng-compile-name-class rng-compile] 4]) (defalias 'rng-compile-ref #[(pattern name) " >\203 \303\304\n\"\210 B\305\216\306!)\207" [pattern rng-being-compiled name rng-compile-error "Reference loop on symbol %s" ((byte-code "A\301\207" [rng-being-compiled nil] 1)) rng-compile] 3]) (defalias 'rng-compile-one-or-more #[(pattern) "\301\302!!\207" [pattern rng-intern-one-or-more rng-compile] 3]) (defalias 'rng-compile-zero-or-more #[(pattern) "\301\302\303!!!\207" [pattern rng-intern-optional rng-intern-one-or-more rng-compile] 4]) (defalias 'rng-compile-optional #[(pattern) "\301\302!!\207" [pattern rng-intern-optional rng-compile] 3]) (defalias 'rng-compile-mixed #[(pattern) "\302\303 !CB!\207" [rng-text-ipattern pattern rng-intern-interleave rng-compile] 4]) (defalias 'rng-compile-list #[(pattern) "\301\302!!\207" [pattern rng-intern-list rng-compile] 3]) (defalias 'rng-compile-choice #[(&rest patterns) "\301\302\303\"!\207" [patterns rng-intern-choice mapcar rng-compile] 4]) (defalias 'rng-compile-group #[(&rest patterns) "\301\302\303\"!\207" [patterns rng-intern-group mapcar rng-compile] 4]) (defalias 'rng-compile-interleave #[(&rest patterns) "\301\302\303\"!\207" [patterns rng-intern-interleave mapcar rng-compile] 4]) (defalias 'rng-compile-dt #[(name params) "\304 @\211\305N\206 \304\306\n\") A \")\207" [rng-dt-error-reporter name uri params rng-compile-error rng-dt-compile "Unknown datatype library %s"] 4]) (defalias 'rng-compile-data #[(name params) "\303 \"\304\nA\n@\")\207" [name params dt rng-compile-dt rng-intern-data] 3]) (defalias 'rng-compile-data-except #[(name params pattern) "\303\304 \"A\305\n!\"\207" [name params pattern rng-intern-data-except rng-compile-dt rng-compile] 4]) (defalias 'rng-compile-value #[(name str context) "\306\307\"A\310\nD \f \311 @\f AB\"*\211 \203# \312 \"\202( \313\314\f#+\207" [name dt context rng-dt-namespace-context-getter str obj rng-compile-dt nil identity apply rng-intern-value rng-compile-error "Value %s is not a valid instance of the datatype %s"] 5]) (defalias 'rng-compile-name-class #[(nc) "@\211\302=\203 A@\202b \303=\203 \304\202b \305=\203* \306\305\307A@!\"\202b \310=\2039 \306\310A@\"\202b \311=\203M \306\311A@\307\3128!#\202b \313=\203^ \306\313\314\307A\"\"\202b \315\316 \")\207" [nc type name any-name [any-name] any-name-except vector rng-compile-name-class ns-name ns-name-except 2 choice mapcar error "Bad name-class type %s"] 7]) (defalias 'rng-map-element-attribute #[(function pattern accum &rest args) "\306\307\310\"\311\211\211\f@\211\312>\203' \313 \fBB\"\314\f8\202e \n\315=\203F \fA@\316\f \"\203= \311\202e \317\f\320 #\210\202e \n\321>\203V \fA B\311\202e \n\322>\203c \fA@\202e \311\f\204 \203v @A\202 \203\211 @ A@A\202 ,\207" [patterns todo type searched pattern function make-hash-table :test eq nil (element attribute) apply 2 ref gethash puthash t (choice group interleave) (one-or-more zero-or-more optional mixed) accum args] 6]) (defalias 'rng-find-element-content-pattern #[(pattern accum name) "@\303=\203 \304 A@\"\203 \305\3068!\nB\207\n\207" [pattern name accum element rng-search-name rng-compile 2] 3]) (defalias 'rng-search-name #[(name nc) "@\211\303=\203 \211A@) \232\202A \306=\203@ A\307 \203; \f\204; \310 @\"\2034 \311\202 A\211\204# \f*\202A \307)\207" [nc type x name found choices choice nil rng-search-name t] 4]) (defalias 'rng-find-name-class-uris #[(nc accum) "@\211\304=\203 \305A@@\n\"\202B \306>\203\" \305A@\n\"\202B \307=\203A A\211\203< \310 @\n\" A\211\204/ )\n\202B \n)\207" [nc type accum choices name rng-accum-namespace-uri (ns-name ns-name-except) choice rng-find-name-class-uris] 4]) (defalias 'rng-accum-namespace-uri #[(ns accum) "\203 >\204 B\207 \207" [ns accum] 2]) (defalias 'rng-ipattern-text-typed-p #[(ipattern) "\211\303H)\211\304=\203 \305!\211\303\nI*\202 )\207" [ipattern memo value 5 unknown rng-ipattern-compute-text-typed-p] 4]) (defalias 'rng-ipattern-compute-text-typed-p #[(ipattern) "\211\305H)\211\306=\2036 \211\307H)\310 \2031 \n\2041 \311 @!\203* \312\202 A\211\204 \n*\202\207 \313=\203o \211\307H)\310\211 \211\203j \n\204j @\311\f!\203Z \312\f\211\314H)\205e A\211\204K \n+\202\207 \315=\203\200 \311\211\307H)!\202\207 \316>\205\207 \312)\207" [ipattern type ret cur member 0 choice 3 nil rng-ipattern-text-typed-p t group 4 after (value list data data-except)] 4]) (defalias 'rng-start-tag-open-deriv #[(ipattern nm) " \211\306H)\307 \n\"\211 \203 \fA\202) \n\205) \n@ \310 !\205( \311 \")+\2065 \312 \313 \"#\207" [nm ipattern mm key found head 6 assoc hash-table-p gethash rng-ipattern-memo-start-tag-open-deriv rng-compute-start-tag-open-deriv] 7]) (defalias 'rng-ipattern-memo-start-tag-open-deriv #[(ipattern nm deriv) " >\204 \305\n \211\306H)# \211\306\fI\210* \207" [ipattern rng-const-ipatterns nm deriv value rng-memo-map-add 6] 7]) (defalias 'rng-compute-start-tag-open-deriv #[(ipattern nm) "\211\306H)\211\307=\203 \310\311\312\313\314\315\nDEE\"\202\267 \316=\203K \211\317H)\n\211:\2036 \n \232\202: \320 \n\"*\203G \321\322!\f\"\202\267 \202\267 \323=\203a \324\311\325\313\314\315\nDEE\326#\202\267 \327=\203w \330\311\331\313\314\315\nDEE\332#\202\267 \333=\203\226 \334\311\335\336\337\314\340!EDE\313\211\341H)\n\"\"\202\267 \342=\203\266 \334\311\343\321\314\211\317H)EE\313\211\341H)\n\"\"\202\267 )\207" [ipattern type nm nc rng-empty-ipattern rng-not-allowed-ipattern 0 choice rng-transform-choice lambda (p) rng-start-tag-open-deriv p quote element 2 rng-name-class-contains1 rng-intern-after rng-element-get-child group rng-transform-group-nullable (p) rng-cons-group-after interleave rng-transform-interleave-single (p) rng-subst-interleave-after one-or-more rng-apply-after (p) rng-intern-group list rng-intern-optional 3 after (p)] 9]) (defalias 'rng-start-attribute-deriv #[(ipattern nm) " \211\306H)\307 \n\"\211 \203 \fA\202) \n\205) \n@ \310 !\205( \311 \")+\2065 \312 \313 \"#\207" [nm ipattern mm key found head 7 assoc hash-table-p gethash rng-ipattern-memo-start-attribute-deriv rng-compute-start-attribute-deriv] 7]) (defalias 'rng-ipattern-memo-start-attribute-deriv #[(ipattern nm deriv) " >\204 \305\n \211\306H)# \211\306\fI\210* \207" [ipattern rng-const-ipatterns nm deriv value rng-memo-map-add 7] 7]) (defalias 'rng-compute-start-attribute-deriv #[(ipattern nm) "\211\306H)\211\307=\203 \310\311\312\313\314\315\nDEE\"\202\272 \316=\203N \211\317H)\n\211:\2036 \n \232\202: \320 \n\"*\203J \321\211\322H)\f\"\202\272 \202\272 \323=\203d \324\311\325\313\314\315\nDEE\326#\202\272 \327=\203z \324\311\330\313\314\315\nDEE\331#\202\272 \332=\203\231 \333\311\334\335\336\314\337!EDE\313\211\322H)\n\"\"\202\272 \340=\203\271 \333\311\341\321\314\211\317H)EE\313\211\322H)\n\"\"\202\272 )\207" [ipattern type nm nc rng-empty-ipattern rng-not-allowed-ipattern 0 choice rng-transform-choice lambda (p) rng-start-attribute-deriv p quote attribute 2 rng-name-class-contains1 rng-intern-after 3 group rng-transform-interleave-single (p) rng-subst-group-after interleave (p) rng-subst-interleave-after one-or-more rng-apply-after (p) rng-intern-group list rng-intern-optional after (p)] 9]) (defalias 'rng-cons-group-after #[(x y) "\302\303\304\305\306\307\310DEDE \"\207" [y x rng-apply-after lambda (p) rng-intern-group cons p quote] 8]) (defalias 'rng-subst-group-after #[(new old list) "\303\304\305\306\307\310\311 DFDE\n\"\207" [old list new rng-apply-after lambda (p) rng-intern-group rng-substq p quote] 9]) (defalias 'rng-subst-interleave-after #[(new old list) "\303\304\305\306\307\310\311 DFDE\n\"\207" [old list new rng-apply-after lambda (p) rng-intern-interleave rng-substq p quote] 9]) (defalias 'rng-apply-after #[(f ipattern) "\211\304H)\211\305=\203 \306\211\307H)\n\211\310H)!\"\2025 \311=\2034 \312\313\314\315\n\316BBE\"\2025 )\207" [ipattern type f rng-not-allowed-ipattern 0 after rng-intern-after 3 2 choice rng-transform-choice lambda (x) rng-apply-after (x)] 7]) (defalias 'rng-start-tag-close-deriv #[(ipattern) "\211\302H)\206 \303!\211\302 I*\207" [ipattern value 8 rng-compute-start-tag-close-deriv] 4]) (byte-code "\301B\302\303!\207" [current-load-list rng-transform-map (lambda (#1=#:defconst-tmp-var) (defconst rng-transform-map #1#)) ((choice . rng-transform-choice) (group . rng-transform-group) (interleave . rng-transform-interleave) (one-or-more . rng-transform-one-or-more) (after . rng-transform-after-child))] 2) (defalias 'rng-compute-start-tag-close-deriv #[(ipattern) "\211\305H)\211\306=\203 \n\202# \236\211 \203! \fA\307\"\202\" ))\207" [ipattern type rng-not-allowed-ipattern rng-transform-map transform 0 attribute rng-start-tag-close-deriv] 4]) (defalias 'rng-ignore-attributes-deriv #[(ipattern) "\211\305H)\211\306=\203 \n\202# \236\211 \203! \fA\307\"\202\" ))\207" [ipattern type rng-empty-ipattern rng-transform-map transform 0 attribute rng-ignore-attributes-deriv] 4]) (defalias 'rng-text-only-deriv #[(ipattern) "\211\302H)\206 \303!\211\302 I*\207" [ipattern value 9 rng-compute-text-only-deriv] 4]) (defalias 'rng-compute-text-only-deriv #[(ipattern) "\211\304H)\211\305=\203 \n\202# \306\236\211\203! A\307\"\202\" ))\207" [ipattern type rng-not-allowed-ipattern transform 0 element ((choice . rng-transform-choice) (group . rng-transform-group) (interleave . rng-transform-interleave) (one-or-more . rng-transform-one-or-more) (after . rng-transform-after-child)) rng-text-only-deriv] 4]) (defalias 'rng-mixed-text-deriv #[(ipattern) "\211\302H)\206 \303!\211\302 I*\207" [ipattern value 10 rng-compute-mixed-text-deriv] 4]) (defalias 'rng-compute-mixed-text-deriv #[(ipattern) "\211\303H)\211\304=\203 \202r \305=\203 \306\307\"\202r \310=\203+ \311\307\"\202r \312=\203B \313\307\211\314H)!\315!D!\202r \316=\203P \317\307\320#\202r \321=\203^ \322\307\323#\202r \324=\203q \211\325H)\204q \202r \n)\207" [ipattern type rng-not-allowed-ipattern 0 text after rng-transform-after-child rng-mixed-text-deriv choice rng-transform-choice one-or-more rng-intern-group 3 rng-intern-optional group rng-transform-group-nullable #[(x y) "\302 B!\207" [x y rng-intern-group] 3] interleave rng-transform-interleave-single #[(new old list) "\303\304 \n#!\207" [new old list rng-intern-interleave rng-substq] 5] data 5] 5]) (defalias 'rng-end-tag-deriv #[(ipattern) "\211\302H)\206 \303!\211\302 I*\207" [ipattern value 12 rng-compute-end-tag-deriv] 4]) (defalias 'rng-compute-end-tag-deriv #[(ipattern) "\211\303H)\211\304=\203 \305\306\307\211\310H)\"!\202= \311=\203< \211\310H)\211\312H)\2038 \211\313H)\202= \n\202= \n)\207" [ipattern type rng-not-allowed-ipattern 0 choice rng-intern-choice mapcar rng-end-tag-deriv 3 after 4 2] 6]) (defalias 'rng-data-deriv #[(ipattern value) " \211\306H)\307 \n\"\211 \203 \fA\202) \n\205) \n@ \310 !\205( \311 \")+\206\262 \312 B \211\306H)\307 \n\"\211 \203G \fA\202Y \n\205Y \n@ \310 !\205X \311 \")+\203\223 \313@A\"B \211\306H)\307 \n\"\211 \203} \fA\202\217 \n\205\217 \n@ \310 !\205\216 \311 \")+\206\262 \314\315! \316BB \317 \" \320 \321H$+\207" [value ipattern mm key found head 11 assoc hash-table-p gethash rng-namespace-context-get-no-trace apply vector nil rng-namespace-context-tracer rng-compute-data-deriv rng-ipattern-memo-data-deriv 0 rng-dt-namespace-context-getter used-context deriv] 6]) (defalias 'rng-namespace-context-tracer #[(used getter &rest args) "\304 \" \305\nI\210\n)\207" [getter args context used apply 0] 3]) (defalias 'rng-namespace-context-get-no-trace #[nil "\211\203 @\303=\203 \211AA)\211\204 \304 @ A\")\207" [rng-dt-namespace-context-getter tem x rng-namespace-context-tracer apply] 4]) #@56 Don't memoize data-derivs for values longer than this. (defconst rng-memo-data-deriv-max-length 80 (#$ . 33133)) (defalias 'rng-ipattern-memo-data-deriv #[(ipattern value context deriv) " >\204+ \nG V\204+ \306\f\203 \n\fB\202 \n \211\307H)\310$\211\307\nI\210* \207" [ipattern rng-const-ipatterns value rng-memo-data-deriv-max-length context deriv rng-memo-map-add 11 t] 7]) (defalias 'rng-compute-data-deriv #[(ipattern value) "\211\306H)\211\307=\203 \202X \310=\203$ \311\312\313\314\315\nEE\"\202X \316=\2038 \317\312\320\314\315\nEE\321#\202X \322=\203P \323\314\211\324H)\n\"\325!D!\202X \326=\203\206 \211\324H)\314 \n\"\211\327H)\204x \211\327H)\203\201 \330\n!\203\201 \211\331H)\202\202 \f)\202X \332=\203\255 \211\331H)\n \333 @ AB\"*\203\251 \202X\f\202X \334=\203\345 \211\331H)\n \333 @ AB\"*\203\341 \314\211\324H)\n\"\211\327H)\204\341 \202X\f\202X \302=\203\211\331H)\n \333 @ AB\"*\211\324H)\232\203 \202X\f\202X \335=\203W\336\n!\211\324H) !\211 \"\203C!\f=\204C\314!\"@\"!\"A\211\"\204*!\211\327H)\203R \202S\f*\202X\f)\207" [ipattern type value child rng-not-allowed-ipattern str 0 text choice rng-transform-choice lambda (p) rng-data-deriv p group rng-transform-group-nullable (p) #[(x y) "\302 B!\207" [x y rng-intern-group] 3] one-or-more rng-intern-group 3 rng-intern-optional after 4 rng-blank-p 2 data apply data-except list split-string dt rng-empty-ipattern state tokens] 7]) (defalias 'rng-transform-multi #[(f ipattern interner) "\211\305H)\306\n \"\307 \"\203 \202 \f !*\207" [ipattern members f transformed interner 3 mapcar rng-members-eq] 4]) (defalias 'rng-transform-choice #[(f ipattern) "\302 \303#\207" [f ipattern rng-transform-multi rng-intern-choice] 4]) (defalias 'rng-transform-group #[(f ipattern) "\302 \303#\207" [f ipattern rng-transform-multi rng-intern-group] 4]) (defalias 'rng-transform-interleave #[(f ipattern) "\302 \303#\207" [f ipattern rng-transform-multi rng-intern-interleave] 4]) (defalias 'rng-transform-one-or-more #[(f ipattern) "\211\304H)\n ! =\203 \202 \305 !*\207" [ipattern child f transformed 3 rng-intern-one-or-more] 3]) (defalias 'rng-transform-after-child #[(f ipattern) "\211\304H)\n ! =\203 \202 \305 \211\306H)\"*\207" [ipattern child f transformed 3 rng-intern-after 2] 5]) (defalias 'rng-transform-interleave-single #[(f subster ipattern) "\211\306H)\307\n\2035 \2045 \n@\f !\211 =\203% \nA\2021 \211\306H)#*\202 \206; *\207" [ipattern found children child f transformed 3 nil rng-not-allowed-ipattern subster] 6]) #@233 Given a group x1,...,xn,y1,...,yn where the xs are all nullable and y1 isn't, return a choice (conser f(x1) x2,...,xm,y1,...,yn) |(conser f(x2) x3,...,xm,y1,...,yn) |... |(conser f(xm) y1,...,yn) |(conser f(y1) y2,...,yn) (defalias 'rng-transform-group-nullable #[(f conser ipattern) "\303\304 \n\211\305H)#!\207" [f conser ipattern rng-intern-choice rng-transform-group-nullable-gen-choices 3] 7 (#$ . 35775)]) (defalias 'rng-transform-group-nullable-gen-choices #[(f conser members) "@A \203\" \f\n! \"\n\211 \306H)\205 \307\f #B\202& \f\n!C*\207" [members tail head conser f ipattern 4 rng-transform-group-nullable-gen-choices] 6]) (defalias 'rng-members-eq #[(list1 list2) "\203 \203 @ @=\203 A A\202 ?\205 ?\207" [list1 list2] 2]) (defalias 'rng-ipattern-after #[(ipattern) "\211\302H)\211\303=\203 \304\305\"\2021 \306=\203# \211\307H)\2021 \310=\203- \2021 \311\312 \")\207" [ipattern type 0 choice rng-transform-choice rng-ipattern-after after 2 not-allowed error "Internal error in rng-ipattern-after: unexpected type %s"] 4]) (defalias 'rng-unknown-start-tag-open-deriv #[(ipattern) "\302\303! \"\207" [rng-any-content ipattern rng-intern-after rng-compile] 3]) (defalias 'rng-ipattern-optionalize-elements #[(ipattern) "\211\304H)\211\n\236\211\203 A\305\"\202$ \306=\203# \307!\202$ *\207" [ipattern type rng-transform-map transform 0 rng-ipattern-optionalize-elements element rng-intern-optional] 4]) (defalias 'rng-ipattern-empty-before-p #[(ipattern) "\211\305H)\211\306=\203 \211\307H)\n=\202E \310=\203D \211\307H)\311\211 \203? \203? \312\f@!\2048 \313\fA\211\204+ *\202E \313)\207" [ipattern type rng-empty-ipattern ret members 0 after 3 choice t rng-ipattern-empty-before-p nil] 3]) (defalias 'rng-ipattern-possible-start-tags #[(ipattern accum) "\211\305H)\211\306=\203 \307\211\310H)\n\"\202\232 \311>\203< \211\310H)\211\2037 \307 @\n\" A\211\204* )\n\202\232 \312=\203i \211\310H)\211\203d \307 @\n\" @\211\313H)\205_ A\211\204M )\n\202\232 \314=\203\207 \315!\f=\203{ \n\202\232 \316\211\317H)\n\"\202\232 \320=\203\231 \307\211\310H)\n\"\202\232 \n)\207" [ipattern type accum members rng-not-allowed-ipattern 0 after rng-ipattern-possible-start-tags 3 (choice interleave) group 4 element rng-element-get-child rng-name-class-possible-names 2 one-or-more] 4]) (defalias 'rng-ipattern-start-tag-possible-p #[(ipattern) "\211\305H)\211\306>\203 \307\211\310H)!\202\202 \311>\203@ \211\310H)\312\211\203; \n\204; \307 @! A\211\204+ \n*\202\202 \313=\203r \211\310H)\312\211\203m \n\204m \307 @! @\211\314H)\205h A\211\204S \n*\202\202 \315=\203\201 \316!\f=?\202\202 \312)\207" [ipattern type possible members rng-not-allowed-ipattern 0 (after one-or-more) rng-ipattern-start-tag-possible-p 3 (choice interleave) nil group 4 element rng-element-get-child] 4]) (defalias 'rng-ipattern-possible-attributes #[(ipattern accum) "\211\304H)\211\305=\203 \306\211\307H)\n\"\202a \310>\203< \211\307H)\211\2037 \306 @\n\" A\211\204* )\n\202a \311=\203N \312\211\313H)\n\"\202a \314=\203` \306\211\307H)\n\"\202a \n)\207" [ipattern type accum members 0 after rng-ipattern-possible-attributes 3 (choice interleave group) attribute rng-name-class-possible-names 2 one-or-more] 4]) (defalias 'rng-ipattern-possible-values #[(ipattern accum) "\211\305H)\211\306=\203 \307\211\310H)\n\"\202Z \311=\203< \211\310H)\211\2037 \307 @\n\" A\211\204* )\n\202Z \312=\203Y \211\310H)\211 ;\203T \f\nB\202U \n)\202Z \n)\207" [ipattern type accum members value-object 0 after rng-ipattern-possible-values 3 choice value] 4]) (defalias 'rng-ipattern-required-element #[(ipattern) "\211\306H)\211\307>\203 \310\211\311H)!\202\334 \312=\203I \211\311H)\310\n@! \203D \nA\211\203D \310\n@!\232\204* \313\211\204. *\202\334 \314=\203w \211\311H)\313\310\n@!\211\204r \n@\211\315H)\203r \nA\211\204X *\202\334 \316=\203\276 \211\311H)\313\n\203\271 \310\n@!\211 \204\231 \nA\202\265 \204\245 \f\nA\202\265 \f\232\203\261 \nA\202\265 \313\211)\202\206 *\202\334 \317=\205\334 \211\320H)\211 :\205\333 \321!=?\205\333 ))\207" [ipattern type members required tem nc 0 (after one-or-more) rng-ipattern-required-element 3 choice nil group 4 interleave element 2 rng-element-get-child rng-not-allowed-ipattern] 4]) (defalias 'rng-ipattern-required-attributes #[(ipattern accum) "\211\306H)\211\307=\203 \310\211\311H)\n\"\202\304 \312>\203< \211\311H)\211\2037 \310 @\n\" A\211\204* )\n\202\304 \313=\203\222 \211\311H)\314\211\211 \310 @\314\"\211\203\211 A\211\203\211 \310 @\314\"\314 \203\202 @\235\203{ @\fB A\211\204n \f\211\204[ \315\n\",\202\304 \316=\203\261 \211\317H)\211 :\203\254 \nB\202\255 \n)\202\304 \320=\203\303 \310\211\311H)\n\"\202\304 \n)\207" [ipattern type accum members new-in-all in-this 0 after rng-ipattern-required-attributes 3 (interleave group) choice nil append attribute 2 one-or-more in-all nc] 5]) (defalias 'rng-compile-error #[(&rest args) "\301\302\303\304\"C\"\207" [args signal rng-compile-error apply format] 5]) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put rng-compile-error error-conditions (error rng-error rng-compile-error) error-message "Incorrect schema"] 4) (defalias 'rng-match-state #[nil "\207" [rng-match-state] 1]) (put 'rng-match-state 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-set-match-state #[(state) "\211\207" [state rng-match-state] 2]) (put 'rng-set-match-state 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-match-state-equal #[(state) " =\207" [state rng-match-state] 2]) (put 'rng-match-state-equal 'byte-optimizer 'byte-compile-inline-expand) (defalias 'rng-schema-changed #[nil "\300 \210\301 \207" [rng-ipattern-clear rng-compile-clear] 1]) (defalias 'rng-match-init-buffer #[nil "\300\301!\210\300\302!\210\300\303!\207" [make-local-variable rng-compile-table rng-ipattern-table rng-last-ipattern-index] 2]) (defalias 'rng-match-start-document #[nil "\302 \210\303 \210\304\305\306\307\310$\210\311!\211\207" [rng-current-schema rng-match-state rng-ipattern-maybe-init rng-compile-maybe-init add-hook rng-schema-change-hook rng-schema-changed nil t rng-compile] 5]) (defalias 'rng-match-start-tag-open #[(name) "\304 \"\211 =\205 =??\205 \n\305)\207" [rng-match-state name new-state rng-not-allowed-ipattern rng-start-tag-open-deriv t] 4]) (defalias 'rng-match-attribute-name #[(name) "\304 \"\211 =\205 =??\205 \n\305)\207" [rng-match-state name new-state rng-not-allowed-ipattern rng-start-attribute-deriv t] 4]) (defalias 'rng-match-attribute-value #[(value) "\304 \"\211 =\205 =??\205 \n\305)\207" [rng-match-state value new-state rng-not-allowed-ipattern rng-data-deriv t] 4]) (defalias 'rng-match-element-value #[(value) "\304!\211\n=\205 \n=??\205 \305)\2050 \306 \"\211\n=\205( \n=??\205/ \305)\207" [rng-match-state new-state rng-not-allowed-ipattern value rng-text-only-deriv t rng-data-deriv] 4]) (defalias 'rng-match-start-tag-close #[nil "\303!\211\n=\205 \n=??\205 \304)\207" [rng-match-state new-state rng-not-allowed-ipattern rng-start-tag-close-deriv t] 3]) (defalias 'rng-match-mixed-text #[nil "\303!\211\n=\205 \n=??\205 \304)\207" [rng-match-state new-state rng-not-allowed-ipattern rng-mixed-text-deriv t] 3]) (defalias 'rng-match-end-tag #[nil "\303!\211\n=\205 \n=??\205 \304)\207" [rng-match-state new-state rng-not-allowed-ipattern rng-end-tag-deriv t] 3]) (defalias 'rng-match-after #[nil "\303!\211\n=\205 \n=??\205 \304)\207" [rng-match-state new-state rng-not-allowed-ipattern rng-ipattern-after t] 3]) (defalias 'rng-match-out-of-context-start-tag-open #[(name) "\306\307\310 $\211\203 \311\n!\202 \312\f \"\211 \f =\205# =??\205+ \f\313+\207" [rng-current-schema name found rng-not-allowed-ipattern content-pattern rng-match-state rng-map-element-attribute rng-find-element-content-pattern nil rng-intern-choice rng-intern-after t new-state] 6]) #@144 Return a list of all the namespace URIs used in the current schema. The absent URI is not included, so the result is always a list of symbols. (defalias 'rng-match-possible-namespace-uris #[nil "\301\302\303#\207" [rng-current-schema rng-map-element-attribute #[(pattern accum) "\302A@ \"\207" [pattern accum rng-find-name-class-uris] 3] nil] 4 (#$ . 43881)]) (defalias 'rng-match-unknown-start-tag-open #[nil "\303!\211\n=\205 \n=??\205 \304)\207" [rng-match-state new-state rng-not-allowed-ipattern rng-unknown-start-tag-open-deriv t] 3]) (defalias 'rng-match-optionalize-elements #[nil "\303!\211\n=\205 \n=??\205 \304)\207" [rng-match-state new-state rng-not-allowed-ipattern rng-ipattern-optionalize-elements t] 3]) (defalias 'rng-match-ignore-attributes #[nil "\303!\211\n=\205 \n=??\205 \304)\207" [rng-match-state new-state rng-not-allowed-ipattern rng-ignore-attributes-deriv t] 3]) (defalias 'rng-match-text-typed-p #[nil "\301!\207" [rng-match-state rng-ipattern-text-typed-p] 2]) (defalias 'rng-match-empty-content #[nil "\300 \203 \301\302!\207\303 \207" [rng-match-text-typed-p rng-match-element-value "" rng-match-end-tag] 2]) #@176 Return non-nil if what can be matched before an end-tag is empty. In other words, return non-nil if the pattern for what can be matched for an end-tag is equivalent to empty. (defalias 'rng-match-empty-before-p #[nil "\301!\207" [rng-match-state rng-ipattern-empty-before-p] 2 (#$ . 45055)]) (defalias 'rng-match-infer-start-tag-namespace #[(local-name) "\305\306\"\306\211\211\203H @\211A\f\232\203A \n@9\203A \204+ \n@ A\211\202\n \n@\232\2039 A\211\202\n \306\211\211\202\n A\211\204 +\207" [rng-match-state ns nc ncs local-name rng-ipattern-possible-start-tags nil] 4]) (defalias 'rng-match-nullable-p #[nil "\211\302H)\207" [rng-match-state ipattern 4] 3]) #@274 Return a list of possible names that would be valid for start-tags. Each possible name is returned as a (NAMESPACE . LOCAL-NAME) pair, where NAMESPACE is a symbol or nil (meaning the absent namespace) and LOCAL-NAME is a string. The returned list may contain duplicates. (defalias 'rng-match-possible-start-tag-names #[nil "\301\302\"\207" [rng-match-state rng-ipattern-possible-start-tags nil] 3 (#$ . 45745)]) #@44 Return non-nil if a start-tag is possible. (defalias 'rng-match-start-tag-possible-p #[nil "\301!\207" [rng-match-state rng-ipattern-start-tag-possible-p] 2 (#$ . 46166)]) #@146 Return a list of possible names that would be valid for attributes. See the function `rng-match-possible-start-tag-names' for more information. (defalias 'rng-match-possible-attribute-names #[nil "\301\302\"\207" [rng-match-state rng-ipattern-possible-attributes nil] 3 (#$ . 46346)]) #@136 Return a list of strings that would be valid as content. The list may contain duplicates. Typically, the list will not be exhaustive. (defalias 'rng-match-possible-value-strings #[nil "\301\302\"\207" [rng-match-state rng-ipattern-possible-values nil] 3 (#$ . 46640)]) #@65 Return the name of an element which must occur, or nil if none. (defalias 'rng-match-required-element-name #[nil "\301!\207" [rng-match-state rng-ipattern-required-element] 2 (#$ . 46917)]) #@60 Return a list of names of attributes which must all occur. (defalias 'rng-match-required-attribute-names #[nil "\301\302\"\207" [rng-match-state rng-ipattern-required-attributes nil] 3 (#$ . 47114)]) (defalias 'rng-match-save '(macro . #[(&rest body) "\302\303!\304\305BC\306\307 B\310\311EEE)\207" [state body make-symbol "state" let (rng-match-state) unwind-protect progn setq rng-match-state] 7])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put rng-match-save lisp-indent-function 0 edebug-form-spec t] 4) (defalias 'rng-match-with-schema '(macro . #[(schema &rest body) "\302\303D\304B\305\306\307 BBBBB\207" [schema body let rng-current-schema (rng-match-state rng-compile-table rng-ipattern-table rng-last-ipattern-index) (rng-ipattern-maybe-init) (rng-compile-maybe-init) (setq rng-match-state (rng-compile rng-current-schema))] 6])) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\306\307!\207" [put rng-match-with-schema lisp-indent-function 1 edebug-form-spec t provide rng-match] 4)
Close
