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



(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)) (#$ . 165))
(byte-code "\301\302\303\304\305DD\306\307\310\311&\210\312\302!\207" [semanticdb-find-throttle-custom-list custom-declare-variable semanticdb-find-default-throttle funcall function #[0 "\300\207" [(local project unloaded system recursive)] 1 ""] "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)
#@70 Non-nil if ACCESS-TYPE is an active throttle type.

(fn ACCESS-TYPE)
(defalias 'semanticdb-find-throttle-active-p #[257 "\211>\206\211\301=\206\211\302=\205\303>\207" [semanticdb-find-default-throttle file local project] 3 (#$ . 2148)])
(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)
#@85 Create a new object of class type `semanticdb-find-search-index'.

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

(fn WHOLE &rest SLOTS)
(defalias 'semanticdb-find-search-index--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 (#$ . 3707)])
(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)) #[257 "\300\301!\210\302
\303\304#\210\305
\306\"\203\307\305\306\"!\210\310 \207" [require semantic/scope eieio-oset include-path nil eieio-oref type-cache semantic-reset semantic-scope-reset-cache] 5 "Reset the object IDX.\n\n(fn IDX)"] semanticdb-synchronize ((idx semanticdb-find-search-index) _new-tags) #[514 "\300!\210\301\302\303\"\304\"\207" [semantic-reset semanticdb-notify-references eieio-oref table #[514 "\300\301!!\207" [semantic-reset semanticdb-get-table-index] 5 "\n\n(fn TAB ME)"]] 6 "Synchronize the search index IDX with some NEW-TAGS.\n\n(fn IDX NEW-TAGS)"] semanticdb-partial-synchronize ((idx semanticdb-find-search-index) new-tags) #[514 "\300
!\301
\203!
@\211A@\262
\302=\203
@
B\262

A\262\202\211\237\266\202\2034\303!\210\304\305\306\"\307\"\207\305\310\"\205L\311\305\310\"\"\205L\304\305\306\"\312\"\207" [semantic-something-to-tag-table nil include semantic-reset semanticdb-notify-references eieio-oref table #[514 "\300\301!!\207" [semantic-reset semanticdb-get-table-index] 5 "\n\n(fn TAB ME)"] type-cache semanticdb-partial-synchronize #[514 "\300!\301
\302\"\205\303\304!\210\305\301\302\"!\207" [semanticdb-get-table-index eieio-oref type-cache require semantic/db-typecache semanticdb-typecache-notify-reset] 7 "\n\n(fn TAB ME)"]] 6 "Synchronize the search index IDX with some changed NEW-TAGS.\n\n(fn IDX NEW-TAGS)"]] 6)
#@1742 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.

