HOME

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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 'ebnf-otz)
#@44 Value returned by `ebnf-bnf-lex' function.
(defvar ebnf-bnf-lex nil (#$ . 428))
#@14 EBNF parser.
(defalias 'ebnf-bnf-parser #[(start) "	ZT	S`\306\211\211	b\210\307 \211\310=\203\"\311\312!\210\310=\204Y\313`Z\314_\245\315\316\"\"\210*\317!\211A@\320\n!\204\"\n\fB\202\"
b\210\f.\207" [ebnf-limit start rule token prod-list origin 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 bias total value format-str ebnf-message-float] 7 (#$ . 514)])
(defalias 'ebnf-production #[(token) "	\306\306
\307=\204\310\311!\210\300 \312=\204\310\313!\210\314 \211@\315=\204+\310\316!\210\nA\317\f!\210\300 \320\f\n#+B\207" [ebnf-bnf-lex ebnf-action body action header token nil non-terminal error "Invalid header production" equal "Invalid production: missing `='" ebnf-body period "Invalid production: missing `.'" ebnf-eps-add-production ebnf-make-production] 6])
(defalias 'ebnf-body #[nil "\302\211\303 \211@\304=\203A\211	B\202\305	\"*\207" [sequence body nil ebnf-sequence alternative ebnf-token-alternative] 4])
(defalias 'ebnf-sequence #[nil "\303 \304\211\305\n!\211@A\211\203	B\202\n\306	!+B\207" [term seq token ebnf-bnf-lex nil ebnf-exception ebnf-token-sequence] 4])
(defalias 'ebnf-exception #[(token) "\303!\211@\304=\204	\202\303\305 !\306\nA!\210\307	A\n\"))\207" [token term exception ebnf-repeat except ebnf-bnf-lex ebnf-no-non-terminal ebnf-token-except] 4])
(defalias 'ebnf-no-non-terminal #[(node) "\303!\205c\304H\211\305=\203\306\307!\202b	\310=\203$\311\312H!\202b	\313>\2032\311\314H!\202b	\315>\203F\311\314H!\210\311\312H!\202b	\316>\205b\314H\211\205a\311\n@!\210\nA\211\204T\317))\207" [node kind seq vectorp 0 ebnf-generate-non-terminal error "Exception sequence should not contain a non-terminal" ebnf-generate-repeat ebnf-no-non-terminal 7 (ebnf-generate-optional ebnf-generate-except) 6 (ebnf-generate-one-or-more ebnf-generate-zero-or-more) (ebnf-generate-alternative ebnf-generate-sequence) nil] 4])
(defalias 'ebnf-repeat #[(token) "\304=\204\n\305!\207	\306\301 \307=\204\310\311!\210\301 \211\304=\203'	\301 \312\305!\n#*\207" [token ebnf-bnf-lex upper times integer ebnf-term nil repeat error "Missing `*'" ebnf-token-repeat] 5])
(defalias 'ebnf-term #[(token) "\304!\211\203\305 \306\267\202d\305 	\2057	\307H\211\310>\203%	\2026\n\311=\2032\312	C!\2026\313	C!)B\202g\305 \304!\211\203M	\206L\314 \203V\305 \202W	\205_\313	\")B\202g	B)\207" [token factor kind sep 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 59)) 0 (ebnf-generate-zero-or-more ebnf-generate-one-or-more) ebnf-generate-optional ebnf-make-zero-or-more ebnf-make-one-or-more ebnf-make-empty] 5])
(defalias 'ebnf-factor #[(token) "\305\267\202k\306	!\207\307	!\207\310	!\207\311 \211@\312=\204 \313\314!\210\nA)\207\311 \211@\315=\2042\313\316!\210\317\nA!)\207\311 \211@\nA\320\321=\203R\311 \211@\nA\322\267\202f\323\f\"\202i\324\f\"\202i\313\325!,\207\320\207" [token ebnf-bnf-lex body list-part sep-part #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 36 begin-list 56)) 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 88 end-zero-or-more 95)) ebnf-make-one-or-more ebnf-make-zero-or-more "Missing `}+', `}*' or `}'"] 4])
#@51 Vector used to map characters to a lexical token.
(defconst ebnf-bnf-token-table (make-vector 256 'error) (#$ . 4221))
#@30 Initialize EBNF token table.
(defalias 'ebnf-bnf-initialize #[nil "\304\211\305W\203	\306I\210T\211\202\307W\203&	\310I\210T\211\202\311W\2038	\306I\210T\211\202'\312\211\313W\203L	\306I\210T\211\202;	\314\315I\210	\316\315I\210	\317\315I\210	\320\315I\210	\304\315I\210	\321\322I\210	\323\324I\210	\325\326I\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	\347\350I\210	\351\352I\210	\353\354I\210	\355\356I\210	\357\360I\210	\n\361I\210	\362I)\207" [char 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 (#$ . 4346)])
(defconst ebnf-bnf-non-terminal-chars (ebnf-range-regexp "!#%&'*-,0-:<>@-Z\\\\^-z~" 160 255))
#@101 Lexical analyzer for EBNF.

Return a lexical token.

See documentation for variable `ebnf-bnf-lex'.
(defalias 'ebnf-bnf-lex #[nil "`Y\203\306\207\307g\310V\203\311\202;\ngH\211\312\267\2027\313w\210`W\2028\314 \2028\307u\210\315\211\2028\307\204\n\307`Y\203G\306\202*
	\311=\203S\311\316!\202*
	\317=\203q\307u\210\ngH\320>\203k\305 \321\202*
\311\322!\202*
	\323=\203\324\325!\323\202*
	\326=\203\234*\205\213\327\330\331\332\333#*\205\226\327Q\326\202*
	\334=\203\253\335\336 !\334\202*
	\337=\203\345\324+!,\307-./\203\340\340/
\"\211-\203\340-\341U\203\340\341\225
GU\203\340\334\202\341\337*\202*
	\342=\203\f
\307u\210g\343U\203\373\307u\210\344\202*
g\345U\203
\307u\210\346\202*
\346\202*
	\347=\203&
\307u\210g\350U\204
\347\202*
\307u\210\351\202*
\307u\210	)\207" [ebnf-limit token ebnf-bnf-token-table ebnf-action ebnf-default-p ebnf-bnf-lex 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 31 comment 41 form-feed 46)) " \n
	" ebnf-bnf-skip-comment form-feed "Invalid character" default (terminal non-terminal special) t "Invalid `default' element" integer ebnf-buffer-substring "0-9" special "?" ebnf-string " ->@-~" 63 "special" terminal ebnf-unescape-string ebnf-get-string non-terminal string-match 0 end-list 43 end-one-or-more 42 end-zero-or-more alternative 124 list-separator ebnf-special-show-delimiter ebnf-bnf-non-terminal-chars ebnf-case-fold-search match case-fold-search ebnf-terminal-regexp] 6 (#$ . 5357)])
(defconst ebnf-bnf-comment-chars (ebnf-range-regexp "^\n--" 127 159))
(defalias 'ebnf-bnf-skip-comment #[nil "\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 #[nil "\301u\210\302!\207" [ebnf-bnf-comment-chars nil ebnf-buffer-substring] 2])
(defalias 'ebnf-unescape-string #[(str) "G\211S\306\211\nW\203'H\307U\203 \fT\310\202!\311\\\211\202\f\306U\2031\202}\312	\fZ\313\"\306\f\306\f\306V\203bH\307U\203QT\fS\f
HI\210
TT\202=	W\203z\f
HI\210
TT\211\202c\f*,\207" [str len size istr n-esc inew 0 92 2 1 make-string 32 new] 5])
(provide 'ebnf-bnf)