ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/progmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/progmodes/ebnf-bnf.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 430))
#@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 (#$ . 516)])
(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) (#$ . 4019))
#@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 (#$ . 4144)])
(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\202G \ngH\211\312=\203) \313w\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\203\354 \3410
\"\211.\203\354 .\342U\203\354 \342\225
GU\203\354 \335\202\355 \340*\2026 \343=\203\307u\210g\344U\203\307u\210\345\2026g\346U\203\307u\210\347\2026\347\2026 \350=\2032\307u\210g\351U\204+\350\2026\307u\210\352\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 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 (#$ . 5155)])
(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 \2039 g\313U\2039 \314\310 !\210\202S \203K g\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\203b H\307U\203Q T\fS\f
HI\210
T T\202= W\203z \f
HI\210
T T\211\202c \f*,\207" [str len size istr n-esc inew 0 92 2 1 make-string 32 new] 5])
(provide 'ebnf-bnf)
Kontol Shell Bypass