;ELC ;;; Compiled by jjc@pineapple.bkk.thaiopensource.com on Mon Oct 4 11:58:42 2004 ;;; from file /home/jjc/elisp/rng-parse.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-parse.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\302\305!\210\301B\306\301!\204\307\307\207" [current-load-list rng-parse-prev-was-start-tag require nxml-parse rng-match rng-dt boundp nil] 2) #@392 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. (defalias 'rng-parse-validate-file #[(schema file) "\212\306!q\210\307\216\310\311\312 \312\211\211\211\313 \210\314 \210\315!\316 . \207" [file rng-parse-prev-was-start-tag rng-dt-namespace-context-getter nxml-validate-function nxml-parse-file-name schema nxml-parse-find-file ((kill-buffer nil)) rng-parse-do-validate (nxml-ns-get-context) nil rng-ipattern-maybe-init rng-compile-maybe-init rng-compile nxml-parse-instance rng-last-ipattern-index rng-ipattern-table rng-compile-table rng-match-state rng-current-schema] 5 (#$ . 805)]) (defalias 'rng-parse-do-validate #[(text start-tag) "\n\205\306 )\203)\n\204)\307 \203)\310 \206\311!?\205\306\312 \205'\303B\207 \203<\313 !\204<\314 \204<\315\303B\207\n\204J\316 ?\205\306\317\320B\207\321\322\n@!!\204W\323\320B\207\n\211A@)\324\320\211  \203\270 \204\270 @\211@:\203\210\211@@)!=\204\253\325\322@!!\204\233\326\327BB\202\252\330A!?\205\252\331\332BB A T\202g \206\305\333 ?\205\305\334\335B,\207" [rng-parse-prev-was-start-tag tem start-tag text x err t rng-match-text-typed-p rng-match-element-value "" "Invalid data" 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 att i atts nxml-xmlns-namespace-uri] 5]) (defalias 'rng-parse-to-match-name #[(name) ":\203\207\301B\207" [name nil] 2]) (provide 'rng-parse)