HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/progmodes/
Current File : //usr/share/emacs/26.1/lisp/progmodes/ebnf-yac.elc
;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-yac-lex' function.
(defvar ebnf-yac-lex nil (#$ . 428))
#@25 List of `%TOKEN' names.
(defvar ebnf-yac-token-list nil (#$ . 514))
#@70 Non-nil means skip printable characters with no grammatical meaning.
(defvar ebnf-yac-skip-char nil (#$ . 588))
#@33 Non-nil means "error" occurred.
(defvar ebnf-yac-error nil (#$ . 706))
#@20 yacc/Bison parser.
(defalias 'ebnf-yac-parser #[(start) "	ZT	S`\306\211\211	b\210\307 \211\310=\203\"\311\312!\210\313!\314=\204.\311\315!\210\307 \316>\204h\317`Z\320_\245\321\322\"\"\210*\323!\211A@\324\n!\2041\n\fB\2021
b\210\f.\207" [ebnf-limit start rule token syntax-list origin nil ebnf-yac-lex end-of-input error "Invalid Yacc/Bison file format" ebnf-yac-definitions yac-separator "Missing `%%%%'" (end-of-input yac-separator) "Parsing...%s%%" 100.0 message format ebnf-yac-rule ebnf-add-empty-rule-list bias total value format-str ebnf-message-float] 7 (#$ . 783)])
(defalias 'ebnf-yac-definitions #[(token) "\303	\304>\204U	\305\267\202N\306 \211\307=\2030\306 \310=\204\"\311\312!\210\306 \313=\204-\311\314!\210\306 \315	!\211A\n\244	@\202P\306 \310=\204I\311\316!\210\306 \202P\306 \211\202	)\207" [ebnf-yac-skip-char token ebnf-yac-token-list t (yac-separator end-of-input) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (yac-token 14 yac-prec 62)) ebnf-yac-lex open-angle non-terminal error "Missing type name" close-angle "Missing `>'" ebnf-yac-name-list "Missing prec name"] 3])
(defalias 'ebnf-yac-rule #[(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-yac-lex ebnf-action body action header token nil non-terminal error "Invalid rule name" colon "Invalid rule: missing `:'" ebnf-yac-alternative period "Invalid rule: missing `;'" ebnf-eps-add-production ebnf-make-production] 6])
(defalias 'ebnf-yac-alternative #[nil "\302\211\303 \211@\304=\203A\211\203	B\202\305	\"*\207" [sequence body nil ebnf-yac-sequence alternative ebnf-token-alternative] 3])
(defalias 'ebnf-yac-sequence #[nil "\305\211\211\211\306 \307\n!\211\203	B\202\n\f\205 ?\205'\310	!,B\207" [factor seq token ebnf-yac-error ebnf-yac-ignore-error-recovery nil ebnf-yac-lex ebnf-yac-factor ebnf-token-sequence] 4])
(defalias 'ebnf-yac-factor #[(token) "\302\267\202\303	!\207\304	!\207\305	!\207\306\207" [token ebnf-yac-lex #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (terminal 6 non-terminal 10 yac-error 14)) ebnf-make-terminal ebnf-make-non-terminal ebnf-make-special nil] 2])
(defalias 'ebnf-yac-name-list #[(token) "\303	\304=\203#\nB\302 \211\305=\203#\302 \304=\204\306\307!\210\202	)B\207" [names token ebnf-yac-lex nil non-terminal comma error "Missing token name"] 3])
#@51 Vector used to map characters to a lexical token.
(defconst ebnf-yac-token-table (byte-code "\301\302\303\"\304\305\306\"\210\304\307\310\"\210\311\312I\210\313\312I\210\314\312I\210\315\312I\210\316\317I\210\320\321I\210\322\323I\210\324\325I\210\326\327I\210\330\331I\210\332\333I\210\334\335I\210\336\337I\210\340\341I\210\342\343I\210\344\345I\210)\207" [table make-vector 256 error mapc #[(char) "	\302I\207" [table char non-terminal] 3] "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" #[(char) "	\302I\207" [table char character] 3] "!#$&()*+-.0123456789=?@[\\]^_`~" 10 space 13 9 32 12 form-feed 60 open-angle 62 close-angle 44 comma 37 yac-pragma 47 slash 123 yac-code 34 string 39 terminal 58 colon 124 alternative 59 period] 3) (#$ . 3339))
#@40 Initializations for Yacc/Bison parser.
(defalias 'ebnf-yac-initialize #[nil "\301\211\207" [ebnf-yac-token-list nil] 2 (#$ . 4123)])
#@107 Lexical analyzer for Yacc/Bison.

Return a lexical token.

See documentation for variable `ebnf-yac-lex'.
(defalias 'ebnf-yac-lex #[nil "`Y\203\306\207\307g\310V\203\311\202W\ngH\211\312=\204)\203.	\313=\203.\314 \202T	\315=\2039\316 \202T	\317=\203D\320 \202T	\321=\203S\307u\210\321\211\202T\307\204\n`Y\203a\306\202\331	\311=\203m\311\322!\202\331	\323=\203z\324 \323\202\331	\325=\203\212\326\327\330\331#\325\202\331	\332=\203\260\333\334!\211&\235\203\237\325\202\331
\335\230\203\254\336'\337\202\331\332\202\331	\340=\203\325\307u\210g\341=\203\306\307u\210\342\202\331\343\333\344!\226\345\"A\206\331\340\202\331\307u\210	)\207" [ebnf-limit token ebnf-yac-token-table ebnf-yac-skip-char ebnf-action ebnf-yac-lex end-of-input nil 255 error space character ebnf-yac-skip-spaces yac-code ebnf-yac-skip-code slash ebnf-yac-handle-comment form-feed "Invalid character" string ebnf-get-string terminal ebnf-string " -&(-~" 39 "terminal" non-terminal ebnf-buffer-substring "0-9A-Za-z_." "error" t yac-error yac-pragma 37 yac-separator assoc "0-9A-Za-z_" (("TOKEN" . yac-token) ("RIGHT" . yac-token) ("LEFT" . yac-token) ("NONASSOC" . yac-token) ("PREC" . yac-prec)) ebnf-yac-token-list ebnf-yac-error] 5 (#$ . 4264)])
(defalias 'ebnf-yac-skip-spaces #[nil "\203\302\202	\303	w\210`	W\207" [ebnf-yac-skip-char ebnf-limit "\n
	 !#$&()*+-.0123456789=?@[\\\\]^_`~" "\n
	 "] 2])
(defconst ebnf-yac-skip-chars (ebnf-range-regexp "^{}/'\"--" 127 255))
(defalias 'ebnf-yac-skip-code #[nil "\303u\210\304\305V\203]	\nw\210g\306U\203\303u\210T\211\202g\307U\203/\303u\210S\211\202g\310U\203;\311 \210\202g\312U\203G\313 \210\202g\314U\203V\315\316\314\317#\210\202\320\321!\210\202)\322 \207" [pair ebnf-yac-skip-chars ebnf-limit nil 1 0 123 125 47 ebnf-yac-handle-comment 34 ebnf-get-string 39 ebnf-string " -&(-~" "character" error "Invalid character" ebnf-yac-skip-spaces] 5])
(defalias 'ebnf-yac-handle-comment #[nil "\300u\210g\301U\203\302 \210\303 \207g\304U\203\300\210\303 \207\300\207" [nil 42 ebnf-yac-skip-comment ebnf-yac-skip-spaces 47] 2])
(defconst ebnf-yac-comment-chars (ebnf-range-regexp "^*--" 127 159))
(defalias 'ebnf-yac-skip-comment #[nil "\306u\210\203g\307U\203\310\311 !\210\202O\203'g\312U\203'\313\311 !\210\202O\2039g\314U\2039\315\311 !\210\202O\203Kg\316U\203K\317\311 !\210\202O	gH\320\205\206\f
w\210`
Y\203f\321\322!\210\202Qg\323U\203\324
w\210g\325U\203Q\306u\210\306\211\202R\321\326!\210\202Q)\207" [ebnf-eps-executing ebnf-comment-table ebnf-action not-end ebnf-yac-comment-chars ebnf-limit nil 91 ebnf-eps-add-context ebnf-yac-eps-filename 93 ebnf-eps-remove-context 72 ebnf-eps-header-comment 70 ebnf-eps-footer-comment t error "Missing end of comment: `*/'" 42 "*" 47 "Invalid character"] 3])
(defalias 'ebnf-yac-eps-filename #[nil "\304u\210\305`\306P\304	\204:\nw\210`Y\203`\2025g\307U\2034\310w\210g\311U\2055\312u\210`\2025`\211\203	*\"\207" [ebnf-yac-comment-chars found chars ebnf-limit nil buffer-substring-no-properties "\n" 42 "*" 47 -1] 5])
(provide 'ebnf-yac)