WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/nxml
Viewing File: /usr/share/emacs/24.3/lisp/nxml/rng-match.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:51:34 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/nxml/rng-match.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require rng-pttrn rng-util rng-dt] 2)
(defvar rng-not-allowed-ipattern nil)
(defvar rng-empty-ipattern nil)
(defvar rng-text-ipattern nil)
(defvar rng-compile-table nil)
#@104 Contains a list of ref patterns currently being compiled.
Used to detect invalid recursive references.
(defvar rng-being-compiled nil (#$ . 782))
(defvar rng-ipattern-table nil)
(defvar rng-last-ipattern-index nil)
#@59 An ipattern representing the current state of validation.
(defvar rng-match-state nil (#$ . 1003))
(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])
(put 'rng-ipattern-set-memo-end-tag-deriv 'byte-optimizer 'byte-compile-inline-expand)
(defconst rng-memo-map-alist-max 10)
#@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 (#$ . 7312)])
(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#\210A\211\2047)\317B\202[T	\nBABB)\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 (#$ . 7609)])
(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&
-\310\207" [rng-not-allowed-ipattern nullable child name-class index type not-allowed -3 nil vector unknown empty -2 t text -1 rng-empty-ipattern rng-text-ipattern] 14)
(defconst rng-const-ipatterns (list rng-not-allowed-ipattern rng-empty-ipattern rng-text-ipattern))
(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) "\305D\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!\211A\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 (#$ . 12005)])
#@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 (#$ . 12385)])
#@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 (#$ . 12787)])
(defalias 'rng-intern-interleave #[(ipatterns) "\304!\206*\305!\211A\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 (#$ . 13662)])
#@85 Return a choice ipattern for the list of choices in IPATTERNS.
May alter IPATTERNS.
(defalias 'rng-intern-choice #[(ipatterns) "\303!\206\304!\211A\303\n!\206\305\n	@\"*\207" [ipatterns tem normalized rng-intern-choice-shortcut rng-normalize-choice-list rng-intern-choice1] 4 (#$ . 14268)])
(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\303A\211\204 \n)\207	\207" [ipatterns rng-not-allowed-ipattern ret nil] 3 (#$ . 15025)])
#@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\211B	\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 (#$ . 15369)])
(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 (#$ . 17027)])
(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@\305NA\"\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) "\306T\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\307A@!\"\202b	\310=\2039\306\310A@\"\202b	\311=\203M\306\311A@\307\3128!#\202b	\313=\203^\306\313\314\307A\"\"\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
\fBB\"\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\3068!\nB\207\n\207" [pattern name accum element rng-search-name rng-compile 2] 3])
(defalias 'rng-search-name #[(name nc) "@\211\303=\203\211A@)\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\305A@@\n\"\202B	\306>\203\"\305A@\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\310DEDE	\"\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])
(defconst rng-transform-map '((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)))
(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!\316BB\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	\211AA)\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 (#$ . 32514))
(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 (#$ . 35156)])
(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) "\302A@	\"\207" [pattern accum rng-find-name-class-uris] 3] nil] 4 (#$ . 43262)])
(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 (#$ . 44436)])
(defalias 'rng-match-infer-start-tag-namespace #[(local-name) "\305\306\"\306\211\211\203H@\211A\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 (#$ . 45126)])
#@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 (#$ . 45547)])
#@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 (#$ . 45727)])
#@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 (#$ . 46021)])
#@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 (#$ . 46298)])
#@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 (#$ . 46495)])
(defalias 'rng-match-save '(macro . #[(&rest body) "\302\303!\304\305BC\306\307	B\310\311EEE)\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\303D\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)
F1l3 Manager
