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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\310\312%\210\306\313\310\314\310\315%\210\306\316\310\317\310\320%\210\306\313\310\321\310\322%\210\306\323\310\324\310\325%\210\306\323\310\326\310\327%\210\306\330\310\331\310\332%\210\333\334\335\336!\"\210\333\337\340\336!\"\210\333\341\337\"\210\342\341\343\344#\210\345\336\346\337#\347\336\310\350\351$\207" [require eieio cl-generic semantic semantic/db semantic/tag cl-generic-define-method semanticdb-add-reference nil ((dbt semanticdb-abstract-table) include-tag) #[514 "\301\302!\205\n\303\304\"\305
\"\211\205\306
\307#\210\310)\207" [semanticdb-find-default-throttle featurep semantic/db-find remq unloaded semanticdb-find-table-for-include object-add-to-list db-refs t] 7 "Add a reference for the database table DBT based on INCLUDE-TAG.\nDBT is the database table that owns the INCLUDE-TAG.  The reference\nwill be added to the database that INCLUDE-TAG refers to.\n\n(fn DBT INCLUDE-TAG)"] semanticdb-check-references ((_dbt semanticdb-abstract-table)) #[257 "\300\207" [nil] 2 "Check and cleanup references in the database DBT.\nAbstract tables would be difficult to reference.\n\n(fn DBT)"] semanticdb-includes-in-table ((dbt semanticdb-abstract-table)) #[257 "\300\301!!\302
\203#
@\211A@\262
\303=\203
@
B\262

A\262\202\211\237\207" [semantic-something-to-tag-table semanticdb-get-tags nil include] 5 "Return a list of direct includes in table DBT.\n\n(fn DBT)"] ((dbt semanticdb-table)) #[257 "\302
\303\"\304\302\305\"P
\205p\306@\307
!\205\310
!\211\203'\311
!\204'\312\262\313!\314
!\312
\203N\315@\211@\262
\"\203G
@
B\262

A\262\2020\211\237\266\202)\211\204Z\312\262\266\204g\316\303#\210\266
A\262\202\n\207" [semantic-case-fold case-fold-search eieio-oref db-refs "\\<" file t semanticdb-table--eieio-childp semanticdb-full-filename file-exists-p nil semanticdb-includes-in-table semantic-something-to-tag-table string-match object-remove-from-list] 13 "Check and cleanup references in the database DBT.\nAny reference to a file that cannot be found, or whose file no longer\nrefers to DBT will be removed.\n\n(fn DBT)"] semanticdb-refresh-references ((_dbt semanticdb-abstract-table)) #[257 "\300\207" [nil] 2 "Refresh references to DBT in other files.\n\n(fn DBT)"] ((dbt semanticdb-table)) #[257 "\300
!\211\205\301@\"\210\211A\262
\202\207" [semanticdb-includes-in-table semanticdb-add-reference] 5 "Refresh references to DBT in other files.\n\n(fn DBT)"] semanticdb-notify-references ((dbt semanticdb-table) method) #[514 "\300\301\302#\303\304\"\"\207" [mapc make-closure #[257 "\301
\300\"\207" [V0 V1] 4 "\n\n(fn R)"] eieio-oref db-refs] 7 "Notify all references of the table DBT using method.\nMETHOD takes two arguments.\n  (METHOD TABLE-TO-NOTIFY DBT)\nTABLE-TO-NOTIFY is a semanticdb-table which is being notified.\nDBT, the second argument is DBT.\n\n(fn DBT METHOD)"] defalias semanticdb-ref-adebug-p eieio-make-class-predicate semanticdb-ref-adebug semanticdb-ref-adebug--eieio-childp eieio-make-child-predicate semanticdb-ref-adebug-child-p make-obsolete "use (cl-typep ... \\='semanticdb-ref-adebug) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((i-depend-on :initarg :i-depend-on) (local-table :initarg :local-table) (i-include :initarg :i-include)) (:documentation "Simple class to allow ADEBUG to show a nice list.")] 6)
#@78 Create a new object of class type `semanticdb-ref-adebug'.

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

(fn WHOLE &rest SLOTS)
(defalias 'semanticdb-ref-adebug--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 (#$ . 3869)])
#@178 Dump out the list of references for the current buffer.
If REFRESH is non-nil, cause the current table to have its references
refreshed before dumping the result.

(fn REFRESH)
(defalias 'semanticdb-ref-test #[257 "\301\302!\210\211\203\f\303!\210\304
\305\"\306!\307\310\311\312&\313\314!\210\315
\316\"\207" [semanticdb-current-table require eieio-datadebug semanticdb-refresh-references eieio-oref db-refs semanticdb-includes-in-table semanticdb-ref-adebug :i-depend-on :local-table :i-include data-debug-new-buffer "*References ADEBUG*" data-debug-insert-object-slots "!"] 11 (#$ . 4109) "p"])
(provide 'semantic/db-ref)