Current File : //usr/local/share/emacs/27.2/lisp/cedet/ede/locate.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (#$ . 1029) nil])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias ede-locate-base-p eieio-make-class-predicate ede-locate-base ede-locate-base--eieio-childp eieio-make-child-predicate ede-locate-base-child-p make-obsolete "use (cl-typep ... \\='ede-locate-base) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((root :initarg :root :documentation "The root of these locate searches.") (file :documentation "The last file searched for with EDE locate.") (lastanswer :documentation "The last answer provided by the locator.") (hash :documentation "Hash table of previously found files.")) (:documentation "Baseclass for LOCATE feature in EDE.")] 6)
#@54 Create a new object of class type `ede-locate-base'.
(defalias 'ede-locate-base #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-locate-base] 4 (#$ . 2575)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-locate-base compiler-macro ede-locate-base--anon-cmacro] 4)
(defalias 'ede-locate-base--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\210\300\317\302\320\302\321%\210\300\322\302\323\302\324%\210\300\325\302\326\302\327%\210\300\330\302\331\302\332%\210\333\334\335\336!\"\210\333\337\340\336!\"\210\333\341\337\"\210\342\341\343\344#\210\345\336\346\337#\347\336\350\302\351$\207" [cl-generic-define-method initialize-instance nil ((loc ede-locate-base) &rest fields) t #[(#1=#:cl--cnm loc &rest fields) " \210\302 !\207" [#1# loc ede-locate-flush-hash] 2 "Make sure we have a hash table.\n\n(fn LOC &rest FIELDS)"] ede-locate-ok-in-project ((loc (subclass ede-locate-base)) root) #[(loc root) "\300\207" [t] 1 "Is it ok to use this project type under ROOT."] ede-locate-flush-hash ((loc ede-locate-base)) #[(loc) "\301\302\303\304\305\"#\207" [loc eieio-oset hash make-hash-table :test equal] 6 "For LOC, flush hash table and start from scratch."] ede-locate-file-in-hash ((loc ede-locate-base) filestring) #[(loc filestring) "\302\303 \304\"\"\207" [filestring loc gethash eieio-oref hash] 5 "For LOC, is the file FILESTRING in our hash table?"] ede-locate-add-file-to-hash ((loc ede-locate-base) filestring fullfilename) #[(loc filestring fullfilename) "\303 \304\n\305\"#\207" [filestring fullfilename loc puthash eieio-oref hash] 6 "For LOC, add FILESTR to the hash with FULLFILENAME."] ede-locate-file-in-project ((loc ede-locate-base) filesubstring) #[(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 "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-file-in-project-impl ((loc ede-locate-base) filesubstring) #[(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 ((loc (subclass ede-locate-base)) root) #[(loc root) "\301\302\303!\"\207" [loc error "Cannot create/update a database of type %S" eieio-object-name] 4 "Create or update the database for the current project.\nYou cannot create projects for the baseclass."] defalias ede-locate-locate-p eieio-make-class-predicate ede-locate-locate ede-locate-locate--eieio-childp eieio-make-child-predicate ede-locate-locate-child-p make-obsolete "use (cl-typep ... \\='ede-locate-locate) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-locate-base) (:documentation "EDE Locator using the locate command.\nConfigure the Emacs `locate-program' variable to also\nconfigure the use of EDE locate.")] 6)
#@56 Create a new object of class type `ede-locate-locate'.
(defalias 'ede-locate-locate #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-locate-locate] 4 (#$ . 5868)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-locate-locate compiler-macro ede-locate-locate--anon-cmacro] 4)
(defalias 'ede-locate-locate--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\325\302\326$\207" [cl-generic-define-method ede-locate-ok-in-project nil ((loc (subclass ede-locate-locate)) root) #[(loc root) "\300\301!\206 \302\303!\207" [featurep locate locate-library "locate"] 2 "Is it ok to use this project type under ROOT."] ede-locate-file-in-project-impl ((loc ede-locate-locate) filesubstring) #[(loc filesubstring) "\306\307\310\"!\311 Q\312\313!\f r q\210
\314 \210)\315\316 \316\n%\210r q\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 "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."] defalias ede-locate-global-p eieio-make-class-predicate ede-locate-global ede-locate-global--eieio-childp eieio-make-child-predicate ede-locate-global-child-p make-obsolete "use (cl-typep ... \\='ede-locate-global) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-locate-base) (:documentation "EDE Locator using GNU Global.\nConfigure EDE's use of GNU Global through the cedet-global.el\nvariable `cedet-global-command'.")] 6)
#@56 Create a new object of class type `ede-locate-global'.
(defalias 'ede-locate-global #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-locate-global] 4 (#$ . 7866)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-locate-global compiler-macro ede-locate-global--anon-cmacro] 4)
(defalias 'ede-locate-global--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\210\317\320\321\322!\"\210\317\323\324\322!\"\210\317\325\323\"\210\326\325\327\330#\210\331\322\332\323#\333\322\334\302\335$\207" [cl-generic-define-method initialize-instance nil ((loc ede-locate-global) &rest slots) t #[(#1=#:cl--cnm loc &rest slots) "\304\305!\210 \210\306 \210\307 \303\"\310 \211?\205 \311\312\307 \303\"\"*\207" [#1# loc default-directory root require cedet-global cedet-gnu-global-version-check eieio-oref cedet-gnu-global-root error "No GNU Global project found for %s"] 6 "Make sure that we can use GNU Global.\n\n(fn LOC &rest SLOTS)"] ede-locate-ok-in-project ((loc (subclass ede-locate-global)) root) #[(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."] ede-locate-file-in-project-impl ((loc ede-locate-global) filesubstring) #[(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 occurrences of FILESUBSTRING in LOC, using GNU Global."] ede-locate-create/update-root-database ((loc (subclass ede-locate-global)) root) #[(loc root) "\301!\207" [root cedet-gnu-global-create/update-database] 2 "Create or update the GNU Global database for the current project."] defalias ede-locate-idutils-p eieio-make-class-predicate ede-locate-idutils ede-locate-idutils--eieio-childp eieio-make-child-predicate ede-locate-idutils-child-p make-obsolete "use (cl-typep ... \\='ede-locate-idutils) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-locate-base) (:documentation "EDE Locator using IDUtils.\nConfigure EDE's use of IDUtils through the cedet-idutils.el\nfile name searching variable `cedet-idutils-file-command'.")] 6)
#@57 Create a new object of class type `ede-locate-idutils'.
(defalias 'ede-locate-idutils #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-locate-idutils] 4 (#$ . 10378)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-locate-idutils compiler-macro ede-locate-idutils--anon-cmacro] 4)
(defalias 'ede-locate-idutils--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\210\317\320\321\322!\"\210\317\323\324\322!\"\210\317\325\323\"\210\326\325\327\330#\210\331\322\332\323#\333\322\334\302\335$\207" [cl-generic-define-method initialize-instance nil ((loc ede-locate-idutils) &rest slots) t #[(#1=#:cl--cnm loc &rest slots) " \210\302\303!\210\304 \210\305\306 \307\"!?\205 \310\311\306 \307\"\"\207" [#1# loc require cedet-idutils cedet-idutils-version-check cedet-idutils-support-for-directory eieio-oref root error "Cannot use IDUtils in %s"] 5 "Make sure that we can use IDUtils.\n\n(fn LOC &rest SLOTS)"] ede-locate-ok-in-project ((loc (subclass ede-locate-idutils)) root) #[(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."] ede-locate-file-in-project-impl ((loc ede-locate-idutils) filesubstring) #[(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."] ede-locate-create/update-root-database ((loc (subclass ede-locate-idutils)) root) #[(loc root) "\301!\207" [root cedet-idutils-create/update-database] 2 "Create or update the GNU Global database for the current project."] defalias ede-locate-cscope-p eieio-make-class-predicate ede-locate-cscope ede-locate-cscope--eieio-childp eieio-make-child-predicate ede-locate-cscope-child-p make-obsolete "use (cl-typep ... \\='ede-locate-cscope) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-locate-base) (:documentation "EDE Locator using Cscope.\nConfigure EDE's use of Cscope through the cedet-cscope.el\nfile name searching variable `cedet-cscope-file-command'.")] 6)
#@56 Create a new object of class type `ede-locate-cscope'.
(defalias 'ede-locate-cscope #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-locate-cscope] 4 (#$ . 12961)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-locate-cscope compiler-macro ede-locate-cscope--anon-cmacro] 4)
(defalias 'ede-locate-cscope--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\210\317\320!\207" [cl-generic-define-method initialize-instance nil ((loc ede-locate-cscope) &rest slots) t #[(#1=#:cl--cnm loc &rest slots) " \210\302\303!\210\304 \210\305\306 \307\"!?\205 \310\311\306 \307\"\"\207" [#1# loc require cedet-cscope cedet-cscope-version-check cedet-cscope-support-for-directory eieio-oref root error "Cannot use Cscope in %s"] 5 "Make sure that we can use Cscope.\n\n(fn LOC &rest SLOTS)"] ede-locate-ok-in-project ((loc (subclass ede-locate-cscope)) root) #[(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."] ede-locate-file-in-project-impl ((loc ede-locate-cscope) filesubstring) #[(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."] ede-locate-create/update-root-database ((loc (subclass ede-locate-cscope)) root) #[(loc root) "\301\302!\210\303!\207" [root require cedet-cscope cedet-cscope-create/update-database] 2 "Create or update the Cscope database for the current project."] provide ede/locate] 6)
Mini Shell