Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/scope.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/db semantic/analyze/fcn semantic/ctxt defalias semantic-scope-cache-p eieio-make-class-predicate semantic-scope-cache semantic-scope-cache--eieio-childp eieio-make-child-predicate semantic-scope-cache-child-p make-obsolete "use (cl-typep ... \\='semantic-scope-cache) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-abstract-cache) ((tag :initform nil :documentation "The tag this scope was calculated for.") (scopetypes :initform nil :documentation "The list of types currently in scope.\nFor C++, this would contain anonymous namespaces known, and\nanything labeled by a `using' statement.") (parents :initform nil :documentation "List of parents in scope w/in the body of this function.\nPresumably, the members of these parent classes are available for access\nbased on private:, or public: style statements.") (parentinheritance :initform nil :documentation "Alist of parents by inheritance.\nEach entry is ( PARENT . PROTECTION ), where PARENT is a type, and\nPROTECTION is a symbol representing the level of inheritance, such as 'private, or 'protected.") (scope :initform nil :documentation "Items in scope due to the scopetypes or parents.") (fullscope :initform nil :documentation "All the other stuff on one master list you can search.") (localargs :initform nil :documentation "The arguments to the function tag.") (localvar :initform nil :documentation "The local variables.") (typescope :initform nil :documentation "Slot to save intermediate scope while metatypes are dereferenced.")) (:documentation "Cache used for storage of the current scope by the Semantic Analyzer.\nSaves scoping information between runs of the analyzer.")] 6)
#@59 Create a new object of class type `semantic-scope-cache'.
(defalias 'semantic-scope-cache #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-scope-cache] 4 (#$ . 2300)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-scope-cache compiler-macro semantic-scope-cache--anon-cmacro] 4)
(defalias 'semantic-scope-cache--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])
(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 ((obj semantic-scope-cache)) #[(obj) "\301\302\303#\210\301\304\303#\210\301\305\303#\210\301\306\303#\210\301\307\303#\210\301\310\303#\210\301\311\303#\210\301\312\303#\210\301\313\303#\207" [obj eieio-oset tag nil scopetypes parents parentinheritance scope fullscope localargs localvar typescope] 4 "Reset OBJ back to it's empty settings."] semanticdb-synchronize ((cache semantic-scope-cache) new-tags) #[(cache new-tags) "\301!\207" [cache semantic-reset] 2 "Synchronize a CACHE with some NEW-TAGS."] semanticdb-partial-synchronize ((cache semantic-scope-cache) new-tags) #[(cache new-tags) "\305!\306\211\203\" \n@\211A@)\307=\203 \n@ B\nA\211\204\n \237*\204x \305!\306\211\203J \n@\211A@)\310=\203C \n@ B\nA\211\2042 \237*\204x \305!\306\211\203r \n@\211A@)\311=\203k \n@ B\nA\211\204Z \237*\205{ \312\f!\207" [new-tags result tags tag cache semantic-something-to-tag-table nil include type using semantic-reset] 3 "Synchronize a CACHE with some changed NEW-TAGS."]] 6)
#@45 Get the current cached scope, and reset it.
(defalias 'semantic-scope-reset-cache #[nil "\205
\302\303\"\304 !)\207" [semanticdb-current-table co semanticdb-cache-get semantic-scope-cache semantic-reset] 3 (#$ . 4002)])
(cl-generic-define-method 'semantic-scope-set-typecache nil '((cache semantic-scope-cache) types-in-scope) nil #[(cache types-in-scope) "\306 \306\211\203( @\307\n\211 \310 \311\f \312\f8)
\"+\" A\211\204\n *\313
\314#)\207" [newts types-in-scope onetype --dolist-tail-- tag attribute nil append :members plist-get 2 eieio-oset typescope cache] 5 "Set the :typescope property on CACHE to some types.\nTYPES-IN-SCOPE is a list of type tags whose members are\ncurrently in scope. For each type in TYPES-IN-SCOPE,\nadd those members to the types list.\nIf nil, then the typescope is reset."])
#@131 Clone TAG, and return it. Add SCOPETAGS as a tag-local scope.
Stores the SCOPETAGS as a set of tag properties on the cloned tag.
(defalias 'semantic-scope-tag-clone-with-scope #[(tag scopetags) "\304 \206
\211@)\211A@)\305\3068)!\305\3078)!\3108)\257*\311\n\312 #)\207" [tag name clone scopetags nil copy-sequence 2 3 4 semantic--tag-put-property scope] 7 (#$ . 4835)])
#@62 Get from TAG the list of tags comprising the scope from TAG.
(defalias 'semantic-scope-tag-get-scope #[(tag) "\302\303\3048) \"*\207" [tag property scope plist-get 3] 3 (#$ . 5231)])
#@138 Return a list of types currently in scope at POSITION.
This is based on what tags exist at POSITION, and any associated
types available.
(defalias 'semantic-analyze-scoped-types #[(position) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override position semantic-analyze-scoped-types nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-analyze-scoped-types-default] 13 (#$ . 5427)])
(put 'semantic-analyze-scoped-types 'mode-local-overload t)
#@104 Return a list of types currently in scope at POSITION.
Use `semantic-ctxt-scoped-types' to find types.
(defalias 'semantic-analyze-scoped-types-default #[(position) "\306\307!\210\212b\210\310\311 \211\203\360 \n@;\203Q \312\n@!\206\335 \313\314 !!\310 \211 \203J \n@@\211 @)\230\203A @
BA\211\204-
\237+@\202\335 \n@ \3151\206 :\205\202 @;\205\202 A@9\205\202 A@\205\202 \3168<\205\202 \3178<0\202\210 \210\310)\203\334 \320\n@!\203\327 \312\n@\211 @)!\206\335 \313\314 !!\310 \211 \203\320 \n@\211 @)@\211 @)\230\203\307 @
BA\211\204\256
\237+@\202\335 \n@\202\335 \310\211 \203\350 B)\nA\211\204 ) \237\211\205\374 \321 \310\"*\207" [position code-scoped-types sp semantic-case-fold case-fold-search result require semantic/db-typecache nil semantic-ctxt-scoped-types semanticdb-typecache-find semantic-something-to-tag-table semantic-flatten-tags-table (error) 2 3 semantic-tag-prototype-p semanticdb-typecache-merge-streams tags tag tmp] 4 (#$ . 6554)])
#@271 Return a list of types in order of nesting for the context of POSITION.
If POSITION is in a method with a named parent, find that parent, and
identify it's scope via overlay instead.
Optional SCOPETYPES are additional scoped entities in which our parent might
be found.
(defalias 'semantic-analyze-scope-nested-tags #[(position scopedtypes) "\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 position scopedtypes semantic-analyze-scope-nested-tags nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-analyze-scope-nested-tags-default] 13 (#$ . 7574)])
(put 'semantic-analyze-scope-nested-tags 'mode-local-overload t)
#@374 Return a list of types in order of nesting for the context of POSITION.
If POSITION is in a method with a named parent, find that parent, and
identify it's scope via overlay instead.
Optional SCOPETYPES are additional scoped entities in which our parent might
be found.
This only finds ONE immediate parent by name. All other parents returned
are from nesting data types.
(defalias 'semantic-analyze-scope-nested-tags-default #[(position scopetypes) "\306\307!\210\212\203\f b\210\310\311`!!\211@ A@\312 \2039 \313 \211\211A@)
*=\2049 A\211A@\202 #\235\203K A\211A@\211\202: \203\267 \314 !\203\267 \315 !\210\311`!\310\316\317 \"! $\312 %$\203\207 \320\310$!!\211%\203\207 %\fB$A\211$\204m \f\204\266 \310 !\211\203\263 @\211A@)\313=\203\263 @#\235\204\254 @\fB A\211\204\223 \f\237*\n\211A@)\321=\2037\n\211\211\322 &\323\n\324\n8)&\",\211 '\2036';\203\347 '\2024'\3251\n:\205\n@;\205\nA@9\205\nA@\205\324\n8<\205\326\n8<0\202\210\312)\203$'\211@)\2024'<\2054'@;\2054'@ (\327(!\211 ):\203F)\202I)C *\312 +\330 ,\312 -*\2032\331\316\317\f\"*@C\"+\320+!\211-\203\201-\313 \211\211A@)
*=\204\257\332\331\316\333\f@#B\"\" .\334,\335\f#\210\334,\336.#\210\334,\337.#\210\340(\313,#-)-\203)-\3411\342\n:\205\336\n@;\205\336\nA@9\205\336\nA@\205\336\324\n8<\205\336\326\n8<0\202\344\210\312)\204\"-@\3421\n:\205\n@;\205\nA@9\205\nA@\205\324\n8<\205\326\n8<0\202\210\312)\203\"-@-\331\f-C\"*A\211*\204Z\f.)\f-\207" [position stack tag pparent returnlist class require semantic/analyze reverse semantic-find-tag-by-overlay nil type semantic-tag-with-position-p semantic-go-to-tag mapcar semantic-tag-name semanticdb-typecache-find function :parent plist-get 2 (error) 3 semantic-analyze-split-name semantic-scope-cache append apply semantic-tag-type-members eieio-oset parents scope fullscope semantic-analyze-find-tag (error) (error) scopetypes stacknames tc attribute p searchnameraw searchname snlist fullsearchname miniscope ptag rawscope] 7 (#$ . 8882)])
#@278 Return the full lineage of tags from PARENTS.
The return list is of the form ( TAG . PROTECTION ), where TAG is a tag,
and PROTECTION is the level of protection offered by the relationship.
Optional SCOPETYPES are additional scoped entities in which our parent might
be found.
(defalias 'semantic-analyze-scope-lineage-tags #[(parents scopedtypes) "\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 parents scopedtypes semantic-analyze-scope-lineage-tags nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-analyze-scope-lineage-tags-default] 13 (#$ . 10979)])
(put 'semantic-analyze-scope-lineage-tags 'mode-local-overload t)
#@278 Return the full lineage of tags from PARENTS.
The return list is of the form ( TAG . PROTECTION ), where TAG is a tag,
and PROTECTION is the level of protection offered by the relationship.
Optional SCOPETYPES are additional scoped entities in which our parent might
be found.
(defalias 'semantic-analyze-scope-lineage-tags-default #[(parents scopetypes) "\306\307 \310\302\n#\210\310\311 #\210\310\312 #\210\n\306 \211 \203/
@\313\f\314#\210
A\211\204 * *\207" [miniscope lineage parents scopetypes slp --dolist-tail-- nil semantic-scope-cache eieio-oset scope fullscope semantic-analyze-scoped-inherited-tag-map #[(newparent) "\211@)\306 \n\"\211 \307=\203 \310\202 \f
B B\211 +\207" [newparent tag pname slp prot effectiveprot semantic-tag-type-superclass-protection public protected lineage] 4]] 5 (#$ . 12297)])
#@273 Return accessible tags when TYPELIST and PARENTLIST is in scope.
Tags returned are not in the global name space, but are instead
scoped inside a class or namespace. Such items can be referenced
without use of "object.function()" style syntax due to an
implicit "object".
(defalias 'semantic-analyze-scoped-tags #[(typelist parentlist) "\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 typelist parentlist semantic-analyze-scoped-tags nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-analyze-scoped-tags-default] 13 (#$ . 13140)])
(put 'semantic-analyze-scoped-tags 'mode-local-overload t)
#@326 Return accessible tags when TYPELIST and HALFSCOPE is in scope.
HALFSCOPE is the current scope partially initialized.
Tags returned are not in the global name space, but are instead
scoped inside a class or namespace. Such items can be referenced
without use of "object.function()" style syntax due to an
implicit "object".
(defalias 'semantic-analyze-scoped-tags-default #[(typelist halfscope) "\306\211\307\310\"
\203B
@\211 \311 \312 \3138)\"+\211 ;\203: \314\230\203:
@\fB)
A\211\204 \f\203b \315 \316 #\210\315 \317 #\210\320\321\f@ \" \"\fA\211\204F \n\203\202 \315 \316 #\210\315 \317 #\210\320\321\n@ \" \"\nA\211\204f \306 \306 \211 \203\247 @\320\322!\"A\211\204\217 *\320 \") ,\207" [halfscope miniscope parentlist currentscope typelist2 typelist nil eieio-oref parents :type plist-get 2 "namespace" eieio-oset scope fullscope append semantic-analyze-scoped-type-parts semantic-analyze-type-constants tag attribute tt constants T --dolist-tail--] 6 (#$ . 14425)])
#@285 Calculate the access class for TYPE as defined by the current SCOPE.
Access is related to the :parents in SCOPE. If type is a member of SCOPE
then access would be `private'. If TYPE is inherited by a member of SCOPE,
the access would be `protected'. Otherwise, access is `public'.
(defalias 'semantic-analyze-scope-calculate-access #[(type scope) "\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 type scope semantic-analyze-scope-calculate-access nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-analyze-scope-calculate-access-default] 13 (#$ . 15458)])
(put 'semantic-analyze-scope-calculate-access 'mode-local-overload t)
#@70 Calculate the access class for TYPE as defined by the current SCOPE.
(defalias 'semantic-analyze-scope-calculate-access-default #[(type scope) "\306!\203\360 \307\302\"\307\310\"\3112\356 \n\312\211 \2032 \f@\313
\"\203+ \314\311\315\"\210\fA\211\204 * \312 \211 \203c \f@\211@A \313
\"\203[ \314\311\316\317\"A\"\210*\fA\211\204< *\320
\211 \321 \322 \3238)\"+!\312 \211 \203\245 @\211 A@)\324=\203\234 @B A\211 \204\206 \237*\211 \312 \211 \203\353 \f@ \n\312 \211 \203\343 \f@ \211 @)\211 @)\230\203\334 \314\311\315\"\210\fA\211\204\301 *\fA\211\204\264 +\3250*\207\325\207" [scope parentsi parents p --dolist-tail-- type semantic-scope-cache-p eieio-oref parentinheritance moose nil semantic-tag-similar-p throw private assoc ((public . private) (protected . protected) (private . public)) semantic-something-to-tag-table :members plist-get 2 friend public pi piprot pip tag attribute result tags friends F] 6 (#$ . 16780)])
#@196 Return a list of slots that are valid completions from the list of SLOTS.
If a tag in SLOTS has a named parent, then that implies that the
tag is not something you can complete from within TYPE.
(defalias 'semantic-completable-tags-from-type #[(type) "\306!\307\211\307\211 \203\307 \f@\211\310 \211 \211 A@)
*=\203\215 \311\211 @) \211 @)D! \312 \211 @)!\206C \312!\211 \205M \313! \203\211 \314! \203\202 \307 \211 \203~ \f@\315\307# B\fA\211\204i *\202\210 \316 \")+\202\300 \317 \211 \211 A@)
*=\203\274 \211 \211 \320 \321 \3228)\",\204\300 B\fA\211\204 * \237*\207" [type leftover allslots S --dolist-tail-- class semantic-tag-components nil using semantic-analyze-unsplit-name semanticdb-typecache-find semantic-tag-file-name semantic-completable-tags-from-type semantic-tag-copy append function :parent plist-get 2 tag fullname usingtype filename tags cur attribute] 5 (#$ . 17779)])
#@224 Return all parts of TYPE, a tag representing a TYPE declaration.
SCOPE is the scope object.
NOINHERIT turns off searching of inherited tags.
PROTECTION specifies the type of access requested,
such as `public' or `private'.
(defalias 'semantic-analyze-scoped-type-parts #[(type &optional scope noinherit protection) "\205s \306 \"\307!\310\n # \311! \312 ?\205% \313 \n# \314!\204j \312 \f\312 \211 \203d @\311!\203P B\202[ \315\312
#BA\211\204: *\237)\316\f#.\207" [type scope access allslots slots fname semantic-analyze-scope-calculate-access semantic-completable-tags-from-type semantic-find-tags-by-scope-protection semantic-tag-file-name nil semantic-analyze-scoped-inherited-tags semantic-tag-in-buffer-p semantic-tag-copy append extmeth noinherit inherited copyslots TAG --dolist-tail--] 5 (#$ . 18738)])
#@500 Return all tags that TYPE inherits from.
Argument SCOPE specify additional tags that are in scope
whose tags can be searched when needed, OR it may be a scope object.
ACCESS is the level of access we filter on child supplied tags.
For languages with protection on specific methods or slots,
it should strip out those not accessible by methods of TYPE.
An ACCESS of `public' means not in a method of a subclass of type.
A value of `private' means we can access private parts of the originating
type.
(defalias 'semantic-analyze-scoped-inherited-tags #[(type scope access) "\303\304 \305\n#\210)\207" [ret type scope nil semantic-analyze-scoped-inherited-tag-map #[(p) "\211@)\306 \n\"
\307=\205 \f\307=??\205& \n\310 \311\f$\244\211\n*\207" [p tag pname type protection access semantic-tag-type-superclass-protection public semantic-analyze-scoped-type-parts t ret scope] 7]] 4 (#$ . 19603)])
#@190 Map all parents of TYPE to FCN. Return tags of all the types.
Argument SCOPE specify additional tags that are in scope
whose tags can be searched when needed, OR it may be a scope object.
(defalias 'semantic-analyze-scoped-inherited-tag-map #[(type fcn scope) "\306\307!\210\310!\311\211\f \212 \203b \312!\203b \212\313!\210\314 \315`!B \316`\"\311 \317
\320#\210\317
\301 #\210\204G \203U \321
\"\317
\304#\210\317
\322\323 ##\210, \311 \211 \203 @\211 ;\203{ \202\326 \3241\260 :\205\254 @;\205\254 A@9\205\254 A@\205\254 \325 8<\205\254 \326 8<0\202\262 \210\311)\203\307 \327 !\203\307 \211 @)\202\326 <\205\326 @;\205\326 \3301\354 \331\n\300
#\206\350 \331\n\300\f#0\202\356 \210\311\211\203\377 !\210\332 \f#\210 A\211 \204l .\311\207" [type parents ps pt scope tmpscope require semantic/analyze semantic-tag-type-superclasses nil semantic-tag-with-position-p semantic-go-to-tag semantic-scope-cache semantic-analyze-scoped-types semantic-analyze-scope-nested-tags eieio-oset scopetypes semantic-analyze-scoped-tags fullscope append (error) 2 3 semantic-tag-prototype-p (error) semantic-analyze-find-tag semantic-analyze-scoped-inherited-tag-map lscope p --dolist-tail-- tag fcn] 8 (#$ . 20513)])
#@179 Calculate the scope at POINT.
If POINT is not provided, then use the current location of point.
The class returned from the scope calculation is variable
`semantic-scope-cache'.
(defalias 'semantic-calculate-scope #[(&optional point) "\306\307!\205\205\310\311!\210 \204 `\312\313!\203 \314 \210\315 \210\212 b\210\316 \317 \320\" \321\n\322\f\323\"\"\204: \324\f!\210\322\f\323\"\203W \3251O \326\f\327\330 #0\202S \210\202\360 \210\202\360 \331 ! \332
\" \333
\" *\326\f\323\n#\210\326\f\305
#\210\326\f\334 #\210\326\f\335*#\210
\204\213 \205\217 \336
\f\" #\337 %\3401\237 \330 0\202\241 \210\341 *\204\315 \333 \342
#\"\"\211*\203\315 \326\f\335*#\210
\204\307 \205\313 \336
\f\"#\326\f\343##\210\326\f\344\342
# ##\210\326\f\345%#\210\326\f\327#\210.\346\f!\210\312\313!\203\310\347!\210\350\f!\210\351\f!+\207" [semanticdb-current-database point TAG semanticdb-current-table scopecache scopetypes featurep semantic/db require semantic/db-typecache called-interactively-p any semantic-fetch-tags semantic-scope-reset-cache semantic-current-tag semanticdb-cache-get semantic-scope-cache semantic-equivalent-tag-p eieio-oref tag semantic-reset (error) eieio-oset localvar semantic-get-all-local-variables semantic-analyze-scoped-types semantic-analyze-scope-nested-tags semantic-analyze-scope-lineage-tags parents parentinheritance semantic-analyze-scoped-tags semantic-get-local-arguments (error) nil append scope fullscope localargs semanticdb-typecache-add-dependant eieio-datadebug data-debug-show clone parentinherited] 8 (#$ . 21796) nil])
#@196 Find the tag with NAME, and optional CLASS in the current SCOPE-IN.
Searches various elements of the scope for NAME. Return ALL the
hits in order, with the first tag being in the closest scope.
(defalias 'semantic-scope-find #[(name &optional class scope-in) "\206 \306 \307\310\n!\203\355 \311\312\n\313\"!\307 \211 \203< @\211 @)\230\2033 @
BA\211\204
\237+ \311\312\n\314\"!\307 \211 \203n @\211 @)\230\203e @
BA\211\204Q
\237+ \312\n\315\" \311!\307 \211 \203\244 @\211 @)\230\203\233 @
BA\211\204\207
\237+ \312\n\316\" \311 !\307 \211 \203\332 @\211 @)\230\203\321 @
BA\211\204\275
\237+ \203 \311\317 $!\307 \211 \203 @\211 A@)=\203
@
BA\211\204\370
\237*\202&\317 $\211\204\347 \2045\203\347\320!\211 :\203\346 \203\331\317 \311 !\307 \211 \203r @@\211 @)\230\203i@
BA\211\204T
\237+ \311!\307 \211 \203\241 @@\211 @)\230\203\230@
BA\211\204\203
\237+\"\211\204\260\307 \202\320 A\203\320 @\211 \321 \322 \3238) \"+ A\211 \204E\324\n\316\317 \312\n\316\"\"#\210) .\202\" \203!\311\n!\307 \211 \203 @\211 A@)=\203@
BA\211\204\375
\237*\202\"\n*\207" [scope-in ans scope semantic-case-fold case-fold-search result semantic-calculate-scope nil semantic-scope-cache-p semantic-something-to-tag-table eieio-oref localargs localvar fullscope typescope append semantic-analyze-split-name :members plist-get 2 eieio-oset tags name tag la lv fullscoperaw sc typescoperaw tsc class namesplit attribute] 9 (#$ . 23389)])
(byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method semantic-analyze-show nil ((context semantic-scope-cache)) #[(context) "\301\302!\210\303\304\305\"\306\"\210\303\304\307\"\310\"\210\303\304\311\"\312\"\210\303\304\313\"\314\"\210\303\304\315\"\316\"\207" [context require semantic/analyze semantic-analyze-princ-sequence eieio-oref scopetypes "-> ScopeTypes: " parents "-> Parents: " scope "-> Scope: " localargs "-> Local Args: " localvar "-> Local Vars: "] 4 "Insert CONTEXT into the current buffer in a nice way."] provide semantic/scope] 6)
Mini Shell