ikan Uploader :
Directory : /proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/semantic/
Upload File : |
| Current File : //proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/semantic/db-ref.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\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#\210\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) #[(dbt include-tag) "\304\305!\205\n \306\307\"\310 \n\"\211\205 \311 \312\n#\210\313*\207" [semanticdb-find-default-throttle include-tag dbt refdbt featurep semantic/db-find remq unloaded semanticdb-find-table-for-include object-add-to-list db-refs t] 5 "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."] semanticdb-check-references ((dbt semanticdb-abstract-table)) #[(dbt) "\300\207" [nil] 1 "Check and cleanup references in the database DBT.\nAbstract tables would be difficult to reference."] semanticdb-includes-in-table ((dbt semanticdb-abstract-table)) #[(dbt) "\304\305!!\306\211\203$ \n@\211A@)\307=\203 \n@ B\nA\211\204\f \237*\207" [dbt result tags tag semantic-something-to-tag-table semanticdb-get-tags nil include] 4 "Return a list of direct includes in table DBT."] ((dbt semanticdb-table)) #[(dbt) "\306\307\"\310\306\311\"P\211\205~ \312\n@ \313\f!\205 \314\f!\211 \203+ \315
!\204+ \316\317\f! \320\n!\316 \211 \203^ \321 @\211 @)\"\203U @BA\211\204? \237+\211 \204j \316* \204u \322\307\f#\210+\nA\211\204 \316*\207" [dbt myexpr refs ok db f eieio-oref db-refs "\\<" file t semanticdb-table-child-p semanticdb-full-filename file-exists-p nil semanticdb-includes-in-table semantic-something-to-tag-table string-match object-remove-from-list semantic-case-fold case-fold-search result tags tag inc] 6 "Check and cleanup references in the database DBT.\nAny reference to a file that cannot be found, or whos file no longer\nrefers to DBT will be removed."] semanticdb-refresh-references ((dbt semanticdb-abstract-table)) #[(dbt) "\300\207" [nil] 1 "Refresh references to DBT in other files."] ((dbt semanticdb-table)) #[(dbt) "\302!\211\205 \303 @\"\210 A\211\204 \304)\207" [dbt refs semanticdb-includes-in-table semanticdb-add-reference nil] 4 "Refresh references to DBT in other files."] semanticdb-notify-references ((dbt semanticdb-table) method) #[(dbt method) "\301\302\303\304\"\"\207" [dbt mapc #[(R) " \n\"\207" [method R dbt] 3] eieio-oref db-refs] 5 "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."] 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" put 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)
#@60 Create a new object of class type `semanticdb-ref-adebug'.
(defalias 'semanticdb-ref-adebug #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-ref-adebug] 4 (#$ . 3851)])
(function-put 'semanticdb-ref-adebug 'compiler-macro 'semanticdb-ref-adebug--anon-cmacro)
(defalias 'semanticdb-ref-adebug--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])
#@164 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.
(defalias 'semanticdb-ref-test #[(refresh) "\306\307!\210\203\f \310 !\210 \311\n\312\"\313\n! \314\315\316 \317\n\320\f& \321\322!\210\323
\324\",\207" [refresh semanticdb-current-table tab myrefs myinc adbc require eieio-datadebug semanticdb-refresh-references eieio-oref db-refs semanticdb-includes-in-table semanticdb-ref-adebug "DEBUG" :i-depend-on :local-table :i-include data-debug-new-buffer "*References ADEBUG*" data-debug-insert-object-slots "!"] 8 (#$ . 4365) "p"])
(provide 'semantic/db-ref)
Kontol Shell Bypass