Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/bovine.elc
;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 'semantic)
#@114 Obarray of streams already parsed for nonterminal symbols.
Use this to detect infinite recursion during a parse.
(defvar semantic-bovinate-nonterminal-check-obarray nil (#$ . 429))
(make-variable-buffer-local 'semantic-bovinate-nonterminal-check-obarray)
#@136 Create a lambda expression to return a list including RETURN-VAL.
The return list is a lambda expression to be used in a bovine table.
(defalias 'semantic-lambda '(macro . #[(&rest return-val) "\301\302\303\211\304\"BE\207" [return-val lambda (vals start end) append ((list start end))] 6 (#$ . 691)]))
#@66 Return non-nil if SYM is in TABLE, indicating it is NONTERMINAL.
(defalias 'semantic-bovinate-symbol-nonterminal-p #[(sym table) " \236\205 \302\207" [sym table t] 2 (#$ . 1001)])
(put 'semantic-bovinate-symbol-nonterminal-p 'byte-optimizer 'byte-compile-inline-expand)
#@145 Return the current nonterminal symbol.
Part of the grammar source debugger. Depends on the existing
environment of `semantic-bovinate-stream'.
(defalias 'semantic-bovinate-nonterminal-db-nt '(macro . #[nil "\300\207" [(if nt-stack (car (aref (car nt-stack) 2)) nonterminal)] 1 (#$ . 1280)]))
#@115 Check if STREAM not already parsed for NONTERMINAL.
If so abort because an infinite recursive parse is suspected.
(defalias 'semantic-bovinate-nonterminal-check #[(stream nonterminal) "\306!\204 \307\310\311\"\312 !\313\n\"J\f >\203* \314\211 \311\315\316\n\"*\2022 \317\n\"\f BL*\207" [semantic-bovinate-nonterminal-check-obarray nonterminal nt vs stream debug-on-error vectorp make-vector 13 nil symbol-name intern-soft t error "Infinite recursive parse suspected on %s" intern debug-on-signal] 3 (#$ . 1580)])
#@338 Bovinate STREAM, starting at the first NONTERMINAL rule.
Use `bovine-toplevel' if NONTERMINAL is not provided.
This is the core routine for converting a stream into a table.
Return the list (STREAM SEMANTIC-STREAM) where STREAM are those
elements of STREAM that have not been used. SEMANTIC-STREAM is the
list of semantic tokens found.
(defalias 'semantic-bovinate-stream #[(stream &optional nonterminal) "\204 \306 \204 \307\n\"\210 \f\236A \n '\310 (\311\211 ) *\311\211 + ,\311\211 - .\311\211 / 0\311\211 1 2\311 3\3121;(\2057\31323\311)\n@\211\211A@\247\204] \211AA\202_ \211A\262A\2622(\204p )\2052\311\211(1)\204
\203\271)\203\212 \311)\202\247 \n+\3110
@-\314-@!\204\243 -@<\203\247 \311C0-\203B\314-@!\204B-@<\204B\315\316!\203(\203(*\203\324 *@\317H@\202\325 \211 4\f\236A\211 5G\211 6
GZ\211 758G\211 8-GZ 9\320\321!\210\3224790+@% :\323:!\211 ;\324\267\202&\325-\202&\326\327\330\"\210\202&\331\330!\210.-@\f\236\211(\203Q\332
0-\n2%*B*(A+\333\313\310\"\210\202\247 +@,+A+-@,\211@\262=\2039,\211A@\247\204y\211AA\262\202}\211A\262 <,\211A@;\203\220\211A@\262\202\302\334\211\211A@\247\204\242\211AA\262\202\246\211A\262@\262\211\211A@\247\204\270\211AA\202\272\211A\262A\262\"\262/-A\211-@;\203-@.-A-\335./\"\203\374,\211@\262\336>\203\362<\202\364/0B0\202 \311\211-0\202 ,\211@\262\337>\203<\202/0B0,\211\211A@\247\204,\211AA\202.\211A\262A\2622)\202\247 \311\211-0\202\247 0\204M
A\202v \n@\211\211A@\247\204_\211AA\262\202c\211A\262@\262 =-@\203|-@0\237=2#\202\2510G\340U\203\2400@<\203\2400@@\247\204\240\3410@=2D\"\202\2512=0BB\2371\3112\204\265\3111)\202v +'=\203\311+A\311D\202\316+1D3*\203f *@ >\310)>\342H>\340H0>\317H->\343H>\344H2*A*1\203(1G\3451!AA\237 ?\211 @S182?0B0-A-*\202.\311\211-0)\202f 0\210\202A 0\202_ A'A\311D3\315\316!\205^\205^\320\321!\210\346A! :\323:!))\2103.\207" [nonterminal semantic--buffer-cache stream semantic--parse-table table matchlist bovine-toplevel semantic-bovinate-nonterminal-check t nil (error) push-non-terminal byte-code-function-p boundp semantic-debug-enabled 2 require semantic/bovine/debug semantic-bovine-debug-create-frame semantic-debug-break #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (fail 276 quit 282 abort 290)) (trash 0 . 0) signal quit "Abort" error vector throw buffer-substring-no-properties string-match (comment semantic-list) (comment semantic-list) 1 append 0 3 4 reverse semantic-create-bovine-debug-error-frame starting-stream nt-loop nt-popup nt-stack s lse lte tev val cvl out end result db-nt db-ml db-mlen db-midx db-tlen db-tidx frame cmd valdot start state strip len debug-condition] 7 (#$ . 2110)])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias semantic-parse-stream-default semantic-bovinate-stream provide semantic/bovine] 3)
Mini Shell