| Current Path : /usr/share/emacs/24.3/lisp/nxml/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/nxml/rng-loc.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:32 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/nxml/rng-loc.el
;;; in Emacs version 24.3.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!\210\300\304!\210\300\305!\210\300\306!\207" [require nxml-util nxml-parse rng-parse rng-uri rng-util xmltok] 2)
#@88 Filename of schema being used for current buffer.
It is nil if using a vacuous schema.
(defvar rng-current-schema-file-name nil (#$ . 715))
(make-variable-buffer-local 'rng-current-schema-file-name)
#@57 Default value for variable `rng-schema-locating-files'.
(defvar rng-schema-locating-files-default (byte-code "\301\302\303\"D\207" [data-directory "schemas.xml" expand-file-name "schema/schemas.xml"] 4) (#$ . 920))
#@51 File containing schema for schema locating files.
(defvar rng-schema-locating-file-schema-file (expand-file-name "schema/locate.rnc" data-directory) (#$ . 1142))
#@60 Schema for schema locating files or nil if not yet loaded.
(defvar rng-schema-locating-file-schema nil (#$ . 1310))
#@32 List of schema locating files.
(custom-declare-variable 'rng-schema-locating-files 'rng-schema-locating-files-default '(#$ . 1432) :type '(repeat file) :group 'relax-ng)
#@56 Alist of schema extensions vs schema loader functions.
(defvar rng-schema-loader-alist '(("rnc" . rng-c-load-schema)) (#$ . 1608))
(defvar rng-cached-document-element nil)
(defvar rng-document-type-history nil)
(defalias 'rng-set-document-type #[(type-id) "\300\301\302\217\207" [err (byte-code "\302\230?\205 \303!\211\204 \304\305\"\210\306 !\210)\307\310\"\210\311 \207" [type-id schema-file "" rng-locate-schema-file error "Could not locate schema for type id `%s'" rng-set-schema-file-1 rng-save-schema-location-1 t rng-what-schema] 4) ((nxml-file-parse-error (nxml-display-file-parse-error err)))] 3 nil (list (rng-read-type-id))])
(defalias 'rng-read-type-id #[nil "\300\301\302\217\207" [err (byte-code "\302 \303\304\305\306\307 \"\303\310\303\311&*\207" [completion-ignore-case type-ids rng-possible-type-ids nil completing-read "Document type id: " mapcar #[(x) "\301B\207" [x nil] 2] t rng-document-type-history] 7) ((nxml-file-parse-error (nxml-display-file-parse-error err)))] 3])
#@476 Set the schema for the current buffer to the schema in FILENAME.
FILENAME must be the name of a file containing a schema.
The extension of FILENAME is used to determine what kind of schema it
is. The variable `rng-schema-loader-alist' maps from schema
extensions to schema loader functions. The function
`rng-c-load-schema' is the loader for RELAX NG compact syntax. The
association is between the buffer and the schema: the association is
lost when the buffer is killed.
(defalias 'rng-set-schema-file #[(filename) "\300\301\302\217\207" [err (byte-code "\301!\210\302\303!\207" [filename rng-set-schema-file-1 rng-save-schema-location-1 t] 2) ((nxml-file-parse-error (nxml-display-file-parse-error err)))] 3 (#$ . 2621) "fSchema file: "])
#@69 Set the schema for the current buffer to allow any well-formed XML.
(defalias 'rng-set-vacuous-schema #[nil "\300\301!\210\302 \207" [rng-set-schema-file-1 nil rng-what-schema] 2 (#$ . 3372) nil])
(defalias 'rng-set-schema-file-1 #[(filename) "\205 \304!\211\203 \305!\202 \306\307!\207" [filename rng-any-element rng-current-schema rng-current-schema-file-name expand-file-name rng-load-schema run-hooks rng-schema-change-hook] 3])
(defalias 'rng-load-schema #[(filename) "\304!\305 \n\"A\211\204 \203 \306\307 \"\210\202 \306\310!\210 !*\207" [filename extension rng-schema-loader-alist loader file-name-extension assoc error "No schema loader available for file extension `%s'" "No schema loader available for null file extension"] 4])
#@68 Display a message saying what schema `rng-validate-mode' is using.
(defalias 'rng-what-schema #[nil "\203 \301\302\303!\"\207\301\304!\207" [rng-current-schema-file-name message "Using schema %s" abbreviate-file-name "Using vacuous schema"] 4 (#$ . 4136) nil])
#@78 Set the schema for this buffer based on the buffer's contents and file-name.
(defalias 'rng-auto-set-schema #[(&optional no-display-error) "\300\301\302\217\207" [err (byte-code "\300\301 !\210\302 \207" [rng-set-schema-file-1 rng-locate-schema-file rng-what-schema] 2) ((nxml-file-parse-error (byte-code "\203 \302\303\304 8\305 8\306 A@!$\207\307 !\207" [no-display-error err error "%s at position %s in %s" 3 2 abbreviate-file-name nxml-display-file-parse-error] 6)))] 3 (#$ . 4406) nil])
#@173 Return the file-name of the schema to use for the current buffer.
Return nil if no schema could be located.
If TYPE-ID is non-nil, then locate the schema for this TYPE-ID.
(defalias 'rng-locate-schema-file #[(&optional type-id) "\306 \203\f \306B\202 \307\n!\306\211 :\203G \n @\306
\235\203+ \310\311 \"\210
B\f\203 \204 \312 \f@\"\fA\211\2043 \202 \205N \313 !,\207" [rng-cached-document-element type-id rng-schema-locating-files schema files type-ids nil rng-locate-schema-file-using error "Type-id loop for type-id `%s'" rng-locate-schema-file-from-type-id rng-uri-file-name] 4 (#$ . 4907)])
#@38 Return a list of the known type IDs.
(defalias 'rng-possible-type-ids #[nil "\303\211\203 \304\n@ \"\nA\211\204 \305\306 \307\"!*\207" [rng-schema-locating-files type-ids files nil rng-possible-type-ids-using rng-uniquify-equal sort string<] 5 (#$ . 5528)])
#@160 Locate a schema using the schema locating files FILES.
FILES is a list of file-names.
Return either a URI, a list (TYPE-ID) where TYPE-ID is a string,
or nil.
(defalias 'rng-locate-schema-file-using #[(files) "\306\211\211\n\204 \203 \307 @! A\202 \n\203\240 \203% \203\240 \n@\211 @\211 \310N \nA\203U \203B
>\203J \fA! \210\311
>G\"\202\234
\312=\203\200 \204\234 \313\fA\236A\211 \203| \314!\211 >\204| C\244)\202\234
\315=\203\234 \302\fA\236A\211 \203\233 \316\307\317!!\n\")+\202 +\207" [best-so-far preferred-types rules files rule rule-type nil rng-get-parsed-schema-locating-file rng-rule-matcher nbutlast applyFollowingRules ruleType intern include append rng-uri-file-name rule-matcher prefer uri] 5 (#$ . 5800)])
(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#\207" [put documentElement rng-rule-matcher rng-match-document-element-rule namespace rng-match-namespace-rule uri rng-match-uri-rule transformURI rng-match-transform-uri-rule default rng-match-default-rule] 4)
(defalias 'rng-match-document-element-rule #[(props) "\304 \302\236A\305\236A\n\203' \nG\306U\203 A@?\202$ \n A@\230\2056 \2033 \307 8\230\2056 \310!+\207" [props local-name prefix document-element rng-document-element localName 0 2 rng-match-default-rule] 4])
(defalias 'rng-match-namespace-rule #[(props) "\303 \301\236A\211\205# \205# \n@ \304\230?\205 \305 !=\205# \306!*\207" [props ns document-element rng-document-element "" nxml-make-namespace rng-match-default-rule] 4])
#@113 Return a list (NS PREFIX LOCAL-NAME).
NS is t if the document has a non-nil, but not otherwise known namespace.
(defalias 'rng-document-element #[nil "\206< \212\214~\210eb\210\306\211\306\211\211\211\211\211\211\211
\307 \210\310 \210\311>\2058 \312 \313 \314 E.\f\211\207" [rng-cached-document-element xmltok-dtd xmltok-errors xmltok-dependent-regions xmltok-namespace-attributes xmltok-attributes nil xmltok-forward-prolog xmltok-forward (start-tag partial-start-tag empty-element partial-empty-element) rng-get-start-tag-namespace xmltok-start-tag-prefix xmltok-start-tag-local-name xmltok-replacement xmltok-name-end xmltok-name-colon xmltok-start xmltok-type] 10 (#$ . 7394)])
(defalias 'rng-get-start-tag-namespace #[nil "\305 \306\211\211\f\203? \f@\fA \203% \307 !\203 \310 ! \230\202) \307 !?\203 \311 !\211\203: \312!\202; \313\202 \203K \n\204K \313\202L \n,\207" [value att namespace prefix xmltok-namespace-attributes xmltok-start-tag-prefix nil xmltok-attribute-prefix xmltok-attribute-local-name xmltok-attribute-value nxml-make-namespace t] 5])
(defalias 'rng-match-transform-uri-rule #[(props) "\304\236A\305\236A\306 \205$ \307 !\211\205$ \310 \"\205$ \311\312\313\217+\207" [props file-name to-pattern from-pattern fromPattern toPattern buffer-file-name expand-file-name rng-file-name-matches-uri-pattern-p nil (byte-code "\304\305 \306\216\307 !*\310\311\n$\312 !\205 \313 !\205 \314 !)\207" [save-match-data-internal to-pattern file-name new-file-name replace-match match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) rng-uri-pattern-file-name-replace-match t nil file-name-absolute-p file-exists-p rng-file-name-uri] 5) ((rng-uri-error))] 3])
(defalias 'rng-match-uri-rule #[(props) "\303\236A\302\236A\304 \2052 \305 !\211\2052 \203$ \306\307\310\217\202, \n\2052 \311 \n\"\2052 \312!+\207" [props file-name pattern resource buffer-file-name expand-file-name nil (byte-code "\303\304!\305\306\307 !\305\306\n&\310=\207" [resource file-name nxml-file-name-ignore-case compare-strings rng-uri-file-name 0 nil expand-file-name t] 8) ((rng-uri-error)) rng-file-name-matches-uri-pattern-p rng-match-default-rule] 3])
(defalias 'rng-file-name-matches-uri-pattern-p #[(file-name pattern) "\300\301\302\217\207" [nil (byte-code "\304\305\n! \")\205
\306\207" [nxml-file-name-ignore-case case-fold-search pattern file-name string-match rng-uri-pattern-file-name-regexp t] 3) ((rng-uri-error))] 3])
(defalias 'rng-match-default-rule #[(props) "\302\236A\206 \303\236A\211\205 \304 !\305B)\207" [props type-id uri typeId rng-collapse-space nil] 3])
(defalias 'rng-possible-type-ids-using #[(file type-ids) "\306!\307\n\203I \n@\nA @\310=\203+ \303 A\236A\211\203' \311 !\fB)\202 @\312=\203 \302 A\236A\211 \203E \313\306\314
!!\f\")\202 \f*\207" [file rule rules id type-ids uri rng-get-parsed-schema-locating-file nil typeId rng-collapse-space include rng-possible-type-ids-using rng-uri-file-name] 5])
#@145 Locate the schema for type id TYPE-ID using schema locating file FILE.
Return either a URI, a list (TYPE-ID) where TYPE-ID is a string,
or nil.
(defalias 'rng-locate-schema-file-from-type-id #[(type-id file) "\306!\307\211 \203V \n\204V @ A @\310=\2038 \304 A\236\211 \205, \311\fA!
\230)\2038 \312 A!\202 @\313=\203 \303 A\236A\211 \203R \314
\315!\")\202 \n+\207" [file rule schema rules id type-id rng-get-parsed-schema-locating-file nil typeId rng-collapse-space rng-match-default-rule include rng-locate-schema-file-from-type-id rng-uri-file-name uri] 5 (#$ . 10437)])
(defvar rng-schema-locating-file-alist nil)
#@59 Return a list of rules for the schema locating file FILE.
(defalias 'rng-get-parsed-schema-locating-file #[(file) "\305!\306 \"\307\310!8\311 \204\" \f\203 \312\f \"\311\202M \f\2034 \fA@ \232\2034 \313\f8\202M \314!\f\203E \f \nD\241\210\202L \nE B\n+\207" [file rng-schema-locating-file-alist parsed mtime cached expand-file-name assoc 5 file-attributes nil delq 2 rng-parse-schema-locating-file] 4 (#$ . 11077)])
(defconst rng-locate-namespace-uri (nxml-make-namespace "http://thaiopensource.com/ns/locating-rules/1.0"))
#@276 Return list of rules.
Each rule has the form (TYPE (ATTR . VAL) ...), where
TYPE is a symbol for the element name, ATTR is a symbol for the attribute
and VAL is a string for the value.
Attribute values representing URIs are made absolute and xml:base
attributes are removed.
(defalias 'rng-parse-schema-locating-file #[(file) "\204\f \203\f \306 !\203 \307\n\"\202 \310\n!\211\211 AA) \311\n! \312\211 \312\211 \312\211 \312\211 @\313B\232\203\302
\203\302
@
A:\203I @\211@=\203I \211 A@)\312\203\261 @\211@;\203\250 \314@!A\315>\203\236 \316\"BBA\211\204x \314A!\237BB\202I \237. \207" [rng-schema-locating-file-schema rng-schema-locating-file-schema-file file element x children rng-load-schema rng-parse-validate-file nxml-parse-file rng-file-name-uri nil "locatingRules" intern (uri rules resource) rng-uri-resolve base-uri child name rules atts att props prop-name prop-value rng-locate-namespace-uri] 4 (#$ . 11622)])
#@276 Save the association between the buffer's file and the current schema.
This ensures that the schema that is currently being used will be used
if the file is edited in a future session. The association will be
saved to the first writable file in `rng-schema-locating-files'.
(defalias 'rng-save-schema-location #[nil "\300\301!\207" [rng-save-schema-location-1 nil] 2 (#$ . 12640) nil])
(defalias 'rng-save-schema-location-1 #[(prompt &optional type-id) "\204\f \204\f \306\307!\210\n\310 \311 **\2039 \2049 \312*@!\2030 \313*@!\202 *A\211*\204 \204I +?\205\306\314!\202
\204Y +?\205\306\315!\202+\203q \316\317\320 \203i \321\202j \322 #!?\206r\323 !q\210\324 ,\325 \326V\203\272 \311 -eb\210\311\211\211\211\211\211\211\211\211 . / 0 1 2 3 4 5 6\327 \210\330 \2106\331=\204\265 \306\332 \"\210.\n\202\317 \333\334\3357!\336\261\210` 8\337c\2108b\210)\340c\210\341 ! 9\317\342\343\344\341
!9\"! \203\352 \345\202\353 \346\343 \206\367 \344\341\f!9\"!$)c\210\347 \210,\203\316\317\350\310 \"!\205\351 *,\207" [rng-current-schema-file-name type-id rng-schema-locating-files file schema-file-name document-file-name error "Buffer is using a vacuous schema" buffer-file-name nil file-writable-p expand-file-name "No writable schema locating file configured" "Buffer does not have a filename" y-or-n-p format "Save %s to %s " "type identifier" "schema location" find-file-noselect buffer-modified-p buffer-size 0 xmltok-forward-prolog xmltok-forward start-tag "Locating file `%s' invalid" "<?xml version=\"1.0\"?>\n" "<locatingRules xmlns=\"" nxml-namespace-name "\">" "\n</locatingRules>\n" "\n" rng-file-name-uri "<uri resource=\"%s\" %s=\"%s\"/>" rng-escape-string rng-relative-uri "typeId" "uri" indent-according-to-mode "Save file %s " save-buffer files prompt modified xmltok-dtd xmltok-errors xmltok-dependent-regions xmltok-namespace-attributes xmltok-attributes xmltok-replacement xmltok-name-end xmltok-name-colon xmltok-start xmltok-type rng-locate-namespace-uri pos locating-file-uri] 10])
(provide 'rng-loc)