Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/db-find.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\300\302!\207" [require semantic/db semantic/db-ref] 2)
#@96 Customization values for semanticdb find throttle.
See `semanticdb-find-throttle' for details.
(defvar semanticdb-find-throttle-custom-list '(set (const local) (const project) (const unloaded) (const system) (const recursive) (const omniscience)) (#$ . 489))
(byte-code "\301\302\303\304\305\306\307&\210\310\302!\207" [semanticdb-find-throttle-custom-list custom-declare-variable semanticdb-find-default-throttle '(local project unloaded system recursive) "The default throttle for `semanticdb-find' routines.\nThe throttle controls how detailed the list of database\ntables is for a symbol lookup. The value is a list with\nthe following keys:\n `file' - The file the search is being performed from.\n This option is here for completeness only, and\n is assumed to always be on.\n `local' - Tables from the same local directory are included.\n This includes files directly referenced by a file name\n which might be in a different directory.\n `project' - Tables from the same local project are included\n If `project' is specified, then `local' is assumed.\n `unloaded' - If a table is not in memory, load it. If it is not cached\n on disk either, get the source, parse it, and create\n the table.\n `system' - Tables from system databases. These are specifically\n tables from system header files, or language equivalent.\n `recursive' - For include based searches, includes tables referenced\n by included files.\n `omniscience' - Included system databases which are omniscience, or\n somehow know everything. Omniscience databases are found\n in `semanticdb-project-system-databases'.\n The Emacs Lisp system DB is an omniscience database." :group semanticdb :type make-variable-buffer-local] 8)
#@52 Non-nil if ACCESS-TYPE is an active throttle type.
(defalias 'semanticdb-find-throttle-active-p #[(access-type) " >\206 \302=\206 \303=\205 \304 >\207" [access-type semanticdb-find-default-throttle file local project] 2 (#$ . 2423)])
(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-find-search-index-p eieio-make-class-predicate semanticdb-find-search-index semanticdb-find-search-index--eieio-childp eieio-make-child-predicate semanticdb-find-search-index-child-p make-obsolete "use (cl-typep ... \\='semanticdb-find-search-index) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-abstract-search-index) ((include-path :initform nil :documentation "List of semanticdb tables from the include path.") (type-cache :initform nil :documentation "Cache of all the data types accessible from this file.\nIncludes all types from all included files, merged namespaces, and\nexpunge duplicates.")) (:documentation "Concrete search index for `semanticdb-find'.\nThis class will cache data derived during various searches.")] 6)
#@67 Create a new object of class type `semanticdb-find-search-index'.
(defalias 'semanticdb-find-search-index #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-find-search-index] 4 (#$ . 3610)])
(byte-code "\300\301\302\303#\300\207" [function-put semanticdb-find-search-index compiler-macro semanticdb-find-search-index--anon-cmacro] 4)
(defalias 'semanticdb-find-search-index--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\302\312%\207" [cl-generic-define-method semantic-reset nil ((idx semanticdb-find-search-index)) #[(idx) "\301\302!\210\303\304\305#\210\306\307\"\203 \310\306\307\"!\210\311 \207" [idx require semantic/scope eieio-oset include-path nil eieio-oref type-cache semantic-reset semantic-scope-reset-cache] 4 "Reset the object IDX."] semanticdb-synchronize ((idx semanticdb-find-search-index) new-tags) #[(idx new-tags) "\301!\210\302\303\304\"\305\"\207" [idx semantic-reset semanticdb-notify-references eieio-oref table #[(tab me) "\301\302!!\207" [tab semantic-reset semanticdb-get-table-index] 3]] 4 "Synchronize the search index IDX with some NEW-TAGS."] semanticdb-partial-synchronize ((idx semanticdb-find-search-index) new-tags) #[(idx new-tags) "\305!\306\211\203\" \n@\211A@)\307=\203 \n@ B\nA\211\204\n \237*\2034 \310\f!\210\311\312\f\313\"\314\"\207\312\f\315\"\205L \316\312\f\315\"\"\205L \311\312\f\313\"\317\"\207" [new-tags result tags tag idx semantic-something-to-tag-table nil include semantic-reset semanticdb-notify-references eieio-oref table #[(tab me) "\301\302!!\207" [tab semantic-reset semanticdb-get-table-index] 3] type-cache semanticdb-partial-synchronize #[(tab me) "\302!\303 \304\"\205 \305\306!\210\307\303 \304\"!)\207" [tab tab-idx semanticdb-get-table-index eieio-oref type-cache require semantic/db-typecache semanticdb-typecache-notify-reset] 4]] 5 "Synchronize the search index IDX with some changed NEW-TAGS."]] 6)
#@1723 Translate PATH into a list of semantic tables.
Path translation involves identifying the PATH input argument
in one of the following ways:
nil - Take the current buffer, and use its include list
buffer - Use that buffer's include list.
filename - Use that file's include list. If the file is not
in a buffer, see of there is a semanticdb table for it. If
not, read that file into a buffer.
tag - Get that tag's buffer of file file. See above.
table - Search that table, and its include list.
find result - Search the results of a previous find.
In addition, once the base path is found, there is the possibility of
each added table adding yet more tables to the path, so this routine
can return a lengthy list.
If argument BRUTISH is non-nil, then instead of using the include
list, use all tables found in the parent project of the table
identified by translating PATH. Such searches use brute force to
scan every available table.
The return value is a list of objects of type `semanticdb-table' or
their children. In the case of passing in a find result, the result
is returned unchanged.
This routine uses `semanticdb-find-table-for-include' to translate
specific include tags into a semanticdb table.
Note: When searching using a non-brutish method, the list of
included files will be cached between runs. Database-references
are used to track which files need to have their include lists
refreshed when things change. See `semanticdb-ref-test'.
Note for overloading: If you opt to overload this function for your
major mode, and your routine takes a long time, be sure to call
(semantic-throw-on-input \='your-symbol-here)
so that it can be called from the idle work handler.
(defalias 'semanticdb-find-translate-path #[(path brutish) "\306\211\307\310\311!\307\204\" \211\262\204\" \262\n\205 \312\n\"\262\203M \211\204M \302N\203< \312\302N\"\211\262\204\" \211\313N\206F \211\314N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\315N\262\205\326 \211\211\315N\262\307\310\311!\307\204\225 \211\262\204\225 \262\n\205\223 \312\n\"\262\203\300 \211\204\300 \302N\203\257 \312\302N\"\211\262\204\225 \211\313N\206\271 \211\314N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\344 \f
\"\202\350 \316\f
\")\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override path brutish semanticdb-find-translate-path nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semanticdb-find-translate-path-default] 13 (#$ . 5765)])
(put 'semanticdb-find-translate-path 'mode-local-overload t)
#@176 Translate PATH into a list of semantic tables.
If BRUTISH is non-nil, return all tables associated with PATH.
Default action as described in `semanticdb-find-translate-path'.
(defalias 'semanticdb-find-translate-path-default #[(path brutish) "\302!?\205 \203 \303!\207\304!\207" [path brutish semanticdb-find-results-p semanticdb-find-translate-path-brutish-default semanticdb-find-translate-path-includes-default] 2 (#$ . 8493)])
#@266 For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object
INCLUDETAG is a semantic TAG of class `include'.
TABLE is a semanticdb table that identifies where INCLUDETAG came from.
TABLE is optional if INCLUDETAG has an overlay of :filename attribute.
(defalias 'semanticdb-find-table-for-include #[(includetag &optional table) "\306\211\307\310\311!\307\204\" \211\262\204\" \262\n\205 \312\n\"\262\203M \211\204M \302N\203< \312\302N\"\211\262\204\" \211\313N\206F \211\314N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\315N\262\205\326 \211\211\315N\262\307\310\311!\307\204\225 \211\262\204\225 \262\n\205\223 \312\n\"\262\203\300 \211\204\300 \302N\203\257 \312\302N\"\211\262\204\225 \211\313N\206\271 \211\314N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\344 \f
\"\202\350 \316\f
\")\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override includetag table semanticdb-find-table-for-include nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semanticdb-find-table-for-include-default] 13 (#$ . 8937)])
(put 'semanticdb-find-table-for-include 'mode-local-overload t)
#@113 Translate PATH into a list of semantic tables.
Default action as described in `semanticdb-find-translate-path'.
(defalias 'semanticdb-find-translate-path-brutish-default #[(path) "\204 \202+ \305!\203 \306\307\"\202+ \310!\211\203) r\311\n@!q\210 )\202* )\312\313\314\315\316 \203< \306 \317\"\202= \f!\"\")\207" [path semanticdb-current-database tt basedb default-directory semanticdb-table-p eieio-oref parent-db semantic-something-to-tag-table semantic-tag-buffer apply nconc mapcar #[(db) "\305!\306\211\203< \203( \307 \204# r\310\f!q\210\212\fb\210\311 *\203( \312 \313\"\210\314\n@p\"\2035 \n@ B\nA\211\204\n *\207" [db ret tabs semantic-current-input-throw-symbol semantic--on-input-start-marker semanticdb-get-database-tables nil input-pending-p marker-buffer accept-process-output throw translate-path-brutish semanticdb-equivalent-mode-for-search] 4] semanticdb-current-database-list reference-directory] 9 (#$ . 10238)])
#@44 Are there any incomplete entries in CACHE?
(defalias 'semanticdb-find-incomplete-cache-entries-p #[(cache) "\304 \304\211\203% @\305\n!\203 \306\307\n\310\"!\204 \311 A\211\204\n *)\207" [ans cache tab --dolist-tail-- nil semanticdb-table--eieio-childp number-or-marker-p eieio-oref pointmax t] 5 (#$ . 11194)])
#@60 Non-nil if the semanticdb TABLE cache needs to be updated.
(defalias 'semanticdb-find-need-cache-update-p #[(table) "\305!\211\205\f \306 \307\"\310\n!\311\312! \n\205 ?\206 \f??\205% \313,\207" [table index cache incom unl semanticdb-get-table-index eieio-oref include-path semanticdb-find-incomplete-cache-entries-p semanticdb-find-throttle-active-p unloaded t] 4 (#$ . 11522)])
#@113 Translate PATH into a list of semantic tables.
Default action as described in `semanticdb-find-translate-path'.
(defalias 'semanticdb-find-translate-path-includes-default #[(path) "\204 \2022 \305!\203 \306\301\"\2022 ;\203' \307!\203' \310\311\"\2022 \312!\2031 \2022 \313\211\203` \314\n!\315\n!\203X \316! \317 \320\f#\210\f\203S \321\n!\210\f)\202\\ \322 \320\")\202c \316!)\207" [path semanticdb-current-table table index ans bufferp buffer-local-value file-exists-p semanticdb-file-table-object t semanticdb-abstract-table--eieio-childp nil semanticdb-get-table-index semanticdb-find-need-cache-update-p semanticdb-find-translate-path-includes--internal eieio-oset include-path semanticdb-refresh-references eieio-oref] 5 (#$ . 11917)])
#@64 Include files that we cannot find associated with this buffer.
(defvar semanticdb-find-lost-includes nil (#$ . 12681))
(make-variable-buffer-local 'semanticdb-find-lost-includes)
#@206 All include tags scanned, plus action taken on the tag.
Each entry is an alist:
(ACTION . TAG)
where ACTION is one of `scanned', `duplicate', `lost'
and TAG is a clone of the include tag that was found.
(defvar semanticdb-find-scanned-include-tags nil (#$ . 12867))
(make-variable-buffer-local 'semanticdb-find-scanned-include-tags)
#@304 Include tags implied for all files of a given mode.
Set this variable with `defvar-mode-local' for a particular mode so
that any symbols that exist for all files for that mode are included.
Note: This could be used as a way to write a file in a language
to declare all the built-ins for that language.
(defvar semanticdb-implied-include-tags nil (#$ . 13209))
#@180 Internal implementation of `semanticdb-find-translate-path-includes-default'.
This routine does not depend on the cache, but will always derive
a new path from the provided PATH.
(defalias 'semanticdb-find-translate-path-includes--internal #[(path) "\306\211C\306\211\211\211\211 + , -.\204. \307 \210\310\311p!/\"-,\312 \202~ \313.!\203G \311.!-.,\314.!\202~ \315.!\203n r.q\210\307 \210)\311.!-r.q\210),\312.!\202~ \311.!\211-\203~ \316\317.\"\210\n\203\243 -\306 0\211 1\203\242 1@0\3200\321\n#\2101A\2111\204\215 *-\203z2\203\312 \322 \204\304 r\3233!q\210\2123b\210\324 *\203\312 \3252\326\"\210-@\211 4@)
\235\203 \306\327-@\306 5 45\206\356 4\211 4@)4\211 4A@)\3304 4\33148)!\3304 4\33248)!4 4\33348)\257*B B\202t\334-@,\"\211\204t-@\fB\335-@\306 5 45\206F4\211 4@)4\211 4A@)\3304 4\33148)!\3304 4\33248)!4 4\33348)\257*B B-@\211 4@)
B \203q +>\204q\336 p\"\203q +B+\337\340!\203.\313 !\203\256\341 !\210\342 \343\"\202\267\316\344!\210\311\345 !!\314 ! 6 7\346-@\306 5 45\206\3234\211 4@)4\211 4A@)\3304 4\33148)!\3304 4\33248)!4 4\33348)\257*B B7\306 0\211 1\203\"1@0\3200\3216#\2101A\2111\204\f*-7\244-*\202q\347-@\306 5 45\206C4\211 4@)4\211 4A@)\3304 4\33148)!\3304 4\33248)!4 4\33348)\257*B B-A\211-\204\250 \f8\350 !9\337\351!\203\272:\203\272;\306 <\211 =\203\271\352=@\312p!\"\211<+>\204\260<+B+=A\211=\204\230*+\237.\207" [semanticdb-current-table nexttable incfname scannedincludes lostincludes matchedincludes nil semantic-refresh-tags-safe append semantic-find-tags-included buffer-file-name semanticdb-table-p semanticdb-full-filename bufferp message "Need to derive tables for %S in translate-path-includes--default." semantic--tag-put-property :filename input-pending-p marker-buffer accept-process-output throw semantic-find-translate-path-includes-default duplicate copy-sequence 2 3 4 semanticdb-find-table-for-include lost semanticdb-equivalent-mode-for-search semanticdb-find-throttle-active-p recursive semanticdb-refresh-table semanticdb-find-tags-by-class-method include "semanticdb-ftp - how did you do that?" semanticdb-get-tags scanned scanned-no-recurse reverse omniscience semanticdb-file-table matchedtables curtable includetags path semanticdb-implied-include-tags it --dolist-tail-- semantic-current-input-throw-symbol semantic--on-input-start-marker tag name newincfname newtags semanticdb-find-lost-includes semanticdb-find-scanned-include-tags semanticdb-search-system-databases semanticdb-project-system-databases ans systemdb] 9 (#$ . 13577)])
#@196 Create a database table for FILENAME if it hasn't been parsed yet.
Assumes that FILENAME exists as a source file.
Assumes that a preexisting table does not exist, even if it
isn't in memory yet.
(defalias 'semanticdb-find-load-unloaded #[(filename) "\305\306!\203\356 \307\211\310\311\312!\310\204( \211\262\204( \262\n\205& \313\n\"\262\203S \211\204S \302N\203B \313\302N\"\211\262\204( \211\314N\206L \211\315N\262\262\202( \266\203\211\262\205g \211\203e N\205g J\266\203\206\334 \211\211\316N\262\205\334 \211\211\316N\262\310\311\312!\310\204\233 \211\262\204\233 \262\n\205\231 \313\n\"\262\203\306 \211\204\306 \302N\203\265 \313\302N\"\211\262\204\233 \211\314N\206\277 \211\315N\262\262\202\233 \266\203\211\262\205\332 \211\203\330 N\205\332 J\266\203\262\211\203\351 \f!\202\354 \317\f!)\207\320\f\321\"\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override filename semanticdb-find-throttle-active-p unloaded semanticdb-find-load-unloaded nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semanticdb-find-load-unloaded-default semanticdb-file-table-object t] 13 (#$ . 16221)])
(put 'semanticdb-find-load-unloaded 'mode-local-overload t)
#@72 Load an unloaded file in FILENAME using the default semanticdb loader.
(defalias 'semanticdb-find-load-unloaded-default #[(filename) "\301!\207" [filename semanticdb-file-table-object] 2 (#$ . 17510)])
#@277 Default implementation of `semanticdb-find-table-for-include'.
Uses `semanticdb-current-database-list' as the search path.
INCLUDETAG and TABLE are documented in `semanticdb-find-table-for-include'.
Included databases are filtered based on `semanticdb-find-default-throttle'.
(defalias 'semanticdb-find-table-for-include-default #[(includetag &optional table) "\211A@)\306=\204 \307\310\306D\"\210\311!\312\211\211\211 !\313!\203- \314\313!!\202= \"\203; \314\315\"!!\202= #\316\317!\203Y \320\321!
\"!\203Y \322\321!
\"!\202\316\323!\203g \324!\211\204\201 \316\325!\203\210 \326\327!\203\210 \330
!\203\210 \324!\211\203\210 \322 !\202\316\325!\203\211\331 $\332 \333 8)$\"+\204\326\327!\203\256 \330 \204\334 \n\204\f\203\335\f@\336\"\205\306 \337\f@\336\"\211 %\204\320 \312\202\371 \320\321!%\"!\203\344 \321!%\"\202\371 \320\321\340!!%\"!\205\371 \321\340!!%\" &%\203\n&\203\n\322&!*\fA\202\261 \n-\207" [includetag tag ans tmp roots originfiledir include signal wrong-type-argument semantic-tag-include-filename nil semantic-tag-file-name file-name-directory semanticdb-full-filename semanticdb-find-throttle-active-p local file-exists-p expand-file-name semanticdb-find-load-unloaded system semantic-dependency-tag-file project featurep ede ede-current-project :system-flag plist-get 2 semanticdb-current-database-list slot-boundp reference-directory eieio-oref file-name-nondirectory name table default-directory attribute ref fname] 6 (#$ . 17720)])
#@222 Call and output results of `semanticdb-find-translate-path'.
With ARG non-nil, specify a BRUTISH translation.
See `semanticdb-find-default-throttle' and `semanticdb-project-roots'
for details on how this list is derived.
(defalias 'semanticdb-find-test-translate-path #[(&optional arg) "\304 \210\305\306!\210\307 \310\311\"\307 \312\313!\210\314\315 \316\317 \"!*\"\210\320\n\321\"+\207" [arg end p start semantic-fetch-tags require data-debug current-time semanticdb-find-translate-path nil data-debug-new-buffer "*SEMANTICDB FTP ADEBUG*" message "Search of tags took %.2f seconds." float-time time-subtract data-debug-insert-stuff-list "*"] 6 (#$ . 19245) "P"])
#@222 Call and output results of `semanticdb-find-translate-path'.
With ARG non-nil, specify a BRUTISH translation.
See `semanticdb-find-default-throttle' and `semanticdb-project-roots'
for details on how this list is derived.
(defalias 'semanticdb-find-test-translate-path-no-loading #[(&optional arg) "\305 \210\306\307!\210\310\311!\205 \312\313\"\314 \315\316\n\"\314 \317\320!\210\321\322 \f \323\324\f \"!*\"\210\325 \326\",\207" [semanticdb-find-default-throttle start arg p end semantic-fetch-tags require data-debug featurep semantic/db-find remq unloaded current-time semanticdb-find-translate-path nil data-debug-new-buffer "*SEMANTICDB FTP ADEBUG*" message "Search of tags took %.2f seconds." float-time time-subtract data-debug-insert-stuff-list "*"] 6 (#$ . 19925) "P"])
#@116 Translate the current path, then display the lost includes.
Examines the variable `semanticdb-find-lost-includes'.
(defalias 'semanticdb-find-adebug-lost-includes #[nil "\302\303!\210\304\305\211\"\210\211\204 \306\307\310 \"\202 \311\312!)\207" [semanticdb-find-lost-includes lost require data-debug semanticdb-find-translate-path nil message "There are no unknown includes for %s" buffer-name data-debug-new-buffer "*SEMANTICDB lost-includes ADEBUG*"] 4 (#$ . 20718) nil])
#@167 Insert a button representing scanned include CONSDATA.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between prefix and the overlay button.
(defalias 'semanticdb-find-adebug-insert-scanned-tag-cons #[(consdata prefix prebuttontext) "`\306\n@\nA\211 \211 @) \307\f! \310\311
# \310\312\" \306 \261\210`c\210\313 \314 \315\267\202O \316\202P \317\202P \320\202P \321\202P \306$\210\313 \322\nA$\210\313 \323 G$\210\313 \324 $\210\313 \325 $\210\313 \326\327$\210\330c. \207" [start end consdata mode tag name nil semantic-tag-file-name format "%S %s" " : %s" put-text-property face #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (scanned 63 duplicate 67 lost 71 scanned-no-recurse 75)) font-lock-function-name-face font-lock-comment-face font-lock-variable-name-face font-lock-type-face ddebug ddebug-indent ddebug-prefix help-echo ddebug-function data-debug-insert-tag-parts-from-point "\n" file str1 str2 tip prefix prebuttontext] 7 (#$ . 21204)])
#@116 Translate the current path, then display the lost includes.
Examines the variable `semanticdb-find-lost-includes'.
(defalias 'semanticdb-find-adebug-scanned-includes #[nil "\303\304!\210\305\306\211\"\210\307 B\211\204 \310\311\312 \"\202# \313\314!\210\315\n\316\"*\207" [semanticdb-find-scanned-include-tags data-debug-thing-alist scanned require data-debug semanticdb-find-translate-path nil ((lambda (thing) (and (consp thing) (symbolp (car thing)) (memq (car thing) '(scanned scanned-no-recurse lost duplicate)))) . semanticdb-find-adebug-insert-scanned-tag-cons) message "There are no includes scanned %s" buffer-name data-debug-new-buffer "*SEMANTICDB scanned-includes ADEBUG*" data-debug-insert-stuff-list "*"] 4 (#$ . 22252) nil])
#@545 Strip a semanticdb search RESULTS to exclude objects.
This makes it appear more like the results of a `semantic-find-' call.
Optional FIND-FILE-MATCH loads all files associated with RESULTS
into buffers. This has the side effect of enabling `semantic-tag-buffer' to
return a value.
If FIND-FILE-MATCH is `name', then only the filename is stored
in each tag instead of loading each file into a buffer.
If the input RESULTS are not going to be used again, and if
FIND-FILE-MATCH is nil, you can use `semanticdb-fast-strip-find-results'
instead.
(defalias 'semanticdb-strip-find-results #[(results &optional find-file-match) "\203\234 \306\211\203\231 @@ @A \f\306 \211 \203\221 @\307
\"\211 @ A \204B
\202I \310\nC\"\311=\203y \312 \313 \3148)\"*\204\207 \315! \316\312#\210)\202\207 \203\207 \203\207 \317!\210,A\211\204 , A\211\204\f \n*\207\320\310\321\322 \"\"\207" [find-file-match results output tmp tags tab nil semanticdb-normalize-one-tag append name :filename plist-get 3 semanticdb-full-filename semantic--tag-put-property semanticdb-get-buffer apply mapcar cdr T --dolist-tail-- norm ntab ntag nametable property tag f] 6 (#$ . 23003)])
#@233 Destructively strip a semanticdb search RESULTS to exclude objects.
This makes it appear more like the results of a `semantic-find-' call.
This is like `semanticdb-strip-find-results', except the input list RESULTS
will be changed.
(defalias 'semanticdb-fast-strip-find-results #[(results) "\301\302\"\207" [results mapcan cdr] 3 (#$ . 24220)])
#@192 Non-nil if RESULTP is in the form of a semanticdb search result.
This query only really tests the first entry in the list that is RESULTP,
but should be good enough for debugging assertions.
(defalias 'semanticdb-find-results-p #[(resultp) "<\205Q @<\205Q @@\303 !)\205Q @A@\3041F \n:\205B \n@;\205B \nA@9\205B \nA@\205B \305\n8<\205B \306\n8<0\202H \210\307)\206Q @A@?\207" [resultp #1=#:val tag semanticdb-abstract-table--eieio-childp (error) 2 3 nil] 2 (#$ . 24573)])
#@87 Presuming RESULT satisfies `semanticdb-find-results-p', provide a short PRIN1 output.
(defalias 'semanticdb-find-result-prin1-to-string #[(result) "G\301W\203 \302\303\304\305#\306Q\207\307\310\311!G#\207" [result 2 "#<FIND RESULT " mapconcat #[(a) "\301\302@!\303\304AG!\305\260\207" [a "(" eieio-object-name " . #<TAG LIST " number-to-string ">)"] 5] " " ">" format "#<FIND RESULT %d TAGS in %d FILES>" semanticdb-find-result-length] 5 (#$ . 25057)])
#@287 Non-nil if RESULTP is in the form of a semanticdb search result.
The value nil is valid where a TABLE usually is, but only if the TAG
results include overlays.
This query only really tests the first entry in the list that is RESULTP,
but should be good enough for debugging assertions.
(defalias 'semanticdb-find-result-with-nil-p #[(resultp) "<\205c @<\205c @A\242@@\304\n!)\203S \3051H :\205D @;\205D A@9\205D A@\205D \306 8<\205D \307 8<0\202J \210\310)\206b ?\206b @@?\205b \311 !\206b ?)\207" [resultp tag-to-test #1=#:val tag semanticdb-abstract-table--eieio-childp (error) 2 3 nil semantic-tag-with-position-p] 2 (#$ . 25525)])
#@33 Number of tags found in RESULT.
(defalias 'semanticdb-find-result-length #[(result) "\302\303\304 \"\210)\207" [count result 0 mapc #[(onetable) " GS\\\211\207" [count onetable] 2]] 3 (#$ . 26181)])
#@290 In RESULT, return the Nth search result.
This is a 0 based search result, with the first match being element 0.
The returned value is a cons cell: (TAG . TABLE) where TAG
is the tag at the Nth position. TABLE is the semanticdb table where
the TAG was found. Sometimes TABLE can be nil.
(defalias 'semanticdb-find-result-nth #[(result n) "\305\211 \204/ \n\203/ \n@AG\211\fV\203$ \f\n@A8\n@@\202( \f Z)\nA\202 *B\207" [anstable ans result ll n nil] 3 (#$ . 26391)])
#@52 Test RESULT by accessing all the tags in the list.
(defalias 'semanticdb-find-result-test #[(result) "\304!\204\n \305\306!\210\307!\310 \nW\205\\ \311 \"\211@\3121I :\205E @;\205E A@9\205E A@\205E \313 8<\205E \314 8<0\202K \210\315)\204T \305\316 \"\210) T\211\202 *\207" [result i len tag semanticdb-find-results-p error "Does not pass `semanticdb-find-results-p.\n" semanticdb-find-result-length 0 semanticdb-find-result-nth (error) 2 3 nil "%d entry is not a tag"] 4 (#$ . 26875)])
#@260 In RESULT, return the Nth search result.
Like `semanticdb-find-result-nth', except that only the TAG
is returned, and the buffer it is found it will be made current.
If the result tag has no position information, the originating buffer
is still made current.
(defalias 'semanticdb-find-result-nth-in-buffer #[(result n) "\306 \"\211@\nA\211 \203/ \307\f \"\211 \203. \3101) \311
@!\210
A\2110\202- \210\202. \210) +\207" [result n ret ans anstable norm semanticdb-find-result-nth semanticdb-normalize-one-tag (no-method-definition) semanticdb-set-buffer] 4 (#$ . 27382)])
#@178 Apply FCN to each element of find RESULT for side-effects only.
FCN takes two arguments. The first is a TAG, and the
second is a DB from whence TAG originated.
Returns result.
(defalias 'semanticdb-find-result-mapc #[(fcn result) "\301\302\"\210\207" [result mapc #[(sublst-icky) "\301\302A\"\207" [sublst-icky mapc #[(tag-icky) " \n@\"\207" [fcn tag-icky sublst-icky] 3]] 3]] 3 (#$ . 27965)])
#@44 Non-nil means log the process of searches.
(defvar semanticdb-find-log-flag nil (#$ . 28370))
#@33 The name of the logging buffer.
(defvar semanticdb-find-log-buffer-name "*SemanticDB Find Log*" (#$ . 28470))
#@28 Toggle semanticdb logging.
(defalias 'semanticdb-find-toggle-logging #[nil "?\301\302\203
\303\202 \304\"\207" [semanticdb-find-log-flag message "Semanticdb find logging is %sabled" "en" "dis"] 3 (#$ . 28586) nil])
#@23 Reset the log buffer.
(defalias 'semanticdb-reset-log #[nil "\205
r\302 !q\210\303 )\207" [semanticdb-find-log-flag semanticdb-find-log-buffer-name get-buffer-create erase-buffer] 2 (#$ . 28812) nil])
#@38 Move to the end of the semantic log.
(defalias 'semanticdb-find-log-move-to-end #[nil "p\303 \304\216\nq\210\305p\306\"\203 \307\305p\306\"!\210db+\207" [cw cb semanticdb-find-log-buffer-name selected-window #[nil "\203 \302!\210 q\207" [cw cb select-window] 2] get-buffer-window visible select-window] 4 (#$ . 29021)])
#@29 Start a new search FORWHAT.
(defalias 'semanticdb-find-log-new-search #[(forwhat) "\205 r\303 !q\210\304\305\n\"c\210)\306 \207" [semanticdb-find-log-flag semanticdb-find-log-buffer-name forwhat get-buffer-create format "New Search: %S\n" semanticdb-find-log-move-to-end] 3 (#$ . 29353)])
#@56 Log that TABLE has been searched and RESULT was found.
(defalias 'semanticdb-find-log-activity #[(table result) "\205 r q\210\304\305\n!\306\307 G!\310\311\261\210)\312 \207" [semanticdb-find-log-flag semanticdb-find-log-buffer-name table result "Table: " cl-prin1-to-string " Result: " int-to-string " tags" "\n" semanticdb-find-log-move-to-end] 6 (#$ . 29650)])
#@818 Collect all tags returned by FUNCTION over PATH.
The FUNCTION must take two arguments. The first is TABLE,
which is a semanticdb table containing tags. The second argument
to FUNCTION is TAGS. TAGS may be a list of tags. If TAGS is non-nil,
then FUNCTION should search the TAG list, not through TABLE.
See `semanticdb-find-translate-path' for details on PATH.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated with that tag should be loaded into a buffer.
Note: You should leave FIND-FILE-MATCH as nil. It is far more
efficient to take the results from any search and use
`semanticdb-strip-find-results' instead. This argument is here
for backward compatibility.
If optional argument BRUTISH is non-nil, then ignore include statements,
and search all tables in this project tree.
(defalias 'semanticdb-find-tags-collector #[(function &optional path find-file-match brutish) "\306\211r\307\n!\203 \nq\210\310\n!\203v \n\306\211 \203r \f@
\203? \311 \204: r\312!q\210\212b\210\313 *\203? \314
\315\"\210\203L \316 @\317\"\204k @ A\"\211\203k \203d \212\320 @!\210) @B B\fA\211\204 *\202\351 \321\306!\210\322\n\"\306 \211 \203\350 \f@
\203\253 \311 \204\246 r\312!q\210\212b\210\313 *\203\253 \314
\315\"\210\203\270 \316\317\"\204\341 \203\341 \306\"\211\203\341 \323\"\210\203\332 \212\320!\210)B B\fA\211\204\207 *) \237*\207" [match found path tableandtags --dolist-tail-- semantic-current-input-throw-symbol nil bufferp semanticdb-find-results-p input-pending-p marker-buffer accept-process-output throw semantic-find-translate-path obj-of-class-p semanticdb-search-results-table semanticdb-set-buffer semanticdb-find-log-new-search semanticdb-find-translate-path semanticdb-find-log-activity semantic--on-input-start-marker find-file-match function brutish table] 4 (#$ . 30024)])
#@226 Search for all tags matching NAME on PATH.
See `semanticdb-find-translate-path' for details on PATH.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated with that tag should be loaded into a buffer.
(defalias 'semanticdb-find-tags-by-name #[(name &optional path find-file-match) "\302\303 #\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table name tags semanticdb-find-tags-by-name-method] 4]] 4 (#$ . 31906)])
#@228 Search for all tags matching REGEXP on PATH.
See `semanticdb-find-translate-path' for details on PATH.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated with that tag should be loaded into a buffer.
(defalias 'semanticdb-find-tags-by-name-regexp #[(regexp &optional path find-file-match) "\302\303 #\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table regexp tags semanticdb-find-tags-by-name-regexp-method] 4]] 4 (#$ . 32395)])
#@228 Search for all tags matching PREFIX on PATH.
See `semanticdb-find-translate-path' for details on PATH.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated with that tag should be loaded into a buffer.
(defalias 'semanticdb-find-tags-for-completion #[(prefix &optional path find-file-match) "\302\303 #\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table prefix tags semanticdb-find-tags-for-completion-method] 4]] 4 (#$ . 32904)])
#@221 Search for all tags of CLASS on PATH.
See `semanticdb-find-translate-path' for details on PATH.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated with that tag should be loaded into a buffer.
(defalias 'semanticdb-find-tags-by-class #[(class &optional path find-file-match) "\302\303 #\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table class tags semanticdb-find-tags-by-class-method] 4]] 4 (#$ . 33413)])
#@282 Search for all tags matching NAME on PATH.
Search also in all components of top level tags founds.
See `semanticdb-find-translate-path' for details on PATH.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated with that tag should be loaded into a buffer.
(defalias 'semanticdb-deep-find-tags-by-name #[(name &optional path find-file-match) "\302\303 #\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table name tags semanticdb-deep-find-tags-by-name-method] 4]] 4 (#$ . 33901)])
#@284 Search for all tags matching REGEXP on PATH.
Search also in all components of top level tags founds.
See `semanticdb-find-translate-path' for details on PATH.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated with that tag should be loaded into a buffer.
(defalias 'semanticdb-deep-find-tags-by-name-regexp #[(regexp &optional path find-file-match) "\302\303 #\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table regexp tags semanticdb-deep-find-tags-by-name-regexp-method] 4]] 4 (#$ . 34456)])
#@284 Search for all tags matching PREFIX on PATH.
Search also in all components of top level tags founds.
See `semanticdb-find-translate-path' for details on PATH.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated with that tag should be loaded into a buffer.
(defalias 'semanticdb-deep-find-tags-for-completion #[(prefix &optional path find-file-match) "\302\303 #\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table prefix tags semanticdb-deep-find-tags-for-completion-method] 4]] 4 (#$ . 35031)])
#@320 Search for all tags matching NAME on PATH.
See `semanticdb-find-translate-path' for details on PATH.
The argument BRUTISH will be set so that searching includes all tables
in the current project.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated wit that tag should be loaded into a buffer.
(defalias 'semanticdb-brute-deep-find-tags-by-name #[(name &optional path find-file-match) "\302\303 \304$\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table name tags semanticdb-deep-find-tags-by-name-method] 4] t] 5 (#$ . 35606)])
#@322 Search for all tags matching PREFIX on PATH.
See `semanticdb-find-translate-path' for details on PATH.
The argument BRUTISH will be set so that searching includes all tables
in the current project.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated wit that tag should be loaded into a buffer.
(defalias 'semanticdb-brute-deep-find-tags-for-completion #[(prefix &optional path find-file-match) "\302\303 \304$\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table prefix tags semanticdb-deep-find-tags-for-completion-method] 4] t] 5 (#$ . 36211)])
#@316 Search for all tags of CLASS on PATH.
See `semanticdb-find-translate-path' for details on PATH.
The argument BRUTISH will be set so that searching includes all tables
in the current project.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated with that tag should be loaded into a buffer.
(defalias 'semanticdb-brute-find-tags-by-class #[(class &optional path find-file-match) "\302\303 \304$\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table class tags semanticdb-find-tags-by-class-method] 4] t] 5 (#$ . 36836)])
#@248 Search for all tags defined outside of TYPE w/ TYPE as a parent.
See `semanticdb-find-translate-path' for details on PATH.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated with that tag should be loaded into a buffer.
(defalias 'semanticdb-find-tags-external-children-of-type #[(type &optional path find-file-match) "\302\303 \304$\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table type tags semanticdb-find-tags-external-children-of-type-method] 4] t] 5 (#$ . 37431)])
#@245 Search for all tags of class type defined that subclass TYPE.
See `semanticdb-find-translate-path' for details on PATH.
FIND-FILE-MATCH indicates that any time a match is found, the file
associated with that tag should be loaded into a buffer.
(defalias 'semanticdb-find-tags-subclasses-of-type #[(type &optional path find-file-match) "\302\303 \304$\207" [path find-file-match semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table type tags semanticdb-find-tags-subclasses-of-type-method] 4] t] 5 (#$ . 37984)])
(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\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\210\300\327\302\330\302\331%\210\300\332\302\333\302\334%\210\335\336!\207" [cl-generic-define-method semanticdb-find-tags-by-name-method nil ((table semanticdb-abstract-table) name &optional tags) #[(table name &optional tags) "\306\n\206\n \307 !!\310 \211\203*
\n@\211 @)\230\203# \n@\fB\nA\211\204 \f\237+\207" [semantic-case-fold case-fold-search tags table result name semantic-something-to-tag-table semanticdb-get-tags nil tag] 4 "In TABLE, find all occurrences of tags with NAME.\nOptional argument TAGS is a list of tags to search.\nReturns a table of all matching tags."] semanticdb-find-tags-by-name-regexp-method ((table semanticdb-abstract-table) regexp &optional tags) #[(table regexp &optional tags) "\306\n\206\n \307 !!\310 \211\203+ \311
\n@\211 \n@)\"\203$ \n@\fB\nA\211\204 \f\237+\207" [semantic-case-fold case-fold-search tags table result regexp semantic-something-to-tag-table semanticdb-get-tags nil string-match tag] 4 "In TABLE, find all occurrences of tags matching REGEXP.\nOptional argument TAGS is a list of tags to search.\nReturns a table of all matching tags."] semanticdb-find-tags-for-completion-method ((table semanticdb-abstract-table) prefix &optional tags) #[(table prefix &optional tags) "G\306\n\206 \307 !!\310 \211\2034 \311\312\310\n@\211 @)\312 \f&\313=\203- \n@\fB\nA\211\204 \f\237+\207" [prefix l tags table result tag semantic-something-to-tag-table semanticdb-get-tags nil compare-strings 0 t semantic-case-fold] 9 "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-find-tags-by-class-method ((table semanticdb-abstract-table) class &optional tags) #[(table class &optional tags) "\305=\203 \306 \206 \307\n!!\207\310 \206 \307\n!!\311\211\2038 @\211 A@)=\2031 @ B A\211\204 \237*\207" [class tags table result tag include semantic-find-tags-included semanticdb-get-tags semantic-something-to-tag-table nil] 4 "In TABLE, find all occurrences of tags of CLASS.\nOptional argument TAGS is a list of tags to search.\nReturns a table of all matching tags."] semanticdb-find-tags-external-children-of-type-method ((table semanticdb-abstract-table) parent &optional tags) #[(table parent &optional tags) "\303\304!\210\305 \206
\306\n!\"\207" [parent tags table require semantic/find semantic-find-tags-external-children-of-type semanticdb-get-tags] 4 "In TABLE, find all occurrences of tags whose parent is the PARENT type.\nOptional argument TAGS is a list of tags to search.\nReturns a table of all matching tags."] semanticdb-find-tags-subclasses-of-type-method ((table semanticdb-abstract-table) parent &optional tags) #[(table parent &optional tags) "\303\304!\210\305 \206
\306\n!\"\207" [parent tags table require semantic/find semantic-find-tags-subclasses-of-type semanticdb-get-tags] 4 "In TABLE, find all occurrences of tags whose parent is the PARENT type.\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-abstract-table) name &optional tags) #[(table name &optional tags) "\306\307\n\206 \310 !!!\311 \211\203,
\n@\211 \n@)\230\203% \n@\fB\nA\211\204 \f\237+\207" [semantic-case-fold case-fold-search tags table result name semantic-something-to-tag-table semantic-flatten-tags-table semanticdb-get-tags nil tag] 5 "In TABLE, find all occurrences of tags with NAME.\nSearch in all tags in TABLE, and all components of top level tags in\nTABLE.\nOptional argument TAGS is a list of tags to search.\nReturn a table of all matching tags."] semanticdb-deep-find-tags-by-name-regexp-method ((table semanticdb-abstract-table) regexp &optional tags) #[(table regexp &optional tags) "\306\307\n\206 \310 !!!\311 \211\203- \312
\n@\211 @)\"\203& \n@\fB\nA\211\204 \f\237+\207" [semantic-case-fold case-fold-search tags table result regexp semantic-something-to-tag-table semantic-flatten-tags-table semanticdb-get-tags nil string-match tag] 5 "In TABLE, find all occurrences of tags matching REGEXP.\nSearch in all tags in TABLE, and all components of top level tags in\nTABLE.\nOptional argument TAGS is a list of tags to search.\nReturn a table of all matching tags."] semanticdb-deep-find-tags-for-completion-method ((table semanticdb-abstract-table) prefix &optional tags) #[(table prefix &optional tags) "G\306\307\n\206\f \310 !!!\311 \211\2036 \312\313\311\n@\211 @)\313
&\314=\203/ \n@\fB\nA\211\204 \f\237+\207" [prefix l tags table result tag semantic-something-to-tag-table semantic-flatten-tags-table semanticdb-get-tags nil compare-strings 0 t semantic-case-fold] 9 "In TABLE, find all occurrences of tags matching PREFIX.\nSearch in all tags in TABLE, and all components of top level tags in\nTABLE.\nOptional argument TAGS is a list of tags to search.\nReturn a table of all matching tags."] provide semantic/db-find] 6)
Mini Shell