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



#@39 Minimum version of ID Utils required.
(defvar cedet-idutils-min-version "4.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&\210\300\315\302\303\316DD\317\306\307\310\311&\207" [custom-declare-variable cedet-idutils-file-command funcall function #[0 "\300\207" ["fnid"] 1 #1=""] "Command name for the ID Utils executable for searching file names." :type string :group cedet cedet-idutils-token-command #[0 "\300\207" ["lid"] 1 #1#] "Command name for the ID Utils executable for searching for tokens." cedet-idutils-make-command #[0 "\300\207" ["mkid"] 1 #1#] "Command name for the ID Utils executable for creating token databases."] 8)
#@508 Perform a search with ID Utils, 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'.
Note: Scope is not yet supported.

(fn SEARCHTEXT TEXTTYPE TYPE SCOPE)
(defalias 'cedet-idutils-search #[1028 "
\300=\203\301C!\207\302=\203\303C\202\304C\305=\204$\306=\203*\307\310D\202C\311\267\202@\312P\262\307\313D\202C\307C\202C\314\310D\315\316\317\nC$!\207" [file cedet-idutils-fnid-call tagcompletions "--key=token" "--result=grep" tagname tagregexp "-r" "-w" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tagcompletions 48 regexp 59)) "^" "-s" "-l" cedet-idutils-lid-call append nil] 12 (#$ . 797)])
#@103 Call ID Utils fnid with the list of FLAGS.
Return the created buffer with program output.

(fn FLAGS)
(defalias 'cedet-idutils-fnid-call #[257 "\302\303!r
q\210\211\304 \210)\305\306	\307\307&\210
\207" [default-directory cedet-idutils-file-command get-buffer-create "*CEDET fnid*" erase-buffer apply call-process nil] 10 (#$ . 1812)])
#@102 Call ID Utils lid with the list of FLAGS.
Return the created buffer with program output.

(fn FLAGS)
(defalias 'cedet-idutils-lid-call #[257 "\302\303!r
q\210\211\304 \210)\305\306	\307\307&\210
\207" [default-directory cedet-idutils-token-command get-buffer-create "*CEDET lid*" erase-buffer apply call-process nil] 10 (#$ . 2161)])
#@103 Call ID Utils mkid with the list of FLAGS.
Return the created buffer with program output.

(fn FLAGS)
(defalias 'cedet-idutils-mkid-call #[257 "\302\303!r
q\210\211\304 \210)\305\306	\307\307&\210
\207" [default-directory cedet-idutils-make-command get-buffer-create "*CEDET mkid*" erase-buffer apply call-process nil] 10 (#$ . 2508)])
#@104 Expand the FILENAME with ID Utils.
Return a filename relative to the default directory.

(fn FILENAME)
(defalias 'cedet-idutils-expand-filename #[257 "r\300
C!q\210eb\210\301\302!\203\303\304!\202\305\306 \307\310#)\311\312\"\262
\313\314!\203I\211\203E\211G\315U\203;\316\317@\"\210\207\316\320@AG#\210\207\303\321!\210\207" [cedet-idutils-fnid-call looking-at "[^ \n]*fnid: " error "ID Utils not available" split-string buffer-string "\n" t mapcar expand-file-name called-interactively-p interactive 1 message "%s" "%s + %d others" "No file found"] 6 (#$ . 2857) "sFile: "])
#@212 Return non-nil if ID Utils has a support file for DIR.
If DIR is not supplied, use the current default directory.
This works by running lid on a bogus symbol, and looking for
the error code.

(fn &optional DIR)
(defalias 'cedet-idutils-support-for-directory #[256 "\212\211\206\3011\302\303!q\210eb\210\304\305!?\205\3060\202!\210\307*\207" [default-directory (error) cedet-idutils-fnid-call ("moose") looking-at "[^ \n]*fnid: " t nil] 3 (#$ . 3452)])
#@205 Check the version of the installed ID Utils 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-idutils-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#\2036\314\315!\262
\2029\316\262
\317
\"\203M?\205Y\320\321#\202Y\305\306!\203X\307\322\"\210\313)\207" [cedet-idutils-min-version (error) cedet-idutils-fnid-call "--version" nil called-interactively-p interactive message "ID Utils not found." re-search-forward "fnid - \\([0-9.]+\\)" t match-string 1 "0" version< error "Version of ID Utils is %s.  Need at least %s" "ID Utils %s  - Good enough for CEDET."] 7 (#$ . 3920) nil])
#@114 Create an IDUtils database in DIR.
IDUtils must start from scratch when updating a database.

(fn &optional DIR)
(defalias 'cedet-idutils-create/update-database #[256 "\211\301\302!)\207" [default-directory cedet-idutils-mkid-call nil] 3 (#$ . 4727) "DDirectory: "])
(provide 'cedet-idutils)