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



(require 'ebnf-otz)
#@44 Value returned by `ebnf-iso-lex' function.
(defvar ebnf-iso-lex nil (#$ . 104))
#@55 Used by `ebnf-iso-term' and `ebnf-iso-lex' functions.
(defvar ebnf-no-meta-identifier nil (#$ . 190))
#@30 ISO EBNF parser.

(fn START)
(defalias 'ebnf-iso-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-iso-lex end-of-input error "Invalid ISO EBNF file format" "Parsing...%s%%" 100.0 message format ebnf-iso-syntax-rule ebnf-add-empty-rule-list] 14 (#$ . 298)])
#@14 

(fn TOKEN)
(defalias 'ebnf-iso-syntax-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-iso-lex ebnf-action nil non-terminal error "Invalid meta identifier syntax rule" equal "Invalid syntax rule: missing `='" ebnf-iso-definition-list period "Invalid syntax rule: missing `;' or `.'" ebnf-eps-add-production ebnf-make-production] 9 (#$ . 745)])
(defalias 'ebnf-iso-definition-list #[0 "\300\211\301 \211\262@\302=\203\211A\262
\211B\262\202\303\"\207" [nil ebnf-iso-single-definition alternative ebnf-token-alternative] 5])
(defalias 'ebnf-iso-single-definition #[0 "\300\211\211\301\302 !\262
\211@\262\211A\211\262\203#\303=\203#\211B\262\202\304\203/B\2020!B\207" [nil ebnf-iso-term ebnf-iso-lex catenate ebnf-token-sequence] 7])
#@14 

(fn TOKEN)
(defalias 'ebnf-iso-term #[257 "\301
!\211@\302=\204\207\303\304
A\301\305 !\")\207" [ebnf-no-meta-identifier ebnf-iso-factor except t ebnf-token-except ebnf-iso-lex] 6 (#$ . 1623)])
#@14 

(fn TOKEN)
(defalias 'ebnf-iso-factor #[257 "\211\301=\203\300 \302=\204\303\304!\210\305
\306\300 !\"\207\306
!\207" [ebnf-iso-lex integer repeat error "Missing `*'" ebnf-token-repeat ebnf-iso-primary] 6 (#$ . 1828)])
#@14 

(fn TOKEN)
(defalias 'ebnf-iso-primary #[257 "\211\301\267\202Y\302!\202Z\303!\202Z\304!\202Z\305 \211@\306=\204%\307\310!\210\211A\262
\202Z\305 \211@\311=\2049\307\312!\210\313
A!\262
\202Z\305 \211A
@\314=\204Q\307\315!\210\316
!\266\202\202Z\317\211\203c\300 \202d

B\207" [ebnf-iso-lex #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (terminal 6 non-terminal 12 special 18 begin-group 24 begin-optional 44 begin-zero-or-more 66)) ebnf-make-terminal ebnf-make-non-terminal ebnf-make-special ebnf-iso-definition-list end-group error "Missing `)'" end-optional "Missing `]' or `/)'" ebnf-token-optional end-zero-or-more "Missing `}' or `:)'" ebnf-make-zero-or-more nil] 5 (#$ . 2060)])
#@51 Vector used to map characters to a lexical token.
(defconst ebnf-iso-token-table (byte-code "\300\301\302\"\303\211\304W\203

\305I\210\211T\262
\202\211\306W\203)

\307I\210\211T\262
\202\211\310W\203;

\305I\210\211T\262
\202)\211\311W\203M

\312I\210\211T\262
\202;\211\313W\203_

\305I\210\211T\262
\202M\211\314W\203q

\312I\210\211T\262
\202_\211\315W\203\203

\305I\210\211T\262
\202q\316\262
\211\301W\203\230

\312I\210\211T\262
\202\206
\317\320I\210
\321\320I\210
\322\320I\210
\323\320I\210
\303\320I\210
\324\325I\210
\326\312I\210
\327\330I\210
\331\332I\210
\333\334I\210
\335\336I\210
\337\340I\210
\341\342I\210
\343\344I\210
\345\346I\210
\207" [make-vector 256 error 32 48 character 58 integer 65 91 non-terminal 97 123 127 160 11 space 10 13 9 12 form-feed 95 34 double-terminal 39 single-terminal 63 special 42 repeat 44 catenate 45 except 61 equal 41 end-group] 5) (#$ . 2808))
#@34 Initialize ISO EBNF token table.
(defalias 'ebnf-iso-initialize #[0 "\203;	\302\303I\210	\304\305I\210	\306\305I\210	\307\305I\210	\310\305I\210	\311\305I\210	\312\305I\210	\313\314I\210	\315\316I\210	\317\320I\210	\321\322I\207	\302\323I\210	\304\324I\210	\306\325I\210	\307\326I\210	\310\327I\210	\311\316I\210	\312\322I\210	\313\305I\210	\315\305I\210	\317\305I\210	\321\305I\207" [ebnf-iso-alternative-p ebnf-iso-token-table 40 left-parenthesis 91 character 93 123 125 124 59 47 slash 33 alternative 58 colon 46 period begin-parenthesis begin-optional end-optional begin-zero-or-more end-zero-or-more] 3 (#$ . 3733)])
(defconst ebnf-iso-non-terminal-chars " 0-9A-Za-z_ -ÿ")
#@105 Lexical analyzer for ISO EBNF.

Return a lexical token.

See documentation for variable `ebnf-iso-lex'.
(defalias 'ebnf-iso-lex #[0 "`Y\203\306\207\307g\310V\203\311\262
\202X	gH\262
\211\312=\203*\313w\210`W\202U\211\314=\2046\211\315=\203E\307u\210g\316U\203X\317 \210\202	\211\320=\203T\307u\210\320\211\202U\307\204	`Y\203`\306\207\211\321\267\202\343\311\322!\207\323\324!\325\207\f\205u\326\327\330\331\332#\f\205\326Q\333\207\327\334\335\336#\337\207\327\340\341\336#\337\207\342\343\323
!!!0\203\244\311\344!\210\345\207\307u\210g\346U\203\264\307u\210\347\207g\350U\203\277\307u\210\351\207\352\207\307u\210g\353U\204\314\354\207\307u\210\355\207\307u\210g\353U\204\334\356\207\307u\210\357\207\352\207\307u\210\207" [ebnf-limit ebnf-iso-token-table ebnf-action ebnf-iso-lex ebnf-special-show-delimiter ebnf-iso-non-terminal-chars end-of-input nil 255 error space " \n
	" begin-parenthesis left-parenthesis 42 ebnf-iso-skip-comment form-feed #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (error 102 integer 106 special 112 double-terminal 131 single-terminal 139 non-terminal 147 left-parenthesis 166 slash 193 colon 209 begin-parenthesis 225)) "Invalid character" ebnf-buffer-substring "0-9" integer "?" ebnf-string " ->@-~" 63 "special" special " !#-~" 34 "terminal" terminal " -&(-~" 39 ebnf-iso-normalize ebnf-trim-right "Exception sequence should not contain a meta identifier" non-terminal 47 begin-optional 58 begin-zero-or-more begin-group 41 alternative end-optional character end-zero-or-more ebnf-no-meta-identifier] 6 (#$ . 4422)])
(defconst ebnf-iso-comment-chars "^*(--€-Ÿ")
(defalias 'ebnf-iso-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\320V\205\242\fw\210`\fY\203g\321\322!\210\202Pg\323U\203\201\324\fw\210g\325U\203P\305u\210\211S\262
\202Pg\326U\203\233\327\fw\210g\323U\203P\305u\210\211T\262
\202P\321\330!\210\202P\207" [ebnf-eps-executing ebnf-comment-table ebnf-action ebnf-iso-comment-chars ebnf-limit nil 91 ebnf-eps-add-context ebnf-iso-eps-filename 93 ebnf-eps-remove-context 72 ebnf-eps-header-comment 70 ebnf-eps-footer-comment 1 0 error "Missing end of comment: `*)'" 42 "*" 41 40 "(" "Invalid character"] 3])
(defalias 'ebnf-iso-eps-filename #[0 "\302u\210\303`\304P\302\211\204N
	w\210`	Y\203`\202Ig\305U\2032\306	w\210g\307U\205I\310u\210`\202Ig\311U\203H\302u\210g\305U\205I\310u\210`\202I`\262
\202	\262
\"\207" [ebnf-iso-comment-chars ebnf-limit nil buffer-substring-no-properties "\n" 42 "*" 41 -1 40] 6])
#@12 

(fn STR)
(defalias 'ebnf-iso-normalize #[257 "\204\207\211G\301\211
W\203;H\302U\204
T\262\202	
T\262
W\203	H\302U\203	
T\262\211T\262
\202\"\211\301U\203C\207\303Z\302\"\301\211\262\301V\203\231H\302U\204o

HI\210T\262\211T\262
\202M

HI\210T\262\211T\262
\301V\203MH\302U\203MT\262S\262\202\200W\203\263

HI\210T\262\211T\262
\202\231
\207" [ebnf-iso-normalize-p 0 32 make-string] 10 (#$ . 7140)])
(provide 'ebnf-iso)