| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/cedet-cscope.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@37 Minimum version of CScope required.
(defvar cedet-cscope-min-version "15.7" (#$ . 408))
#@41 Command name for the CScope executable.
(custom-declare-variable 'cedet-cscope-command "cscope" '(#$ . 502) :type 'string :group 'cedet)
#@434 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'.
(defalias 'cedet-cscope-search #[(searchtext texttype type scope) "\304=\203\n \305\202& \306\267\202% \307\202& \310\202& \311\n\312Q\307\202& \313\202& \314\315\316\317 \nF!)\207" [type texttype searchtext idx 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 33)) "-1" "-0" "^" ".*" "-5" "-3" cedet-cscope-call "-d" "-L"] 5 (#$ . 646)])
#@121 Create a CScope database at the current directory.
FLAGS are additional flags to pass to cscope beyond the
options -cR.
(defalias 'cedet-cscope-create #[(flags) "\301\302\303C\"!\207" [flags cedet-cscope-call append "-cR"] 4 (#$ . 1525)])
#@37 Call CScope with the list of FLAGS.
(defalias 'cedet-cscope-call #[(flags) "\305\306!r\nq\210 \307 \210)\310\311 \312\n\312\f&\210\n*\207" [default-directory cd b cedet-cscope-command flags get-buffer-create "*CEDET CScope*" erase-buffer apply call-process nil] 7 (#$ . 1771)])
#@69 Expand the FILENAME with CScope.
Return a fully qualified filename.
(defalias 'cedet-cscope-expand-filename #[(filename) "r\303\304\305\306F!q\210eb\210\307\310!\203 \311\312!\202 \313\314 \315\316#)\317\320 \"\321\322!\203P \n\203L \nG\323U\203@ \324\325\n@\"\210\202P \324\326\n@\nAG#\210\202P \311\327!\210\n*\207" [filename ans1 ans2 cedet-cscope-call "-d" "-L" "-7" looking-at "[^ \n]*cscope: " error "CScope not available" split-string buffer-string "\n" t mapcar #[(hit) "\301\302\303\"@!\207" [hit expand-file-name split-string " "] 4] called-interactively-p interactive 1 message "%s" "%s + %d others" "No file found"] 5 (#$ . 2060) "sFile: "])
#@193 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.
(defalias 'cedet-cscope-support-for-directory #[(&optional dir) "\212\206 \303\304\305\306\307F!q\210eb\210\310\311!\312\313!\203/ \n\203( \314\315 \"\2025 \314\316 \"\2025 \n?\2055 \317+\207" [dir default-directory ans 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] 5 (#$ . 2727) "DDirectory: "])
#@179 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.
(defalias 'cedet-cscope-version-check #[(&optional noerror) "\304\305!\210\3061 \307\310C!0\202 \210\311\311\211\204' \312\313!\203# \314\315!\210\311\202Z r q\210eb\210\316\317\311\320#\210\321\322!\323\311\n#\203M ?\205Y \324\325\n#\202Y \312\313!\203X \314\326\"\210\320)*\207" [rev b cedet-cscope-min-version noerror require inversion (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 inversion-check-version error "Version of CScope is %s. Need at least %s" "CScope %s - Good enough for CEDET."] 5 (#$ . 3356) nil])
#@126 Create a CScope database in DIR.
CScope will automatically choose incremental rebuild if
there is already a database in DIR.
(defalias 'cedet-cscope-create/update-database #[(&optional dir) "\302\303!)\207" [dir default-directory cedet-cscope-create nil] 2 (#$ . 4188) "DDirectory: "])
(provide 'cedet-cscope)