Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
nxml-enc.elc	3.29 KB	-rw-r--r--
nxml-maint.elc	1.15 KB	-rw-r--r--
nxml-mode.elc	63.75 KB	-rw-r--r--
nxml-ns.elc	4.01 KB	-rw-r--r--
nxml-outln.elc	26.76 KB	-rw-r--r--
nxml-parse.elc	8.73 KB	-rw-r--r--
nxml-rap.elc	6.69 KB	-rw-r--r--
nxml-util.elc	2.81 KB	-rw-r--r--
rng-cmpct.elc	25.08 KB	-rw-r--r--
rng-dt.elc	1.8 KB	-rw-r--r--
rng-loc.elc	13.94 KB	-rw-r--r--
rng-maint.elc	5.67 KB	-rw-r--r--
rng-match.elc	52.05 KB	-rw-r--r--
rng-nxml.elc	13.75 KB	-rw-r--r--
rng-parse.elc	2.57 KB	-rw-r--r--
rng-pttrn.elc	3.81 KB	-rw-r--r--
rng-uri.elc	7.82 KB	-rw-r--r--
rng-util.elc	1.98 KB	-rw-r--r--
rng-valid.elc	35.2 KB	-rw-r--r--
rng-xsd.elc	22.54 KB	-rw-r--r--
xmltok.elc	35.6 KB	-rw-r--r--
xsd-regexp.elc	40.45 KB	-rw-r--r--

Code Editor : rng-cmpct.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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!\207" [require nxml-util rng-util rng-uri rng-pttrn] 2)
#@90 Load a schema in RELAX NG compact syntax from FILENAME.
Return a pattern.

