Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/progmodes/ebnf-otz.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'ebnf2ps)
#@26 List of empty rule name.
(defvar ebnf-empty-rule-list nil (#$ . 427))
#@43 Add empty RULE in `ebnf-empty-rule-list'.
(defalias 'ebnf-add-empty-rule-list #[(rule) "\205	\303H\304H\305=\205	\306H\nB\211\207" [ebnf-ignore-empty-rule rule ebnf-empty-rule-list 7 0 ebnf-generate-empty 6] 2 (#$ . 503)])
#@23 Initialize optimizer.
(defalias 'ebnf-otz-initialize #[nil "\301\211\207" [ebnf-empty-rule-list nil] 2 (#$ . 738)])
#@24 Eliminate empty rules.
(defalias 'ebnf-eliminate-empty-rules #[(syntax-list) "\203Z	G\306	\307\211\f\203T\310\311\312\313
T\211\314_\245!#\266\f@\315!\2036\f\202L\316HB\n\203I\n\fA\241\210\202L	A)\fA\211\204-\202	\207" [ebnf-empty-rule-list syntax-list before new-list prod-list ebnf-nprod 0 nil "Eliminating empty rules" message "%s...%3d%%" round 100.0 ebnf-eliminate-empty 6 ebnf-total rule] 8 (#$ . 861)])
(defalias 'ebnf-eliminate-empty #[(rule) "\306H\211\307\267\202\311\310H\n\235?\205\312\202\312\310H\310H\311\211\211
\203Q
@\312!\2038
\202H\f\203E\f
A\241\210\202H
A
A\211
\204(
\205[\310
I\210,\202\312\310H\310H\311\211\211
\203\231
@\312!\203\200
\202\220\f\203\215\f
A\241\210\202\220
A
A\211
\204p
\205\257
G\313U\203\251
@\202\257\310
I\210,\202\312\312\314H!\211\205\305\314I\210)\202\312)\207" [rule kind ebnf-empty-rule-list elt before header 0 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ebnf-generate-non-terminal 10 ebnf-generate-sequence 23 ebnf-generate-alternative 95 ebnf-generate-production 179)) 6 nil ebnf-eliminate-empty 1 7 seq prod] 5])
#@28 Syntactic chart optimizer.
(defalias 'ebnf-optimize #[(syntax-list) "\204	\207	G\305\306	\203\307	@!\nB	A\211\204\n\237+\207" [ebnf-optimize syntax-list new ebnf-nprod ebnf-total 0 nil ebnf-optimize1] 4 (#$ . 2083)])
(defalias 'ebnf-optimize1 #[(prod) "\306\307\310\311T\211\312_	\245!#\266\n\313H\211\314H\315=\203\340\316\317H\n\317H\"\211@\fA\320
\"\n\313\203}\321=\203E\322\323!\206N\324
!\323A!\206b\325A! @\203s\326 \"\202y\327 \"*\202\335\203\320\324!A!\326\323!!\206\225\325!!!\"\330
!\211#\203\245#C
\203\271
G\331U\203\276
@\314H\332=\203\276\"\202\314\333\323
!\206\310\325
!\"D!+\202\335\334!\206\335\323
!\206\335I\210,\n)\207" [ebnf-nprod ebnf-total prod production hlist nlist "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 zlist elist nl el xlist znode nnode] 8])
(defalias 'ebnf-split-header-prefix #[(node-list header) "\306	\"\211@\307\211\nA\211\203I\n@\211\310H\311=\203C\312HA\211G\313U\2033@\202<\312I\210)\fB\202E\314)\202\f
\203R\315 \fB\f\237,B\207" [node-list header hlist nlist zlist empty-p ebnf-split-header-prefix1 nil 0 ebnf-generate-sequence 6 1 t ebnf-make-empty elt seq] 4])
(defalias 'ebnf-split-header-prefix1 #[(node-list header) "\304\211\n\203$\305\n@\"\203\n@	B\202\n@B\nA\211\204\237	\237*B\207" [nlist hlist node-list header nil ebnf-node-equal-header] 4])
(defalias 'ebnf-node-equal-header #[(node header) "\303H\211\304\267\202\305\306H@\n\"\202\306H\n\230\202\307)\207" [node kind header 0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ebnf-generate-sequence 10 ebnf-generate-non-terminal 20)) ebnf-node-equal-header 6 nil] 4])
(defalias 'ebnf-map-node-to-optional #[(node) "\301H\302=\205
\303\304H!\207" [node 0 ebnf-generate-alternative ebnf-map-list-to-optional 6] 3])
(defalias 'ebnf-map-list-to-optional #[(nlist) "G\303U\205,@A@\211\304H\305=\203\306	!\202+	\304H\305=\203*\306\n!\202+\307*\207" [nlist second first 2 0 ebnf-generate-empty ebnf-make-optional nil] 3])
(defalias 'ebnf-extract-empty #[(elist) "\304\211\211\2030@\305H\306=\204\202)\307\n\203&\nA\241\210\202)AA\211\204\n	+B\207" [elist empty-p before now nil 0 ebnf-generate-empty t] 4])
(defalias 'ebnf-split-header-suffix #[(nlist zlist) "\306\211\nG\307U\2038\310\n@\f\2033
\2033\311
@\"
A\f\310=\203,\310\202\f	B\202\f*\202o\nG
GU\203n\310\f\203i
\203i\311\n@
@\"\nA
A\f\310=\203b\310\202B\f	B\202B\f)\202o\306\205\262\312	!\211G\211\313U\203\205\310\202\261\307U\203\241@\203\234\314!\202\261\202\261\203\254\315 B\316\237!**\207" [empty-p new nlist elt ok zlist nil 1 t ebnf-split-header-suffix1 ebnf-unique-list 0 ebnf-make-optional ebnf-make-empty ebnf-create-alternative lis len] 4])
(defalias 'ebnf-split-header-suffix1 #[(ne ze) "\306H\307=\203e	\306H\307=\205\243\310H	\310H\311\211\fG
GY\205c\312\fG
GZ\211\f\233\203K\n\203K\313\n@
@\"\nA
A\2021)\205c\306U\203[\312\202cS\f\233\311\241\210	,\207	\306H\307=\203\237	\310H\211G\313S\f\233@\"\205\235\314U\203\211\312\202\235\315U\203\224\f@\202\235\315Z\f\233\311\241\210	*\207\313	\"\207" [ne ze z len zl nl 0 ebnf-generate-sequence 6 nil t ebnf-node-equal 1 2 ok] 5])
(defalias 'ebnf-prefix-suffix #[(lis) "\2058<\2058\304!\305	A!\211A	@\n@	\204#\n\2057\306	\2053\307!\2062\310!C\244\n\244!+\207" [lis prefix suffix middle ebnf-split-prefix ebnf-split-suffix ebnf-make-sequence ebnf-map-list-to-optional ebnf-create-alternative] 5])
(defalias 'ebnf-split-prefix #[(lis) "G@\306H\307=\203@\310H\202@C	T\f\306V\203p\nA\211\203p\n@\306H\307=\203:\n@\310H\202=\n@C\306\203h\203h\311@@\"\203hAA
T\202C\f
^+\202\f\306U\204|\f	V\203\202\312B\2026\f\233\211\203\221\fS\233\312\241\210\312\211@\306H\307=\203\247\n\204\262A\211\313\202\312\nG\314U\203\301\n@\240\210\202\307@\310\nI\210A\n\203\"\n@\312\211\306H\307=\203\f\310H\233\211\203G\314U\203\372\n@\240\210\202\310I\210\n\202\313\203\nA\241\210\202A\nA*\202\312\315\2032\316 C\244\2023!,B,\207" [lis len tail head ipre i 0 ebnf-generate-sequence 6 ebnf-node-equal nil t 1 ebnf-unique-list ebnf-make-empty this cur prefix empty-p before rest elt] 5])
(defalias 'ebnf-split-suffix #[(lis) "G@\306H\307=\203@\310H\202@C\237	T\f\306V\203x\nA\211\203x\n@\306H\307=\203<\n@\310H\202?\n@C\237\211\306
\203k\203k\311
@@\"\203k
AAT\202H\237\210\f^,\202\237\f\306U\204\207\f	V\203\215\312B\202^G\fZ\211\233\306V\205\250S\233\312\241\210\312\211@\306H\307=\203\274\n\204\307A\211\313\202\337\nG\314U\203\326\n@\240\210\202\334@\310\nI\210A\n\203J\n@\312\211\306H\307=\203/\310H\211G\fZ\211\203/\306V\203/\314U\203\n@\240\210\202)S\233\312\241\210\310I\210\n\202C\313\203@\nA\241\210\202CA\nA*\202\337\315\203Z\316 C\244\202[!-B,\207" [lis len tail head isuf cur 0 ebnf-generate-sequence 6 ebnf-node-equal nil t 1 ebnf-unique-list ebnf-make-empty tlis this i n suffix before empty-p rest elt] 5])
(defalias 'ebnf-unique-list #[(nlist) "\306\n\203F\nA\n@\306
\2039\307\f
@\"\204#
A\211\202\310\306	\2033	\nA\241\210\202A\202\204?\n\nA+\202*\207" [nlist before current remove-p head tail nil ebnf-node-equal t] 4])
(defalias 'ebnf-node-equal #[(A B) "\306H	\306H\211\n=\205l\307\267\202k\310\202l\311H	\311H\230\202l\311H	\311H\211G\fGU\205R\310

\203O
\203O\312
@\f@\"

A\fA\2025
)*\202l\311H	\311H\230\205l\312\313H	\313H\"\202l\314*\207" [A B kindB kindA listB listA 0 #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ebnf-generate-empty 20 ebnf-generate-non-terminal 24 ebnf-generate-terminal 24 ebnf-generate-special 24 ebnf-generate-alternative 34 ebnf-generate-sequence 34 ebnf-generate-production 86)) t 6 ebnf-node-equal 7 nil ok] 5])
(defalias 'ebnf-create-alternative #[(alt) "G\301V\203\302!\207@\207" [alt 1 ebnf-make-alternative] 2])
(provide 'ebnf-otz)