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



(require 'ebnf2ps)
#@26 List of empty rule name.
(defvar ebnf-empty-rule-list nil (#$ . 103))
#@54 Add empty RULE in `ebnf-empty-rule-list'.

(fn RULE)
(defalias 'ebnf-add-empty-rule-list #[257 "\205\211\302H\303H\304=\205\211\305H	B\211\207" [ebnf-ignore-empty-rule ebnf-empty-rule-list 7 0 ebnf-generate-empty 6] 3 (#$ . 179)])
#@23 Initialize optimizer.
(defalias 'ebnf-otz-initialize #[0 "\301\211\207" [ebnf-empty-rule-list nil] 2 (#$ . 422)])
#@42 Eliminate empty rules.

(fn SYNTAX-LIST)
(defalias 'ebnf-eliminate-empty-rules #[257 "\203Z\211G\303\304\211\203R\305\306\307\310	T\211\311_\n\245!#\266@\312
!\2031\266\202\202K\211\313HB\262
\203E
A\241\266\202KA\262\210A\262\202
*\266\202\207" [ebnf-empty-rule-list ebnf-nprod ebnf-total 0 nil "Eliminating empty rules" message "%s...%3d%%" round 100.0 ebnf-eliminate-empty 6] 13 (#$ . 543)])
#@13 

(fn RULE)
(defalias 'ebnf-eliminate-empty #[257 "\211\301H\211\302\267\202\252
\303H\235?\205\253
\207
\303H\303H\304\211\203G@\262
\305
!\2030\262\202@
\203<
A\241\210\202@A\262A\262\202\205Q\303I\210\207
\303H\303H\304\211\203\205@\262
\305
!\203n\262\202~
\203z
A\241\210\202~A\262A\262\202Z\205\231G\306U\203\223@\207\303I\210\207\305\307H!\211\205\251\307I\210\207
\207" [ebnf-empty-rule-list 0 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ebnf-generate-non-terminal 9 ebnf-generate-sequence 20 ebnf-generate-alternative 82 ebnf-generate-production 154)) 6 nil ebnf-eliminate-empty 1 7] 9 (#$ . 977)])
#@46 Syntactic chart optimizer.

(fn SYNTAX-LIST)
(defalias 'ebnf-optimize #[257 "\204\207\211G\303\304
\203 \305@!
B\262
A\262\202
\211\237*\207" [ebnf-optimize ebnf-nprod ebnf-total 0 nil ebnf-optimize1] 6 (#$ . 1687)])
#@13 

(fn PROD)
(defalias 'ebnf-optimize1 #[257 "\302\303\304\305T\211\306_	\245!#\266\211\307H\211\310H\311=\203\315\312
\313H\313H\"\211@
A\314\"\307\203k\315=\203;\316\262\317!\206B\262\320!\317
A!\206R\321
A!
@\203a\322
\"\266\202\202\312\323
\"\266\202\202\312\203\273\320!A\322\317!\206}\321!!\324!\211\203\212\211C\262\203\241G\325U\203\247@\310H\326=\203\247
\266\203\202\312\327\317	!\206\263\321	!D!\266\203\202\312\330!\206\312\317!\206\312I\266
\207" [ebnf-nprod ebnf-total "Optimizing syntactic chart" message "%s...%3d%%" round 100.0 7 0 ebnf-generate-alternative ebnf-split-header-prefix 6 ebnf-split-header-suffix t nil ebnf-prefix-suffix ebnf-extract-empty ebnf-create-alternative ebnf-make-zero-or-more ebnf-make-one-or-more ebnf-map-list-to-optional 1 ebnf-generate-empty ebnf-make-sequence ebnf-map-node-to-optional] 14 (#$ . 1922)])
#@25 

(fn NODE-LIST HEADER)
(defalias 'ebnf-split-header-prefix #[514 "\300\"\211@\301\211A\211\262\203@@\211\302H\303=\203:\211\304HA\211G\305U\203*\211@\2020
\304I\210
\262
B\262\210\202\306\266\202\202\211\203J\307 B\262\237B\207" [ebnf-split-header-prefix1 nil 0 ebnf-generate-sequence 6 1 t ebnf-make-empty] 11 (#$ . 2838)])
#@25 

(fn NODE-LIST HEADER)
(defalias 'ebnf-split-header-prefix1 #[514 "\300\211\203$\301@\"\203@B\262\202@
B\262
A\262\202\211\237\237B\207" [nil ebnf-node-equal-header] 7 (#$ . 3191)])
#@20 

(fn NODE HEADER)
(defalias 'ebnf-node-equal-header #[514 "
\300H\211\301\267\202\302\303H@\"\207\303H\230\207\304\207" [0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ebnf-generate-sequence 9 ebnf-generate-non-terminal 17)) ebnf-node-equal-header 6 nil] 6 (#$ . 3397)])
#@13 

(fn NODE)
(defalias 'ebnf-map-node-to-optional #[257 "\211\300H\301=\205
\302
\303H!\207" [0 ebnf-generate-alternative ebnf-map-list-to-optional 6] 4 (#$ . 3722)])
#@14 

(fn NLIST)
(defalias 'ebnf-map-list-to-optional #[257 "\211G\300U\205'\211@
A@
\301H\302=\203\303
!\207\211\301H\302=\203$\303!\207\266\304\207" [2 0 ebnf-generate-empty ebnf-make-optional nil] 5 (#$ . 3895)])
#@14 

(fn ELIST)
(defalias 'ebnf-extract-empty #[257 "\211\300\211\2030@\301H\302=\204\262\202)\303\262

\203%
A\241\210\202)A\262A\262\202\211B\207" [nil 0 ebnf-generate-empty t] 6 (#$ . 4119)])
#@20 

(fn NLIST ZLIST)
(defalias 'ebnf-split-header-suffix #[514 "\300\211G\301U\203:\302@
\2034\2034\303
@\"\262A\262
\302=\203,\302\262\202\f
B\262\202\f
\266\202\202vGGU\203u\302\211\203o\203o\303@@\"\262
A\262A\262\211\302=\203g\302\262\202C\211B\262\202C\211\262
\202v\300\205\254\304!\211G\211\305U\203\210\266\302\207\211\301U\203\234
@\262\203\232\306!\207
\207\203\246\307 B\262\310\237!\266\202\207" [nil 1 t ebnf-split-header-suffix1 ebnf-unique-list 0 ebnf-make-optional ebnf-make-empty ebnf-create-alternative] 9 (#$ . 4335)])
#@14 

(fn NE ZE)
(defalias 'ebnf-split-header-suffix1 #[514 "
\300H\301=\203b\211\300H\301=\205\233
\302H
\302H\303\211GGY\205a\304GGZ\262\233\262\211\203I
\203I\305@@\"\262

A\262A\262\202-\211\262
\205a
\300U\203Y\266\304\207
S\233\303\241\210\207\211\300H\301=\203\227\211\302H\211G\305S\233@\"\205\226\211\306U\203\204\266\304\207\211\307U\203\215
@\207\211\307Z\233\303\241\210\207\305\"\207" [0 ebnf-generate-sequence 6 nil t ebnf-node-equal 1 2] 10 (#$ . 4928)])
#@12 

(fn LIS)
(defalias 'ebnf-prefix-suffix #[257 "\211\2058\211<\2058\300
!\301
A!\211A@\262
@\262\204\"
\2056\302\2052\303!\2061\304!C\244\244!\266\203\207" [ebnf-split-prefix ebnf-split-suffix ebnf-make-sequence ebnf-map-list-to-optional ebnf-create-alternative] 8 (#$ . 5437)])
#@12 

(fn LIS)
(defalias 'ebnf-split-prefix #[257 "\211G
\211@\300H\301=\203@\302H\202@CT\211\300V\203cA\211\262\203c
@\300H\301=\2037@\302H\202:@C\300\203[
\203[\303@@\"\203[A\262
A\262\211T\262
\202;
^\266\204\202\211\300U\204o\211V\203s\304B\207\211\233\211\203\201
S\233\304\241\210\304\211@\300H\301=\203\222\204\241A\262	\262\305\262\202\275G\306U\203\261@\240\210\202\270@\302I\210A\262\203
@\304
\300H\301=\203\362\302H\233\211\262\203\362\211G\306U\203\347
@\240\210\202\354
\302I\210\262\202
\305\262\203
A\241\210\202
\nA\262A\262\266\202\275\307\203
\n\310 C\244\202!
\n!B\207" [0 ebnf-generate-sequence 6 ebnf-node-equal nil t 1 ebnf-unique-list ebnf-make-empty] 14 (#$ . 5737)])
#@12 

(fn LIS)
(defalias 'ebnf-split-suffix #[257 "\211G
\211@\300H\301=\203@\302H\202@C\237T\211\300V\203iA\211\262\203i
@\300H\301=\2038@\302H\202;@C\237\211\300\203^
\203^\303@@\"\203^A\262
A\262\211T\262
\202>\237\210
^\266\205\202
\237\262\211\300U\204y\211V\203}\304B\207
G
Z\211\233
\300V\205\222
S\233\304\241\210\304\211	@\300H\301=\203\242\204\261	A\262\n	\262\305\262
\202\315G\306U\203\301	@\240\210\202\310	@\302I\210	A\262\2032
@\304
\300H\301=\203

\302H\262
\211GZ\211\262\203
\300V\203
\306U\203

@\240\210\202
S
\233\304\241\210
\302I\210\262\202)
\305\262\203$
A\241\210\202)
A\262\fA\262\266\202\315\307\203A
\310 C\244\202C
!B\207" [0 ebnf-generate-sequence 6 ebnf-node-equal nil t 1 ebnf-unique-list ebnf-make-empty] 15 (#$ . 6527)])
#@14 

(fn NLIST)
(defalias 'ebnf-unique-list #[257 "\211\300
\203G
A@\300\2037\301@\"\204A\262\202\302\262
\300\262\2030A\241\210\202A\262\202\211\204>\262A\262\266\202\207" [nil ebnf-node-equal t] 9 (#$ . 7377)])
#@12 

(fn A B)
(defalias 'ebnf-node-equal #[514 "
\300H
\300H

=\205^
\301\267\202]\302\207\303H\303H\230\207\303H\303H
G
GU\205I\302\211\203F\203F\304@@\"\262
A\262
A\262\202+\211\262
\207\303H\303H\230\205^\304\305H\305H\"\207\306\207" [0 #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ebnf-generate-empty 18 ebnf-generate-non-terminal 20 ebnf-generate-terminal 20 ebnf-generate-special 20 ebnf-generate-alternative 28 ebnf-generate-sequence 28 ebnf-generate-production 74)) t 6 ebnf-node-equal 7 nil] 10 (#$ . 7625)])
#@12 

(fn ALT)
(defalias 'ebnf-create-alternative #[257 "\211G\300V\203\301
!\207\211@\207" [1 ebnf-make-alternative] 3 (#$ . 8208)])
(provide 'ebnf-otz)