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



(require 'ebnf-otz)
#@44 Value returned by `ebnf-yac-lex' function.
(defvar ebnf-yac-lex nil (#$ . 104))
#@25 List of `%TOKEN' names.
(defvar ebnf-yac-token-list nil (#$ . 190))
#@70 Non-nil means skip printable characters with no grammatical meaning.
(defvar ebnf-yac-skip-char nil (#$ . 264))
#@33 Non-nil means "error" occurred.
(defvar ebnf-yac-error nil (#$ . 382))
#@32 Yacc/Bison parser.

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

@\262\320
!\204,\211B\262\202,b\210\207" [ebnf-limit ebnf-message-float nil ebnf-yac-lex end-of-input error "Invalid Yacc/Bison file format" ebnf-yac-definitions yac-separator "Missing `%%%%'" (end-of-input yac-separator) "Parsing...%s%%" 100.0 message format ebnf-yac-rule ebnf-add-empty-rule-list] 14 (#$ . 459)])
#@14 

(fn TOKEN)
(defalias 'ebnf-yac-definitions #[257 "\302\211\303>\204X\211\304\267\202Q\305 \262
\211\306=\2032\305 \307=\204#\310\311!\210\305 \312=\204.\310\313!\210\305 \262
\314
!\262
\211A	\244\211@\202S\305 \307=\204L\310\315!\210\305 \202S\305 \262
\202)\207" [ebnf-yac-skip-char ebnf-yac-token-list t (yac-separator end-of-input) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (yac-token 14 yac-prec 65)) ebnf-yac-lex open-angle non-terminal error "Missing type name" close-angle "Missing `>'" ebnf-yac-name-list "Missing prec name"] 3 (#$ . 1024)])
#@14 

(fn TOKEN)
(defalias 'ebnf-yac-rule #[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-yac-lex ebnf-action nil non-terminal error "Invalid rule name" colon "Invalid rule: missing `:'" ebnf-yac-alternative period "Invalid rule: missing `;'" ebnf-eps-add-production ebnf-make-production] 9 (#$ . 1638)])
(defalias 'ebnf-yac-alternative #[0 "\300\211\301 \211\262@\302=\203\211A\211\262\203\211B\262\202\303\"\207" [nil ebnf-yac-sequence alternative ebnf-token-alternative] 5])
(defalias 'ebnf-yac-sequence #[0 "\302\211\211\211\303 \262\304!\211\262\203\211B\262\202	\205!?\205(\305!)B\207" [ebnf-yac-error ebnf-yac-ignore-error-recovery nil ebnf-yac-lex ebnf-yac-factor ebnf-token-sequence] 7])
#@14 

(fn TOKEN)
(defalias 'ebnf-yac-factor #[257 "\211\301\267\202\302!\207\303!\207\304!\207\305\207" [ebnf-yac-lex #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (terminal 6 non-terminal 10 yac-error 14)) ebnf-make-terminal ebnf-make-non-terminal ebnf-make-special nil] 3 (#$ . 2474)])
#@14 

(fn TOKEN)
(defalias 'ebnf-yac-name-list #[257 "\301
\302=\203$
B\262
\300 \262
\303=\203$\300 \302=\204\304\305!\210\202

B\207" [ebnf-yac-lex nil non-terminal comma error "Missing token name"] 4 (#$ . 2808)])
#@51 Vector used to map characters to a lexical token.
(defconst ebnf-yac-token-table (byte-code "\300\301\302\"\303\304\305\"\306\"\210\303\304\307\"\310\"\210\211\311\312I\210\211\313\312I\210\211\314\312I\210\211\315\312I\210\211\316\317I\210\211\320\321I\210\211\322\323I\210\211\324\325I\210\211\326\327I\210\211\330\331I\210\211\332\333I\210\211\334\335I\210\211\336\337I\210\211\340\341I\210\211\342\343I\210\211\344\345I\210\207" [make-vector 256 error mapc make-closure #[257 "\300
\301I\207" [V0 non-terminal] 4 "\n\n(fn CHAR)"] "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" #[257 "\300
\301I\207" [V0 character] 4 "\n\n(fn CHAR)"] "!#$&()*+-.0123456789=?@[\\]^_`~" 10 space 13 9 32 12 form-feed 60 open-angle 62 close-angle 44 comma 37 yac-pragma 47 slash 123 yac-code 34 string 39 terminal 58 colon 124 alternative 59 period] 5) (#$ . 3035))
#@40 Initializations for Yacc/Bison parser.
(defalias 'ebnf-yac-initialize #[0 "\301\211\207" [ebnf-yac-token-list nil] 2 (#$ . 3901)])
#@107 Lexical analyzer for Yacc/Bison.

Return a lexical token.

See documentation for variable `ebnf-yac-lex'.
(defalias 'ebnf-yac-lex #[0 "`Y\203\306\207\307g\310V\203\311\262
\202L	gH\262
\211\312=\204*\n\203/\211\313=\203/\314 \202I\211\315\267\202H\316 \202I\317 \202I\307u\210\320\211\202I\307\204	`Y\203T\306\207\211\321\267\202\237\311\322!\207\323 \324\207\325\326\327\330#\331\207\332\333!\211
\235\203w\331\207\f\334\230\203\202\335&\336\207\337\207\307u\210g\340=\203\222\307u\210\341\207\342\332\343!\226\344\"A\206\243\345\207\307u\210\211\207" [ebnf-limit ebnf-yac-token-table ebnf-yac-skip-char ebnf-action ebnf-yac-lex ebnf-yac-token-list end-of-input nil 255 error space character ebnf-yac-skip-spaces #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (yac-code 53 slash 58 form-feed 63)) ebnf-yac-skip-code ebnf-yac-handle-comment form-feed #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (error 90 string 94 terminal 99 non-terminal 107 yac-pragma 132)) "Invalid character" ebnf-get-string string ebnf-string " -&(-~" 39 "terminal" terminal ebnf-buffer-substring "0-9A-Za-z_." "error" t yac-error non-terminal 37 yac-separator assoc "0-9A-Za-z_" (("TOKEN" . yac-token) ("RIGHT" . yac-token) ("LEFT" . yac-token) ("NONASSOC" . yac-token) ("PREC" . yac-prec)) yac-pragma ebnf-yac-error] 6 (#$ . 4040)])
(defalias 'ebnf-yac-skip-spaces #[0 "\203\302\202	\303	w\210`	W\207" [ebnf-yac-skip-char ebnf-limit "-\n
	 !#$&()*+,.0123456789=?@[\\\\]^_`~" "\n
	 "] 2])
(defconst ebnf-yac-skip-chars "^{}/'\"--€-Ÿ")
(defalias 'ebnf-yac-skip-code #[0 "\302u\210\303\211\304V\203\\	w\210g\305U\203\302u\210\211T\262
\202g\306U\203.\302u\210\211S\262
\202g\307U\203:\310 \210\202g\311U\203F\312 \210\202g\313U\203U\314\315\313\316#\210\202\317\320!\210\202\210\321 \207" [ebnf-yac-skip-chars ebnf-limit nil 1 0 123 125 47 ebnf-yac-handle-comment 34 ebnf-get-string 39 ebnf-string " -&(-~" "character" error "Invalid character" ebnf-yac-skip-spaces] 5])
(defalias 'ebnf-yac-handle-comment #[0 "\300u\210g\301U\203\302 \210\303 \207g\304U\203\300\210\303 \207\300\207" [nil 42 ebnf-yac-skip-comment ebnf-yac-skip-spaces 47] 2])
(defconst ebnf-yac-comment-chars "^*--€-Ÿ")
(defalias 'ebnf-yac-skip-comment #[0 "\305u\210\203g\306U\203\307\310 !\210\202O\203'g\311U\203'\312\310 !\210\202O\2039g\313U\2039\314\310 !\210\202O\203Kg\315U\203K\316\310 !\210\202O	gH\317\211\205\205\fw\210`\fY\203e\320\321!\210\202Pg\322U\203~\323\fw\210g\324U\203P\305u\210\305\262
\202P\320\325!\210\202P\207" [ebnf-eps-executing ebnf-comment-table ebnf-action ebnf-yac-comment-chars ebnf-limit nil 91 ebnf-eps-add-context ebnf-yac-eps-filename 93 ebnf-eps-remove-context 72 ebnf-eps-header-comment 70 ebnf-eps-footer-comment t error "Missing end of comment: `*/'" 42 "*" 47 "Invalid character"] 3])
(defalias 'ebnf-yac-eps-filename #[0 "\302u\210\303`\304P\302\211\2048
	w\210`	Y\203`\2023g\305U\2032\306	w\210g\307U\2053\310u\210`\2023`\262
\202	\262
\"\207" [ebnf-yac-comment-chars ebnf-limit nil buffer-substring-no-properties "\n" 42 "*" 47 -1] 6])
(provide 'ebnf-yac)