Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/nxml/rng-parse.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\262
A\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\300
B\207" [nil] 3 (#$ . 2504)])
(provide 'rng-parse)