(fn FILENAME)
(defalias 'rng-c-load-schema #[257 "\300!\207" [rng-c-parse-file] 3 (#$ . 524)])
(define-error 'rng-c-incorrect-schema "Incorrect schema" '(rng-error nxml-file-parse-error))
#@29

(fn FILENAME POS MESSAGE)
(defalias 'rng-c-signal-incorrect-schema #[771 "\300\301$\207" [nxml-signal-file-parse-error rng-c-incorrect-schema] 8 (#$ . 794)])
#@58 List of strings that are keywords in the compact syntax.
(defconst rng-c-keywords '("attribute" "default" "datatypes" "div" "element" "empty" "external" "grammar" "include" "inherit" "list" "mixed" "namespace" "notAllowed" "parent" "start" "string" "text" "token") (#$ . 963))
#@62 Regular expression to match a keyword in the compact syntax.
(defconst rng-c-anchored-keyword-re (byte-code "\301\302!\303Q\207" [rng-c-keywords "\\`\$" regexp-opt "\$\\'"] 3) (#$ . 1246))
#@46 Syntax table for parsing the compact syntax.
(defvar rng-c-syntax-table nil (#$ . 1444))
(byte-code "\204+�\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\310#\210\302\312\310#\210\302\313\314#\210\301\207" [rng-c-syntax-table make-syntax-table modify-syntax-entry 35 "<" 10 ">" 45 "w" 46 95 58 "_"] 4)
#@54 Regular expression to match a single-quoted literal.
(defconst rng-c-literal-1-re "'\$''\\([^']\\|'[^']\\|''[^']\$*''\\|[^'\n]*\\)'" (#$ . 1778))
#@54 Regular expression to match a double-quoted literal.
(defconst rng-c-literal-2-re (replace-regexp-in-string "'" "\"" rng-c-literal-1-re) (#$ . 1932))
(defconst rng-c-ncname-re "\\w+")
(defconst rng-c-anchored-ncname-re (concat "\\`" rng-c-ncname-re "\\'"))
#@60 Regular expression to match a token in the compact syntax.
(defconst rng-c-token-re (concat "[&|]=\\|[][()|&,*+?{}~=-]\\|" rng-c-literal-1-re #1="\\|" rng-c-literal-2-re #1# rng-c-ncname-re "\$:\\(\\*\\|" rng-c-ncname-re "\$\\)?\\|\\\\" rng-c-ncname-re "\\|>>") (#$ . 2195))
(defalias 'rng-c-init-buffer #[0 "\302\303\304!\210\305	!\207" [case-fold-search rng-c-syntax-table nil set-buffer-multibyte t set-syntax-table] 2])
(defvar rng-c-current-token nil)
(make-variable-buffer-local 'rng-c-current-token)
(defalias 'rng-c-advance #[0 "\302!\203�\303\304!\304\225b\210\305d!\207`dU\203�\306\211\207\307\310!\207" [rng-c-token-re rng-c-current-token looking-at match-string 0 forward-comment "" rng-c-error "Invalid token"] 2])
(defconst rng-c-anchored-datatype-name-re (concat "\\`" rng-c-ncname-re ":" rng-c-ncname-re "\\'"))
(defalias 'rng-c-current-token-keyword-p #[0 "\302	\"\207" [rng-c-anchored-keyword-re rng-c-current-token string-match] 3])
(put 'rng-c-current-token-keyword-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'rng-c-current-token-prefixed-name-p #[0 "\302	\"\207" [rng-c-anchored-datatype-name-re rng-c-current-token string-match] 3])
(put 'rng-c-current-token-prefixed-name-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'rng-c-current-token-literal-p #[0 "\301\302\"\207" [rng-c-current-token string-match "\\`['\"]"] 3])
(put 'rng-c-current-token-literal-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'rng-c-current-token-quoted-identifier-p #[0 "\301\302\"\207" [rng-c-current-token string-match "\\`\\\\"] 3])
(put 'rng-c-current-token-quoted-identifier-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'rng-c-current-token-ncname-p #[0 "\302	\"\207" [rng-c-anchored-ncname-re rng-c-current-token string-match] 3])
(put 'rng-c-current-token-ncname-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'rng-c-current-token-ns-name-p #[0 "G\211\301V\205�SH\302U\207" [rng-c-current-token 0 42] 3])
(put 'rng-c-current-token-ns-name-p 'byte-optimizer 'byte-compile-inline-expand)
(defvar rng-c-inherit-namespace nil)
(defvar rng-c-default-namespace nil)
(defvar rng-c-default-namespace-declared nil)
#@34 Alist of namespace declarations.
(defvar rng-c-namespace-decls nil (#$ . 4387))
(defconst rng-c-no-namespace nil)
(defalias 'rng-c-declare-standard-namespaces #[0 "\305B	B\n?\205�\205�\211\207" [nxml-xml-namespace-uri rng-c-namespace-decls rng-c-default-namespace-declared rng-c-inherit-namespace rng-c-default-namespace "xml"] 2])
#@22

(fn PREFIXED-NAME)
(defalias 'rng-c-expand-name #[257 "\300\301\"\302\303\304\305#!\304T\"\"\207" [string-match ":" rng-make-name rng-c-lookup-prefix substring 0] 8 (#$ . 4732)])
#@15

(fn PREFIX)
(defalias 'rng-c-lookup-prefix #[257 "\301\"\211\204
�\302\303\"\210\211A\207" [rng-c-namespace-decls assoc rng-c-error "Undefined prefix %s"] 5 (#$ . 4924)])
#@18

(fn ATTRIBUTE)
(defalias 'rng-c-unqualified-namespace #[257 "\211\203�\207	\207" [rng-c-no-namespace rng-c-default-namespace] 2 (#$ . 5106)])
(defalias 'rng-c-make-context #[0 "	B\207" [rng-c-default-namespace rng-c-namespace-decls] 2])
(defconst rng-string-datatype (rng-make-datatype rng-builtin-datatypes-uri "string"))
(defconst rng-token-datatype (rng-make-datatype rng-builtin-datatypes-uri "token"))
#@119 Alist of datatype declarations.
Contains a list of pairs (PREFIX . URI) where PREFIX is a string
and URI is a symbol.
(defvar rng-c-datatype-decls nil (#$ . 5525))
(defalias 'rng-c-declare-standard-datatypes #[0 "\302B	B\211\207" [rng-xsd-datatypes-uri rng-c-datatype-decls "xsd"] 2])
#@15

(fn PREFIX)
(defalias 'rng-c-lookup-datatype-prefix #[257 "\301\"\211\204
�\302\303\"\210\211A\207" [rng-c-datatype-decls assoc rng-c-error "Undefined prefix %s"] 5 (#$ . 5818)])
#@22

(fn PREFIXED-NAME)
(defalias 'rng-c-expand-datatype #[257 "\300\301\"\302\303\304\305#!\304T\"\"\207" [string-match ":" rng-make-datatype rng-c-lookup-datatype-prefix substring 0] 8 (#$ . 6008)])
(defvar rng-c-current-grammar nil)
(defvar rng-c-parent-grammar nil)
(defalias 'rng-c-make-grammar #[0 "\300\301\302\"\207" [make-hash-table :test equal] 3])
(defconst rng-c-about-override-slot 0)
(defconst rng-c-about-combine-slot 1)
#@261 Return a def object for NAME.
A def object is a pair (ABOUT . REF) where REF is returned by
`rng-make-ref'.
ABOUT is a two-element vector [OVERRIDE COMBINE].
COMBINE is either nil, choice or interleave.
OVERRIDE is either nil, require or t.

(fn NAME GRAMMAR)
(defalias 'rng-c-lookup-create #[514 "\300\"\211\203\f�\211\202�\301\302\211\"\303!B\262\304#\210\211\207" [gethash vector nil rng-make-ref puthash] 7 (#$ . 6453)])
#@13

(fn NAME)
(defalias 'rng-c-make-ref #[257 "\204�\301\302!\210\303\"A\207" [rng-c-current-grammar rng-c-error "Reference not in a grammar" rng-c-lookup-create] 4 (#$ . 6892)])
#@13

(fn NAME)
(defalias 'rng-c-make-parent-ref #[257 "\204�\301\302!\210\303\"A\207" [rng-c-parent-grammar rng-c-error "Reference to non-existent parent grammar" rng-c-lookup-create] 4 (#$ . 7079)])
#@40 Contains a list of (NAME . DEF) pairs.
(defvar rng-c-overrides nil (#$ . 7286))
#@25

(fn DEF COMBINE NAME)
(defalias 'rng-c-merge-combine #[771 "@\211H\203!�\211\203�=\206\"�\301\302\"\202\"�I\202\"�\211\207" [rng-c-about-combine-slot rng-c-error "Inconsistent combine for %s"] 8 (#$ . 7372)])
#@32

(fn NAME COMBINE IN-INCLUDE)
(defalias 'rng-c-prepare-define #[771 "\303\"\211@\211	H\203�B\nB\211\203&�\211\304=\203\"�	\305I\210\306\202A�\307#\262\310A!\203@�\204@�\311\312\"\210\207" [rng-c-current-grammar rng-c-about-override-slot rng-c-overrides rng-c-lookup-create require t nil rng-c-merge-combine rng-ref-get rng-c-error "Duplicate definition of %s"] 10 (#$ . 7599)])
#@18

(fn OVERRIDES)
(defalias 'rng-c-start-include #[257 "\300\301\"\207" [mapcar #[257 "\211A\211@\211H\301I\210\211B\207" [rng-c-about-override-slot require] 7 "\n\n(fn NAME-DEF)"]] 4 (#$ . 8003)])
#@18

(fn OVERRIDES)
(defalias 'rng-c-end-include #[257 "\300\301\"\207" [mapcar #[257 "\211@A\211@A\211@\211H\301=\203�\302\303\"\210\211I\207" [rng-c-about-override-slot require rng-c-error "Definition of %s in include did not override definition in included file"] 9 "\n\n(fn O)"]] 4 (#$ . 8211)])
#@18

(fn DEF VALUE)
(defalias 'rng-c-define #[514 "\205,�\301A!\302A\203(�@H\303=\203 �\304D!\202)�\305D!\202)�\"\262\207" [rng-c-about-combine-slot rng-ref-get rng-ref-set choice rng-make-choice rng-make-interleave] 8 (#$ . 8523)])
(defalias 'rng-c-finish-grammar #[0 "\301\302\"\210\303\304\305\"\206�\306\307!A!\207" [rng-c-current-grammar maphash #[514 "\300A!\206�\301\302\"\207" [rng-ref-get rng-c-error "Reference to undefined pattern %s"] 5 "\n\n(fn KEY DEF)"] rng-ref-get gethash start rng-c-error "No definition of start"] 4])
(defvar rng-c-escape-positions nil)
(make-variable-buffer-local 'rng-c-escape-positions)
(defvar rng-c-file-name nil)
(make-variable-buffer-local 'rng-c-file-name)
(defvar rng-c-file-index nil)
#@35

(fn FILENAME &optional CONTEXT)
(defalias 'rng-c-parse-file #[513 "r\302\303!!q\210\304 \210\305 \210\306!@\307\310 \210\311!)\207" [rng-c-file-name rng-c-escape-positions get-buffer-create rng-c-buffer-name erase-buffer rng-c-init-buffer insert-file-contents nil rng-c-process-escapes rng-c-parse-top-level] 5 (#$ . 9275)])
#@16

(fn CONTEXT)
(defalias 'rng-c-buffer-name #[257 "\301\203�\302\303T\211!\304Q\202�\305\306P\207" [rng-c-file-index " *RNC Input" "<" number-to-string ">*" 1 "*"] 6 (#$ . 9613)])
(defalias 'rng-c-process-escapes #[0 "\301\302\303\304#\211\203
�\305\306!\210\210\307\310\311d\304#\203[�\312\313\314\315\316!\317\"\"\211\203S�\211\307V\203S�\307\224\307\225|\210\320=\203<�\307\202=�c\210\321\316#\\\262`BB\266\202W�\305\322!\210\210\202�\210\316b\207" [rng-c-escape-positions search-forward "�" nil t rng-c-error "Nul character found (binary file?)" 0 re-search-forward "\\\\x+{\$[[:xdigit:]]+\$}" decode-char ucs string-to-number match-string 1 16 10 - "Invalid character escape"] 9])
#@12

(fn POS)
(defalias 'rng-c-translate-position #[257 "\211\203�\211@@V\203�\211A\262\202�\211\203 �@A\\\202!�\207" [rng-c-escape-positions] 4 (#$ . 10326)])
#@19

(fn &rest ARGS)
(defalias 'rng-c-error #[128 "\301\302`!\303\304\"#\207" [rng-c-file-name rng-c-signal-incorrect-schema rng-c-translate-position apply format-message] 7 (#$ . 10498)])
#@16

(fn CONTEXT)
(defalias 'rng-c-parse-top-level #[257 "\304\211\211eb\210\305d!\210\306 \210\307 \210\211\310=\203)�\311 \203$�\312\313!\2025�\314 \2025�\311 \2033�\315 \2025�\316 \313\230\204?�\317\320!\210\211\262+\207" [rng-c-datatype-decls rng-c-default-namespace rng-c-namespace-decls rng-c-current-token nil forward-comment rng-c-advance rng-c-parse-decls include rng-c-implicit-grammar-p rng-c-parse-grammar-body "" rng-c-parse-included-grammar rng-c-parse-implicit-grammar rng-c-parse-pattern rng-c-error "Unexpected characters after pattern"] 4 (#$ . 10692)])
(defalias 'rng-c-parse-included-grammar #[0 "\301\230\204\n�\302\303!\210\304 \210\305\306!\210\307\310!\207" [rng-c-current-token "grammar" rng-c-error "Included schema is not a grammar" rng-c-advance rng-c-expect "{" rng-c-parse-grammar-body "}"] 2])
(defalias 'rng-c-implicit-grammar-p #[0 "\304	\"\204�\304\305	\"\204�\304\n	\"\203\"�\304	\"\204\"�\306\307!\2064�	\310\230\203+�\311 \210	\312\235\2064�\306\313!\207" [rng-c-anchored-datatype-name-re rng-c-current-token rng-c-anchored-ncname-re rng-c-anchored-keyword-re string-match "\\`\\\\" looking-at "\\[" "[" rng-c-parse-lead-annotation ("div" "include" "") "[|&]?="] 3])
(defalias 'rng-c-parse-decls #[0 "\302\303	\304\"\211\205�\305 \210\211A \210\306\262\204�\307 \210\310 \207" [rng-c-default-namespace-declared rng-c-current-token nil assoc (("namespace" . rng-c-parse-namespace) ("datatypes" . rng-c-parse-datatypes) ("default" . rng-c-parse-default)) rng-c-advance t rng-c-declare-standard-datatypes rng-c-declare-standard-namespaces] 3])
(defalias 'rng-c-parse-datatypes #[0 "\301 \302\"\203�\303\304\"\210\305\306!\210\211\307\310 !BB\211\207" [rng-c-datatype-decls rng-c-parse-identifier-or-keyword assoc rng-c-error "Duplicate datatypes declaration for prefix %s" rng-c-expect "=" rng-make-datatypes-uri rng-c-parse-literal] 4])
(defalias 'rng-c-parse-namespace #[0 "\300\301\302 \"\207" [rng-c-declare-namespace nil rng-c-parse-identifier-or-keyword] 3])
(defalias 'rng-c-parse-default #[0 "\301\302!\210\303\304\305\230?\205�\306 \"\207" [rng-c-current-token rng-c-expect "namespace" rng-c-declare-namespace t "=" rng-c-parse-identifier-or-keyword] 4])
#@31

(fn DECLARE-DEFAULT PREFIX)
(defalias 'rng-c-declare-namespace #[514 "\305\306!\210\307\230\203�\310 \210	\202�\311\312 !\203-�\313\n\"\203'�\314\315\"\203-�B\nB\205D�\203;�\314\316!\205D�\317\211\205D�\211\211\207" [rng-c-current-token rng-c-inherit-namespace rng-c-namespace-decls rng-c-default-namespace-declared rng-c-default-namespace rng-c-expect "=" "inherit" rng-c-advance nxml-make-namespace rng-c-parse-literal assoc rng-c-error "Duplicate namespace declaration for prefix %s" "Duplicate default namespace declaration" t] 6 (#$ . 12915)])
(defalias 'rng-c-parse-implicit-grammar #[0 "\302 \303\304!\210\305 *\207" [rng-c-current-grammar rng-c-parent-grammar rng-c-make-grammar rng-c-parse-grammar-body "" rng-c-finish-grammar] 2])
#@41

(fn CLOSE-TOKEN &optional IN-INCLUDE)
(defalias 'rng-c-parse-grammar-body #[513 "\230\204\256�\304	\"\203A�\305!\211\306\267\2029�\307\310\"\210\202=�\311 \210\312!\210\202=�\2030�\313\314!\210\311 \210\315 \210\202=�\313\316!\210\210\202��\304\n\"\203\\�\317\320!\203T�\321 \210\202��\307\"\210\202��\304\322\"\203z�\317\320!\203o�\321 \210\202��\307\323\324\"\"\210\202��\304\"\203\207�\321 \210\202��\325\230\203\247�\326 \210\230\203\232�\313\327!\210\317\320!\203��\313\330!\210\202��\313\331!\210\202��\332\230\206\266�\311 \207" [rng-c-current-token rng-c-anchored-keyword-re rng-c-anchored-ncname-re rng-c-anchored-datatype-name-re string-match intern #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (start 22 div 30 include 40)) rng-c-parse-define start rng-c-advance rng-c-parse-div rng-c-error "Nested include" rng-c-parse-include "Invalid grammar keyword" looking-at "\\[" rng-c-parse-annotation-element "\\`\\\\" substring 1 "[" rng-c-parse-lead-annotation "Missing annotation subject" "Leading annotation applied to annotation" "Invalid grammar content" ""] 6 (#$ . 13680)])
#@19

(fn IN-INCLUDE)
(defalias 'rng-c-parse-div #[257 "\300\301!\210\302\303\"\207" [rng-c-expect "{" rng-c-parse-grammar-body "}"] 4 (#$ . 14833)])
(defalias 'rng-c-parse-include #[0 "\303\304 !\305 \306	\307\230\203,�\310 \210\306\311\312\313\"\210\n\262)\314!\262\315\316\"\210\317!\2020�\315\316\")\207" [rng-c-inherit-namespace rng-c-current-token rng-c-overrides rng-c-expand-file rng-c-parse-literal rng-c-parse-opt-inherit nil "{" rng-c-advance rng-c-parse-grammar-body "}" t rng-c-start-include rng-c-parse-file include rng-c-end-include] 5])
#@24

(fn NAME IN-INCLUDE)
(defalias 'rng-c-parse-define #[514 "\301 \210\302\303\"\211\204�\304\305!\210\301 \210\306A#\307\310 \"\262\207" [rng-c-current-token rng-c-advance assoc (("=") ("|=" . choice) ("&=" . interleave)) rng-c-error "Expected assignment operator" rng-c-prepare-define rng-c-define rng-c-parse-pattern] 7 (#$ . 15397)])
(defvar rng-c-had-except nil)
(defalias 'rng-c-parse-pattern #[0 "\302\303 \304	\305\"\211\2037�\203�\306\307!\2028�\302B\211	\310 \210\303 \302B\241\210\262	\230\204�A!\266\203\2028�)\207" [rng-c-had-except rng-c-current-token nil rng-c-parse-repeated assoc (("|" . rng-make-choice) ("," . rng-make-group) ("&" . rng-make-interleave)) rng-c-error "Parentheses required around pattern using -" rng-c-advance] 8])
(defalias 'rng-c-parse-repeated #[0 "\302\303 !\304\305\"\211\203\"�	\203�\306\307!\202#�\302\310 \210A!!\202#�\207" [rng-c-current-token rng-c-had-except rng-c-parse-follow-annotations rng-c-parse-primary assoc (("*" . rng-make-zero-or-more) ("+" . rng-make-one-or-more) ("?" . rng-make-optional)) rng-c-error "Parentheses required around pattern using -" rng-c-advance] 5])
#@176 Parse a primary expression.
The current token must be the first token of the expression.
After parsing the current token should be the token following
the primary expression.
(defalias 'rng-c-parse-primary #[0 "\305	\"\203�\306	!\307N\211\204�\310\311	\"\210\312 \210\211 \207\305\n	\"\203(�\313\314	!!\207	\315\230\2039�\312 \210\316 \317\320!\210\211\207\305	\"\203J�\321	!\312 \210\322!\207\305\323	\"\203X�\324\f\325 \326#\207\305\327	\"\203h�\313\314\330	\331\"!!\207	\332\230\203t�\333 \210\334 \207\310\335!\207" [rng-c-anchored-keyword-re rng-c-current-token rng-c-anchored-ncname-re rng-c-anchored-datatype-name-re rng-token-datatype string-match intern rng-c-pattern rng-c-error "Keyword %s does not introduce a pattern" rng-c-advance rng-c-advance-with rng-c-make-ref "(" rng-c-parse-pattern rng-c-expect ")" rng-c-expand-datatype rng-c-parse-data "\\`['\"]" rng-make-value rng-c-parse-literal nil "\\`\\\\" substring 1 "[" rng-c-parse-lead-annotation rng-c-parse-primary "Invalid pattern"] 5 (#$ . 16554)])
(defalias 'rng-c-parse-parent #[0 "\302	\"\203\f�\303\304	\"\210\305\306 !\207" [rng-c-anchored-keyword-re rng-c-current-token string-match rng-c-error "Keyword following parent was not quoted" rng-c-make-parent-ref rng-c-parse-identifier-or-keyword] 3])
(defalias 'rng-c-parse-literal #[0 "\300\301\302\303 \"!\207" [rng-c-fix-escaped-newlines apply concat rng-c-parse-literal-segments] 4])
(defalias 'rng-c-parse-literal-segments #[0 "\301 \211\302\230\203�\303 \210\304 \202�\305B\207" [rng-c-current-token rng-c-parse-literal-segment "~" rng-c-advance rng-c-parse-literal-segments nil] 4])
(defalias 'rng-c-parse-literal-segment #[0 "\301\302\"\204�\303\304!\210\305G\306Y\203!�\307H\310H=\203!�\311\202\"�\310\312\211[#\262!\207" [rng-c-current-token string-match "\\`['\"]" rng-c-error "Expected a literal" rng-c-advance-with 6 0 1 3 substring] 6])
#@12

(fn STR)
(defalias 'rng-c-fix-escaped-newlines #[257 "\300\301\302#\207" [subst-char-in-string 0 10] 5 (#$ . 18451)])
(defalias 'rng-c-parse-identifier-or-keyword #[0 "\302	\"\203�\303	!\207\302\304	\"\203�\303\305	\306\"!\207\307\310!\207" [rng-c-anchored-ncname-re rng-c-current-token string-match rng-c-advance-with "\\`\\\\" substring 1 rng-c-error "Expected identifier or keyword"] 4])
(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#\210\300\314\302\315#\210\300\316\302\317#\210\300\320\302\321#\210\300\322\302\323#\210\300\324\302\325#\210\300\326\302\327#\210\300\330\302\331#\207" [put string rng-c-pattern rng-c-parse-string token rng-c-parse-token element rng-c-parse-element attribute rng-c-parse-attribute list rng-c-parse-list mixed rng-c-parse-mixed text rng-c-parse-text empty rng-c-parse-empty notAllowed rng-c-parse-not-allowed grammar rng-c-parse-grammar parent rng-c-parse-parent external rng-c-parse-external] 4)
(defalias 'rng-c-parse-element #[0 "\300\301!\302\303!\210\304 \302\305!\210\306\"\262\207" [rng-c-parse-name-class nil rng-c-expect "{" rng-c-parse-pattern "}" rng-make-element] 5])
(defalias 'rng-c-parse-attribute #[0 "\300\301!\302\303!\210\304 \302\305!\210\306\"\262\207" [rng-c-parse-name-class attribute rng-c-expect "{" rng-c-parse-pattern "}" rng-make-attribute] 5])
#@18

(fn ATTRIBUTE)
(defalias 'rng-c-parse-name-class #[257 "\302\303\304!!	\305\230\2037�\211\302B\211\203�\306\307!\210\310 \210\303\304!!\302B\241\210\262	\305\230\204�\311!\266\202\2028�\211)\207" [rng-c-had-except rng-c-current-token nil rng-c-parse-follow-annotations rng-c-parse-primary-name-class "|" rng-c-error "Parentheses required around name-class using - operator" rng-c-advance rng-make-choice-name-class] 7 (#$ . 19846)])
#@18

(fn ATTRIBUTE)
(defalias 'rng-c-parse-primary-name-class #[257 "\303	\"\203�\304\305\306\307!	\"!!\207\303\n	\"\203!�\304\305\310	!!!\207	\311\230\2037�\312!\211\2034�\313!\2026�\314 \207	G\211\315V\205E�	SH\316U\262\203c�\317\320	\315\321#!\312!\211\203_�\322\"\202b�\323!\207	\324\230\203u�\325 \210\326!\327\330!\210\211\207\303\331	\"\203\212�\304\305\306\307!\320	\332\"\"!!\207	\333\230\203\227�\334 \210\335!\207\336\337!\207" [rng-c-anchored-ncname-re rng-c-current-token rng-c-anchored-datatype-name-re string-match rng-c-advance-with rng-make-name-name-class rng-make-name rng-c-unqualified-namespace rng-c-expand-name "*" rng-c-parse-opt-except-name-class rng-make-any-name-except-name-class rng-make-any-name-name-class 0 42 rng-c-lookup-prefix substring -2 rng-make-ns-name-except-name-class rng-make-ns-name-name-class "(" rng-c-advance rng-c-parse-name-class rng-c-expect ")" "\\`\\\\" 1 "[" rng-c-parse-lead-annotation rng-c-parse-primary-name-class rng-c-error "Bad name class"] 8 (#$ . 20297)])
#@18

(fn ATTRIBUTE)
(defalias 'rng-c-parse-opt-except-name-class #[257 "\302 \210\303\230\205�	\203�\304\305!\205�\306\211\205�\302 \210\307!\207" [rng-c-current-token rng-c-had-except rng-c-advance "-" rng-c-error "Parentheses required around name-class using - operator" t rng-c-parse-primary-name-class] 3 (#$ . 21332)])
(defalias 'rng-c-parse-mixed #[0 "\300\301!\210\302\303 !\300\304!\210\211\207" [rng-c-expect "{" rng-make-mixed rng-c-parse-pattern "}"] 3])
(defalias 'rng-c-parse-list #[0 "\300\301!\210\302\303 !\300\304!\210\211\207" [rng-c-expect "{" rng-make-list rng-c-parse-pattern "}"] 3])
(defalias 'rng-c-parse-text #[0 "\300 \207" [rng-make-text] 1])
(defalias 'rng-c-parse-empty #[0 "\300 \207" [rng-make-empty] 1])
(defalias 'rng-c-parse-not-allowed #[0 "\300 \207" [rng-make-not-allowed] 1])
(defalias 'rng-c-parse-string #[0 "\301!\207" [rng-string-datatype rng-c-parse-data] 2])
(defalias 'rng-c-parse-token #[0 "\301!\207" [rng-token-datatype rng-c-parse-data] 2])
#@13

(fn NAME)
(defalias 'rng-c-parse-data #[257 "\302\303\"\203�\304\305 @\205�\306 #\207\307 \310\230\2035�	\203'�\311\312!\210\202)�\313\314 \210\315\316 #\2029�\317\"\207" [rng-c-current-token rng-c-had-except string-match "\\`['\"]" rng-make-value rng-c-parse-literal rng-c-make-context rng-c-parse-optional-params "-" rng-c-error "Parentheses required around pattern using -" t rng-c-advance rng-make-data-except rng-c-parse-primary rng-make-data] 6 (#$ . 22334)])
(defalias 'rng-c-parse-optional-params #[0 "\301\230\205:�\302\211B\211\303 \210\304\230\2043�\305\230\203�\306 \210\307 \310\311!\210\312!\313 B\302B\241\210\266\202\202
�\303 \210A\266\202\207" [rng-c-current-token "{" nil rng-c-advance "}" "[" rng-c-parse-lead-annotation rng-c-parse-identifier-or-keyword rng-c-expect "=" intern rng-c-parse-literal] 6])
(defalias 'rng-c-parse-external #[0 "\301\302 !\303 \304\305\")\207" [rng-c-inherit-namespace rng-c-expand-file rng-c-parse-literal rng-c-parse-opt-inherit rng-c-parse-file external] 4])
#@12

(fn URI)
(defalias 'rng-c-expand-file #[257 "\3011�\302\303\304!\"!0\207\305A@!\207" [rng-c-file-name (rng-uri-error) rng-uri-file-name rng-uri-resolve rng-file-name-uri rng-c-error] 6 (#$ . 23374)])
(defalias 'rng-c-parse-opt-inherit #[0 "\302\230\203�\303 \210\304\305!\210\306\307 !\207	\207" [rng-c-current-token rng-c-default-namespace "inherit" rng-c-advance rng-c-expect "=" rng-c-lookup-prefix rng-c-parse-identifier-or-keyword] 2])
(defalias 'rng-c-parse-grammar #[0 "\302\303!\210\304 \305\306!\210\307 *\207" [rng-c-current-grammar rng-c-parent-grammar rng-c-expect "{" rng-c-make-grammar rng-c-parse-grammar-body "}" rng-c-finish-grammar] 2])
(defalias 'rng-c-parse-lead-annotation #[0 "\301 \210\302\230\205\f�\303\304!\207" [rng-c-current-token rng-c-parse-annotation-body "[" rng-c-error "Multiple leading annotations"] 2])
#@12

(fn OBJ)
(defalias 'rng-c-parse-follow-annotations #[257 "\302\230\203 �\303 \210\304	\"\203�\303 \210\202�\305 \210\306\307!\210\202��\207" [rng-c-current-token rng-c-anchored-datatype-name-re ">>" rng-c-advance string-match rng-c-parse-identifier-or-keyword rng-c-parse-annotation-body t] 4 (#$ . 24231)])
(defalias 'rng-c-parse-annotation-element #[0 "\300 \210\301\302!\207" [rng-c-advance rng-c-parse-annotation-body t] 2])
#@121 Current token is [.  Parse up to matching ].
Current token after parse is token following ].

(fn &optional ALLOW-TEXT)
(defalias 'rng-c-parse-annotation-body #[256 "\302\230\204\n�\303\304!\210\305 \210\306\230\204[�\307\310\"\203(�\211\204\"�\303\311!\210\312 \210\202
�\307	\"\2035�\305 \210\2028�\313 \210\302\230\203E�\314\315!\210\202
�\316\230\203T�\305 \210\312 \210\202
�\303\317!\210\202
�\305 \207" [rng-c-current-token rng-c-anchored-datatype-name-re "[" rng-c-error "Expected [" rng-c-advance "]" string-match "\\`['\"]" "Out of place text within annotation" rng-c-parse-literal rng-c-parse-identifier-or-keyword rng-c-parse-annotation-body t "=" "Expected = or ["] 4 (#$ . 24673)])
#@16

(fn PATTERN)
(defalias 'rng-c-advance-with #[257 "\300 \210\207" [rng-c-advance] 2 (#$ . 25381)])
#@12

(fn STR)
(defalias 'rng-c-expect #[257 "\230\204\f�\301\302#\210\303 \207" [rng-c-current-token rng-c-error "Expected `%s' but got `%s'" rng-c-advance] 5 (#$ . 25487)])
(provide 'rng-cmpct)

${this.title}

Code Editor : rng-cmpct.elc