ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/nxml/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/nxml/rng-pttrn.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@52 Hook to be run after `rng-current-schema' changes.
(defvar rng-schema-change-hook nil (#$ . 410))
#@54 Pattern to be used as schema for the current buffer.
(defvar rng-current-schema nil (#$ . 514))
(make-variable-buffer-local 'rng-current-schema)
(defalias 'rng-make-ref #[(name) "\301\302E\207" [name ref nil] 3])
(defalias 'rng-ref-set #[(ref pattern) "A \240\207" [ref pattern] 2])
(defalias 'rng-ref-get #[(ref) "A@\207" [ref] 1])
(defalias 'rng-make-choice #[(patterns) "\301B\207" [patterns choice] 2])
(defalias 'rng-make-group #[(patterns) "\301B\207" [patterns group] 2])
(defalias 'rng-make-interleave #[(patterns) "\301B\207" [patterns interleave] 2])
(defalias 'rng-make-zero-or-more #[(pattern) "\301D\207" [pattern zero-or-more] 2])
(defalias 'rng-make-one-or-more #[(pattern) "\301D\207" [pattern one-or-more] 2])
(defalias 'rng-make-optional #[(pattern) "\301D\207" [pattern optional] 2])
(defalias 'rng-make-mixed #[(pattern) "\301D\207" [pattern mixed] 2])
(defalias 'rng-make-value #[(datatype str context) "\303 \nF\207" [datatype str context value] 4])
(defalias 'rng-make-data #[(name params) "\302 E\207" [name params data] 3])
(defalias 'rng-make-data-except #[(name params pattern) "\303 \nF\207" [name params pattern data-except] 4])
(defalias 'rng-make-list #[(pattern) "\301D\207" [pattern list] 2])
(defalias 'rng-make-element #[(name-class pattern) "\302 E\207" [name-class pattern element] 3])
(defalias 'rng-make-attribute #[(name-class pattern) "\302 E\207" [name-class pattern attribute] 3])
(defalias 'rng-make-text #[nil "\300\207" [(text)] 1])
(defalias 'rng-make-empty #[nil "\300\207" [(empty)] 1])
(defalias 'rng-make-not-allowed #[nil "\300\207" [(not-allowed)] 1])
(defalias 'rng-make-any-name-name-class #[nil "\300\207" [(any-name)] 1])
(defalias 'rng-make-any-name-except-name-class #[(name-class) "\301D\207" [name-class any-name-except] 2])
(defalias 'rng-make-ns-name-name-class #[(ns) "\301D\207" [ns ns-name] 2])
(defalias 'rng-make-ns-name-except-name-class #[(ns name-class) "\302 E\207" [ns name-class ns-name-except] 3])
(defalias 'rng-make-name-name-class #[(name) "\300D\207" [name] 2])
(defalias 'rng-make-choice-name-class #[(name-classes) "\301B\207" [name-classes choice] 2])
#@67 A pattern that matches the attributes and content of any element.
(defconst rng-any-content (byte-code "\302\303!\304\305\306 \307\310 \306 \"\311\310 \"E!!\312 \"\210 *\207" [ref pattern rng-make-ref "any-content" rng-make-zero-or-more rng-make-choice rng-make-text rng-make-attribute rng-make-any-name-name-class rng-make-element rng-ref-set] 7) (#$ . 2675))
#@37 A pattern that matches any element.
(defconst rng-any-element (byte-code "\302\303!\304\305 \306\307\310 \311\305 \310 \"E!!\"\312 \"\210 *\207" [ref pattern rng-make-ref "any-element" rng-make-element rng-make-any-name-name-class rng-make-zero-or-more rng-make-choice rng-make-text rng-make-attribute rng-ref-set] 8) (#$ . 3046))
(defalias 'rng-make-name #[(ns local-name) " B\207" [ns local-name] 2])
(defalias 'rng-make-datatype #[(uri local-name) "\302 !B\207" [uri local-name intern] 3])
(provide 'rng-pttrn)
Kontol Shell Bypass