;ELC ;;; Compiled by jjc@pineapple.bkk.thaiopensource.com on Mon Oct 4 11:58:42 2004 ;;; from file /home/jjc/elisp/rng-match.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.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 "\305\306!\210\305\307!\210\305\310!\210\301B\311\301!\204\312\302B\311\302!\204$\312\303B\311\303!\2040\312\304B\311\304!\204<\312\312\207" [current-load-list rng-not-allowed-ipattern rng-empty-ipattern rng-text-ipattern rng-compile-table require rng-pttrn rng-util rng-dt boundp nil] 2) #@104 Contains a list of ref patterns currently being compiled. Used to detect illegal recursive references. (defvar rng-being-compiled nil (#$ . 935)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\304\207" [current-load-list rng-ipattern-table rng-last-ipattern-index boundp nil] 2) #@59 An ipattern representing the current state of validation. (defvar rng-match-state nil (#$ . 1241)) (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 "\302\303\304\305#\210\301B\306\302\207" [current-load-list rng-memo-map-alist-max put rng-ipattern-set-memo-end-tag-deriv byte-optimizer byte-compile-inline-expand 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 (#$ . 7612)]) (put 'rng-memo-map-get 'byte-optimizer 'byte-compile-inline-expand) #@784 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\203T\311\312\313\314 \315\f\211\\\316\\&A\211\203L@\310 @ A#\210A\211\2049)\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 0 nil ht] 9 (#$ . 7909)]) (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& -\320BE\310\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 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]) #@63 Return a 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 (#$ . 12261)]) #@109 Try to shortcut interning a group list. If successful, return the interned pattern. Otherwise return nil. (defalias 'rng-intern-group-shortcut #[(ipatterns) "\203@ =\203A\211\204\203S@\211 =\203# \202QA\203P\n\203P@\211 =\203>\f\305\202L\f =\203JA\202L\305)\202&\n)\207 \207" [ipatterns rng-empty-ipattern ret rng-not-allowed-ipattern tem nil] 3 (#$ . 12640)]) #@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 (#$ . 13043)]) (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 (#$ . 13918)]) #@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 (#$ . 14524)]) (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]) #@110 Try to shortcut interning a choice list. If successful, return the interned pattern. Otherwise return nil. (defalias 'rng-intern-choice-shortcut #[(ipatterns) "\203@ =\203A\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 (#$ . 15281)]) #@225 Normalize a list of choices, expanding nested choices, removing not-allowed members, sorting by index and removing 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\203U\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 (#$ . 15626)]) (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]) #@363 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. nil for NAMESPACE 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 (#$ . 17290)]) (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) ":\203A\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=\203A@\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=\203AA\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\301\207" [current-load-list 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))] 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 (#$ . 32820)) (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 (#$ . 35462)]) (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@ @=\203A 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\313)\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]) #@142 Return a list of all the namespace URIs used in the current schema. The absent URI is not included, so the result is always 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 (#$ . 43568)]) (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 (#$ . 44740)]) (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\306\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]) #@273 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 (#$ . 45430)]) #@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 (#$ . 45850)]) #@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 (#$ . 46030)]) #@135 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 (#$ . 46324)]) #@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 (#$ . 46600)]) #@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 (#$ . 46797)]) (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)