1#@!#!123s

��JFIF�� 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / cedet / semantic / analyze /
Filename : fcn.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:28 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/analyze/fcn.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'semantic)
#@251 Split a tag NAME into a sequence.
Sometimes NAMES are gathered from the parser that are compounded,
such as in C++ where foo::bar means:
  "The class BAR in the namespace FOO."
Return the string NAME for no change, or a list if it needs to be split.
(defalias 'semantic-analyze-split-name #[(name) "\306\211\307\310\211\n\311!\307\n\204+�\211\204+�\205*�\312
\"\n\203U�\f\204U�\n\313N\203D�\312
\n\313N\"\211\204+�\n\211\314N\206O�\n\315N)\211\204/�\f,\211\205h�	\203f�	N\205h�J+\206\341�\211\316N)\205\341�\211\316N)\307\310\211\n\311!\307\n\204\243�\211\204\243�\205\242�\312
\"\n\203\315�\f\204\315�\n\313N\203\274�\312
\n\313N\"\211\204\243�\n\211\314N\206\307�\n\315N)\211\204\247�\f,\211\205\340�	\203\336�	N\205\340�J+)\211\203\357�
!\202\362�\317
!)\207" [overload property mode symbol bind name semantic-analyze-split-name nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-analyze-split-name-default mode-local-active-mode major-mode #1=#:override] 5 (#$ . 590)])
(put 'semantic-analyze-split-name 'mode-local-overload t)
#@33 Don't split up NAME by default.
(defalias 'semantic-analyze-split-name-default #[(name) "\207" [name] 1 (#$ . 1767)])
#@115 Assemble a NAMELIST into a string representing a compound name.
Return the string representing the compound name.
(defalias 'semantic-analyze-unsplit-name #[(namelist) "\306\211\307\310\211\n\311!\307\n\204+�\211\204+�\205*�\312
\"\n\203U�\f\204U�\n\313N\203D�\312
\n\313N\"\211\204+�\n\211\314N\206O�\n\315N)\211\204/�\f,\211\205h�	\203f�	N\205h�J+\206\341�\211\316N)\205\341�\211\316N)\307\310\211\n\311!\307\n\204\243�\211\204\243�\205\242�\312
\"\n\203\315�\f\204\315�\n\313N\203\274�\312
\n\313N\"\211\204\243�\n\211\314N\206\307�\n\315N)\211\204\247�\f,\211\205\340�	\203\336�	N\205\340�J+)\211\203\360�!\202\364�\317!)\207" [overload property mode symbol bind name semantic-analyze-unsplit-name nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-analyze-unsplit-name-default mode-local-active-mode major-mode #1=#:override namelist] 5 (#$ . 1893)])
(put 'semantic-analyze-unsplit-name 'mode-local-overload t)
#@53 Concatenate the names in NAMELIST with a . between.
(defalias 'semantic-analyze-unsplit-name-default #[(namelist) "\301\302\303#\207" [namelist mapconcat identity "."] 4 (#$ . 2958)])
#@420 For a SEQUENCE of tags, all with good names, pick the best one.
If SEQUENCE is made up of namespaces, merge the namespaces together.
If SEQUENCE has several prototypes, find the non-prototype.
If SEQUENCE has some items w/ no type information, find the one with a type.
If SEQUENCE is all prototypes, or has no prototypes, get the first one.
Optional TAGCLASS indicates to restrict the return to only
tags of TAGCLASS.
(defalias 'semantic-analyze-select-best-tag #[(sequence &optional tagclass) "\306\307\310\217)\203
�C\n\2037�\311!\306\211\2033�\n\f@\211A@)=\203,�\f@B\fA\211\204�\237*G\312W\203A�@\207\313\314!\210\315\306\"\211G\312W\203T�@\207\306\211\204\210�\203\210�@\211\316\317	\312	8)\"+\204~�@\202\202�@A\202Y�\206\216�
*\207" [sequence tag tagclass result tags notypeinfo nil (byte-code ":\205#�@;\205#�A@9\205#�A@\205#�\3018<\205#�\3028<\207" [tag 2 3] 2) ((error)) semantic-something-to-tag-table 2 require semantic/db-typecache semanticdb-typecache-merge-streams :type plist-get best attribute] 4 (#$ . 3150)])
#@151 Attempt to find a tag with PREFIX.
This is a wrapper on top of semanticdb, and semantic search functions.
Almost all searches use the same arguments.
(defalias 'semantic-analyze-find-tags-by-prefix #[(prefix) "\306\307!\203�\307 \203�\310\311!\312\"\207G\313p!\314\211\203?�\315\316\314@\211@)\316	
&\317=\2038�@\nBA\211\204�\n\237+\207" [prefix l result tags tag semantic-case-fold fboundp semanticdb-minor-mode-p semanticdb-strip-find-results semanticdb-find-tags-for-completion name semantic-something-to-tag-table nil compare-strings 0 t] 9 (#$ . 4232)])
#@554 Return a concrete type tag based on input TYPE tag.
A concrete type is an actual declaration of a memory description,
such as a structure, or class.  A meta type is an alias,
or a typedef in C or C++.  If TYPE is concrete, it
is returned.  If it is a meta type, it will return the concrete
type defined by TYPE.
The default behavior always returns TYPE.
Override functions need not return a real semantic tag.
Just a name, or short tag will be ok.  It will be expanded here.
SCOPE is the scope object with additional items in which to search for names.
(defalias 'semantic-analyze-dereference-metatype #[(type scope &optional type-declaration) "\300\301\215\207" [default-behavior (byte-code "\306\211\307\310\211\n\311!\307\n\204+�\211\204+�\205*�\312
\"\n\203U�\f\204U�\n\313N\203D�\312
\n\313N\"\211\204+�\n\211\314N\206O�\n\315N)\211\204/�\f,\211\205h�	\203f�	N\205h�J+\206\341�\211\316N)\205\341�\211\316N)\307\310\211\n\311!\307\n\204\243�\211\204\243�\205\242�\312
\"\n\203\315�\f\204\315�\n\313N\203\274�\312
\n\313N\"\211\204\243�\n\211\314N\206\307�\n\315N)\211\204\247�\f,\211\205\340�	\203\336�	N\205\340�J+)\211\203\364�#\202\374�\317\320D\")\211@\211A@)\321\"+D\207" [overload property mode symbol bind name semantic-analyze-dereference-metatype nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete throw default-behavior semantic-analyze-dereference-metatype-1 mode-local-active-mode major-mode #1=#:override type scope type-declaration ans-tuple ans-type x ans-type-declaration] 5)] 2 (#$ . 4814)])
(put 'semantic-analyze-dereference-metatype 'mode-local-overload t)
#@115 Get the name of TAG's type.
The TYPE field in a tag can be nil (return nil)
or a string, or a non-positional tag.
(defalias 'semantic-analyze-type-to-name #[(type) "\302\303\304\217)\203�\211@)\207;\203�\207<\203�@\207\302\207" [type tag nil (byte-code ":\205#�@;\205#�A@9\205#�A@\205#�\3018<\205#�\3028<\207" [tag 2 3] 2) ((error))] 4 (#$ . 6558)])
#@369 Return the semantic tag for a type within the type of TAG.
TAG can be a variable, function or other type of tag.
The behavior of TAG's type is defined by `semantic-analyze-type'.
Optional SCOPE represents a calculated scope in which the
types might be found.  This can be nil.
If NOMETADEREF, then do not dereference metatypes.  This is
used by the analyzer debugger.
(defalias 'semantic-analyze-tag-type #[(tag &optional scope nometaderef) "\304\211\305\306\3078)	\"+\n#\207" [tag attribute scope nometaderef semantic-analyze-type :type plist-get 2] 5 (#$ . 6932)])
#@459 Return the semantic tag for TYPE-DECLARATION.
TAG can be a variable, function or other type of tag.
The type of tag (such as a class or struct) is a name.
Lookup this name in database, and return all slots/fields
within that types field.  Also handles anonymous types.
Optional SCOPE represents a calculated scope in which the
types might be found.  This can be nil.
If NOMETADEREF, then do not dereference metatypes.  This is
used by the analyzer debugger.
(defalias 'semantic-analyze-type #[(type-declaration &optional scope nometaderef) "\306\307!\210\310\211\n\203=�\n\310\311\312\217)\203=�\n\313\211\211A@)\f*=\203=�\314\n!\204=�
\2034�\n\202\231�\315\n\n#\202\231�\316\n!\211\203b�	\317\230\204b�\205V�\320	\313#\211\204k�\321	!\202k�\322\323\n\211@)\"\210:\203\200�@\310\311\312\217)\203\200�\324\313\"
\203\210�\202\231�\325\216\326\327!\"\210\315\n#)*\207" [typetag name type-declaration tag class nometaderef require semantic/scope nil (byte-code ":\205#�@;\205#�A@9\205#�A@\205#�\3018<\205#�\3028<\207" [tag 2 3] 2) ((error)) type semantic-tag-prototype-p semantic-analyze-dereference-metatype-stack semantic-analyze-type-to-name "" semantic-scope-find semanticdb-typecache-find error "Semantic tag %S has no type information" semantic-analyze-select-best-tag ((semantic-scope-set-typecache scope nil)) semantic-scope-set-typecache semantic-scope-tag-get-scope scope] 5 (#$ . 7514)])
#@252 Dereference metatypes repeatedly until we hit a real TYPE.
Uses `semantic-analyze-dereference-metatype'.
Argument SCOPE is the scope object with additional items in which to search.
Optional argument TYPE-DECLARATION is how TYPE was found referenced.
(defalias 'semantic-analyze-dereference-metatype-stack #[(type scope &optional type-declaration) "	\306\n	#\307\n\310\311\215\210\n,\207" [type type-declaration scope idx nexttype lasttypedeclaration semantic-analyze-dereference-metatype 0 metatype-recursion (byte-code "\2036�@	=\2046�@\211A@)\306	\f#
T\211\307V\203��\310\311	\211
@)\"\210\312\313\314\"\210\202��\314\207" [nexttype lasttype x lasttypedeclaration scope idx semantic-analyze-dereference-metatype 20 message "Possible metatype recursion for %S" throw metatype-recursion nil tag] 5) lasttype] 6 (#$ . 8951)])
#@127 Do extra work after dereferencing a metatype.
ANS is the answer from the language specific query.
SCOPE is the current scope.
(defalias 'semantic-analyze-dereference-metatype-1 #[(ans scope) "\304\305!\210;\203*�	\203�\306\307	#\242\206o�\310\311!\211	\203(�\312	\313\n!\"\210)\207\310\314\315\217)\205o�\211A@)\307=\205o�\316!\203n�	\203V�\306\211@)\307	#\242\206o�\310\311\211@)!\211	\203l�\312	\313\n!\"\210)\207\207" [ans scope tcsans tag require semantic/scope semantic-scope-find type nil semanticdb-typecache-find semantic-scope-set-typecache semantic-scope-tag-get-scope (byte-code ":\205#�@;\205#�A@9\205#�A@\205#�\3018<\205#�\3028<\207" [tag 2 3] 2) ((error)) semantic-tag-prototype-p] 6 (#$ . 9802)])
(provide 'semantic/analyze/fcn)