;ELC ;;; Compiled ;;; in Emacs version 27.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) #@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\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 (#$ . 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)