;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'ebnf-otz)
#@44 Value returned by `ebnf-bnf-lex' function.
(defvar ebnf-bnf-lex nil (#$ . 104))
#@26 EBNF parser.

(fn START)
(defalias 'ebnf-bnf-parser #[257 "
ZT
S`\302\211\211b\210\303 \262
\304=\203\305\306!\210
\304=\204P\307`Z\310_\245\311\312	\"\"\266\313!\262
A\262

@\262\314
!\204\211B\262\202b\210\207" [ebnf-limit ebnf-message-float nil ebnf-bnf-lex end-of-input error "Invalid EBNF file format" "Parsing...%s%%" 100.0 message format ebnf-production ebnf-add-empty-rule-list] 14 (#$ . 190)])
#@14 

(fn TOKEN)
(defalias 'ebnf-production #[257 "	\302\211\303=\204\304\305!\210\300 \306=\204\304\307!\210\310 \262
\211@\311=\204)\304\312!\210\211A\262
\313!\210\300 \314#B\207" [ebnf-bnf-lex ebnf-action nil non-terminal error "Invalid header production" equal "Invalid production: missing `='" ebnf-body period "Invalid production: missing `.'" ebnf-eps-add-production ebnf-make-production] 9 (#$ . 624)])
(defalias 'ebnf-body #[0 "\300\211\301 \211\262@\302=\203\211A\262
\211B\262\202\303\"\207" [nil ebnf-sequence alternative ebnf-token-alternative] 5])
(defalias 'ebnf-sequence #[0 "\300 \301\211\302!\262
\211@\262\211A\211\262\203\211B\262\202\303!B\207" [ebnf-bnf-lex nil ebnf-exception ebnf-token-sequence] 6])
#@14 

(fn TOKEN)
(defalias 'ebnf-exception #[257 "\300
!\211@\301=\204\207\300\302 !\303
A!\210\304A\"\207" [ebnf-repeat except ebnf-bnf-lex ebnf-no-non-terminal ebnf-token-except] 6 (#$ . 1383)])
#@13 

(fn NODE)
(defalias 'ebnf-no-non-terminal #[257 "\300
!\205N\211\301H\211\302\267\202K\303\304!\202L\305\306H!\202L\305\307H!\202L\305\307H!\210\305\306H!\202L
\307H\211\205F\305
@!\210\211A\262
\2026\262
\202L\310\262
\207" [vectorp 0 #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ebnf-generate-non-terminal 15 ebnf-generate-repeat 21 ebnf-generate-optional 29 ebnf-generate-except 29 ebnf-generate-one-or-more 37 ebnf-generate-zero-or-more 37 ebnf-generate-alternative 51 ebnf-generate-sequence 51)) error "Exception sequence should not contain a non-terminal" ebnf-no-non-terminal 7 6 nil] 5 (#$ . 1586)])
#@14 

(fn TOKEN)
(defalias 'ebnf-repeat #[257 "\211\301=\204\n\302
!\207\303\300 \304=\204\305\306!\210\300 \262\301=\203(\262
\300 \262\307\302!#\207" [ebnf-bnf-lex integer ebnf-term nil repeat error "Missing `*'" ebnf-token-repeat] 7 (#$ . 2256)])
#@14 

(fn TOKEN)
(defalias 'ebnf-term #[257 "\300
!\211\203\301 \262
\302\267\202Z\301 
\2051
\303H\211\304\267\202+\202/\305C!\202/\306C!\262
B\207\301 \262\300!\211\203F
\206D\307 \262\211\203O\301 \202P\205X\306\"B\207

B\207" [ebnf-factor ebnf-bnf-lex #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (one-or-more 17 list 51)) 0 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ebnf-generate-zero-or-more 32 ebnf-generate-one-or-more 32 ebnf-generate-optional 36)) ebnf-make-zero-or-more ebnf-make-one-or-more ebnf-make-empty] 7 (#$ . 2520)])
#@14 

(fn TOKEN)
(defalias 'ebnf-factor #[257 "\211\301\267\202a\302!\207\303!\207\304!\207\305 \211@\306=\204\307\310!\210\211A\207\305 \211@\311=\204/\307\312!\210\313
A!\207\305 \211@
A\314\315=\203M\305 \262@\262A\262
\316\267\202]\317\"\207\320\"\207\307\321!\207\314\207" [ebnf-bnf-lex #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (terminal 6 non-terminal 10 special 14 begin-group 18 begin-optional 34 begin-list 52)) ebnf-make-terminal ebnf-make-non-terminal ebnf-make-special ebnf-body end-group error "Missing `)'" end-optional "Missing `]'" ebnf-token-optional nil list-separator #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (end-one-or-more 83 end-zero-or-more 88)) ebnf-make-one-or-more ebnf-make-zero-or-more "Missing `}+', `}*' or `}'"] 8 (#$ . 3165)])
#@51 Vector used to map characters to a lexical token.
(defconst ebnf-bnf-token-table (make-vector 256 'error) (#$ . 4034))
#@30 Initialize EBNF token table.
(defalias 'ebnf-bnf-initialize #[0 "\303\211\304W\203
\305I\210\211T\262
\202
\211\306W\203%
\307I\210\211T\262
\202\211\310W\2037
\305I\210\211T\262
\202%\311\262
\211\312W\203L
\305I\210\211T\262
\202:\313\314I\210\315\314I\210\316\314I\210\317\314I\210\303\314I\210\320\321I\210\322\323I\210\324\325I\210\326\327I\210\330\331I\210\332\333I\210\334\335I\210\336\337I\210\340\341I\210\342\343I\210\344\345I\210\346\347I\210\350\351I\210\352\353I\210\354\355I\210\356\357I\210	\360I\210\n\361I\207" [ebnf-bnf-token-table ebnf-lex-comment-char ebnf-lex-eop-char 32 48 non-terminal 58 integer 127 160 256 11 space 10 13 9 12 form-feed 34 terminal 63 special 40 begin-group 41 end-group 42 repeat 45 except 61 equal 91 begin-optional 93 end-optional 123 begin-list 124 alternative 125 end-list 47 list 43 one-or-more 36 default comment period] 4 (#$ . 4159)])
(defconst ebnf-bnf-non-terminal-chars "!#%&'*-,0-:<>@-Z\\\\^-z~ -ÿ")
#@101 Lexical analyzer for EBNF.

Return a lexical token.

See documentation for variable `ebnf-bnf-lex'.
(defalias 'ebnf-bnf-lex #[0 "`Y\203\306\207\307g\310V\203\311\262
\202<	gH\262
\211\312\267\2028\313w\210`W\2029\314 \2029\307u\210\315\211\2029\307\204	\307`Y\203F\306\207\211\316\267\202\337\311\317!\207\307u\210	gH\320>\203`\304 \321\207\311\322!\207\323\324!\325\207
\205o\326\327\330\331\332#
\205y\326Q\333\207\334\335 !\336\207\323)!*\307
+,\203\261\337,\f\"\211\262\203\261\211\340U\203\261\340\225\fGU\203\261\336\202\262\341)\207\307u\210g\342U\203\302\307u\210\343\207g\344U\203\315\307u\210\345\207\345\207\307u\210g\346U\204\332\347\207\307u\210\350\207\307u\210\207" [ebnf-limit ebnf-bnf-token-table ebnf-action ebnf-default-p ebnf-bnf-lex ebnf-special-show-delimiter end-of-input nil 255 error #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (space 32 comment 42 form-feed 47)) " \n
	" ebnf-bnf-skip-comment form-feed #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (error 76 default 80 integer 100 special 106 terminal 125 non-terminal 132 end-list 180 alternative 207)) "Invalid character" (terminal non-terminal special) t "Invalid `default' element" ebnf-buffer-substring "0-9" integer "?" ebnf-string " ->@-~" 63 "special" special ebnf-unescape-string ebnf-get-string terminal string-match 0 non-terminal 43 end-one-or-more 42 end-zero-or-more 124 alternative list-separator ebnf-bnf-non-terminal-chars ebnf-case-fold-search case-fold-search ebnf-terminal-regexp] 6 (#$ . 5160)])
(defconst ebnf-bnf-comment-chars "^\n--€-Ÿ")
(defalias 'ebnf-bnf-skip-comment #[0 "\305u\210\203g\306U\203\307\310 !\210\202S\203'g\311U\203'\312\310 !\210\202S\2039g\313U\2039\314\310 !\210\202S\203Kg\315U\203K\316\310 !\210\202S	gH\fw\210`\fY\203[\305\207g\317U\203f\305u\210\320\207\321\322!\207" [ebnf-eps-executing ebnf-comment-table ebnf-action ebnf-bnf-comment-chars ebnf-limit nil 91 ebnf-eps-add-context ebnf-bnf-eps-filename 93 ebnf-eps-remove-context 72 ebnf-eps-header-comment 70 ebnf-eps-footer-comment 10 t error "Invalid character"] 2])
(defalias 'ebnf-bnf-eps-filename #[0 "\301u\210\302!\207" [ebnf-bnf-comment-chars nil ebnf-buffer-substring] 2])
#@12 

(fn STR)
(defalias 'ebnf-unescape-string #[257 "\211G\211S\300\211
W\203$
H\301U\203
T\262\302\202\303\\\262\202\211\300U\203,\207\304Z\305\"\300\211\262\300V\203aH\301U\203MT\262S\262

HI\210\211T\262
T\262\2026W\203|

HI\210\211T\262
T\262\202a
\207" [0 92 2 1 make-string 32] 11 (#$ . 7476)])
(provide 'ebnf-bnf)