JezK
Edit File: ebnf-yac.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:54:22 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/ebnf-yac.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-yac-lex' function. (defvar ebnf-yac-lex nil (#$ . 581)) #@25 List of `%TOKEN' names. (defvar ebnf-yac-token-list nil (#$ . 667)) #@70 Non-nil means skip printable characters with no grammatical meaning. (defvar ebnf-yac-skip-char nil (#$ . 741)) #@33 Non-nil means "error" occurred. (defvar ebnf-yac-error nil (#$ . 859)) #@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 (#$ . 936)]) (defalias 'ebnf-yac-definitions #[(token) "\303 \304>\204[ \305=\203> \306 \211\307=\2030 \306 \310=\204\" \311\312!\210\306 \313=\204- \311\314!\210\306 \315 !\211A\n\244 @\202V \316=\203T \306 \310=\204O \311\317!\210\306 \202V \306 \211\202 )\207" [ebnf-yac-skip-char token ebnf-yac-token-list t (yac-separator end-of-input) yac-token ebnf-yac-lex open-angle non-terminal error "Missing type name" close-angle "Missing `>'" ebnf-yac-name-list yac-prec "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=\203 A\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=\203\n \303 !\207\304=\203 \305 !\207\306=\203 \307 !\207\310\207" [token ebnf-yac-lex terminal ebnf-make-terminal non-terminal ebnf-make-non-terminal yac-error 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) (#$ . 3333)) #@40 Initializations for Yacc/Bison parser. (defalias 'ebnf-yac-initialize #[nil "\301\211\207" [ebnf-yac-token-list nil] 2 (#$ . 4117)]) #@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 (#$ . 4258)]) (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\202 g\307U\203/ \303u\210S\211\202 g\310U\203; \311 \210\202 g\312U\203G \313 \210\202 g\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\203 g\307U\203 \310\311 !\210\202O \203' g\312U\203' \313\311 !\210\202O \2039 g\314U\2039 \315\311 !\210\202O \203K g\316U\203K \317\311 !\210\202O gH\320 \205\206 \f w\210` Y\203f \321\322!\210\202Q g\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: \n w\210` Y\203 `\2025 g\307U\2034 \310 w\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)