Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/analyze/refs.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!\210\300\303!\210\304\305\306\307!\"\210\304\310\311\307!\"\210\304\312\310\"\210\313\312\314\315#\210\316\307\317\310#\320\307\321\322\323$\207" [require semantic semantic/analyze semantic/db-find defalias semantic-analyze-references-p eieio-make-class-predicate semantic-analyze-references semantic-analyze-references--eieio-childp eieio-make-child-predicate semantic-analyze-references-child-p make-obsolete "use (cl-typep ... \\='semantic-analyze-references) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((tag :initarg :tag :type semantic-tag :documentation "The starting TAG we are providing references analysis for.") (tagdb :initarg :tagdb :documentation "The database that tag can be found in.") (scope :initarg :scope :documentation "A Scope object.") (rawsearchdata :initarg :rawsearchdata :documentation "The raw search data for TAG's name across all databases.")) (:documentation "Class containing data from a semantic analysis.")] 6)
#@66 Create a new object of class type `semantic-analyze-references'.
(defalias 'semantic-analyze-references #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-analyze-references] 4 (#$ . 1428)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-analyze-references compiler-macro semantic-analyze-references--anon-cmacro] 4)
(defalias 'semantic-analyze-references--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])
#@206 Analyze the references for TAG.
Returns a class with information about TAG.
Optional argument DB is a database. It will be used to help
locate TAG.
Use `semantic-analyze-current-tag' to debug this fcn.
(defalias 'semantic-analyze-tag-references #[(tag &optional db) "\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 tag db semantic-analyze-tag-references nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-analyze-tag-references-default] 13 (#$ . 2017)])
(put 'semantic-analyze-tag-references 'mode-local-overload t)
#@206 Analyze the references for TAG.
Returns a class with information about TAG.
Optional argument DB is a database. It will be used to help
locate TAG.
Use `semantic-analyze-current-tag' to debug this fcn.
(defalias 'semantic-analyze-tag-references-default #[(tag &optional db) "\3041- :\205) @;\205) A@9\205) A@\205) \3058<\205) \3068<0\202/ \210\307)\204: \310\311\312D\"\210\307\211\212\313 \"\210\314 \315 \316#\317\211@)\320\321 \322 \323\n& +\207" [tag scope allhits db (error) 2 3 nil signal wrong-type-argument semantic-tag-p semantic-go-to-tag semantic-calculate-scope semantic--analyze-refs-full-lookup t semantic-analyze-references :tag :tagdb :scope :rawsearchdata] 11 (#$ . 3230)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method semantic-analyze-refs-impl nil ((refs semantic-analyze-references) &optional in-buffer) #[(refs &optional in-buffer) "\304\305\"\304\302\"\306\307\310 \"\210 +\207" [refs impl tag allhits eieio-oref rawsearchdata nil semanticdb-find-result-mapc #[(T DB) "\306 \"\211A\n@ \307 !?\2051 \310
\311\312\313\314&\2051 \203* \212\315 \f\"\210) B\211+\207" [DB T ans aT aDB tag semanticdb-normalize-one-tag semantic-tag-prototype-p semantic-tag-similar-p :prototype-flag :parent :typemodifiers :default-value semantic-go-to-tag in-buffer impl] 8 "Examine T in the database DB, and sort it."]] 4 "Return the implementations derived in the reference analyzer REFS.\nOptional argument IN-BUFFER indicates that the returned tag should be in an active buffer."] semantic-analyze-refs-proto ((refs semantic-analyze-references) &optional in-buffer) #[(refs &optional in-buffer) "\304\305\"\304\302\"\306\307\310 \"\210 +\207" [refs proto tag allhits eieio-oref rawsearchdata nil semanticdb-find-result-mapc #[(T DB) "\306 \"\211A\n@ \307 !\2050 \310
\311\312\313\314&\2050 \203) \212\315 \f\"\210) B\211+\207" [DB T ans aT aDB tag semanticdb-normalize-one-tag semantic-tag-prototype-p semantic-tag-similar-p :prototype-flag :parent :typemodifiers :default-value semantic-go-to-tag in-buffer proto] 8 "Examine T in the database DB, and sort it."]] 4 "Return the prototypes derived in the reference analyzer REFS.\nOptional argument IN-BUFFER indicates that the returned tag should be in an active buffer."]] 6)
#@330 Perform a full lookup for all occurrences of TAG in the current project.
TAG should be the tag currently under point.
SCOPE is the scope the cursor is in. From this a list of parents is
derived. If SCOPE does not have parents, then only a simple lookup is done.
Optional argument NOERROR means don't error if the lookup fails.
(defalias 'semantic--analyze-refs-full-lookup #[(tag scope &optional noerror) "\303\304\"\204\f \305 \n\"\207\306 \"\207" [scope tag noerror eieio-oref parents semantic--analyze-refs-full-lookup-simple semantic--analyze-refs-full-lookup-with-parents] 3 (#$ . 5574)])
#@132 Find in FIND-RESULT a tag NAME which is a child of a tag in FIND-RESULTS.
CLASS is the class of the tag that ought to be returned.
(defalias 'semantic--analyze-refs-find-child-in-find-results #[(find-results name class) "\306\211\n\306\211 \203\265 \f@\306 A\306 \211 \203\242 \f@\211\211 \307 \f \310 \311 8)\f\"+
\312
!\306 \211 \203f @\211 @)\230\203] @BA\211\204G \237+\211 \306 \211 \203\232 \f@\211 \211 \211 A@)*=\203\223 B\fA\211\204u ,\fA\211\204 *\203\256 @B B\fA\211\204\f * *\207" [subans ans find-results FDB --dolist-tail-- T nil :members plist-get 2 semantic-something-to-tag-table tag attribute chil semantic-case-fold case-fold-search result tags name match M class] 4 (#$ . 6179)])
#@118 Find in FIND-RESULTS all tags with PARENTS.
NAME is the name of the tag needing finding.
PARENTS is a list of names.
(defalias 'semantic--analyze-refs-find-tags-with-parent #[(find-results parents) "\303\211\304\305\n\"\210 *\207" [usingnames ans find-results nil semanticdb-find-result-mapc #[(tag db) "\211\306\307\3108) \"+\211;\205 \311\n!\211;\203\" C \205x \f\232\2034
DB\212\312
\"\210\313\314 \315\316\"\210)\313 \211 \205w @\211 B\f\232\203m
DBAA\211\204S \313+*\207" [tag attribute p ps parents db :parent plist-get 2 semantic-analyze-split-name semantic-go-to-tag nil semantic-ctxt-imported-packages mapc #[(T) "\302! B\211\207" [T usingnames semantic-format-tag-name-from-anything] 2] ans usingnames imports UN --dolist-tail--] 4]] 3 (#$ . 6947)])
#@112 Perform a lookup for all occurrences of TAG based on TAG's SCOPE.
TAG should be the tag currently under point.
(defalias 'semantic--analyze-refs-full-lookup-with-parents #[(tag scope) "\211A@)\306\307\310\n\311\"\"\211@ \312\313\" \314\315\316\211\313$ \317
\" A\211\203] \203] \320\211@) # \317 \" \321\"*\320 @\322# A\211\204, \320\211@) # \321\").\207" [tag classmatch scope plist name simple mapcar #[(T) "\211@)\207" [T tag] 2] eieio-oref parents semantic--analyze-refs-full-lookup-simple t semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table name tags semanticdb-deep-find-tags-by-name-method] 4] nil semantic--analyze-refs-find-tags-with-parent semantic--analyze-refs-find-child-in-find-results append type brute answer direct pdirect] 6 (#$ . 7766)])
#@353 Perform a simple lookup for occurrences of TAG in the current project.
TAG should be the tag currently under point.
Optional NOERROR means don't throw errors on failure to find something.
This only compares the tag name, and does not infer any matches in namespaces,
or parts of some other data structure.
Only works for tags in the global namespace.
(defalias 'semantic--analyze-refs-full-lookup-simple #[(tag &optional noerror) "\211@)\306\307\310\211\311$\211\204 \204 \312\313 \"\210\211A@) \306\314\n\310#\211 \2048 \2048 \312\315\211@)\"\210
,\207" [tag name brute noerror classmatch RES semanticdb-find-tags-collector #[(table tags) "\303 \n#\207" [table name tags semanticdb-find-tags-by-name-method] 4] nil t error "Cannot find any references to %s in wide search" #[(table tags) "\304!\305\211\203\" \n@\211A@)=\203 @ BA\211\204\n \237*\207" [tags result classmatch tag semantic-something-to-tag-table nil] 3] "Cannot find any definitions for %s in wide search"] 6 (#$ . 8596)])
#@30 Analyze the tag under point.
(defalias 'semantic-analyze-current-tag #[nil "\304 \305 \306!\307\310 \311\312\313 \"!*\"\210\n\203, \314\315!\210\316\317!\210\320\n\321\"\202/ \307\322!+\207" [tag start sac end semantic-current-tag current-time semantic-analyze-tag-references message "Analysis took %.2f seconds." nil float-time time-subtract require eieio-datadebug data-debug-new-buffer "*Analyzer Reference ADEBUG*" data-debug-insert-object-slots "]" "No Context to analyze here."] 6 (#$ . 9616) nil])
#@72 Toggle between the implementation, and a prototype of tag under point.
(defalias 'semantic-analyze-proto-impl-toggle #[nil "\303\304!\210\305 \210\306 \211\203 \307!\202 \310\311!\312!\203& \313 \314\"@\202+ \315 \314\"@\211\204? \310\316\312!\203< \317\202= \320\"\210\321 \210\322\323!\203K \323 \210\324\n!\210\325p!\210\326\n!+\207" [tag sar target require semantic/decorate semantic-fetch-tags semantic-current-tag semantic-analyze-tag-references error "Point must be in a declaration" semantic-tag-prototype-p semantic-analyze-refs-impl t semantic-analyze-refs-proto "Could not find suitable %s" "implementation" "prototype" push-mark fboundp xref-push-marker-stack semantic-go-to-tag pop-to-buffer-same-window semantic-momentary-highlight-tag] 5 (#$ . 10134) nil])
(provide 'semantic/analyze/refs)
Mini Shell