Current File : //usr/local/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\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)
Mini Shell