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/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/cedet/cedet-cscope.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@37 Minimum version of CScope required.
(defvar cedet-cscope-min-version "15.7" (#$ . 84))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable cedet-cscope-command funcall function #[0 "\300\207" ["cscope"] 1 ""] "Command name for the CScope executable." :type string :group cedet] 8)
#@471 Perform a search with CScope, return the created buffer.
SEARCHTEXT is text to find.
TEXTTYPE is the type of text, such as `regexp', `string', `tagname',
`tagregexp', or `tagcompletions'.
TYPE is the type of search, meaning that SEARCHTEXT is compared to
filename, tagname (tags table), references (uses of a tag) , or
symbol (uses of something not in the tag table.)
SCOPE is the scope of the search, such as `project' or `subdir'.

(fn SEARCHTEXT TEXTTYPE TYPE SCOPE)
(defalias 'cedet-cscope-search #[1028 "\300=\203\n\301\202'\302\267\202&\303\202'\304\202'\305\306Q\262\303\202'\307\202'\310\311\312\313F!\207" [file "-7" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tagname 16 tagregexp 20 tagcompletions 24 regexp 34)) "-1" "-0" "^" ".*" "-5" "-3" cedet-cscope-call "-d" "-L"] 10 (#$ . 407)])
#@133 Create a CScope database at the current directory.
FLAGS are additional flags to pass to cscope beyond the
options -cR.

(fn FLAGS)
(defalias 'cedet-cscope-create #[257 "\300\301\302C\"!\207" [cedet-cscope-call append "-cR"] 5 (#$ . 1268)])
#@49 Call CScope with the list of FLAGS.

(fn FLAGS)
(defalias 'cedet-cscope-call #[257 "\302\303!rq\210\211\304 \210)\305\306	\307\307&\210\207" [default-directory cedet-cscope-command get-buffer-create "*CEDET CScope*" erase-buffer apply call-process nil] 10 (#$ . 1516)])
#@84 Expand the FILENAME with CScope.
Return a fully qualified filename.

(fn FILENAME)
(defalias 'cedet-cscope-expand-filename #[257 "r\300\301\302\303F!q\210eb\210\304\305!\203\306\307!\202\310\311 \312\313#)\314\315\"\316\317!\203J\211\203F\211G\320U\203<\321\322@\"\210\207\321\323@AG#\210\207\306\324!\210\207" [cedet-cscope-call "-d" "-L" "-7" looking-at "[^ \n]*cscope: " error "CScope not available" split-string buffer-string "\n" t mapcar #[257 "\300\301\302\"@!\207" [expand-file-name split-string " "] 5 "\n\n(fn HIT)"] called-interactively-p interactive 1 message "%s" "%s + %d others" "No file found"] 7 (#$ . 1800) "sFile: "])
#@213 Return non-nil if CScope has a support file for DIR.
If DIR is not supplied, use the current default directory.
This works by running cscope on a bogus symbol, and looking for
the error code.

(fn &optional DIR)
(defalias 'cedet-cscope-support-for-directory #[256 "\212\211\206\301\302\303\304\305F!q\210eb\210\306\307!\310\311!\203.\211\203'\312\313\"\2024\312\314\"\2024\211?\2054\315\262*\207" [default-directory cedet-cscope-call "-d" "-L" "-7" "moose" looking-at "[^ \n]*cscope: " called-interactively-p interactive message "No support for CScope in %s" "CScope is supported in %s" t] 6 (#$ . 2457) "DDirectory: "])
#@203 Check the version of the installed CScope command.
If optional programmatic argument NOERROR is non-nil,
then instead of throwing an error if CScope isn't available,
return nil.

(fn &optional NOERROR)
(defalias 'cedet-cscope-version-check #[256 "\3011\f\302\303C!0\202\210\304\304\204\305\306!\203\307\310!\210\304\207rq\210eb\210\311\312\304\313#\210\314\315!\262\316\"\203E?\205Q\317\320#\202Q\305\306!\203P\307\321\"\210\313)\207" [cedet-cscope-min-version (error) cedet-cscope-call "-V" nil called-interactively-p interactive message "CScope not found." re-search-forward "cscope: version \\([0-9.]+\\)" t match-string 1 version< error "Version of CScope is %s.  Need at least %s" "CScope %s  - Good enough for CEDET."] 7 (#$ . 3097) nil])
#@146 Create a CScope database in DIR.
CScope will automatically choose incremental rebuild if
there is already a database in DIR.

(fn &optional DIR)
(defalias 'cedet-cscope-create/update-database #[256 "\211\301\302!)\207" [default-directory cedet-cscope-create nil] 3 (#$ . 3869) "DDirectory: "])
(provide 'cedet-cscope)

Youez - 2016 - github.com/yon3zu
LinuXploit