WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/progmodes
Viewing File: /usr/share/emacs/24.3/lisp/progmodes/ebnf-bnf.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:53:32 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/ebnf-bnf.el
;;; in Emacs version 24.3.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 (#$ . 581))
#@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!\211A@\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 (#$ . 667)])
(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=\203A\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=\203;\305 	\2057	\307H\211\310>\203%	\2026\n\311=\2032\312	C!\2026\313	C!)B\202m\314=\203j\305 \304!\211\203S	\206R\315 \203\\\305 \202]	\205e\313	\")B\202m	B)\207" [token factor kind sep ebnf-factor ebnf-bnf-lex one-or-more 0 (ebnf-generate-zero-or-more ebnf-generate-one-or-more) ebnf-generate-optional ebnf-make-zero-or-more ebnf-make-one-or-more list ebnf-make-empty] 5])
(defalias 'ebnf-factor #[(token) "\305=\203\n\306	!\207\307=\203\310	!\207\311=\203\312	!\207\313=\2036\314 \211@\315=\2042\316\317!\210\nA)\207\320=\203P\314 \211@\321=\204J\316\322!\210\323\nA!)\207\324=\203\217\314 \211@\nA\325\326=\203p\314 \211@\nA\327=\203}\330\f\"\202\215\331=\203\212\332\f\"\202\215\316\333!,\207\325\207" [token ebnf-bnf-lex body list-part sep-part terminal ebnf-make-terminal non-terminal ebnf-make-non-terminal special ebnf-make-special begin-group ebnf-body end-group error "Missing `)'" begin-optional end-optional "Missing `]'" ebnf-token-optional begin-list nil list-separator end-one-or-more ebnf-make-one-or-more end-zero-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) (#$ . 4170))
#@30 Initialize EBNF token table.
(defalias 'ebnf-bnf-initialize #[nil "\304\211\305W\203	\306I\210T\211\202\307W\203&	\310I\210T\211\202\311W\2038	\306I\210T\211\202'\312\211\313W\203L	\306I\210T\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 (#$ . 4295)])
(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\307g\310V\203\311\202G\ngH\211\312=\203)\313w\210`W\202D	\314=\2034\315 \202D	\316=\203C\307u\210\316\211\202D\307\204\n\307`Y\203S\306\2026	\311=\203_\311\317!\2026	\320=\203}\307u\210\ngH\321>\203w\305 \322\2026\311\323!\2026	\324=\203\213\325\326!\324\2026	\327=\203\250,\205\227\330\331\332\333\334#,\205\242\330Q\327\2026	\335=\203\267\336\337 !\335\2026	\340=\203\361\325-!.\307/01\203\354\3411
\"\211/\203\354\342/!\203\354\343\225
GU\203\354\335\202\355\340*\2026	\344=\203\307u\210g\345U\203\307u\210\346\2026g\347U\203\307u\210\350\2026\350\2026	\351=\2032\307u\210g\352U\204+\351\2026\307u\210\353\2026\307u\210	)\207" [ebnf-limit token ebnf-bnf-token-table ebnf-action ebnf-default-p ebnf-bnf-lex end-of-input nil 255 error space " \n
	" comment 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 zerop 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 (#$ . 5306)])
(defconst ebnf-bnf-comment-chars (ebnf-range-regexp "^\n--" 127 159))
(defalias 'ebnf-bnf-skip-comment #[nil "\305u\210\203g\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\211S\306\211\nW\203'H\307U\203 \fT\310\202!\311\\\211\202\312\f!\2031\202}\313	\fZ\314\"\306
\306\f\306V\203bH\307U\203QT\fS

HI\210
TT\202=	W\203z

HI\210
TT\211\202c
*,\207" [str len size istr n-esc inew 0 92 2 1 zerop make-string 32 new] 5])
(provide 'ebnf-bnf)
F1l3 Manager
