;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@41 Minimum version of GNU Global required.
(defvar cedet-global-min-version "5.0" (#$ . 84))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\207" [custom-declare-variable cedet-global-command funcall function #[0 "\300\207" ["global"] 1 #1=""] "Command name for the GNU Global executable." :type string :group cedet cedet-global-gtags-command #[0 "\300\207" ["gtags"] 1 #1#] "Command name for the GNU Global gtags executable.\nGTAGS is used to create the tags table queried by the `global' command."] 8)
#@476 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'.

(fn SEARCHTEXT TEXTTYPE TYPE SCOPE)
(defalias 'cedet-gnu-global-search #[1028 "
\300=\203\n\301\202\302
\303\267\202\304\202\305\202\306\307=\204&\310=\203*\304\2029\311\267\2028\312\2029\313\2029\314\315QD!\207" [file "-a" "-xa" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (project 17 target 21)) "" "l" nil tagname tagregexp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tagcompletions 48 regexp 52)) "c" "g" "r" cedet-gnu-global-call] 11 (#$ . 649)])
#@53 Call GNU Global with the list of FLAGS.

(fn FLAGS)
(defalias 'cedet-gnu-global-call #[257 "\302\303!r
q\210\211\304 \210)\305\306	\307\307&\210
\207" [default-directory cedet-global-command get-buffer-create "*CEDET Global*" erase-buffer apply call-process nil] 10 (#$ . 1652)])
#@60 Create GNU Global TAGS using gtags with FLAGS.

(fn FLAGS)
(defalias 'cedet-gnu-global-gtags-call #[257 "\302\303!r
q\210\211\304 \210)\305\306	\307\307&\210r
q\210eb\210\310\311\307\312#\203.\313\314\315 \"\210)
\207" [default-directory cedet-global-gtags-command get-buffer-create "*CEDET Global gtags*" erase-buffer apply call-process nil re-search-forward "Error\\|Warning\\|invalid" t error "Output:\n%S" buffer-string] 10 (#$ . 1944)])
#@156 Expand the FILENAME with GNU Global.
Return a list of absolute filenames or nil if none found.
Signal an error if GNU global not available.

(fn FILENAME)
(defalias 'cedet-gnu-global-expand-filename #[257 "r\300\301D!q\210eb\210\302\303!\203\304\305!\202\306\307 \310\311#)\312\313!\203D\211\203@\211G\314U\2036\315\316@\"\210\207\315\317@AG#\210\207\304\320!\210\207" [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"] 6 (#$ . 2400) "sFile: "])
#@62 Show the root of a GNU Global area under the current buffer.
(defalias 'cedet-gnu-global-show-root #[0 "\300\301\302 \"\207" [message "%s" cedet-gnu-global-root] 3 (#$ . 3014) nil])
#@175 Return the root of any GNU Global scanned project containing DIR.
Returns nil if no GNU Global project can be found.
DIR defaults to `default-directory'.

(fn &optional DIR)
(defalias 'cedet-gnu-global-root #[256 "\211\206r\301\302C!q\210eb\210m?\205\303`\304 {!*\207" [default-directory cedet-gnu-global-call "-pq" file-name-as-directory point-at-eol] 4 (#$ . 3203)])
#@207 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.

(fn &optional NOERROR)
(defalias 'cedet-gnu-global-version-check #[256 "\3011\f\302\303C!0\202\210\304\304
\204\305\306!\203\307\310!\210\304\207r
q\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-global-min-version (error) cedet-gnu-global-call "--version" nil called-interactively-p interactive message "GNU Global not found." re-search-forward "(?GNU GLOBAL)? \\([0-9.]+\\)" t match-string 1 version< error "Version of GNU Global is %s.  Need at least %s" "GNU Global %s  - Good enough for CEDET."] 7 (#$ . 3585) nil])
#@67 Scan all the hits from the GNU Global output BUFFER.

(fn BUFFER)
(defalias 'cedet-gnu-global-scan-hits #[257 "\300r
q\210eb\210\301\302\300\303#\203 \304\305\306!!\305\307!B
B\262
\202\211\237)\207" [nil re-search-forward "^\\([^ ]+\\) +\\([0-9]+\\) \\([^ ]+\\) " t string-to-number match-string 2 3] 6 (#$ . 4386)])
#@109 Create a GNU Global database in DIR.
If a database already exists, then just update it.

(fn &optional DIR)
(defalias 'cedet-gnu-global-create/update-database #[256 "\301
!\211\203\n\211\262
\211\203\302\303C!\202\304\305!)\207" [default-directory cedet-gnu-global-root cedet-gnu-global-call "-u" cedet-gnu-global-gtags-call nil] 4 (#$ . 4714) "DDirectory: "])
(provide 'cedet-global)