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

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


(byte-code "\300\301!\210\302\303\304\305\306\301\307\310&\207" [require ede custom-declare-variable ede-locate-setup-options '(ede-locate-base) "List of locate objects to try out by default.\nListed in order of preference.  If the first item cannot be used in\na particular project, then the next one is tried.\nIt is always assumed that `ede-locate-base' is at end of the list." :group :type (repeat (choice (const :tag "None" ede-locate-base) (const :tag "locate" ede-locate-locate) (const :tag "GNU Global" ede-locate-global) (const :tag "ID Utils" ede-locate-idutils) (const :tag "CScope" ede-locate-cscope)))] 8)
#@130 Enable an EDE locate feature on PROJECT.
Attempt to guess which project locate style to use
based on `ede-locate-setup-options'.
(defalias 'ede-enable-locate-on-project #[(&optional project) "\206\306 \307	!\310\f\2039
\2049\311\f@\n\"\2032\312\313!\203/\314\315\316\f@\"!\2032\f@\fA\211\204
\204I\312\317!\203G\320\321!\210\322\323	\324\325
\326\327\n$#\210\312\317!\205^\320\330
\",\207" [project proj root ede-locate-setup-options opts ans ede-toplevel ede-project-root-directory nil ede-locate-ok-in-project called-interactively-p any y-or-n-p format "Set project locator to %s? " interactive message "Setting locator to ede-locate-base" ede-locate-base eieio-oset locate-obj make-instance "Loc" :root "Setting locator to %s"] 9 (#$ . 1180) nil])
(byte-code "\300\301\302\303\304$\210\305\306\307\306\310\"\"\210\311\306\302\301\312$\210\305\313\307\313\314\"\"\210\311\313\315\301\316$\210\305\317\307\317\320\"\"\210\311\317\302\301\321$\210\305\322\307\322\323\"\"\210\311\322\302\301\324$\210\305\325\307\325\326\"\"\210\311\325\302\301\327$\210\305\330\307\330\331\"\"\210\311\330\302\301\332$\210\305\333\307\333\331\"\"\210\311\333\302\301\334$\210\305\335\307\335\336\"\"\210\311\335\337\301\340$\210\300\341\342\302\343$\210\305\313\307\313\314\"\"\210\311\313\315\341\344$\210\305\333\307\333\345\"\"\210\311\333\302\341\346$\210\300\347\350\302\351$\210\305\306\307\306\352\"\"\210\311\306\302\347\353$\210\305\313\307\313\314\"\"\210\311\313\315\347\354$\210\305\333\307\333\345\"\"\210\311\333\302\347\355$\210\305\335\307\335\356\"\"\210\311\335\337\347\357$\210\300\360\361\302\362$\210\305\306\307\306\363\"\"\210\311\306\302\360\364$\210\305\313\307\313\314\"\"\210\311\313\315\360\365$\210\305\333\307\333\345\"\"\210\311\333\302\360\366$\210\305\335\307\335\356\"\"\210\311\335\337\360\367$\210\300\370\371\302\372$\210\305\306\307\306\373\"\"\210\311\306\302\370\374$\210\305\313\307\313\314\"\"\210\311\313\315\370\375$\210\305\333\307\333\345\"\"\210\311\333\302\370\376$\210\305\335\307\335\356\"\"\210\311\335\337\370\377$\210\201@\201A!\207" [eieio-defclass ede-locate-base nil ((root :initarg :root :documentation "The root of these locat searches.") (file :documentation "The last file search for with EDE locate.") (lastanswer :documentation "The last answer provided by the locator.") (hash :documentation "Hash table of previously found files.")) ("Baseclass for LOCATE feature in EDE.") eieio--defalias initialize-instance eieio--defgeneric-init-form #1="Make sure we have a hash table." eieio--defmethod #[(loc &rest fields) "\301 \210\302!\207" [loc call-next-method ede-locate-flush-hash] 2 #1#] ede-locate-ok-in-project #2="Is it ok to use this project type under ROOT." :static #[(loc root) "\300\207" [t] 1 #2#] ede-locate-flush-hash #3="For LOC, flush hashtable and start from scratch." #[(loc) "\301\302\303\304\305\"#\207" [loc eieio-oset hash make-hash-table :test equal] 6 #3#] ede-locate-file-in-hash #4="For LOC, is the file FILESTRING in our hashtable?" #[(loc filestring) "\302\303	\304\"\"\207" [filestring loc gethash eieio-oref hash] 5 #4#] ede-locate-add-file-to-hash #5="For LOC, add FILESTR to the hash with FULLFILENAME." #[(loc filestring fullfilename) "\303	\304\n\305\"#\207" [filestring fullfilename loc puthash eieio-oref hash] 6 #5#] ede-locate-file-in-project #6="Locate with LOC occurrences of FILESUBSTRING.\nSearches are done under the current root of the EDE project\nthat created this EDE locate object." #[(loc filesubstring) "\303	\"\304\305	#\210\304\306\n#\210\n)\207" [loc filesubstring ans ede-locate-file-in-project-impl eieio-oset file lastanswer] 4 #6#] ede-locate-file-in-project-impl #[(loc filesubstring) "\300\207" [nil] 1 "Locate with LOC occurrences of FILESUBSTRING.\nSearches are done under the current root of the EDE project\nthat created this EDE locate object."] ede-locate-create/update-root-database #7="Create or update the database for the current project.\nYou cannot create projects for the baseclass." :STATIC #[(loc root) "\301\302\303!\"\207" [loc error "Cannot create/update a database of type %S" object-name] 4 #7#] ede-locate-locate (ede-locate-base) ("EDE Locator using the locate command.\nConfigure the Emacs `locate-program' variable to also\nconfigure the use of EDE locate.") #[(loc root) "\300\301!\206	\302\303!\207" [featurep locate locate-library "locate"] 2 "Is it ok to use this project type under ROOT."] #8="Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.\nSearches are done under the current root of the EDE project\nthat created this EDE locate object." #[(loc filesubstring) "\306\307\310\"!\311	Q\312\313!\frq\210
\314 \210)\315\316\316\n%\210rq\210\317\320 \321\322#,\207" [loc filesubstring searchstr b default-directory cd directory-file-name eieio-oref root "*/" get-buffer-create "*LOCATE*" erase-buffer call-process nil split-string buffer-string "\n" t locate-command] 6 #8#] ede-locate-global (ede-locate-base) ("EDE Locator using GNU Global.\nConfigure EDE's use of GNU Global through the cedet-global.el\nvariable `cedet-global-command'.") #9="Make sure that we can use GNU Global." #[(loc &rest slots) "\303\304!\210\305 \210\306 \210\307\302\"\310 \211?\205\311\312\307\302\"\"*\207" [loc default-directory root require cedet-global call-next-method cedet-gnu-global-version-check eieio-oref cedet-gnu-global-root error "Cannot use GNU Global in %s"] 6 #9#] #[(loc root) "\302\303!\210\304 \210\305 )\207" [root default-directory require cedet-global cedet-gnu-global-version-check cedet-gnu-global-root] 3 "Is it ok to use this project type under ROOT."] #[(loc filesubstring) "\303\304!\210\305\306\"\307\n!)\207" [loc default-directory filesubstring require cedet-global eieio-oref root cedet-gnu-global-expand-filename] 3 "Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.\nSearches are done under the current root of the EDE project\nthat created this EDE locate object."] #10="Create or update the GNU Global database for the current project." #[(loc root) "\301!\207" [root cedet-gnu-global-create/update-database] 2 #10#] ede-locate-idutils (ede-locate-base) ("EDE Locator using IDUtils.\nConfigure EDE's use of IDUtils through the cedet-idutils.el\nfile name searching variable `cedet-idutils-file-command'.") #11="Make sure that we can use IDUtils." #[(loc &rest slots) "\301 \210\302\303!\210\304 \210\305\306\307\"!?\205\310\311\306\307\"\"\207" [loc call-next-method require cedet-idutils cedet-idutils-version-check cedet-idutils-support-for-directory eieio-oref root error "Cannot use IDUtils in %s"] 5 #11#] #[(loc root) "\301\302!\210\303 \210\304!\205\207" [root require cedet-idutils cedet-idutils-version-check cedet-idutils-support-for-directory] 2 "Is it ok to use this project type under ROOT."] #[(loc filesubstring) "\303\304!\210\305\306\"\307\n!)\207" [loc default-directory filesubstring require cedet-idutils eieio-oref root cedet-idutils-expand-filename] 3 "Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.\nSearches are done under the current root of the EDE project\nthat created this EDE locate object."] #[(loc root) "\301!\207" [root cedet-idutils-create/update-database] 2 "Create or update the GNU Global database for the current project."] ede-locate-cscope (ede-locate-base) ("EDE Locator using Cscope.\nConfigure EDE's use of Cscope through the cedet-cscope.el\nfile name searching variable `cedet-cscope-file-command'.") #12="Make sure that we can use Cscope." #[(loc &rest slots) "\301 \210\302\303!\210\304 \210\305\306\307\"!?\205\310\311\306\307\"\"\207" [loc call-next-method require cedet-cscope cedet-cscope-version-check cedet-cscope-support-for-directory eieio-oref root error "Cannot use Cscope in %s"] 5 #12#] #[(loc root) "\301\302!\210\303 \210\304!\205\207" [root require cedet-cscope cedet-cscope-version-check cedet-cscope-support-for-directory] 2 "Is it ok to use this project type under ROOT."] #[(loc filesubstring) "\303\304\"\305\306!\210\307\n!)\207" [loc default-directory filesubstring eieio-oref root require cedet-cscope cedet-cscope-expand-filename] 3 "Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.\nSearches are done under the current root of the EDE project\nthat created this EDE locate object."] #[(loc root) "\301\302!\210\303!\207" [root require cedet-cscope cedet-cscope-create/update-database] 2 "Create or update the GNU Global database for the current project."] provide ede/locate] 5)