;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:01 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/cedet-global.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@41 Minimum version of GNU Global required.
(defvar cedet-global-min-version "5.0" (#$ . 561))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\207" [custom-declare-variable cedet-global-command "global" "Command name for the GNU Global executable." :type string :group cedet cedet-global-gtags-command "gtags" "Command name for the GNU Global gtags executable.\nGTAGS is used to create the tags table queried by the 'global' command."] 8)
#@432 Perform a search with GNU Global, 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-gnu-global-search #[(searchtext texttype type scope) "\306=\203\n\307\202\310	\311=\203\312\202	\313=\205\314\n\315=\204(\n\316=\203,\312\202A\n\317=\2036\320\202A\n\321=\203@\322\202A\323\324
\fQD!+\207" [type scope texttype stflag scopeflgs flgs file "-a" "-xa" project "" target "l" tagname tagregexp tagcompletions "c" regexp "g" "r" cedet-gnu-global-call searchtext] 4 (#$ . 1040)])
#@41 Call GNU Global with the list of FLAGS.
(defalias 'cedet-gnu-global-call #[(flags) "\305\306!r\nq\210	\307 \210)\310\311\312\n\312\f&\210\n*\207" [default-directory cd b cedet-global-command flags get-buffer-create "*CEDET Global*" erase-buffer apply call-process nil] 7 (#$ . 1905)])
#@48 Create GNU Global TAGS using gtags with FLAGS.
(defalias 'cedet-gnu-global-gtags-call #[(flags) "\305\306!r\nq\210	\307 \210)\310\311\312\n\312\f&\210\n*\207" [default-directory cd b cedet-global-gtags-command flags get-buffer-create "*CEDET Global gtags*" erase-buffer apply call-process nil] 7 (#$ . 2202)])
#@73 Expand the FILENAME with GNU Global.
Return a fully qualified filename.
(defalias 'cedet-gnu-global-expand-filename #[(filename) "r\302\303D!q\210eb\210\304\305!\203\306\307!\202\310\311 \312\313#)\314\315!\203I	\203E	G\316U\2039\317\320	@\"\210\202I\317\321	@	AG#\210\202I\306\322!\210	)\207" [filename ans cedet-gnu-global-call "-Pa" looking-at "global: " error "GNU Global not available" split-string buffer-string "\n" t called-interactively-p interactive 1 message "%s" "%s + %d others" "No file found"] 4 (#$ . 2524) "sFile: "])
#@62 Show the root of a GNU Global area under the current buffer.
(defalias 'cedet-gnu-global-show-root #[nil "\300\301\302 \"\207" [message "%s" cedet-gnu-global-root] 3 (#$ . 3076) nil])
#@146 Return the root of any GNU Global scanned project.
If a default starting DIR is not specified, the current buffer's
`default-directory' is used.
(defalias 'cedet-gnu-global-root #[(&optional dir) "\206	r\302\303C!q\210eb\210m?\205\304`\305 {!*\207" [dir default-directory cedet-gnu-global-call "-pq" file-name-as-directory point-at-eol] 3 (#$ . 3267)])
#@183 Check the version of the installed GNU Global command.
If optional programmatic argument NOERROR is non-nil,
then instead of throwing an error if Global isn't available,
return nil.
(defalias 'cedet-gnu-global-version-check #[(&optional noerror) "\304\305!\210\306\307\310\217\306\211\204\311\312!\203\313\314!\210\306\202Pr	q\210eb\210\315\316\306\317#\210\320\321!\322\306\n#\203C?\205O\323\324\n#\202O\311\312!\203N\313\325\"\210\317)*\207" [rev b cedet-global-min-version noerror require inversion nil (byte-code "\300\301C!\207" [cedet-gnu-global-call "--version"] 2) ((error)) called-interactively-p interactive message "GNU Global not found." re-search-forward "(?GNU GLOBAL)? \\([0-9.]+\\)" t match-string 1 inversion-check-version error "Version of GNU Global is %s.  Need at least %s" "GNU Global %s  - Good enough for CEDET."] 5 (#$ . 3633) nil])
#@54 Scan all the hits from the GNU Global output BUFFER.
(defalias 'cedet-gnu-global-scan-hits #[(buffer) "\303\304r\nq\210eb\210\305\303\306#\203\"\307\310\311!!\310\312!B	B\202	\237+\207" [r1 hits buffer nil "^\\([^ ]+\\) +\\([0-9]+\\) \\([^ ]+\\) " re-search-forward t string-to-number match-string 2 3] 4 (#$ . 4513)])
#@89 Create a GNU Global database in DIR.
If a database already exists, then just update it.
(defalias 'cedet-gnu-global-create/update-database #[(&optional dir) "\303!\211\203\n	\304	\205\305!*\207" [dir root default-directory cedet-gnu-global-root cedet-gnu-global-gtags-call ("-i")] 3 (#$ . 4845) "DDirectory: "])
(provide 'cedet-global)