;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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\262A\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\262A\262\2020\211\237\266\202)\211\204Z\312\262\266\204g\316\303#\210\266A\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 "\300\301\"\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 (#$ . 3533)]) (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\304\211@%\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity nil] 8 (#$ . 3864)])#@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 (#$ . 4116) "p"]) (provide 'semantic/db-ref)