ikan Uploader :
Directory : /proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/semantic/
Upload File : |
| Current File : //proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/semantic/db-global.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 530) (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 (#$ . 2009)])
(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#\210\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" put cl-deftype-satisfies eieio-defclass-internal (semanticdb-project-database eieio-instance-tracker) nil (:documentation "Database representing a GNU Global tags file.")] 5)
#@73 Create a new object of class type `semanticdb-project-database-global'.
(defalias 'semanticdb-project-database-global #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-project-database-global] 4 (#$ . 2885)])
(function-put 'semanticdb-project-database-global 'compiler-macro 'semanticdb-project-database-global--anon-cmacro)
(defalias 'semanticdb-project-database-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])
#@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 (#$ . 3477) "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#\210\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" put cl-deftype-satisfies eieio-defclass-internal (semanticdb-search-results-table) ((major-mode :initform nil)) (:documentation "A table for returning search results from GNU Global.")] 5)
#@62 Create a new object of class type `semanticdb-table-global'.
(defalias 'semanticdb-table-global #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-table-global] 4 (#$ . 4684)])
(function-put 'semanticdb-table-global 'compiler-macro 'semanticdb-table-global--anon-cmacro)
(defalias 'semanticdb-table-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\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\312\313%\210\300\314\302\315\302\316%\210\300\317\302\320\312\321%\210\300\322\302\323\312\324%\210\300\325\302\326\312\327%\210\300\330\302\331\302\332%\210\300\333\302\334\302\335%\210\300\336\302\337\302\340%\210\341\342!\207" [cl-generic-define-method object-print nil ((obj semanticdb-table-global) &rest strings) #[(obj &rest strings) "\302\303\304 B#\207" [obj strings apply call-next-method " (proxy)"] 5 "Pretty printer extension for `semanticdb-table-global'.\nAdds the number of tags in this file to the object print name.\n\n(fn OBJ &rest STRINGS)"] semanticdb-equivalent-mode ((table semanticdb-table-global) &optional buffer) #[(table &optional buffer) "\300\207" [t] 1 "Return t, pretend that this table's mode is equivalent to BUFFER.\nEquivalent modes are specified by the `semantic-equivalent-major-modes'\nlocal variable."] semanticdb-get-database-tables ((obj semanticdb-project-database-global)) t #[(#1=#:cl--cnm obj) "\303\304\"\204 \305\306!\307\304 C#\210\307 \310#\210\307 \311\312#\210)\n \207" [obj newtable #1# slot-boundp tables semanticdb-table-global "GNU Global Search Table" eieio-oset parent-db tags nil] 4 "For a global database, there are no explicit tables.\nFor each file hit, get the traditional semantic table from that file."] semanticdb-file-table ((obj semanticdb-project-database-global) filename) #[(obj filename) "\301!@\207" [obj semanticdb-get-database-tables] 2 "From OBJ, return FILENAME's associated table object."] semanticdb-find-tags-by-name-method ((table semanticdb-table-global) name &optional tags) #[(#2=#:cl--cnm table name &optional tags) "\203 \207\305\306 \307\"\211 \205 \310\f!*\207" [tags #2# semantic-symref-tool name result global semantic-symref-find-tags-by-name project semantic-symref-result-get-tags] 4 "Find all tags named NAME in TABLE.\nReturn a list of tags."] semanticdb-find-tags-by-name-regexp-method ((table semanticdb-table-global) regex &optional tags) #[(#3=#:cl--cnm table regex &optional tags) "\203 \207\305\306 \307\"\211 \205 \310\f!*\207" [tags #3# semantic-symref-tool regex result global semantic-symref-find-tags-by-regexp project semantic-symref-result-get-tags] 4 "Find all tags with name matching REGEX in TABLE.\nOptional argument TAGS is a list of tags to search.\nReturn a list of tags."] semanticdb-find-tags-for-completion-method ((table semanticdb-table-global) prefix &optional tags) #[(#4=#:cl--cnm table prefix &optional tags) "\203 \207\306\307 \310\" \311 \f\205K \312\f\313\"\311 \211 \203I @\211\314\315\316D \211 \317!\311\211\257+
BA\211\204! *
+\207" [tags #4# semantic-symref-tool prefix result faketags global semantic-symref-find-tags-by-completion project nil eieio-oref :hit-text function :faux t semantic-tag-make-plist T --dolist-tail-- attributes class name] 6 "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."] semanticdb-deep-find-tags-by-name-method ((table semanticdb-table-global) name &optional tags) #[(table name &optional tags) "\303 \n#\207" [table name tags semanticdb-find-tags-by-name-method] 4 "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."] semanticdb-deep-find-tags-by-name-regexp-method ((table semanticdb-table-global) regex &optional tags) #[(table regex &optional tags) "\303 \n#\207" [table regex tags semanticdb-find-tags-by-name-regexp-method] 4 "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."] semanticdb-deep-find-tags-for-completion-method ((table semanticdb-table-global) prefix &optional tags) #[(table prefix &optional tags) "\303 \n#\207" [table prefix tags semanticdb-find-tags-for-completion-method] 4 "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."] provide semantic/db-global] 6)
Kontol Shell Bypass