(fn PATH BRUTISH)
(defalias 'semanticdb-find-translate-path #[514 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\341\211\"\207\313\"\207" [mode-local-active-mode major-mode mode-local-symbol-table 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] 14 (#$ . 5527)])
(put 'semanticdb-find-translate-path 'mode-local-overload t)
#@195 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'.

(fn PATH BRUTISH)
(defalias 'semanticdb-find-translate-path-default #[514 "\300!?\205\211\203\301!\207\302!\207" [semanticdb-find-results-p semanticdb-find-translate-path-brutish-default semanticdb-find-translate-path-includes-default] 4 (#$ . 8230)])
#@300 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.

(fn INCLUDETAG &optional TABLE)
(defalias 'semanticdb-find-table-for-include #[513 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\341\211\"\207\313\"\207" [mode-local-active-mode major-mode mode-local-symbol-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] 14 (#$ . 8672)])
(put 'semanticdb-find-table-for-include 'mode-local-overload t)
#@124 Translate PATH into a list of semantic tables.
Default action as described in `semanticdb-find-translate-path'.

(fn PATH)
(defalias 'semanticdb-find-translate-path-brutish-default #[257 "\211\204\202+\302
!\203\303
\304\"\202+\305
!\211\203(r\306
@!q\210)\202)\262
\307\310\311\312\313\203<\303\314\"\202=	!\"\"\207" [semanticdb-current-database default-directory semanticdb-table-p eieio-oref parent-db semantic-something-to-tag-table semantic-tag-buffer apply nconc mapcar #[257 "\302
!\303
\203;\203&\304 \204!r\305	!q\210\212	b\210\306 *\203&\307\310\"\210\311@p\"\2034
@
B\262

A\262\202\207" [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] 6 "\n\n(fn DB)"] semanticdb-current-database-list reference-directory] 10 (#$ . 9945)])
#@56 Are there any incomplete entries in CACHE?

(fn CACHE)
(defalias 'semanticdb-find-incomplete-cache-entries-p #[257 "\300
\211\203!\211@\301
!\203\302\303\304\"!\204\305\262
A\266\202\202\210\207" [nil semanticdb-table--eieio-childp number-or-marker-p eieio-oref pointmax t] 8 (#$ . 10889)])
#@72 Non-nil if the semanticdb TABLE cache needs to be updated.

(fn TABLE)
(defalias 'semanticdb-find-need-cache-update-p #[257 "\300
!\211\205\301
\302\"\303
!\304\305!\205
?\206\211??\205!\306\207" [semanticdb-get-table-index eieio-oref include-path semanticdb-find-incomplete-cache-entries-p semanticdb-find-throttle-active-p unloaded t] 6 (#$ . 11195)])
#@124 Translate PATH into a list of semantic tables.
Default action as described in `semanticdb-find-translate-path'.

(fn PATH)
(defalias 'semanticdb-find-translate-path-includes-default #[257 "\211\204\2022\301
!\203\302\300\"\2022\211;\203'\303
!\203'\304
\305\"\2022\306
!\2031\211\2022\307\211\203V\310
!\311!\203Q\312!\313\314#\210\211\203P\315!\210\207\316
\314\"\207\312!\207" [semanticdb-current-table 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] 8 (#$ . 11564)])
#@64 Include files that we cannot find associated with this buffer.
(defvar semanticdb-find-lost-includes nil (#$ . 12309))
(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 (#$ . 12495))
(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 (#$ . 12837))
#@191 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.

(fn PATH)
(defalias 'semanticdb-find-translate-path-includes--internal #[257 "\306\211C\306\211\211\211\211\204#\307 \210\310\311p!	\"\262\262\312 \262\202v\313	!\203=\311	!\262\262\314	!\262\202v\315	!\203erq\210\307 \210)\311	!\262rq\210)\262\312	!\262\202v\311	!\262\203v\316\317\n\"\210
\203\221\211\203\220\211@\320
\321#\210
A\266\202\202|\210\203\n\203\264\322 \204\257r\323!q\210\212b\210\324 *\203\264\325\n\326\"\210@\211@\262
\235\203\371\306\262
\327@\306\211\206\321
\211@\262
\211A@\262
\330\331
8\262
!\330\332
8\262
!\333
8\262
\257\266\202BB\262\202@
\334@\"\262
\211\204@
@B\262\335@\306\211\206

\211@\262
\211A@\262
\330\331
8\262
!\330\332
8\262
!\333
8\262
\257\266\202BB\262@\211@\262
B\262\211\203\f\211>\204\f\336
p\"\203\f\211B\262\337\340!\203\331
\313
!\203z
\341
!\210\342
\343\"\202\203
\316\344!\210\311\345!!\314!\346\n@\306\211\206\224

\211@\262
\211A@\262
\330\331
8\262
!\330\332
8\262
!\333
8\262
\257\266\202BB\262
\211\203\315
\211@\320
\321#\210
A\266\202\202\272
\210	\244\262\n\266\202\f\347@\306\211\206\347

\211@\262
\211A@\262
\330\331
8\262
!\330\332
8\262
!\333
8\262
\257\266\202BB\262A\262\202\221\350!\337\351!\203K+\203K,\306
\203I\352@\312p!\"\262
\211>\204B\211B\262
A\262\202(\266\237\207" [semanticdb-current-table semanticdb-implied-include-tags semantic-current-input-throw-symbol semantic--on-input-start-marker semanticdb-find-lost-includes semanticdb-find-scanned-include-tags 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 semanticdb-search-system-databases semanticdb-project-system-databases] 21 (#$ . 13205)])
#@211 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.

(fn FILENAME)
(defalias 'semanticdb-find-load-unloaded #[257 "\303\304!\203\352\305\211\306\307\310!\306\204(\211\262\204(	\262\n\205&\311\n\"\262
\203S\211\204S\302N\203B\311\302N\"\211\262\204(\211\312N\206L\211\313N\262
\262\202(\266\203\211\262\205g\211\203e
N\205gJ\266\203\206\334\211\211\314N\262
\205\334\211\211\314N\262
\306\307\310!\306\204\233\211\262\204\233	\262\n\205\231\311\n\"\262
\203\306\211\204\306\302N\203\265\311\302N\"\211\262\204\233\211\312N\206\277\211\313N\262
\262\202\233\266\203\211\262\205\332\211\203\330
N\205\332J\266\203\262
\211\203\346\211!\207\315!\207\316
\317\"\207" [mode-local-active-mode major-mode mode-local-symbol-table 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 (#$ . 15768)])
(put 'semanticdb-find-load-unloaded 'mode-local-overload t)
#@87 Load an unloaded file in FILENAME using the default semanticdb loader.

(fn FILENAME)
(defalias 'semanticdb-find-load-unloaded-default #[257 "\300
!\207" [semanticdb-file-table-object] 3 (#$ . 17035)])
#@310 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'.

(fn INCLUDETAG &optional TABLE)
(defalias 'semanticdb-find-table-for-include-default #[513 "
\211A@\262
\301=\204\302\303\301D\"\210\304!\305\211\211\211\306!\203)\307\306!!\2027\2036\307\310!!\2027\262\311\312!\203S\313\314\"!\203S\315\314\"!\207\311\316!\203c\317!\211\262\204\311\320!\203\203\321\322!\203\203\323!\203\203\317!\211\262\203\203\315!\207\311\320!\203
\211\324\325\326
8\262
\"\266\203\204
\321\322!\203\246\323 \204
\327 \262\211\204
\203
\330@\331\"\205\277\332@\331\"\211\204\307\305\202\354\313\314\"!\203\331\314\"\202\354\313\314\333!\"!\205\354\314\333!\"
\203\371\211\203\371\315
!\262\266A\262\202\252\207" [default-directory 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] 14 (#$ . 17244)])
#@242 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.

(fn &optional ARG)
(defalias 'semanticdb-find-test-translate-path #[256 "\300 \210\301\302!\210\303 \304\305\"\303 \306\307!\210\310\311\312\313\"!\266\202\"\210\314\315\"\207" [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 "*"] 12 (#$ . 18719) "P"])
#@242 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.

(fn &optional ARG)
(defalias 'semanticdb-find-test-translate-path-no-loading #[256 "\301 \210\302\303!\210\304\305!\205\306\307\"\310 \311\312\"\310 \313\314!\210\315\316\317\320\"!\266\202\"\210\321\322\")\207" [semanticdb-find-default-throttle 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 "*"] 12 (#$ . 19392) "P"])
#@116 Translate the current path, then display the lost includes.
Examines the variable `semanticdb-find-lost-includes'.
(defalias 'semanticdb-find-adebug-lost-includes #[0 "\301\302!\210\303\304\211\"\210\211\204\305\306\307 \"\207\310\311!\207" [semanticdb-find-lost-includes 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 (#$ . 20177) nil])
#@203 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.

(fn CONSDATA PREFIX PREBUTTONTEXT)
(defalias 'semanticdb-find-adebug-insert-scanned-tag-cons #[771 "`\300@A\211\211@\262
\301!\302\303#\302\304\"		\261\210`\262\211c\210\305\306	\307\267\202B\310\202C\311\202C\312\202C\313\202C\300$\210\305\314A$\210\305\315
G$\210\305\316
$\210\305\317\320$\210\321c\207" [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 50 duplicate 54 lost 58 scanned-no-recurse 62)) font-lock-function-name-face font-lock-comment-face font-lock-variable-name-face font-lock-type-face ddebug ddebug-indent ddebug-prefix ddebug-function data-debug-insert-tag-parts-from-point "\n"] 17 (#$ . 20652)])
#@116 Translate the current path, then display the lost includes.
Examines the variable `semanticdb-find-lost-includes'.
(defalias 'semanticdb-find-adebug-scanned-includes #[0 "\302\303!\210\304\305\211\"\210\306	B\211\204\307\310\311 \"\202\"\312\313!\210\314
\315\")\207" [semanticdb-find-scanned-include-tags data-debug-thing-alist 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 (#$ . 21605) nil])
#@585 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.

(fn RESULTS &optional FIND-FILE-MATCH)
(defalias 'semanticdb-strip-find-results #[513 "\211\203w
\300
\203v
@@@A\211\211\203m\211@\301\"\211@
A
\204+\262
\2023\302	C\"\262	\n\303=\203W
\304\305\306
8\262
\"\266\202\204d\307
!\310\304#\266\202f\n\203d\203d\311!\210\266
A\266\202\202\266
A\262\202\207\312\302\313\314\"\"\207" [nil semanticdb-normalize-one-tag append name :filename plist-get 3 semanticdb-full-filename semantic--tag-put-property semanticdb-get-buffer apply mapcar cdr] 18 (#$ . 22345)])
#@247 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.

(fn RESULTS)
(defalias 'semanticdb-fast-strip-find-results #[257 "\300\301\"\207" [mapcan cdr] 4 (#$ . 23436)])
#@206 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.

(fn RESULTP)
(defalias 'semanticdb-find-results-p #[257 "\211<\205S\211@<\205S\211@@\300
!\262
\205S\211@A@\3011G\211:\205A\211@;\205A\211A@9\205A\211A@\205A\302
8<\205A\303
8<0\262
\202K\210\304\262
\206S\211@A@?\207" [semanticdb-abstract-table--eieio-childp (error) 2 3 nil] 4 (#$ . 23789)])
#@93 If RESULT satisfies `semanticdb-find-results-p', provide a short PRIN1 output.

(fn RESULT)
(defalias 'semanticdb-find-result-prin1-to-string #[257 "\211G\300W\203\301\302\303\304#\305Q\207\306\307\310!G#\207" [2 "#<FIND RESULT " mapconcat #[257 "\300\301@!\302\303AG!\304\260\207" ["(" eieio-object-name " . #<TAG LIST " number-to-string ">)"] 6 "\n\n(fn A)"] " " ">" format "#<FIND RESULT %d TAGS in %d FILES>" semanticdb-find-result-length] 6 (#$ . 24292)])
#@301 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.

(fn RESULTP)
(defalias 'semanticdb-find-result-with-nil-p #[257 "\211<\205e\211@<\205e\211@A\242
@@\300
!\262
\203T\211\3011H\211:\205B\211@;\205B\211A@9\205B\211A@\205B\302
8<\205B\303
8<0\262
\202L\210\304\262
\206c\211?\206c
@@?\205c\305
!\206c\211?\262
\207" [semanticdb-abstract-table--eieio-childp (error) 2 3 nil semantic-tag-with-position-p] 5 (#$ . 24768)])
#@46 Number of tags found in RESULT.

(fn RESULT)
(defalias 'semanticdb-find-result-length #[257 "\300C\301\302\303\"\"\210\211\242\207" [0 mapc make-closure #[257 "\300\211\242GS\\\240\207" [V0] 4 "\n\n(fn ONETABLE)"]] 6 (#$ . 25442)])
#@305 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.

(fn RESULT N)
(defalias 'semanticdb-find-result-nth #[514 "\300\211
\2040\2030@AG\211V\203#@A8\262@@\266\202\202)
Z\262\210A\262\202

B\207" [nil] 7 (#$ . 25684)])
#@65 Test RESULT by accessing all the tags in the list.

(fn RESULT)
(defalias 'semanticdb-find-result-test #[257 "\300
!\204\n\301\302!\210\303
!\304\211W\205[\305\"\211@\3061G\211:\205A\211@;\205A\211A@9\205A\211A@\205A\307
8<\205A\310
8<0\262
\202K\210\311\262
\204S\301\312\"\210\210\211T\262
\202\207" [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"] 7 (#$ . 26161)])
#@275 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.

(fn RESULT N)
(defalias 'semanticdb-find-result-nth-in-buffer #[514 "\300\"\211@
A\211\203*\301
\"\211\203)\3021(\303
@!\210\211A\211\2620\266\202*\210\210
\207" [semanticdb-find-result-nth semanticdb-normalize-one-tag (no-method-definition) semanticdb-set-buffer] 8 (#$ . 26682)])
#@195 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.

(fn FCN RESULT)
(defalias 'semanticdb-find-result-mapc #[514 "\300\301\302\"\"\210\207" [mapc make-closure #[257 "\301\302\303\300#A\"\207" [V0 mapc make-closure #[257 "\300
\301@\"\207" [V0 V1] 4 "\n\n(fn TAG-ICKY)"]] 6 "\n\n(fn SUBLST-ICKY)"]] 6 (#$ . 27240)])
#@44 Non-nil means log the process of searches.
(defvar semanticdb-find-log-flag nil (#$ . 27691))
#@33 The name of the logging buffer.
(defvar semanticdb-find-log-buffer-name "*SemanticDB Find Log*" (#$ . 27791))
#@28 Toggle semanticdb logging.
(defalias 'semanticdb-find-toggle-logging #[0 "?\301\302\203
\303\202\304\"\207" [semanticdb-find-log-flag message "Semanticdb find logging is %sabled" "en" "dis"] 3 (#$ . 27907) nil])
#@23 Reset the log buffer.
(defalias 'semanticdb-reset-log #[0 "\205
r\302	!q\210\303 )\207" [semanticdb-find-log-flag semanticdb-find-log-buffer-name get-buffer-create erase-buffer] 2 (#$ . 28131) nil])
#@38 Move to the end of the semantic log.
(defalias 'semanticdb-find-log-move-to-end #[0 "p\301 \302\303#\216q\210\304p\305\"\203\306\304p\305\"!\210db)\207" [semanticdb-find-log-buffer-name selected-window make-closure #[0 "\301\203\302\301!\210\300q\207" [V0 V1 select-window] 2] get-buffer-window visible select-window] 6 (#$ . 28338)])
#@43 Start a new search FORWHAT.

(fn FORWHAT)
(defalias 'semanticdb-find-log-new-search #[257 "\205r\302	!q\210\303\304\"c\210)\305 \207" [semanticdb-find-log-flag semanticdb-find-log-buffer-name get-buffer-create format "New Search: %S\n" semanticdb-find-log-move-to-end] 4 (#$ . 28686)])
#@75 Log that TABLE has been searched and RESULT was found.

(fn TABLE RESULT)
(defalias 'semanticdb-find-log-activity #[514 "\205r	q\210\302\303!\304\305G!\306\307\261\210)\310 \207" [semanticdb-find-log-flag semanticdb-find-log-buffer-name "Table: " cl-prin1-to-string " Result: " int-to-string " tags" "\n" semanticdb-find-log-move-to-end] 8 (#$ . 28982)])
#@872 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.

(fn FUNCTION &optional PATH FIND-FILE-MATCH BRUTISH)
(defalias 'semanticdb-find-tags-collector #[1025 "\302\211r\303!\203\fq\210\304!\203n\211\203j\211@\2037\305 \2042r\306	!q\210\212	b\210\307 *\2037\310\311\"\210\203C\312
@\313\"\204c
@A\"\211\262\203c\203[\212\314
@!\210)\211@BB\262
A\266\202\202\210\202\322\315\302!\210\316\"\211\203\321\211@\203\232\305 \204\225r\306	!q\210\212	b\210\307 *\203\232\310\311\"\210\203\245\312
\313\"\204\312\211\203\312
\302\"\211\262\203\312\317
\"\210\203\303\212\314
!\210)\211BB\262
A\266\202\202v\210)
\237\207" [semantic-current-input-throw-symbol semantic--on-input-start-marker 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] 11 (#$ . 29350)])
#@268 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.

(fn NAME &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-find-tags-by-name #[769 "\300\301\302\"#\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-find-tags-by-name-method] 6 "\n\n(fn TABLE TAGS)"]] 7 (#$ . 31155)])
#@272 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.

(fn REGEXP &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-find-tags-by-name-regexp #[769 "\300\301\302\"#\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-find-tags-by-name-regexp-method] 6 "\n\n(fn TABLE TAGS)"]] 7 (#$ . 31653)])
#@272 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.

(fn PREFIX &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-find-tags-for-completion #[769 "\300\301\302\"#\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-find-tags-for-completion-method] 6 "\n\n(fn TABLE TAGS)"]] 7 (#$ . 32169)])
#@264 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.

(fn CLASS &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-find-tags-by-class #[769 "\300\301\302\"#\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-find-tags-by-class-method] 6 "\n\n(fn TABLE TAGS)"]] 7 (#$ . 32685)])
#@324 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.

(fn NAME &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-deep-find-tags-by-name #[769 "\300\301\302\"#\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-deep-find-tags-by-name-method] 6 "\n\n(fn TABLE TAGS)"]] 7 (#$ . 33181)])
#@328 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.

(fn REGEXP &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-deep-find-tags-by-name-regexp #[769 "\300\301\302\"#\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-deep-find-tags-by-name-regexp-method] 6 "\n\n(fn TABLE TAGS)"]] 7 (#$ . 33745)])
#@328 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.

(fn PREFIX &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-deep-find-tags-for-completion #[769 "\300\301\302\"#\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-deep-find-tags-for-completion-method] 6 "\n\n(fn TABLE TAGS)"]] 7 (#$ . 34327)])
#@363 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 with that tag should be loaded into a buffer.

(fn NAME &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-brute-deep-find-tags-by-name #[769 "\300\301\302\"\303$\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-deep-find-tags-by-name-method] 6 "\n\n(fn TABLE TAGS)"] t] 8 (#$ . 34909)])
#@367 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 with that tag should be loaded into a buffer.

(fn PREFIX &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-brute-deep-find-tags-for-completion #[769 "\300\301\302\"\303$\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-deep-find-tags-for-completion-method] 6 "\n\n(fn TABLE TAGS)"] t] 8 (#$ . 35524)])
#@359 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.

(fn CLASS &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-brute-find-tags-by-class #[769 "\300\301\302\"\303$\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-find-tags-by-class-method] 6 "\n\n(fn TABLE TAGS)"] t] 8 (#$ . 36157)])
#@290 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.

(fn TYPE &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-find-tags-external-children-of-type #[769 "\300\301\302\"\303$\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-find-tags-external-children-of-type-method] 6 "\n\n(fn TABLE TAGS)"] t] 8 (#$ . 36760)])
#@287 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.

(fn TYPE &optional PATH FIND-FILE-MATCH)
(defalias 'semanticdb-find-tags-subclasses-of-type #[769 "\300\301\302\"\303$\207" [semanticdb-find-tags-collector make-closure #[514 "\301\300#\207" [V0 semanticdb-find-tags-subclasses-of-type-method] 6 "\n\n(fn TABLE TAGS)"] t] 8 (#$ . 37322)])
(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) #[770 "\302
\206\n\303!!\304
\203(@\211@\262
\230\203!
@
B\262

A\262\202\f\211\237\266\202)\207" [semantic-case-fold case-fold-search semantic-something-to-tag-table semanticdb-get-tags nil] 8 "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.\n\n(fn TABLE NAME &optional TAGS)"] semanticdb-find-tags-by-name-regexp-method ((table semanticdb-abstract-table) regexp &optional tags) #[770 "\302
\206\n\303!!\304
\203)\305@\211@\262
\"\203\"
@
B\262

A\262\202\f\211\237\266\202)\207" [semantic-case-fold case-fold-search semantic-something-to-tag-table semanticdb-get-tags nil string-match] 9 "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.\n\n(fn TABLE REGEXP &optional TAGS)"] semanticdb-find-tags-for-completion-method ((table semanticdb-abstract-table) prefix &optional tags) #[770 "
G\301\206\n\302!!\303
\2032\304\305\303@\211@\262
\305&\306=\203+
@
B\262

A\262\202\f\211\237\207" [semantic-case-fold semantic-something-to-tag-table semanticdb-get-tags nil compare-strings 0 t] 14 "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 TABLE PREFIX &optional TAGS)"] semanticdb-find-tags-by-class-method ((table semanticdb-abstract-table) class &optional tags) #[770 "
\300=\203\301
\206\302!!\207\303
\206\302!!\304
\2037@\211A@\262
=\2030
@
B\262

A\262\202\211\237\207" [include semantic-find-tags-included semanticdb-get-tags semantic-something-to-tag-table nil] 8 "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.\n\n(fn TABLE CLASS &optional TAGS)"] semanticdb-find-tags-external-children-of-type-method ((table semanticdb-abstract-table) parent &optional tags) #[770 "\300\301!\210\302\206
\303!\"\207" [require semantic/find semantic-find-tags-external-children-of-type semanticdb-get-tags] 7 "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.\n\n(fn TABLE PARENT &optional TAGS)"] semanticdb-find-tags-subclasses-of-type-method ((table semanticdb-abstract-table) parent &optional tags) #[770 "\300\301!\210\302\206
\303!\"\207" [require semantic/find semantic-find-tags-subclasses-of-type semanticdb-get-tags] 7 "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.\n\n(fn TABLE PARENT &optional TAGS)"] semanticdb-deep-find-tags-by-name-method ((table semanticdb-abstract-table) name &optional tags) #[770 "\302\303\206\304!!!\305
\203*@\211@\262
\230\203#
@
B\262

A\262\202\211\237\266\202)\207" [semantic-case-fold case-fold-search semantic-something-to-tag-table semantic-flatten-tags-table semanticdb-get-tags nil] 8 "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.\n\n(fn TABLE NAME &optional TAGS)"] semanticdb-deep-find-tags-by-name-regexp-method ((table semanticdb-abstract-table) regexp &optional tags) #[770 "\302\303\206\304!!!\305
\203+\306@\211@\262
\"\203$
@
B\262

A\262\202\211\237\266\202)\207" [semantic-case-fold case-fold-search semantic-something-to-tag-table semantic-flatten-tags-table semanticdb-get-tags nil string-match] 9 "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.\n\n(fn TABLE REGEXP &optional TAGS)"] semanticdb-deep-find-tags-for-completion-method ((table semanticdb-abstract-table) prefix &optional tags) #[770 "
G\301\302\206\f\303!!!\304
\2035\305\306\304@\211@\262
\306&\307=\203.
@
B\262

A\262\202\211\237\207" [semantic-case-fold semantic-something-to-tag-table semantic-flatten-tags-table semanticdb-get-tags nil compare-strings 0 t] 14 "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.\n\n(fn TABLE PREFIX &optional TAGS)"] provide semantic/db-find] 6)