;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. #@37 Minimum version of CScope required. (defvar cedet-cscope-min-version "15.7" (#$ . 83)) (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 (#$ . 405)])#@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\301B!\207" [cedet-cscope-call "-cR"] 4 (#$ . 1265)])#@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 (#$ . 1499)])#@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 (#$ . 1782) "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\"\2020\312\314\"\2020\211?*\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"] 6 (#$ . 2438) "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 (#$ . 3060) 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 (#$ . 3831) "DDirectory: "]) (provide 'cedet-cscope)