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



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cedet-global semantic/db-find semantic/symref/global] 2)
#@605 Enable the use of the GNU Global SemanticDB back end for all files of MODE.
This will add an instance of a GNU Global database to each buffer
in a GNU Global supported hierarchy.

Two sanity checks are performed to assure (a) that GNU global program exists
and (b) that the GNU global program version is compatibility with the database
version.  If optional NOERROR is nil, then an error may be signaled on version
mismatch.  If NOERROR is not nil, then no error will be signaled.  Instead
return value will indicate success or failure with non-nil or nil respective
values.

(fn MODE &optional NOERROR)
(defalias 'semanticdb-enable-gnu-global-databases #[513 "\304
!\205\215
;\203\305!\262
\306
\204\307\310!\210\211\311\312!\313\204;\211\262\204;	\262\n\2059\314\n\"\262
\203f\211\204f\302N\203U\314\302N\"\211\262\204;\211\315N\206_\211\316N\262
\262\202;\266\203\211\262\205z\211\203x
N\205zJ\266\205\317\320\306\321\322\323DEF\324\"\210)\324\207" [mode-local-active-mode major-mode mode-local-symbol-table semanticdb--ih cedet-gnu-global-version-check intern semantic-init-mode-hook error "Missing major mode symbol" mode-variable-flag symbol-name nil intern-soft mode-local-parent derived-mode-parent eval setq-mode-local cons 'semanticdb-enable-gnu-global-hook quote t] 15 (#$ . 204) (byte-code "\302\303\304\305\306	!%C\207" [obarray major-mode completing-read "Enable in Mode: " #[257 "\211\300N\207" [mode-local-symbol-table] 3 "\n\n(fn S)"] t symbol-name] 7)])
#@111 Add support for GNU Global in the current buffer via `semantic-init-hook'.
MODE is the major mode to support.
(defalias 'semanticdb-enable-gnu-global-hook #[0 "\300\301!\207" [semanticdb-enable-gnu-global-in-buffer t] 2 (#$ . 1725)])
(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 semanticdb-project-database-global-p eieio-make-class-predicate semanticdb-project-database-global semanticdb-project-database-global--eieio-childp eieio-make-child-predicate semanticdb-project-database-global-child-p make-obsolete "use (cl-typep ... \\='semanticdb-project-database-global) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-project-database eieio-instance-tracker) nil (:documentation "Database representing a GNU Global tags file.")] 6)
#@91 Create a new object of class type
`semanticdb-project-database-global'.

(fn &rest SLOTS)
(defalias 'semanticdb-project-database-global #[128 "\300\301\302#\207" [apply make-instance semanticdb-project-database-global] 5 (#$ . 2613)])
(byte-code "\300\301\302\303#\300\207" [function-put semanticdb-project-database-global compiler-macro semanticdb-project-database-global--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'semanticdb-project-database-global--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 3010)])
#@237 Enable a GNU Global database in the current buffer.
When GNU Global is not available for this directory, display a message
if optional DONT-ERR-IF-NOT-AVAILABLE is non-nil; else throw an error.

(fn &optional DONT-ERR-IF-NOT-AVAILABLE)
(defalias 'semanticdb-enable-gnu-global-in-buffer #[256 "\303 \203\304\305!B\306	\307\"\211\207\211?\205\310\311\n\"\207" [semanticdb-project-system-databases semanticdb-find-default-throttle default-directory cedet-gnu-global-root make-instance semanticdb-project-database-global append (omniscience) error "No Global support in %s"] 4 (#$ . 3263) "P"])
(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 semanticdb-table-global-p eieio-make-class-predicate semanticdb-table-global semanticdb-table-global--eieio-childp eieio-make-child-predicate semanticdb-table-global-child-p make-obsolete "use (cl-typep ... \\='semanticdb-table-global) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-search-results-table) ((major-mode :initform nil)) (:documentation "A table for returning search results from GNU Global.")] 6)
#@80 Create a new object of class type `semanticdb-table-global'.

(fn &rest SLOTS)
(defalias 'semanticdb-table-global #[128 "\300\301\302#\207" [apply make-instance semanticdb-table-global] 5 (#$ . 4474)])
(byte-code "\300\301\302\303#\300\207" [function-put semanticdb-table-global compiler-macro semanticdb-table-global--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'semanticdb-table-global--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 4816)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\315\316%\210\300\317\302\320\302\321%\210\300\322\302\323\315\324%\210\300\325\302\326\315\327%\210\300\330\302\331\315\332%\210\300\333\302\334\302\335%\210\300\336\302\337\302\340%\210\300\341\302\342\302\343%\210\344\345!\207" [cl-generic-define-method semanticdb-debug-info nil ((_obj semanticdb-table-global)) #[257 "\300C\207" ["(proxy)"] 2 "\n\n(fn OBJ)"] cl-print-object ((obj semanticdb-table-global) stream) #[514 "\300\301\302!\"\"\207" [princ eieio-object-name semanticdb-debug-info] 7 "Pretty printer extension for `semanticdb-table-global'.\nAdds the number of tags in this file to the object print name.\n\n(fn OBJ STREAM)"] semanticdb-equivalent-mode ((_table semanticdb-table-global) &optional _buffer) #[513 "\300\207" [t] 3 "Return t, pretend that this table's mode is equivalent to BUFFER.\nEquivalent modes are specified by the `semantic-equivalent-major-modes'\nlocal variable.\n\n(fn TABLE &optional BUFFER)"] semanticdb-get-database-tables ((obj semanticdb-project-database-global)) t #[514 "\300
\301\"\204\302\303!\304\301C#\210\304
\305#\210\304
\306\307#\266
 \207" [slot-boundp tables make-instance semanticdb-table-global eieio-oset parent-db tags nil] 7 "For a global database, there are no explicit tables.\nFor each file hit, get the traditional semantic table from that file.\n\n(fn CL--CNM OBJ)"] semanticdb-file-table ((obj semanticdb-project-database-global) _filename) #[514 "\300!@\207" [semanticdb-get-database-tables] 4 "From OBJ, return FILENAME's associated table object.\n\n(fn OBJ FILENAME)"] semanticdb-find-tags-by-name-method ((_table semanticdb-table-global) name &optional tags) #[1027 "\211\203 \207\301\302\303\"\211\205\304
!)\207" [semantic-symref-tool global semantic-symref-find-tags-by-name project semantic-symref-result-get-tags] 7 "Find all tags named NAME in TABLE.\nReturn a list of tags.\n\n(fn CL--CNM TABLE NAME &optional TAGS)"] semanticdb-find-tags-by-name-regexp-method ((_table semanticdb-table-global) regex &optional tags) #[1027 "\211\203 \207\301\302\303\"\211\205\304
!)\207" [semantic-symref-tool global semantic-symref-find-tags-by-regexp project semantic-symref-result-get-tags] 7 "Find all tags with name matching REGEX in TABLE.\nOptional argument TAGS is a list of tags to search.\nReturn a list of tags.\n\n(fn CL--CNM TABLE REGEX &optional TAGS)"] semanticdb-find-tags-for-completion-method ((_table semanticdb-table-global) prefix &optional tags) #[1027 "\211\203 \207\301\302\303\"\304
\2059\305\306\"\211\2037\211@\211\307\310\311D\312!\304\211\257\266\203B\262
A\266\202\202\210\211)\207" [semantic-symref-tool global semantic-symref-find-tags-by-completion project nil eieio-oref hit-text function :faux t semantic-tag-make-plist] 16 "In TABLE, find all occurrences of tags matching PREFIX.\nOptional argument TAGS is a list of tags to search.\nReturns a table of all matching tags.\n\n(fn CL--CNM TABLE PREFIX &optional TAGS)"] semanticdb-deep-find-tags-by-name-method ((table semanticdb-table-global) name &optional tags) #[770 "\300#\207" [semanticdb-find-tags-by-name-method] 7 "Find all tags name NAME in TABLE.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-by-name-method' for global.\n\n(fn TABLE NAME &optional TAGS)"] semanticdb-deep-find-tags-by-name-regexp-method ((table semanticdb-table-global) regex &optional tags) #[770 "\300#\207" [semanticdb-find-tags-by-name-regexp-method] 7 "Find all tags with name matching REGEX in TABLE.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-by-name-method' for global.\n\n(fn TABLE REGEX &optional TAGS)"] semanticdb-deep-find-tags-for-completion-method ((table semanticdb-table-global) prefix &optional tags) #[770 "\300#\207" [semanticdb-find-tags-for-completion-method] 7 "In TABLE, find all occurrences of tags matching PREFIX.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-for-completion-method' for global.\n\n(fn TABLE PREFIX &optional TAGS)"] provide semantic/db-global] 6)