;ELC   
;;; Compiled by nelson@oikos.local on Sat Jul 23 20:32:09 2005
;;; from file /Users/nelson/Desktop/nxml-mode-20041004/rng-pttrn.el
;;; in Emacs version 22.0.50.6
;;; 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-pttrn.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@52 Hook to be run after `rng-current-schema' changes.
(defvar rng-schema-change-hook nil (#$ . 592))
#@54 Pattern to be used as schema for the current buffer.
(defvar rng-current-schema nil (#$ . 696))
(make-variable-buffer-local 'rng-current-schema)
(defalias 'rng-make-ref #[(name) "\301\302E\207" [name ref nil] 3])
(defalias 'rng-ref-set #[(ref pattern) "A	\240\207" [ref pattern] 2])
(defalias 'rng-ref-get #[(ref) "\211A@)\207" [ref x] 2])
(defalias 'rng-make-choice #[(patterns) "\301B\207" [patterns choice] 2])
(defalias 'rng-make-group #[(patterns) "\301B\207" [patterns group] 2])
(defalias 'rng-make-interleave #[(patterns) "\301B\207" [patterns interleave] 2])
(defalias 'rng-make-zero-or-more #[(pattern) "\301D\207" [pattern zero-or-more] 2])
(defalias 'rng-make-one-or-more #[(pattern) "\301D\207" [pattern one-or-more] 2])
(defalias 'rng-make-optional #[(pattern) "\301D\207" [pattern optional] 2])
(defalias 'rng-make-mixed #[(pattern) "\301D\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) "\301D\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) "\301D\207" [name-class any-name-except] 2])
(defalias 'rng-make-ns-name-name-class #[(ns) "\301D\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) "\300D\207" [name] 2])
(defalias 'rng-make-choice-name-class #[(name-classes) "\301B\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) (#$ . 2865))
#@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) (#$ . 3236))
(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)