;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require nxml-parse rng-match rng-dt] 2) (defvar rng-parse-prev-was-start-tag nil) #@410 Parse and validate the XML document in FILE and return it as a list. The returned list has the same form as that returned by `nxml-parse-file'. SCHEMA is a list representing the schema to use for validation, such as returned by the function `rng-c-load-schema'. If the XML document is invalid with respect to schema, an error will be signaled in the same way as when it is not well-formed. (fn SCHEMA FILE) (defalias 'rng-parse-validate-file #[514 "r\306!q\210\307\216\211\310\311\312\312\211\211\211\313 \210\314 \210\315!\316 . \207" [rng-parse-prev-was-start-tag rng-dt-namespace-context-getter nxml-validate-function nxml-parse-file-name rng-last-ipattern-index rng-ipattern-table nxml-parse-find-file #[0 "\300\301!\207" [kill-buffer nil] 2] rng-parse-do-validate (nxml-ns-get-context) nil rng-ipattern-maybe-init rng-compile-maybe-init rng-compile nxml-parse-instance rng-compile-table rng-match-state rng-current-schema] 7 (#$ . 545)]) #@23 (fn TEXT START-TAG) (defalias 'rng-parse-do-validate #[514 "\205\302\211\262\203)\211\204)\303 \203)\304\206\305!?\205\261\306\205'\307B\207\203<\310!\204<\311 \204<\312\307B\207\211\204J\313 ?\205\261\314\315B\207\316\317@!!\204W\320\315B\207\211A@\321\315\211\203\242\211\204\242@\262@:\203w@@ =\204\227\322\317@!!\204\210\323\324BB\202\225\325A!?\205\225\326\327BB\262A\262T\262\202]\211\206\257\330 ?\205\257\331\332B\266\204\207" [rng-parse-prev-was-start-tag nxml-xmlns-namespace-uri t rng-match-text-typed-p rng-match-element-value "" "Invalid data" text rng-blank-p rng-match-mixed-text "Text not allowed" rng-match-end-tag "Missing elements" nil rng-match-start-tag-open rng-parse-to-match-name "Element not allowed" 0 rng-match-attribute-name "Attribute not allowed" attribute-name rng-match-attribute-value "Invalid attribute value" attribute-value rng-match-start-tag-close "Missing attributes" tag-close] 9 (#$ . 1514)]) #@13 (fn NAME) (defalias 'rng-parse-to-match-name #[257 "\211:\203\207\300B\207" [nil] 3 (#$ . 2504)]) (provide 'rng-parse)