;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 '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>\204b\317`Z\320_\245\321\322\"\"\266\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 ebnf-message-float] 8 (#$ . 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) (#$ . 3316)) #@40 Initializations for Yacc/Bison parser. (defalias 'ebnf-yac-initialize #[nil "\301\211\207" [ebnf-yac-token-list nil] 2 (#$ . 4100)]) #@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\202K\ngH\211\312=\204) \203. \313=\203.\314 \202H \315\267\202G\316 \202H\317 \202H\307u\210\320\211\202H\307\204\n`Y\203U\306\202\265 \321\267\202\261\311\322!\202\265\323 \324\202\265\325\326\327\330#\331\202\265\332\333!\211&\235\203\201\331\202\265 \334\230\203\216\335'\336\202\265\337\202\265\307u\210g\340=\203\242\307u\210\341\202\265\342\332\343!\226\344\"A\206\265\345\202\265\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 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (yac-code 52 slash 57 form-feed 62)) ebnf-yac-skip-code ebnf-yac-handle-comment form-feed #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (error 91 string 97 terminal 104 non-terminal 114 yac-pragma 146)) "Invalid character" ebnf-get-string string ebnf-string " -&(-~" 39 "terminal" terminal ebnf-buffer-substring "0-9A-Za-z_." "error" t yac-error non-terminal 37 yac-separator assoc "0-9A-Za-z_" (("TOKEN" . yac-token) ("RIGHT" . yac-token) ("LEFT" . yac-token) ("NONASSOC" . yac-token) ("PREC" . yac-prec)) yac-pragma ebnf-yac-token-list ebnf-yac-error] 5 (#$ . 4241)]) (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:\n w\210` Y\203`\2025g\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)