WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/db-global.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:53 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/db-global.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\300\302!\210\300\303!\207" [require cedet-global semantic/db-find semantic/symref/global] 2)
#@577 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 signalled 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.
(defalias 'semanticdb-enable-gnu-global-databases #[(mode &optional noerror) "\306!\205\221	;\203\307	!	\310\211\204\311\312!\210\n	\313\211	\314\f!\315	\204F\211\204F\205E\316\"	\203q
\204q	\317N\203`\316	\317N\"\211\204F	\211\320N\206k	\321N)\211\204J
,\211\205\204\203\202\fN\205\204\fJ-\322\323	\324BB!\210)\325\207" [noerror mode sym property symbol bind 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-symbol-table mode-local-parent derived-mode-parent eval setq-mode-local (semantic-init-mode-hook (cons 'semanticdb-enable-gnu-global-hook ih)) t name mode-local-active-mode major-mode ih] 5 (#$ . 687) (list (completing-read "Enable in Mode: " obarray #'(lambda (s) (get s 'mode-local-symbol-table)) t (symbol-name major-mode)))])
#@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 #[nil "\300\301!\207" [semanticdb-enable-gnu-global-in-buffer t] 2 (#$ . 2166)])
(eieio-defclass 'semanticdb-project-database-global '(semanticdb-project-database eieio-instance-tracker) nil '("Database representing a GNU Global tags file."))
#@195 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.
(defalias 'semanticdb-enable-gnu-global-in-buffer #[(&optional dont-err-if-not-available) "\304 \203\305\306!B\307	\310\"\211\207\n?\205\311\312\"\207" [semanticdb-project-system-databases semanticdb-find-default-throttle dont-err-if-not-available default-directory cedet-gnu-global-root semanticdb-project-database-global "global" append (omniscience) error "No Global support in %s"] 3 (#$ . 2571) "P"])
(byte-code "\300\301\302\303\304$\210\305\306\307\306\310\"\"\210\311\306\312\301\313$\210\305\314\307\314\315\"\"\210\311\314\312\301\316$\210\305\317\307\317\320\"\"\210\311\317\312\321\322$\210\305\323\307\323\324\"\"\210\311\323\312\321\325$\210\305\326\307\326\327\"\"\210\311\326\312\301\330$\210\305\331\307\331\332\"\"\210\311\331\312\301\333$\210\305\334\307\334\335\"\"\210\311\334\312\301\336$\210\305\337\307\337\340\"\"\210\311\337\312\301\341$\210\305\342\307\342\343\"\"\210\311\342\312\301\344$\210\305\345\307\345\346\"\"\210\311\345\312\301\347$\210\350\351!\207" [eieio-defclass semanticdb-table-global (semanticdb-search-results-table) ((major-mode :initform nil)) ("A table for returning search results from GNU Global.") eieio--defalias object-print eieio--defgeneric-init-form #1="Pretty printer extension for `semanticdb-table-global'.\nAdds the number of tags in this file to the object print name." eieio--defmethod nil #[(obj &rest strings) "\302\303\304	B#\207" [obj strings apply call-next-method " (proxy)"] 5 #1#] semanticdb-equivalent-mode #2="Return t, pretend that this table's mode is equivalent to BUFFER.\nEquivalent modes are specified by the `semantic-equivalent-major-modes'\nlocal variable." #[(table &optional buffer) "\300\207" [t] 1 #2#] semanticdb-get-database-tables #3="For a global database, there are no explicit tables.\nFor each file hit, get the traditional semantic table from that file." semanticdb-project-database-global #[(obj) "\302\303\"\204\304\305!\306\303	C#\210\306	\307#\210\306	\310\311#\210)\312 \207" [obj newtable slot-boundp tables semanticdb-table-global "GNU Global Search Table" eieio-oset parent-db tags nil call-next-method] 4 #3#] semanticdb-file-table #4="From OBJ, return FILENAME's associated table object." #[(obj filename) "\301!@\207" [obj semanticdb-get-database-tables] 2 #4#] semanticdb-find-tags-by-name-method #5="Find all tags named NAME in TABLE.\nReturn a list of tags." #[(table name &optional tags) "\203\304 \207\305\306\n\307\"\211\205\310!*\207" [tags semantic-symref-tool name result call-next-method global semantic-symref-find-tags-by-name project semantic-symref-result-get-tags] 4 #5#] semanticdb-find-tags-by-name-regexp-method #6="Find all tags with name matching REGEX in TABLE.\nOptional argument TAGS is a list of tags to search.\nReturn a list of tags." #[(table regex &optional tags) "\203\304 \207\305\306\n\307\"\211\205\310!*\207" [tags semantic-symref-tool regex result call-next-method global semantic-symref-find-tags-by-regexp project semantic-symref-result-get-tags] 4 #6#] 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.\nReturns a table of all matching tags." #[(table prefix &optional tags) "\203\306 \207\307\310\n\311\"\312\205I\313\314\"\312\211\203G@\211\315\316\317D\211\320!\312\211\257+\fBA\211\204 *\f+\207" [tags semantic-symref-tool prefix result faketags T call-next-method global semantic-symref-find-tags-by-completion project nil eieio-oref :hit-text function :faux t semantic-tag-make-plist --dolist-tail-- attributes class name] 6 #7#] semanticdb-deep-find-tags-by-name-method #8="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." #[(table name &optional tags) "\303	\n#\207" [table name tags semanticdb-find-tags-by-name-method] 4 #8#] semanticdb-deep-find-tags-by-name-regexp-method #9="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." #[(table regex &optional tags) "\303	\n#\207" [table regex tags semanticdb-find-tags-by-name-regexp-method] 4 #9#] semanticdb-deep-find-tags-for-completion-method #10="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." #[(table prefix &optional tags) "\303	\n#\207" [table prefix tags semanticdb-find-tags-for-completion-method] 4 #10#] provide semantic/db-global] 5)
F1l3 Manager
