| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/cedet/semantic/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(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-map nil (#$ . 105))
(make-variable-buffer-local 'semantic-bovinate-nonterminal-check-map)
#@159 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.
(fn &rest RETURN-VAL)
(defalias 'semantic-lambda '(macro . #[128 "\300\301\302\303\211\304\"BF\207" [lambda (vals start end) (ignore vals) append ((list start end))] 8 (#$ . 359)]))
#@82 Return non-nil if SYM is in TABLE, indicating it is NONTERMINAL.
(fn SYM TABLE)
(defalias 'semantic-bovinate-symbol-nonterminal-p #[514 "\236\205 \300\207" [t] 4 (#$ . 684)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put semantic-bovinate-symbol-nonterminal-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@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 . #[0 "\300\207" [(if nt-stack (car (aref (car nt-stack) 2)) nonterminal)] 1 (#$ . 1034)]))
#@140 Check if STREAM not already parsed for NONTERMINAL.
If so abort because an infinite recursive parse is suspected.
(fn STREAM NONTERMINAL)
(defalias 'semantic-bovinate-nonterminal-check #[514 "\303!\204 \304\305\306\"\307\">\203! \310\211\311\312\313\"*\207\314\307\"B#\207" [semantic-bovinate-nonterminal-check-map debug-on-error debug-on-signal hash-table-p make-hash-table :test eq gethash t nil error "Infinite recursive parse suspected on %s" puthash] 10 (#$ . 1332)])
#@373 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.
(fn STREAM &optional NONTERMINAL)
(defalias 'semantic-bovinate-stream #[513 "\211\204 \304\262\204 \305\"\210 \236A\306\307\211\211\211\307\211\211\211\211\211\211\3101\n\205\374\3112\370\307\262\n@\211\211A@\247\204F \211AA\262\202J \211A\262A\262\262\n\204Y \205\367\307\262\307\262 \204i \f\203\213 \203t \307\262\n\202\223 \262\307\262\f@\262\312@!\204\217 @<\203\223 \307C\262\203\312@!\204@<\204\313\303!\203\203\203\277 @\314H@\202\301 \211\236A\211G\211GZ\2118G\211\fGZ\315\316!\210\317
@%\320!\211\321\267\266\202\322\262\266\202\323\324\325\"\266 \202\326\325!\266 \202\266@\236\211\262\f\2038\327
% B\262 \nA\262
\262\330\311\306\"\210\202\223 @A\262@\n\211@\262=\203\n\211A@\247\204]\211AA\262\202a\211A\262\n\211A@;\203q\211A@\262\202\245\331\211\211A@\247\204\203\211AA\262\202\207\211A\262@\262\211\211A@\247\204\233\211AA\262\202\237\211A\262A\262\"\262\262A\262@;\203\345@\262A\262\332\"\203\334\n\211@\262\333>\203\324\211\202\325B\262\202\370\307\262\307\262\202\370\n\211@\262\334>\203\363\211\202\364B\262\n\211\211A@\247\204 \211AA\262\202
\211A\262A\262\262\210\202\223 \307\262\307\262\202\223 \204+\fA\262
\202_ @\211\211A@\247\204>\211AA\262\202B\211A\262@\262@\203V@\237#\202{G\335U\203t@<\203t@@\247\204t\336@D\"\202{BB\237\262\307\262\204\207\307\262\210\202_ \f=\203\233A\307D\202\237D\262\203O @\306\262\211\337H\262\211\335H\262\211\314H\262\211\340H\262\211\341H\262 A\262\n\203\355G\342!AA\237S8\262\211B\262 A\262\n\266\202O \307\262\307\262\210\202O 0\210\202'