HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/cedet/cedet-cscope.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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)
#@428 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 'subdirs.
(defalias 'cedet-cscope-search #[(searchtext texttype type scope) "\304=\203\n\305\2028	\306=\203\307\2028	\310=\203\311\2028	\312=\203-\313\n\314Q\307\2028	\315=\2037\316\2028\317\320\321\322\nF!)\207" [type texttype searchtext idx file "-7" tagname "-1" tagregexp "-0" tagcompletions "^" ".*" regexp "-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 (#$ . 1452)])
#@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 (#$ . 1698)])
#@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 (#$ . 1987) "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 (#$ . 2654) "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\202Zr	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 (#$ . 3283) 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 (#$ . 4115) "DDirectory: "])
(provide 'cedet-cscope)